From: Jim Kingdon <jkingdon@engr.sgi.com>
Date: Tue, 25 May 1993 16:22:41 +0000 (+0000)
Subject: 	* Many places: replace "the inferior" in messages with "the program"
X-Git-Url: http://drtracing.org/?a=commitdiff_plain;h=6fe90fc83fa5c600bb3ae1d3d17749b7f1377dc9;p=deliverable%2Fbinutils-gdb.git

	* Many places: replace "the inferior" in messages with "the program"
	or "the program being debugged".
	* inflow.c (try_writing_regs): Remove; it's been #if 0'd forever
	and I'm getting sick of maintaining it.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index b8af0de9f1..6f8f1056f2 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,10 @@
 Tue May 25 09:36:13 1993  Jim Kingdon  (kingdon@lioth.cygnus.com)
 
+	* Many places: replace "the inferior" in messages with "the program"
+	or "the program being debugged".
+	* inflow.c (try_writing_regs): Revove; it's been #if 0'd forever
+	and I'm getting sick of maintaining it.
+
 	* config/i386/linux.mh: Don't use \ newline; the awk scripts don't
 	support it.
 
diff --git a/gdb/altos-xdep.c b/gdb/altos-xdep.c
index 243f35e2c7..4156c331eb 100644
--- a/gdb/altos-xdep.c
+++ b/gdb/altos-xdep.c
@@ -80,7 +80,7 @@ core_file_command (filename, from_tty)
       make_cleanup (free, filename);
       
       if (have_inferior_p ())
-	error ("To look at a core file, you must kill the inferior with \"kill\".");
+	error ("To look at a core file, you must kill the program with \"kill\".");
       corechan = open (filename, O_RDONLY, 0);
       if (corechan < 0)
 	perror_with_name (filename);
diff --git a/gdb/arm-xdep.c b/gdb/arm-xdep.c
index 64aa0d8c33..695e9cce32 100644
--- a/gdb/arm-xdep.c
+++ b/gdb/arm-xdep.c
@@ -187,7 +187,7 @@ core_file_command (filename, from_tty)
       make_cleanup (free, filename);
       
       if (have_inferior_p ())
-	error ("To look at a core file, you must kill the inferior with \"kill\".");
+	error ("To look at a core file, you must kill the program with \"kill\".");
       corechan = open (filename, O_RDONLY, 0);
       if (corechan < 0)
 	perror_with_name (filename);
diff --git a/gdb/convex-xdep.c b/gdb/convex-xdep.c
index 08ce2654a3..4b53f07918 100644
--- a/gdb/convex-xdep.c
+++ b/gdb/convex-xdep.c
@@ -826,7 +826,7 @@ core_file_command (filename, from_tty)
       make_cleanup (free, filename);
       
       if (have_inferior_p ())
-	error ("To look at a core file, you must kill the inferior with \"kill\".");
+	error ("To look at a core file, you must kill the program with \"kill\".");
       corechan = open (filename, O_RDONLY, 0);
       if (corechan < 0)
 	perror_with_name (filename);
diff --git a/gdb/gould-xdep.c b/gdb/gould-xdep.c
index 5a320ba6a1..e167f7251e 100644
--- a/gdb/gould-xdep.c
+++ b/gdb/gould-xdep.c
@@ -69,7 +69,7 @@ core_file_command (filename, from_tty)
       make_cleanup (free, filename);
       
       if (have_inferior_p ())
-	error ("To look at a core file, you must kill the inferior with \"kill\".");
+	error ("To look at a core file, you must kill the program with \"kill\".");
       corechan = open (filename, O_RDONLY, 0);
       if (corechan < 0)
 	perror_with_name (filename);
diff --git a/gdb/main.c b/gdb/main.c
index 284acc3e73..9706105ac4 100644
--- a/gdb/main.c
+++ b/gdb/main.c
@@ -169,7 +169,8 @@ source_cleanup PARAMS ((FILE *));
 #ifndef	GDBINIT_FILENAME
 #define	GDBINIT_FILENAME	".gdbinit"
 #endif
-char gdbinit[] = GDBINIT_FILENAME;
+static char gdbinit[] = GDBINIT_FILENAME;
+static int inhibit_gdbinit = 0;
 
 #define	ALL_CLEANUPS	((struct cleanup *)0)
 
@@ -384,7 +385,8 @@ static void
 disconnect (signo)
 int signo;
 {
-  catch_errors (quit_cover, NULL, "Could not kill inferior process");
+  catch_errors (quit_cover, NULL,
+		"Could not kill the program being debugged");
   signal (SIGHUP, SIG_DFL);
   kill (getpid (), SIGHUP);
 }
@@ -431,7 +433,6 @@ main (argc, argv)
      char **argv;
 {
   int count;
-  static int inhibit_gdbinit = 0;
   static int quiet = 0;
   static int batch = 0;
 
@@ -1454,7 +1455,7 @@ command_line_input (prrompt, repeat)
   }
 
 #ifdef STOP_SIGNAL
-  signal (SIGTSTP, SIG_DFL);
+  signal (STOP_SIGNAL, SIG_DFL);
 #endif
   immediate_quit--;
 
@@ -1893,7 +1894,7 @@ print_gdb_version (stream)
   FILE *stream;
 {
   fprintf_filtered (stream, "\
-GDB %s, Copyright 1992 Free Software Foundation, Inc.",
+GDB %s, Copyright 1993 Free Software Foundation, Inc.",
 	  version);
 }
 
@@ -1926,15 +1927,20 @@ quit_command (args, from_tty)
 {
   if (inferior_pid != 0 && target_has_execution)
     {
-      if (query ("The program is running.  Quit anyway? "))
+      if (attach_flag)
 	{
-	  if (attach_flag)
+	  if (query ("The program is running.  Quit anyway (and detach it)? "))
 	    target_detach (args, from_tty);
 	  else
-	    target_kill ();
+	    error ("Not confirmed.");
 	}
       else
-	error ("Not confirmed.");
+	{
+	  if (query ("The program is running.  Quit anyway (and kill it)? "))
+	    target_kill ();
+	  else
+	    error ("Not confirmed.");
+	}
     }
   /* Save the history information if it is appropriate to do so.  */
   if (write_history_p && history_filename)
@@ -2043,14 +2049,15 @@ source_command (args, from_tty)
   struct cleanup *cleanups;
   char *file = args;
 
-  if (file == 0)
-    /* Let source without arguments read .gdbinit.  */
-    file = gdbinit;
+  if (file == NULL)
+    {
+      error ("source command requires pathname of file to source.");
+    }
 
   file = tilde_expand (file);
   make_cleanup (free, file);
 
-  stream = fopen (file, "r");
+  stream = fopen (file, FOPEN_RT);
   if (stream == 0)
     perror_with_name (file);
 
@@ -2184,13 +2191,13 @@ set_history_size_command (args, from_tty, c)
      int from_tty;
      struct cmd_list_element *c;
 {
-  if (history_size == UINT_MAX)
+  if (history_size == INT_MAX)
     unstifle_history ();
   else if (history_size >= 0)
     stifle_history (history_size);
   else
     {
-      history_size = UINT_MAX;
+      history_size = INT_MAX;
       error ("History size must be non-negative");
     }
 }
@@ -2453,7 +2460,7 @@ Use \"on\" to enable to enable the saving, and \"off\" to disable it.\n\
 Without an argument, saving is enabled.", &sethistlist),
      &showhistlist);
 
-  c = add_set_cmd ("size", no_class, var_uinteger, (char *)&history_size,
+  c = add_set_cmd ("size", no_class, var_integer, (char *)&history_size,
 		   "Set the size of the command history, \n\
 ie. the number of previous commands to keep a record of.", &sethistlist);
   add_show_from_set (c, &showhistlist);
diff --git a/gdb/printcmd.c b/gdb/printcmd.c
index 0a83990b27..00fb3ea3e4 100644
--- a/gdb/printcmd.c
+++ b/gdb/printcmd.c
@@ -218,7 +218,7 @@ decode_format (string_ptr, oformat, osize)
     {
       if (*p == 'b' || *p == 'h' || *p == 'w' || *p == 'g')
 	val.size = *p++;
-#ifdef LONG_LONG
+#ifdef CC_HAS_LONG_LONG
       else if (*p == 'l')
 	{
 	  val.size = 'g';
@@ -231,7 +231,7 @@ decode_format (string_ptr, oformat, osize)
 	break;
     }
 
-#ifndef LONG_LONG
+#ifndef CC_HAS_LONG_LONG
   /* Make sure 'g' size is not used on integer types.
      Well, actually, we can handle hex.  */
   if (val.size == 'g' && val.format != 'f' && val.format != 'x')
@@ -398,75 +398,33 @@ print_scalar_formatted (valaddr, type, format, size, stream)
       if (!size)
 	{
 	  /* no size specified, like in print.  Print varying # of digits. */
-#if defined (LONG_LONG)
-	  fprintf_filtered (stream, local_hex_format_custom("ll"), val_long);
-#else /* not LONG_LONG.  */
-	  fprintf_filtered (stream, local_hex_format_custom("l"), val_long);
-#endif /* not LONG_LONG.  */
+	  print_longest (stream, 'x', 1, val_long);
 	}
       else
-#if defined (LONG_LONG)
-      switch (size)
-	{
-	case 'b':
-	  fprintf_filtered (stream, local_hex_format_custom("02ll"), val_long);
-	  break;
-	case 'h':
-	  fprintf_filtered (stream, local_hex_format_custom("04ll"), val_long);
-	  break;
-	case 'w':
-	  fprintf_filtered (stream, local_hex_format_custom("08ll"), val_long);
-	  break;
-	case 'g':
-	  fprintf_filtered (stream, local_hex_format_custom("016ll"), val_long);
-	  break;
-	default:
-	  error ("Undefined output size \"%c\".", size);
-	}
-#else /* not LONG_LONG.  */
-      switch (size)
-	{
-	case 'b':
-	  fprintf_filtered (stream, local_hex_format_custom("02"), val_long);
-	  break;
-	case 'h':
-	  fprintf_filtered (stream, local_hex_format_custom("04"), val_long);
-	  break;
-	case 'w':
-	  fprintf_filtered (stream, local_hex_format_custom("08"), val_long);
-	  break;
-	case 'g':
-	  fprintf_filtered (stream, local_hex_format_custom("016"), val_long);
-	  break;
-	default:
-	  error ("Undefined output size \"%c\".", size);
-	}
-#endif /* not LONG_LONG */
+	switch (size)
+	  {
+	  case 'b':
+	  case 'h':
+	  case 'w':
+	  case 'g':
+	    print_longest (stream, size, 1, val_long);
+	    break;
+	  default:
+	    error ("Undefined output size \"%c\".", size);
+	  }
       break;
 
     case 'd':
-#ifdef LONG_LONG
-      fprintf_filtered (stream, local_decimal_format_custom("ll"), val_long);
-#else
-      fprintf_filtered (stream, local_decimal_format(), val_long);
-#endif
+      print_longest (stream, 'd', 1, val_long);
       break;
 
     case 'u':
-#ifdef LONG_LONG
-      fprintf_filtered (stream, "%llu", val_long);
-#else
-      fprintf_filtered (stream, "%u", val_long);
-#endif
+      print_longest (stream, 'u', 0, val_long);
       break;
 
     case 'o':
       if (val_long)
-#ifdef LONG_LONG
-	fprintf_filtered (stream, local_octal_format_custom("ll"), val_long);
-#else
-	fprintf_filtered (stream, local_octal_format(), val_long);
-#endif
+	print_longest (stream, 'o', 1, val_long);
       else
 	fprintf_filtered (stream, "0");
       break;
@@ -619,7 +577,7 @@ print_address_symbolic (addr, stream, do_demangle, leadin)
   fputs_filtered ("<", stream);
   fputs_filtered (name, stream);
   if (addr != name_location)
-    fprintf_filtered (stream, "+%d>", (int)(addr - name_location));
+    fprintf_filtered (stream, "+%u>", (unsigned int)(addr - name_location));
   else
     fputs_filtered (">", stream);
 }
@@ -695,7 +653,7 @@ do_examine (fmt, addr)
   else if (size == 'w')
     val_type = builtin_type_long;
   else if (size == 'g')
-#ifndef LONG_LONG
+#ifndef CC_HAS_LONG_LONG
     val_type = builtin_type_double;
 #else
     val_type = builtin_type_long_long;
@@ -1553,8 +1511,8 @@ print_frame_args (func, fi, num, stream)
 	 and it is passed as a double and converted to float by
 	 the prologue (in the latter case the type of the LOC_ARG
 	 symbol is double and the type of the LOC_LOCAL symbol is
-	 float).  It's possible this should be dealt with in
-	 symbol reading the way it now is for LOC_REGPARM.  */
+	 float).  There are also LOC_ARG/LOC_REGISTER pairs which
+	 are not combined in symbol-reading.  */
       /* But if the parameter name is null, don't try it.
 	 Null parameter names occur on the RS/6000, for traceback tables.
 	 FIXME, should we even print them?  */
@@ -1835,11 +1793,11 @@ printf_command (arg, from_tty)
 	    argindex += sizeof (double);
 	  }
 	else
-#ifdef LONG_LONG
+#ifdef CC_HAS_LONG_LONG
 	  if (argclass[i] == long_long_arg)
 	    {
-	      *(long long *) &arg_bytes[argindex] = value_as_long (val_args[i]);
-	      argindex += sizeof (long long);
+	      *(LONGEST *) &arg_bytes[argindex] = value_as_long (val_args[i]);
+	      argindex += sizeof (LONGEST);
 	    }
 	  else
 #endif
@@ -2059,7 +2017,7 @@ You can see these environment settings with the \"show\" command.",
 
   /* "call" is the same as "set", but handy for dbx users to call fns. */
   add_com ("call", class_vars, call_command,
-	   "Call a function in the inferior process.\n\
+	   "Call a function in the program.\n\
 The argument is the function name and arguments, in the notation of the\n\
 current working language.  The result is printed and saved in the value\n\
 history, if it is not void.");
diff --git a/gdb/procfs.c b/gdb/procfs.c
index 002ddd6627..2b1b66099b 100644
--- a/gdb/procfs.c
+++ b/gdb/procfs.c
@@ -2961,7 +2961,8 @@ info_proc (args, from_tty)
 
   if (!pip -> valid)
     {
-      error ("No process.  Run an inferior or specify an explicit pid.");
+      error ("\
+No process.  Start debugging a program or specify an explicit process ID.");
     }
   if (ioctl (pip -> fd, PIOCSTATUS, &(pip -> prstatus)) < 0)
     {
diff --git a/gdb/pyr-xdep.c b/gdb/pyr-xdep.c
index 84b01565a8..b850f5a6a6 100644
--- a/gdb/pyr-xdep.c
+++ b/gdb/pyr-xdep.c
@@ -49,13 +49,13 @@ fetch_inferior_registers (regno)
     reg_buf[regno] = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) regno, 0);
     
 #if defined(PYRAMID_CONTROL_FRAME_DEBUGGING)
-    printf ("Fetching %s from inferior, got %0x\n",
+    printf ("Fetching register %s, got %0x\n",
 	    reg_names[regno],
 	    reg_buf[regno]);
 #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING */
     
     if (reg_buf[regno] == -1 && errno == EIO) {
-      printf("fetch_interior_registers: fetching %s from inferior\n",
+      printf("fetch_interior_registers: fetching register %s\n",
 	     reg_names[regno]);
       errno = 0;
     }
@@ -231,7 +231,7 @@ core_file_command (filename, from_tty)
       make_cleanup (free, filename);
       
       if (have_inferior_p ())
-	error ("To look at a core file, you must kill the inferior with \"kill\".");
+	error ("To look at a core file, you must kill the program with \"kill\".");
       corechan = open (filename, O_RDONLY, 0);
       if (corechan < 0)
 	perror_with_name (filename);
diff --git a/gdb/stack.c b/gdb/stack.c
index 37f92e46bd..4849e5d047 100644
--- a/gdb/stack.c
+++ b/gdb/stack.c
@@ -388,7 +388,7 @@ frame_info (addr_exp, from_tty)
   enum language funlang = language_unknown;
 
   if (!target_has_stack)
-    error ("No inferior or core file.");
+    error ("No stack.");
 
   frame = parse_frame_specification (addr_exp);
   if (!frame)
@@ -897,8 +897,8 @@ print_frame_arg_vars (frame, stream)
 	     and it is passed as a double and converted to float by
 	     the prologue (in the latter case the type of the LOC_ARG
 	     symbol is double and the type of the LOC_LOCAL symbol is
-	     float).  It's possible this should be dealt with in
-	     symbol reading the way it now is for LOC_REGPARM.  */
+	     float).  There are also LOC_ARG/LOC_REGISTER pairs which
+	     are not combined in symbol-reading.  */
 
 	  sym2 = lookup_symbol (SYMBOL_NAME (sym),
 			b, VAR_NAMESPACE, (int *)NULL, (struct symtab **)NULL);
diff --git a/gdb/sun386-nat.c b/gdb/sun386-nat.c
index f843eae955..27a734d9a9 100644
--- a/gdb/sun386-nat.c
+++ b/gdb/sun386-nat.c
@@ -77,7 +77,7 @@ core_file_command (filename, from_tty)
       make_cleanup (free, filename);
       
       if (have_inferior_p ())
-	error ("To look at a core file, you must kill the inferior with \"kill\".");
+	error ("To look at a core file, you must kill the program with \"kill\".");
       corechan = open (filename, O_RDONLY, 0);
       if (corechan < 0)
 	perror_with_name (filename);
diff --git a/gdb/symm-xdep.c b/gdb/symm-xdep.c
index 4ce743a521..bb19a1a37d 100644
--- a/gdb/symm-xdep.c
+++ b/gdb/symm-xdep.c
@@ -179,7 +179,7 @@ core_file_command (filename, from_tty)
       make_cleanup (free, filename);
       
       if (have_inferior_p ())
-	error ("To look at a core file, you must kill the inferior with \"kill\".");
+	error ("To look at a core file, you must kill the program with \"kill\".");
       corechan = open (filename, O_RDONLY, 0);
       if (corechan < 0)
 	perror_with_name (filename);
diff --git a/gdb/umax-xdep.c b/gdb/umax-xdep.c
index 31abfff1b4..35bebf5b5f 100644
--- a/gdb/umax-xdep.c
+++ b/gdb/umax-xdep.c
@@ -70,7 +70,7 @@ core_file_command (filename, from_tty)
       make_cleanup (free, filename);
       
       if (have_inferior_p ())
-	error ("To look at a core file, you must kill the inferior with \"kill\".");
+	error ("To look at a core file, you must kill the program with \"kill\".");
       corechan = open (filename, O_RDONLY, 0);
       if (corechan < 0)
 	perror_with_name (filename);