mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-24 13:32:31 +02:00
+ Set_current_frame/Get_current_frame dummies
This commit is contained in:
parent
44726335cc
commit
fbf4adeb5e
@ -86,6 +86,8 @@ type
|
|||||||
{ functions }
|
{ functions }
|
||||||
function error:boolean;
|
function error:boolean;
|
||||||
function error_num:longint;
|
function error_num:longint;
|
||||||
|
function get_current_frame : longint;
|
||||||
|
function set_current_frame(level : longint) : boolean;
|
||||||
procedure DebuggerScreen;
|
procedure DebuggerScreen;
|
||||||
procedure UserScreen;
|
procedure UserScreen;
|
||||||
{ Hooks }
|
{ Hooks }
|
||||||
@ -135,6 +137,16 @@ begin
|
|||||||
error_num:=0;
|
error_num:=0;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TGDBInterface.get_current_frame : longint;
|
||||||
|
begin
|
||||||
|
get_current_frame:=0;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TGDBInterface.set_current_frame(level : longint) : boolean;
|
||||||
|
begin
|
||||||
|
set_current_frame:=true;
|
||||||
|
end;
|
||||||
|
|
||||||
procedure TGDBInterface.Clear_Frames;
|
procedure TGDBInterface.Clear_Frames;
|
||||||
begin
|
begin
|
||||||
end;
|
end;
|
||||||
@ -286,7 +298,10 @@ end;
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.6 1999-11-25 20:22:59 peter
|
Revision 1.7 2000-02-07 13:19:43 pierre
|
||||||
|
+ Set_current_frame/Get_current_frame dummies
|
||||||
|
|
||||||
|
Revision 1.6 1999/11/25 20:22:59 peter
|
||||||
* package dependencies
|
* package dependencies
|
||||||
|
|
||||||
Revision 1.5 1999/09/10 08:44:20 peter
|
Revision 1.5 1999/09/10 08:44:20 peter
|
||||||
@ -307,4 +322,3 @@ end.
|
|||||||
* updated
|
* updated
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user