X-Git-Url: http://git.joshuawise.com/snipe.git/blobdiff_plain/5c79bb689ab446551bc7ec4497e6c9b75582837e..f285fa8903ee50118b6d92150c18cb3a32f52ed2:/codegen/stringifier.sml?ds=sidebyside

diff --git a/codegen/stringifier.sml b/codegen/stringifier.sml
index 7ab1e89..6124a55 100644
--- a/codegen/stringifier.sml
+++ b/codegen/stringifier.sml
@@ -6,20 +6,20 @@
 
 signature STRINGIFY =
 sig
-  type asm = x86.insn list
+  type asm = Blarg.insn list
   val stringify : (string -> string) -> asm -> string
 end
 
 structure Stringify :> STRINGIFY =
 struct
-  type asm = x86.insn list
-  structure X = x86
+  type asm = Blarg.insn list
+  structure X = Blarg
 
   (* 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.CALL (l, n)) = X.print (X.CALL ((Symbol.symbol (rn (Symbol.name l))), n))
+    | *)stringify' rn x = X.print x
 
   (* val stringify : asm -> string *)
   fun stringify realname l = String.concat (List.map (stringify' realname) l)