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

IDE: Set Result in Debugmanager.DoCreateBreakPoint. Issue #20338, patch from alexvins

Browse Source 
git-svn-id: trunk@32510 -
This commit is contained in:
juha 2011-09-25 13:16:18 +00:00
parent 3de2864e7e
commit 0203c4d30c
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/debugmanager.pas
View File

@ -2402,7 +2402,7 @@ function TDebugManager.DoCreateBreakPoint(const AFilename: string;
var
ABrkPoint: TIDEBreakPoint;
begin
DoCreateBreakPoint(AFilename, ALine, WarnIfNoDebugger, ABrkPoint);
Result := DoCreateBreakPoint(AFilename, ALine, WarnIfNoDebugger, ABrkPoint);
end;
function TDebugManager.DoCreateBreakPoint(const AFilename: string; ALine: integer;
@ -2414,8 +2414,7 @@ begin
or (not FileIsExecutable(EnvironmentOptions.DebuggerFilename)))
then begin
if QuestionDlg(lisDbgMangNoDebuggerSpecified,
Format(lisDbgMangThereIsNoDebuggerSpecifiedSettingBreakpointsHaveNo, [#13]
),
Format(lisDbgMangThereIsNoDebuggerSpecifiedSettingBreakpointsHaveNo, [#13]),
mtWarning, [mrCancel, mrIgnore, lisDbgMangSetTheBreakpointAnyway], 0)
<>mrIgnore
then