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

LazDebuggerFp: return typeinfo for watches

Browse Source 
git-svn-id: trunk@59558 -
This commit is contained in:
martin 2018-11-16 13:18:28 +00:00
parent e1a6096d71
commit f275a9445c
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1402,7 +1402,11 @@ begin
if AWatchValue <> nil then if AWatchValue <> nil then
begin begin
AWatchValue.Value := AResText; //IntToStr(APasExpr.ResultValue.AsInteger); AWatchValue.Value := AResText; //IntToStr(APasExpr.ResultValue.AsInteger);
AWatchValue.Validity := ddsValid; AWatchValue.TypeInfo := ATypeInfo;
if IsError(ResValue.LastError) then
AWatchValue.Validity := ddsError
else
AWatchValue.Validity := ddsValid;
end; end;
end end
else else
@ -1410,6 +1414,7 @@ begin
AResText := 'Error'; AResText := 'Error';
if AWatchValue <> nil then if AWatchValue <> nil then
AWatchValue.Validity := ddsInvalid; AWatchValue.Validity := ddsInvalid;
FreeAndNil(ATypeInfo);
end; end;
end; end;
finally finally
@ -1485,7 +1490,6 @@ begin
WatchValue.RemoveFreeNotification(@DoWatchFreed); WatchValue.RemoveFreeNotification(@DoWatchFreed);
EvaluateExpression(WatchValue, WatchValue.Expression, AVal, AType); EvaluateExpression(WatchValue, WatchValue.Expression, AVal, AType);
AType.Free;
if (not FWatchAsyncQueued) and (FWatchEvalList.Count > 0) then if (not FWatchAsyncQueued) and (FWatchEvalList.Count > 0) then
begin begin