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.
	
Index: generic/gdbtk-stack.c
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/generic/gdbtk-stack.c,v
retrieving revision 1.11
diff -u -r1.11 gdbtk-stack.c
--- generic/gdbtk-stack.c	19 Nov 2002 19:33:46 -0000	1.11
+++ generic/gdbtk-stack.c	19 Nov 2002 20:00:51 -0000
@@ -420,7 +420,9 @@
   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);