paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-21 11:39:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazDebuggerFp: Clean up

Browse Source 
git-svn-id: trunk@61745 -
This commit is contained in:
martin 2019-08-22 21:33:22 +00:00
parent 27171a439a
commit c66f2fd121
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazdebuggers/lazdebuggerfp/fpdebugdebugger.pas
View File

@ -1417,11 +1417,10 @@ begin
end; end;
if defNoTypeInfo in EvalFlags then if defNoTypeInfo in EvalFlags then
Res := FPrettyPrinter.PrintValue(AResText, APasExpr.ResultValue, DispFormat, RepeatCnt) Res := FPrettyPrinter.PrintValue(AResText, ResValue, DispFormat, RepeatCnt)
else else
Res := FPrettyPrinter.PrintValue(AResText, ATypeInfo, APasExpr.ResultValue, DispFormat, RepeatCnt); Res := FPrettyPrinter.PrintValue(AResText, ATypeInfo, ResValue, DispFormat, RepeatCnt);
// PCHAR/String // PCHAR/String
if APasExpr.HasPCharIndexAccess then begin if APasExpr.HasPCharIndexAccess then begin