fix native argument passing

Author: timfel

graalpython/com.oracle.graal.python/src/com/oracle/graal/python/builtins/objects/cext/hpy/GraalHPyContext.java

@@ -2625,7 +2625,7 @@ public void finalizeContext() {
     private long nativeArgumentsStack = 0;
     private int nativeArgumentStackPos = 0;
 
-    public final long createNativeArguments(Object[] delegate) {
+    public final long createNativeArguments(Object[] delegate, InteropLibrary delegateLib) {
         if (nativeArgumentsStack == 0) {
             CompilerDirectives.transferToInterpreterAndInvalidate();
             nativeArgumentsStack = unsafe.allocateMemory(NATIVE_ARGUMENT_STACK_SIZE);
@@ -2639,7 +2639,13 @@ public final long createNativeArguments(Object[] delegate) {
         nativeArgumentsStack += arraySize;
 
         for (int i = 0; i < delegate.length; i++) {
-            unsafe.putLong(arrayPtr + i * SIZEOF_LONG, ((GraalHPyHandle) delegate[i]).getId(this, ConditionProfile.getUncached()));
+            Object element = delegate[i];
+            delegateLib.toNative(element);
+            try {
+                unsafe.putLong(arrayPtr + i * SIZEOF_LONG, delegateLib.asPointer(element));
+            } catch (UnsupportedMessageException ex) {
+                throw CompilerDirectives.shouldNotReachHere(ex);
+            }
         }
         return arrayPtr;
     }

graalpython/com.oracle.graal.python/src/com/oracle/graal/python/builtins/objects/cext/hpy/HPyArrayWrappers.java

@@ -54,6 +54,7 @@
 import com.oracle.truffle.api.interop.InvalidArrayIndexException;
 import com.oracle.truffle.api.interop.TruffleObject;
 import com.oracle.truffle.api.interop.UnsupportedMessageException;
+import com.oracle.truffle.api.library.CachedLibrary;
 import com.oracle.truffle.api.library.ExportLibrary;
 import com.oracle.truffle.api.library.ExportMessage;
 import com.oracle.truffle.api.nodes.ExplodeLoop;
@@ -173,6 +174,7 @@ long asPointer() throws UnsupportedMessageException {
         @ExportMessage
         void toNative(
                         @Cached.Exclusive @Cached InvalidateNativeObjectsAllManagedNode invalidateNode,
+                        @CachedLibrary(limit = "1") InteropLibrary delegateLib,
                         @Shared("asHandleNode") @Cached HPyAsHandleNode asHandleNode) {
             invalidateNode.execute();
             if (!isPointer()) {
@@ -182,7 +184,7 @@ void toNative(
                         delegate[i] = asHandleNode.execute(hpyContext, element);
                     }
                 }
-                setNativePointer(hpyContext.createNativeArguments(delegate));
+                setNativePointer(hpyContext.createNativeArguments(delegate, delegateLib));
             }
         }