From a97a70b2e6cac4841aa8f8627aa11d9589ccb8eb Mon Sep 17 00:00:00 2001
From: pierre <pierre@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Tue, 3 Nov 2009 22:08:11 +0000
Subject:   * Add start_break_number field to TGDBController object

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@14019 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 packages/gdbint/src/gdbcon.pp | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'packages/gdbint')

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;
 
-- 
cgit v1.2.1