FIx mark on exit to only run if there is a marker.

Author: aardvark179

lib/truffle/truffle/cext_structs.rb

@@ -29,7 +29,7 @@ def RDATA_PTR(object)
       raise TypeError, "wrong argument type #{object.class} (expected T_DATA)"
     end
 
-    Primitive.cext_mark_object_on_call_exit(object) unless Primitive.nil?(Primitive.object_hidden_var_get(object, Truffle::CExt::DATA_MARKER))
+    Primitive.cext_mark_object_on_call_exit(object) unless Truffle::Interop.null?(Primitive.object_hidden_var_get(object, Truffle::CExt::DATA_MARKER))
     Primitive.data_holder_get_data(data_holder)
   end
 
@@ -69,7 +69,7 @@ def polyglot_members(internal)
   def polyglot_read_member(name)
     case name
     when 'data'
-      Primitive.cext_mark_object_on_call_exit(@object) unless Primitive.nil?(Primitive.object_hidden_var_get(@object, Truffle::CExt::DATA_MARKER))
+      Primitive.cext_mark_object_on_call_exit(@object) unless Truffle::Interop.null?(Primitive.object_hidden_var_get(@object, Truffle::CExt::DATA_MARKER))
       Primitive.data_holder_get_data(@data_holder)
     when 'type'
       type
@@ -296,7 +296,7 @@ def polyglot_pointer?
   end
 
   def polyglot_as_pointer
-    Primitive.cext_mark_object_on_call_exit(@array)
+    Primitive.cext_mark_object_on_call_exit(@array) unless Truffle::Interop.null?(Primitive.object_hidden_var_get(@object, Truffle::CExt::DATA_MARKER))
     Primitive.array_store_address(@array)
   end