/* messages.c - error reporter -
- Copyright (C) 1987, 1991 Free Software Foundation, Inc.
+ 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 1, or (at your option)
+ 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,
along with GAS; see the file COPYING. If not, write to
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
-/* $Id$ */
-
-#include <stdio.h> /* define stderr */
+#include <stdio.h> /* define stderr */
#include <errno.h>
#include "as.h"
+#ifndef __STDC__
+#ifndef NO_STDARG
+#define NO_STDARG
+#endif
+#endif
+
#ifndef NO_STDARG
#include <stdarg.h>
#else
as_fatal(fmt,args) Like as_warn() but exit with a fatal status.
- */
+ */
-static int warning_count = 0; /* Count of number of warnings issued */
+static int warning_count; /* Count of number of warnings issued */
-int had_warnings() {
- return(warning_count);
-} /* had_err() */
+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 = 0;
+static int error_count;
-int had_errors() {
- return(error_count);
-} /* had_errors() */
+int
+had_errors ()
+{
+ return (error_count);
+} /* had_errors() */
/*
*
* Like perror(3), but with more info.
*/
-void as_perror(gripe, filename)
-char *gripe; /* Unpunctuated error theme. */
-char *filename;
+void
+as_perror (gripe, filename)
+ char *gripe; /* Unpunctuated error theme. */
+ char *filename;
{
- extern int sys_nerr;
- extern char *sys_errlist[];
-
- as_where();
- fprintf(stderr,gripe,filename);
+#ifndef HAVE_STRERROR
+ extern char *strerror ();
+#endif /* HAVE_STRERROR */
- if (errno > sys_nerr)
- fprintf(stderr, "Unknown error #%d.\n", errno);
- else
- fprintf(stderr, "%s.\n", sys_errlist[errno]);
- errno = 0; /* After reporting, clear it. */
-} /* as_perror() */
+ as_where ();
+ fprintf (stderr, gripe, filename);
+ fprintf (stderr, ": %s\n", strerror (errno));
+ errno = 0; /* After reporting, clear it. */
+} /* as_perror() */
/*
* a s _ t s k t s k ()
*
- * Send to stderr a string (with bell) (JF: Bell is obnoxious!) as a warning, and locate warning
+ * 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(Format)
-const char *Format;
+void
+as_tsktsk (const char *Format,...)
{
- va_list args;
-
- as_where();
- va_start(args, Format);
- vfprintf(stderr, Format, args);
- va_end(args);
- (void) putc('\n', stderr);
-} /* as_tsktsk() */
+ va_list args;
+
+ as_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
+void
+as_tsktsk (Format, va_alist)
+ char *Format;
+ va_dcl
{
- va_list args;
-
- as_where();
- va_start(args);
- vfprintf(stderr, Format, args);
- va_end(args);
- (void) putc('\n', stderr);
-} /* as_tsktsk() */
+ va_list args;
+
+ as_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_tsktsk (Format, args)
+ char *Format;
{
- as_where();
- _doprnt (Format, &args, stderr);
- (void)putc ('\n', stderr);
- /* as_where(); */
-} /* as_tsktsk */
+ as_where ();
+ _doprnt (Format, &args, stderr);
+ (void) putc ('\n', stderr);
+ /* as_where(); */
+} /* as_tsktsk */
+
#endif /* not NO_VARARGS */
#endif /* not NO_STDARG */
-#ifdef DONTDEF
-void as_tsktsk(Format,aa,ab,ac,ad,ae,af,ag,ah,ai,aj,ak,al,am,an)
-char *format;
-{
- as_where();
- fprintf(stderr,Format,aa,ab,ac,ad,ae,af,ag,ah,ai,aj,ak,al,am,an);
- (void)putc('\n',stderr);
-} /* as_tsktsk() */
-#endif
/*
* a s _ w a r n ()
*
- * Send to stderr a string (with bell) (JF: Bell is obnoxious!) as a warning, and locate warning
+ * 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_warn(Format)
-const char *Format;
+void
+as_warn (const char *Format,...)
{
- va_list args;
-
- if(!flagseen['W']) {
- ++warning_count;
- as_where();
- va_start(args, Format);
- vfprintf(stderr, Format, args);
- va_end(args);
- (void) putc('\n', stderr);
- }
-} /* as_warn() */
+ va_list args;
+ char buffer[200];
+
+ if (!flagseen['W'])
+ {
+ ++warning_count;
+ as_where ();
+ va_start (args, Format);
+ fprintf (stderr, "Warning: ");
+ vsprintf (buffer, Format, args);
+ fputs (buffer, stderr);
+#ifndef NO_LISTING
+ listing_warning (buffer);
+#endif
+ va_end (args);
+ (void) putc ('\n', stderr);
+ }
+} /* as_warn() */
+
#else
#ifndef NO_VARARGS
-void as_warn(Format,va_alist)
-char *Format;
-va_dcl
+void
+as_warn (Format, va_alist)
+ char *Format;
+ va_dcl
{
- va_list args;
-
- if(!flagseen['W']) {
- ++warning_count;
- as_where();
- va_start(args);
- vfprintf(stderr, Format, args);
- va_end(args);
- (void) putc('\n', stderr);
- }
-} /* as_warn() */
+ va_list args;
+ char buffer[200];
+
+ if (!flagseen['W'])
+ {
+ ++warning_count;
+ as_where ();
+ va_start (args);
+ fprintf (stderr, "Warning: ");
+ vsprintf (buffer, Format, args);
+ fputs (buffer, stderr);
+#ifndef NO_LISTING
+ listing_warning (buffer);
+#endif
+ va_end (args);
+ (void) putc ('\n', stderr);
+ }
+} /* as_warn() */
+
#else
/*VARARGS1 */
-as_warn(Format,args)
-char *Format;
+as_warn (Format, args)
+ char *Format;
{
- /* -W supresses warning messages. */
- if (! flagseen ['W']) {
- ++warning_count;
- as_where();
- _doprnt (Format, &args, stderr);
- (void)putc ('\n', stderr);
- /* as_where(); */
- }
-} /* as_warn() */
+ /* -W supresses warning messages. */
+ if (!flagseen['W'])
+ {
+ ++warning_count;
+ as_where ();
+ _doprnt (Format, &args, stderr);
+ (void) putc ('\n', stderr);
+ /* as_where(); */
+ }
+} /* as_warn() */
+
#endif /* not NO_VARARGS */
#endif /* not NO_STDARG */
-#ifdef DONTDEF
-void as_warn(Format,aa,ab,ac,ad,ae,af,ag,ah,ai,aj,ak,al,am,an)
-char *format;
-{
- if(!flagseen['W']) {
- ++warning_count;
- as_where();
- fprintf(stderr,Format,aa,ab,ac,ad,ae,af,ag,ah,ai,aj,ak,al,am,an);
- (void)putc('\n',stderr);
- }
-} /* as_warn() */
-#endif
/*
* a s _ b a d ()
*
- * Send to stderr a string (with bell) (JF: Bell is obnoxious!) as a warning,
- * and locate warning in input file(s).
+ * 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(Format)
-const char *Format;
+void
+as_bad (const char *Format,...)
{
- va_list args;
-
- ++error_count;
- as_where();
- va_start(args, Format);
- vfprintf(stderr, Format, args);
- va_end(args);
- (void) putc('\n', stderr);
-} /* as_bad() */
+ va_list args;
+ char buffer[200];
+
+ ++error_count;
+ as_where ();
+ va_start (args, Format);
+ fprintf (stderr, "Error: ");
+
+ vsprintf (buffer, Format, args);
+ fputs (buffer, stderr);
+#ifndef NO_LISTING
+ listing_error (buffer);
+#endif
+ va_end (args);
+ (void) putc ('\n', stderr);
+} /* as_bad() */
+
#else
#ifndef NO_VARARGS
-void as_bad(Format,va_alist)
-char *Format;
-va_dcl
+void
+as_bad (Format, va_alist)
+ char *Format;
+ va_dcl
{
- va_list args;
-
- ++error_count;
- as_where();
- va_start(args);
- vfprintf(stderr, Format, args);
- va_end(args);
- (void) putc('\n', stderr);
-} /* as_bad() */
+ va_list args;
+ char buffer[200];
+
+ ++error_count;
+ as_where ();
+ va_start (args);
+ vsprintf (buffer, Format, args);
+ fputs (buffer, stderr);
+#ifndef NO_LISTING
+ listing_error (buffer);
+#endif
+
+ va_end (args);
+ (void) putc ('\n', stderr);
+} /* as_bad() */
+
#else
/*VARARGS1 */
-as_bad(Format,args)
-char *Format;
+as_bad (Format, args)
+ char *Format;
{
- ++error_count;
- as_where();
- _doprnt (Format, &args, stderr);
- (void)putc ('\n', stderr);
- /* as_where(); */
-} /* as_bad() */
+ ++error_count;
+
+ as_where ();
+ fprintf (stderr, "Error: ");
+ _doprnt (Format, &args, stderr);
+ (void) putc ('\n', stderr);
+ /* as_where(); */
+} /* as_bad() */
+
#endif /* not NO_VARARGS */
#endif /* not NO_STDARG */
-#ifdef DONTDEF
-void as_bad(Format,aa,ab,ac,ad,ae,af,ag,ah,ai,aj,ak,al,am,an)
-char *format;
-{
- ++error_count;
- as_where();
- fprintf(stderr,Format,aa,ab,ac,ad,ae,af,ag,ah,ai,aj,ak,al,am,an);
- (void)putc('\n',stderr);
-} /* as_bad() */
-#endif
-
/*
* a s _ f a t a l ()
*
- * Send to stderr a string (with bell) (JF: Bell is obnoxious!) as a fatal
- * message, and locate stdsource in input file(s).
+ * 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(Format)
-const char *Format;
+void
+as_fatal (const char *Format,...)
{
- va_list args;
-
- as_where();
- va_start(args, Format);
- fprintf (stderr, "FATAL:");
- vfprintf(stderr, Format, args);
- (void) putc('\n', stderr);
- va_end(args);
- exit(42);
-} /* as_fatal() */
+ va_list args;
+
+ as_where ();
+ va_start (args, Format);
+ fprintf (stderr, "FATAL:");
+ 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
+void
+as_fatal (Format, va_alist)
+ char *Format;
+ va_dcl
{
- va_list args;
-
- as_where();
- va_start(args);
- fprintf (stderr, "FATAL:");
- vfprintf(stderr, Format, args);
- (void) putc('\n', stderr);
- va_end(args);
- exit(42);
-} /* as_fatal() */
+ va_list args;
+
+ as_where ();
+ va_start (args);
+ fprintf (stderr, "FATAL:");
+ vfprintf (stderr, Format, args);
+ (void) putc ('\n', stderr);
+ va_end (args);
+ exit (33);
+} /* as_fatal() */
+
#else
/*VARARGS1 */
-as_fatal(Format, args)
-char *Format;
+as_fatal (Format, args)
+ char *Format;
{
- as_where();
- fprintf(stderr,"FATAL:");
- _doprnt (Format, &args, stderr);
- (void)putc ('\n', stderr);
- /* as_where(); */
- exit(42); /* What is a good exit status? */
-} /* as_fatal() */
+ as_where ();
+ fprintf (stderr, "FATAL:");
+ _doprnt (Format, &args, stderr);
+ (void) putc ('\n', stderr);
+ /* as_where(); */
+ exit (33); /* What is a good exit status? */
+} /* as_fatal() */
+
#endif /* not NO_VARARGS */
#endif /* not NO_STDARG */
-#ifdef DONTDEF
-void as_fatal(Format,aa,ab,ac,ad,ae,af,ag,ah,ai,aj,ak,al,am,an)
-char *Format;
-{
- as_where();
- fprintf (stderr, "FATAL:");
- fprintf(stderr, Format,aa,ab,ac,ad,ae,af,ag,ah,ai,aj,ak,al,am,an);
- (void) putc('\n', stderr);
- exit(42);
-} /* as_fatal() */
-#endif
-
-/* end: messages.c */
+/* end of messages.c */