Fix JS codegen for LWriteStr
commitdb1dba2827709172d2ffd54ad45cd14e83dd5646
authorEdwin Brady <ecb10@st-andrews.ac.uk>
dateMon 30 Mar 2015, 10:50 (12 years ago)
parent029413b
src/IRTS/CodegenJavaScript.hs+1−2
@@ -679,8 +679,7 @@ jsOP _ reg op args = JSAssign (translateReg reg) jsOP'
679679 jsOP'
680680 | LNoOp <- op = translateReg (last args)
681681
682− | (LExternal ws) <- op,
683− ws == sUN "prim__writeString",
682+ | LWriteStr <- op,
684683 (_:str:_) <- args = JSAssign (translateReg reg)
685684 (JSApp (JSIdent "i$putStr") [translateReg str])
686685