@@ -757,19 +757,19 @@ jsOP _ reg op args = JSAssign (translateReg reg) jsOP'
760− | (LTrunc (ITFixed IT16) (ITFixed IT8)) <- op
760+ | (LTrunc (ITFixed _from) (ITFixed IT8)) <- op
761 , (arg:_) <- args =
761 , (arg:_) <- args =
762 jsPackUBits8 (
762 jsPackUBits8 (
763 JSBinOp "&" (jsUnPackBits $ translateReg arg) (JSNum (JSInt 0xFF))
763 JSBinOp "&" (jsUnPackBits $ translateReg arg) (JSNum (JSInt 0xFF))
766− | (LTrunc (ITFixed IT32) (ITFixed IT16)) <- op
766+ | (LTrunc (ITFixed _from) (ITFixed IT16)) <- op
767 , (arg:_) <- args =
767 , (arg:_) <- args =
768 jsPackUBits16 (
768 jsPackUBits16 (
769 JSBinOp "&" (jsUnPackBits $ translateReg arg) (JSNum (JSInt 0xFFFF))
769 JSBinOp "&" (jsUnPackBits $ translateReg arg) (JSNum (JSInt 0xFFFF))
772− | (LTrunc (ITFixed IT64) (ITFixed IT32)) <- op
772+ | (LTrunc (ITFixed _from) (ITFixed IT32)) <- op
773 , (arg:_) <- args =
773 , (arg:_) <- args =
774 jsPackUBits32 (
774 jsPackUBits32 (
775 jsMeth (jsMeth (translateReg arg) "and" [
775 jsMeth (jsMeth (translateReg arg) "and" [