--- 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