git-svn-id: trunk@14902 -
@@ -113,21 +113,6 @@ function LoadLibrarySymbols(const Lib: TLibHandle; const Symbols: PLibSymbol; co
procedure ClearLibrarySymbols(const Symbols: PLibSymbol; const Count: Integer);
-// these are for easier crossplatform construction of dll names in dynloading libs.
-Const
- {$ifdef Windows}
- SharedSuffix = 'dll';
- {$else}
- {$ifdef Darwin}
- SharedSuffix = 'dylib';
- {$ifdef OS2}
- SharedSuffix = 'so';
- {$endif}
Implementation
@@ -24,6 +24,8 @@ Type
Const
NilHandle = Nil;
+// these are for easier crossplatform construction of dll names in dynloading libs.
+ SharedSuffix = 'so';
{$else}
@@ -25,6 +25,8 @@ type
const
NilHandle = 0;
+ SharedSuffix = 'dll';
@@ -25,6 +25,12 @@ Type
NilHandle = TLibHandle(0);
+{$ifdef Darwin}
+ SharedSuffix = 'dylib';
+{$else Darwin}
+{$endif Darwin}
@@ -25,6 +25,8 @@ Type