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

	* generic/gdbtk-stack.c (gdb_selected_frame): Use get_frame_base
	instead of FRAME_FP.  Mention that get_frame_id() should be used.

diff --git a/gdb/gdbtk/ChangeLog b/gdb/gdbtk/ChangeLog
index 5f7490d..12bf68b 100644 (file)
--- a/gdb/gdbtk/ChangeLog
+++ b/gdb/gdbtk/ChangeLog
@@ -1,5 +1,10 @@
 2002-11-19  Andrew Cagney  <ac131313@redhat.com>
 
+       * generic/gdbtk-stack.c (gdb_selected_frame): Use get_frame_base
+       instead of FRAME_FP.  Mention that get_frame_id() should be used.
+       
+2002-11-19  Andrew Cagney  <ac131313@redhat.com>
+
        * generic/gdbtk-cmds.c (gdb_loc): Use get_frame_type instead of
        ->signal_handler_caller.
        * generic/gdbtk-stack.c (get_frame_name): Ditto.

diff --git a/gdb/gdbtk/generic/gdbtk-stack.c b/gdb/gdbtk/generic/gdbtk-stack.c
index 14f3148..0f43f97 100644 (file)
--- a/gdb/gdbtk/generic/gdbtk-stack.c
+++ b/gdb/gdbtk/generic/gdbtk-stack.c
@@ -420,7 +420,9 @@ gdb_selected_frame (ClientData clientData, Tcl_Interp *interp,
   if (selected_frame == NULL)
     xasprintf (&frame, "%s","");
   else
-    xasprintf (&frame, "0x%s", paddr_nz (FRAME_FP (selected_frame)));
+    /* FIXME: cagney/2002-11-19: This should be using get_frame_id()
+       to identify the frame and *NOT* get_frame_base().  */
+    xasprintf (&frame, "0x%s", paddr_nz (get_frame_base (selected_frame)));
 
   Tcl_SetStringObj (result_ptr->obj_ptr, frame, -1);