Prechádzať zdrojové kódy

* fix bootstrap with 3.2.2, whi

marcoonthegit 3 rokov pred
rodič
commit
46de243fe6
1 zmenil súbory, kde vykonal 5 pridanie a 0 odobranie
  1. 5 0
      rtl/inc/heaptrc.pp

+ 5 - 0
rtl/inc/heaptrc.pp

@@ -1260,7 +1260,12 @@ type
     dli_saddr      : pointer;
     dli_saddr      : pointer;
   end;
   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';
   function _dladdr(Lib:pointer; info: Pdl_info): Longint; cdecl; weakexternal LibDL name 'dladdr';
+{$endif}
 {$elseif defined(MSWINDOWS)}
 {$elseif defined(MSWINDOWS)}
   function _GetModuleFileNameA(hModule:HModule;lpFilename:PAnsiChar;nSize:cardinal):cardinal;stdcall; external 'kernel32' name 'GetModuleFileNameA';
   function _GetModuleFileNameA(hModule:HModule;lpFilename:PAnsiChar;nSize:cardinal):cardinal;stdcall; external 'kernel32' name 'GetModuleFileNameA';
 {$endif}
 {$endif}