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

Debugger: fixed range check in WatchDisplayFormat

Browse Source
This commit is contained in:
Martin 2024-03-01 21:11:23 +01:00
parent 68174a162e
commit d109bb3725
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/packages/idedebugger/idedebuggerwatchresprinter.pas
View File

@ -464,7 +464,8 @@ begin
if (Resolved.StructAddrFormat <> vdfStructAddressOff) or (AResValue.FieldCount = 0)
then begin
Result := PrintNumber(AResValue.DataAddress, AResValue.DataAddress, FTargetAddressSize, Resolved);
// TODO: for 32 bit target, sign extend the 2nd argument
Result := PrintNumber(AResValue.DataAddress, Int64(AResValue.DataAddress), FTargetAddressSize, Resolved);
if (Resolved.PointerFormat = vdfPointerTypedAddress) and (tn <> '') then
Result := tn + '(' + Result + ')';