1 /* messages.c - error reporter -
2 Copyright 1987, 1991, 1992, 1993, 1994, 1995, 1996, 1998, 2000, 2001,
3 2003, 2004, 2005, 2006, 2007
4 Free Software Foundation, Inc.
5 This file is part of GAS, the GNU Assembler.
7 GAS is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3, or (at your option)
12 GAS is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GAS; see the file COPYING. If not, write to the Free
19 Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
24 static void identify (char *);
25 static void as_show_where (void);
26 static void as_warn_internal (char *, unsigned int, char *);
27 static void as_bad_internal (char *, unsigned int, char *);
29 /* Despite the rest of the comments in this file, (FIXME-SOON),
30 here is the current scheme for error messages etc:
32 as_fatal() is used when gas is quite confused and
33 continuing the assembly is pointless. In this case we
34 exit immediately with error status.
36 as_bad() is used to mark errors that result in what we
37 presume to be a useless object file. Say, we ignored
38 something that might have been vital. If we see any of
39 these, assembly will continue to the end of the source,
40 no object file will be produced, and we will terminate
41 with error status. The new option, -Z, tells us to
42 produce an object file anyway but we still exit with
43 error status. The assumption here is that you don't want
44 this object file but we could be wrong.
46 as_warn() is used when we have an error from which we
47 have a plausible error recovery. eg, masking the top
48 bits of a constant that is longer than will fit in the
49 destination. In this case we will continue to assemble
50 the source, although we may have made a bad assumption,
51 and we will produce an object file and return normal exit
52 status (ie, no error). The new option -X tells us to
53 treat all as_warn() errors as as_bad() errors. That is,
54 no object file will be produced and we will exit with
55 error status. The idea here is that we don't kill an
56 entire make because of an error that we knew how to
57 correct. On the other hand, sometimes you might want to
58 stop the make at these points.
60 as_tsktsk() is used when we see a minor error for which
61 our error recovery action is almost certainly correct.
62 In this case, we print a message and then assembly
63 continues as though no error occurred. */
68 static int identified
;
81 fprintf (stderr
, "%s: ", file
);
82 fprintf (stderr
, _("Assembler messages:\n"));
85 /* The number of warnings issued. */
86 static int warning_count
;
94 /* Nonzero if we've hit a 'bad error', and should not write an obj file,
95 and exit with a nonzero error code. */
97 static int error_count
;
105 /* Print the current location to stderr. */
113 as_where (&file
, &line
);
116 fprintf (stderr
, "%s:%u: ", file
, line
);
119 /* Send to stderr a string as a warning, and locate warning
121 Please only use this for when we have some recovery action.
122 Please explain in string (which may have '\n's) what recovery was
127 as_tsktsk (const char *format
, ...)
132 va_start (args
, format
);
133 vfprintf (stderr
, format
, args
);
135 (void) putc ('\n', stderr
);
139 as_tsktsk (format
, va_alist
)
147 vfprintf (stderr
, format
, args
);
149 (void) putc ('\n', stderr
);
151 #endif /* not NO_STDARG */
153 /* The common portion of as_warn and as_warn_where. */
156 as_warn_internal (char *file
, unsigned int line
, char *buffer
)
161 as_where (&file
, &line
);
165 fprintf (stderr
, "%s:%u: ", file
, line
);
166 fprintf (stderr
, _("Warning: "));
167 fputs (buffer
, stderr
);
168 (void) putc ('\n', stderr
);
170 listing_warning (buffer
);
174 /* Send to stderr a string as a warning, and locate warning
176 Please only use this for when we have some recovery action.
177 Please explain in string (which may have '\n's) what recovery was
182 as_warn (const char *format
, ...)
187 if (!flag_no_warnings
)
189 va_start (args
, format
);
190 vsnprintf (buffer
, sizeof (buffer
), format
, args
);
192 as_warn_internal ((char *) NULL
, 0, buffer
);
197 as_warn (format
, va_alist
)
204 if (!flag_no_warnings
)
207 vsnprintf (buffer
, sizeof (buffer
), format
, args
);
209 as_warn_internal ((char *) NULL
, 0, buffer
);
212 #endif /* not NO_STDARG */
214 /* Like as_bad but the file name and line number are passed in.
215 Unfortunately, we have to repeat the function in order to handle
216 the varargs correctly and portably. */
220 as_warn_where (char *file
, unsigned int line
, const char *format
, ...)
225 if (!flag_no_warnings
)
227 va_start (args
, format
);
228 vsnprintf (buffer
, sizeof (buffer
), format
, args
);
230 as_warn_internal (file
, line
, buffer
);
235 as_warn_where (file
, line
, format
, va_alist
)
244 if (!flag_no_warnings
)
247 vsnprintf (buffer
, sizeof (buffer
), format
, args
);
249 as_warn_internal (file
, line
, buffer
);
252 #endif /* not NO_STDARG */
254 /* The common portion of as_bad and as_bad_where. */
257 as_bad_internal (char *file
, unsigned int line
, char *buffer
)
262 as_where (&file
, &line
);
266 fprintf (stderr
, "%s:%u: ", file
, line
);
267 fprintf (stderr
, _("Error: "));
268 fputs (buffer
, stderr
);
269 (void) putc ('\n', stderr
);
271 listing_error (buffer
);
275 /* Send to stderr a string as a warning, and locate warning in input
276 file(s). Please us when there is no recovery, but we want to
277 continue processing but not produce an object file.
278 Please explain in string (which may have '\n's) what recovery was
283 as_bad (const char *format
, ...)
288 va_start (args
, format
);
289 vsnprintf (buffer
, sizeof (buffer
), format
, args
);
292 as_bad_internal ((char *) NULL
, 0, buffer
);
297 as_bad (format
, va_alist
)
305 vsnprintf (buffer
, sizeof (buffer
), format
, args
);
308 as_bad_internal ((char *) NULL
, 0, buffer
);
310 #endif /* not NO_STDARG */
312 /* Like as_bad but the file name and line number are passed in.
313 Unfortunately, we have to repeat the function in order to handle
314 the varargs correctly and portably. */
318 as_bad_where (char *file
, unsigned int line
, const char *format
, ...)
323 va_start (args
, format
);
324 vsnprintf (buffer
, sizeof (buffer
), format
, args
);
327 as_bad_internal (file
, line
, buffer
);
332 as_bad_where (file
, line
, format
, va_alist
)
342 vsnprintf (buffer
, sizeof (buffer
), format
, args
);
345 as_bad_internal (file
, line
, buffer
);
347 #endif /* not NO_STDARG */
349 /* Send to stderr a string as a fatal message, and print location of
350 error in input file(s).
351 Please only use this for when we DON'T have some recovery action.
352 It xexit()s with a warning status. */
356 as_fatal (const char *format
, ...)
361 va_start (args
, format
);
362 fprintf (stderr
, _("Fatal error: "));
363 vfprintf (stderr
, format
, args
);
364 (void) putc ('\n', stderr
);
366 /* Delete the output file, if it exists. This will prevent make from
367 thinking that a file was created and hence does not need rebuilding. */
368 if (out_file_name
!= NULL
)
369 unlink_if_ordinary (out_file_name
);
370 xexit (EXIT_FAILURE
);
374 as_fatal (format
, va_alist
)
382 fprintf (stderr
, _("Fatal error: "));
383 vfprintf (stderr
, format
, args
);
384 (void) putc ('\n', stderr
);
386 xexit (EXIT_FAILURE
);
388 #endif /* not NO_STDARG */
390 /* Indicate assertion failure.
391 Arguments: Filename, line number, optional function name. */
394 as_assert (const char *file
, int line
, const char *fn
)
397 fprintf (stderr
, _("Internal error!\n"));
399 fprintf (stderr
, _("Assertion failure in %s at %s line %d.\n"),
402 fprintf (stderr
, _("Assertion failure at %s line %d.\n"), file
, line
);
403 fprintf (stderr
, _("Please report this bug.\n"));
404 xexit (EXIT_FAILURE
);
407 /* as_abort: Print a friendly message saying how totally hosed we are,
408 and exit without producing a core file. */
411 as_abort (const char *file
, int line
, const char *fn
)
415 fprintf (stderr
, _("Internal error, aborting at %s line %d in %s\n"),
418 fprintf (stderr
, _("Internal error, aborting at %s line %d\n"),
420 fprintf (stderr
, _("Please report this bug.\n"));
421 xexit (EXIT_FAILURE
);
424 /* Support routines. */
427 sprint_value (char *buf
, valueT val
)
429 if (sizeof (val
) <= sizeof (long))
431 sprintf (buf
, "%ld", (long) val
);
434 if (sizeof (val
) <= sizeof (bfd_vma
))
436 sprintf_vma (buf
, val
);
442 #define HEX_MAX_THRESHOLD 1024
443 #define HEX_MIN_THRESHOLD -(HEX_MAX_THRESHOLD)
446 as_internal_value_out_of_range (char * prefix
,
459 if (val
>= min
&& val
<= max
)
461 addressT right
= max
& -max
;
466 /* xgettext:c-format */
467 err
= _("%s out of domain (%d is not a multiple of %d)");
469 as_bad_where (file
, line
, err
,
470 prefix
, (int) val
, (int) right
);
472 as_warn_where (file
, line
, err
,
473 prefix
, (int) val
, (int) right
);
477 if ( val
< HEX_MAX_THRESHOLD
478 && min
< HEX_MAX_THRESHOLD
479 && max
< HEX_MAX_THRESHOLD
480 && val
> HEX_MIN_THRESHOLD
481 && min
> HEX_MIN_THRESHOLD
482 && max
> HEX_MIN_THRESHOLD
)
484 /* xgettext:c-format */
485 err
= _("%s out of range (%d is not between %d and %d)");
488 as_bad_where (file
, line
, err
,
489 prefix
, (int) val
, (int) min
, (int) max
);
491 as_warn_where (file
, line
, err
,
492 prefix
, (int) val
, (int) min
, (int) max
);
496 char val_buf
[sizeof (val
) * 3 + 2];
497 char min_buf
[sizeof (val
) * 3 + 2];
498 char max_buf
[sizeof (val
) * 3 + 2];
500 if (sizeof (val
) > sizeof (bfd_vma
))
503 sprintf_vma (val_buf
, val
);
504 sprintf_vma (min_buf
, min
);
505 sprintf_vma (max_buf
, max
);
507 /* xgettext:c-format. */
508 err
= _("%s out of range (0x%s is not between 0x%s and 0x%s)");
511 as_bad_where (file
, line
, err
, prefix
, val_buf
, min_buf
, max_buf
);
513 as_warn_where (file
, line
, err
, prefix
, val_buf
, min_buf
, max_buf
);
518 as_warn_value_out_of_range (char * prefix
,
525 as_internal_value_out_of_range (prefix
, value
, min
, max
, file
, line
, 0);
529 as_bad_value_out_of_range (char * prefix
,
536 as_internal_value_out_of_range (prefix
, value
, min
, max
, file
, line
, 1);
This page took 0.039855 seconds and 4 git commands to generate.