+ Set_current_frame/Get_current_frame dummies

ide/fake/gdb/gdbint.pas

@@ -86,6 +86,8 @@ type
     { functions }
     function  error:boolean;
     function  error_num:longint;
+    function  get_current_frame : longint;
+    function  set_current_frame(level : longint) : boolean;
     procedure DebuggerScreen;
     procedure UserScreen;
     { Hooks }
@@ -135,6 +137,16 @@ begin
   error_num:=0;
 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;
 begin
 end;
@@ -286,7 +298,10 @@ end;
 end.
 {
   $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
 
   Revision 1.5  1999/09/10 08:44:20  peter
@@ -306,5 +321,4 @@ end.
   Revision 1.1  1999/02/16 10:44:15  peter
     * updated
 
-}
-
+}