paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added GDBVersion function

Browse Source 
* tries to intercept quit command from GDB Window
  + AllowQuit method
This commit is contained in:
pierre 1999-07-12 13:08:20 +00:00
parent faa9e53302
commit 60f79ecd08
1 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
ide/fake/gdb/gdbint.pas
View File

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