forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

#97, watchpoints, stop reason is function of watch type

This commit is contained in:
Basile Burg 2016-10-28 16:19:12 +02:00
parent 8e513f8b52
commit 25cf416369
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/ce_gdb.pas
View File

@ -1568,13 +1568,15 @@ begin
begin begin
reason := val.AsString; reason := val.AsString;
if (reason = 'breakpoint-hit') or (reason = 'end-stepping-range') or if (reason = 'breakpoint-hit') or (reason = 'end-stepping-range')
(reason = 'watchpoint-trigger') then or (reason = 'watchpoint-trigger') or (reason = 'access-watchpoint-trigger')
or (reason = 'read-watchpoint-trigger') then
begin begin
case reason of case reason of
'breakpoint-hit': brkreason := dbBreakPoint; 'breakpoint-hit': brkreason := dbBreakPoint;
'end-stepping-range': brkreason := dbStep; 'end-stepping-range': brkreason := dbStep;
'watchpoint-trigger': brkreason:= dbWatch; 'watchpoint-trigger', 'access-watchpoint-trigger', 'read-watchpoint-trigger':
brkreason:= dbWatch;
end; end;
if brkreason = dbWatch then if brkreason = dbWatch then
begin begin