ExternalFunctionCallback.st
changeset 10617 a9dc57b77568
parent 10616 9a49511f6516
child 10618 343d0bf4646a
--- a/ExternalFunctionCallback.st	Wed Jun 20 16:44:36 2007 +0200
+++ b/ExternalFunctionCallback.st	Wed Jun 20 16:59:21 2007 +0200
@@ -50,6 +50,7 @@
 !ExternalFunctionCallback primitiveFunctions!
 %{
 
+#ifdef HAVE_FFI
 #define xxVERBOSE
 
 void
@@ -219,6 +220,7 @@
     result = (*f)(123);
     printf("doCall_closure: back; result is %x...\n", result);
 }
+#endif /* HAVE_FFI */
 
 %}
 ! !
@@ -683,5 +685,5 @@
 !ExternalFunctionCallback class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunctionCallback.st,v 1.6 2007-06-20 14:44:36 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalFunctionCallback.st,v 1.7 2007-06-20 14:59:21 stefan Exp $'
 ! !