paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 13:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

FpDebug: fix reading large dwarf info on 32bit Linux

Browse Source
This commit is contained in:
Martin 2022-06-29 18:52:32 +02:00
parent 2d7b1138f4
commit bdb719b82a
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/fpdebug/fpimgreaderelf.pas
View File

@ -511,6 +511,8 @@ begin
for i := 0 to SymbolCount-1 do
begin
begin
{$push}
{$R-}
if SymbolArr32^[i].st_name<>0 then
begin
SectIdx := SymbolArr32^[i].st_shndx;
@ -521,12 +523,11 @@ begin
continue; // not loaded, symbol not in memory
SymbolName:=pchar(SymbolStr+SymbolArr32^[i].st_name);
{$push}
{$Q-}{$R-}
{$Q-}{$R-}
AfpSymbolInfo.Add(SymbolName, TDBGPtr(SymbolArr32^[i].st_value+RelocationOffset),
Sect^.Address + Sect^.Size+RelocationOffset);
{$pop}
end;
{$pop}
end
end;
end;