Add tests and fixes for 'PyLong_From/AsVoidPtr'.

Author: fangerer

graalpython/com.oracle.graal.python.cext/src/longobject.c

@@ -109,7 +109,7 @@ PyObject * PyLong_FromVoidPtr(void *p) {
 
 UPCALL_ID(PyLong_AsVoidPtr);
 void * PyLong_AsVoidPtr(PyObject *obj){
-    return (void *)UPCALL_CEXT_L(_jls_PyLong_AsVoidPtr, native_to_java(obj));
+    return (void *)UPCALL_CEXT_PTR(_jls_PyLong_AsVoidPtr, native_to_java(obj));
 }
 
 UPCALL_ID(PyLong_FromLongLong);

graalpython/com.oracle.graal.python.test/src/tests/cpyext/test_long.py

@@ -239,6 +239,38 @@ def compile_module(self, name):
         cmpfunc=unhandled_error_compare
     )
 
+    test_PyLong_FromVoidPtrAllocated = CPyExtFunction(
+        lambda args: int,
+        lambda: ((None,),),
+        code="""PyObject* PyLong_FromVoidPtrAllocated(PyObject* none) {
+            void* dummyPtr = malloc(sizeof(size_t));
+            return (PyObject*)Py_TYPE(PyLong_FromVoidPtr(dummyPtr));
+        }
+        """,
+        resultspec="O",
+        argspec='O',
+        arguments=["PyObject* none"],
+        cmpfunc=unhandled_error_compare
+    )
+
+    test_PyLong_AsVoidPtrAllocated = CPyExtFunction(
+        lambda args: True,
+        lambda: ((None,),),
+        code="""PyObject* PyLong_AsVoidPtrAllocated(PyObject* none) {
+            void* dummyPtr = malloc(sizeof(size_t));
+            PyObject* obj = PyLong_FromVoidPtr(dummyPtr);
+            void* unwrappedPtr = PyLong_AsVoidPtr(obj);
+            PyObject* result = unwrappedPtr == dummyPtr ? Py_True : Py_False;
+            free(dummyPtr);
+            return result;
+        }
+        """,
+        resultspec="O",
+        argspec='O',
+        arguments=["PyObject* none"],
+        cmpfunc=unhandled_error_compare
+    )
+
     test_PyLong_Check = CPyExtFunction(
         lambda args: isinstance(args[0], int),
         lambda: (

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

@@ -1150,7 +1150,7 @@ long runGeneric(Object value) {
         private CastToIndexNode getIntNode() {
             if (intNode == null) {
                 CompilerDirectives.transferToInterpreterAndInvalidate();
-                intNode = CastToIndexNode.createOverflow();
+                intNode = insert(CastToIndexNode.createOverflow());
             }
             return intNode;
         }