Whitespace/comment cleanup. Use PARAMS in tc-vax.c.

Make various routines return null pointer instead of empty string for
success indication.
This commit is contained in:
Ken Raeburn 1993-09-28 04:47:32 +00:00
parent 32940b9fe3
commit 43029a8f84
6 changed files with 27 additions and 12 deletions

View file

@ -1,3 +1,18 @@
Mon Sep 27 15:21:55 1993 Ken Raeburn (raeburn@cambridge.cygnus.com)
* config/atof-vax.c (md_atof): Return null on success instead of
empty string.
* config/atof-tahoe.c (md_atof): Ditto.
* read.c (float_cons): Expect a null pointer for success, not an
empty string.
* hash.c (hash_insert, hash_jam, hash_grow): Return null pointer
on success, instead of empty string. All callers changed.
* config/tc-vax.c: Use PARAMS in declarations.
(vip_op): Use NULL instead of empty string for success in error
and warning fields.
Sun Sep 26 23:45:29 1993 Ken Raeburn (raeburn@cambridge.cygnus.com)
* expr.c (expr) [DIFF_EXPR_OK]: Permit subtraction of two symbols

View file

@ -365,7 +365,7 @@ flonum_gen2tahoe (format_letter, f, words)
* Address of where to return size of literal (in chars).
*
* Out: Input_line_pointer -> of next char after floating number.
* Error message, or "".
* Error message, or 0.
* Floating point literal.
* Number of chars we used for the literal.
*/
@ -425,7 +425,7 @@ md_atof (what_statement_type, literalP, sizeP)
};
*sizeP = number_of_chars;
return (kind_of_float ? "" : "Bad call to md_atof()");
} /* md_atof() */
return kind_of_float ? 0 : "Bad call to md_atof()";
}
/* atof_tahoe.c */

View file

@ -1319,7 +1319,7 @@ tag_insert (name, symbolP)
{
register const char *error_string;
if (*(error_string = hash_jam (tag_hash, name, (char *) symbolP)))
if ((error_string = hash_jam (tag_hash, name, (char *) symbolP)))
{
as_fatal ("Inserting \"%s\" into structure table failed: %s",
name, error_string);

View file

@ -332,7 +332,7 @@ md_begin ()
}
retval = hash_insert (op_hash, name, (PTR) &machine_opcodes[i]);
if (retval != NULL && *retval != '\0')
if (retval != NULL)
{
fprintf (stderr, "internal error: can't hash `%s': %s\n",
machine_opcodes[i].name, retval);

View file

@ -201,7 +201,7 @@ md_begin ()
retval = hash_insert (op_hash, name, &m88k_opcodes[i]);
if (retval != NULL && *retval != '\0')
if (retval != NULL)
as_fatal ("Can't hash instruction '%s':%s",
m88k_opcodes[i].name, retval);

View file

@ -346,16 +346,16 @@ const relax_typeS
#undef WB
/* End relax stuff */
static struct hash_control *op_hash = NULL; /* handle of the OPCODE hash table
NULL means any use before md_begin() will
crash */
/* Handle of the OPCODE hash table. NULL means any use before
md_begin() will crash. */
static struct hash_control *op_hash;
/* Init function. Build the hash table. */
void
md_begin ()
{
struct tot *tP;
char *errorval = "";
char *errorval = 0;
int synthetic_too = 1; /* If 0, just use real opcodes. */
if ((op_hash = hash_new ()))
@ -376,9 +376,9 @@ md_begin ()
{
errorval = "Virtual memory exceeded";
}
if (*errorval)
if (errorval)
as_fatal (errorval);
} /* md_begin */
}
void
md_end ()