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

Debugger, GDBMI: Disable WarnOnSetBreakpointError

Browse Source 
git-svn-id: trunk@48520 -
This commit is contained in:
martin 2015-03-27 16:10:17 +00:00
parent 094ca7530a
commit a7d7e1edcb
3 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/lazdebuggergdbmi/gdbmidebugger.pp
View File

@ -195,7 +195,7 @@ type
property UseNoneMiRunCommands;
property DisableLoadSymbolsForLibraries;
property DisableForcedBreakpoint;
property WarnOnSetBreakpointError;
//property WarnOnSetBreakpointError;
end;
TGDBMIDebugger = class;
@ -5336,16 +5336,16 @@ begin
end
else CanContinue := True;
if FTheDebugger.DebuggerFlags * [dfSetBreakFailed, dfSetBreakPending] <> [] then begin
if FTheDebugger.OnFeedback
(self, Format(synfTheDebuggerWasUnableToSetAllBreakpointsDuringIniti,
[LineEnding]), '', ftWarning, [frOk, frStop]) = frStop
then begin
StateStopped := True;
SetDebuggerState(dsStop);
exit;
end;
end;
//if FTheDebugger.DebuggerFlags * [dfSetBreakFailed, dfSetBreakPending] <> [] then begin
// if FTheDebugger.OnFeedback
// (self, Format(synfTheDebuggerWasUnableToSetAllBreakpointsDuringIniti,
// [LineEnding]), '', ftWarning, [frOk, frStop]) = frStop
// then begin
// StateStopped := True;
// SetDebuggerState(dsStop);
// exit;
// end;
//end;
if StoppedAtEntryPoint and CanContinue and (FContinueCommand = nil) then begin
// try to step to pascal code

1
components/lazdebuggergdbmi/gdbmiserverdebugger.pas
View File

@ -76,6 +76,7 @@ type
property InternalStartBreak;
property UseNoneMiRunCommands;
property DisableLoadSymbolsForLibraries;
//property WarnOnSetBreakpointError;
end;
procedure Register;

1
components/lazdebuggergdbmi/sshgdbmidebugger.pas
View File

@ -87,6 +87,7 @@ type
property InternalStartBreak;
property UseNoneMiRunCommands;
property DisableLoadSymbolsForLibraries;
//property WarnOnSetBreakpointError;
end;
procedure Register;