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

FpDebug: Don't create empty CFA entries

Browse Source
This commit is contained in:
Martin 2024-05-22 12:11:49 +02:00
parent 0e3a451627
commit 4e543b65ce
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpdebug/fpdbgdwarfdataclasses.pas
View File

@ -4151,9 +4151,11 @@ begin
for i := 0 to high(FFiles) do
begin
inf := FFiles[i].Sections[dsFrame];
if inf.Size = 0 then
continue;
CFI := TDwarfCallFrameInformation.Create;
FCallFrameInformationList.Add(CFI);
p := inf.RawData;
pe := inf.RawData + inf.Size;
while (p <> nil) and (p < pe) do