*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Thu, 22 Jun 2006 16:49:05 +0200
changeset 9393 6764de553db1
parent 9392 11914531960a
child 9394 f085cd1af3e4
*** empty log message ***
ExternalLibraryFunction.st
--- 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 $'
 ! !