paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-26 19:33:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add start_break_number field to TGDBController object

Browse Source 
git-svn-id: trunk@14019 -
This commit is contained in:
pierre 2009-11-03 22:08:11 +00:00
parent 8bc0583045
commit de0f1b2866
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/gdbint/src/gdbcon.pp
View File

@ -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;