1 /* Basic error reporting routines. 2 Copyright (C) 1999, 2000, 2001, 2003, 2004, 2005 3 Free Software Foundation, Inc. 4 5 This file is part of GCC. 6 7 GCC is free software; you can redistribute it and/or modify it under 8 the terms of the GNU General Public License as published by the Free 9 Software Foundation; either version 2, or (at your option) any later 10 version. 11 12 GCC is distributed in the hope that it will be useful, but WITHOUT ANY 13 WARRANTY; without even the implied warranty of MERCHANTABILITY or 14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License 15 for more details. 16 17 You should have received a copy of the GNU General Public License 18 along with GCC; see the file COPYING. If not, write to the Free 19 Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 20 02110-1301, USA. */ 21 22 /* warning, error, and fatal. These definitions are suitable for use 23 in the generator programs; the compiler has a more elaborate suite 24 of diagnostic printers, found in diagnostic.c. */ 25 26 #ifdef GENERATOR_FILE 27 #include "bconfig.h" 28 #else 29 #include "config.h" 30 #endif 31 #include "system.h" 32 #include "errors.h" 33 34 /* Set this to argv[0] at the beginning of main. */ 35 36 const char *progname; 37 38 /* Starts out 0, set to 1 if error is called. */ 39 40 int have_error = 0; 41 42 /* Print a warning message - output produced, but there may be problems. */ 43 44 void 45 warning (int opt ATTRIBUTE_UNUSED, const char *format, ...) 46 { 47 va_list ap; 48 49 va_start (ap, format); 50 fprintf (stderr, "%s: warning: ", progname); 51 vfprintf (stderr, format, ap); 52 va_end (ap); 53 fputc('\n', stderr); 54 } 55 56 57 /* Print an error message - we keep going but the output is unusable. */ 58 59 void 60 error (const char *format, ...) 61 { 62 va_list ap; 63 64 va_start (ap, format); 65 fprintf (stderr, "%s: ", progname); 66 vfprintf (stderr, format, ap); 67 va_end (ap); 68 fputc('\n', stderr); 69 70 have_error = 1; 71 } 72 73 74 /* Fatal error - terminate execution immediately. Does not return. */ 75 76 void 77 fatal (const char *format, ...) 78 { 79 va_list ap; 80 81 va_start (ap, format); 82 fprintf (stderr, "%s: ", progname); 83 vfprintf (stderr, format, ap); 84 va_end (ap); 85 fputc('\n', stderr); 86 exit (FATAL_EXIT_CODE); 87 } 88 89 /* Similar, but say we got an internal error. */ 90 91 void 92 internal_error (const char *format, ...) 93 { 94 va_list ap; 95 96 va_start (ap, format); 97 fprintf (stderr, "%s: Internal error: ", progname); 98 vfprintf (stderr, format, ap); 99 va_end (ap); 100 fputc ('\n', stderr); 101 exit (FATAL_EXIT_CODE); 102 } 103 104 /* Given a partial pathname as input, return another pathname that 105 shares no directory elements with the pathname of __FILE__. This 106 is used by fancy_abort() to print `Internal compiler error in expr.c' 107 instead of `Internal compiler error in ../../GCC/gcc/expr.c'. This 108 version if for the gen* programs and so needn't handle subdirectories. */ 109 110 const char * 111 trim_filename (const char *name) 112 { 113 static const char this_file[] = __FILE__; 114 const char *p = name, *q = this_file; 115 116 /* Skip any parts the two filenames have in common. */ 117 while (*p == *q && *p != 0 && *q != 0) 118 p++, q++; 119 120 /* Now go backwards until the previous directory separator. */ 121 while (p > name && !IS_DIR_SEPARATOR (p[-1])) 122 p--; 123 124 return p; 125 } 126 127 /* "Fancy" abort. Reports where in the compiler someone gave up. 128 This file is used only by build programs, so we're not as polite as 129 the version in diagnostic.c. */ 130 void 131 fancy_abort (const char *file, int line, const char *func) 132 { 133 internal_error ("abort in %s, at %s:%d", func, trim_filename (file), line); 134 } 135