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

FpDebug: Handle CIEs and FDEs without instructions properly

Browse Source
This commit is contained in:
Joost van der Sluis 2022-07-02 00:30:06 +02:00
parent 9f9fdf6a9d
commit 4ed7f56bb4
2 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpdebug/fpdbgdwarfcfi.pas
View File

@ -261,6 +261,11 @@ var
uparam1, uparam2: QWord;
sparam: Int64;
begin
if Length(Instructions) = 0 then
begin
Result := True;
Exit;
end;
Result := False;
if Instructions=nil then exit;
p := @Instructions[0];

7
components/fpdebug/fpdbgdwarfdataclasses.pas
View File

@ -3935,8 +3935,11 @@ var
// initial instructions')
Dec(SizeLeft, p-Augmentation);
SetLength(Instructions, SizeLeft);
Move(p^, Instructions[0], SizeLeft);
Result.InitialInstructions := Instructions;
if SizeLeft > 0 then
begin
Move(p^, Instructions[0], SizeLeft);
Result.InitialInstructions := Instructions;
end;
end;
function LoadFDE(CFI: TDwarfCallFrameInformation; CIEPointer: QWord; InitialLocationAddr: pointer; SizeLeft: QWord): TDwarfFDE;