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

Use DEBUG_LINEINFO instead of DEBUG in exeinfo unit source

Browse Source 
git-svn-id: trunk@34521 -
This commit is contained in:
pierre 2016-09-13 08:37:52 +00:00
parent a55c176bef
commit dcd349abd9
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

@ -882,7 +882,7 @@ begin
found_addr:=phdr^.p_vaddr;
inc(pointer(phdr), phdr_size);
end;
{$ifdef DEBUG}
{$ifdef DEBUG_LINEINFO}
end
else
begin
@ -892,26 +892,26 @@ begin
writeln(stderr,'AUX entry AT_PHENT not found');
if (phdr=nil) then
writeln(stderr,'AUX entry AT_PHDR not found');
{$endif DEBUG}
{$endif DEBUG_LINEINFO}
end;
if found_addr<>ptruint(-1) then
begin
{$ifdef DEBUG}
{$ifdef DEBUG_LINEINFO}
Writeln(stderr,'Found addr = $',hexstr(found_addr,2 * sizeof(ptruint)));
{$endif}
BaseAddr:=pointer(found_addr);
end
{$ifdef DEBUG}
{$ifdef DEBUG_LINEINFO}
else
writeln(stderr,'Error parsing stack');
{$endif DEBUG}
{$endif DEBUG_LINEINFO}
end
else
begin
{$ifdef DEBUG}
{$ifdef DEBUG_LINEINFO}
writeln(stderr,'Exception parsing stack');
{$endif DEBUG}
{$endif DEBUG_LINEINFO}
end;
ExitProc:=SavedExitProc;
end;