X-Git-Url: http://git.joshuawise.com/snipe.git/blobdiff_plain/5c90fbb8681e975ccd0a1bc407b31daa1daef38a..a644da892dbd55a7be1aed029dafebe28d26d27e:/codegen/blarg.sml

diff --git a/codegen/blarg.sml b/codegen/blarg.sml
index cdd4a1b..4df4d48 100644
--- 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