paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 04:29:17 +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, got_error,
reset_command, reset_command,
call_reset, call_reset,
Debugger_started : boolean; Debuggee_started : boolean;
{ frames and frame info while recording a frame } { frames and frame info while recording a frame }
frames : ppframeentry; frames : ppframeentry;
frame_size, frame_size,
@ -89,8 +89,12 @@ type
procedure DoEndSession(code:longint);virtual; procedure DoEndSession(code:longint);virtual;
procedure DoDebuggerScreen;virtual; procedure DoDebuggerScreen;virtual;
procedure DoUserScreen;virtual; procedure DoUserScreen;virtual;
function AllowQuit : boolean;virtual;
end; end;
function GDBVersion : string;
var var
curr_gdb : pgdbinterface; curr_gdb : pgdbinterface;
@ -155,6 +159,16 @@ procedure TGDBInterface.DoUserScreen;
begin begin
end; end;
function tgdbinterface.AllowQuit : boolean;
begin
AllowQuit:=true;
end;
function GDBVersion : string;
begin
Version:='Fake GDB';
end;
{***************************************************************************** {*****************************************************************************
TFrameEntry TFrameEntry
*****************************************************************************} *****************************************************************************}
@ -252,7 +266,12 @@ end;
end. end.
{ {
$Log$ $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 * updated
} }