Propagate strings through the blarg backend.

[snipe.git] / top / top.sml

diff --git a/top/top.sml b/top/top.sml
index 49e7dc6c3516072e7d7d87bf88b842f3880425a5..006fa4685af5d4f531d6fe377cabb60c9ebed5a0 100644 (file)
--- a/top/top.sml
+++ b/top/top.sml
@@ -142,10 +142,10 @@ struct
                   (fn () => List.app (TextIO.print o
                     (fn (t, i) =>
                       (Temp.name t) ^ " => " ^ (
-                        if (i <= Blarg.regtonum Blarg.R3)
+                        if (i <= 15)
                           then (Blarg.pp_oper (Blarg.REG (Blarg.numtoreg i)))
                         else
-                          "spill[" ^ Int.toString (i - Blarg.regtonum Blarg.R3) ^ "]")
+                          "spill[" ^ Int.toString (i - Blarg.regtonum Blarg.PC) ^ "]")
                         ^ "--"^ Int.toString i ^ "\n"))
                     colors) ()