NetBSD/gnu/usr.bin/gas/messages.c

596 lines
12 KiB
C

/* messages.c - error reporter -
Copyright (C) 1987, 1991, 1992 Free Software Foundation, Inc.
This file is part of GAS, the GNU Assembler.
GAS is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.
GAS is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with GAS; see the file COPYING. If not, write to
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
#ifndef lint
static char rcsid[] = "$Id: messages.c,v 1.6 1994/08/25 07:36:33 pk Exp $";
#endif
#include <stdio.h>
#include <errno.h>
#include "as.h"
#ifndef __STDC__
#ifndef NO_STDARG
#define NO_STDARG
#endif
#endif
#ifndef NO_STDARG
#include <stdarg.h>
#else
#ifndef NO_VARARGS
#include <varargs.h>
#endif /* NO_VARARGS */
#endif /* NO_STDARG */
extern char *strerror ();
static void as_show_where PARAMS ((void));
static void as_warn_internal PARAMS ((char *, unsigned int, char *));
static void as_bad_internal PARAMS ((char *, unsigned int, char *));
/*
* Despite the rest of the comments in this file, (FIXME-SOON),
* here is the current scheme for error messages etc:
*
* as_fatal() is used when gas is quite confused and
* continuing the assembly is pointless. In this case we
* exit immediately with error status.
*
* as_bad() is used to mark errors that result in what we
* presume to be a useless object file. Say, we ignored
* something that might have been vital. If we see any of
* these, assembly will continue to the end of the source,
* no object file will be produced, and we will terminate
* with error status. The new option, -Z, tells us to
* produce an object file anyway but we still exit with
* error status. The assumption here is that you don't want
* this object file but we could be wrong.
*
* as_warn() is used when we have an error from which we
* have a plausible error recovery. eg, masking the top
* bits of a constant that is longer than will fit in the
* destination. In this case we will continue to assemble
* the source, although we may have made a bad assumption,
* and we will produce an object file and return normal exit
* status (ie, no error). The new option -X tells us to
* treat all as_warn() errors as as_bad() errors. That is,
* no object file will be produced and we will exit with
* error status. The idea here is that we don't kill an
* entire make because of an error that we knew how to
* correct. On the other hand, sometimes you might want to
* stop the make at these points.
*
* as_tsktsk() is used when we see a minor error for which
* our error recovery action is almost certainly correct.
* In this case, we print a message and then assembly
* continues as though no error occurred.
*/
static void
identify (file)
char *file;
{
static int identified;
if (identified)
return;
identified++;
if (!file)
{
unsigned int x;
as_where (&file, &x);
}
fprintf (stderr, "%s: Assembler messages:\n", file);
}
static int warning_count; /* Count of number of warnings issued */
int
had_warnings ()
{
return (warning_count);
} /* had_err() */
/* Nonzero if we've hit a 'bad error', and should not write an obj file,
and exit with a nonzero error code */
static int error_count;
int
had_errors ()
{
return (error_count);
} /* had_errors() */
/* Print the current location to stderr. */
static void
as_show_where ()
{
char *file;
unsigned int line;
as_where (&file, &line);
identify (file);
fprintf (stderr, "%s:%u: ", file, line);
}
/*
* a s _ p e r r o r
*
* Like perror(3), but with more info.
*/
void
as_perror (gripe, filename)
const char *gripe; /* Unpunctuated error theme. */
const char *filename;
{
const char *errtxt;
as_show_where ();
fprintf (stderr, gripe, filename);
#ifdef BFD_ASSEMBLER
errtxt = bfd_errmsg (bfd_get_error ());
#else
errtxt = strerror (errno);
#endif
fprintf (stderr, ": %s\n", errtxt);
errno = 0;
#ifdef BFD_ASSEMBLER
bfd_set_error (bfd_error_no_error);
#endif
}
/*
* a s _ t s k t s k ()
*
* Send to stderr a string as a warning, and locate warning
* in input file(s).
* Please only use this for when we have some recovery action.
* Please explain in string (which may have '\n's) what recovery was done.
*/
#ifndef NO_STDARG
void
as_tsktsk (const char *format,...)
{
va_list args;
as_show_where ();
va_start (args, format);
vfprintf (stderr, format, args);
va_end (args);
(void) putc ('\n', stderr);
} /* as_tsktsk() */
#else
#ifndef NO_VARARGS
void
as_tsktsk (format, va_alist)
char *format;
va_dcl
{
va_list args;
as_show_where ();
va_start (args);
vfprintf (stderr, format, args);
va_end (args);
(void) putc ('\n', stderr);
} /* as_tsktsk() */
#else
/*VARARGS1 */
as_tsktsk (format, args)
char *format;
{
as_show_where ();
_doprnt (format, &args, stderr);
(void) putc ('\n', stderr);
} /* as_tsktsk */
#endif /* not NO_VARARGS */
#endif /* not NO_STDARG */
/* The common portion of as_warn and as_warn_where. */
static void
as_warn_internal (file, line, buffer)
char *file;
unsigned int line;
char *buffer;
{
++warning_count;
if (file == NULL)
as_where (&file, &line);
identify (file);
fprintf (stderr, "%s:%u: Warning: ", file, line);
fputs (buffer, stderr);
(void) putc ('\n', stderr);
#ifndef NO_LISTING
listing_warning (buffer);
#endif
}
/*
* a s _ w a r n ()
*
* Send to stderr a string as a warning, and locate warning
* in input file(s).
* Please only use this for when we have some recovery action.
* Please explain in string (which may have '\n's) what recovery was done.
*/
#if 1
#define flag_no_warnings (flagseen['W'])
#endif
#ifndef NO_STDARG
void
as_warn (const char *format,...)
{
va_list args;
char buffer[200];
if (!flag_no_warnings)
{
va_start (args, format);
vsprintf (buffer, format, args);
va_end (args);
as_warn_internal ((char *) NULL, 0, buffer);
}
} /* as_warn() */
#else
#ifndef NO_VARARGS
void
as_warn (format, va_alist)
char *format;
va_dcl
{
va_list args;
char buffer[200];
if (!flag_no_warnings)
{
va_start (args);
vsprintf (buffer, format, args);
va_end (args);
as_warn_internal ((char *) NULL, 0, buffer);
}
} /* as_warn() */
#else
/*VARARGS1 */
as_warn (format, args)
char *format;
{
if (!flag_no_warnings)
{
++warning_count;
as_show_where ();
fprintf (stderr, "Warning: ");
_doprnt (format, &args, stderr);
(void) putc ('\n', stderr);
}
} /* as_warn() */
#endif /* not NO_VARARGS */
#endif /* not NO_STDARG */
/* as_warn_where, like as_bad but the file name and line number are
passed in. Unfortunately, we have to repeat the function in order
to handle the varargs correctly and portably. */
#ifndef NO_STDARG
void
as_warn_where (char *file, unsigned int line, const char *format,...)
{
va_list args;
char buffer[200];
if (!flag_no_warnings)
{
va_start (args, format);
vsprintf (buffer, format, args);
va_end (args);
as_warn_internal (file, line, buffer);
}
} /* as_warn() */
#else
#ifndef NO_VARARGS
void
as_warn_where (file, line, format, va_alist)
char *file;
unsigned int line;
char *format;
va_dcl
{
va_list args;
char buffer[200];
if (!flag_no_warnings)
{
va_start (args);
vsprintf (buffer, format, args);
va_end (args);
as_warn_internal (file, line, buffer);
}
} /* as_warn() */
#else
/*VARARGS1 */
as_warn_where (file, line, format, args)
char *file;
unsigned int line;
char *format;
{
if (!flag_no_warnings)
{
++warning_count;
identify (file);
fprintf (stderr, "%s:%u: Warning: ", file, line);
_doprnt (format, &args, stderr);
(void) putc ('\n', stderr);
}
} /* as_warn() */
#endif /* not NO_VARARGS */
#endif /* not NO_STDARG */
/* The common portion of as_bad and as_bad_where. */
static void
as_bad_internal (file, line, buffer)
char *file;
unsigned int line;
char *buffer;
{
++error_count;
if (file == NULL)
as_where (&file, &line);
identify (file);
fprintf (stderr, "%s:%u: Error: ", file, line);
fputs (buffer, stderr);
(void) putc ('\n', stderr);
#ifndef NO_LISTING
listing_error (buffer);
#endif
}
/*
* a s _ b a d ()
*
* Send to stderr a string as a warning, and locate warning in input file(s).
* Please us when there is no recovery, but we want to continue processing
* but not produce an object file.
* Please explain in string (which may have '\n's) what recovery was done.
*/
#ifndef NO_STDARG
void
as_bad (const char *format,...)
{
va_list args;
char buffer[200];
va_start (args, format);
vsprintf (buffer, format, args);
va_end (args);
as_bad_internal ((char *) NULL, 0, buffer);
}
#else
#ifndef NO_VARARGS
void
as_bad (format, va_alist)
char *format;
va_dcl
{
va_list args;
char buffer[200];
va_start (args);
vsprintf (buffer, format, args);
va_end (args);
as_bad_internal ((char *) NULL, 0, buffer);
}
#else
/*VARARGS1 */
as_bad (format, args)
char *format;
{
++error_count;
as_show_where ();
fprintf (stderr, "Error: ");
_doprnt (format, &args, stderr);
(void) putc ('\n', stderr);
} /* as_bad() */
#endif /* not NO_VARARGS */
#endif /* not NO_STDARG */
/* as_bad_where, like as_bad but the file name and line number are
passed in. Unfortunately, we have to repeat the function in order
to handle the varargs correctly and portably. */
#ifndef NO_STDARG
void
as_bad_where (char *file, unsigned int line, const char *format,...)
{
va_list args;
char buffer[200];
va_start (args, format);
vsprintf (buffer, format, args);
va_end (args);
as_bad_internal (file, line, buffer);
}
#else
#ifndef NO_VARARGS
void
as_bad_where (file, line, format, va_alist)
char *file;
unsigned int line;
char *format;
va_dcl
{
va_list args;
char buffer[200];
va_start (args);
vsprintf (buffer, format, args);
va_end (args);
as_bad_internal (file, line, buffer);
}
#else
/*VARARGS1 */
as_bad_where (file, line, format, args)
char *file;
unsigned int line;
char *format;
{
++error_count;
identify (file);
fprintf (stderr, "%s:%u: Error: ", file, line);
_doprnt (format, &args, stderr);
(void) putc ('\n', stderr);
} /* as_bad() */
#endif /* not NO_VARARGS */
#endif /* not NO_STDARG */
/*
* a s _ f a t a l ()
*
* Send to stderr a string as a fatal message, and print location of error in
* input file(s).
* Please only use this for when we DON'T have some recovery action.
* It exit()s with a warning status.
*/
#ifndef NO_STDARG
void
as_fatal (const char *format,...)
{
va_list args;
as_show_where ();
va_start (args, format);
fprintf (stderr, "Fatal error:");
vfprintf (stderr, format, args);
(void) putc ('\n', stderr);
va_end (args);
exit (33);
} /* as_fatal() */
#else
#ifndef NO_VARARGS
void
as_fatal (format, va_alist)
char *format;
va_dcl
{
va_list args;
as_show_where ();
va_start (args);
fprintf (stderr, "Fatal error:");
vfprintf (stderr, format, args);
(void) putc ('\n', stderr);
va_end (args);
exit (33);
} /* as_fatal() */
#else
/*VARARGS1 */
as_fatal (format, args)
char *format;
{
as_show_where ();
fprintf (stderr, "Fatal error:");
_doprnt (format, &args, stderr);
(void) putc ('\n', stderr);
exit (33); /* What is a good exit status? */
} /* as_fatal() */
#endif /* not NO_VARARGS */
#endif /* not NO_STDARG */
void
fprint_value (file, val)
FILE *file;
valueT val;
{
if (sizeof (val) <= sizeof (long))
{
fprintf (file, "%ld", val);
return;
}
#ifdef BFD_ASSEMBLER
if (sizeof (val) <= sizeof (bfd_vma))
{
fprintf_vma (file, val);
return;
}
#endif
abort ();
}
void
sprint_value (buf, val)
char *buf;
valueT val;
{
if (sizeof (val) <= sizeof (long))
{
sprintf (buf, "%ld", val);
return;
}
#ifdef BFD_ASSEMBLER
if (sizeof (val) <= sizeof (bfd_vma))
{
sprintf_vma (buf, val);
return;
}
#endif
abort ();
}
/* end of messages.c */