on master help sign in
fixed LSHL for IT64
commit48f9a4be334d34ec0226867a4bb79d1d5cbb2ac8 authorRui Barreiro <rui.barreiro@gmail.com> dateSun 21 May 2017, 16:03 (9 years ago) parent3e86df1
1 file changed+1−1
src/IRTS/JavaScript/Codegen.hs+1−1
src/IRTS/JavaScript/Codegen.hs+1−1
@@ -613,7 +613,7 @@ cgOp (LSHL ITNative) [l, r] = pure $ JsForeign "%0 << %1 |0" [l,r]
613613cgOp (LSHL (ITFixed IT8)) [l, r] = pure $ JsForeign "%0 << %1 & 0xFF" [l,r]
614614cgOp (LSHL (ITFixed IT16)) [l, r] = pure $ JsForeign "%0 << %1 & 0xFFFF" [l,r]
615615cgOp (LSHL (ITFixed IT32)) [l, r] = pure $ JsForeign "%0 << %1 |0" [l,r]
616−cgOp (LTimes (ATInt (ITFixed IT64))) [l, r] =
616+cgOp (LSHL (ITFixed IT64)) [l, r] =
617617 do
618618 setUsedITBig
619619 pure $ JsForeign "%0.shiftLeft(%1).and(new jsbn.BigInteger(%2))" [l,r, JsStr $ show 0xFFFFFFFFFFFFFFFF]