2002-11-18 Andrew Cagney <ac131313@redhat.com>

	* stack.c (frame_relative_level): Copy function from here ...
	* frame.c (frame_relative_level): ...to here.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index f9231cf..5440046 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,10 @@
 2002-11-18  Andrew Cagney  <ac131313@redhat.com>
 
+       * stack.c (frame_relative_level): Copy function from here ...
+       * frame.c (frame_relative_level): ...to here.
+
+2002-11-18  Andrew Cagney  <ac131313@redhat.com>
+
        * frame.h (enum frame_type): Define.
        (get_frame_type): Declare.
        (struct frame_info): Add field `type'.  Delete field

diff --git a/gdb/frame.c b/gdb/frame.c
index 616977e..d0e6b83 100644 (file)
--- a/gdb/frame.c
+++ b/gdb/frame.c
@@ -1007,6 +1007,18 @@ get_frame_pc (struct frame_info *frame)
   return frame->pc;
 }
 
+/* Level of the selected frame: 0 for innermost, 1 for its caller, ...
+   or -1 for a NULL frame.  */
+
+int
+frame_relative_level (struct frame_info *fi)
+{
+  if (fi == NULL)
+    return -1;
+  else
+    return fi->level;
+}
+
 enum frame_type
 get_frame_type (struct frame_info *frame)
 {

diff --git a/gdb/stack.c b/gdb/stack.c
index f98c98e..aee7679 100644 (file)
--- a/gdb/stack.c
+++ b/gdb/stack.c
@@ -115,22 +115,6 @@ extern int addressprint;   /* Print addresses, or stay symbolic only? */
 
 struct frame_info *selected_frame;
 
-/* Level of the selected frame:
-   0 for innermost, 1 for its caller, ...
-   or -1 for frame specified by address with no defined level.  */
-
-/* Level of the selected frame: 0 for innermost, 1 for its caller, ...
-   or -1 for NULL frame.  */
-
-int
-frame_relative_level (struct frame_info *fi)
-{
-  if (fi == NULL)
-    return -1;
-  else
-    return fi->level;
-}
-
 /* Zero means do things normally; we are interacting directly with the
    user.  One means print the full filename and linenumber when a
    frame is printed, and do so in a format emacs18/emacs19.22 can