ExternalLibraryFunction.st
changeset 10618 343d0bf4646a
parent 10614 1950ab5c9214
child 10619 dc8c965a8602
--- a/ExternalLibraryFunction.st	Wed Jun 20 16:59:21 2007 +0200
+++ b/ExternalLibraryFunction.st	Wed Jun 20 17:42:58 2007 +0200
@@ -1270,7 +1270,7 @@
         __FAIL__(@symbol(UnknownReturnType2))
     }
 #else /* no FFI support */
-    __FAIL__(@symbol(FFINotSupported));
+    failureCode = @symbol(FFINotSupported);
 #endif /* HAVE_FFI */
 getOutOfHere: ;
 %}.
@@ -1325,7 +1325,7 @@
 !ExternalLibraryFunction class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.56 2007-06-15 09:52:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.57 2007-06-20 15:42:58 stefan Exp $'
 ! !
 
 ExternalLibraryFunction initialize!