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

FpGdbmiDebugger: fixed crash, accessing nil object

Browse Source 
git-svn-id: trunk@45036 -
This commit is contained in:
martin 2014-05-14 15:44:24 +00:00
parent a2286d1c09
commit 1b1ec598f8
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/lazdebuggers/lazdebuggerfpgdbmi/fpgdbmidebugger.pp
View File

@ -1049,8 +1049,11 @@ DebugLn(FPGDBDBG_VERBOSE, [ErrorHandler.ErrorAsString(PasExpr.Error)]);
else else
AResText := '{Type=} unknown'; AResText := '{Type=} unknown';
Result := True; Result := True;
AWatchValue.Value := AResText; if AWatchValue <> nil then begin
AWatchValue.Validity := ddsValid; // TODO ddsError ? if not IsWatchValueAlive then exit;
AWatchValue.Value := AResText;
AWatchValue.Validity := ddsValid; // TODO ddsError ?
end;
exit; exit;
end; end;
end; end;