paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 03:19:55 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fpdebug: display more values

Browse Source 
git-svn-id: trunk@47131 -
This commit is contained in:
martin 2014-12-07 22:25:24 +00:00
parent 136a5214a6
commit bb622e5b7b
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
components/fpdebug/fppascalbuilder.pas
View File

@ -461,7 +461,7 @@ function TFpPascalPrettyPrinter.InternalPrintValue(out APrintedValue: String;
Result := '';
end;
procedure DoPointer;
procedure DoPointer(AnAddress: boolean);
var
s: String;
v: QWord;
@ -473,20 +473,23 @@ function TFpPascalPrettyPrinter.InternalPrintValue(out APrintedValue: String;
else
s := '';
if AnAddress then
v := AValue.Address.Address
else
v := AValue.AsCardinal;
if (ppvCreateDbgType in AFlags) then begin
ADBGTypeInfo^ := TDBGType.Create(skPointer, s);
ADBGTypeInfo^.Value.AsPointer := Pointer(AValue.AsCardinal); // TODO: no cut off
ADBGTypeInfo^.Value.AsPointer := Pointer(v); // TODO: no cut off
end;
v := AValue.AsCardinal;
case ADisplayFormat of
wdfDecimal, wdfUnsigned: APrintedValue := IntToStr(AValue.AsCardinal);
wdfHex: APrintedValue := '$'+IntToHex(AValue.AsCardinal, AnAddressSize*2);
wdfDecimal, wdfUnsigned: APrintedValue := IntToStr(v);
wdfHex: APrintedValue := '$'+IntToHex(v, AnAddressSize*2);
else begin //wdfPointer/Default ;
if v = 0 then
APrintedValue := 'nil'
else
APrintedValue := '$'+IntToHex(AValue.AsCardinal, AnAddressSize*2);
APrintedValue := '$'+IntToHex(v, AnAddressSize*2);
end;
end;
@ -861,7 +864,7 @@ begin
skUnit: ;
skProcedure: ;
skFunction: ;
skPointer: DoPointer;
skPointer: DoPointer(False);
skInteger: DoInt;
skCardinal: DoCardinal;
skBoolean: DoBool;
@ -880,6 +883,7 @@ begin
skClass: DoStructure;
skInterface: ;
skArray: DoArray;
skNone: DoPointer(true);
end;
if (ADBGTypeInfo <> nil) and (ADBGTypeInfo^ <> nil) then