ExternalFunctionCallback.st
changeset 24071 d9537fdc5b9f
parent 24070 85b7952e1260
child 24072 f859c1090bd6
--- a/ExternalFunctionCallback.st	Sat Apr 13 06:38:59 2019 +0200
+++ b/ExternalFunctionCallback.st	Sat Apr 13 07:00:33 2019 +0200
@@ -765,6 +765,7 @@
 	__returnType = __get_ffi_type_void();
     } else if ((returnTypeSymbol == @symbol(pointer))
 	       || (returnTypeSymbol == @symbol(handle))
+	       || (returnTypeSymbol == @symbol(voidPointer))
 	       || (returnTypeSymbol == @symbol(charPointer))
 	       || (returnTypeSymbol == @symbol(bytePointer))
 	       || (returnTypeSymbol == @symbol(floatPointer))
@@ -860,6 +861,8 @@
 	    thisType = __get_ffi_type_double();
 	} else if (typeSymbol == @symbol(void)) {
 	    thisType = __get_ffi_type_void();
+	} else if (typeSymbol == @symbol(voidPointer)) {
+	    thisType = __get_ffi_type_pointer();
 	} else if (typeSymbol == @symbol(charPointer)) {
 	    thisType = __get_ffi_type_pointer();
 	} else if (typeSymbol == @symbol(floatPointer)) {
@@ -1003,4 +1006,3 @@
 version_CVS
     ^ '$Header$'
 ! !
-