From de0f1b2866e2771088d2b3b627d6217b5a476f45 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Tue, 3 Nov 2009 22:08:11 +0000
Subject: [PATCH]   * Add start_break_number field to TGDBController object

git-svn-id: trunk@14019 -
---
 packages/gdbint/src/gdbcon.pp | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/packages/gdbint/src/gdbcon.pp b/packages/gdbint/src/gdbcon.pp
index 4742027c3e..7785b720a5 100644
--- a/packages/gdbint/src/gdbcon.pp
+++ b/packages/gdbint/src/gdbcon.pp
@@ -23,6 +23,7 @@ type
     progname,
     progdir,
     progargs   : pchar;
+    start_break_number,
     in_command,
     init_count : longint;
     constructor Init;
@@ -245,6 +246,7 @@ end;
 procedure TGDBController.StartTrace;
 begin
   Command('tbreak PASCALMAIN');
+  start_break_number:=last_breakpoint_number;
   Run;
 end;