Add a nqp::jvmisnull op.

Raku · Aug 7, 2013 · d23d885 · d23d885
1 parent 0b93372
commit d23d885
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 1 deletion.
diff --git a/src/vm/jvm/QAST/Compiler.nqp b/src/vm/jvm/QAST/Compiler.nqp
@@ -2426,6 +2426,7 @@ QAST::OperationsJAST.map_classlib_core_op('continuationinvoke', $TYPE_OPS, 'cont
 
 # JVM interop ops
 QAST::OperationsJAST.map_classlib_core_op('jvmeqaddr', $TYPE_OPS, 'jvmeqaddr', [$RT_OBJ, $RT_OBJ], $RT_INT, :tc);
+QAST::OperationsJAST.map_classlib_core_op('jvmisnull', $TYPE_OPS, 'jvmisnull', [$RT_OBJ], $RT_INT, :tc);
 QAST::OperationsJAST.map_classlib_core_op('jvmbootinterop', $TYPE_OPS, 'jvmbootinterop', [], $RT_OBJ, :tc);
 
 class QAST::CompilerJAST {

diff --git a/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java b/src/vm/jvm/runtime/org/perl6/nqp/runtime/Ops.java
@@ -5019,13 +5019,21 @@ public static SixModelObject debugnoop(SixModelObject in, ThreadContext tc) {
         return in;
     }
 
-    public static long jvmeqaddr(SixModelObject a, SixModelObject b) {
+    public static long jvmeqaddr(SixModelObject a, SixModelObject b, ThreadContext tc) {
         if (a instanceof TypeObject) {
             return (b instanceof TypeObject) ? 1 : 0;
         } else {
             return (b instanceof TypeObject || ((JavaObjectWrapper)a).theObject != ((JavaObjectWrapper)b).theObject) ? 0 : 1;
         }
     }
+
+    public static long jvmisnull(SixModelObject a, ThreadContext tc) {
+        if (a instanceof TypeObject) {
+            return 1;
+        } else {
+            return ((JavaObjectWrapper)a).theObject == null ? 1 : 0;
+        }
+    }
 
     public static SixModelObject jvmbootinterop(ThreadContext tc) {
         return BootJavaInterop.RuntimeSupport.boxJava(tc.gc.bootInterop, tc.gc.bootInterop.getSTableForClass(BootJavaInterop.class));