Display the contents of a .debug.macinfo section

[deliverable/binutils-gdb.git] / gdb / language.c

diff --git a/gdb/language.c b/gdb/language.c
index eedec98779e69ca2a7d2e2a68c3c1ccb3376fe59..117bd2e608fe1cce131511a0950abbdb3b280e7d 100644 (file)
--- a/gdb/language.c
+++ b/gdb/language.c
@@ -1,5 +1,6 @@
 /* Multiple source language support for GDB.
-   Copyright 1991, 1992, 2000, 2001 Free Software Foundation, Inc.
+   Copyright 1991, 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001
+   Free Software Foundation, Inc.
    Contributed by the Department of Computer Science at the State University
    of New York at Buffalo.
 
@@ -36,7 +37,6 @@
 #include "gdbtypes.h"
 #include "value.h"
 #include "gdbcmd.h"
-#include "frame.h"
 #include "expression.h"
 #include "language.h"
 #include "target.h"
@@ -571,7 +571,7 @@ binop_result_type (value_ptr v1, value_ptr v2)
     case language_chill:
       error ("Missing Chill support in function binop_result_check."); /*FIXME */
     }
-  abort ();
+  internal_error (__FILE__, __LINE__, "failed internal consistency check");
   return (struct type *) 0;    /* For lint */
 }
 
@@ -720,7 +720,7 @@ longest_local_hex_string_custom (LONGEST num, char *width)
   num_pad_chars = field_width - strlen (temp_nbr_buf); /* possibly negative */
 
   if (strlen (local_hex_format_prefix ()) + num_len + num_pad_chars
-      < RESULT_BUF_LEN)                /* paranoia */
+      >= RESULT_BUF_LEN)               /* paranoia */
     internal_error (__FILE__, __LINE__,
                    "longest_local_hex_string_custom: insufficient space to store result");
 
@@ -1384,7 +1384,7 @@ add_language (const struct language_defn *lang)
     {
       fprintf_unfiltered (gdb_stderr, "Magic number of %s language struct wrong\n",
                          lang->la_name);
-      abort ();
+      internal_error (__FILE__, __LINE__, "failed internal consistency check");
     }
 
   if (!languages)