ExternalFunctionCallback.st
branchjv
changeset 20344 152b525b5c63
parent 20342 219a5a47e8b1
parent 20307 678da26adf03
child 23107 40173e082cbc
--- a/ExternalFunctionCallback.st	Thu Aug 25 11:28:17 2016 +0100
+++ b/ExternalFunctionCallback.st	Wed Aug 31 22:45:49 2016 +0100
@@ -230,7 +230,7 @@
 }
 
 void
-ExternalFunctionCallback__test_call_closure(INTFUNC f)
+ExternalFunctionCallback__test_call_closure(INTLFUNC f)
 {
     INT result = 0;
 
@@ -403,7 +403,7 @@
     "a simple test, if I can be called"
 %{
 #   define MAX_CALLBACK_ARGS 5
-    INTFUNC f = __externalAddressVal(aCallback);
+    INTLFUNC f = __externalAddressVal(aCallback);
     INT result;
     int i;
     void *c_args[MAX_CALLBACK_ARGS];
@@ -809,7 +809,7 @@
     __INST(code_) = (OBJ)pcl;
 
 #if 0
-    ExternalFunctionCallback__test_call_closure((INTFUNC)pcl);
+    ExternalFunctionCallback__test_call_closure((INTLFUNC)pcl);
 #endif
 
 #else /* no FFI support */