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

Debugger: keep type-name when changing result to error.

Browse Source
This commit is contained in:
Martin 2023-03-07 17:49:18 +01:00
parent 8494ca68fb
commit ce5e45acc2
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/packages/idedebugger/debugger.pp
View File

@ -3845,6 +3845,8 @@ begin
FNewResultData := TWatchResultDataError.Create(AVal)
else
TWatchResultDataError(FNewResultData).Create(AVal);
if FStoredResultData <> nil then
FNewResultData.SetTypeName(FStoredResultData.TypeName);
AfterDataCreated;
end;