From fbf4adeb5eb057448016520c2d3a5d16737ef66e Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 7 Feb 2000 13:19:43 +0000
Subject: [PATCH]  + Set_current_frame/Get_current_frame dummies

---
 ide/fake/gdb/gdbint.pas | 20 +++++++++++++++++---
 1 file changed, 17 insertions(+), 3 deletions(-)

diff --git a/ide/fake/gdb/gdbint.pas b/ide/fake/gdb/gdbint.pas
index b9c45b3bcb..13a3bc84a8 100644
--- a/ide/fake/gdb/gdbint.pas
+++ b/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
 
-}
-
+}
\ No newline at end of file