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