paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 19:39:24 +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 for i := 0 to SymbolCount-1 do
begin begin
begin begin
{$push}
{$R-}
if SymbolArr32^[i].st_name<>0 then if SymbolArr32^[i].st_name<>0 then
begin begin
SectIdx := SymbolArr32^[i].st_shndx; SectIdx := SymbolArr32^[i].st_shndx;
@ -521,12 +523,11 @@ begin
continue; // not loaded, symbol not in memory continue; // not loaded, symbol not in memory
SymbolName:=pchar(SymbolStr+SymbolArr32^[i].st_name); SymbolName:=pchar(SymbolStr+SymbolArr32^[i].st_name);
{$push} {$Q-}{$R-}
{$Q-}{$R-}
AfpSymbolInfo.Add(SymbolName, TDBGPtr(SymbolArr32^[i].st_value+RelocationOffset), AfpSymbolInfo.Add(SymbolName, TDBGPtr(SymbolArr32^[i].st_value+RelocationOffset),
Sect^.Address + Sect^.Size+RelocationOffset); Sect^.Address + Sect^.Size+RelocationOffset);
{$pop}
end; end;
{$pop}
end end
end; end;
end; end;