From: Joshua Wise Date: Sat, 10 Jul 2010 06:41:06 +0000 (-0400) Subject: Remember to emit _l5_ functions. X-Git-Url: http://git.joshuawise.com/snipe.git/commitdiff_plain/c148fe943397f2ec0ea1f9b6784a217213ff54c1?ds=sidebyside Remember to emit _l5_ functions. --- diff --git a/codegen/stringifier.sml b/codegen/stringifier.sml index 6124a55..b01beba 100644 --- a/codegen/stringifier.sml +++ b/codegen/stringifier.sml @@ -18,8 +18,8 @@ struct (* val stringify : asm -> string * turns a x86 instruction list into a string of assembly code for these instructions *) - fun (*stringify' rn (X.CALL (l, n)) = X.print (X.CALL ((Symbol.symbol (rn (Symbol.name l))), n)) - | *)stringify' rn x = X.print x + fun stringify' rn (X.INSN (pred, X.MOVSYM (r, n))) = X.print (X.INSN (pred, X.MOVSYM (r, (Symbol.symbol (rn (Symbol.name n)))))) + | stringify' rn x = X.print x (* val stringify : asm -> string *) fun stringify realname l = String.concat (List.map (stringify' realname) l)