]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blobdiff - gdb/tracepoint.c
Switch the license of all .c files to GPLv3.
[thirdparty/binutils-gdb.git] / gdb / tracepoint.c
index 02cf5f8d5007e02a5a723651c12e590e24d91c5b..1931e6c4cff70f307150cd9275512d59bc12681f 100644 (file)
@@ -1,11 +1,13 @@
 /* Tracing functionality for remote targets in custom GDB protocol
-   Copyright 1997, 1998 Free Software Foundation, Inc.
+
+   Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
+   2007 Free Software Foundation, Inc.
 
    This file is part of GDB.
 
    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 2 of the License, or
+   the Free Software Foundation; either version 3 of the License, or
    (at your option) any later version.
 
    This program is distributed in the hope that it will be useful,
@@ -14,9 +16,7 @@
    GNU General Public License for more details.
 
    You should have received a copy of the GNU General Public License
-   along with this program; if not, write to the Free Software
-   Foundation, Inc., 59 Temple Place - Suite 330,
-   Boston, MA 02111-1307, USA.  */
+   along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
 
 #include "defs.h"
 #include "symtab.h"
 #include "inferior.h"
 #include "tracepoint.h"
 #include "remote.h"
+#include "linespec.h"
+#include "regcache.h"
+#include "completer.h"
+#include "gdb-events.h"
+#include "block.h"
+#include "dictionary.h"
 
 #include "ax.h"
 #include "ax-gdb.h"
 
 /* readline include files */
-#include <readline/readline.h>
-#include <readline/history.h>
+#include "readline/readline.h"
+#include "readline/history.h"
 
 /* readline defines this.  */
 #undef savestring
@@ -46,8 +52,8 @@
 #include <unistd.h>
 #endif
 
-/* maximum length of an agent aexpression.
-   this accounts for the fact that packets are limited to 400 bytes
+/* Maximum length of an agent aexpression.
+   This accounts for the fact that packets are limited to 400 bytes
    (which includes everything -- including the checksum), and assumes
    the worst case of maximum length for each of the pieces of a
    continuation packet.
 #define MAX_AGENT_EXPR_LEN     184
 
 
-extern int info_verbose;
-extern void (*readline_begin_hook) (char *, ...);
-extern char *(*readline_hook) (char *);
-extern void (*readline_end_hook) (void);
-extern void x_command (char *, int);
+extern void (*deprecated_readline_begin_hook) (char *, ...);
+extern char *(*deprecated_readline_hook) (char *);
+extern void (*deprecated_readline_end_hook) (void);
 extern int addressprint;       /* Print machine addresses? */
 
 /* GDB commands implemented in other modules:
  */  
 
 extern void output_command (char *, int);
-extern void registers_info (char *, int);
-extern void args_info (char *, int);
-extern void locals_info (char *, int);
-
-
-/* If this definition isn't overridden by the header files, assume
-   that isatty and fileno exist on this system.  */
-#ifndef ISATTY
-#define ISATTY(FP)     (isatty (fileno (FP)))
-#endif
 
 /* 
    Tracepoint.c:
@@ -153,7 +147,7 @@ static void trace_mention (struct tracepoint *);
 
 struct collection_list;
 static void add_aexpr (struct collection_list *, struct agent_expr *);
-static unsigned char *mem2hex (unsigned char *, unsigned char *, int);
+static char *mem2hex (gdb_byte *, char *, int);
 static void add_register (struct collection_list *collection,
                          unsigned int regno);
 static struct cleanup *make_cleanup_free_actions (struct tracepoint *t);
@@ -167,7 +161,8 @@ static int
 target_is_remote (void)
 {
   if (current_target.to_shortname &&
-      strcmp (current_target.to_shortname, "remote") == 0)
+      (strcmp (current_target.to_shortname, "remote") == 0
+       || strcmp (current_target.to_shortname, "extended-remote") == 0))
     return 1;
   else
     return 0;
@@ -183,28 +178,30 @@ trace_error (char *buf)
     {
     case '1':                  /* malformed packet error */
       if (*++buf == '0')       /*   general case: */
-       error ("tracepoint.c: error in outgoing packet.");
+       error (_("tracepoint.c: error in outgoing packet."));
       else
-       error ("tracepoint.c: error in outgoing packet at field #%d.",
+       error (_("tracepoint.c: error in outgoing packet at field #%ld."),
               strtol (buf, NULL, 16));
     case '2':
-      error ("trace API error 0x%s.", ++buf);
+      error (_("trace API error 0x%s."), ++buf);
     default:
-      error ("Target returns error code '%s'.", buf);
+      error (_("Target returns error code '%s'."), buf);
     }
 }
 
-/* Utility: wait for reply from stub, while accepting "O" packets */
+/* Utility: wait for reply from stub, while accepting "O" packets */
 static char *
-remote_get_noisy_reply (char *buf,
-                       long sizeof_buf)
+remote_get_noisy_reply (char **buf_p,
+                       long *sizeof_buf)
 {
-  do                           /* loop on reply from remote stub */
+  do                           /* Loop on reply from remote stub.  */
     {
+      char *buf;
       QUIT;                    /* allow user to bail out with ^C */
-      getpkt (buf, sizeof_buf, 0);
+      getpkt (buf_p, sizeof_buf, 0);
+      buf = *buf_p;
       if (buf[0] == 0)
-       error ("Target does not support this command.");
+       error (_("Target does not support this command."));
       else if (buf[0] == 'E')
        trace_error (buf);
       else if (buf[0] == 'O' &&
@@ -240,7 +237,8 @@ set_tracepoint_num (int num)
 {
   tracepoint_number = num;
   set_internalvar (lookup_internalvar ("tracepoint"),
-                  value_from_longest (builtin_type_int, (LONGEST) num));
+                  value_from_longest (builtin_type_int, 
+                                      (LONGEST) num));
 }
 
 /* Set externally visible debug variables for querying/printing
@@ -251,14 +249,15 @@ set_traceframe_context (CORE_ADDR trace_pc)
 {
   static struct type *func_string, *file_string;
   static struct type *func_range, *file_range;
-  static value_ptr func_val, file_val;
+  struct value *func_val;
+  struct value *file_val;
   static struct type *charstar;
   int len;
 
   if (charstar == (struct type *) NULL)
     charstar = lookup_pointer_type (builtin_type_char);
 
-  if (trace_pc == -1)          /* cease debugging any trace buffers */
+  if (trace_pc == -1)          /* Cease debugging any trace buffers.  */
     {
       traceframe_fun = 0;
       traceframe_sal.pc = traceframe_sal.line = 0;
@@ -268,41 +267,45 @@ set_traceframe_context (CORE_ADDR trace_pc)
       set_internalvar (lookup_internalvar ("trace_file"),
                       value_from_pointer (charstar, (LONGEST) 0));
       set_internalvar (lookup_internalvar ("trace_line"),
-                      value_from_pointer (builtin_type_int, (LONGEST) - 1));
+                      value_from_longest (builtin_type_int, 
+                                          (LONGEST) - 1));
       return;
     }
 
-  /* save as globals for internal use */
+  /* Save as globals for internal use.  */
   traceframe_sal = find_pc_line (trace_pc, 0);
   traceframe_fun = find_pc_function (trace_pc);
 
-  /* save linenumber as "$trace_line", a debugger variable visible to users */
+  /* Save linenumber as "$trace_line", a debugger variable visible to
+     users.  */
   set_internalvar (lookup_internalvar ("trace_line"),
                   value_from_longest (builtin_type_int,
                                       (LONGEST) traceframe_sal.line));
 
-  /* save func name as "$trace_func", a debugger variable visible to users */
+  /* Save func name as "$trace_func", a debugger variable visible to
+     users.  */
   if (traceframe_fun == NULL ||
-      SYMBOL_NAME (traceframe_fun) == NULL)
+      DEPRECATED_SYMBOL_NAME (traceframe_fun) == NULL)
     set_internalvar (lookup_internalvar ("trace_func"),
                     value_from_pointer (charstar, (LONGEST) 0));
   else
     {
-      len = strlen (SYMBOL_NAME (traceframe_fun));
+      len = strlen (DEPRECATED_SYMBOL_NAME (traceframe_fun));
       func_range = create_range_type (func_range,
                                      builtin_type_int, 0, len - 1);
       func_string = create_array_type (func_string,
                                       builtin_type_char, func_range);
       func_val = allocate_value (func_string);
-      VALUE_TYPE (func_val) = func_string;
-      memcpy (VALUE_CONTENTS_RAW (func_val),
-             SYMBOL_NAME (traceframe_fun),
+      deprecated_set_value_type (func_val, func_string);
+      memcpy (value_contents_raw (func_val),
+             DEPRECATED_SYMBOL_NAME (traceframe_fun),
              len);
-      func_val->modifiable = 0;
+      deprecated_set_value_modifiable (func_val, 0);
       set_internalvar (lookup_internalvar ("trace_func"), func_val);
     }
 
-  /* save file name as "$trace_file", a debugger variable visible to users */
+  /* Save file name as "$trace_file", a debugger variable visible to
+     users.  */
   if (traceframe_sal.symtab == NULL ||
       traceframe_sal.symtab->filename == NULL)
     set_internalvar (lookup_internalvar ("trace_file"),
@@ -315,11 +318,11 @@ set_traceframe_context (CORE_ADDR trace_pc)
       file_string = create_array_type (file_string,
                                       builtin_type_char, file_range);
       file_val = allocate_value (file_string);
-      VALUE_TYPE (file_val) = file_string;
-      memcpy (VALUE_CONTENTS_RAW (file_val),
+      deprecated_set_value_type (file_val, file_string);
+      memcpy (value_contents_raw (file_val),
              traceframe_sal.symtab->filename,
              len);
-      file_val->modifiable = 0;
+      deprecated_set_value_modifiable (file_val, 0);
       set_internalvar (lookup_internalvar ("trace_file"), file_val);
     }
 }
@@ -330,17 +333,17 @@ set_traceframe_context (CORE_ADDR trace_pc)
    Does not print anything.
 
    ==> This routine should not be called if there is a chance of later
-   error(); otherwise it leaves a bogus tracepoint on the chain.  Validate
-   your arguments BEFORE calling this routine!  */
+   error(); otherwise it leaves a bogus tracepoint on the chain.
+   Validate your arguments BEFORE calling this routine!  */
 
 static struct tracepoint *
 set_raw_tracepoint (struct symtab_and_line sal)
 {
-  register struct tracepoint *t, *tc;
+  struct tracepoint *t, *tc;
   struct cleanup *old_chain;
 
   t = (struct tracepoint *) xmalloc (sizeof (struct tracepoint));
-  old_chain = make_cleanup (free, t);
+  old_chain = make_cleanup (xfree, t);
   memset (t, 0, sizeof (*t));
   t->address = sal.pc;
   if (sal.symtab == NULL)
@@ -353,7 +356,7 @@ set_raw_tracepoint (struct symtab_and_line sal)
   t->language = current_language->la_language;
   t->input_radix = input_radix;
   t->line_number = sal.line;
-  t->enabled = enabled;
+  t->enabled_p = 1;
   t->next = 0;
   t->step_count = 0;
   t->pass_count = 0;
@@ -376,7 +379,7 @@ set_raw_tracepoint (struct symtab_and_line sal)
   return t;
 }
 
-/* Set a tracepoint according to ARG (function, linenum or *address) */
+/* Set a tracepoint according to ARG (function, linenum or *address) */
 static void
 trace_command (char *arg, int from_tty)
 {
@@ -388,16 +391,17 @@ trace_command (char *arg, int from_tty)
   int i;
 
   if (!arg || !*arg)
-    error ("trace command requires an argument");
+    error (_("trace command requires an argument"));
 
   if (from_tty && info_verbose)
     printf_filtered ("TRACE %s\n", arg);
 
   addr_start = arg;
-  sals = decode_line_1 (&arg, 1, (struct symtab *) NULL, 0, &canonical);
+  sals = decode_line_1 (&arg, 1, (struct symtab *) NULL, 
+                       0, &canonical, NULL);
   addr_end = arg;
   if (!sals.nelts)
-    return;                    /* ??? Presumably decode_line_1 has already warned? */
+    return;    /* ??? Presumably decode_line_1 has already warned?  */
 
   /* Resolve all line numbers to PC's */
   for (i = 0; i < sals.nelts; i++)
@@ -420,10 +424,6 @@ trace_command (char *arg, int from_tty)
        t->addr_string = savestring (addr_start, addr_end - addr_start);
 
       trace_mention (t);
-
-      /* Let the UI know of any additions */
-      if (create_tracepoint_hook)
-       create_tracepoint_hook (t);
     }
 
   if (sals.nelts > 1)
@@ -433,7 +433,7 @@ trace_command (char *arg, int from_tty)
     }
 }
 
-/* Tell the user we have just set a tracepoint TP. */
+/* Tell the user we have just set a tracepoint TP.  */
 
 static void
 trace_mention (struct tracepoint *tp)
@@ -443,7 +443,7 @@ trace_mention (struct tracepoint *tp)
   if (addressprint || (tp->source_file == NULL))
     {
       printf_filtered (" at ");
-      print_address_numeric (tp->address, 1, gdb_stdout);
+      deprecated_print_address_numeric (tp->address, 1, gdb_stdout);
     }
   if (tp->source_file)
     printf_filtered (": file %s, line %d.",
@@ -452,7 +452,8 @@ trace_mention (struct tracepoint *tp)
   printf_filtered ("\n");
 }
 
-/* Print information on tracepoint number TPNUM_EXP, or all if omitted.  */
+/* Print information on tracepoint number TPNUM_EXP, or all if
+   omitted.  */
 
 static void
 tracepoints_info (char *tpnum_exp, int from_tty)
@@ -465,30 +466,48 @@ tracepoints_info (char *tpnum_exp, int from_tty)
   int tpnum = -1;
 
   if (tpnum_exp)
-    tpnum = parse_and_eval_address (tpnum_exp);
+    tpnum = parse_and_eval_long (tpnum_exp);
 
   ALL_TRACEPOINTS (t)
     if (tpnum == -1 || tpnum == t->number)
     {
-      extern int addressprint; /* print machine addresses? */
+      extern int addressprint; /* Print machine addresses?  */
 
       if (!found_a_tracepoint++)
        {
          printf_filtered ("Num Enb ");
          if (addressprint)
-           printf_filtered ("Address    ");
+           {
+             if (gdbarch_addr_bit (current_gdbarch) <= 32)
+               printf_filtered ("Address    ");
+             else
+               printf_filtered ("Address            ");
+           }
          printf_filtered ("PassC StepC What\n");
        }
       strcpy (wrap_indent, "                           ");
       if (addressprint)
-       strcat (wrap_indent, "           ");
+       {
+         if (gdbarch_addr_bit (current_gdbarch) <= 32)
+           strcat (wrap_indent, "           ");
+         else
+           strcat (wrap_indent, "                   ");
+       }
 
       printf_filtered ("%-3d %-3s ", t->number,
-                      t->enabled == enabled ? "y" : "n");
+                      t->enabled_p ? "y" : "n");
       if (addressprint)
-       printf_filtered ("%s ",
-                        local_hex_string_custom ((unsigned long) t->address,
-                                                 "08l"));
+       {
+         char *tmp;
+
+         if (gdbarch_addr_bit (current_gdbarch) <= 32)
+           tmp = hex_string_custom (t->address & (CORE_ADDR) 0xffffffff, 
+                                    8);
+         else
+           tmp = hex_string_custom (t->address, 16);
+
+         printf_filtered ("%s ", tmp);
+       }
       printf_filtered ("%-5d %-5ld ", t->pass_count, t->step_count);
 
       if (t->source_file)
@@ -497,7 +516,7 @@ tracepoints_info (char *tpnum_exp, int from_tty)
          if (sym)
            {
              fputs_filtered ("in ", gdb_stdout);
-             fputs_filtered (SYMBOL_SOURCE_NAME (sym), gdb_stdout);
+             fputs_filtered (SYMBOL_PRINT_NAME (sym), gdb_stdout);
              wrap_here (wrap_indent);
              fputs_filtered (" at ", gdb_stdout);
            }
@@ -526,10 +545,10 @@ tracepoints_info (char *tpnum_exp, int from_tty)
     }
 }
 
-/* Optimization: the code to parse an enable, disable, or delete TP command
-   is virtually identical except for whether it performs an enable, disable,
-   or delete.  Therefore I've combined them into one function with an opcode.
- */
+/* Optimization: the code to parse an enable, disable, or delete TP
+   command is virtually identical except for whether it performs an
+   enable, disable, or delete.  Therefore I've combined them into one
  function with an opcode.  */
 enum tracepoint_opcode
 {
   enable_op,
@@ -537,7 +556,7 @@ enum tracepoint_opcode
   delete_op
 };
 
-/* This function implements enable, disable and delete commands. */
+/* This function implements enable, disable and delete commands.  */
 static void
 tracepoint_operation (struct tracepoint *t, int from_tty,
                      enum tracepoint_opcode opcode)
@@ -550,14 +569,12 @@ tracepoint_operation (struct tracepoint *t, int from_tty,
   switch (opcode)
     {
     case enable_op:
-      t->enabled = enabled;
-      if (modify_tracepoint_hook)
-       modify_tracepoint_hook (t);
+      t->enabled_p = 1;
+      tracepoint_modify_event (t->number);
       break;
     case disable_op:
-      t->enabled = disabled;
-      if (modify_tracepoint_hook)
-       modify_tracepoint_hook (t);
+      t->enabled_p = 0;
+      tracepoint_modify_event (t->number);
       break;
     case delete_op:
       if (tracepoint_chain == t)
@@ -566,22 +583,19 @@ tracepoint_operation (struct tracepoint *t, int from_tty,
       ALL_TRACEPOINTS (t2)
        if (t2->next == t)
        {
+         tracepoint_delete_event (t2->number);
          t2->next = t->next;
          break;
        }
 
-      /* Let the UI know of any deletions */
-      if (delete_tracepoint_hook)
-       delete_tracepoint_hook (t);
-
       if (t->addr_string)
-       free (t->addr_string);
+       xfree (t->addr_string);
       if (t->source_file)
-       free (t->source_file);
+       xfree (t->source_file);
       if (t->actions)
        free_actions (t);
 
-      free (t);
+      xfree (t);
       break;
     }
 }
@@ -602,7 +616,7 @@ get_tracepoint_by_number (char **arg, int multi_p, int optional_p)
       if (optional_p)
        tpnum = tracepoint_count;
       else
-       error_no_arg ("tracepoint number");
+       error_no_arg (_("tracepoint number"));
     }
   else
     tpnum = multi_p ? get_number_or_range (arg) : get_number (arg);
@@ -610,7 +624,8 @@ get_tracepoint_by_number (char **arg, int multi_p, int optional_p)
   if (tpnum <= 0)
     {
       if (instring && *instring)
-       printf_filtered ("bad tracepoint number at or near '%s'\n", instring);
+       printf_filtered ("bad tracepoint number at or near '%s'\n", 
+                        instring);
       else
        printf_filtered ("Tracepoint argument missing and no previous tracepoint\n");
       return NULL;
@@ -629,7 +644,8 @@ get_tracepoint_by_number (char **arg, int multi_p, int optional_p)
   return NULL;
 }
 
-/* Utility: parse a list of tracepoint numbers, and call a func for each. */
+/* Utility: 
+   parse a list of tracepoint numbers, and call a func for each.  */
 static void
 map_args_over_tracepoints (char *args, int from_tty,
                           enum tracepoint_opcode opcode)
@@ -642,7 +658,7 @@ map_args_over_tracepoints (char *args, int from_tty,
   else
     while (*args)
       {
-       QUIT;                   /* give user option to bail out with ^C */
+       QUIT;           /* Give user option to bail out with ^C.  */
        t = get_tracepoint_by_number (&args, 1, 0);
        tracepoint_operation (t, from_tty, opcode);
        while (*args == ' ' || *args == '\t')
@@ -650,7 +666,8 @@ map_args_over_tracepoints (char *args, int from_tty,
       }
 }
 
-/* The 'enable trace' command enables tracepoints.  Not supported by all targets.  */
+/* The 'enable trace' command enables tracepoints.  
+   Not supported by all targets.  */
 static void
 enable_trace_command (char *args, int from_tty)
 {
@@ -658,7 +675,8 @@ enable_trace_command (char *args, int from_tty)
   map_args_over_tracepoints (args, from_tty, enable_op);
 }
 
-/* The 'disable trace' command enables tracepoints.  Not supported by all targets.  */
+/* The 'disable trace' command disables tracepoints.  
+   Not supported by all targets.  */
 static void
 disable_trace_command (char *args, int from_tty)
 {
@@ -672,8 +690,9 @@ delete_trace_command (char *args, int from_tty)
 {
   dont_repeat ();
   if (!args || !*args)         /* No args implies all tracepoints; */
-    if (from_tty)              /* confirm only if from_tty... */
-      if (tracepoint_chain)    /* and if there are tracepoints to delete! */
+    if (from_tty)              /* confirm only if from_tty...  */
+      if (tracepoint_chain)    /* and if there are tracepoints to
+                                  delete!  */
        if (!query ("Delete all tracepoints? "))
          return;
 
@@ -694,19 +713,19 @@ trace_pass_command (char *args, int from_tty)
   int all = 0;
 
   if (args == 0 || *args == 0)
-    error ("passcount command requires an argument (count + optional TP num)");
+    error (_("passcount command requires an argument (count + optional TP num)"));
 
-  count = strtoul (args, &args, 10);   /* count comes first, then TP num */
+  count = strtoul (args, &args, 10);   /* Count comes first, then TP num. */
 
   while (*args && isspace ((int) *args))
     args++;
 
   if (*args && strncasecmp (args, "all", 3) == 0)
     {
-      args += 3;                       /* skip special argument "all" */
+      args += 3;                       /* Skip special argument "all".  */
       all = 1;
       if (*args)
-       error ("Junk at end of arguments.");
+       error (_("Junk at end of arguments."));
     }
   else
     t1 = get_tracepoint_by_number (&args, 1, 1);
@@ -719,8 +738,7 @@ trace_pass_command (char *args, int from_tty)
            if (t1 == (struct tracepoint *) -1 || t1 == t2)
              {
                t2->pass_count = count;
-               if (modify_tracepoint_hook)
-                 modify_tracepoint_hook (t2);
+               tracepoint_modify_event (t2->number);
                if (from_tty)
                  printf_filtered ("Setting tracepoint %d's passcount to %d\n",
                                   t2->number, count);
@@ -749,19 +767,19 @@ static void read_actions (struct tracepoint *);
 static void
 end_actions_pseudocommand (char *args, int from_tty)
 {
-  error ("This command cannot be used at the top level.");
+  error (_("This command cannot be used at the top level."));
 }
 
 static void
 while_stepping_pseudocommand (char *args, int from_tty)
 {
-  error ("This command can only be used in a tracepoint actions list.");
+  error (_("This command can only be used in a tracepoint actions list."));
 }
 
 static void
 collect_pseudocommand (char *args, int from_tty)
 {
-  error ("This command can only be used in a tracepoint actions list.");
+  error (_("This command can only be used in a tracepoint actions list."));
 }
 
 /* Enter a list of actions for a tracepoint.  */
@@ -780,8 +798,8 @@ trace_actions_command (char *args, int from_tty)
 
       if (from_tty)
        {
-         if (readline_begin_hook)
-           (*readline_begin_hook) ("%s  %s\n", tmpbuf, end_msg);
+         if (deprecated_readline_begin_hook)
+           (*deprecated_readline_begin_hook) ("%s  %s\n", tmpbuf, end_msg);
          else if (input_from_terminal_p ())
            printf_filtered ("%s\n%s\n", tmpbuf, end_msg);
        }
@@ -790,8 +808,8 @@ trace_actions_command (char *args, int from_tty)
       t->step_count = 0;       /* read_actions may set this */
       read_actions (t);
 
-      if (readline_end_hook)
-       (*readline_end_hook) ();
+      if (deprecated_readline_end_hook)
+       (*deprecated_readline_end_hook) ();
       /* tracepoints_changed () */
     }
   /* else just return */
@@ -812,35 +830,39 @@ read_actions (struct tracepoint *t)
   /* Control-C quits instantly if typed while in this loop
      since it should not wait until the user types a newline.  */
   immediate_quit++;
+  /* FIXME: kettenis/20010823: Something is wrong here.  In this file
+     STOP_SIGNAL is never defined.  So this code has been left out, at
+     least for quite a while now.  Replacing STOP_SIGNAL with SIGTSTP
+     leads to compilation failures since the variable job_control
+     isn't declared.  Leave this alone for now.  */
 #ifdef STOP_SIGNAL
   if (job_control)
-    {
-      if (event_loop_p)
-       signal (STOP_SIGNAL, handle_stop_sig);
-      else
-       signal (STOP_SIGNAL, stop_sig);
-    }
+    signal (STOP_SIGNAL, handle_stop_sig);
 #endif
   old_chain = make_cleanup_free_actions (t);
   while (1)
     {
-      /* Make sure that all output has been output.  Some machines may let
-         you get away with leaving out some of the gdb_flush, but not all.  */
+      /* Make sure that all output has been output.  Some machines may
+         let you get away with leaving out some of the gdb_flush, but
+         not all.  */
       wrap_here ("");
       gdb_flush (gdb_stdout);
       gdb_flush (gdb_stderr);
 
-      if (readline_hook && instream == NULL)
-       line = (*readline_hook) (prompt);
+      if (deprecated_readline_hook && instream == NULL)
+       line = (*deprecated_readline_hook) (prompt);
       else if (instream == stdin && ISATTY (instream))
        {
-         line = readline (prompt);
+         line = gdb_readline_wrapper (prompt);
          if (line && *line)    /* add it to command history */
            add_history (line);
        }
       else
        line = gdb_readline (0);
 
+      if (!line)
+       line = "end";
+      
       linetype = validate_actionline (&line, t);
       if (linetype == BADLINE)
        continue;               /* already warned -- collect another line */
@@ -861,7 +883,7 @@ read_actions (struct tracepoint *t)
        {
          if (prompt == prompt2)
            {
-             warning ("Already processing 'while-stepping'");
+             warning (_("Already processing 'while-stepping'"));
              continue;
            }
          else
@@ -877,8 +899,9 @@ read_actions (struct tracepoint *t)
            {                   /* end of actions */
              if (t->actions->next == NULL)
                {
-                 /* an "end" all by itself with no other actions means
-                    this tracepoint has no actions.  Discard empty list. */
+                 /* An "end" all by itself with no other actions
+                    means this tracepoint has no actions.
+                    Discard empty list.  */
                  free_actions (t);
                }
              break;
@@ -902,11 +925,15 @@ validate_actionline (char **line, struct tracepoint *t)
   struct cleanup *old_chain = NULL;
   char *p;
 
+  /* if EOF is typed, *line is NULL */
+  if (*line == NULL)
+    return END;
+
   for (p = *line; isspace ((int) *p);)
     p++;
 
-  /* symbol lookup etc. */
-  if (*p == '\0')              /* empty line: just prompt for another line. */
+  /* Symbol lookup etc.  */
+  if (*p == '\0')      /* empty line: just prompt for another line.  */
     return BADLINE;
 
   if (*p == '#')               /* comment line */
@@ -915,11 +942,12 @@ validate_actionline (char **line, struct tracepoint *t)
   c = lookup_cmd (&p, cmdlist, "", -1, 1);
   if (c == 0)
     {
-      warning ("'%s' is not an action that I know, or is ambiguous.", p);
+      warning (_("'%s' is not an action that I know, or is ambiguous."), 
+              p);
       return BADLINE;
     }
 
-  if (c->function.cfunc == collect_pseudocommand)
+  if (cmd_cfunc_eq (c, collect_pseudocommand))
     {
       struct agent_expr *aexpr;
       struct agent_reqs areqs;
@@ -939,7 +967,7 @@ validate_actionline (char **line, struct tracepoint *t)
                  p = strchr (p, ',');
                  continue;
                }
-             /* else fall thru, treat p as an expression and parse it! */
+             /* else fall thru, treat p as an expression and parse it!  */
            }
          exp = parse_exp_1 (&p, block_for_pc (t->address), 1);
          old_chain = make_cleanup (free_current_contents, &exp);
@@ -948,45 +976,46 @@ validate_actionline (char **line, struct tracepoint *t)
            {
              if (SYMBOL_CLASS (exp->elts[2].symbol) == LOC_CONST)
                {
-                 warning ("constant %s (value %ld) will not be collected.",
-                          SYMBOL_NAME (exp->elts[2].symbol),
+                 warning (_("constant %s (value %ld) will not be collected."),
+                          DEPRECATED_SYMBOL_NAME (exp->elts[2].symbol),
                           SYMBOL_VALUE (exp->elts[2].symbol));
                  return BADLINE;
                }
              else if (SYMBOL_CLASS (exp->elts[2].symbol) == LOC_OPTIMIZED_OUT)
                {
-                 warning ("%s is optimized away and cannot be collected.",
-                          SYMBOL_NAME (exp->elts[2].symbol));
+                 warning (_("%s is optimized away and cannot be collected."),
+                          DEPRECATED_SYMBOL_NAME (exp->elts[2].symbol));
                  return BADLINE;
                }
            }
 
-         /* we have something to collect, make sure that the expr to
-            bytecode translator can handle it and that it's not too long */
+         /* We have something to collect, make sure that the expr to
+            bytecode translator can handle it and that it's not too
+            long.  */
          aexpr = gen_trace_for_expr (t->address, exp);
          make_cleanup_free_agent_expr (aexpr);
 
          if (aexpr->len > MAX_AGENT_EXPR_LEN)
-           error ("expression too complicated, try simplifying");
+           error (_("expression too complicated, try simplifying"));
 
          ax_reqs (aexpr, &areqs);
-         (void) make_cleanup (free, areqs.reg_mask);
+         (void) make_cleanup (xfree, areqs.reg_mask);
 
          if (areqs.flaw != agent_flaw_none)
-           error ("malformed expression");
+           error (_("malformed expression"));
 
          if (areqs.min_height < 0)
-           error ("gdb: Internal error: expression has min height < 0");
+           error (_("gdb: Internal error: expression has min height < 0"));
 
          if (areqs.max_height > 20)
-           error ("expression too complicated, try simplifying");
+           error (_("expression too complicated, try simplifying"));
 
          do_cleanups (old_chain);
        }
       while (p && *p++ == ',');
       return GENERIC;
     }
-  else if (c->function.cfunc == while_stepping_pseudocommand)
+  else if (cmd_cfunc_eq (c, while_stepping_pseudocommand))
     {
       char *steparg;           /* in case warning is necessary */
 
@@ -997,16 +1026,16 @@ validate_actionline (char **line, struct tracepoint *t)
       if (*p == '\0' ||
          (t->step_count = strtol (p, &p, 0)) == 0)
        {
-         warning ("'%s': bad step-count; command ignored.", *line);
+         warning (_("'%s': bad step-count; command ignored."), *line);
          return BADLINE;
        }
       return STEPPING;
     }
-  else if (c->function.cfunc == end_actions_pseudocommand)
+  else if (cmd_cfunc_eq (c, end_actions_pseudocommand))
     return END;
   else
     {
-      warning ("'%s' is not a supported tracepoint action.", *line);
+      warning (_("'%s' is not a supported tracepoint action."), *line);
       return BADLINE;
     }
 }
@@ -1021,8 +1050,8 @@ free_actions (struct tracepoint *t)
     {
       next = line->next;
       if (line->action)
-       free (line->action);
-      free (line);
+       xfree (line->action);
+      xfree (line);
     }
   t->actions = NULL;
 }
@@ -1039,16 +1068,21 @@ make_cleanup_free_actions (struct tracepoint *t)
   return make_cleanup (do_free_actions_cleanup, t);
 }
 
+enum {
+  memrange_absolute = -1
+};
+
 struct memrange
 {
-  int type;            /* 0 for absolute memory range, else basereg number */
+  int type;            /* memrange_absolute for absolute memory range,
+                           else basereg number */
   bfd_signed_vma start;
   bfd_signed_vma end;
 };
 
 struct collection_list
   {
-    unsigned char regs_mask[8];        /* room for up to 256 regs */
+    unsigned char regs_mask[32];       /* room for up to 256 regs */
     long listsize;
     long next_memrange;
     struct memrange *list;
@@ -1073,7 +1107,7 @@ memrange_cmp (const void *va, const void *vb)
     return -1;
   if (a->type > b->type)
     return 1;
-  if (a->type == 0)
+  if (a->type == memrange_absolute)
     {
       if ((bfd_vma) a->start < (bfd_vma) b->start)
        return -1;
@@ -1090,7 +1124,7 @@ memrange_cmp (const void *va, const void *vb)
   return 0;
 }
 
-/* Sort the memrange list using qsort, and merge adjacent memranges */
+/* Sort the memrange list using qsort, and merge adjacent memranges */
 static void
 memrange_sortmerge (struct collection_list *memranges)
 {
@@ -1104,7 +1138,7 @@ memrange_sortmerge (struct collection_list *memranges)
        {
          if (memranges->list[a].type == memranges->list[b].type &&
              memranges->list[b].start - memranges->list[a].end <=
-             MAX_REGISTER_VIRTUAL_SIZE)
+             MAX_REGISTER_SIZE)
            {
              /* memrange b starts before memrange a ends; merge them.  */
              if (memranges->list[b].end > memranges->list[a].end)
@@ -1120,21 +1154,22 @@ memrange_sortmerge (struct collection_list *memranges)
     }
 }
 
-/* Add a register to a collection list */
+/* Add a register to a collection list */
 static void
 add_register (struct collection_list *collection, unsigned int regno)
 {
   if (info_verbose)
     printf_filtered ("collect register %d\n", regno);
-  if (regno > (8 * sizeof (collection->regs_mask)))
-    error ("Internal: register number %d too large for tracepoint",
+  if (regno >= (8 * sizeof (collection->regs_mask)))
+    error (_("Internal: register number %d too large for tracepoint"),
           regno);
   collection->regs_mask[regno / 8] |= 1 << (regno % 8);
 }
 
 /* Add a memrange to a collection list */
 static void
-add_memrange (struct collection_list *memranges, int type, bfd_signed_vma base,
+add_memrange (struct collection_list *memranges, 
+             int type, bfd_signed_vma base,
              unsigned long len)
 {
   if (info_verbose)
@@ -1144,9 +1179,9 @@ add_memrange (struct collection_list *memranges, int type, bfd_signed_vma base,
       printf_filtered (",%ld)\n", len);
     }
 
-  /* type: 0 == memory, n == basereg */
+  /* type: memrange_absolute == memory, other n == basereg */
   memranges->list[memranges->next_memrange].type = type;
-  /* base: addr if memory, offset if reg relative. */
+  /* base: addr if memory, offset if reg relative.  */
   memranges->list[memranges->next_memrange].start = base;
   /* len: we actually save end (base + len) for convenience */
   memranges->list[memranges->next_memrange].end = base + len;
@@ -1158,13 +1193,14 @@ add_memrange (struct collection_list *memranges, int type, bfd_signed_vma base,
                                  memranges->listsize);
     }
 
-  if (type != -1)              /* better collect the base register! */
+  if (type != memrange_absolute)               /* Better collect the base register!  */
     add_register (memranges, type);
 }
 
-/* Add a symbol to a collection list */
+/* Add a symbol to a collection list */
 static void
-collect_symbol (struct collection_list *collect, struct symbol *sym,
+collect_symbol (struct collection_list *collect, 
+               struct symbol *sym,
                long frame_regno, long frame_offset)
 {
   unsigned long len;
@@ -1176,11 +1212,12 @@ collect_symbol (struct collection_list *collect, struct symbol *sym,
     {
     default:
       printf_filtered ("%s: don't know symbol class %d\n",
-                      SYMBOL_NAME (sym), SYMBOL_CLASS (sym));
+                      DEPRECATED_SYMBOL_NAME (sym), 
+                      SYMBOL_CLASS (sym));
       break;
     case LOC_CONST:
       printf_filtered ("constant %s (value %ld) will not be collected.\n",
-                      SYMBOL_NAME (sym), SYMBOL_VALUE (sym));
+                      DEPRECATED_SYMBOL_NAME (sym), SYMBOL_VALUE (sym));
       break;
     case LOC_STATIC:
       offset = SYMBOL_VALUE_ADDRESS (sym);
@@ -1190,26 +1227,28 @@ collect_symbol (struct collection_list *collect, struct symbol *sym,
 
          sprintf_vma (tmp, offset);
          printf_filtered ("LOC_STATIC %s: collect %ld bytes at %s.\n",
-                          SYMBOL_NAME (sym), len, tmp /* address */);
+                          DEPRECATED_SYMBOL_NAME (sym), len, 
+                          tmp /* address */);
        }
-      add_memrange (collect, -1, offset, len); /* 0 == memory */
+      add_memrange (collect, memrange_absolute, offset, len);
       break;
     case LOC_REGISTER:
     case LOC_REGPARM:
       reg = SYMBOL_VALUE (sym);
       if (info_verbose)
-       printf_filtered ("LOC_REG[parm] %s: ", SYMBOL_NAME (sym));
+       printf_filtered ("LOC_REG[parm] %s: ", 
+                        DEPRECATED_SYMBOL_NAME (sym));
       add_register (collect, reg);
-      /* check for doubles stored in two registers */
-      /* FIXME: how about larger types stored in 3 or more regs? */
+      /* Check for doubles stored in two registers.  */
+      /* FIXME: how about larger types stored in 3 or more regs?  */
       if (TYPE_CODE (SYMBOL_TYPE (sym)) == TYPE_CODE_FLT &&
-         len > REGISTER_RAW_SIZE (reg))
+         len > register_size (current_gdbarch, reg))
        add_register (collect, reg + 1);
       break;
     case LOC_REF_ARG:
       printf_filtered ("Sorry, don't know how to do LOC_REF_ARG yet.\n");
       printf_filtered ("       (will not collect %s)\n",
-                      SYMBOL_NAME (sym));
+                      DEPRECATED_SYMBOL_NAME (sym));
       break;
     case LOC_ARG:
       reg = frame_regno;
@@ -1217,7 +1256,7 @@ collect_symbol (struct collection_list *collect, struct symbol *sym,
       if (info_verbose)
        {
          printf_filtered ("LOC_LOCAL %s: Collect %ld bytes at offset ",
-                          SYMBOL_NAME (sym), len);
+                          DEPRECATED_SYMBOL_NAME (sym), len);
          printf_vma (offset);
          printf_filtered (" from frame ptr reg %d\n", reg);
        }
@@ -1229,7 +1268,7 @@ collect_symbol (struct collection_list *collect, struct symbol *sym,
       if (info_verbose)
        {
          printf_filtered ("LOC_REGPARM_ADDR %s: Collect %ld bytes at offset ",
-                          SYMBOL_NAME (sym), len);
+                          DEPRECATED_SYMBOL_NAME (sym), len);
          printf_vma (offset);
          printf_filtered (" from reg %d\n", reg);
        }
@@ -1242,7 +1281,7 @@ collect_symbol (struct collection_list *collect, struct symbol *sym,
       if (info_verbose)
        {
          printf_filtered ("LOC_LOCAL %s: Collect %ld bytes at offset ",
-                          SYMBOL_NAME (sym), len);
+                          DEPRECATED_SYMBOL_NAME (sym), len);
          printf_vma (offset);
          printf_filtered (" from frame ptr reg %d\n", reg);
        }
@@ -1255,18 +1294,19 @@ collect_symbol (struct collection_list *collect, struct symbol *sym,
       if (info_verbose)
        {
          printf_filtered ("LOC_BASEREG %s: collect %ld bytes at offset ",
-                          SYMBOL_NAME (sym), len);
+                          DEPRECATED_SYMBOL_NAME (sym), len);
          printf_vma (offset);
          printf_filtered (" from basereg %d\n", reg);
        }
       add_memrange (collect, reg, offset, len);
       break;
     case LOC_UNRESOLVED:
-      printf_filtered ("Don't know LOC_UNRESOLVED %s\n", SYMBOL_NAME (sym));
+      printf_filtered ("Don't know LOC_UNRESOLVED %s\n", 
+                      DEPRECATED_SYMBOL_NAME (sym));
       break;
     case LOC_OPTIMIZED_OUT:
-      printf_filtered ("%s has been optimized out of existance.\n",
-                      SYMBOL_NAME (sym));
+      printf_filtered ("%s has been optimized out of existence.\n",
+                      DEPRECATED_SYMBOL_NAME (sym));
       break;
     }
 }
@@ -1278,21 +1318,20 @@ add_local_symbols (struct collection_list *collect, CORE_ADDR pc,
 {
   struct symbol *sym;
   struct block *block;
-  int i, nsyms, count = 0;
+  struct dict_iterator iter;
+  int count = 0;
 
   block = block_for_pc (pc);
   while (block != 0)
     {
       QUIT;                    /* allow user to bail out with ^C */
-      nsyms = BLOCK_NSYMS (block);
-      for (i = 0; i < nsyms; i++)
+      ALL_BLOCK_SYMBOLS (block, iter, sym)
        {
-         sym = BLOCK_SYM (block, i);
          switch (SYMBOL_CLASS (sym))
            {
            default:
-             warning ("don't know how to trace local symbol %s"
-                      SYMBOL_NAME (sym));
+             warning (_("don't know how to trace local symbol %s")
+                      DEPRECATED_SYMBOL_NAME (sym));
            case LOC_LOCAL:
            case LOC_STATIC:
            case LOC_REGISTER:
@@ -1300,7 +1339,8 @@ add_local_symbols (struct collection_list *collect, CORE_ADDR pc,
              if (type == 'L')  /* collecting Locals */
                {
                  count++;
-                 collect_symbol (collect, sym, frame_regno, frame_offset);
+                 collect_symbol (collect, sym, frame_regno, 
+                                 frame_offset);
                }
              break;
            case LOC_ARG:
@@ -1312,7 +1352,8 @@ add_local_symbols (struct collection_list *collect, CORE_ADDR pc,
              if (type == 'A')  /* collecting Arguments */
                {
                  count++;
-                 collect_symbol (collect, sym, frame_regno, frame_offset);
+                 collect_symbol (collect, sym, frame_regno, 
+                                 frame_offset);
                }
            }
        }
@@ -1322,7 +1363,8 @@ add_local_symbols (struct collection_list *collect, CORE_ADDR pc,
        block = BLOCK_SUPERBLOCK (block);
     }
   if (count == 0)
-    warning ("No %s found in scope.", type == 'L' ? "locals" : "args");
+    warning (_("No %s found in scope."), 
+            type == 'L' ? "locals" : "args");
 }
 
 /* worker function */
@@ -1399,13 +1441,21 @@ stringify_collection_list (struct collection_list *list, char *string)
          end = temp_buf;
        }
 
-      sprintf (end, "M%X,%s,%lX", 
-              list->list[i].type,
-              tmp2,
-              (long) (list->list[i].end - list->list[i].start));
+      {
+        bfd_signed_vma length = list->list[i].end - list->list[i].start;
+
+        /* The "%X" conversion specifier expects an unsigned argument,
+           so passing -1 (memrange_absolute) to it directly gives you
+           "FFFFFFFF" (or more, depending on sizeof (unsigned)).
+           Special-case it.  */
+        if (list->list[i].type == memrange_absolute)
+          sprintf (end, "M-1,%s,%lX", tmp2, (long) length);
+        else
+          sprintf (end, "M%X,%s,%lX", list->list[i].type, tmp2, (long) length);
+      }
 
       count += strlen (end);
-      end += count;
+      end = temp_buf + count;
     }
 
   for (i = 0; i < list->next_aexpr_elt; i++)
@@ -1422,7 +1472,8 @@ stringify_collection_list (struct collection_list *list, char *string)
       end += 10;               /* 'X' + 8 hex digits + ',' */
       count += 10;
 
-      end = mem2hex (list->aexpr_list[i]->buf, end, list->aexpr_list[i]->len);
+      end = mem2hex (list->aexpr_list[i]->buf, 
+                    end, list->aexpr_list[i]->len);
       count += 2 * list->aexpr_list[i]->len;
     }
 
@@ -1436,7 +1487,10 @@ stringify_collection_list (struct collection_list *list, char *string)
   (*str_list)[ndx] = NULL;
 
   if (ndx == 0)
-    return NULL;
+    {
+      free (str_list);
+      return NULL;
+    }
   else
     return *str_list;
 }
@@ -1456,12 +1510,12 @@ free_actions_list (char **actions_list)
     return;
 
   for (ndx = 0; actions_list[ndx]; ndx++)
-    free (actions_list[ndx]);
+    xfree (actions_list[ndx]);
 
-  free (actions_list);
+  xfree (actions_list);
 }
 
-/* render all actions into gdb protocol */
+/* Render all actions into gdb protocol.  */
 static void
 encode_actions (struct tracepoint *t, char ***tdp_actions,
                char ***stepping_actions)
@@ -1471,11 +1525,12 @@ encode_actions (struct tracepoint *t, char ***tdp_actions,
   struct expression *exp = NULL;
   struct action_line *action;
   int i;
-  value_ptr tempval;
+  struct value *tempval;
   struct collection_list *collect;
   struct cmd_list_element *cmd;
   struct agent_expr *aexpr;
-  long frame_reg, frame_offset;
+  int frame_reg;
+  LONGEST frame_offset;
 
 
   clear_collection_list (&tracepoint_list);
@@ -1485,7 +1540,8 @@ encode_actions (struct tracepoint *t, char ***tdp_actions,
   *tdp_actions = NULL;
   *stepping_actions = NULL;
 
-  TARGET_VIRTUAL_FRAME_POINTER (t->address, &frame_reg, &frame_offset);
+  gdbarch_virtual_frame_pointer (current_gdbarch, 
+                                t->address, &frame_reg, &frame_offset);
 
   for (action = t->actions; action; action = action->next)
     {
@@ -1499,9 +1555,9 @@ encode_actions (struct tracepoint *t, char ***tdp_actions,
 
       cmd = lookup_cmd (&action_exp, cmdlist, "", -1, 1);
       if (cmd == 0)
-       error ("Bad action list item: %s", action_exp);
+       error (_("Bad action list item: %s"), action_exp);
 
-      if (cmd->function.cfunc == collect_pseudocommand)
+      if (cmd_cfunc_eq (cmd, collect_pseudocommand))
        {
          do
            {                   /* repeat over a comma-separated list */
@@ -1511,7 +1567,7 @@ encode_actions (struct tracepoint *t, char ***tdp_actions,
 
              if (0 == strncasecmp ("$reg", action_exp, 4))
                {
-                 for (i = 0; i < NUM_REGS; i++)
+                 for (i = 0; i < gdbarch_num_regs (current_gdbarch); i++)
                    add_register (collect, i);
                  action_exp = strchr (action_exp, ',');        /* more? */
                }
@@ -1540,24 +1596,34 @@ encode_actions (struct tracepoint *t, char ***tdp_actions,
                  struct cleanup *old_chain1 = NULL;
                  struct agent_reqs areqs;
 
-                 exp = parse_exp_1 (&action_exp, block_for_pc (t->address), 1);
+                 exp = parse_exp_1 (&action_exp, 
+                                    block_for_pc (t->address), 1);
                  old_chain = make_cleanup (free_current_contents, &exp);
 
                  switch (exp->elts[0].opcode)
                    {
                    case OP_REGISTER:
-                     i = exp->elts[1].longconst;
-                     if (info_verbose)
-                       printf_filtered ("OP_REGISTER: ");
-                     add_register (collect, i);
-                     break;
+                     {
+                       const char *name = &exp->elts[2].string;
+
+                       i = frame_map_name_to_regnum (deprecated_safe_get_selected_frame (),
+                                                     name, strlen (name));
+                       if (i == -1)
+                         internal_error (__FILE__, __LINE__,
+                                         _("Register $%s not available"),
+                                         name);
+                       if (info_verbose)
+                         printf_filtered ("OP_REGISTER: ");
+                       add_register (collect, i);
+                       break;
+                     }
 
                    case UNOP_MEMVAL:
                      /* safe because we know it's a simple expression */
                      tempval = evaluate_expression (exp);
-                     addr = VALUE_ADDRESS (tempval) + VALUE_OFFSET (tempval);
+                     addr = VALUE_ADDRESS (tempval) + value_offset (tempval);
                      len = TYPE_LENGTH (check_typedef (exp->elts[1].type));
-                     add_memrange (collect, -1, addr, len);
+                     add_memrange (collect, memrange_absolute, addr, len);
                      break;
 
                    case OP_VAR_VALUE:
@@ -1574,12 +1640,12 @@ encode_actions (struct tracepoint *t, char ***tdp_actions,
 
                      ax_reqs (aexpr, &areqs);
                      if (areqs.flaw != agent_flaw_none)
-                       error ("malformed expression");
+                       error (_("malformed expression"));
 
                      if (areqs.min_height < 0)
-                       error ("gdb: Internal error: expression has min height < 0");
+                       error (_("gdb: Internal error: expression has min height < 0"));
                      if (areqs.max_height > 20)
-                       error ("expression too complicated, try simplifying");
+                       error (_("expression too complicated, try simplifying"));
 
                      discard_cleanups (old_chain1);
                      add_aexpr (collect, aexpr);
@@ -1599,7 +1665,8 @@ encode_actions (struct tracepoint *t, char ***tdp_actions,
                                  for (ndx2 = 0; ndx2 < 8; ndx2++)
                                    if (areqs.reg_mask[ndx1] & (1 << ndx2))
                                      /* it's used -- record it */
-                                     add_register (collect, ndx1 * 8 + ndx2);
+                                     add_register (collect, 
+                                                   ndx1 * 8 + ndx2);
                                }
                            }
                        }
@@ -1610,11 +1677,11 @@ encode_actions (struct tracepoint *t, char ***tdp_actions,
            }
          while (action_exp && *action_exp++ == ',');
        }                       /* if */
-      else if (cmd->function.cfunc == while_stepping_pseudocommand)
+      else if (cmd_cfunc_eq (cmd, while_stepping_pseudocommand))
        {
          collect = &stepping_list;
        }
-      else if (cmd->function.cfunc == end_actions_pseudocommand)
+      else if (cmd_cfunc_eq (cmd, end_actions_pseudocommand))
        {
          if (collect == &stepping_list)        /* end stepping actions */
            collect = &tracepoint_list;
@@ -1625,8 +1692,10 @@ encode_actions (struct tracepoint *t, char ***tdp_actions,
   memrange_sortmerge (&tracepoint_list);
   memrange_sortmerge (&stepping_list);
 
-  *tdp_actions = stringify_collection_list (&tracepoint_list, tdp_buff);
-  *stepping_actions = stringify_collection_list (&stepping_list, step_buff);
+  *tdp_actions = stringify_collection_list (&tracepoint_list, 
+                                           tdp_buff);
+  *stepping_actions = stringify_collection_list (&stepping_list, 
+                                                step_buff);
 }
 
 static void
@@ -1643,7 +1712,8 @@ add_aexpr (struct collection_list *collect, struct agent_expr *aexpr)
   collect->next_aexpr_elt++;
 }
 
-static char target_buf[2048];
+static char *target_buf;
+static long target_buf_size;
 
 /* Set "transparent" memory ranges
 
@@ -1662,7 +1732,7 @@ remote_set_transparent_ranges (void)
   int anysecs = 0;
 
   if (!exec_bfd)
-    return;                    /* no information to give. */
+    return;                    /* No information to give.  */
 
   strcpy (target_buf, "QTro");
   for (s = exec_bfd->sections; s; s = s->next)
@@ -1676,7 +1746,7 @@ remote_set_transparent_ranges (void)
 
       anysecs = 1;
       lma = s->lma;
-      size = bfd_get_section_size_before_reloc (s);
+      size = bfd_get_section_size (s);
       sprintf_vma (tmp1, lma);
       sprintf_vma (tmp2, lma + size);
       sprintf (target_buf + strlen (target_buf), 
@@ -1685,7 +1755,7 @@ remote_set_transparent_ranges (void)
   if (anysecs)
     {
       putpkt (target_buf);
-      getpkt (target_buf, sizeof (target_buf), 0);
+      getpkt (&target_buf, &target_buf_size, 0);
     }
 }
 
@@ -1698,7 +1768,7 @@ remote_set_transparent_ranges (void)
 
 static void
 trace_start_command (char *args, int from_tty)
-{                              /* STUB_COMM MOSTLY_IMPLEMENTED */
+{
   struct tracepoint *t;
   char buf[2048];
   char **tdp_actions;
@@ -1706,30 +1776,31 @@ trace_start_command (char *args, int from_tty)
   int ndx;
   struct cleanup *old_chain = NULL;
 
-  dont_repeat ();              /* like "run", dangerous to repeat accidentally */
+  dont_repeat ();      /* Like "run", dangerous to repeat accidentally.  */
 
   if (target_is_remote ())
     {
       putpkt ("QTinit");
-      remote_get_noisy_reply (target_buf, sizeof (target_buf));
+      remote_get_noisy_reply (&target_buf, &target_buf_size);
       if (strcmp (target_buf, "OK"))
-       error ("Target does not support this command.");
+       error (_("Target does not support this command."));
 
       ALL_TRACEPOINTS (t)
       {
        char tmp[40];
 
        sprintf_vma (tmp, t->address);
-       sprintf (buf, "QTDP:%x:%s:%c:%lx:%x", t->number, tmp, /* address */
-                t->enabled == enabled ? 'E' : 'D',
+       sprintf (buf, "QTDP:%x:%s:%c:%lx:%x", t->number, 
+                tmp, /* address */
+                t->enabled_p ? 'E' : 'D',
                 t->step_count, t->pass_count);
 
        if (t->actions)
          strcat (buf, "-");
        putpkt (buf);
-       remote_get_noisy_reply (target_buf, sizeof (target_buf));
+       remote_get_noisy_reply (&target_buf, &target_buf_size);
        if (strcmp (target_buf, "OK"))
-         error ("Target does not support tracepoints.");
+         error (_("Target does not support tracepoints."));
 
        if (t->actions)
          {
@@ -1751,9 +1822,10 @@ trace_start_command (char *args, int from_tty)
                             ((tdp_actions[ndx + 1] || stepping_actions)
                              ? '-' : 0));
                    putpkt (buf);
-                   remote_get_noisy_reply (target_buf, sizeof (target_buf));
+                   remote_get_noisy_reply (&target_buf,
+                                           &target_buf_size);
                    if (strcmp (target_buf, "OK"))
-                     error ("Error on target while setting tracepoints.");
+                     error (_("Error on target while setting tracepoints."));
                  }
              }
            if (stepping_actions)
@@ -1767,50 +1839,51 @@ trace_start_command (char *args, int from_tty)
                             stepping_actions[ndx],
                             (stepping_actions[ndx + 1] ? "-" : ""));
                    putpkt (buf);
-                   remote_get_noisy_reply (target_buf, sizeof (target_buf));
+                   remote_get_noisy_reply (&target_buf,
+                                           &target_buf_size);
                    if (strcmp (target_buf, "OK"))
-                     error ("Error on target while setting tracepoints.");
+                     error (_("Error on target while setting tracepoints."));
                  }
              }
 
            do_cleanups (old_chain);
          }
       }
-      /* Tell target to treat text-like sections as transparent */
+      /* Tell target to treat text-like sections as transparent */
       remote_set_transparent_ranges ();
-      /* Now insert traps and begin collecting data */
+      /* Now insert traps and begin collecting data */
       putpkt ("QTStart");
-      remote_get_noisy_reply (target_buf, sizeof (target_buf));
+      remote_get_noisy_reply (&target_buf, &target_buf_size);
       if (strcmp (target_buf, "OK"))
-       error ("Bogus reply from target: %s", target_buf);
-      set_traceframe_num (-1); /* all old traceframes invalidated */
+       error (_("Bogus reply from target: %s"), target_buf);
+      set_traceframe_num (-1); /* All old traceframes invalidated.  */
       set_tracepoint_num (-1);
       set_traceframe_context (-1);
       trace_running_p = 1;
-      if (trace_start_stop_hook)
-       trace_start_stop_hook (1, from_tty);
+      if (deprecated_trace_start_stop_hook)
+       deprecated_trace_start_stop_hook (1, from_tty);
 
     }
   else
-    error ("Trace can only be run on remote targets.");
+    error (_("Trace can only be run on remote targets."));
 }
 
 /* tstop command */
 static void
 trace_stop_command (char *args, int from_tty)
-{                              /* STUB_COMM IS_IMPLEMENTED */
+{
   if (target_is_remote ())
     {
       putpkt ("QTStop");
-      remote_get_noisy_reply (target_buf, sizeof (target_buf));
+      remote_get_noisy_reply (&target_buf, &target_buf_size);
       if (strcmp (target_buf, "OK"))
-       error ("Bogus reply from target: %s", target_buf);
+       error (_("Bogus reply from target: %s"), target_buf);
       trace_running_p = 0;
-      if (trace_start_stop_hook)
-       trace_start_stop_hook (0, from_tty);
+      if (deprecated_trace_start_stop_hook)
+       deprecated_trace_start_stop_hook (0, from_tty);
     }
   else
-    error ("Trace can only be run on remote targets.");
+    error (_("Trace can only be run on remote targets."));
 }
 
 unsigned long trace_running_p;
@@ -1818,27 +1891,27 @@ unsigned long trace_running_p;
 /* tstatus command */
 static void
 trace_status_command (char *args, int from_tty)
-{                              /* STUB_COMM IS_IMPLEMENTED */
+{
   if (target_is_remote ())
     {
       putpkt ("qTStatus");
-      remote_get_noisy_reply (target_buf, sizeof (target_buf));
+      remote_get_noisy_reply (&target_buf, &target_buf_size);
 
       if (target_buf[0] != 'T' ||
          (target_buf[1] != '0' && target_buf[1] != '1'))
-       error ("Bogus reply from target: %s", target_buf);
+       error (_("Bogus reply from target: %s"), target_buf);
 
       /* exported for use by the GUI */
       trace_running_p = (target_buf[1] == '1');
     }
   else
-    error ("Trace can only be run on remote targets.");
+    error (_("Trace can only be run on remote targets."));
 }
 
-/* Worker function for the various flavors of the tfind command */
+/* Worker function for the various flavors of the tfind command */
 static void
-finish_tfind_command (char *msg,
-                     long sizeof_msg,
+finish_tfind_command (char **msg,
+                     long *sizeof_msg,
                      int from_tty)
 {
   int target_frameno = -1, target_tracept = -1;
@@ -1846,10 +1919,10 @@ finish_tfind_command (char *msg,
   struct symbol *old_func;
   char *reply;
 
-  old_frame_addr = FRAME_FP (get_current_frame ());
+  old_frame_addr = get_frame_base (get_current_frame ());
   old_func = find_pc_function (read_pc ());
 
-  putpkt (msg);
+  putpkt (*msg);
   reply = remote_get_noisy_reply (msg, sizeof_msg);
 
   while (reply && *reply)
@@ -1880,35 +1953,35 @@ finish_tfind_command (char *msg,
               and then continue on to do something else.  */
 
            if (from_tty)
-             error ("Target failed to find requested trace frame.");
+             error (_("Target failed to find requested trace frame."));
            else
              {
                if (info_verbose)
                  printf_filtered ("End of trace buffer.\n");
-               /* The following will not recurse, since it's special-cased */
+               /* The following will not recurse, since it's
+                  special-cased.  */
                trace_find_command ("-1", from_tty);
-               reply = NULL;   /* break out of loop, 
-                                  (avoid recursive nonsense) */
+               reply = NULL;   /* Break out of loop 
+                                  (avoid recursive nonsense) */
              }
          }
        break;
       case 'T':
        if ((target_tracept = (int) strtol (++reply, &reply, 16)) == -1)
-         error ("Target failed to find requested trace frame.");
+         error (_("Target failed to find requested trace frame."));
        break;
       case 'O':                /* "OK"? */
        if (reply[1] == 'K' && reply[2] == '\0')
          reply += 2;
        else
-         error ("Bogus reply from target: %s", reply);
+         error (_("Bogus reply from target: %s"), reply);
        break;
       default:
-       error ("Bogus reply from target: %s", reply);
+       error (_("Bogus reply from target: %s"), reply);
       }
 
-  flush_cached_frames ();
+  reinit_frame_cache ();
   registers_changed ();
-  select_frame (get_current_frame (), 0);
   set_traceframe_num (target_frameno);
   set_tracepoint_num (target_tracept);
   if (target_frameno == -1)
@@ -1918,27 +1991,29 @@ finish_tfind_command (char *msg,
 
   if (from_tty)
     {
-      int source_only;
+      enum print_what print_what;
 
       /* NOTE: in immitation of the step command, try to determine
-         whether we have made a transition from one function to another.
-         If so, we'll print the "stack frame" (ie. the new function and
-         it's arguments) -- otherwise we'll just show the new source line.
+         whether we have made a transition from one function to
+         another.  If so, we'll print the "stack frame" (ie. the new
+         function and it's arguments) -- otherwise we'll just show the
+         new source line.
 
-         This determination is made by checking (1) whether the current
-         function has changed, and (2) whether the current FP has changed.
-         Hack: if the FP wasn't collected, either at the current or the
-         previous frame, assume that the FP has NOT changed.  */
+         This determination is made by checking (1) whether the
+         current function has changed, and (2) whether the current FP
+         has changed.  Hack: if the FP wasn't collected, either at the
+         current or the previous frame, assume that the FP has NOT
+         changed.  */
 
       if (old_func == find_pc_function (read_pc ()) &&
          (old_frame_addr == 0 ||
-          FRAME_FP (get_current_frame ()) == 0 ||
-          old_frame_addr == FRAME_FP (get_current_frame ())))
-       source_only = -1;
+          get_frame_base (get_current_frame ()) == 0 ||
+          old_frame_addr == get_frame_base (get_current_frame ())))
+       print_what = SRC_LINE;
       else
-       source_only = 1;
+       print_what = SRC_AND_LOC;
 
-      print_stack_frame (selected_frame, selected_frame_level, source_only);
+      print_stack_frame (get_selected_frame (NULL), 1, print_what);
       do_displays ();
     }
 }
@@ -1960,17 +2035,16 @@ finish_tfind_command (char *msg,
 /* tfind command */
 static void
 trace_find_command (char *args, int from_tty)
-{                              /* STUB_COMM PART_IMPLEMENTED */
-  /* this should only be called with a numeric argument */
+{ /* this should only be called with a numeric argument */
   int frameno = -1;
 
   if (target_is_remote ())
     {
-      if (trace_find_hook)
-       trace_find_hook (args, from_tty);
+      if (deprecated_trace_find_hook)
+       deprecated_trace_find_hook (args, from_tty);
 
       if (args == 0 || *args == 0)
-       {                       /* TFIND with no args means find NEXT trace frame. */
+       { /* TFIND with no args means find NEXT trace frame.  */
          if (traceframe_number == -1)
            frameno = 0;        /* "next" is first one */
          else
@@ -1979,23 +2053,23 @@ trace_find_command (char *args, int from_tty)
       else if (0 == strcmp (args, "-"))
        {
          if (traceframe_number == -1)
-           error ("not debugging trace buffer");
+           error (_("not debugging trace buffer"));
          else if (from_tty && traceframe_number == 0)
-           error ("already at start of trace buffer");
+           error (_("already at start of trace buffer"));
 
          frameno = traceframe_number - 1;
        }
       else
-       frameno = parse_and_eval_address (args);
+       frameno = parse_and_eval_long (args);
 
       if (frameno < -1)
-       error ("invalid input (%d is less than zero)", frameno);
+       error (_("invalid input (%d is less than zero)"), frameno);
 
       sprintf (target_buf, "QTFrame:%x", frameno);
-      finish_tfind_command (target_buf, sizeof (target_buf), from_tty);
+      finish_tfind_command (&target_buf, &target_buf_size, from_tty);
     }
   else
-    error ("Trace can only be run on remote targets.");
+    error (_("Trace can only be run on remote targets."));
 }
 
 /* tfind end */
@@ -2022,7 +2096,7 @@ trace_find_start_command (char *args, int from_tty)
 /* tfind pc command */
 static void
 trace_find_pc_command (char *args, int from_tty)
-{                              /* STUB_COMM PART_IMPLEMENTED */
+{
   CORE_ADDR pc;
   char tmp[40];
 
@@ -2035,46 +2109,48 @@ trace_find_pc_command (char *args, int from_tty)
 
       sprintf_vma (tmp, pc);
       sprintf (target_buf, "QTFrame:pc:%s", tmp);
-      finish_tfind_command (target_buf, sizeof (target_buf), from_tty);
+      finish_tfind_command (&target_buf, &target_buf_size, from_tty);
     }
   else
-    error ("Trace can only be run on remote targets.");
+    error (_("Trace can only be run on remote targets."));
 }
 
 /* tfind tracepoint command */
 static void
 trace_find_tracepoint_command (char *args, int from_tty)
-{                              /* STUB_COMM PART_IMPLEMENTED */
+{
   int tdp;
 
   if (target_is_remote ())
     {
       if (args == 0 || *args == 0)
-       if (tracepoint_number == -1)
-         error ("No current tracepoint -- please supply an argument.");
-       else
-         tdp = tracepoint_number;      /* default is current TDP */
+       {
+         if (tracepoint_number == -1)
+           error (_("No current tracepoint -- please supply an argument."));
+         else
+           tdp = tracepoint_number;    /* default is current TDP */
+       }
       else
-       tdp = parse_and_eval_address (args);
+       tdp = parse_and_eval_long (args);
 
       sprintf (target_buf, "QTFrame:tdp:%x", tdp);
-      finish_tfind_command (target_buf, sizeof (target_buf), from_tty);
+      finish_tfind_command (&target_buf, &target_buf_size, from_tty);
     }
   else
-    error ("Trace can only be run on remote targets.");
+    error (_("Trace can only be run on remote targets."));
 }
 
 /* TFIND LINE command:
 
    This command will take a sourceline for argument, just like BREAK
-   or TRACE (ie. anything that "decode_line_1" can handle).  
+   or TRACE (ie. anything that "decode_line_1" can handle).
 
    With no argument, this command will find the next trace frame 
    corresponding to a source line OTHER THAN THE CURRENT ONE.  */
 
 static void
 trace_find_line_command (char *args, int from_tty)
-{                              /* STUB_COMM PART_IMPLEMENTED */
+{
   static CORE_ADDR start_pc, end_pc;
   struct symtabs_and_lines sals;
   struct symtab_and_line sal;
@@ -2085,7 +2161,7 @@ trace_find_line_command (char *args, int from_tty)
     {
       if (args == 0 || *args == 0)
        {
-         sal = find_pc_line ((get_current_frame ())->pc, 0);
+         sal = find_pc_line (get_frame_pc (get_current_frame ()), 0);
          sals.nelts = 1;
          sals.sals = (struct symtab_and_line *)
            xmalloc (sizeof (struct symtab_and_line));
@@ -2097,15 +2173,15 @@ trace_find_line_command (char *args, int from_tty)
          sal = sals.sals[0];
        }
 
-      old_chain = make_cleanup (free, sals.sals);
+      old_chain = make_cleanup (xfree, sals.sals);
       if (sal.symtab == 0)
        {
          printf_filtered ("TFIND: No line number information available");
          if (sal.pc != 0)
            {
-             /* This is useful for "info line *0x7f34".  If we can't tell the
-                user about a source line, at least let them have the symbolic
-                address.  */
+             /* This is useful for "info line *0x7f34".  If we can't
+                tell the user about a source line, at least let them
+                have the symbolic address.  */
              printf_filtered (" for address ");
              wrap_here ("  ");
              print_address (sal.pc, gdb_stdout);
@@ -2114,7 +2190,7 @@ trace_find_line_command (char *args, int from_tty)
          else
            {
              printf_filtered (".\n");
-             return;           /* no line, no PC; what can we do? */
+             return;           /* No line, no PC; what can we do?  */
            }
        }
       else if (sal.line > 0
@@ -2136,27 +2212,32 @@ trace_find_line_command (char *args, int from_tty)
                printf_filtered ("Attempting to find line %d instead.\n",
                                 sal.line);
              else
-               error ("Cannot find a good line.");
+               error (_("Cannot find a good line."));
            }
        }
       else
        /* Is there any case in which we get here, and have an address
-          which the user would want to see?  If we have debugging symbols
-          and no line numbers?  */
-       error ("Line number %d is out of range for \"%s\".\n",
+          which the user would want to see?  If we have debugging
+          symbols and no line numbers?  */
+       error (_("Line number %d is out of range for \"%s\"."),
               sal.line, sal.symtab->filename);
 
       sprintf_vma (startpc_str, start_pc);
       sprintf_vma (endpc_str, end_pc - 1);
-      if (args && *args)       /* find within range of stated line */
-       sprintf (target_buf, "QTFrame:range:%s:%s", startpc_str, endpc_str);
-      else                     /* find OUTSIDE OF range of CURRENT line */
-       sprintf (target_buf, "QTFrame:outside:%s:%s", startpc_str, endpc_str);
-      finish_tfind_command (target_buf, sizeof (target_buf), from_tty);
+      /* Find within range of stated line.  */
+      if (args && *args)
+       sprintf (target_buf, "QTFrame:range:%s:%s", 
+                startpc_str, endpc_str);
+      /* Find OUTSIDE OF range of CURRENT line.  */
+      else
+       sprintf (target_buf, "QTFrame:outside:%s:%s", 
+                startpc_str, endpc_str);
+      finish_tfind_command (&target_buf, &target_buf_size,
+                           from_tty);
       do_cleanups (old_chain);
     }
   else
-    error ("Trace can only be run on remote targets.");
+    error (_("Trace can only be run on remote targets."));
 }
 
 /* tfind range command */
@@ -2170,7 +2251,7 @@ trace_find_range_command (char *args, int from_tty)
   if (target_is_remote ())
     {
       if (args == 0 || *args == 0)
-       {               /* XXX FIXME: what should default behavior be? */
+       { /* XXX FIXME: what should default behavior be?  */
          printf_filtered ("Usage: tfind range <startaddr>,<endaddr>\n");
          return;
        }
@@ -2192,10 +2273,10 @@ trace_find_range_command (char *args, int from_tty)
       sprintf_vma (start_str, start);
       sprintf_vma (stop_str, stop);
       sprintf (target_buf, "QTFrame:range:%s:%s", start_str, stop_str);
-      finish_tfind_command (target_buf, sizeof (target_buf), from_tty);
+      finish_tfind_command (&target_buf, &target_buf_size, from_tty);
     }
   else
-    error ("Trace can only be run on remote targets.");
+    error (_("Trace can only be run on remote targets."));
 }
 
 /* tfind outside command */
@@ -2209,7 +2290,7 @@ trace_find_outside_command (char *args, int from_tty)
   if (target_is_remote ())
     {
       if (args == 0 || *args == 0)
-       {               /* XXX FIXME: what should default behavior be? */
+       { /* XXX FIXME: what should default behavior be? */
          printf_filtered ("Usage: tfind outside <startaddr>,<endaddr>\n");
          return;
        }
@@ -2231,10 +2312,10 @@ trace_find_outside_command (char *args, int from_tty)
       sprintf_vma (start_str, start);
       sprintf_vma (stop_str, stop);
       sprintf (target_buf, "QTFrame:outside:%s:%s", start_str, stop_str);
-      finish_tfind_command (target_buf, sizeof (target_buf), from_tty);
+      finish_tfind_command (&target_buf, &target_buf_size, from_tty);
     }
   else
-    error ("Trace can only be run on remote targets.");
+    error (_("Trace can only be run on remote targets."));
 }
 
 /* save-tracepoints command */
@@ -2245,21 +2326,24 @@ tracepoint_save_command (char *args, int from_tty)
   struct action_line *line;
   FILE *fp;
   char *i1 = "    ", *i2 = "      ";
-  char *indent, *actionline;
+  char *indent, *actionline, *pathname;
   char tmp[40];
 
   if (args == 0 || *args == 0)
-    error ("Argument required (file name in which to save tracepoints");
+    error (_("Argument required (file name in which to save tracepoints)"));
 
   if (tracepoint_chain == 0)
     {
-      warning ("save-tracepoints: no tracepoints to save.\n");
+      warning (_("save-tracepoints: no tracepoints to save."));
       return;
     }
 
-  if (!(fp = fopen (args, "w")))
-    error ("Unable to open file '%s' for saving tracepoints");
-
+  pathname = tilde_expand (args);
+  if (!(fp = fopen (pathname, "w")))
+    error (_("Unable to open file '%s' for saving tracepoints (%s)"),
+          args, safe_strerror (errno));
+  xfree (pathname);
+  
   ALL_TRACEPOINTS (tp)
   {
     if (tp->addr_string)
@@ -2291,10 +2375,10 @@ tracepoint_save_command (char *args, int from_tty)
              {
                cmd = lookup_cmd (&actionline, cmdlist, "", -1, 1);
                if (cmd == 0)
-                 error ("Bad action list item: %s", actionline);
-               if (cmd->function.cfunc == while_stepping_pseudocommand)
+                 error (_("Bad action list item: %s"), actionline);
+               if (cmd_cfunc_eq (cmd, while_stepping_pseudocommand))
                  indent = i2;
-               else if (cmd->function.cfunc == end_actions_pseudocommand)
+               else if (cmd_cfunc_eq (cmd, end_actions_pseudocommand))
                  indent = i1;
              }
          }
@@ -2315,14 +2399,15 @@ scope_info (char *args, int from_tty)
   struct minimal_symbol *msym;
   struct block *block;
   char **canonical, *symname, *save_args = args;
-  int i, j, nsyms, count = 0;
+  struct dict_iterator iter;
+  int j, count = 0;
 
   if (args == 0 || *args == 0)
-    error ("requires an argument (function, line or *addr) to define a scope");
+    error (_("requires an argument (function, line or *addr) to define a scope"));
 
-  sals = decode_line_1 (&args, 1, NULL, 0, &canonical);
+  sals = decode_line_1 (&args, 1, NULL, 0, &canonical, NULL);
   if (sals.nelts == 0)
-    return;                    /* presumably decode_line_1 has already warned */
+    return;            /* presumably decode_line_1 has already warned */
 
   /* Resolve line numbers to PC */
   resolve_sal_pc (&sals.sals[0]);
@@ -2331,15 +2416,14 @@ scope_info (char *args, int from_tty)
   while (block != 0)
     {
       QUIT;                    /* allow user to bail out with ^C */
-      nsyms = BLOCK_NSYMS (block);
-      for (i = 0; i < nsyms; i++)
+      ALL_BLOCK_SYMBOLS (block, iter, sym)
        {
          QUIT;                 /* allow user to bail out with ^C */
          if (count == 0)
            printf_filtered ("Scope for %s:\n", save_args);
          count++;
-         sym = BLOCK_SYM (block, i);
-         symname = SYMBOL_NAME (sym);
+
+         symname = DEPRECATED_SYMBOL_NAME (sym);
          if (symname == NULL || *symname == '\0')
            continue;           /* probably botched, certainly useless */
 
@@ -2365,11 +2449,13 @@ scope_info (char *args, int from_tty)
              break;
            case LOC_STATIC:
              printf_filtered ("in static storage at address ");
-             print_address_numeric (SYMBOL_VALUE_ADDRESS (sym), 1, gdb_stdout);
+             deprecated_print_address_numeric (SYMBOL_VALUE_ADDRESS (sym), 
+                                    1, gdb_stdout);
              break;
            case LOC_REGISTER:
              printf_filtered ("a local variable in register $%s",
-                              REGISTER_NAME (SYMBOL_VALUE (sym)));
+                              gdbarch_register_name
+                                (current_gdbarch, SYMBOL_VALUE (sym)));
              break;
            case LOC_ARG:
            case LOC_LOCAL_ARG:
@@ -2386,52 +2472,70 @@ scope_info (char *args, int from_tty)
              break;
            case LOC_REGPARM:
              printf_filtered ("an argument in register $%s",
-                              REGISTER_NAME (SYMBOL_VALUE (sym)));
+                              gdbarch_register_name
+                                (current_gdbarch, SYMBOL_VALUE (sym)));
              break;
            case LOC_REGPARM_ADDR:
              printf_filtered ("the address of an argument, in register $%s",
-                              REGISTER_NAME (SYMBOL_VALUE (sym)));
+                              gdbarch_register_name
+                                (current_gdbarch, SYMBOL_VALUE (sym)));
              break;
            case LOC_TYPEDEF:
              printf_filtered ("a typedef.\n");
              continue;
            case LOC_LABEL:
              printf_filtered ("a label at address ");
-             print_address_numeric (SYMBOL_VALUE_ADDRESS (sym), 1, gdb_stdout);
+             deprecated_print_address_numeric (SYMBOL_VALUE_ADDRESS (sym), 
+                                    1, gdb_stdout);
              break;
            case LOC_BLOCK:
              printf_filtered ("a function at address ");
-             print_address_numeric (BLOCK_START (SYMBOL_BLOCK_VALUE (sym)), 1,
-                                    gdb_stdout);
+             deprecated_print_address_numeric (BLOCK_START (SYMBOL_BLOCK_VALUE (sym)),
+                                    1, gdb_stdout);
              break;
            case LOC_BASEREG:
              printf_filtered ("a variable at offset %ld from register $%s",
                               SYMBOL_VALUE (sym),
-                              REGISTER_NAME (SYMBOL_BASEREG (sym)));
+                              gdbarch_register_name
+                                (current_gdbarch, SYMBOL_BASEREG (sym)));
              break;
            case LOC_BASEREG_ARG:
              printf_filtered ("an argument at offset %ld from register $%s",
                               SYMBOL_VALUE (sym),
-                              REGISTER_NAME (SYMBOL_BASEREG (sym)));
+                              gdbarch_register_name
+                                (current_gdbarch, SYMBOL_BASEREG (sym)));
              break;
            case LOC_UNRESOLVED:
-             msym = lookup_minimal_symbol (SYMBOL_NAME (sym), NULL, NULL);
+             msym = lookup_minimal_symbol (DEPRECATED_SYMBOL_NAME (sym), 
+                                           NULL, NULL);
              if (msym == NULL)
                printf_filtered ("Unresolved Static");
              else
                {
                  printf_filtered ("static storage at address ");
-                 print_address_numeric (SYMBOL_VALUE_ADDRESS (msym), 1,
+                 deprecated_print_address_numeric (SYMBOL_VALUE_ADDRESS (msym), 1,
                                         gdb_stdout);
                }
              break;
            case LOC_OPTIMIZED_OUT:
              printf_filtered ("optimized out.\n");
              continue;
+           case LOC_HP_THREAD_LOCAL_STATIC:
+             printf_filtered ("HP thread local static ");
+             break;
+           case LOC_INDIRECT:
+             printf_filtered ("extern (local indirect) at address ");
+             deprecated_print_address_numeric (SYMBOL_VALUE_ADDRESS (sym), 
+                                    1, gdb_stdout);
+             break;
+           case LOC_COMPUTED:
+           case LOC_COMPUTED_ARG:
+             SYMBOL_OPS (sym)->describe_location (sym, gdb_stdout);
+             break;
            }
          if (SYMBOL_TYPE (sym))
            printf_filtered (", length %d.\n",
-                          TYPE_LENGTH (check_typedef (SYMBOL_TYPE (sym))));
+                            TYPE_LENGTH (check_typedef (SYMBOL_TYPE (sym))));
        }
       if (BLOCK_FUNCTION (block))
        break;
@@ -2464,13 +2568,13 @@ trace_dump_command (char *args, int from_tty)
 
   if (!target_is_remote ())
     {
-      error ("Trace can only be run on remote targets.");
+      error (_("Trace can only be run on remote targets."));
       return;
     }
 
   if (tracepoint_number == -1)
     {
-      warning ("No current trace frame.");
+      warning (_("No current trace frame."));
       return;
     }
 
@@ -2479,7 +2583,7 @@ trace_dump_command (char *args, int from_tty)
     break;
 
   if (t == NULL)
-    error ("No known tracepoint matches 'current' tracepoint #%d.",
+    error (_("No known tracepoint matches 'current' tracepoint #%d."),
           tracepoint_number);
 
   old_cleanups = make_cleanup (null_cleanup, NULL);
@@ -2491,7 +2595,8 @@ trace_dump_command (char *args, int from_tty)
      to the tracepoint PC.  If not, then the current frame was
      collected during single-stepping.  */
 
-  stepping_frame = (t->address != read_pc ());
+  stepping_frame = (t->address != (read_pc () - gdbarch_decr_pc_after_break
+                                                 (current_gdbarch)));
 
   for (action = t->actions; action; action = action->next)
     {
@@ -2510,19 +2615,20 @@ trace_dump_command (char *args, int from_tty)
 
       cmd = lookup_cmd (&action_exp, cmdlist, "", -1, 1);
       if (cmd == 0)
-       error ("Bad action list item: %s", action_exp);
+       error (_("Bad action list item: %s"), action_exp);
 
-      if (cmd->function.cfunc == while_stepping_pseudocommand)
+      if (cmd_cfunc_eq (cmd, while_stepping_pseudocommand))
        stepping_actions = 1;
-      else if (cmd->function.cfunc == end_actions_pseudocommand)
+      else if (cmd_cfunc_eq (cmd, end_actions_pseudocommand))
        stepping_actions = 0;
-      else if (cmd->function.cfunc == collect_pseudocommand)
+      else if (cmd_cfunc_eq (cmd, collect_pseudocommand))
        {
          /* Display the collected data.
-            For the trap frame, display only what was collected at the trap.
-            Likewise for stepping frames, display only what was collected
-            while stepping.  This means that the two boolean variables,
-            STEPPING_FRAME and STEPPING_ACTIONS should be equal.  */
+            For the trap frame, display only what was collected at
+            the trap.  Likewise for stepping frames, display only
+            what was collected while stepping.  This means that the
+            two boolean variables, STEPPING_FRAME and
+            STEPPING_ACTIONS should be equal.  */
          if (stepping_frame == stepping_actions)
            {
              do
@@ -2570,10 +2676,10 @@ trace_dump_command (char *args, int from_tty)
 
 static const char hexchars[] = "0123456789abcdef";
 
-static unsigned char *
-mem2hex (unsigned char *mem, unsigned char *buf, int count)
+static char *
+mem2hex (gdb_byte *mem, char *buf, int count)
 {
-  unsigned char ch;
+  gdb_byte ch;
 
   while (count-- > 0)
     {
@@ -2599,16 +2705,13 @@ get_traceframe_number (void)
 void
 _initialize_tracepoint (void)
 {
+  struct cmd_list_element *c;
+
   tracepoint_chain = 0;
   tracepoint_count = 0;
   traceframe_number = -1;
   tracepoint_number = -1;
 
-  set_internalvar (lookup_internalvar ("tpnum"),
-                  value_from_longest (builtin_type_int, (LONGEST) 0));
-  set_internalvar (lookup_internalvar ("trace_frame"),
-                  value_from_longest (builtin_type_int, (LONGEST) - 1));
-
   if (tracepoint_list.list == NULL)
     {
       tracepoint_list.listsize = 128;
@@ -2637,147 +2740,152 @@ _initialize_tracepoint (void)
     }
 
   add_info ("scope", scope_info,
-           "List the variables local to a scope");
+           _("List the variables local to a scope"));
 
-  add_cmd ("tracepoints", class_trace, NO_FUNCTION,
-          "Tracing of program execution without stopping the program.",
+  add_cmd ("tracepoints", class_trace, NULL,
+          _("Tracing of program execution without stopping the program."),
           &cmdlist);
 
-  add_info ("tracepoints", tracepoints_info,
-           "Status of tracepoints, or tracepoint number NUMBER.\n\
+  add_info ("tracepoints", tracepoints_info, _("\
+Status of tracepoints, or tracepoint number NUMBER.\n\
 Convenience variable \"$tpnum\" contains the number of the\n\
-last tracepoint set.");
+last tracepoint set."));
 
   add_info_alias ("tp", "tracepoints", 1);
 
-  add_com ("save-tracepoints", class_trace, tracepoint_save_command,
-          "Save current tracepoint definitions as a script.\n\
-Use the 'source' command in another debug session to restore them.");
+  c = add_com ("save-tracepoints", class_trace, tracepoint_save_command, _("\
+Save current tracepoint definitions as a script.\n\
+Use the 'source' command in another debug session to restore them."));
+  set_cmd_completer (c, filename_completer);
 
   add_com ("tdump", class_trace, trace_dump_command,
-          "Print everything collected at the current tracepoint.");
+          _("Print everything collected at the current tracepoint."));
 
-  add_prefix_cmd ("tfind", class_trace, trace_find_command,
-                 "Select a trace frame;\n\
-No argument means forward by one frame; '-' meand backward by one frame.",
+  add_prefix_cmd ("tfind", class_trace, trace_find_command, _("\
+Select a trace frame;\n\
+No argument means forward by one frame; '-' means backward by one frame."),
                  &tfindlist, "tfind ", 1, &cmdlist);
 
-  add_cmd ("outside", class_trace, trace_find_outside_command,
-          "Select a trace frame whose PC is outside the given \
-range.\nUsage: tfind outside addr1, addr2",
+  add_cmd ("outside", class_trace, trace_find_outside_command, _("\
+Select a trace frame whose PC is outside the given range.\n\
+Usage: tfind outside addr1, addr2"),
           &tfindlist);
 
-  add_cmd ("range", class_trace, trace_find_range_command,
-          "Select a trace frame whose PC is in the given range.\n\
-Usage: tfind range addr1,addr2",
+  add_cmd ("range", class_trace, trace_find_range_command, _("\
+Select a trace frame whose PC is in the given range.\n\
+Usage: tfind range addr1,addr2"),
           &tfindlist);
 
-  add_cmd ("line", class_trace, trace_find_line_command,
-          "Select a trace frame by source line.\n\
+  add_cmd ("line", class_trace, trace_find_line_command, _("\
+Select a trace frame by source line.\n\
 Argument can be a line number (with optional source file), \n\
 a function name, or '*' followed by an address.\n\
-Default argument is 'the next source line that was traced'.",
+Default argument is 'the next source line that was traced'."),
           &tfindlist);
 
-  add_cmd ("tracepoint", class_trace, trace_find_tracepoint_command,
-          "Select a trace frame by tracepoint number.\n\
-Default is the tracepoint for the current trace frame.",
+  add_cmd ("tracepoint", class_trace, trace_find_tracepoint_command, _("\
+Select a trace frame by tracepoint number.\n\
+Default is the tracepoint for the current trace frame."),
           &tfindlist);
 
-  add_cmd ("pc", class_trace, trace_find_pc_command,
-          "Select a trace frame by PC.\n\
-Default is the current PC, or the PC of the current trace frame.",
+  add_cmd ("pc", class_trace, trace_find_pc_command, _("\
+Select a trace frame by PC.\n\
+Default is the current PC, or the PC of the current trace frame."),
           &tfindlist);
 
-  add_cmd ("end", class_trace, trace_find_end_command,
-          "Synonym for 'none'.\n\
-De-select any trace frame and resume 'live' debugging.",
+  add_cmd ("end", class_trace, trace_find_end_command, _("\
+Synonym for 'none'.\n\
+De-select any trace frame and resume 'live' debugging."),
           &tfindlist);
 
   add_cmd ("none", class_trace, trace_find_none_command,
-          "De-select any trace frame and resume 'live' debugging.",
+          _("De-select any trace frame and resume 'live' debugging."),
           &tfindlist);
 
   add_cmd ("start", class_trace, trace_find_start_command,
-          "Select the first trace frame in the trace buffer.",
+          _("Select the first trace frame in the trace buffer."),
           &tfindlist);
 
   add_com ("tstatus", class_trace, trace_status_command,
-          "Display the status of the current trace data collection.");
+          _("Display the status of the current trace data collection."));
 
   add_com ("tstop", class_trace, trace_stop_command,
-          "Stop trace data collection.");
+          _("Stop trace data collection."));
 
   add_com ("tstart", class_trace, trace_start_command,
-          "Start trace data collection.");
+          _("Start trace data collection."));
 
-  add_com ("passcount", class_trace, trace_pass_command,
-          "Set the passcount for a tracepoint.\n\
+  add_com ("passcount", class_trace, trace_pass_command, _("\
+Set the passcount for a tracepoint.\n\
 The trace will end when the tracepoint has been passed 'count' times.\n\
 Usage: passcount COUNT TPNUM, where TPNUM may also be \"all\";\n\
-if TPNUM is omitted, passcount refers to the last tracepoint defined.");
+if TPNUM is omitted, passcount refers to the last tracepoint defined."));
 
-  add_com ("end", class_trace, end_actions_pseudocommand,
-          "Ends a list of commands or actions.\n\
+  add_com ("end", class_trace, end_actions_pseudocommand, _("\
+Ends a list of commands or actions.\n\
 Several GDB commands allow you to enter a list of commands or actions.\n\
 Entering \"end\" on a line by itself is the normal way to terminate\n\
 such a list.\n\n\
-Note: the \"end\" command cannot be used at the gdb prompt.");
+Note: the \"end\" command cannot be used at the gdb prompt."));
 
-  add_com ("while-stepping", class_trace, while_stepping_pseudocommand,
-          "Specify single-stepping behavior at a tracepoint.\n\
+  add_com ("while-stepping", class_trace, while_stepping_pseudocommand, _("\
+Specify single-stepping behavior at a tracepoint.\n\
 Argument is number of instructions to trace in single-step mode\n\
 following the tracepoint.  This command is normally followed by\n\
 one or more \"collect\" commands, to specify what to collect\n\
 while single-stepping.\n\n\
-Note: this command can only be used in a tracepoint \"actions\" list.");
+Note: this command can only be used in a tracepoint \"actions\" list."));
 
   add_com_alias ("ws", "while-stepping", class_alias, 0);
   add_com_alias ("stepping", "while-stepping", class_alias, 0);
 
-  add_com ("collect", class_trace, collect_pseudocommand,
-          "Specify one or more data items to be collected at a tracepoint.\n\
+  add_com ("collect", class_trace, collect_pseudocommand, _("\
+Specify one or more data items to be collected at a tracepoint.\n\
 Accepts a comma-separated list of (one or more) expressions.  GDB will\n\
 collect all data (variables, registers) referenced by that expression.\n\
 Also accepts the following special arguments:\n\
     $regs   -- all registers.\n\
     $args   -- all function arguments.\n\
     $locals -- all variables local to the block/function scope.\n\
-Note: this command can only be used in a tracepoint \"actions\" list.");
+Note: this command can only be used in a tracepoint \"actions\" list."));
 
-  add_com ("actions", class_trace, trace_actions_command,
-          "Specify the actions to be taken at a tracepoint.\n\
+  add_com ("actions", class_trace, trace_actions_command, _("\
+Specify the actions to be taken at a tracepoint.\n\
 Tracepoint actions may include collecting of specified data, \n\
 single-stepping, or enabling/disabling other tracepoints, \n\
-depending on target's capabilities.");
+depending on target's capabilities."));
 
-  add_cmd ("tracepoints", class_trace, delete_trace_command,
-          "Delete specified tracepoints.\n\
+  add_cmd ("tracepoints", class_trace, delete_trace_command, _("\
+Delete specified tracepoints.\n\
 Arguments are tracepoint numbers, separated by spaces.\n\
-No argument means delete all tracepoints.",
+No argument means delete all tracepoints."),
           &deletelist);
 
-  add_cmd ("tracepoints", class_trace, disable_trace_command,
-          "Disable specified tracepoints.\n\
+  add_cmd ("tracepoints", class_trace, disable_trace_command, _("\
+Disable specified tracepoints.\n\
 Arguments are tracepoint numbers, separated by spaces.\n\
-No argument means disable all tracepoints.",
+No argument means disable all tracepoints."),
           &disablelist);
 
-  add_cmd ("tracepoints", class_trace, enable_trace_command,
-          "Enable specified tracepoints.\n\
+  add_cmd ("tracepoints", class_trace, enable_trace_command, _("\
+Enable specified tracepoints.\n\
 Arguments are tracepoint numbers, separated by spaces.\n\
-No argument means enable all tracepoints.",
+No argument means enable all tracepoints."),
           &enablelist);
 
-  add_com ("trace", class_trace, trace_command,
-          "Set a tracepoint at a specified line or function or address.\n\
+  c = add_com ("trace", class_trace, trace_command, _("\
+Set a tracepoint at a specified line or function or address.\n\
 Argument may be a line number, function name, or '*' plus an address.\n\
 For a line number or function, trace at the start of its code.\n\
 If an address is specified, trace at that exact address.\n\n\
-Do \"help tracepoints\" for info on other tracepoint commands.");
+Do \"help tracepoints\" for info on other tracepoint commands."));
+  set_cmd_completer (c, location_completer);
 
   add_com_alias ("tp", "trace", class_alias, 0);
   add_com_alias ("tr", "trace", class_alias, 1);
   add_com_alias ("tra", "trace", class_alias, 1);
   add_com_alias ("trac", "trace", class_alias, 1);
+
+  target_buf_size = 2048;
+  target_buf = xmalloc (target_buf_size);
 }