git.iko.soy/Idris-dev
on master help sign in
Merge pull request #4554 from imuli/javascript-right-shift
80293baNiklas Larsson
src/IRTS/JavaScript/PrimOp.hs+4−4
compare with master
unifiedsplit
@@ -103,10 +103,10 @@ primDB =
103 , item (LSHL (ITFixed IT64)) True PTAny $
103 , item (LSHL (ITFixed IT64)) True PTAny $
104 \[l, r] -> JsForeign "%0.shiftLeft(%1).and(new $JSRTS.jsbn.BigInteger(%2))" [l,r, JsStr $ show 0xFFFFFFFFFFFFFFFF]
104 \[l, r] -> JsForeign "%0.shiftLeft(%1).and(new $JSRTS.jsbn.BigInteger(%2))" [l,r, JsStr $ show 0xFFFFFFFFFFFFFFFF]
105 , item (LSHL ITBig) True PTAny $ method "shiftLeft"
105 , item (LSHL ITBig) True PTAny $ method "shiftLeft"
106− , item (LLSHR ITNative) False PTAny $ JsForeign "%0 >> %1 |0"
106+ , item (LLSHR ITNative) False PTAny $ JsForeign "%0 >>> %1 |0"
107− , item (LLSHR (ITFixed IT8)) False PTAny $ JsForeign "%0 >> %1"
107+ , item (LLSHR (ITFixed IT8)) False PTAny $ JsForeign "%0 >>> %1"
108− , item (LLSHR (ITFixed IT16)) False PTAny $ JsForeign "%0 >> %1"
108+ , item (LLSHR (ITFixed IT16)) False PTAny $ JsForeign "%0 >>> %1"
109− , item (LLSHR (ITFixed IT32)) False PTAny $ JsForeign "%0 >> %1|0"
109+ , item (LLSHR (ITFixed IT32)) False PTAny $ JsForeign "%0 >>> %1|0"
110 , item (LLSHR (ITFixed IT64)) True PTAny $ JsForeign "%0.shiftRight(%1)"
110 , item (LLSHR (ITFixed IT64)) True PTAny $ JsForeign "%0.shiftRight(%1)"
111 , item (LASHR ITNative) False PTAny $ JsForeign "%0 >> %1 |0"
111 , item (LASHR ITNative) False PTAny $ JsForeign "%0 >> %1 |0"
112 , item (LASHR (ITFixed IT8)) False PTAny $ JsForeign "%0 >> %1"
112 , item (LASHR (ITFixed IT8)) False PTAny $ JsForeign "%0 >> %1"