Переглянути джерело

* fix bootstrap with 3.2.2, whi

marcoonthegit 3 роки тому
батько
коміт
46de243fe6
1 змінених файлів з 5 додано та 0 видалено
  1. 5 0
      rtl/inc/heaptrc.pp

+ 5 - 0
rtl/inc/heaptrc.pp

@@ -1260,7 +1260,12 @@ type
     dli_saddr      : pointer;
   end;
 
+// *BSD isn't flagged for "weak"  support in 3.2.2
+{$if defined(BSD) and defined (VER3_2)}
+  function _dladdr(Lib:pointer; info: Pdl_info): Longint; cdecl; external LibDL name 'dladdr';
+{$else}
   function _dladdr(Lib:pointer; info: Pdl_info): Longint; cdecl; weakexternal LibDL name 'dladdr';
+{$endif}
 {$elseif defined(MSWINDOWS)}
   function _GetModuleFileNameA(hModule:HModule;lpFilename:PAnsiChar;nSize:cardinal):cardinal;stdcall; external 'kernel32' name 'GetModuleFileNameA';
 {$endif}