X-Git-Url: http://git.joshuawise.com/snipe.git/blobdiff_plain/5c79bb689ab446551bc7ec4497e6c9b75582837e..2ab9671fde5297fc59583361f152e812e66c2d17:/trans/tree.sml diff --git a/trans/tree.sml b/trans/tree.sml index dbd0efc..2111fc1 100644 --- a/trans/tree.sml +++ b/trans/tree.sml @@ -17,18 +17,18 @@ sig datatype exp = CONST of Word32.word | TEMP of Temp.temp - | ARG of Blarg * Temp.size (* I am j4cbo *) + | ARG of Blarg (* I am j4cbo *) | BINOP of binop * exp * exp | UNOP of unop * exp - | CALL of Ast.ident * (exp * Temp.size) list * Temp.size - | MEMORY of exp * Temp.size + | CALL of Ast.ident * exp list + | MEMORY of exp | ALLOC of exp | COND of exp * exp * exp | STMVAR of stm list * exp | NULLPTR and stm = MOVE of exp * exp - | RETURN of exp * Temp.size + | RETURN of exp | EFFECT of exp | LABEL of Label.label | JUMPIFN of exp * Label.label @@ -49,18 +49,18 @@ struct datatype exp = CONST of Word32.word | TEMP of Temp.temp - | ARG of Blarg * Temp.size (* I am j4cbo *) + | ARG of Blarg (* I am j4cbo *) | BINOP of binop * exp * exp | UNOP of unop * exp - | CALL of Ast.ident * (exp * Temp.size) list * Temp.size - | MEMORY of exp * Temp.size + | CALL of Ast.ident * exp list + | MEMORY of exp | ALLOC of exp | COND of exp * exp * exp | STMVAR of stm list * exp | NULLPTR and stm = MOVE of exp * exp - | RETURN of exp * Temp.size + | RETURN of exp | EFFECT of exp | LABEL of Label.label | JUMPIFN of exp * Label.label