ExternalLibraryFunction.st
changeset 9329 d1dba8a3752b
parent 9328 e30967f7ce5f
child 9330 94271ca44edc
--- a/ExternalLibraryFunction.st	Tue Apr 25 17:57:26 2006 +0200
+++ b/ExternalLibraryFunction.st	Tue Apr 25 18:19:37 2006 +0200
@@ -302,6 +302,7 @@
 printf("arg type: %x\n", __argTypes[0]);
 printf("arg type size: %x\n", __argTypes[0]->size);
 printf("arg type alignment: %x\n", __argTypes[0]->alignment);
+printf("__callType: %d\n", __callType);
 
     if (ffi_prep_cif(&__cif, __callType, __numArgs, __returnType, __argTypes) != FFI_OK) {
         failureCode = @symbol(FFIPrepareFailed);
@@ -406,5 +407,5 @@
 !ExternalLibraryFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.9 2006-04-25 15:57:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.10 2006-04-25 16:19:37 cg Exp $'
 ! !