X-Git-Url: http://git.joshuawise.com/snipe.git/blobdiff_plain/4f528370c7d70f4fd271c7ce5eee517284852940..5c90fbb8681e975ccd0a1bc407b31daa1daef38a:/codegen/codegen.sml diff --git a/codegen/codegen.sml b/codegen/codegen.sml index de8fa1e..29707a8 100644 --- a/codegen/codegen.sml +++ b/codegen/codegen.sml @@ -60,6 +60,7 @@ struct * d must be TEMP(t) or REG(r) *) and munch_exp d (T.CONST n) = [X.INSN (X.AL, X.MOVLIT(d, Word.fromLarge n))] + | munch_exp d (T.STRING s) = [X.INSN (X.AL, X.MOVSTR(d, s))] | munch_exp d (T.NULLPTR) = [X.INSN (X.AL, X.MOVLIT(d, 0w0))] | munch_exp d (T.TEMP(t)) = [X.INSN (X.AL, X.MOV(d, X.TEMP t))] | munch_exp d (T.ARG(0)) = [X.INSN (X.AL, X.MOV(d, X.REG X.R0))]