javascript: added isNull
commit9ffb9b84674acf98eb8629b440cc42c1b7e69dae
authorraichoo <raichoo@googlemail.com>
dateSat 15 Feb 2014, 19:16 (13 years ago)
parentede6fc4
jsrts/Runtime-common.js+4
@@ -37,3 +37,7 @@ var __IDRRT__tailcall = function(k) {
3737
3838 return ret;
3939};
40+
41+var __IDRRT__isNull = function(s) {
42+ return s == null;
43+};
src/IRTS/CodegenJavaScript.hs+3
@@ -1847,6 +1847,9 @@ translateExpression (SError msg) =
18471847translateExpression (SForeign _ _ "putStr" [(FString, var)]) =
18481848 jsCall (idrRTNamespace ++ "print") [JSVar var]
18491849
1850+translateExpression (SForeign _ _ "isNull" [(FPtr, var)]) =
1851+ jsCall (idrRTNamespace ++ "isNull") [JSVar var]
1852+
18501853translateExpression (SForeign _ _ fun args) =
18511854 ffi fun (map generateWrapper args)
18521855 where
test/Makefile+1−1
@@ -11,7 +11,7 @@ test_java:
1111 perl ./runtest.pl without buffer001 --codegen Java
1212
1313test_js:
14− @perl ./runtest.pl without reg029 reg031 io001 dsl002 io003 effects001 effects002 basic007 buffer001 --codegen node
14+ @perl ./runtest.pl without reg029 reg031 io001 dsl002 io003 effects001 effects002 buffer001 --codegen node
1515
1616test_llvm:
1717 @perl ./runtest.pl without io003 buffer001 --codegen llvm