Browse Source

* Add start_break_number field to TGDBController object

git-svn-id: trunk@14019 -
pierre 15 years ago
parent
commit
de0f1b2866
1 changed files with 2 additions and 0 deletions
  1. 2 0
      packages/gdbint/src/gdbcon.pp

+ 2 - 0
packages/gdbint/src/gdbcon.pp

@@ -23,6 +23,7 @@ type
     progname,
     progname,
     progdir,
     progdir,
     progargs   : pchar;
     progargs   : pchar;
+    start_break_number,
     in_command,
     in_command,
     init_count : longint;
     init_count : longint;
     constructor Init;
     constructor Init;
@@ -245,6 +246,7 @@ end;
 procedure TGDBController.StartTrace;
 procedure TGDBController.StartTrace;
 begin
 begin
   Command('tbreak PASCALMAIN');
   Command('tbreak PASCALMAIN');
+  start_break_number:=last_breakpoint_number;
   Run;
   Run;
 end;
 end;