+Fri May 14 12:31:08 1999 Alexandre Petit-Bianco <apbianco@cygnus.com>
+
+ * xref.c (xref_set_current_fp): New function, defined.
+ * xref.h (xref_set_current_fp): New function, prototyped.
+
+Fri May 14 11:57:54 1999 Alexandre Petit-Bianco <apbianco@cygnus.com>
+
+ * check-init.c (check_init): Take into account that
+ LABELED_BLOCK_STMT can be empty.
+
Thu May 13 18:30:48 1999 Alexandre Petit-Bianco <apbianco@cygnus.com>
* parse.y (java_check_regular_methods): Warning check on not
overriding methods with default access in other packages does not
apply to `<clinit>'.
(java_complete_lhs): If block body is an empty_stmt_node, replace
- it by NULL_TREE. This avoid gcc generating an irrelevant warning.
+ it by NULL_TREE. This prevents gcc from generating an irrelevant
+ warning.
Thu May 13 13:23:38 1999 Alexandre Petit-Bianco <apbianco@cygnus.com>
struct alternatives alt;
BEGIN_ALTERNATIVES (before, alt);
alt.block = exp;
- check_init (LABELED_BLOCK_BODY (exp), before);
+ if (LABELED_BLOCK_BODY (exp))
+ check_init (LABELED_BLOCK_BODY (exp), before);
done_alternative (before, &alt);
END_ALTERNATIVES (before, alt);
return;
}
#undef ARG
-#define XARG "-fxref="
- if (strncmp (p, XARG, sizeof (XARG) - 1) == 0)
- {
- if (!(flag_emit_xref = xref_flag_value (p + sizeof (XARG) - 1)))
- error ("Unkown xref format `%s'", p + sizeof (XARG) - 1);
- else
- return 1;
- }
-#undef XARG
-
if (p[0] == '-' && p[1] == 'f')
{
/* Some kind of -f option.
return xref_table [flag-1].data;
}
+void
+xref_set_current_fp (fp)
+ FILE *fp;
+{
+ xref_table [flag_emit_xref-1].fp = fp;
+}
+
/* Branch to the right xref "back-end". */
void
void expand_xref PROTO ((tree));
void xref_set_data PROTO ((int, void *));
void *xref_get_data PROTO ((int));
+void xref_set_current_fp PROTO ((FILE *));
/* flag_emit_xref range of possible values. */