Be more aggressive preserving objects converted to native pointers.

Author: aardvark179

src/main/java/org/truffleruby/cext/ValueWrapperManager.java

@@ -104,7 +104,6 @@ public synchronized long createNativeHandle(ValueWrapper wrapper) {
         }
         wrapper.setHandle(handleAddress);
         addToHandleMap(handleAddress, wrapper);
-        context.getMarkingService().keepObject(wrapper);
         addFinalizer(wrapper, handlePointer);
         return handleAddress;
     }

src/main/java/org/truffleruby/cext/ValueWrapperMessageResolution.java

@@ -53,13 +53,18 @@ public static abstract class ForeignAsPointerNode extends Node {
 
         @CompilationFinal private RubyContext context;
         private final BranchProfile createHandleProfile = BranchProfile.create();
+        private final BranchProfile taggedObjectProfile = BranchProfile.create();
 
         protected long access(VirtualFrame frame, ValueWrapper wrapper) {
             long handle = wrapper.getHandle();
             if (handle == ValueWrapperManager.UNSET_HANDLE) {
                 createHandleProfile.enter();
                 handle = getContext().getValueWrapperManager().createNativeHandle(wrapper);
             }
+            if (ValueWrapperManager.isTaggedObject(handle)) {
+                taggedObjectProfile.enter();
+                getContext().getMarkingService().keepObject(wrapper);
+            }
             return handle;
         }