X-Git-Url: http://git.joshuawise.com/snipe.git/blobdiff_plain/de034162d9af50e6bfb454f4de67213d856137c4..c2b45b3681553192a462bcdd376ee7a9bf83eef3:/top/top.sml

diff --git a/top/top.sml b/top/top.sml
index 6a132c6..49e7dc6 100644
--- a/top/top.sml
+++ b/top/top.sml
@@ -149,19 +149,19 @@ struct
                         ^ "--"^ Int.toString i ^ "\n"))
                     colors) ()
 
-(*        val _ = Flag.guard Flags.verbose say "  Solidifying blargCPU code..."
+        val _ = Flag.guard Flags.verbose say "  Solidifying blargCPU code..."
         val x86 = Solidify.solidify colors assem
 
         val _ = Flag.guard Flags.verbose say "  Optimizing final assembly..."
         val x86p = Optimizer.optimize_final (!enabledopts) x86
 
         val _ = Flag.guard Flags.verbose say "  Stringifying..."
-        val x86d = [x86.DIRECTIVE(".globl " ^ name),
-                    x86.DIRECTIVE(name ^ ":")]
+        val x86d = [Blarg.DIRECTIVE(".globl " ^ name),
+                    Blarg.DIRECTIVE(name ^ ":")]
                     @ x86p
-        val code = Stringify.stringify realname x86d*)
+        val code = Stringify.stringify realname x86d
       in
-        ""
+        code
       end
 
   fun main (name, args) =