paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-08 00:27:59 +01:00
Code Issues Packages Projects Releases Wiki Activity

* removed step tests

Browse Source
This commit is contained in:
peter 1999-02-19 16:54:41 +00:00
parent 0cdb2dcf20
commit 6b533cfcc4
1 changed files with 11 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ide/fake/gdb/gdbcon.pas
View File

@ -68,14 +68,17 @@ procedure TGDBController.Command(const s:string);
begin
end;
procedure TGDBController.CommandBegin(const s:string);
begin
end;
procedure TGDBController.CommandEnd(const s:string);
begin
end;
procedure TGDBController.Reset;
begin
end;
@ -91,34 +94,24 @@ begin
end;
var
stepline : longint;
procedure TGDBController.StartTrace;
begin
Run;
end;
procedure TGDBController.Run;
begin
stepline:=1;
DoSelectSourceLine('test.pas',stepline);
end;
procedure TGDBController.TraceStep;
begin
inc(stepline);
DoUserScreen;
DoDebuggerScreen;
DoSelectSourceLine('test.pas',stepline);
end;
procedure TGDBController.TraceNext;
begin
inc(stepline,2);
DoUserScreen;
DoDebuggerScreen;
DoSelectSourceLine('test.pas',stepline);
end;
@ -141,11 +134,13 @@ procedure TGDBController.WriteOutputBuf;
begin
end;
function TGDBController.GetOutput : Pchar;
begin
GetOutput:=nil;
end;
function TGDBController.GetError : Pchar;
begin
GetError:=nil;
@ -154,7 +149,10 @@ end;
end.
{
$Log$
Revision 1.10 1999-02-16 10:44:14 peter
Revision 1.11 1999-02-19 16:54:41 peter
* removed step tests
Revision 1.10 1999/02/16 10:44:14 peter
* updated
Revision 1.9 1999/02/11 13:03:28 pierre