Browse Source

* removed step tests

peter 26 years ago
parent
commit
6b533cfcc4
1 changed files with 11 additions and 13 deletions
  1. 11 13
      ide/fake/gdb/gdbcon.pas

+ 11 - 13
ide/fake/gdb/gdbcon.pas

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