ExternalLibraryFunction.st
changeset 21411 f68aa46aa3d6
parent 21410 660679622f0c
child 21412 67b11b143a30
--- a/ExternalLibraryFunction.st	Sun Feb 12 23:46:35 2017 +0100
+++ b/ExternalLibraryFunction.st	Mon Feb 13 01:15:27 2017 +0100
@@ -1023,8 +1023,15 @@
             |libraryName|
 
             libraryName := eachDirectory asFilename construct:nameString.
-            handle := ObjectFileLoader loadDynamicObject:libraryName.
-            handle notNil ifTrue:[^ handle ].
+            libraryName suffix isEmpty ifTrue:[
+                ObjectFileLoader sharedLibrarySuffixes do:[:eachPossibleSuffix |
+                    handle := ObjectFileLoader loadDynamicObject:(libraryName withSuffix:eachPossibleSuffix).
+                    handle notNil ifTrue:[^ handle].
+                ].    
+            ] ifFalse:[        
+                handle := ObjectFileLoader loadDynamicObject:libraryName.
+                handle notNil ifTrue:[^ handle ].
+            ].
         ].
     ].
 
@@ -1049,7 +1056,7 @@
         mayProceed:true.
     ^ nil
 
-    "Modified: / 12-02-2017 / 21:47:46 / cg"
+    "Modified: / 13-02-2017 / 01:14:05 / cg"
 !
 
 prepareInvoke