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

LazDebuggerFp: fix "variant" converter for dwarf-2

Browse Source 
(cherry picked from commit ac0faad39a)
This commit is contained in:
Martin 2024-04-21 11:30:04 +02:00
parent 9b2a8b054a
commit e740c08173
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/lazdebuggers/lazdebuggerfp/fpdebugfpcconvvariantnormalizer.pas
View File

@ -227,8 +227,14 @@ begin
try try
i := vtype.AsInteger; i := vtype.AsInteger;
case i of case i of
0: AnResData.CreatePrePrinted('<Empty>'); 0: begin
1: AnResData.CreatePrePrinted('<Null>'); AnResData.CreatePrePrinted('<Empty>');
exit;
end;
1: begin
AnResData.CreatePrePrinted('<Null>');
exit;
end;
2: Result := ASourceValue.MemberByName['VSMALLINT']; 2: Result := ASourceValue.MemberByName['VSMALLINT'];
3: Result := ASourceValue.MemberByName['VINTEGER']; 3: Result := ASourceValue.MemberByName['VINTEGER'];
4: Result := ASourceValue.MemberByName['VSINGLE']; 4: Result := ASourceValue.MemberByName['VSINGLE'];