paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 02:19:50 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpDebug: Set Sect.VirtualAddress on Linux / See merge request !36 by ccrause

Browse Source
This commit is contained in:
Martin 2021-11-05 17:38:45 +01:00
parent adafca05c0
commit 3b9f8954ba
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpimgreaderelf.pas
View File

@ -332,7 +332,7 @@ begin
New(p); New(p);
P^.Offs := fs.FileOfs; P^.Offs := fs.FileOfs;
p^.Sect.Size := fs.Size; p^.Sect.Size := fs.Size;
p^.Sect.VirtualAddress := 0; // Todo? fs.Address - ImageBase p^.Sect.VirtualAddress := fs.Address; //0; // Todo? fs.Address - ImageBase
p^.Loaded := False; p^.Loaded := False;
FSections.Objects[idx] := TObject(p); FSections.Objects[idx] := TObject(p);
end; end;