#include "as.h"
#include <stdio.h>
#ifdef HAVE_ERRNO_H
#include <errno.h>
#endif
#ifdef USE_STDARG
#include <stdarg.h>
#endif
#ifdef USE_VARARGS
#include <varargs.h>
#endif
#if !defined (USE_STDARG) && !defined (USE_VARARGS)
#define va_alist REST
#define va_dcl
typedef int * va_list;
#define va_start(ARGS) ARGS = &REST
#define va_end(ARGS)
#endif
static void identify (char *);
static void as_show_where (void);
static void as_warn_internal (char *, unsigned int, char *);
static void as_bad_internal (char *, unsigned int, char *);
static void
identify (char *file)
{
static int identified;
if (identified)
return;
identified++;
if (!file)
{
unsigned int x;
as_where (&file, &x);
}
if (file)
fprintf (stderr, "%s: ", file);
fprintf (stderr, _("Assembler messages:\n"));
}
static int warning_count;
int
had_warnings (void)
{
return warning_count;
}
static int error_count;
int
had_errors (void)
{
return error_count;
}
static void
as_show_where (void)
{
char *file;
unsigned int line;
as_where (&file, &line);
identify (file);
if (file)
fprintf (stderr, "%s:%u: ", file, line);
}
void
as_perror (const char *gripe,
const char *filename)
{
const char *errtxt;
int saved_errno = errno;
as_show_where ();
fprintf (stderr, gripe, filename);
errno = saved_errno;
#ifdef BFD_ASSEMBLER
errtxt = bfd_errmsg (bfd_get_error ());
#else
errtxt = xstrerror (errno);
#endif
fprintf (stderr, ": %s\n", errtxt);
errno = 0;
#ifdef BFD_ASSEMBLER
bfd_set_error (bfd_error_no_error);
#endif
}
#ifdef USE_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);
}
#else
void
as_tsktsk (format, va_alist)
const char *format;
va_dcl
{
va_list args;
as_show_where ();
va_start (args);
vfprintf (stderr, format, args);
va_end (args);
(void) putc ('\n', stderr);
}
#endif
static void
as_warn_internal (char *file, unsigned int line, char *buffer)
{
++warning_count;
if (file == NULL)
as_where (&file, &line);
identify (file);
if (file)
fprintf (stderr, "%s:%u: ", file, line);
fprintf (stderr, _("Warning: "));
fputs (buffer, stderr);
(void) putc ('\n', stderr);
#ifndef NO_LISTING
listing_warning (buffer);
#endif
}
#ifdef USE_STDARG
void
as_warn (const char *format, ...)
{
va_list args;
char buffer[2000];
if (!flag_no_warnings)
{
va_start (args, format);
vsprintf (buffer, format, args);
va_end (args);
as_warn_internal ((char *) NULL, 0, buffer);
}
}
#else
void
as_warn (format, va_alist)
const char *format;
va_dcl
{
va_list args;
char buffer[2000];
if (!flag_no_warnings)
{
va_start (args);
vsprintf (buffer, format, args);
va_end (args);
as_warn_internal ((char *) NULL, 0, buffer);
}
}
#endif
#ifdef USE_STDARG
void
as_warn_where (char *file, unsigned int line, const char *format, ...)
{
va_list args;
char buffer[2000];
if (!flag_no_warnings)
{
va_start (args, format);
vsprintf (buffer, format, args);
va_end (args);
as_warn_internal (file, line, buffer);
}
}
#else
void
as_warn_where (file, line, format, va_alist)
char *file;
unsigned int line;
const char *format;
va_dcl
{
va_list args;
char buffer[2000];
if (!flag_no_warnings)
{
va_start (args);
vsprintf (buffer, format, args);
va_end (args);
as_warn_internal (file, line, buffer);
}
}
#endif
static void
as_bad_internal (char *file, unsigned int line, char *buffer)
{
++error_count;
if (file == NULL)
as_where (&file, &line);
identify (file);
if (file)
fprintf (stderr, "%s:%u: ", file, line);
fprintf (stderr, _("Error: "));
fputs (buffer, stderr);
(void) putc ('\n', stderr);
#ifndef NO_LISTING
listing_error (buffer);
#endif
}
#ifdef USE_STDARG
void
as_bad (const char *format, ...)
{
va_list args;
char buffer[2000];
va_start (args, format);
vsprintf (buffer, format, args);
va_end (args);
as_bad_internal ((char *) NULL, 0, buffer);
}
#else
void
as_bad (format, va_alist)
const char *format;
va_dcl
{
va_list args;
char buffer[2000];
va_start (args);
vsprintf (buffer, format, args);
va_end (args);
as_bad_internal ((char *) NULL, 0, buffer);
}
#endif
#ifdef USE_STDARG
void
as_bad_where (char *file, unsigned int line, const char *format, ...)
{
va_list args;
char buffer[2000];
va_start (args, format);
vsprintf (buffer, format, args);
va_end (args);
as_bad_internal (file, line, buffer);
}
#else
void
as_bad_where (file, line, format, va_alist)
char *file;
unsigned int line;
const char *format;
va_dcl
{
va_list args;
char buffer[2000];
va_start (args);
vsprintf (buffer, format, args);
va_end (args);
as_bad_internal (file, line, buffer);
}
#endif
#ifdef USE_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);
if (out_file_name != NULL)
unlink_if_ordinary (out_file_name);
xexit (EXIT_FAILURE);
}
#else
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);
xexit (EXIT_FAILURE);
}
#endif
void
as_assert (const char *file, int line, const char *fn)
{
as_show_where ();
fprintf (stderr, _("Internal error!\n"));
if (fn)
fprintf (stderr, _("Assertion failure in %s at %s line %d.\n"),
fn, file, line);
else
fprintf (stderr, _("Assertion failure at %s line %d.\n"), file, line);
fprintf (stderr, _("Please report this bug.\n"));
xexit (EXIT_FAILURE);
}
void
as_abort (const char *file, int line, const char *fn)
{
as_show_where ();
if (fn)
fprintf (stderr, _("Internal error, aborting at %s line %d in %s\n"),
file, line, fn);
else
fprintf (stderr, _("Internal error, aborting at %s line %d\n"),
file, line);
fprintf (stderr, _("Please report this bug.\n"));
xexit (EXIT_FAILURE);
}
void
fprint_value (FILE *file, valueT val)
{
if (sizeof (val) <= sizeof (long))
{
fprintf (file, "%ld", (long) val);
return;
}
#ifdef BFD_ASSEMBLER
if (sizeof (val) <= sizeof (bfd_vma))
{
fprintf_vma (file, val);
return;
}
#endif
abort ();
}
void
sprint_value (char *buf, valueT val)
{
if (sizeof (val) <= sizeof (long))
{
sprintf (buf, "%ld", (long) val);
return;
}
#ifdef BFD_ASSEMBLER
if (sizeof (val) <= sizeof (bfd_vma))
{
sprintf_vma (buf, val);
return;
}
#endif
abort ();
}
#define HEX_MAX_THRESHOLD 1024
#define HEX_MIN_THRESHOLD -(HEX_MAX_THRESHOLD)
static void
as_internal_value_out_of_range (char * prefix,
offsetT val,
offsetT min,
offsetT max,
char * file,
unsigned line,
int bad)
{
const char * err;
if (prefix == NULL)
prefix = "";
#ifdef BFD_ASSEMBLER
if ( val < HEX_MAX_THRESHOLD
&& min < HEX_MAX_THRESHOLD
&& max < HEX_MAX_THRESHOLD
&& val > HEX_MIN_THRESHOLD
&& min > HEX_MIN_THRESHOLD
&& max > HEX_MIN_THRESHOLD)
#endif
{
err = _("%s out of range (%d is not between %d and %d)");
if (bad)
as_bad_where (file, line, err,
prefix, (int) val, (int) min, (int) max);
else
as_warn_where (file, line, err,
prefix, (int) val, (int) min, (int) max);
}
#ifdef BFD_ASSEMBLER
else
{
char val_buf [sizeof (val) * 3 + 2];
char min_buf [sizeof (val) * 3 + 2];
char max_buf [sizeof (val) * 3 + 2];
if (sizeof (val) > sizeof (bfd_vma))
abort ();
sprintf_vma (val_buf, val);
sprintf_vma (min_buf, min);
sprintf_vma (max_buf, max);
err = _("%s out of range (0x%s is not between 0x%s and 0x%s)");
if (bad)
as_bad_where (file, line, err, prefix, val_buf, min_buf, max_buf);
else
as_warn_where (file, line, err, prefix, val_buf, min_buf, max_buf);
}
#endif
}
void
as_warn_value_out_of_range (char * prefix,
offsetT value,
offsetT min,
offsetT max,
char * file,
unsigned line)
{
as_internal_value_out_of_range (prefix, value, min, max, file, line, 0);
}
void
as_bad_value_out_of_range (char * prefix,
offsetT value,
offsetT min,
offsetT max,
char * file,
unsigned line)
{
as_internal_value_out_of_range (prefix, value, min, max, file, line, 1);
}