X-Git-Url: http://git.joshuawise.com/snipe.git/blobdiff_plain/4a34fbf0834d02dd913bf872e45b3285aafce641..de034162d9af50e6bfb454f4de67213d856137c4:/codegen/blarg.sml diff --git a/codegen/blarg.sml b/codegen/blarg.sml index ab48de1..aacc993 100644 --- a/codegen/blarg.sml +++ b/codegen/blarg.sml @@ -134,6 +134,7 @@ struct | regtonum R1 = 1 | regtonum R2 = 2 | regtonum R3 = 3 + | regtonum SP = 4 | regtonum _ = raise ErrorMsg.InternalError ("regtonum: Invalid register") (* gives reg associated with number (color) *)