woo it generated some code

[snipe.git] / codegen / blarg.sml

diff --git a/codegen/blarg.sml b/codegen/blarg.sml
index 797ab3e1c5b9a83919aa9723054b850b0020a42d..aacc99311239caa519d35478723752b34aee2f0e 100644 (file)
--- a/codegen/blarg.sml
+++ b/codegen/blarg.sml
@@ -13,7 +13,7 @@ sig
   datatype oper = REG of reg |
                      TEMP of Temp.temp |
                      STACKARG of int
-  datatype pred = NV | NE | EQ | LT | GT | AL
+  datatype pred = NV | NE | EQ | LT | GT | LE | GE | AL
   (* instructions *)
   datatype opc =
     MOVLIT of oper * word |
@@ -70,7 +70,7 @@ struct
   datatype oper = REG of reg |
                   TEMP of Temp.temp |
                   STACKARG of int
-  datatype pred = NV | NE | EQ | LT | GT | AL
+  datatype pred = NV | NE | EQ | LT | GT | LE | GE | AL
   (* instructions *)
   datatype opc =
     MOVLIT of oper * word |
@@ -125,6 +125,8 @@ struct
     | predname EQ = "eq"
     | predname LT = "lt"
     | predname GT = "gt"
+    | predname GE = "ge"
+    | predname LE = "le"
     | predname AL = ""
 
   (* gives number (color) associated with reg *)
@@ -132,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) *)