gas/messages.c

   1 /* messages.c - error reporter -
   2    Copyright (C) 1987, 91, 92, 93, 94, 95, 96, 97, 98, 2000
   3    Free Software Foundation, Inc.
   4    This file is part of GAS, the GNU Assembler.
   5
   6    GAS is free software; you can redistribute it and/or modify
   7    it under the terms of the GNU General Public License as published by
   8    the Free Software Foundation; either version 2, or (at your option)
   9    any later version.
  10
  11    GAS is distributed in the hope that it will be useful,
  12    but WITHOUT ANY WARRANTY; without even the implied warranty of
  13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14    GNU General Public License for more details.
  15
  16    You should have received a copy of the GNU General Public License
  17    along with GAS; 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 #include "as.h"
  22
  23 #include <stdio.h>
  24 #ifdef HAVE_ERRNO_H
  25 #include <errno.h>
  26 #endif
  27
  28 #ifdef USE_STDARG
  29 #include <stdarg.h>
  30 #endif
  31
  32 #ifdef USE_VARARGS
  33 #include <varargs.h>
  34 #endif
  35
  36 #if !defined (USE_STDARG) && !defined (USE_VARARGS)
  37 /* Roll our own.  */
  38 #define va_alist REST
  39 #define va_dcl
  40 typedef int * va_list;
  41 #define va_start(ARGS)  ARGS = &REST
  42 #define va_end(ARGS)
  43 #endif
  44
  45 static void identify PARAMS ((char *));
  46 static void as_show_where PARAMS ((void));
  47 static void as_warn_internal PARAMS ((char *, unsigned int, char *));
  48 static void as_bad_internal PARAMS ((char *, unsigned int, char *));
  49
  50 /* Despite the rest of the comments in this file, (FIXME-SOON),
  51  * here is the current scheme for error messages etc:
  52  *
  53  * as_fatal() is used when gas is quite confused and
  54  * continuing the assembly is pointless.  In this case we
  55  * exit immediately with error status.
  56  *
  57  * as_bad() is used to mark errors that result in what we
  58  * presume to be a useless object file.  Say, we ignored
  59  * something that might have been vital.  If we see any of
  60  * these, assembly will continue to the end of the source,
  61  * no object file will be produced, and we will terminate
  62  * with error status.  The new option, -Z, tells us to
  63  * produce an object file anyway but we still exit with
  64  * error status.  The assumption here is that you don't want
  65  * this object file but we could be wrong.
  66  *
  67  * as_warn() is used when we have an error from which we
  68  * have a plausible error recovery.  eg, masking the top
  69  * bits of a constant that is longer than will fit in the
  70  * destination.  In this case we will continue to assemble
  71  * the source, although we may have made a bad assumption,
  72  * and we will produce an object file and return normal exit
  73  * status (ie, no error).  The new option -X tells us to
  74  * treat all as_warn() errors as as_bad() errors.  That is,
  75  * no object file will be produced and we will exit with
  76  * error status.  The idea here is that we don't kill an
  77  * entire make because of an error that we knew how to
  78  * correct.  On the other hand, sometimes you might want to
  79  * stop the make at these points.
  80  *
  81  * as_tsktsk() is used when we see a minor error for which
  82  * our error recovery action is almost certainly correct.
  83  * In this case, we print a message and then assembly
  84  * continues as though no error occurred.
  85  */
  86
  87 static void
  88 identify (file)
  89      char *file;
  90 {
  91   static int identified;
  92   if (identified)
  93     return;
  94   identified++;
  95
  96   if (!file)
  97     {
  98       unsigned int x;
  99       as_where (&file, &x);
 100     }
 101
 102   if (file)
 103     fprintf (stderr, "%s: ", file);
 104   fprintf (stderr, _("Assembler messages:\n"));
 105 }
 106
 107 /* The number of warnings issued.  */
 108 static int warning_count;
 109
 110 int
 111 had_warnings ()
 112 {
 113   return (warning_count);
 114 }
 115
 116 /* Nonzero if we've hit a 'bad error', and should not write an obj file,
 117    and exit with a nonzero error code.  */
 118
 119 static int error_count;
 120
 121 int
 122 had_errors ()
 123 {
 124   return (error_count);
 125 }
 126
 127 /* Print the current location to stderr.  */
 128
 129 static void
 130 as_show_where ()
 131 {
 132   char *file;
 133   unsigned int line;
 134
 135   as_where (&file, &line);
 136   identify (file);
 137   if (file)
 138     fprintf (stderr, "%s:%u: ", file, line);
 139 }
 140
 141 /* Like perror(3), but with more info.  */
 142
 143 void
 144 as_perror (gripe, filename)
 145      const char *gripe;         /* Unpunctuated error theme.  */
 146      const char *filename;
 147 {
 148   const char *errtxt;
 149
 150   as_show_where ();
 151   fprintf (stderr, gripe, filename);
 152 #ifdef BFD_ASSEMBLER
 153   errtxt = bfd_errmsg (bfd_get_error ());
 154 #else
 155   errtxt = xstrerror (errno);
 156 #endif
 157   fprintf (stderr, ": %s\n", errtxt);
 158   errno = 0;
 159 #ifdef BFD_ASSEMBLER
 160   bfd_set_error (bfd_error_no_error);
 161 #endif
 162 }
 163
 164 /* Send to stderr a string as a warning, and locate warning
 165    in input file(s).
 166    Please only use this for when we have some recovery action.
 167    Please explain in string (which may have '\n's) what recovery was
 168    done.  */
 169
 170 #ifdef USE_STDARG
 171 void
 172 as_tsktsk (const char *format, ...)
 173 {
 174   va_list args;
 175
 176   as_show_where ();
 177   va_start (args, format);
 178   vfprintf (stderr, format, args);
 179   va_end (args);
 180   (void) putc ('\n', stderr);
 181 }
 182 #else
 183 void
 184 as_tsktsk (format, va_alist)
 185      const char *format;
 186      va_dcl
 187 {
 188   va_list args;
 189
 190   as_show_where ();
 191   va_start (args);
 192   vfprintf (stderr, format, args);
 193   va_end (args);
 194   (void) putc ('\n', stderr);
 195 }
 196 #endif /* not NO_STDARG */
 197
 198 /* The common portion of as_warn and as_warn_where.  */
 199
 200 static void
 201 as_warn_internal (file, line, buffer)
 202      char *file;
 203      unsigned int line;
 204      char *buffer;
 205 {
 206   ++warning_count;
 207
 208   if (file == NULL)
 209     as_where (&file, &line);
 210
 211   identify (file);
 212   if (file)
 213     fprintf (stderr, "%s:%u: ", file, line);
 214   fprintf (stderr, _("Warning: "));
 215   fputs (buffer, stderr);
 216   (void) putc ('\n', stderr);
 217 #ifndef NO_LISTING
 218   listing_warning (buffer);
 219 #endif
 220 }
 221
 222 /* Send to stderr a string as a warning, and locate warning
 223    in input file(s).
 224    Please only use this for when we have some recovery action.
 225    Please explain in string (which may have '\n's) what recovery was
 226    done.  */
 227
 228 #ifdef USE_STDARG
 229 void
 230 as_warn (const char *format, ...)
 231 {
 232   va_list args;
 233   char buffer[2000];
 234
 235   if (!flag_no_warnings)
 236     {
 237       va_start (args, format);
 238       vsprintf (buffer, format, args);
 239       va_end (args);
 240       as_warn_internal ((char *) NULL, 0, buffer);
 241     }
 242 }
 243 #else
 244 void
 245 as_warn (format, va_alist)
 246      const char *format;
 247      va_dcl
 248 {
 249   va_list args;
 250   char buffer[2000];
 251
 252   if (!flag_no_warnings)
 253     {
 254       va_start (args);
 255       vsprintf (buffer, format, args);
 256       va_end (args);
 257       as_warn_internal ((char *) NULL, 0, buffer);
 258     }
 259 }
 260 #endif /* not NO_STDARG */
 261
 262 /* Like as_bad but the file name and line number are passed in.
 263    Unfortunately, we have to repeat the function in order to handle
 264    the varargs correctly and portably.  */
 265
 266 #ifdef USE_STDARG
 267 void
 268 as_warn_where (char *file, unsigned int line, const char *format, ...)
 269 {
 270   va_list args;
 271   char buffer[2000];
 272
 273   if (!flag_no_warnings)
 274     {
 275       va_start (args, format);
 276       vsprintf (buffer, format, args);
 277       va_end (args);
 278       as_warn_internal (file, line, buffer);
 279     }
 280 }
 281 #else
 282 void
 283 as_warn_where (file, line, format, va_alist)
 284      char *file;
 285      unsigned int line;
 286      const char *format;
 287      va_dcl
 288 {
 289   va_list args;
 290   char buffer[2000];
 291
 292   if (!flag_no_warnings)
 293     {
 294       va_start (args);
 295       vsprintf (buffer, format, args);
 296       va_end (args);
 297       as_warn_internal (file, line, buffer);
 298     }
 299 }
 300 #endif /* not NO_STDARG */
 301
 302 /* The common portion of as_bad and as_bad_where.  */
 303
 304 static void
 305 as_bad_internal (file, line, buffer)
 306      char *file;
 307      unsigned int line;
 308      char *buffer;
 309 {
 310   ++error_count;
 311
 312   if (file == NULL)
 313     as_where (&file, &line);
 314
 315   identify (file);
 316   if (file)
 317     fprintf (stderr, "%s:%u: ", file, line);
 318   fprintf (stderr, _("Error: "));
 319   fputs (buffer, stderr);
 320   (void) putc ('\n', stderr);
 321 #ifndef NO_LISTING
 322   listing_error (buffer);
 323 #endif
 324 }
 325
 326 /* Send to stderr a string as a warning, and locate warning in input
 327    file(s).  Please us when there is no recovery, but we want to
 328    continue processing but not produce an object file.
 329    Please explain in string (which may have '\n's) what recovery was
 330    done. */
 331
 332 #ifdef USE_STDARG
 333 void
 334 as_bad (const char *format, ...)
 335 {
 336   va_list args;
 337   char buffer[2000];
 338
 339   va_start (args, format);
 340   vsprintf (buffer, format, args);
 341   va_end (args);
 342
 343   as_bad_internal ((char *) NULL, 0, buffer);
 344 }
 345
 346 #else
 347 void
 348 as_bad (format, va_alist)
 349      const char *format;
 350      va_dcl
 351 {
 352   va_list args;
 353   char buffer[2000];
 354
 355   va_start (args);
 356   vsprintf (buffer, format, args);
 357   va_end (args);
 358
 359   as_bad_internal ((char *) NULL, 0, buffer);
 360 }
 361 #endif /* not NO_STDARG */
 362
 363 /* Like as_bad but the file name and line number are passed in.
 364    Unfortunately, we have to repeat the function in order to handle
 365    the varargs correctly and portably.  */
 366
 367 #ifdef USE_STDARG
 368 void
 369 as_bad_where (char *file, unsigned int line, const char *format, ...)
 370 {
 371   va_list args;
 372   char buffer[2000];
 373
 374   va_start (args, format);
 375   vsprintf (buffer, format, args);
 376   va_end (args);
 377
 378   as_bad_internal (file, line, buffer);
 379 }
 380
 381 #else
 382 void
 383 as_bad_where (file, line, format, va_alist)
 384      char *file;
 385      unsigned int line;
 386      const char *format;
 387      va_dcl
 388 {
 389   va_list args;
 390   char buffer[2000];
 391
 392   va_start (args);
 393   vsprintf (buffer, format, args);
 394   va_end (args);
 395
 396   as_bad_internal (file, line, buffer);
 397 }
 398 #endif /* not NO_STDARG */
 399
 400 /* Send to stderr a string as a fatal message, and print location of
 401    error in input file(s).
 402    Please only use this for when we DON'T have some recovery action.
 403    It xexit()s with a warning status.  */
 404
 405 #ifdef USE_STDARG
 406 void
 407 as_fatal (const char *format, ...)
 408 {
 409   va_list args;
 410
 411   as_show_where ();
 412   va_start (args, format);
 413   fprintf (stderr, _("Fatal error: "));
 414   vfprintf (stderr, format, args);
 415   (void) putc ('\n', stderr);
 416   va_end (args);
 417   xexit (EXIT_FAILURE);
 418 }
 419 #else
 420 void
 421 as_fatal (format, va_alist)
 422      char *format;
 423      va_dcl
 424 {
 425   va_list args;
 426
 427   as_show_where ();
 428   va_start (args);
 429   fprintf (stderr, _("Fatal error: "));
 430   vfprintf (stderr, format, args);
 431   (void) putc ('\n', stderr);
 432   va_end (args);
 433   xexit (EXIT_FAILURE);
 434 }
 435 #endif /* not NO_STDARG */
 436
 437 /* Indicate assertion failure.
 438    Arguments: Filename, line number, optional function name.  */
 439
 440 void
 441 as_assert (file, line, fn)
 442      const char *file, *fn;
 443      int line;
 444 {
 445   as_show_where ();
 446   fprintf (stderr, _("Internal error!\n"));
 447   if (fn)
 448     fprintf (stderr, _("Assertion failure in %s at %s line %d.\n"),
 449              fn, file, line);
 450   else
 451     fprintf (stderr, _("Assertion failure at %s line %d.\n"), file, line);
 452   fprintf (stderr, _("Please report this bug.\n"));
 453   xexit (EXIT_FAILURE);
 454 }
 455
 456 /* as_abort: Print a friendly message saying how totally hosed we are,
 457    and exit without producing a core file.  */
 458
 459 void
 460 as_abort (file, line, fn)
 461      const char *file, *fn;
 462      int line;
 463 {
 464   as_show_where ();
 465   if (fn)
 466     fprintf (stderr, _("Internal error, aborting at %s line %d in %s\n"),
 467              file, line, fn);
 468   else
 469     fprintf (stderr, _("Internal error, aborting at %s line %d\n"),
 470              file, line);
 471   fprintf (stderr, _("Please report this bug.\n"));
 472   xexit (EXIT_FAILURE);
 473 }
 474
 475 /* Support routines.  */
 476
 477 void
 478 fprint_value (file, val)
 479      FILE *file;
 480      valueT val;
 481 {
 482   if (sizeof (val) <= sizeof (long))
 483     {
 484       fprintf (file, "%ld", (long) val);
 485       return;
 486     }
 487 #ifdef BFD_ASSEMBLER
 488   if (sizeof (val) <= sizeof (bfd_vma))
 489     {
 490       fprintf_vma (file, val);
 491       return;
 492     }
 493 #endif
 494   abort ();
 495 }
 496
 497 void
 498 sprint_value (buf, val)
 499      char *buf;
 500      valueT val;
 501 {
 502   if (sizeof (val) <= sizeof (long))
 503     {
 504       sprintf (buf, "%ld", (long) val);
 505       return;
 506     }
 507 #ifdef BFD_ASSEMBLER
 508   if (sizeof (val) <= sizeof (bfd_vma))
 509     {
 510       sprintf_vma (buf, val);
 511       return;
 512     }
 513 #endif
 514   abort ();
 515 }