X-Git-Url: http://git.joshuawise.com/snipe.git/blobdiff_plain/f285fa8903ee50118b6d92150c18cb3a32f52ed2..6c5506c5b97dabd72ba38c1f033dc4fded52cbfd:/codegen/blarg.sml diff --git a/codegen/blarg.sml b/codegen/blarg.sml index e482813..797ab3e 100644 --- a/codegen/blarg.sml +++ b/codegen/blarg.sml @@ -168,7 +168,7 @@ struct end) fun pp_oper (REG r) = "%" ^ (regname r) - | pp_oper (TEMP t) = (Temp.name t) ^ (Temp.sfx (Temp.size t)) + | pp_oper (TEMP t) = (Temp.name t) | pp_oper (STACKARG i) = "arg#"^Int.toString i fun pp_insn pr (MOVLIT (d, w)) = "\tmov"^pr^" "^(pp_oper d)^", #"^(Word.toString w)^"\n"