2002-11-27  Andrew Cagney  <cagney@redhat.com>

	* generic/gdbtk-stack.c (get_frame_name): Use get_frame_type
	instead of deprecated_frame_in_dummy.
	* generic/gdbtk-cmds.c (gdb_loc): Ditto.

Index: gdbtk/generic/gdbtk-cmds.c
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/generic/gdbtk-cmds.c,v
retrieving revision 1.60
diff -u -r1.60 gdbtk-cmds.c
--- gdbtk/generic/gdbtk-cmds.c	19 Nov 2002 19:33:46 -0000	1.60
+++ gdbtk/generic/gdbtk-cmds.c	27 Nov 2002 15:25:25 -0000
@@ -2273,7 +2273,7 @@
 	  sal = find_pc_line (selected_frame->pc,
 			      selected_frame->next != NULL
 			      && !(get_frame_type (selected_frame->next) == SIGTRAMP_FRAME)
-			      && !deprecated_frame_in_dummy (selected_frame->next));
+			      && !(get_frame_type (selected_frame->next) == DUMMY_FRAME));
 	}
       else
         {
Index: gdbtk/generic/gdbtk-stack.c
===================================================================
RCS file: /cvs/src/src/gdb/gdbtk/generic/gdbtk-stack.c,v
retrieving revision 1.12
diff -u -r1.12 gdbtk-stack.c
--- gdbtk/generic/gdbtk-stack.c	24 Nov 2002 18:44:36 -0000	1.12
+++ gdbtk/generic/gdbtk-stack.c	27 Nov 2002 15:25:25 -0000
@@ -522,7 +522,7 @@
   enum language funlang = language_unknown;
   Tcl_Obj *objv[1];
 
-  if (deprecated_frame_in_dummy (fi))
+  if (get_frame_type (fi) == DUMMY_FRAME)
     {
       objv[0] = Tcl_NewStringObj ("<function called from gdb>\n", -1);
       Tcl_ListObjAppendElement (interp, list, objv[0]);
@@ -539,7 +539,7 @@
     find_pc_line (fi->pc,
 		  fi->next != NULL
 		  && !(get_frame_type (fi) == SIGTRAMP_FRAME)
-		  && !deprecated_frame_in_dummy (fi->next));
+		  && !(get_frame_type (fi) == DUMMY_FRAME));
 
   func = find_pc_function (fi->pc);
   if (func)