Preliminary cleanup for splitting host/native/target.
[deliverable/binutils-gdb.git] / gdb / stack.c
index e8041fb8422aa0e2e3d26bda2c72d87fbac9068a..a8037c4551d256d0c26e01a8050551816fd5f502 100644 (file)
@@ -1,39 +1,95 @@
 /* Print and select stack frames for GDB, the GNU debugger.
-   Copyright (C) 1986, 1987, 1989 Free Software Foundation, Inc.
+   Copyright (C) 1986, 1987, 1989, 1991 Free Software Foundation, Inc.
 
 This file is part of GDB.
 
-GDB is free software; you can redistribute it and/or modify
+This program is free software; you can redistribute it and/or modify
 it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 1, or (at your option)
-any later version.
+the Free Software Foundation; either version 2 of the License, or
+(at your option) any later version.
 
-GDB is distributed in the hope that it will be useful,
+This program is distributed in the hope that it will be useful,
 but WITHOUT ANY WARRANTY; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 GNU General Public License for more details.
 
 You should have received a copy of the GNU General Public License
-along with GDB; see the file COPYING.  If not, write to
-the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
-
-#include <stdio.h>
+along with this program; if not, write to the Free Software
+Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
 
 #include "defs.h"
-#include "param.h"
+#include "value.h"
 #include "symtab.h"
+#include "gdbtypes.h"
+#include "expression.h"
+#include "language.h"
 #include "frame.h"
 #include "gdbcmd.h"
-#include "value.h"
 #include "gdbcore.h"
 #include "target.h"
 #include "breakpoint.h"
+#include "demangle.h"
+
+static void
+return_command PARAMS ((char *, int));
+
+static void
+down_command PARAMS ((char *, int));
+
+static void
+down_silently_command PARAMS ((char *, int));
+
+static void
+up_command PARAMS ((char *, int));
+
+static void
+up_silently_command PARAMS ((char *, int));
+
+static void
+frame_command PARAMS ((char *, int));
+
+static void
+select_frame_command PARAMS ((char *, int));
+
+static void
+args_info PARAMS ((char *, int));
+
+static void
+print_frame_arg_vars PARAMS ((FRAME, FILE *));
+
+static void
+catch_info PARAMS ((char *, int));
+
+static void
+locals_info PARAMS ((char *, int));
+
+static void
+print_frame_label_vars PARAMS ((FRAME, int, FILE *));
+
+static void
+print_frame_local_vars PARAMS ((FRAME, FILE *));
+
+static int
+print_block_frame_labels PARAMS ((struct block *, int *, FILE *));
+
+static int
+print_block_frame_locals PARAMS ((struct block *, FRAME, FILE *));
+
+static void
+backtrace_command PARAMS ((char *, int));
+
+static FRAME
+parse_frame_specification PARAMS ((char *));
+
+static void
+frame_info PARAMS ((char *, int));
+
 
 extern int addressprint;       /* Print addresses, or stay symbolic only? */
 extern int info_verbose;       /* Verbosity of symbol reading msgs */
-extern char *reg_names[];      /* Names of registers */
+extern int lines_to_list;      /* # of lines "list" command shows by default */
 
-/* Thie "selected" stack frame is used by default for local and arg access.
+/* The "selected" stack frame is used by default for local and arg access.
    May be zero, for no selected frame.  */
 
 FRAME selected_frame;
@@ -49,7 +105,6 @@ int selected_frame_level;
 
 int frame_file_full_name = 0;
 
-void print_frame_info ();
 \f
 /* Print a stack frame briefly.  FRAME should be the frame id
    and LEVEL should be its level in the stack (or -1 for level not defined).
@@ -61,7 +116,7 @@ void print_frame_info ();
    If SOURCE is 1, print the source line as well.
    If SOURCE is -1, print ONLY the source line.  */
 
-static void
+void
 print_stack_frame (frame, level, source)
      FRAME frame;
      int level;
@@ -102,15 +157,19 @@ print_frame_info (fi, level, source, args)
        
       printf_filtered ("#%-2d ", level);
       if (addressprint)
-        printf_filtered ("0x%x in ", fi->pc);
+        printf_filtered ("%s in ", local_hex_string(fi->pc));
 
-      fputs_demangled (fname, stdout, -1);
+      fputs_demangled (fname, stdout, 0);
       fputs_filtered (" (...)\n", stdout);
       
       return;
     }
 #endif
 
+#ifdef CORE_NEEDS_RELOCATION
+  CORE_NEEDS_RELOCATION(fi->pc);
+#endif
+
   sal = find_pc_line (fi->pc, fi->next_frame);
   func = find_pc_function (fi->pc);
   if (func)
@@ -123,14 +182,15 @@ print_frame_info (fi, level, source, args)
         ends has been truncated by ar because it is longer than 15
         characters).
 
-        So look in the misc_function_vector as well, and if it comes
+        So look in the minimal symbol tables as well, and if it comes
         up with a larger address for the function use that instead.
-        I don't think this can ever cause any problems;
-        there shouldn't be any
-        misc_function_vector symbols in the middle of a function.  */
-      int misc_index = find_pc_misc_function (fi->pc);
-      if (misc_index >= 0
-         && (misc_function_vector[misc_index].address
+        I don't think this can ever cause any problems; there shouldn't
+        be any minimal symbols in the middle of a function.
+        FIXME:  (Not necessarily true.  What about text labels) */
+
+      struct minimal_symbol *msymbol = lookup_minimal_symbol_by_pc (fi->pc);
+      if (msymbol != NULL
+         && (msymbol -> address
              > BLOCK_START (SYMBOL_BLOCK_VALUE (func))))
        {
          /* In this case we have no way of knowing the source file
@@ -139,16 +199,16 @@ print_frame_info (fi, level, source, args)
          /* We also don't know anything about the function besides
             its address and name.  */
          func = 0;
-         funname = misc_function_vector[misc_index].name;
+         funname = msymbol -> name;
        }
       else
        funname = SYMBOL_NAME (func);
     }
   else
     {
-      register int misc_index = find_pc_misc_function (fi->pc);
-      if (misc_index >= 0)
-       funname = misc_function_vector[misc_index].name;
+      register struct minimal_symbol *msymbol = lookup_minimal_symbol_by_pc (fi->pc);
+      if (msymbol != NULL)
+       funname = msymbol -> name;
     }
 
   if (source >= 0 || !sal.symtab)
@@ -157,8 +217,8 @@ print_frame_info (fi, level, source, args)
        printf_filtered ("#%-2d ", level);
       if (addressprint)
        if (fi->pc != sal.pc || !sal.symtab)
-         printf_filtered ("0x%x in ", fi->pc);
-      fputs_demangled (funname ? funname : "??", stdout, -1);
+         printf_filtered ("%s in ", local_hex_string(fi->pc));
+      fputs_demangled (funname ? funname : "??", stdout, 0);
       wrap_here ("   ");
       fputs_filtered (" (", stdout);
       if (args)
@@ -172,6 +232,16 @@ print_frame_info (fi, level, source, args)
           wrap_here ("   ");
          printf_filtered (" at %s:%d", sal.symtab->filename, sal.line);
        }
+
+#ifdef PC_LOAD_SEGMENT
+     /* If we couldn't print out function name but if can figure out what
+        load segment this pc value is from, at least print out some info
+       about its load segment. */
+      if (!funname) {
+       wrap_here ("  ");
+       printf_filtered (" from %s", PC_LOAD_SEGMENT (fi->pc));
+      }
+#endif
       printf_filtered ("\n");
     }
 
@@ -184,10 +254,10 @@ print_frame_info (fi, level, source, args)
       if (!done)
        {
          if (addressprint && mid_statement)
-           printf_filtered ("0x%x\t", fi->pc);
+           printf_filtered ("%s\t", local_hex_string(fi->pc));
          print_source_lines (sal.symtab, sal.line, sal.line + 1, 0);
        }
-      current_source_line = max (sal.line - lines_to_list () / 2, 1);
+      current_source_line = max (sal.line - lines_to_list/2, 1);
     }
   if (source != 0)
     set_default_breakpoint (1, fi->pc, sal.symtab, sal.line);
@@ -195,26 +265,6 @@ print_frame_info (fi, level, source, args)
   fflush (stdout);
 }
 
-/* Call here to print info on selected frame, after a trap.  */
-
-void
-print_sel_frame (just_source)
-     int just_source;
-{
-  print_stack_frame (selected_frame, -1, just_source ? -1 : 1);
-}
-
-/* Print info on the selected frame, including level number
-   but not source.  */
-
-void
-print_selected_frame ()
-{
-  print_stack_frame (selected_frame, selected_frame_level, 0);
-}
-
-void flush_cached_frames ();
-
 #ifdef FRAME_SPECIFICATION_DYADIC
 extern FRAME setup_arbitrary_frame ();
 #endif
@@ -328,14 +378,16 @@ parse_frame_specification (frame_exp)
    This means absolutely all information in the frame is printed.  */
 
 static void
-frame_info (addr_exp)
+frame_info (addr_exp, from_tty)
      char *addr_exp;
+     int from_tty;
 {
   FRAME frame;
   struct frame_info *fi;
   struct frame_saved_regs fsr;
   struct symtab_and_line sal;
   struct symbol *func;
+  struct symtab *s;
   FRAME calling_frame;
   int i, count;
   char *funname = 0;
@@ -350,43 +402,64 @@ frame_info (addr_exp)
   fi = get_frame_info (frame);
   sal = find_pc_line (fi->pc, fi->next_frame);
   func = get_frame_function (frame);
+  s = find_pc_symtab(fi->pc);
   if (func)
     funname = SYMBOL_NAME (func);
   else
     {
-      register int misc_index = find_pc_misc_function (fi->pc);
-      if (misc_index >= 0)
-       funname = misc_function_vector[misc_index].name;
+      register struct minimal_symbol *msymbol = lookup_minimal_symbol_by_pc (fi->pc);
+      if (msymbol != NULL)
+       funname = msymbol -> name;
     }
   calling_frame = get_prev_frame (frame);
 
-  if (!addr_exp && selected_frame_level >= 0)
-    printf_filtered ("Stack level %d, frame at 0x%x:\n %s = 0x%x",
-           selected_frame_level, FRAME_FP(frame),
-           reg_names[PC_REGNUM], fi->pc);
-  else
-    printf_filtered ("Stack frame at 0x%x:\n %s = 0x%x",
-           FRAME_FP(frame), reg_names[PC_REGNUM], fi->pc);
+  if (!addr_exp && selected_frame_level >= 0) {
+    printf_filtered ("Stack level %d, frame at %s:\n",
+                    selected_frame_level, 
+                    local_hex_string(FRAME_FP(frame)));
+  } else {
+    printf_filtered ("Stack frame at %s:\n",
+                    local_hex_string(FRAME_FP(frame)));
+  }
+  printf_filtered (" %s = %s",
+                  reg_names[PC_REGNUM], 
+                  local_hex_string(fi->pc));
 
   wrap_here ("   ");
   if (funname)
-    printf_filtered (" in %s", funname);
+    {
+      printf_filtered (" in ");
+      fputs_demangled (funname, stdout, DMGL_ANSI | DMGL_PARAMS);
+    }
   wrap_here ("   ");
   if (sal.symtab)
     printf_filtered (" (%s:%d)", sal.symtab->filename, sal.line);
   puts_filtered ("; ");
   wrap_here ("    ");
-  printf_filtered ("saved %s 0x%x\n", reg_names[PC_REGNUM],
-                                     FRAME_SAVED_PC (frame));
+  printf_filtered ("saved %s %s\n", reg_names[PC_REGNUM],
+                  local_hex_string(FRAME_SAVED_PC (frame)));
+
+  {
+    int frameless = 0;
+#ifdef FRAMELESS_FUNCTION_INVOCATION
+    FRAMELESS_FUNCTION_INVOCATION (fi, frameless);
+#endif
+    if (frameless)
+      printf_filtered (" (FRAMELESS),");
+  }
+
   if (calling_frame)
-    printf_filtered (" called by frame at 0x%x", FRAME_FP (calling_frame));
+    printf_filtered (" called by frame at %s", 
+                    local_hex_string(FRAME_FP (calling_frame)));
   if (fi->next_frame && calling_frame)
     puts_filtered (",");
   wrap_here ("   ");
   if (fi->next_frame)
-    printf_filtered (" caller of frame at 0x%x", fi->next_frame);
+    printf_filtered (" caller of frame at %s", local_hex_string(fi->next_frame));
   if (fi->next_frame || calling_frame)
     puts_filtered ("\n");
+  if (s)
+     printf_filtered(" source language %s.\n", language_str(s->language));
 
   {
     /* Address of the argument list for this frame, or 0.  */
@@ -398,7 +471,7 @@ frame_info (addr_exp)
        printf_filtered (" Arglist at unknown address.\n");
     else
       {
-       printf_filtered (" Arglist at 0x%x,", arg_list);
+       printf_filtered (" Arglist at %s,", local_hex_string(arg_list));
 
        FRAME_NUM_ARGS (numargs, fi);
        if (numargs < 0)
@@ -413,12 +486,22 @@ frame_info (addr_exp)
        puts_filtered ("\n");
       }
   }
+  {
+    /* Address of the local variables for this frame, or 0.  */
+    CORE_ADDR arg_list = FRAME_LOCALS_ADDRESS (fi);
+
+    if (arg_list == 0)
+       printf_filtered (" Locals at unknown address,");
+    else
+       printf_filtered (" Locals at %s,", local_hex_string(arg_list));
+  }
 
 #if defined (FRAME_FIND_SAVED_REGS)  
   get_frame_saved_regs (fi, &fsr);
   /* The sp is special; what's returned isn't the save address, but
      actually the value of the previous frame's sp.  */
-  printf_filtered (" Previous frame's sp is 0x%x\n", fsr.regs[SP_REGNUM]);
+  printf_filtered (" Previous frame's sp is %s\n", 
+                  local_hex_string(fsr.regs[SP_REGNUM]));
   count = 0;
   for (i = 0; i < NUM_REGS; i++)
     if (fsr.regs[i] && i != SP_REGNUM)
@@ -428,7 +511,8 @@ frame_info (addr_exp)
        else
          puts_filtered (",");
        wrap_here (" ");
-       printf_filtered (" %s at 0x%x", reg_names[i], fsr.regs[i]);
+       printf_filtered (" %s at %s", reg_names[i], 
+                        local_hex_string(fsr.regs[i]));
        count++;
       }
   if (count)
@@ -540,7 +624,7 @@ backtrace_command (count_exp, from_tty)
          fi = get_frame_info (frame);
          ps = find_pc_psymtab (fi->pc);
          if (ps)
-           (void) PSYMTAB_TO_SYMTAB (ps);      /* Force syms to come in */
+           PSYMTAB_TO_SYMTAB (ps);     /* Force syms to come in */
        }
     }
 
@@ -586,19 +670,16 @@ print_block_frame_locals (b, frame, stream)
          fputs_filtered (" = ", stream);
          print_variable_value (sym, frame, stream);
          fprintf_filtered (stream, "\n");
-         fflush (stream);
        }
     }
   return values_printed;
 }
 
-/* Same, but print labels.
-   FIXME, this does not even reference FRAME... --gnu  */
+/* Same, but print labels.  */
 
 static int
-print_block_frame_labels (b, frame, have_default, stream)
+print_block_frame_labels (b, have_default, stream)
      struct block *b;
-     register FRAME frame;
      int *have_default;
      register FILE *stream;
 {
@@ -623,12 +704,12 @@ print_block_frame_labels (b, frame, have_default, stream)
          struct symtab_and_line sal;
          sal = find_pc_line (SYMBOL_VALUE_ADDRESS (sym), 0);
          values_printed = 1;
-         fputs_demangled (SYMBOL_NAME (sym), stream, 1);
+         fputs_demangled (SYMBOL_NAME (sym), stream, DMGL_ANSI | DMGL_PARAMS);
          if (addressprint)
-           fprintf_filtered (stream, " 0x%x", SYMBOL_VALUE_ADDRESS (sym));
+           fprintf_filtered (stream, " %s", 
+                             local_hex_string(SYMBOL_VALUE_ADDRESS (sym)));
          fprintf_filtered (stream, " in file %s, line %d\n",
                            sal.symtab->filename, sal.line);
-         fflush (stream);
        }
     }
   return values_printed;
@@ -642,7 +723,7 @@ print_block_frame_labels (b, frame, have_default, stream)
    or 0 if nothing was printed because we have no info
    on the function running in FRAME.  */
 
-static int
+static void
 print_frame_local_vars (frame, stream)
      register FRAME frame;
      register FILE *stream;
@@ -653,8 +734,7 @@ print_frame_local_vars (frame, stream)
   if (block == 0)
     {
       fprintf_filtered (stream, "No symbol table info available.\n");
-      fflush (stream);
-      return 0;
+      return;
     }
   
   while (block != 0)
@@ -672,21 +752,17 @@ print_frame_local_vars (frame, stream)
   if (!values_printed)
     {
       fprintf_filtered (stream, "No locals.\n");
-      fflush (stream);
     }
-  
-  return 1;
 }
 
 /* Same, but print labels.  */
 
-static int
+static void
 print_frame_label_vars (frame, this_level_only, stream)
      register FRAME frame;
      int this_level_only;
      register FILE *stream;
 {
-  extern struct blockvector *blockvector_for_pc ();
   register struct blockvector *bl;
   register struct block *block = get_frame_block (frame);
   register int values_printed = 0;
@@ -698,13 +774,12 @@ print_frame_label_vars (frame, this_level_only, stream)
   if (block == 0)
     {
       fprintf_filtered (stream, "No symbol table info available.\n");
-      fflush (stream);
-      return 0;
+      return;
     }
 
   bl = blockvector_for_pc (BLOCK_END (block) - 4, &index);
   blocks_printed = (char *) alloca (BLOCKVECTOR_NBLOCKS (bl) * sizeof (char));
-  bzero (blocks_printed, BLOCKVECTOR_NBLOCKS (bl) * sizeof (char));
+  memset (blocks_printed, 0, BLOCKVECTOR_NBLOCKS (bl) * sizeof (char));
 
   while (block != 0)
     {
@@ -728,16 +803,16 @@ print_frame_label_vars (frame, this_level_only, stream)
        {
          if (blocks_printed[index] == 0)
            {
-             if (print_block_frame_labels (BLOCKVECTOR_BLOCK (bl, index), frame, &have_default, stream))
+             if (print_block_frame_labels (BLOCKVECTOR_BLOCK (bl, index), &have_default, stream))
                values_printed = 1;
              blocks_printed[index] = 1;
            }
          index++;
        }
       if (have_default)
-       return 1;
+       return;
       if (values_printed && this_level_only)
-       return 1;
+       return;
 
       /* After handling the function's top-level block, stop.
         Don't continue to its superblock, the block of
@@ -750,33 +825,31 @@ print_frame_label_vars (frame, this_level_only, stream)
   if (!values_printed && !this_level_only)
     {
       fprintf_filtered (stream, "No catches.\n");
-      fflush (stream);
     }
-  
-  return values_printed;
 }
 
+/* ARGSUSED */
 static void
 locals_info (args, from_tty)
      char *args;
      int from_tty;
 {
-  if (!target_has_stack)
-    error ("No stack.");
-
+  if (!selected_frame)
+    error ("No frame selected.");
   print_frame_local_vars (selected_frame, stdout);
 }
 
 static void
-catch_info ()
+catch_info (ignore, from_tty)
+     char *ignore;
+     int from_tty;
 {
-  if (!target_has_stack)
-    error ("No stack.");
-
+  if (!selected_frame)
+    error ("No frame selected.");
   print_frame_label_vars (selected_frame, 0, stdout);
 }
 
-static int
+static void
 print_frame_arg_vars (frame, stream)
      register FRAME frame;
      register FILE *stream;
@@ -791,8 +864,7 @@ print_frame_arg_vars (frame, stream)
   if (func == 0)
     {
       fprintf_filtered (stream, "No symbol table info available.\n");
-      fflush (stream);
-      return 0;
+      return;
     }
 
   b = SYMBOL_BLOCK_VALUE (func);
@@ -817,24 +889,22 @@ print_frame_arg_vars (frame, stream)
                        b, VAR_NAMESPACE, (int *)NULL, (struct symtab **)NULL);
          print_variable_value (sym2, frame, stream);
          fprintf_filtered (stream, "\n");
-         fflush (stream);
        }
     }
 
   if (!values_printed)
     {
       fprintf_filtered (stream, "No arguments.\n");
-      fflush (stream);
     }
-
-  return 1;
 }
 
 static void
-args_info ()
+args_info (ignore, from_tty)
+     char *ignore;
+     int from_tty;
 {
-  if (!target_has_stack)
-    error ("No stack.");
+  if (!selected_frame)
+    error ("No frame selected.");
   print_frame_arg_vars (selected_frame, stdout);
 }
 \f
@@ -846,11 +916,23 @@ select_frame (frame, level)
      FRAME frame;
      int level;
 {
+  register struct symtab *s;
+
   selected_frame = frame;
   selected_frame_level = level;
-  /* Ensure that symbols for this frame are readin.  */
+
+  /* Ensure that symbols for this frame are read in.  Also, determine the
+     source language of this frame, and switch to it if desired.  */
   if (frame)
-    find_pc_symtab (get_frame_info (frame)->pc);
+  {
+    s = find_pc_symtab (get_frame_info (frame)->pc);
+    if (s 
+       && s->language != current_language->la_language
+       && s->language != language_unknown
+       && language_mode == language_mode_auto) {
+      set_language(s->language);
+    }
+  }
 }
 
 /* Store the selected frame and its level into *FRAMEP and *LEVELP.
@@ -861,7 +943,7 @@ record_selected_frame (frameaddrp, levelp)
      FRAME_ADDR *frameaddrp;
      int *levelp;
 {
-  *frameaddrp = selected_frame ? FRAME_FP (selected_frame) : NULL;
+  *frameaddrp = selected_frame ? FRAME_FP (selected_frame) : 0;
   *levelp = selected_frame_level;
 }
 
@@ -894,7 +976,7 @@ find_relative_frame (frame, level_offset_ptr)
      register int* level_offset_ptr;
 {
   register FRAME prev;
-  register FRAME frame1, frame2;
+  register FRAME frame1;
 
   /* Going up is simple: just do get_prev_frame enough times
      or until initial frame is reached.  */
@@ -906,42 +988,29 @@ find_relative_frame (frame, level_offset_ptr)
       (*level_offset_ptr)--;
       frame = prev;
     }
-  /* Going down could be done by iterating get_frame_info to
-     find the next frame, but that would be quadratic
-     since get_frame_info must scan all the way from the current frame.
-     The following algorithm is linear.  */
+  /* Going down is just as simple.  */
   if (*level_offset_ptr < 0)
     {
-      /* First put frame1 at innermost frame
-        and frame2 N levels up from there.  */
-      frame1 = get_current_frame ();
-      frame2 = frame1;
-      while (*level_offset_ptr < 0 && frame2 != frame)
-       {
-         frame2 = get_prev_frame (frame2);
-         (*level_offset_ptr) ++;
-       }
-      /* Then slide frame1 and frame2 up in synchrony
-        and when frame2 reaches our starting point
-        frame1 must be N levels down from there.  */
-      while (frame2 != frame)
-       {
-         frame1 = get_prev_frame (frame1);
-         frame2 = get_prev_frame (frame2);
-       }
-      return frame1;
+      while (*level_offset_ptr < 0) {
+       frame1 = get_next_frame (frame);
+       if (!frame1)
+         break;
+       frame = frame1;
+       (*level_offset_ptr)++;
+      }
     }
   return frame;
 }
 
-/* The "frame" command.  With no arg, print selected frame briefly.
+/* The "select_frame" command.  With no arg, NOP.
    With arg LEVEL_EXP, select the frame at level LEVEL if it is a
    valid level.  Otherwise, treat level_exp as an address expression
-   and print it.  See parse_frame_specification for more info on proper
+   and select it.  See parse_frame_specification for more info on proper
    frame expressions. */
 
+/* ARGSUSED */
 static void
-frame_command (level_exp, from_tty)
+select_frame_command (level_exp, from_tty)
      char *level_exp;
      int from_tty;
 {
@@ -953,25 +1022,39 @@ frame_command (level_exp, from_tty)
 
   frame = parse_frame_specification (level_exp);
 
-  for (frame1 = get_prev_frame (0);
-       frame1 && frame1 != frame;
-       frame1 = get_prev_frame (frame1))
-    level++;
+  /* Try to figure out what level this frame is.  But if there is
+     no current stack, don't error out -- let the user set one.  */
+  frame1 = 0;
+  if (get_current_frame()) {
+    for (frame1 = get_prev_frame (0);
+        frame1 && frame1 != frame;
+        frame1 = get_prev_frame (frame1))
+      level++;
+  }
 
   if (!frame1)
     level = 0;
 
   select_frame (frame, level);
+}
 
-  if (!from_tty)
-    return;
+/* The "frame" command.  With no arg, print selected frame briefly.
+   With arg, behaves like select_frame and then prints the selected
+   frame.  */
 
+static void
+frame_command (level_exp, from_tty)
+     char *level_exp;
+     int from_tty;
+{
+  select_frame_command (level_exp, from_tty);
   print_stack_frame (selected_frame, selected_frame_level, 1);
 }
 
 /* Select the frame up one or COUNT stack levels
    from the previously selected frame, and print it briefly.  */
 
+/* ARGSUSED */
 static void
 up_silently_command (count_exp, from_tty)
      char *count_exp;
@@ -983,7 +1066,7 @@ up_silently_command (count_exp, from_tty)
     count = parse_and_eval_address (count_exp);
   count1 = count;
   
-  if (!target_has_stack)
+  if (target_has_stack == 0 || selected_frame == 0)
     error ("No stack.");
 
   frame = find_relative_frame (selected_frame, &count1);
@@ -1004,6 +1087,7 @@ up_command (count_exp, from_tty)
 /* Select the frame down one or COUNT stack levels
    from the previously selected frame, and print it briefly.  */
 
+/* ARGSUSED */
 static void
 down_silently_command (count_exp, from_tty)
      char *count_exp;
@@ -1015,6 +1099,9 @@ down_silently_command (count_exp, from_tty)
     count = - parse_and_eval_address (count_exp);
   count1 = count;
   
+  if (target_has_stack == 0 || selected_frame == 0)
+    error ("No stack.");
+
   frame = find_relative_frame (selected_frame, &count1);
   if (count1 != 0 && count_exp == 0)
     error ("Bottom (i.e., innermost) frame selected; you cannot go down.");
@@ -1040,6 +1127,9 @@ return_command (retval_exp, from_tty)
   FRAME_ADDR selected_frame_addr;
   CORE_ADDR selected_frame_pc;
   FRAME frame;
+  char *funcname;
+  struct cleanup *back_to;
+  value return_value;
 
   if (selected_frame == NULL)
     error ("No selected frame.");
@@ -1047,14 +1137,30 @@ return_command (retval_exp, from_tty)
   selected_frame_addr = FRAME_FP (selected_frame);
   selected_frame_pc = (get_frame_info (selected_frame))->pc;
 
+  /* Compute the return value (if any -- possibly getting errors here).
+     Call VALUE_CONTENTS to make sure we have fully evaluated it, since
+     it might live in the stack frame we're about to pop.  */
+
+  if (retval_exp)
+    {
+      return_value = parse_and_eval (retval_exp);
+      VALUE_CONTENTS (return_value);
+    }
+
   /* If interactive, require confirmation.  */
 
   if (from_tty)
     {
       if (thisfun != 0)
        {
-         if (!query ("Make %s return now? ", SYMBOL_NAME (thisfun)))
-           error ("Not confirmed.");
+         funcname = strdup_demangled (SYMBOL_NAME (thisfun));
+         back_to = make_cleanup (free, funcname);
+         if (!query ("Make %s return now? ", funcname))
+           {
+             error ("Not confirmed.");
+             /* NOTREACHED */
+           }
+         do_cleanups (back_to);
        }
       else
        if (!query ("Make selected stack frame return now? "))
@@ -1078,13 +1184,36 @@ return_command (retval_exp, from_tty)
      for return values.  */
 
   if (retval_exp)
-    set_return_value (parse_and_eval (retval_exp));
+    set_return_value (return_value);
 
   /* If interactive, print the frame that is now current.  */
 
   if (from_tty)
     frame_command ("0", 1);
 }
+
+/* Gets the language of the current frame. */
+enum language
+get_frame_language()
+{
+   register struct symtab *s;
+   FRAME fr;
+   enum language flang;                /* The language of the current frame */
+   
+   fr = get_frame_info(selected_frame);
+   if(fr)
+   {
+      s = find_pc_symtab(fr->pc);
+      if(s)
+        flang = s->language;
+      else
+        flang = language_unknown;
+   }
+   else
+      flang = language_unknown;
+
+   return flang;
+}
 \f
 void
 _initialize_stack ()
@@ -1110,6 +1239,7 @@ This is useful in command scripts.");
           "Select and print stack frame called by this one.\n\
 An argument says how many frames down to go.");
   add_com_alias ("do", "down", class_stack, 1);
+  add_com_alias ("dow", "down", class_stack, 1);
   add_com ("down-silently", class_support, down_silently_command,
           "Same as the `down' command, but does not print anything.\n\
 This is useful in command scripts.");
@@ -1124,6 +1254,11 @@ a command file or a user-defined command.");
 
   add_com_alias ("f", "frame", class_stack, 1);
 
+  add_com ("select-frame", class_stack, select_frame_command,
+          "Select a stack frame without printing anything.\n\
+An argument specifies the frame to select.\n\
+It can be a stack frame number or the address of the frame.\n");
+
   add_com ("backtrace", class_stack, backtrace_command,
           "Print backtrace of all stack frames, or innermost COUNT frames.\n\
 With a negative argument, print outermost -COUNT frames.");
@@ -1150,4 +1285,3 @@ With a negative argument, print outermost -COUNT frames.");
            "The maximum number of frames for \"backtrace\" to print by default.");
 #endif
 }
-
This page took 0.033332 seconds and 4 git commands to generate.