From 25cf4163695bb0ee3beed739cd177510ca1fa01c Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Fri, 28 Oct 2016 16:19:12 +0200
Subject: [PATCH] #97, watchpoints, stop reason is function of watch type

---
 src/ce_gdb.pas | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/ce_gdb.pas b/src/ce_gdb.pas
index 7c4082b1..f996fe41 100644
--- a/src/ce_gdb.pas
+++ b/src/ce_gdb.pas
@@ -1568,13 +1568,15 @@ begin
   begin
     reason := val.AsString;
 
-    if (reason = 'breakpoint-hit') or (reason = 'end-stepping-range') or
-      (reason = 'watchpoint-trigger') then
+    if (reason = 'breakpoint-hit') or (reason = 'end-stepping-range')
+    or (reason = 'watchpoint-trigger') or (reason = 'access-watchpoint-trigger')
+    or (reason = 'read-watchpoint-trigger') then
     begin
       case reason of
         'breakpoint-hit': brkreason := dbBreakPoint;
         'end-stepping-range': brkreason := dbStep;
-        'watchpoint-trigger': brkreason:= dbWatch;
+        'watchpoint-trigger', 'access-watchpoint-trigger', 'read-watchpoint-trigger':
+          brkreason:= dbWatch;
       end;
       if brkreason = dbWatch then
       begin