git.iko.soy/Idris-dev
on master help sign in
added prim op LCompl
11fb110Alex Gryzlov
src/IRTS/JavaScript/PrimOp.hs+4
compare with master
unifiedsplit
@@ -119,6 +119,10 @@ primDB =
119 , item (LASHR (ITFixed IT16)) False PTAny $ JsForeign "%0 >> %1"
119 , item (LASHR (ITFixed IT16)) False PTAny $ JsForeign "%0 >> %1"
120 , item (LASHR (ITFixed IT32)) False PTAny $ JsForeign "%0 >> %1|0"
120 , item (LASHR (ITFixed IT32)) False PTAny $ JsForeign "%0 >> %1|0"
121 , item (LASHR (ITFixed IT64)) True PTAny $ JsForeign "%0.shiftRight(%1)"
121 , item (LASHR (ITFixed IT64)) True PTAny $ JsForeign "%0.shiftRight(%1)"
122+ , item (LCompl (ITFixed IT8)) False PTAny $ JsForeign "~%0"
123+ , item (LCompl (ITFixed IT16)) False PTAny $ JsForeign "~%0"
124+ , item (LCompl (ITFixed IT32)) False PTAny $ JsForeign "~%0|0"
125+ , item (LCompl (ITFixed IT64)) True PTAny $ method "not"
122 , item (LEq ATFloat) False PTBool $ binop "==="
126 , item (LEq ATFloat) False PTBool $ binop "==="
123 , item (LEq (ATInt ITNative)) False PTBool $ binop "==="
127 , item (LEq (ATInt ITNative)) False PTBool $ binop "==="
124 , item (LEq (ATInt ITChar)) False PTBool $ binop "==="
128 , item (LEq (ATInt ITChar)) False PTBool $ binop "==="