X-Git-Url: http://git.joshuawise.com/snipe.git/blobdiff_plain/6c5506c5b97dabd72ba38c1f033dc4fded52cbfd..469e60eb4974bf3fc47cfa5b9a33b14983bec135:/trans/tree.sml diff --git a/trans/tree.sml b/trans/tree.sml index 2111fc1..d03180e 100644 --- a/trans/tree.sml +++ b/trans/tree.sml @@ -23,6 +23,7 @@ sig | CALL of Ast.ident * exp list | MEMORY of exp | ALLOC of exp + | STRING of Stringref.stringref | COND of exp * exp * exp | STMVAR of stm list * exp | NULLPTR @@ -55,6 +56,7 @@ struct | CALL of Ast.ident * exp list | MEMORY of exp | ALLOC of exp + | STRING of Stringref.stringref | COND of exp * exp * exp | STMVAR of stm list * exp | NULLPTR