diff options
| author | pierre <pierre@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-11-03 22:08:11 +0000 |
|---|---|---|
| committer | pierre <pierre@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2009-11-03 22:08:11 +0000 |
| commit | a97a70b2e6cac4841aa8f8627aa11d9589ccb8eb (patch) | |
| tree | 2cb87c9a2b0cfc1d2e23947d0c7298f90200025f | |
| parent | b0a18aea689d4a9d29bd1b043e1d89ed241e1bbc (diff) | |
| download | fpc-a97a70b2e6cac4841aa8f8627aa11d9589ccb8eb.tar.gz | |
* Add start_break_number field to TGDBController object
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@14019 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | packages/gdbint/src/gdbcon.pp | 2 |
1 files changed, 2 insertions, 0 deletions
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; |