@@ -606,7 +606,7 @@ translateDecl info (name, bc) =
606606translateReg :: Reg -> JS
607607translateReg reg
608608 | RVal <- reg = jsRET
609− | Tmp <- reg = JSProj (JSIdent "vm") "reg1"
609+ | Tmp <- reg = JSRaw "//TMPREG"
610610 | L n <- reg = jsLOC n
611611 | T n <- reg = jsTOP n
612612
@@ -1534,6 +1534,5 @@ translateBC info bc
15341534 | PROJECT r l a <- bc = jsPROJECT info r l a
15351535 | OP r o a <- bc = jsOP info r o a
15361536 | ERROR e <- bc = jsERROR info e
1537− | otherwise = JSRaw $ show bc
1538− {- PROJECTINTO _ _ _ <- bc = undefined -}
1537+ | otherwise = JSRaw $ "//" ++ show bc
15391538