1/* Basic error reporting routines.
2   Copyright (C) 1999-2020 Free Software Foundation, Inc.
3
4This file is part of GCC.
5
6GCC is free software; you can redistribute it and/or modify it under
7the terms of the GNU General Public License as published by the Free
8Software Foundation; either version 3, or (at your option) any later
9version.
10
11GCC is distributed in the hope that it will be useful, but WITHOUT ANY
12WARRANTY; without even the implied warranty of MERCHANTABILITY or
13FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
14for more details.
15
16You should have received a copy of the GNU General Public License
17along with GCC; see the file COPYING3.  If not see
18<http://www.gnu.org/licenses/>.  */
19
20/* warning, error, and fatal.  These definitions are suitable for use
21   in the generator programs; the compiler has a more elaborate suite
22   of diagnostic printers, found in diagnostic.c.  */
23
24#ifdef HOST_GENERATOR_FILE
25#include "config.h"
26#define GENERATOR_FILE 1
27#else
28#include "bconfig.h"
29#endif
30#include "system.h"
31#include "errors.h"
32
33/* Set this to argv[0] at the beginning of main.  */
34
35const char *progname;
36
37/* Starts out 0, set to 1 if error is called.  */
38
39int have_error = 0;
40
41/* Print a warning message - output produced, but there may be problems.  */
42
43void
44warning (const char *format, ...)
45{
46  va_list ap;
47
48  va_start (ap, format);
49  fprintf (stderr, "%s: warning: ", progname);
50  vfprintf (stderr, format, ap);
51  va_end (ap);
52  fputc ('\n', stderr);
53}
54
55
56/* Print an error message - we keep going but the output is unusable.  */
57
58void
59error (const char *format, ...)
60{
61  va_list ap;
62
63  va_start (ap, format);
64  fprintf (stderr, "%s: ", progname);
65  vfprintf (stderr, format, ap);
66  va_end (ap);
67  fputc ('\n', stderr);
68
69  have_error = 1;
70}
71
72
73/* Fatal error - terminate execution immediately.  Does not return.  */
74
75void
76fatal (const char *format, ...)
77{
78  va_list ap;
79
80  va_start (ap, format);
81  fprintf (stderr, "%s: ", progname);
82  vfprintf (stderr, format, ap);
83  va_end (ap);
84  fputc ('\n', stderr);
85  exit (FATAL_EXIT_CODE);
86}
87
88/* Similar, but say we got an internal error.  */
89
90void
91internal_error (const char *format, ...)
92{
93  va_list ap;
94
95  va_start (ap, format);
96  fprintf (stderr, "%s: Internal error: ", progname);
97  vfprintf (stderr, format, ap);
98  va_end (ap);
99  fputc ('\n', stderr);
100  exit (FATAL_EXIT_CODE);
101}
102
103/* Given a partial pathname as input, return another pathname that
104   shares no directory elements with the pathname of __FILE__.  This
105   is used by fancy_abort() to print `Internal compiler error in expr.c'
106   instead of `Internal compiler error in ../../GCC/gcc/expr.c'.  This
107   version is meant to be used for the gen* programs and therefor need not
108   handle subdirectories.  */
109
110const char *
111trim_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.  */
130void
131fancy_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