* listing.c: Convert to ISO-C.

* listing.h: Likewise.
	* macro.c: Likewise.
	* macro.h: Likewise.
This commit is contained in:
Kazu Hirata 2003-11-24 17:52:33 +00:00
parent 9e08b29bd1
commit 254d758cf9
6 changed files with 125 additions and 235 deletions

View File

@ -1,3 +1,10 @@
2003-11-24 Kazu Hirata <kazu@cs.umass.edu>
* listing.c: Convert to ISO-C.
* listing.h: Likewise.
* macro.c: Likewise.
* macro.h: Likewise.
2003-11-24 Jakub Jelinek <jakub@redhat.com> 2003-11-24 Jakub Jelinek <jakub@redhat.com>
* app.c (do_scrub_chars): Add PUT (ch) and ch = GET () * app.c (do_scrub_chars): Add PUT (ch) and ch = GET ()

View File

@ -204,27 +204,22 @@ static FILE *list_file;
static char *data_buffer; static char *data_buffer;
/* Prototypes. */ /* Prototypes. */
static void listing_message PARAMS ((const char *name, const char *message)); static void listing_message (const char *name, const char *message);
static file_info_type *file_info PARAMS ((const char *file_name)); static file_info_type *file_info (const char *file_name);
static void new_frag PARAMS ((void)); static void new_frag (void);
static char *buffer_line PARAMS ((file_info_type *file, static char *buffer_line (file_info_type *file, char *line, unsigned int size);
char *line, unsigned int size)); static void listing_page (list_info_type *list);
static void listing_page PARAMS ((list_info_type *list)); static unsigned int calc_hex (list_info_type *list);
static unsigned int calc_hex PARAMS ((list_info_type *list)); static void print_lines (list_info_type *, unsigned int,
static void print_lines PARAMS ((list_info_type *, unsigned int, char *, unsigned int);
char *, unsigned int)); static void list_symbol_table (void);
static void list_symbol_table PARAMS ((void)); static void print_source (file_info_type *current_file, list_info_type *list,
static void print_source PARAMS ((file_info_type *current_file, char *buffer, unsigned int width);
list_info_type *list, static int debugging_pseudo (list_info_type *, const char *);
char *buffer, static void listing_listing (char *name);
unsigned int width));
static int debugging_pseudo PARAMS ((list_info_type *, const char *));
static void listing_listing PARAMS ((char *name));
static void static void
listing_message (name, message) listing_message (const char *name, const char *message)
const char *name;
const char *message;
{ {
if (listing_tail != (list_info_type *) NULL) if (listing_tail != (list_info_type *) NULL)
{ {
@ -237,22 +232,19 @@ listing_message (name, message)
} }
void void
listing_warning (message) listing_warning (const char *message)
const char *message;
{ {
listing_message (_("Warning:"), message); listing_message (_("Warning:"), message);
} }
void void
listing_error (message) listing_error (const char *message)
const char *message;
{ {
listing_message (_("Error:"), message); listing_message (_("Error:"), message);
} }
static file_info_type * static file_info_type *
file_info (file_name) file_info (const char *file_name)
const char *file_name;
{ {
/* Find an entry with this file name. */ /* Find an entry with this file name. */
file_info_type *p = file_info_head; file_info_type *p = file_info_head;
@ -278,7 +270,7 @@ file_info (file_name)
} }
static void static void
new_frag () new_frag (void)
{ {
frag_wane (frag_now); frag_wane (frag_now);
@ -287,8 +279,7 @@ new_frag ()
} }
void void
listing_newline (ps) listing_newline (char *ps)
char *ps;
{ {
char *file; char *file;
unsigned int line; unsigned int line;
@ -432,7 +423,7 @@ listing_newline (ps)
with the new instruction. */ with the new instruction. */
void void
listing_prev_line () listing_prev_line (void)
{ {
list_info_type *l; list_info_type *l;
fragS *f; fragS *f;
@ -459,10 +450,7 @@ listing_prev_line ()
file to make. */ file to make. */
static char * static char *
buffer_line (file, line, size) buffer_line (file_info_type *file, char *line, unsigned int size)
file_info_type *file;
char *line;
unsigned int size;
{ {
unsigned int count = 0; unsigned int count = 0;
int c; int c;
@ -533,8 +521,7 @@ static char *subtitle; /* Current subtitle */
static unsigned int on_page; /* Number of lines printed on current page */ static unsigned int on_page; /* Number of lines printed on current page */
static void static void
listing_page (list) listing_page (list_info_type *list)
list_info_type *list;
{ {
/* Grope around, see if we can see a title or subtitle edict coming up /* Grope around, see if we can see a title or subtitle edict coming up
soon. (we look down 10 lines of the page and see if it's there) */ soon. (we look down 10 lines of the page and see if it's there) */
@ -577,8 +564,7 @@ listing_page (list)
} }
static unsigned int static unsigned int
calc_hex (list) calc_hex (list_info_type *list)
list_info_type *list;
{ {
int data_buffer_size; int data_buffer_size;
list_info_type *first = list; list_info_type *first = list;
@ -653,11 +639,8 @@ calc_hex (list)
} }
static void static void
print_lines (list, lineno, string, address) print_lines (list_info_type *list, unsigned int lineno,
list_info_type *list; char *string, unsigned int address)
unsigned int lineno;
char *string;
unsigned int address;
{ {
unsigned int idx; unsigned int idx;
unsigned int nchars; unsigned int nchars;
@ -761,7 +744,7 @@ print_lines (list, lineno, string, address)
} }
static void static void
list_symbol_table () list_symbol_table (void)
{ {
extern symbolS *symbol_rootP; extern symbolS *symbol_rootP;
int got_some = 0; int got_some = 0;
@ -869,11 +852,8 @@ list_symbol_table ()
} }
static void static void
print_source (current_file, list, buffer, width) print_source (file_info_type *current_file, list_info_type *list,
file_info_type *current_file; char *buffer, unsigned int width)
list_info_type *list;
char *buffer;
unsigned int width;
{ {
if (!current_file->at_end) if (!current_file->at_end)
{ {
@ -893,9 +873,7 @@ print_source (current_file, list, buffer, width)
records inserted by the compiler, see if the line is suspicious. */ records inserted by the compiler, see if the line is suspicious. */
static int static int
debugging_pseudo (list, line) debugging_pseudo (list_info_type *list, const char *line)
list_info_type *list;
const char *line;
{ {
static int in_debug; static int in_debug;
int was_debug; int was_debug;
@ -965,8 +943,7 @@ debugging_pseudo (list, line)
} }
static void static void
listing_listing (name) listing_listing (char *name ATTRIBUTE_UNUSED)
char *name ATTRIBUTE_UNUSED;
{ {
list_info_type *list = head; list_info_type *list = head;
file_info_type *current_hll_file = (file_info_type *) NULL; file_info_type *current_hll_file = (file_info_type *) NULL;
@ -1107,8 +1084,7 @@ listing_listing (name)
} }
void void
listing_print (name) listing_print (char *name)
char *name;
{ {
int using_stdout; int using_stdout;
@ -1161,23 +1137,20 @@ listing_print (name)
} }
void void
listing_file (name) listing_file (const char *name)
const char *name;
{ {
fn = name; fn = name;
} }
void void
listing_eject (ignore) listing_eject (int ignore ATTRIBUTE_UNUSED)
int ignore ATTRIBUTE_UNUSED;
{ {
if (listing) if (listing)
listing_tail->edict = EDICT_EJECT; listing_tail->edict = EDICT_EJECT;
} }
void void
listing_flags (ignore) listing_flags (int ignore ATTRIBUTE_UNUSED)
int ignore ATTRIBUTE_UNUSED;
{ {
while ((*input_line_pointer++) && (*input_line_pointer != '\n')) while ((*input_line_pointer++) && (*input_line_pointer != '\n'))
input_line_pointer++; input_line_pointer++;
@ -1190,8 +1163,7 @@ listing_flags (ignore)
the current line should be listed, but the next line should not. */ the current line should be listed, but the next line should not. */
void void
listing_list (on) listing_list (int on)
int on;
{ {
if (listing) if (listing)
{ {
@ -1220,8 +1192,7 @@ listing_list (on)
} }
void void
listing_psize (width_only) listing_psize (int width_only)
int width_only;
{ {
if (! width_only) if (! width_only)
{ {
@ -1248,15 +1219,13 @@ listing_psize (width_only)
} }
void void
listing_nopage (ignore) listing_nopage (int ignore ATTRIBUTE_UNUSED)
int ignore ATTRIBUTE_UNUSED;
{ {
paper_height = 0; paper_height = 0;
} }
void void
listing_title (depth) listing_title (int depth)
int depth;
{ {
int quoted; int quoted;
char *start; char *start;
@ -1308,8 +1277,7 @@ listing_title (depth)
} }
void void
listing_source_line (line) listing_source_line (unsigned int line)
unsigned int line;
{ {
if (listing) if (listing)
{ {
@ -1320,8 +1288,7 @@ listing_source_line (line)
} }
void void
listing_source_file (file) listing_source_file (const char *file)
const char *file;
{ {
if (listing) if (listing)
listing_tail->hll_file = file_info (file); listing_tail->hll_file = file_info (file);
@ -1332,71 +1299,61 @@ listing_source_file (file)
/* Dummy functions for when compiled without listing enabled. */ /* Dummy functions for when compiled without listing enabled. */
void void
listing_flags (ignore) listing_flags (int ignore)
int ignore;
{ {
s_ignore (0); s_ignore (0);
} }
void void
listing_list (on) listing_list (int on)
int on;
{ {
s_ignore (0); s_ignore (0);
} }
void void
listing_eject (ignore) listing_eject (int ignore)
int ignore;
{ {
s_ignore (0); s_ignore (0);
} }
void void
listing_psize (ignore) listing_psize (int ignore)
int ignore;
{ {
s_ignore (0); s_ignore (0);
} }
void void
listing_nopage (ignore) listing_nopage (int ignore)
int ignore;
{ {
s_ignore (0); s_ignore (0);
} }
void void
listing_title (depth) listing_title (int depth)
int depth;
{ {
s_ignore (0); s_ignore (0);
} }
void void
listing_file (name) listing_file (const char *name)
const char *name;
{ {
} }
void void
listing_newline (name) listing_newline (char *name)
char *name;
{ {
} }
void void
listing_source_line (n) listing_source_line (unsigned int n)
unsigned int n;
{ {
} }
void void
listing_source_file (n) listing_source_file (const char *n)
const char *n;
{ {
} }

View File

@ -41,21 +41,21 @@
#define LISTING_SKIP_COND() ((listing & LISTING_NOCOND) != 0) #define LISTING_SKIP_COND() ((listing & LISTING_NOCOND) != 0)
void listing_eject PARAMS ((int)); void listing_eject (int);
void listing_error PARAMS ((const char *message)); void listing_error (const char *message);
void listing_file PARAMS ((const char *name)); void listing_file (const char *name);
void listing_flags PARAMS ((int)); void listing_flags (int);
void listing_list PARAMS ((int on)); void listing_list (int on);
void listing_newline PARAMS ((char *ps)); void listing_newline (char *ps);
void listing_prev_line PARAMS ((void)); void listing_prev_line (void);
void listing_print PARAMS ((char *name)); void listing_print (char *name);
void listing_psize PARAMS ((int)); void listing_psize (int);
void listing_nopage PARAMS ((int)); void listing_nopage (int);
void listing_source_file PARAMS ((const char *)); void listing_source_file (const char *);
void listing_source_line PARAMS ((unsigned int)); void listing_source_line (unsigned int);
void listing_title PARAMS ((int depth)); void listing_title (int depth);
void listing_warning PARAMS ((const char *message)); void listing_warning (const char *message);
void listing_width PARAMS ((unsigned int x)); void listing_width (unsigned int x);
extern int listing_lhs_width; extern int listing_lhs_width;
extern int listing_lhs_width_second; extern int listing_lhs_width_second;

View File

@ -67,16 +67,15 @@ extern void *alloca ();
/* Internal functions. */ /* Internal functions. */
static int get_token PARAMS ((int, sb *, sb *)); static int get_token (int, sb *, sb *);
static int getstring PARAMS ((int, sb *, sb *)); static int getstring (int, sb *, sb *);
static int get_any_string PARAMS ((int, sb *, sb *, int, int)); static int get_any_string (int, sb *, sb *, int, int);
static int do_formals PARAMS ((macro_entry *, int, sb *)); static int do_formals (macro_entry *, int, sb *);
static int get_apost_token PARAMS ((int, sb *, sb *, int)); static int get_apost_token (int, sb *, sb *, int);
static int sub_actual static int sub_actual (int, sb *, sb *, struct hash_control *, int, sb *, int);
PARAMS ((int, sb *, sb *, struct hash_control *, int, sb *, int));
static const char *macro_expand_body static const char *macro_expand_body
PARAMS ((sb *, sb *, formal_entry *, struct hash_control *, int)); (sb *, sb *, formal_entry *, struct hash_control *, int);
static const char *macro_expand PARAMS ((int, sb *, macro_entry *, sb *)); static const char *macro_expand (int, sb *, macro_entry *, sb *);
#define ISWHITE(x) ((x) == ' ' || (x) == '\t') #define ISWHITE(x) ((x) == ' ' || (x) == '\t')
@ -113,7 +112,7 @@ static int macro_strip_at;
/* Function to use to parse an expression. */ /* Function to use to parse an expression. */
static int (*macro_expr) PARAMS ((const char *, int, sb *, int *)); static int (*macro_expr) (const char *, int, sb *, int *);
/* Number of macro expansions that have been done. */ /* Number of macro expansions that have been done. */
@ -122,11 +121,8 @@ static int macro_number;
/* Initialize macro processing. */ /* Initialize macro processing. */
void void
macro_init (alternate, mri, strip_at, expr) macro_init (int alternate, int mri, int strip_at,
int alternate; int (*expr) (const char *, int, sb *, int *))
int mri;
int strip_at;
int (*expr) PARAMS ((const char *, int, sb *, int *));
{ {
macro_hash = hash_new (); macro_hash = hash_new ();
macro_defined = 0; macro_defined = 0;
@ -139,8 +135,7 @@ macro_init (alternate, mri, strip_at, expr)
/* Switch in and out of MRI mode on the fly. */ /* Switch in and out of MRI mode on the fly. */
void void
macro_mri_mode (mri) macro_mri_mode (int mri)
int mri;
{ {
macro_mri = mri; macro_mri = mri;
} }
@ -152,11 +147,8 @@ macro_mri_mode (mri)
Return 1 on success, 0 on unexpected EOF. */ Return 1 on success, 0 on unexpected EOF. */
int int
buffer_and_nest (from, to, ptr, get_line) buffer_and_nest (const char *from, const char *to, sb *ptr,
const char *from; int (*get_line) (sb *))
const char *to;
sb *ptr;
int (*get_line) PARAMS ((sb *));
{ {
int from_len = strlen (from); int from_len = strlen (from);
int to_len = strlen (to); int to_len = strlen (to);
@ -235,10 +227,7 @@ buffer_and_nest (from, to, ptr, get_line)
/* Pick up a token. */ /* Pick up a token. */
static int static int
get_token (idx, in, name) get_token (int idx, sb *in, sb *name)
int idx;
sb *in;
sb *name;
{ {
if (idx < in->len if (idx < in->len
&& (ISALPHA (in->ptr[idx]) && (ISALPHA (in->ptr[idx])
@ -263,10 +252,7 @@ get_token (idx, in, name)
/* Pick up a string. */ /* Pick up a string. */
static int static int
getstring (idx, in, acc) getstring (int idx, sb *in, sb *acc)
int idx;
sb *in;
sb *acc;
{ {
idx = sb_skip_white (idx, in); idx = sb_skip_white (idx, in);
@ -354,12 +340,7 @@ getstring (idx, in, acc)
*/ */
static int static int
get_any_string (idx, in, out, expand, pretend_quoted) get_any_string (int idx, sb *in, sb *out, int expand, int pretend_quoted)
int idx;
sb *in;
sb *out;
int expand;
int pretend_quoted;
{ {
sb_reset (out); sb_reset (out);
idx = sb_skip_white (idx, in); idx = sb_skip_white (idx, in);
@ -439,10 +420,7 @@ get_any_string (idx, in, out, expand, pretend_quoted)
/* Pick up the formal parameters of a macro definition. */ /* Pick up the formal parameters of a macro definition. */
static int static int
do_formals (macro, idx, in) do_formals (macro_entry *macro, int idx, sb *in)
macro_entry *macro;
int idx;
sb *in;
{ {
formal_entry **p = &macro->formals; formal_entry **p = &macro->formals;
@ -522,12 +500,8 @@ do_formals (macro, idx, in)
the macro which was defined. */ the macro which was defined. */
const char * const char *
define_macro (idx, in, label, get_line, namep) define_macro (int idx, sb *in, sb *label,
int idx; int (*get_line) (sb *), const char **namep)
sb *in;
sb *label;
int (*get_line) PARAMS ((sb *));
const char **namep;
{ {
macro_entry *macro; macro_entry *macro;
sb name; sb name;
@ -583,11 +557,7 @@ define_macro (idx, in, label, get_line, namep)
/* Scan a token, and then skip KIND. */ /* Scan a token, and then skip KIND. */
static int static int
get_apost_token (idx, in, name, kind) get_apost_token (int idx, sb *in, sb *name, int kind)
int idx;
sb *in;
sb *name;
int kind;
{ {
idx = get_token (idx, in, name); idx = get_token (idx, in, name);
if (idx < in->len if (idx < in->len
@ -601,14 +571,8 @@ get_apost_token (idx, in, name, kind)
/* Substitute the actual value for a formal parameter. */ /* Substitute the actual value for a formal parameter. */
static int static int
sub_actual (start, in, t, formal_hash, kind, out, copyifnotthere) sub_actual (int start, sb *in, sb *t, struct hash_control *formal_hash,
int start; int kind, sb *out, int copyifnotthere)
sb *in;
sb *t;
struct hash_control *formal_hash;
int kind;
sb *out;
int copyifnotthere;
{ {
int src; int src;
formal_entry *ptr; formal_entry *ptr;
@ -654,12 +618,8 @@ sub_actual (start, in, t, formal_hash, kind, out, copyifnotthere)
/* Expand the body of a macro. */ /* Expand the body of a macro. */
static const char * static const char *
macro_expand_body (in, out, formals, formal_hash, locals) macro_expand_body (sb *in, sb *out, formal_entry *formals,
sb *in; struct hash_control *formal_hash, int locals)
sb *out;
formal_entry *formals;
struct hash_control *formal_hash;
int locals;
{ {
sb t; sb t;
int src = 0; int src = 0;
@ -881,11 +841,7 @@ macro_expand_body (in, out, formals, formal_hash, locals)
body. */ body. */
static const char * static const char *
macro_expand (idx, in, m, out) macro_expand (int idx, sb *in, macro_entry *m, sb *out)
int idx;
sb *in;
macro_entry *m;
sb *out;
{ {
sb t; sb t;
formal_entry *ptr; formal_entry *ptr;
@ -1073,11 +1029,8 @@ macro_expand (idx, in, m, out)
*EXPAND. Return 1 if a macro is found, 0 otherwise. */ *EXPAND. Return 1 if a macro is found, 0 otherwise. */
int int
check_macro (line, expand, error, info) check_macro (const char *line, sb *expand,
const char *line; const char **error, macro_entry **info)
sb *expand;
const char **error;
macro_entry **info;
{ {
const char *s; const char *s;
char *copy, *cs; char *copy, *cs;
@ -1127,8 +1080,7 @@ check_macro (line, expand, error, info)
/* Delete a macro. */ /* Delete a macro. */
void void
delete_macro (name) delete_macro (const char *name)
const char *name;
{ {
hash_delete (macro_hash, name); hash_delete (macro_hash, name);
} }
@ -1138,12 +1090,7 @@ delete_macro (name)
success, or an error message otherwise. */ success, or an error message otherwise. */
const char * const char *
expand_irp (irpc, idx, in, out, get_line) expand_irp (int irpc, int idx, sb *in, sb *out, int (*get_line) (sb *))
int irpc;
int idx;
sb *in;
sb *out;
int (*get_line) PARAMS ((sb *));
{ {
const char *mn; const char *mn;
sb sub; sb sub;

View File

@ -70,19 +70,14 @@ extern int macro_defined;
extern int macro_nest; extern int macro_nest;
extern int buffer_and_nest extern int buffer_and_nest (const char *, const char *, sb *, int (*) (sb *));
PARAMS ((const char *, const char *, sb *, int (*) PARAMS ((sb *))));
extern void macro_init extern void macro_init
PARAMS ((int, int, int, int (*) PARAMS ((const char *, int, sb *, int *)))); (int, int, int, int (*) (const char *, int, sb *, int *));
extern void macro_mri_mode extern void macro_mri_mode (int);
PARAMS ((int));
extern const char *define_macro extern const char *define_macro
PARAMS ((int, sb *, sb *, int (*) PARAMS ((sb *)), const char **)); (int, sb *, sb *, int (*) (sb *), const char **);
extern int check_macro extern int check_macro (const char *, sb *, const char **, macro_entry **);
PARAMS ((const char *, sb *, const char **, macro_entry **)); extern void delete_macro (const char *);
extern void delete_macro extern const char *expand_irp (int, int, sb *, sb *, int (*) (sb *));
PARAMS ((const char *));
extern const char *expand_irp
PARAMS ((int, int, sb *, sb *, int (*) PARAMS ((sb *))));
#endif #endif

View File

@ -42,10 +42,10 @@ typedef int * va_list;
#define va_end(ARGS) #define va_end(ARGS)
#endif #endif
static void identify PARAMS ((char *)); static void identify (char *);
static void as_show_where PARAMS ((void)); static void as_show_where (void);
static void as_warn_internal PARAMS ((char *, unsigned int, char *)); static void as_warn_internal (char *, unsigned int, char *);
static void as_bad_internal PARAMS ((char *, unsigned int, char *)); static void as_bad_internal (char *, unsigned int, char *);
/* Despite the rest of the comments in this file, (FIXME-SOON), /* Despite the rest of the comments in this file, (FIXME-SOON),
* here is the current scheme for error messages etc: * here is the current scheme for error messages etc:
@ -85,8 +85,7 @@ static void as_bad_internal PARAMS ((char *, unsigned int, char *));
*/ */
static void static void
identify (file) identify (char *file)
char *file;
{ {
static int identified; static int identified;
if (identified) if (identified)
@ -108,7 +107,7 @@ identify (file)
static int warning_count; static int warning_count;
int int
had_warnings () had_warnings (void)
{ {
return (warning_count); return (warning_count);
} }
@ -119,7 +118,7 @@ had_warnings ()
static int error_count; static int error_count;
int int
had_errors () had_errors (void)
{ {
return (error_count); return (error_count);
} }
@ -127,7 +126,7 @@ had_errors ()
/* Print the current location to stderr. */ /* Print the current location to stderr. */
static void static void
as_show_where () as_show_where (void)
{ {
char *file; char *file;
unsigned int line; unsigned int line;
@ -141,9 +140,8 @@ as_show_where ()
/* Like perror(3), but with more info. */ /* Like perror(3), but with more info. */
void void
as_perror (gripe, filename) as_perror (const char *gripe, /* Unpunctuated error theme. */
const char *gripe; /* Unpunctuated error theme. */ const char *filename)
const char *filename;
{ {
const char *errtxt; const char *errtxt;
@ -198,10 +196,7 @@ as_tsktsk (format, va_alist)
/* The common portion of as_warn and as_warn_where. */ /* The common portion of as_warn and as_warn_where. */
static void static void
as_warn_internal (file, line, buffer) as_warn_internal (char *file, unsigned int line, char *buffer)
char *file;
unsigned int line;
char *buffer;
{ {
++warning_count; ++warning_count;
@ -302,10 +297,7 @@ as_warn_where (file, line, format, va_alist)
/* The common portion of as_bad and as_bad_where. */ /* The common portion of as_bad and as_bad_where. */
static void static void
as_bad_internal (file, line, buffer) as_bad_internal (char *file, unsigned int line, char *buffer)
char *file;
unsigned int line;
char *buffer;
{ {
++error_count; ++error_count;
@ -442,9 +434,7 @@ as_fatal (format, va_alist)
Arguments: Filename, line number, optional function name. */ Arguments: Filename, line number, optional function name. */
void void
as_assert (file, line, fn) as_assert (const char *file, int line, const char *fn)
const char *file, *fn;
int line;
{ {
as_show_where (); as_show_where ();
fprintf (stderr, _("Internal error!\n")); fprintf (stderr, _("Internal error!\n"));
@ -461,9 +451,7 @@ as_assert (file, line, fn)
and exit without producing a core file. */ and exit without producing a core file. */
void void
as_abort (file, line, fn) as_abort (const char *file, int line, const char *fn)
const char *file, *fn;
int line;
{ {
as_show_where (); as_show_where ();
if (fn) if (fn)
@ -479,9 +467,7 @@ as_abort (file, line, fn)
/* Support routines. */ /* Support routines. */
void void
fprint_value (file, val) fprint_value (FILE *file, valueT val)
FILE *file;
valueT val;
{ {
if (sizeof (val) <= sizeof (long)) if (sizeof (val) <= sizeof (long))
{ {
@ -499,9 +485,7 @@ fprint_value (file, val)
} }
void void
sprint_value (buf, val) sprint_value (char *buf, valueT val)
char *buf;
valueT val;
{ {
if (sizeof (val) <= sizeof (long)) if (sizeof (val) <= sizeof (long))
{ {