aboutsummaryrefslogtreecommitdiff
path: root/gnu/gas/messages.c
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/gas/messages.c')
-rw-r--r--gnu/gas/messages.c238
1 files changed, 0 insertions, 238 deletions
diff --git a/gnu/gas/messages.c b/gnu/gas/messages.c
deleted file mode 100644
index a7b1205287cb..000000000000
--- a/gnu/gas/messages.c
+++ /dev/null
@@ -1,238 +0,0 @@
-/* messages.c - error reporter -
- Copyright (C) 1987 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)
-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. */
-
-#include <stdio.h> /* define stderr */
-#ifdef VMS
-#include <errno.h> /* Need this to make errno declaration right */
-#include <perror.h> /* Need this to make sys_errlist/sys_nerr right */
-#endif /* VMS */
-
-#include "as.h"
-
-#ifndef NO_VARARGS
-#include <varargs.h>
-#endif
-
-/*
- ERRORS
-
- JF: this is now bogus. We now print more standard error messages
- that try to look like everyone else's.
-
- We print the error message 1st, beginning in column 1.
- All ancillary info starts in column 2 on lines after the
- key error text.
- We try to print a location in logical and physical file
- just after the main error text.
- Caller then prints any appendices after that, begining all
- lines with at least 1 space.
-
- Optionally, we may die.
- There is no need for a trailing '\n' in your error text format
- because we supply one.
-
-as_warn(fmt,args) Like fprintf(stderr,fmt,args) but also call errwhere().
-
-as_fatal(fmt,args) Like as_warn() but exit with a fatal status.
-
-*/
-
-
-/* Nonzero if we've hit a 'bad error', and should not write an obj file,
- and exit with a nonzero error code */
-
-int bad_error = 0;
-
-
-/*
- * a s _ p e r r o r
- *
- * Like perror(3), but with more info.
- */
-/* JF moved from input-scrub.c to here. */
-void
-as_perror(gripe, filename)
- char * gripe; /* Unpunctuated error theme. */
- char * filename;
-{
- extern int errno; /* See perror(3) for details. */
- extern int sys_nerr;
- extern char * sys_errlist[];
-
- as_where();
- fprintf (stderr,gripe,filename);
- 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. */
-}
-
-/*
- * a s _ w a r n ( )
- *
- * Send to stderr a string (with bell) (JF: Bell is obnoxious!) 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.
- */
-
-#ifdef NO_VARARGS
-/*VARARGS1*/
-as_warn(Format,args)
-char *Format;
-{
- if ( ! flagseen ['W']) /* -W supresses warning messages. */
- {
- as_where();
- _doprnt (Format, &args, stderr);
- (void)putc ('\n', stderr);
- /* as_where(); */
- }
-}
-#else
-void
-as_warn(Format,va_alist)
-char *Format;
-va_dcl
-{
- va_list args;
-
- if( ! flagseen['W'])
- {
- as_where();
- va_start(args);
- vfprintf(stderr, Format, args);
- va_end(args);
- (void) putc('\n', stderr);
- }
-}
-#endif
-#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']) {
- as_where();
- fprintf(stderr,Format,aa,ab,ac,ad,ae,af,ag,ah,ai,aj,ak,al,am,an);
- (void)putc('\n',stderr);
- }
-}
-#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).
- * 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.
- */
-
-#ifdef NO_VARARGS
-/*VARARGS1*/
-as_bad(Format,args)
-char *Format;
-{
- bad_error=1;
- as_where();
- _doprnt (Format, &args, stderr);
- (void)putc ('\n', stderr);
- /* as_where(); */
-}
-#else
-void
-as_bad(Format,va_alist)
-char *Format;
-va_dcl
-{
- va_list args;
-
- bad_error=1;
- as_where();
- va_start(args);
- vfprintf(stderr, Format, args);
- va_end(args);
- (void) putc('\n', stderr);
-}
-#endif
-#ifdef DONTDEF
-void
-as_bad(Format,aa,ab,ac,ad,ae,af,ag,ah,ai,aj,ak,al,am,an)
-char *format;
-{
- as_where();
- bad_error=1;
- fprintf(stderr,Format,aa,ab,ac,ad,ae,af,ag,ah,ai,aj,ak,al,am,an);
- (void)putc('\n',stderr);
-}
-#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).
- * Please only use this for when we DON'T have some recovery action.
- * It exit()s with a warning status.
- */
-
-#ifdef NO_VARARGS
-/*VARARGS1*/
-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? */
-}
-#else
-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);
-}
-#endif
-#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);
-}
-#endif
-
-/* end: messages.c */