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

FpDebug: add DW_OP_stack_value

Browse Source
This commit is contained in:
Martin 2024-05-20 20:02:51 +02:00
parent 6c0ae5a584
commit 45094bcabe
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpdbgdwarfconst.pas
View File

@ -381,6 +381,8 @@ const
DW_OP_form_tls_address = $9b; // 0
DW_OP_call_frame_cfa = $9c; // 0
DW_OP_bit_piece = $9d; // 2
// --- DWARF4 ---
DW_OP_stack_value = $9f; // 0
// --- ---
DW_OP_lo_user = $e0; //
DW_OP_hi_user = $ff; //

6
components/fpdebug/fpdbgdwarfdataclasses.pas
View File

@ -2633,6 +2633,12 @@ begin
DW_OP_call_frame_cfa = $9c; // 0
DW_OP_bit_piece = $9d; // 2
*)
// dwarf 4
DW_OP_stack_value: begin
EntryP := FStack.Peek;
EntryP^.MType := mlfConstantDeref;
end;
else
begin
debugln(FPDBG_DWARF_ERRORS, ['DWARF ERROR in TDwarfLocationExpression.Evaluate UNKNOWN ', CurInstr^]);