paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 23:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

DBG: User-Feedback for watchpoint errors

Browse Source 
git-svn-id: trunk@32830 -
This commit is contained in:
martin 2011-10-11 23:24:09 +00:00
parent a46dcdb4d8
commit 5bdf949df0
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
debugger/gdbmidebugger.pp
View File

@ -4785,11 +4785,11 @@ end;
{$ENDIF}
function TGDBMIDebuggerCommandExecute.DoExecute: Boolean;
const
BreaKErrMsg = 'not insert breakpoint ';
WatchErrMsg = 'not insert hardware watchpoint ';
function HandleBreakPointError(var ARes: TGDBMIExecResult; AError: String): Boolean;
const
BreaKErrMsg = 'not insert breakpoint ';
WatchErrMsg = 'not insert hardware watchpoint ';
function ErrPos(s: string): integer;
var
@ -4882,8 +4882,10 @@ function TGDBMIDebuggerCommandExecute.DoExecute: Boolean;
SetDebuggerState(dsError);
exit;
end;
if (Pos('Cannot insert breakpoint', ARes.Values) > 0) or
(Pos('Cannot insert breakpoint', FLogWarnings) > 0)
if (Pos(BreaKErrMsg, ARes.Values) > 0) or
(Pos(BreaKErrMsg, FLogWarnings) > 0) or
(Pos(WatchErrMsg, ARes.Values) > 0) or
(Pos(WatchErrMsg, FLogWarnings) > 0)
then begin
Result := HandleBreakPointError(ARes, ARes.Values + FLogWarnings);
if Result then exit;