+Sat Jan 11 21:31:10 2003 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
+
+ * com.c (ffecom_convert_narrow_, ffecom_convert_widen_,
+ pushdecl_top_level, storedecls, convert, delete_block,
+ insert_block, ffe_init, ffe_mark_addressable, poplevel,
+ ffe_print_identifier, pushdecl, pushlevel, set_block,
+ ffe_signed_or_unsigned_type, ffe_signed_type,
+ ffe_truthvalue_conversion, ffe_type_for_mode, ffe_type_for_size,
+ ffe_unsigned_type, append_include_chain, open_include_file,
+ read_filename_string, read_name_map): Convert to ISO C style function
+ definitions.
+ * parse.c (ffe_parse_file): Likewise.
+ * top.c (ffe_is_digit_string_): Likewise.
+
2003-01-09 Christian Cornelssen <ccorn@cs.tu-berlin.de>
* Make-lang.in (f77.install-common, f77.install-info,
/* Like gcc's convert(), but crashes if widening might happen. */
static tree
-ffecom_convert_narrow_ (type, expr)
- tree type, expr;
+ffecom_convert_narrow_ (tree type, tree expr)
{
register tree e = expr;
register enum tree_code code = TREE_CODE (type);
/* Like gcc's convert(), but crashes if narrowing might happen. */
static tree
-ffecom_convert_widen_ (type, expr)
- tree type, expr;
+ffecom_convert_widen_ (tree type, tree expr)
{
register tree e = expr;
register enum tree_code code = TREE_CODE (type);
/* Like pushdecl, only it places X in GLOBAL_BINDING_LEVEL, if appropriate. */
static tree
-pushdecl_top_level (x)
- tree x;
+pushdecl_top_level (tree x)
{
register tree t;
register struct f_binding_level *b = current_binding_level;
after they are modified in the light of any missing parameters. */
static tree
-storedecls (decls)
- tree decls;
+storedecls (tree decls)
{
return current_binding_level->names = decls;
}
/* Here are the public functions the GNU back end needs. */
tree
-convert (type, expr)
- tree type, expr;
+convert (tree type, tree expr)
{
register tree e = expr;
register enum tree_code code = TREE_CODE (type);
so that the block can be reinserted where appropriate. */
static void
-delete_block (block)
- tree block;
+delete_block (tree block)
{
tree t;
if (current_binding_level->blocks == block)
}
void
-insert_block (block)
- tree block;
+insert_block (tree block)
{
TREE_USED (block) = 1;
current_binding_level->blocks
#undef DEFTREECODE
static const char *
-ffe_init (filename)
- const char *filename;
+ffe_init (const char *filename)
{
/* Open input file. */
if (filename == 0 || !strcmp (filename, "-"))
}
static bool
-ffe_mark_addressable (exp)
- tree exp;
+ffe_mark_addressable (tree exp)
{
register tree x = exp;
while (1)
them into the BLOCK. */
tree
-poplevel (keep, reverse, functionbody)
- int keep;
- int reverse;
- int functionbody;
+poplevel (int keep, int reverse, int functionbody)
{
register tree link;
/* The chain of decls was accumulated in reverse order.
}
static void
-ffe_print_identifier (file, node, indent)
- FILE *file;
- tree node;
- int indent;
+ffe_print_identifier (FILE *file, tree node, int indent)
{
print_node (file, "global", IDENTIFIER_GLOBAL_VALUE (node), indent + 4);
print_node (file, "local", IDENTIFIER_LOCAL_VALUE (node), indent + 4);
to agree with what X says. */
tree
-pushdecl (x)
- tree x;
+pushdecl (tree x)
{
register tree t;
register tree name = DECL_NAME (x);
not for that of tags. */
void
-pushlevel (tag_transparent)
- int tag_transparent;
+pushlevel (int tag_transparent)
{
register struct f_binding_level *newlevel = NULL_BINDING_LEVEL;
(the one we are currently in). */
void
-set_block (block)
- register tree block;
+set_block (tree block)
{
current_binding_level->this_block = block;
current_binding_level->names = chainon (current_binding_level->names,
}
static tree
-ffe_signed_or_unsigned_type (unsignedp, type)
- int unsignedp;
- tree type;
+ffe_signed_or_unsigned_type (int unsignedp, tree type)
{
tree type2;
}
static tree
-ffe_signed_type (type)
- tree type;
+ffe_signed_type (tree type)
{
tree type1 = TYPE_MAIN_VARIANT (type);
ffeinfoKindtype kt;
The resulting type should always be `integer_type_node'. */
static tree
-ffe_truthvalue_conversion (expr)
- tree expr;
+ffe_truthvalue_conversion (tree expr)
{
if (TREE_CODE (expr) == ERROR_MARK)
return expr;
}
static tree
-ffe_type_for_mode (mode, unsignedp)
- enum machine_mode mode;
- int unsignedp;
+ffe_type_for_mode (enum machine_mode mode, int unsignedp)
{
int i;
int j;
}
static tree
-ffe_type_for_size (bits, unsignedp)
- unsigned bits;
- int unsignedp;
+ffe_type_for_size (unsigned bits, int unsignedp)
{
ffeinfoKindtype kt;
tree type_node;
}
static tree
-ffe_unsigned_type (type)
- tree type;
+ffe_unsigned_type (tree type)
{
tree type1 = TYPE_MAIN_VARIANT (type);
ffeinfoKindtype kt;
FIRST is the beginning of the chain to append, and LAST is the end. */
static void
-append_include_chain (first, last)
- struct file_name_list *first, *last;
+append_include_chain (struct file_name_list *first, struct file_name_list *last)
{
struct file_name_list *dir;
read_name_map. */
static FILE *
-open_include_file (filename, searchptr)
- char *filename;
- struct file_name_list *searchptr;
+open_include_file (char *filename, struct file_name_list *searchptr)
{
register struct file_name_map *map;
register char *from;
file. */
static char *
-read_filename_string (ch, f)
- int ch;
- FILE *f;
+read_filename_string (int ch, FILE *f)
{
char *alloc, *set;
int len;
/* Read the file name map file for DIRNAME. */
static struct file_name_map *
-read_name_map (dirname)
- const char *dirname;
+read_name_map (const char *dirname)
{
/* This structure holds a linked list of file name maps, one per
directory. */