paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-17 05:20:48 +01:00
Code Issues Packages Projects Releases Wiki Activity

GDBMI debugger, check result of SetFileName. Issue #0027431

Browse Source 
git-svn-id: trunk@47671 -
This commit is contained in:
martin 2015-02-10 04:06:31 +00:00
parent 665a2f6b95
commit 1c640605a8
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -5190,7 +5190,10 @@ begin
Exit; Exit;
end; end;
if not DoChangeFilename then exit; if not DoChangeFilename then begin
SetDebuggerErrorState(synfFailedToLoadApplicationExecutable, FErrorMsg);
exit;
end;
if not DoSetPascal then exit; if not DoSetPascal then exit;
DebugLn(['TGDBMIDebugger.StartDebugging WorkingDir="', FTheDebugger.WorkingDir,'"']); DebugLn(['TGDBMIDebugger.StartDebugging WorkingDir="', FTheDebugger.WorkingDir,'"']);

1
components/lazdebuggergdbmi/gdbmistringconstants.pas
View File

@ -78,6 +78,7 @@ resourcestring
+'debugger will terminate'; +'debugger will terminate';
lisResponseContinue = 'Response: %sContinue ?'; lisResponseContinue = 'Response: %sContinue ?';
dlgGroupDebugger = 'Debugger'; dlgGroupDebugger = 'Debugger';
synfFailedToLoadApplicationExecutable = 'Failed to load application executable';
implementation implementation