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

FpDebug: fix address for interfaces

Browse Source
This commit is contained in:
Martin 2022-08-04 22:50:11 +02:00
parent 6f99f0fe16
commit 8749ca4f20
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpdebug/fpdbgdwarf.pas
View File

@ -3159,7 +3159,7 @@ begin
Result := Result + [svfMembers];
//TODO: svfDataAddress should depend on (hidden) Pointer or Ref in the TypeInfo
if Kind in [skClass] then begin
if Kind in [skClass, skInterface] then begin
Result := Result + [svfOrdinal, svfDataAddress, svfDataSize]; // svfDataSize
if ((FDataSymbol <> nil) and FDataSymbol.HasAddress) or
(HasTypeCastInfo and (Kind = skClass))

2
components/fpdebug/fpwatchresultdata.pas
View File

@ -528,7 +528,7 @@ begin
Addr := 0;
if (AnFpValue.Kind in [skClass, skInterface]) then begin
if AnFpValue.FieldFlags * [svfInteger, svfCardinal] <> [] then
if AnFpValue.FieldFlags * [svfInteger, svfCardinal, svfOrdinal] <> [] then
Addr := AnFpValue.AsCardinal
else
if svfDataAddress in AnFpValue.FieldFlags then