+2000-02-17 Andy Vaught <andy@maxwell.la.asu.edu>
+
+ * com.c (ffecom_member_phase2_): Re-enable COMMON debug code.
+ (ffecom_finish_symbol_transform_): Likewise.
+ (ffecom_transform_common_): Call ffestorag_set_hook.
+
Wed Feb 16 11:09:38 2000 Kaveh R. Ghazi <ghazi@caip.rutgers.edu>
* Make-lang.in (g77spec.o): Depend on $(GCC_H), not gcc.h.
ffebld source);
static void ffecom_make_gfrt_ (ffecomGfrt ix);
static void ffecom_member_phase1_ (ffestorag mst, ffestorag st);
-#ifdef SOMEONE_GETS_DEBUG_SUPPORT_WORKING
static void ffecom_member_phase2_ (ffestorag mst, ffestorag st);
-#endif
static void ffecom_prepare_let_char_ (ffetargetCharacterSize dest_size,
ffebld source);
static void ffecom_push_dummy_decls_ (ffebld dumlist,
if ((ffesymbol_where (s) == FFEINFO_whereCOMMON)
&& (ffesymbol_hook (s).decl_tree != error_mark_node))
{
-#ifdef SOMEONE_GETS_DEBUG_SUPPORT_WORKING
int yes = suspend_momentary ();
/* This isn't working, at least for dbxout. The .s file looks
ffesymbol_storage (s));
resume_momentary (yes);
-#endif
}
return s;
referencing the member. */
#if FFECOM_targetCURRENT == FFECOM_targetGCC
-#ifdef SOMEONE_GETS_DEBUG_SUPPORT_WORKING
static void
ffecom_member_phase2_ (ffestorag mst, ffestorag st)
{
finish_decl (t, NULL_TREE, FALSE);
}
-#endif
#endif
/* Prepare source expression for assignment into a destination perhaps known
to be of a specific size. */
if ((cbt != NULL_TREE)
&& (!is_init
|| !DECL_EXTERNAL (cbt)))
- return;
+ {
+ if (st->hook == NULL) ffestorag_set_hook (st, cbt);
+ return;
+ }
/* Process inits. */