revert DoOpenDll for Linux, change only for Haiku

Alexey-T · Sep 6, 2023 · c45c546 · c45c546
1 parent 60146c7
commit c45c546
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/python4lazarus/PythonEngine.pas b/python4lazarus/PythonEngine.pas
@@ -3011,8 +3011,12 @@ procedure TDynamicDll.DoOpenDll(const aDllName : String);
     {$ifdef windows}
     FDLLHandle := Windows.LoadLibrary(PChar(S));
     {$else}
-    //Linux: need here RTLD_GLOBAL, so Python can do "import ctypes"
-    FDLLHandle := PtrInt(dlopen(PAnsiChar(S), RTLD_NOW+RTLD_GLOBAL));
+      //Linux: need here RTLD_GLOBAL, so Python can do "import ctypes"
+      {$ifdef haiku}
+      FDLLHandle := PtrInt(dlopen(PAnsiChar(S), RTLD_NOW+RTLD_GLOBAL));
+      {$else}
+      FDLLHandle := PtrInt(dlopen(PAnsiChar(S), RTLD_LAZY+RTLD_GLOBAL));
+      {$endif}
     {$endif}
   end;
 end;