ExternalFunctionCallback.st
changeset 14632 6fe0dc1d5377
parent 14626 7dc0ee28824f
child 14659 410089913ca1
--- a/ExternalFunctionCallback.st	Fri Jan 04 17:19:30 2013 +0100
+++ b/ExternalFunctionCallback.st	Tue Jan 08 18:55:11 2013 +0100
@@ -411,9 +411,9 @@
 	} else
 	    goto badArg;
     }
-    fprintf(stderr, "ExternalFunctionCallback: calling callBack %lx(%lx, %lx)\n", (long)f, (long)(c_args[0]), (long)(c_args[1]));
+    fprintf(stderr, "ExternalFunctionCallback: calling callBack %"_lx_"(%"_lx_", %"_lx_")\n", (long)f, (long)(c_args[0]), (long)(c_args[1]));
     result = (*f)(c_args[0], c_args[1], c_args[2], c_args[3], c_args[4]);
-    fprintf(stderr, "ExternalFunctionCallback: result from callBack is %lx\n", (long)result);
+    fprintf(stderr, "ExternalFunctionCallback: result from callBack is %"_lx_"\n", (long)result);
     RETURN(true);
 
 badArg: ;
@@ -829,9 +829,9 @@
 !ExternalFunctionCallback class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunctionCallback.st,v 1.19 2013-01-02 12:47:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunctionCallback.st,v 1.20 2013-01-08 17:55:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunctionCallback.st,v 1.19 2013-01-02 12:47:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunctionCallback.st,v 1.20 2013-01-08 17:55:11 cg Exp $'
 ! !