paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-18 14:50:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add overload to fix issue 40931 in lazarus

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-07-16 19:06:22 +02:00 committed by Pierre Muller
parent abd293beab
commit 0377c1634b
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/inc/exeinfo.pp
View File

@ -60,7 +60,8 @@ 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:ansistring):boolean;
function ReadDebugLink(var e:TExeFile;var dbgfn:ansistring):boolean; overload;
function ReadDebugLink(var e:TExeFile;var dbgfn:shortstring):boolean; overload;
{$ifdef CPUI8086}
procedure GetModuleByAddr(addr: farpointer; var baseaddr: farpointer; var filename: ansistring);
@ -76,6 +77,18 @@ uses
{$endif}
strings{$ifdef windows},windows{$endif windows};
function ReadDebugLink(var e:TExeFile;var dbgfn:shortstring):boolean;
var
fn : ansistring;
begin
ReadDebugLink:=ReadDebugLink(e,fn);
if ReadDebugLink then
dbgfn:=fn;
end;
{$if defined(unix) and not defined(beos) and not defined(haiku)}
procedure GetModuleByAddr(addr: pointer; var baseaddr: pointer; var filename: ansistring);