First pass spill code.

[snipe.git] / top / top.sml

diff --git a/top/top.sml b/top/top.sml
index 6c9f0a2039353686e4bc72c8ef8465ea6ce523bc..c03263fcf40bb5e33c8553fcc7e60523c85f8091 100644 (file)
--- a/top/top.sml
+++ b/top/top.sml
@@ -104,7 +104,7 @@ struct
       
         val _ = Flag.guard Flags.verbose say ("Processing function: " ^ name)
 
       
         val _ = Flag.guard Flags.verbose say ("Processing function: " ^ name)
 

-        val _ = Flag.guard Flags.verbose say "  Generating proto-x86_64 code..."
+        val _ = Flag.guard Flags.verbose say "  Generating proto-blargCPU code..."

         val assem = Codegen.codegen ir
         val _ = Flag.guard Flags.assem
                   (fn () => List.app (TextIO.print o (Blarg.print)) assem) ()
         val assem = Codegen.codegen ir
         val _ = Flag.guard Flags.assem
                   (fn () => List.app (TextIO.print o (Blarg.print)) assem) ()


@@ -142,10 +142,10 @@ struct
                   (fn () => List.app (TextIO.print o
                     (fn (t, i) =>
                       (Temp.name t) ^ " => " ^ (
                   (fn () => List.app (TextIO.print o
                     (fn (t, i) =>
                       (Temp.name t) ^ " => " ^ (

-                        if (i <= 15)
+                        if (i <= 10)

                           then (Blarg.pp_oper (Blarg.REG (Blarg.numtoreg i)))
                         else
                           then (Blarg.pp_oper (Blarg.REG (Blarg.numtoreg i)))
                         else

-                          "spill[" ^ Int.toString (i - Blarg.regtonum Blarg.PC) ^ "]")
+                          "spill[" ^ Int.toString (i - 11) ^ "]")

                         ^ "--"^ Int.toString i ^ "\n"))
                     colors) ()
 
                         ^ "--"^ Int.toString i ^ "\n"))
                     colors) ()