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