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

DBG: Fixed warning due to unset result

Browse Source 
git-svn-id: trunk@28615 -
This commit is contained in:
martin 2010-12-04 01:29:54 +00:00
parent 5c9a47695a
commit 22e4034da0
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
debugger/gdbmidebugger.pp
View File

@ -2909,6 +2909,7 @@ var
CommandObj: TGDBMIDebuggerCommandExecute;
begin
Result := True;
FSuccess := False;
try
if not (DebuggerState in [dsStop])
@ -3051,6 +3052,7 @@ begin
if TargetInfo^.TargetPID = 0
then begin
Result := False;
FSuccess := False;
SetDebuggerState(dsError);
Exit;
end;
@ -3083,6 +3085,7 @@ begin
then FContinueCommand.Free;
end;
FSuccess := True;
end;
constructor TGDBMIDebuggerCommandStartDebugging.Create(AOwner: TGDBMIDebugger;