X-Git-Url: http://git.joshuawise.com/snipe.git/blobdiff_plain/0328a46e225c7d763ce0b003eac84da0ad608a5c..d4e2479e280733505420e57db97768688ceda49a:/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