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