paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-15 23:50:29 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix compilation

Browse Source
This commit is contained in:
Michael VAN CANNEYT 2022-12-22 15:45:06 +01:00 committed by Michaël Van Canneyt
parent d23fa5a87f
commit 2339db3b00
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/inc/exeinfo.pp
View File

@ -60,12 +60,12 @@ type
function OpenExeFile(var e:TExeFile;const fn:shortstring):boolean;
function FindExeSection(var e:TExeFile;const secname:shortstring;var secofs,seclen:longint):boolean;
function CloseExeFile(var e:TExeFile):boolean;
function ReadDebugLink(var e:TExeFile;var dbgfn:shortstring):boolean;
function ReadDebugLink(var e:TExeFile;var dbgfn:ansistring):boolean;
{$ifdef CPUI8086}
procedure GetModuleByAddr(addr: farpointer; var baseaddr: farpointer; var filename: shortstring);
procedure GetModuleByAddr(addr: farpointer; var baseaddr: farpointer; var filename: ansistring);
{$else CPUI8086}
procedure GetModuleByAddr(addr: pointer; var baseaddr: pointer; var filename: shortstring);
procedure GetModuleByAddr(addr: pointer; var baseaddr: pointer; var filename: ansistring);
{$endif CPUI8086}
implementation
@ -78,7 +78,7 @@ uses
{$if defined(unix) and not defined(beos) and not defined(haiku)}
procedure GetModuleByAddr(addr: pointer; var baseaddr: pointer; var filename: shortstring);
procedure GetModuleByAddr(addr: pointer; var baseaddr: pointer; var filename: ansistring);
begin
if assigned(UnixGetModuleByAddrHook) then
UnixGetModuleByAddrHook(addr,baseaddr,filename)
@ -906,7 +906,7 @@ begin
end;
procedure GetExeInMemoryBaseAddr(addr : pointer; var BaseAddr : pointer;
var filename : openstring);
var filename : ansistring);
type
AT_HDR = record
typ : ptruint;
@ -1588,7 +1588,7 @@ begin
end;
{$ifndef darwin}
function ReadDebugLink(var e:TExeFile;var dbgfn:shortstring):boolean;
function ReadDebugLink(var e:TExeFile;var dbgfn:ansistring):boolean;
var
dbglink : array[0..255] of AnsiChar;
i,
@ -1632,7 +1632,7 @@ begin
end;
end;
{$else}
function ReadDebugLink(var e:TExeFile;var dbgfn:shortstring):boolean;
function ReadDebugLink(var e:TExeFile;var dbgfn:ansistring):boolean;
var
dsymexefile: TExeFile;
execmd, dsymcmd: pmach_load_command;