|
|
@@ -49,7 +49,7 @@ type
|
|
|
got_error,
|
|
|
reset_command,
|
|
|
call_reset,
|
|
|
- Debugger_started : boolean;
|
|
|
+ Debuggee_started : boolean;
|
|
|
{ frames and frame info while recording a frame }
|
|
|
frames : ppframeentry;
|
|
|
frame_size,
|
|
|
@@ -89,8 +89,12 @@ type
|
|
|
procedure DoEndSession(code:longint);virtual;
|
|
|
procedure DoDebuggerScreen;virtual;
|
|
|
procedure DoUserScreen;virtual;
|
|
|
+ function AllowQuit : boolean;virtual;
|
|
|
+
|
|
|
end;
|
|
|
|
|
|
+function GDBVersion : string;
|
|
|
+
|
|
|
var
|
|
|
curr_gdb : pgdbinterface;
|
|
|
|
|
|
@@ -155,6 +159,16 @@ procedure TGDBInterface.DoUserScreen;
|
|
|
begin
|
|
|
end;
|
|
|
|
|
|
+function tgdbinterface.AllowQuit : boolean;
|
|
|
+begin
|
|
|
+ AllowQuit:=true;
|
|
|
+end;
|
|
|
+
|
|
|
+function GDBVersion : string;
|
|
|
+begin
|
|
|
+ Version:='Fake GDB';
|
|
|
+end;
|
|
|
+
|
|
|
{*****************************************************************************
|
|
|
TFrameEntry
|
|
|
*****************************************************************************}
|
|
|
@@ -252,7 +266,12 @@ end;
|
|
|
end.
|
|
|
{
|
|
|
$Log$
|
|
|
- Revision 1.1 1999-02-16 10:44:15 peter
|
|
|
+ Revision 1.2 1999-07-12 13:08:20 pierre
|
|
|
+ + added GDBVersion function
|
|
|
+ * tries to intercept quit command from GDB Window
|
|
|
+ + AllowQuit method
|
|
|
+
|
|
|
+ Revision 1.1 1999/02/16 10:44:15 peter
|
|
|
* updated
|
|
|
|
|
|
}
|
pierre