--- a/ExternalLibraryFunction.st Thu Jun 22 16:47:58 2006 +0200
+++ b/ExternalLibraryFunction.st Thu Jun 22 16:49:05 2006 +0200
@@ -251,13 +251,17 @@
moduleHandle := handle.
].
name isNumber ifFalse:[
- (moduleHandle getFunctionAddress:name into:self) isNil ifTrue:[
+ functionName := name.
+ OperatingSystem isUNIXlike ifTrue:[
+ functionName := '_'
+ ].
+ (moduleHandle getFunctionAddress:functionName into:self) isNil ifTrue:[
moduleHandle := nil.
self error:'Missing function: ', name, ' in module: ', moduleName.
]
].
- "Modified: / 22-06-2006 / 16:47:49 / cg"
+ "Modified: / 22-06-2006 / 16:48:57 / cg"
!
prepareInvoke
@@ -744,5 +748,5 @@
!ExternalLibraryFunction class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.24 2006-06-22 14:47:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibraryFunction.st,v 1.25 2006-06-22 14:49:05 cg Exp $'
! !