Add string pasting support to the gramamr.

[snipe.git] / codegen / blarg.sml

diff --git a/codegen/blarg.sml b/codegen/blarg.sml
index cdd4a1bfbd4b22d038d6ba2440f4e6b71065ec68..4df4d4851819e5ca998386242556bf209b2705f0 100644 (file)
--- a/codegen/blarg.sml
+++ b/codegen/blarg.sml
@@ -154,8 +154,9 @@ struct
     | regtonum R10 = 10
     | regtonum R11 = 11
     | regtonum R12 = 12
-    | regtonum SP = 4
-    | regtonum _ = raise ErrorMsg.InternalError ("regtonum: Invalid register")
+    | regtonum FR = 13
+    | regtonum SP = 14
+    | regtonum PC = 15
 
   (* gives reg associated with number (color) *)
   fun numtoreg 0 = R0