== (unsigned long int) TREE_INT_CST_LOW (DECL_SIZE (eqt)));
== (ffetargetOffset) TREE_INT_CST_LOW (DECL_SIZE (eqt)));
ffecom_transform_equiv_ (ffestorag eqst){  tree eqt;  tree eqtype;  tree init;  tree high;  bool is_init = ffestorag_is_init (eqst);  int yes;  assert (eqst != NULL);  eqt = ffestorag_hook (eqst);  if (eqt != NULL_TREE)    return;  /* Process inits.  */  if (is_init)    {      if (ffestorag_init (eqst) != NULL)	{	  init = ffecom_expr (ffestorag_init (eqst));	  if (init == error_mark_node)	    init = NULL_TREE;	/* Hopefully the back end complained! */	}      else	init = error_mark_node;    }  else if (ffe_is_init_local_zero ())    init = error_mark_node;  else    init = NULL_TREE;  ffecom_member_namelisted_ = FALSE;  ffestorag_drive (ffestorag_list_equivs (eqst),		   &ffecom_member_phase1_,		   eqst);  yes = suspend_momentary ();  high = build_int_2 (ffestorag_size (eqst), 0);  TREE_TYPE (high) = ffecom_integer_type_node;  eqtype = build_array_type (char_type_node,			     build_range_type (ffecom_integer_type_node,					       ffecom_integer_one_node,					       high));  eqt = build_decl (VAR_DECL,		    ffecom_get_invented_identifier ("__g77_equiv_%s",						    ffesymbol_text						    (ffestorag_symbol						     (eqst)),						    0),		    eqtype);  DECL_EXTERNAL (eqt) = 0;  if (is_init      || ffecom_member_namelisted_#ifdef FFECOM_sizeMAXSTACKITEM      || (ffestorag_size (eqst) > FFECOM_sizeMAXSTACKITEM)#endif      || ((ffecom_primary_entry_kind_ != FFEINFO_kindPROGRAM)	  && (ffecom_primary_entry_kind_ != FFEINFO_kindBLOCKDATA)	  && (ffestorag_is_save (eqst) || ffe_is_saveall ())))    TREE_STATIC (eqt) = 1;  else    TREE_STATIC (eqt) = 0;  TREE_PUBLIC (eqt) = 0;  DECL_CONTEXT (eqt) = current_function_decl;  if (init)    DECL_INITIAL (eqt) = error_mark_node;  else    DECL_INITIAL (eqt) = NULL_TREE;  eqt = start_decl (eqt, FALSE);  /* Make sure this shows up as a debug symbol, which is not normally     the case for invented identifiers.  */  DECL_IGNORED_P (eqt) = 0;  /* Make sure that any type can live in EQUIVALENCE and be referenced     without getting a bus error.  We could pick the most restrictive     alignment of all entities actually placed in the EQUIVALENCE, but     this seems easy enough.  */  DECL_ALIGN (eqt) = BIGGEST_ALIGNMENT;  if ((!is_init && ffe_is_init_local_zero ())      || (is_init && (ffestorag_init (eqst) == NULL)))    init = ffecom_init_zero_ (eqt);  finish_decl (eqt, init, FALSE);  if (is_init)    ffestorag_set_init (eqst, ffebld_new_any ());  assert (ffestorag_size (eqst) * BITS_PER_UNIT	  == (unsigned long int) TREE_INT_CST_LOW (DECL_SIZE (eqt)));  ffestorag_set_hook (eqst, eqt);#ifdef SOMEONE_GETS_DEBUG_SUPPORT_WORKING  ffestorag_drive (ffestorag_list_equivs (eqst),		   &ffecom_member_phase2_,		   eqst);#endif  resume_momentary (yes);}