ExternalLibraryFunction.st
changeset 14729 1432f384b1cc
parent 14659 410089913ca1
child 15002 c0633d3e9d20
child 18022 f23232c2eaef
--- a/ExternalLibraryFunction.st	Tue Jan 29 13:27:45 2013 +0100
+++ b/ExternalLibraryFunction.st	Tue Jan 29 17:27:28 2013 +0100
@@ -887,16 +887,16 @@
     ] ifFalse:[
 	objectiveC ifTrue:[
 	    aReceiverOrNil isNil ifTrue:[
-	        "/ must have an objective-c object instance
-	        self primitiveFailed.
+		"/ must have an objective-c object instance
+		self primitiveFailed.
 	    ].
 	    (aReceiverOrNil isObjectiveCObject) ifFalse:[
 		self primitiveFailed
 	    ]
 	] ifFalse:[
 	    aReceiverOrNil notNil ifTrue:[
-	        "/ must NOT have a c++/objectiveC object instance
-	        self primitiveFailed.
+		"/ must NOT have a c++/objectiveC object instance
+		self primitiveFailed.
 	    ]
 	].
     ].
@@ -1577,6 +1577,9 @@
 	(failureCode == #BadArgForAsyncCall) ifTrue:[
 	    ^ self tryAgainWithAsyncSafeArguments:argumentsOrNil forCPPInstance:aReceiverOrNil
 	].
+	(failureCode == #FFINotSupported) ifTrue:[
+	    self primitiveFailed:'FFI support missing in this build'.
+	].
 
 	self primitiveFailed.   "see failureCode and failureInfo for details"
 	^ nil
@@ -1686,7 +1689,7 @@
 !ExternalLibraryFunction class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.93 2013-01-16 12:20:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.94 2013-01-29 16:27:28 cg Exp $'
 !
 
 version_SVN