WebSVN – tendra.SVN – Diff – /trunk/src/installers/common/dwarf2/dw2_types.c

+/*
+ * Copyright (c) 2002-2005 The TenDRA Project <http://www.tendra.org/>.
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions are met:
+ *
+ * 1. Redistributions of source code must retain the above copyright notice,
+ *    this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright notice,
+ *    this list of conditions and the following disclaimer in the documentation
+ *    and/or other materials provided with the distribution.
+ * 3. Neither the name of The TenDRA Project nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific, prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS
+ * IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
+ * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
+ * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
+ * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
+ * EXEMPLARY OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
+ * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
+ * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
+ * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
+ * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
+ * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ *
+ * $Id$
+ */
 /*
     		 Crown Copyright (c) 1997
     This TenDRA(r) Computer Program is subject to Copyright
     owned by the United Kingdom Secretary of State for Defence
 #include "basicread.h"
 #include "szs_als.h"
 #include "tags.h"
-static void fail_unimplemented
+static void
-    PROTO_N ( (a1, a2) )
-    PROTO_T ( long a1 X long a2 )
-{
-  IGNORE fprintf (stderr, "%lx  %lx\n", a1, a2);
-  failer ("unimplemented attribute");
+fail_unimplemented(long a1, long a2)
-  return;
-}
-static dg_type needed_types = (dg_type)0;
-static char * sep =  ", ";
-ext_lab dw2_find_type_label
-    PROTO_N ( (t) )
-    PROTO_T ( dg_type t )
+{
+	IGNORE fprintf(stderr, "%lx  %lx\n", a1, a2);
+	failer("unimplemented attribute");
+	return;
+}
+static dg_type needed_types = (dg_type)0;
+static char *sep =  ", ";
+ext_lab
+dw2_find_type_label(dg_type t)
+{
-  if (!(t->outref.u.l)) {
+	if (!(t->outref.u.l)) {
-    if (t->key == DGT_TAGGED) {
+		if (t->key == DGT_TAGGED) {
-      dg_tag tg = t->data.t_tag;
+			dg_tag tg = t->data.t_tag;
-      if (tg->done || tg->needed || tg->key == DGK_NONE) {
+			if (tg->done || tg->needed || tg->key == DGK_NONE) {
-	t->outref = tg->outref;
+				t->outref = tg->outref;
-	return t->outref;
+				return t->outref;
-      }
+			}
-      if (tg->key == DGK_TYPE) {
+			if (tg->key == DGK_TYPE) {
-	dg_type ref_t = tg->p.typ;
+				dg_type ref_t = tg->p.typ;
-	t->outref = dw2_find_type_label (ref_t);
+				t->outref = dw2_find_type_label(ref_t);
-	tg->outref = t->outref;
+				tg->outref = t->outref;
-	tg->done = 1;
+				tg->done = 1;
-	return t->outref;
+				return t->outref;
-      }
+			}
-      if (tg->key == DGK_NAME) {
+			if (tg->key == DGK_NAME) {
-	dg_name ref_n = tg->p.nam;
+				dg_name ref_n = tg->p.nam;
+				if (ref_n->key == DGN_TYPE &&
-	if (ref_n->key == DGN_TYPE && ref_n->idnam.id_key == DG_ID_NONE) {
+				    ref_n->idnam.id_key == DG_ID_NONE) {
+					dg_type ref_t =
-	  dg_type ref_t = tg->p.nam->data.n_typ.raw;
+					    tg->p.nam->data.n_typ.raw;
-	  t->outref = dw2_find_type_label (ref_t);
+					t->outref = dw2_find_type_label(ref_t);
-	  tg->outref = t->outref;
+					tg->outref = t->outref;
-	  tg->done = 1;
+					tg->done = 1;
-	  return t->outref;
+					return t->outref;
+				}
+			}
+			tg->needed = 1;
+			t->outref.u.l = tg->outref.u.l = next_dwarf_label();
+			t->outref.k = tg->outref.k = LAB_D;
+		} else {
+			t->outref.u.l = next_dwarf_label();
+			t->outref.k = LAB_D;
+		}
+		t->type_queue = needed_types;
+		needed_types = t;
+	}
-      }
-      tg->needed = 1;
-      t->outref.u.l = tg->outref.u.l = next_dwarf_label();
-      t->outref.k = tg->outref.k = LAB_D;
-    }
-    else {
-      t->outref.u.l = next_dwarf_label();
-      t->outref.k = LAB_D;
-    }
-    t->type_queue = needed_types;
-    needed_types = t;
-  }
-  return t->outref;
+	return t->outref;
+}
-static void out_classmem
+static void
-    PROTO_N ( (m) )
-    PROTO_T ( dg_classmem m )
+out_classmem(dg_classmem m)
+{
-  /* within info section */
+	/* within info section */
-  if (m.tg)
+	if (m.tg) {
-    set_ext_address (m.tg);
+		set_ext_address(m.tg);
+	}
-  switch (m.cm_key) {
+	switch (m.cm_key) {
-    case DG_CM_FIELD: {
+	case DG_CM_FIELD: {
-      dg_type f = m.d.cm_f.f_typ;
+		dg_type f = m.d.cm_f.f_typ;
-      exp off = son (m.d.cm_f.f_offset);
+		exp off = son(m.d.cm_f.f_offset);
-      dg_type base = f;
+		dg_type base = f;
-      int base_sz = 1;
+		int base_sz = 1;
-      long attr1 = H_TP, attr2;
+		long attr1 = H_TP, attr2;
-      if (m.d.cm_f.fnam[0])
+		if (m.d.cm_f.fnam[0]) {
-	attr1 |= H_NM;
+			attr1 |= H_NM;
+		}
-      if (m.d.cm_f.f_pos.file)
+		if (m.d.cm_f.f_pos.file) {
-	attr1 |= H_XY;
+			attr1 |= H_XY;
+		}
-      if (name(off) == val_tag)
+		if (name(off) == val_tag) {
-	attr1 |= H_LC;
+			attr1 |= H_LC;
+		}
-      if (f->key == DGT_BITF) {
+		if (f->key == DGT_BITF) {
-	attr1 |= H_BF;
+			attr1 |= H_BF;
-	base = f->data.t_bitf.expanded;
+			base = f->data.t_bitf.expanded;
-	base_sz = shape_size (f->data.t_bitf.sha);
+			base_sz = shape_size(f->data.t_bitf.sha);
-      }
+		}
-      if (m.d.cm_f.acc)
+		if (m.d.cm_f.acc) {
-	attr1 |= H_AC;
+			attr1 |= H_AC;
+		}
-      if (m.d.cm_f.discr)
+		if (m.d.cm_f.discr) {
-	attr1 |= H_DS;
+			attr1 |= H_DS;
+		}
 #ifdef H_DX
-      if (m.d.cm_f.dflt) {
+		if (m.d.cm_f.dflt) {
-	if (m.d.cm_f.dflt->span.sp_key == SP_SPAN ||
+			if (m.d.cm_f.dflt->span.sp_key == SP_SPAN ||
+			    (m.d.cm_f.dflt->val &&
-	      (m.d.cm_f.dflt->val && dw_is_const (son(m.d.cm_f.dflt->val)) ))
+			     dw_is_const(son(m.d.cm_f.dflt->val)))) {
-	  attr1 |= H_DF;
+				attr1 |= H_DF;
-	else
+			} else {
-	  attr1 |= H_DX;
+				attr1 |= H_DX;
-      }
+			}
+		}
 #else
-      if (m.d.cm_f.dflt)
+		if (m.d.cm_f.dflt) {
-	attr1 |= H_DF;
+			attr1 |= H_DF;
+		}
 #endif
-      attr2 = dw_entry (dwe_member, attr1);
+		attr2 = dw_entry(dwe_member, attr1);
 #ifdef H_DX
-      if (attr2 & ~(H_NM|H_XY|H_AC|H_TP|H_LC|H_BF|H_DS|H_DF|H_DX))
+		if (attr2 & ~(H_NM|H_XY|H_AC|H_TP|H_LC|H_BF|H_DS|H_DF|H_DX)) {
 #else
-      if (attr2 & ~(H_NM|H_XY|H_AC|H_TP|H_LC|H_BF|H_DS|H_DF))
+		if (attr2 & ~(H_NM|H_XY|H_AC|H_TP|H_LC|H_BF|H_DS|H_DF)) {
 #endif
-	fail_unimplemented (attr1, attr2);
+			fail_unimplemented(attr1, attr2);
+		}
-      if (attr2 & H_NM)
+		if (attr2 & H_NM) {
-	dw_at_string (m.d.cm_f.fnam);
+			dw_at_string(m.d.cm_f.fnam);
+		}
-      if (attr2 & H_XY)
+		if (attr2 & H_XY) {
-	dw_at_decl (m.d.cm_f.f_pos);
+			dw_at_decl(m.d.cm_f.f_pos);
+		}
-      if (attr2 & H_AC)
+		if (attr2 & H_AC) {
-	dw_at_data (1, (long)m.d.cm_f.acc);
+			dw_at_data(1, (long)m.d.cm_f.acc);
+		}
-      if (attr2 & H_TP)
+		if (attr2 & H_TP) {
-	dw_at_ext_lab (dw2_find_type_label (base));
+			dw_at_ext_lab(dw2_find_type_label(base));
+		}
-      if (attr2 & H_LC)
+		if (attr2 & H_LC) {
-	dw_locate_offset (((no (off)) & -base_sz) >> 3);
+			dw_locate_offset(((no(off)) & -base_sz) >> 3);
+		}
-      if (attr2 & H_BF) {
+		if (attr2 & H_BF) {
 #if !little_end
-	dw_at_data (1, (long)(no (off) & (base_sz - 1)));
+			dw_at_data(1, (long)(no(off) & (base_sz - 1)));
 #else
-	dw_at_data (1, (long)(base_sz - f->data.t_bitf.bv.bits
+			dw_at_data(1, (long)(base_sz - f->data.t_bitf.bv.bits -
-				- (no (off) & (base_sz - 1))));
+					     (no(off) & (base_sz - 1))));
 #endif
-	dw_at_data (1, (long)f->data.t_bitf.bv.bits);
+			dw_at_data(1, (long)f->data.t_bitf.bv.bits);
-      }
+		}
-      if (attr2 & H_DS)
+		if (attr2 & H_DS) {
-	dw_at_flag (m.d.cm_f.discr);
+			dw_at_flag(m.d.cm_f.discr);
+		}
 #ifdef H_DX
-      if (attr2 & H_DX)
+		if (attr2 & H_DX) {
-	dw_at_flag ((m.d.cm_f.dflt && !(attr2 & H_DF)) ? 1 : 0);
+			dw_at_flag((m.d.cm_f.dflt && !(attr2 & H_DF))? 1 : 0);
+		}
 #endif
-static void out_task_sync_data
+static void
-    PROTO_N ( (td) )
-    PROTO_T ( task_data * td )
+out_ref_bound(dg_tag tg)
+{
-  /* within info section */
+	dw_at_form(DW_FORM_ref_addr);
-  int i;
+	d_outnl();
-  dg_name en = td->entries;
+	dw_at_ext_address(tg);
-  while (en) {
-    dw2_out_name (en, GLOBAL_NAME);
-    en = en->next;
-  }
-  for (i = 0; i < td->members.len; i++) {
-    out_classmem (td->members.array[i]);
-  }
-  return;
+	return;
 }
+void
-static void out_variant_part
-    PROTO_N ( (v) )
+dw_out_dim(dg_dim d)
-    PROTO_T ( dg_varpart * v )
+{
-  /* within info section */
+	/* within info section */
-  int i, j;
+	long attr1 = 0, attr2;
-  dg_variant * v_el = v->vnts.array;
+	if (d.d_key == DG_DIM_TYPE) {
-  switch (v->v_key) {
+		/* must be array dimension */
-    case DG_V_D: {
+		if ((d.d_typ->key == DGT_SUBR || d.d_typ->key == DGT_ENUM) &&
-      long l = next_dwarf_label();
+		    !(d.d_typ->outref.u.l)) {
-      IGNORE dw_entry (dwe_varpart, (long)0);
+			d.d_typ->outref.u.l = next_dwarf_label();
-      dw_at_address (l);
-      out_dwf_label (l, 1);
+			d.d_typ->outref.k = LAB_D;
-      out_classmem (v->u.d);
+			dw_out_type(d.d_typ);
-      break;
+		} else {
-    }
-    case DG_V_S: {
+			attr1 = H_TP;
-      IGNORE dw_entry (dwe_varpart, (long)0);
+			attr2 = dw_entry(dwe_typedef, attr1);
-      dw_at_ext_address (v->u.s);
+			if (attr2 != attr1) {
-      break;
+				fail_unimplemented(attr1, attr2);
-    }
+			}
-    case DG_V_T: {
-      IGNORE dw_entry (dwe_varpart_t, (long)0);
-      dw_at_ext_lab (dw2_find_type_label (v->u.t));
+			dw_at_ext_lab(dw2_find_type_label(d.d_typ));
-      break;
+		}
-    }
+		return;
-  }
+	}
-  for (i = 0; i < v->vnts.len; i++) {
-    dg_discrim * d_el = v_el[i].discr.array;
-    dg_classmem * f_el = v_el[i].fields.array;
-    if (v_el[i].discr.len == 0)
+	if (d.d_typ) {
-      IGNORE dw_entry (dwe_variant_0, (long)0);
+		attr1 |= (H_TP | H_SZ);
-    else
+	}
-    if (v_el[i].discr.len == 1 && no(d_el->lower) == no(d_el->upper)) {
-      IGNORE dw_entry (dwe_variant_1, (long)0);
+	if (!d.low_ref || d.lower.tg) {
-      dw_out_const (d_el->lower);
+		attr1 |= H_LB;
-    }
+	}
-    else {
-      long block_end = next_dwarf_label ();
+	if (!d.hi_ref || d.upper.tg) {
-      int ss = (name(sh(d_el->lower)) & 1);
+		attr1 |= (d.hi_cnt ? H_CN : H_UB);
+	}
-      IGNORE dw_entry (dwe_variant_n, (long)0);
+	attr2 = dw_entry(dwe_subr_type, attr1);
-      out16 (); out_dwf_dist_to_label (block_end); d_outnl();
+	if (attr2 & ~(H_TP|H_SZ|H_LB|H_UB|H_CN)) {
-      for (j = 0; j < v_el[i].discr.len; j++) {
+		fail_unimplemented(attr1, attr2);
-	out8 ();
+	}
-	if (no(d_el[i].lower) == no(d_el[i].upper)) {
+	if (attr2 & H_TP) {
-	  outn ((long)DW_DSC_label); outs (sep);
+		dw_at_ext_lab(dw2_find_type_label(d.d_typ));
-	  if (ss)
+	}
-	    sleb128 ((long)no(d_el[i].lower));
+	if (attr2 & H_SZ) {
-	  else
-	    uleb128 ((unsigned long)no(d_el[i].lower));
+		dw_at_udata((unsigned long)(shape_size(d.sha) >> 3));
+	}
-	else {
-	  outn ((long)DW_DSC_range); outs (sep);
-	  if (ss) {
+	if (attr2 & H_LB) {
-	    sleb128 ((long)no(d_el[i].lower));
-	    outs (sep);
+		if (d.low_ref) {
-	    sleb128 ((long)no(d_el[i].upper));
+			out_ref_bound(d.lower.tg);
-	  }
-	  else {
+		} else {
-	    uleb128 ((unsigned long)no(d_el[i].lower));
+			dw_out_const(son(d.lower.x));
-	    outs (sep);
-	    uleb128 ((unsigned long)no(d_el[i].upper));
-	  }
+		}
+	}
-	d_outnl();
-      }
-      out_dwf_label (block_end, 1);
-    }
-    for (j = 0; j < v_el[i].fields.len; j++) {
-      out_classmem (f_el[j]);
-    }
-    dw_sibling_end ();
-  }
-  dw_sibling_end ();
-  return;
-}
-static void out_ref_bound
-    PROTO_N ( (tg) )
-    PROTO_T ( dg_tag tg )
-{
-  dw_at_form (DW_FORM_ref_addr); d_outnl ();
-  dw_at_ext_address (tg);
-  return;
-}
-void dw_out_dim
-    PROTO_N ( (d) )
-    PROTO_T ( dg_dim d )
-{
-  /* within info section */
-  long attr1 = 0, attr2;
-  if (d.d_key == DG_DIM_TYPE) {		/* must be array dimension */
-    if ((d.d_typ->key == DGT_SUBR || d.d_typ->key == DGT_ENUM) &&
-		!(d.d_typ->outref.u.l)) {
-      d.d_typ->outref.u.l = next_dwarf_label();
-      d.d_typ->outref.k = LAB_D;
-      dw_out_type (d.d_typ);
-    }
-    else {
-      attr1 = H_TP;
-      attr2 = dw_entry (dwe_typedef, attr1);
-      if (attr2 != attr1)
-	fail_unimplemented (attr1, attr2);
-      dw_at_ext_lab (dw2_find_type_label (d.d_typ));
-    }
-    return;
-  }
-  if (d.d_typ)
-    attr1 |= (H_TP | H_SZ);
-  if (!d.low_ref || d.lower.tg)
-    attr1 |= H_LB;
-  if (!d.hi_ref || d.upper.tg)
-    attr1 |= (d.hi_cnt ? H_CN : H_UB);
-  attr2 = dw_entry (dwe_subr_type, attr1);
-  if (attr2 & ~(H_TP|H_SZ|H_LB|H_UB|H_CN))
-    fail_unimplemented (attr1, attr2);
-  if (attr2 & H_TP)
-    dw_at_ext_lab (dw2_find_type_label (d.d_typ));
-  if (attr2 & H_SZ)
-    dw_at_udata ((unsigned long)(shape_size (d.sha) >> 3));
-  if (attr2 & H_LB) {
+	if (attr2 & (H_UB | H_CN)) {
-    if (d.low_ref)
+		if (d.hi_ref) {
-      out_ref_bound (d.lower.tg);
+			out_ref_bound(d.upper.tg);
-    else
+		} else {
-      dw_out_const (son(d.lower.x));
+			dw_out_const(son(d.upper.x));
-  }
+		}
-  if (attr2 & (H_UB | H_CN)) {
-    if (d.hi_ref)
-      out_ref_bound (d.upper.tg);
-    else
-      dw_out_const (son(d.upper.x));
-  }
+	}
-  return;
+	return;
+}
+	}
-	case DG_HPPTR_T: {
-	  dwe = dwe_hpptr_t;
-	  flg = 1;
-	  break;
-	}
-	case DG_REF_T: {
-	  dwe = dwe_ref_type;
-	  break;
-	}
-	case DG_PACK_T: {
-	  dwe = dwe_pack_type;
-	  break;
-	}
-	case DG_CONST_T: {
-	  dwe = dwe_cnst_type;
-	  break;
-	}
-	case DG_VOL_T: {
-	  dwe = dwe_vol_type;
-	  break;
-	}
-	case DG_ALIAS_T: {
-	  dwe = dwe_als_type;
-	  break;
-	}
-	case DG_CLWID_T: {
-	  dwe = dwe_clwd_type;
-	  break;
-	}
-	case DG_LIM_T: {
-	  dwe = dwe_lim_type;
-	  break;
-	}
-	case N_DG_QUAL_TYPES:
-	  break;	/* dummy */
-      }
-      IGNORE dw_entry (dwe, (long)0);
-      dw_at_ext_lab (dw2_find_type_label (t->data.t_qual.typ));
-      if (flg)
-	dw_at_flag (flg);
-      break;
-    }
-    case DGT_ARRAY: {
-      exp stride_e = son(t->data.t_arr.stride);
-      dg_dim * el = t->data.t_arr.dims.array;
-      int stride_known = (name(stride_e) == val_tag);
-      int size_known = stride_known;
-      unsigned long tot_size = (unsigned long) no(stride_e);
-      int i;
-      for (i = 0; i < t->data.t_arr.dims.len && size_known; i++) {
-	if (el[i].count >= 0)
-	  tot_size *= (unsigned long) el[i].count;
-	else
-	  size_known = 0;
-      }
-      IGNORE dw_entry ((size_known ? dwe_arr_type : dwe_arr_dyn), (long)0);
-      dw_at_ext_lab (dw2_find_type_label (t->data.t_arr.elem_type));
-      if (stride_known)
-	dw_out_const (stride_e);
-      else
-	dw2_offset_exp (stride_e);
-      dw_at_data (1, (long)(t->data.t_arr.rowm ? DW_ORD_row_major : DW_ORD_col_major));
-      if (size_known)
-	dw_at_udata ((tot_size + 7) >> 3);
-      for (i = 0; i < t->data.t_arr.dims.len; i++)
-	dw_out_dim (el[i]);
-      dw_sibling_end ();
-      break;
-    }
-    case DGT_SUBR: {
-      dw_out_dim (t->data.t_subr);
-      break;
-    }
-    case DGT_ENUM: {
-      long attr1 = H_SZ, attr2;
-      int i;
-      dg_enum * el = t->data.t_enum.values.array;
-      if (t->mor && t->mor->refspec)
-	attr1 |= H_SP;
-      if (t->mor && t->mor->isspec)
-	attr1 |= H_DC;
-      if (t->data.t_enum.tnam[0])
-	attr1 |= H_NM;
-      if (t->data.t_enum.tpos.file)
-	attr1 |= H_XY;
-      if (t->mor && t->mor->isnew)
-	attr1 |= H_NW;
-      attr2 = dw_entry (dwe_enum_type, attr1);
-      if (attr2 & ~(H_SP|H_DC|H_NM|H_XY|H_SZ|H_NW))
-	fail_unimplemented (attr1, attr2);
-      if (attr2 & H_SP)
-	dw_at_ext_lab (dw2_find_type_label (t->mor->refspec->p.typ));
-      if (attr2 & H_DC)
-	dw_at_flag ((t->mor && t->mor->isspec ? 1 : 0));
-      if (attr2 & H_NM)
-	dw_at_string (t->data.t_enum.tnam);
-      if (attr2 & H_XY)
-	dw_at_decl (t->data.t_enum.tpos);
-      if (attr2 & H_SZ)
-	dw_at_udata ((unsigned long)(shape_size (sh (son(el[0].value))) >> 3));
-      if (attr2 & H_NW)
-	dw_at_flag ((t->mor && t->mor->isnew ? 1 : 0));
-      for (i = 0; i < t->data.t_enum.values.len; i++) {
-	if (el[i].tg)
-	  set_ext_address (el[i].tg);
-	if (el[i].is_chn) {
-	  IGNORE dw_entry (dwe_enum_char, (long)0);
-	  out8(); uleb128 ((unsigned long)el[i].chn); d_outnl();
-	}
-	else {
-	  IGNORE dw_entry (dwe_enum_tor, (long)0);
-	  dw_at_string (el[i].enam);
-	}
-	dw_out_const (son(el[i].value));
-      }
-      dw_sibling_end ();
-      break;
-    }
-    case DGT_STRUCT:
-    case DGT_CLASS:
-    case DGT_A_TASK:
-    case DGT_A_SYNCH: {
-      abbrev_entry dwe;
-      int ada_derived = 0;
-      char* nam;
-      char* gnam = "";
-      long attr1 = 0, attr2;
-      dg_instantn * generic = (dg_instantn *)0;
-      if (t->data.t_struct.is_union)
-	dwe = dwe_union_t;
-      else
-      switch (t->key) {
 	case DGT_STRUCT:
-	  dwe = dwe_struct_t;
-	  break;
 	case DGT_CLASS:
-	  dwe = dwe_class_t;
-	  break;
 	case DGT_A_TASK:
-	  dwe = dwe_task_t;
+	case DGT_A_SYNCH: {
-	  break;
+		abbrev_entry dwe;
-	default:
-	  dwe = dwe_synch_t;
+		int ada_derived = 0;
-	  break;
+		char* nam;
-      }
-      if (t->data.t_struct.idnam.id_key == DG_ID_INST) {
-	generic = t->data.t_struct.idnam.idd.instance;
-	if (generic->nam.id_key == DG_ID_NONE ||
-		generic->nam.id_key == DG_ID_ANON)
-	  nam = generic->spec.idd.nam;
-        else {
+		char* gnam = "";
-	  nam = generic->nam.idd.nam;
+		long attr1 = 0, attr2;
-	  gnam = generic->spec.idd.nam;
+		dg_instantn * generic = (dg_instantn *)0;
-	}
-      }
-      else
-	nam = t->data.t_struct.idnam.idd.nam;
+		if (t->data.t_struct.is_union) {
-      if (t->data.t_struct.tpos.file)
-	attr1 |= H_XY;
-      if (t->mor && t->mor->refspec)
-	attr1 |= H_SP;
+			dwe = dwe_union_t;
-      else {
+		} else {
-	if (nam[0])
+			switch (t->key) {
-	  attr1 |= H_NM;
+			case DGT_STRUCT:
-	if (gnam[0])
-	  attr1 |= H_GN;
+				dwe = dwe_struct_t;
-      }
+				break;
-      if (t->mor && t->mor->isspec)
-	attr1 |= H_DC;
+			case DGT_CLASS:
-      if (t->mor && t->mor->issep)
+				dwe = dwe_class_t;
-	attr1 |= H_SE;
+				break;
-      if (t->data.t_struct.sha)
+			case DGT_A_TASK:
-	attr1 |= H_SZ;
+				dwe = dwe_task_t;
-      if (t->mor && t->mor->elabn)
-	attr1 |= H_EL;
+				break;
-      if (t->mor && t->mor->isnew)
-	attr1 |= H_NW;
+			default:
-      if (t->mor && t->mor->aderiv) {
-	attr1 |= H_AD;
+				dwe = dwe_synch_t;
-	ada_derived = 1;
+				break;
-      }
+			}
-      if (t->key == DGT_CLASS) {
+		if (t->data.t_struct.idnam.id_key == DG_ID_INST) {
-	if (t->data.t_struct.u.cd->vt_s)
+			generic = t->data.t_struct.idnam.idd.instance;
-	  attr1 |= H_VS;
-	if (t->data.t_struct.u.cd->vt_d)
+			if (generic->nam.id_key == DG_ID_NONE ||
-	  attr1 |= H_VD;
+			    generic->nam.id_key == DG_ID_ANON) {
-	if (t->data.t_struct.u.cd->rtti_s)
+				nam = generic->spec.idd.nam;
-	  attr1 |= H_RS;
+			} else {
-	if (t->data.t_struct.u.cd->rtti_d)
+				nam = generic->nam.idd.nam;
-	  attr1 |= H_RD;
+				gnam = generic->spec.idd.nam;
-      }
+			}
-      else
+		} else {
-      if (t->key != DGT_STRUCT) {
-	if (t->data.t_struct.u.td->cb)
-	  attr1 |= H_CB;
-	if (t->data.t_struct.u.td->id)
+			nam = t->data.t_struct.idnam.idd.nam;
-	  attr1 |= H_ID;
-      }
+		}
-      attr2 = dw_entry (dwe, attr1);
-      if (attr2 & ~(H_SP|H_DC|H_NM|H_XY|H_SZ|H_NW|H_EXTN))
-	fail_unimplemented (attr1, attr2);
-      if (attr2 & H_SP)
-	dw_at_ext_lab (dw2_find_type_label (t->mor->refspec->p.typ));
-      if (attr2 & H_DC)
-	dw_at_flag ((t->mor && t->mor->isspec ? 1 : 0));
-      if (attr2 & H_NM)
-	dw_at_string (nam);
-      if (attr2 & H_XY)
-	dw_at_decl (t->data.t_struct.tpos);
-      if (attr2 & H_SZ)
-	dw_at_udata ((unsigned long)(shape_size (t->data.t_struct.sha) >> 3));
-      if (attr2 & H_NW)
-	dw_at_flag ((t->mor && t->mor->isnew ? 1 : 0));
-      if (attr2 & H_EXTN) {
+		if (t->data.t_struct.tpos.file) {
-	long block_end = next_dwarf_label ();
-	out16 (); out_dwf_dist_to_label (block_end); d_outnl();
-	attr1 &= ~attr2;
+			attr1 |= H_XY;
-	if (attr1 & H_NW) {
-	  set_attribute (DW_AT_DD_newtype, DW_FORM_flag);
-	  dw_at_flag ((t->mor && t->mor->isnew ? 1 : ada_derived));
-	}
-	if (attr1 & H_AD) {
-	  set_attribute (DW_AT_DD_ada_derived, DW_FORM_flag);
-	  dw_at_flag (ada_derived);
-	}
+		}
-	if (attr1 & H_SE) {
-	  set_attribute (DW_AT_DD_ada_derived, DW_FORM_flag);
-	  dw_at_flag ((t->mor && t->mor->issep ? 1 : 0));
+		if (t->mor && t->mor->refspec) {
-	}
-	switch (t->key) {
-	  case DGT_STRUCT: {
-	    fail_unimplemented (attr1, attr1);
-	    break;
-	  }
-	  case DGT_CLASS: {
-	    if (attr1 & ~(H_NW|H_VS|H_VD|H_RS|H_RD|H_EL|H_GN|H_AD))
-	      fail_unimplemented (attr1, attr1);
-	    if (attr1 & H_VS) {
-	      set_attribute (DW_AT_DD_vtable_static, DW_FORM_ref_addr);
-	      dw_at_ext_address (t->data.t_struct.u.cd->vt_s);
-	    }
-	    if (attr1 & H_VD) {
-	      set_attribute (DW_AT_DD_vtable_dynamic, DW_FORM_ref_addr);
-	      dw_at_ext_address (t->data.t_struct.u.cd->vt_d);
-	    }
-	    if (attr1 & H_RS) {
+			attr1 |= H_SP;
-	      set_attribute (DW_AT_DD_rtti_static, DW_FORM_ref_addr);
-	      dw_at_ext_address (t->data.t_struct.u.cd->rtti_s);
-	    }
-	    if (attr1 & H_RD) {
-	      set_attribute (DW_AT_DD_rtti_dynamic, DW_FORM_ref_addr);
-	      dw_at_ext_address (t->data.t_struct.u.cd->rtti_d);
-	    }
-	    break;
+		} else {
-	  }
-	  case DGT_A_TASK: {
-	    if (attr1 & ~(H_NW|H_ID|H_CB|H_EL|H_GN|H_SE))
-	      fail_unimplemented (attr1, attr1);
-	    if (attr1 & H_ID) {
+			if (nam[0]) {
-	      set_attribute (DW_AT_DD_task_id, DW_FORM_ref_addr);
-	      dw_at_ext_address (t->data.t_struct.u.td->id);
-	    }
-	    if (attr1 & H_CB) {
+				attr1 |= H_NM;
-	      set_attribute (DW_AT_DD_task_control_block, DW_FORM_ref_addr);
-	      dw_at_ext_address (t->data.t_struct.u.td->cb);
-	    }
-	    break;
-	  }
+			}
-	  default: {
+			if (gnam[0]) {
-	    if (attr1 & ~(H_NW|H_CB|H_EL|H_GN|H_SE))
-	      fail_unimplemented (attr1, attr1);
-	    if (attr1 & H_CB) {
+				attr1 |= H_GN;
-	      set_attribute (DW_AT_DD_so_control_block, DW_FORM_ref_addr);
-	      dw_at_ext_address (t->data.t_struct.u.td->cb);
-	    }
-	    break;
-	  }
+			}
-	}
+		}
-	if (attr1 & H_EL) {
-	  set_attribute (DW_AT_DD_elaboration, DW_FORM_ref_addr);
-	  dw_at_ext_address (t->mor->elabn);
+		if (t->mor && t->mor->isspec) {
-	}
-	if (attr1 & H_GN) {
+			attr1 |= H_DC;
-	  set_attribute (DW_AT_DD_generic_name, DW_FORM_string);
-	  dw_at_string (gnam);
-	}
+		}
-      }
-      if (generic)
-	dw2_out_generic (generic->params);
-      switch (t->key) {
+		if (t->mor && t->mor->issep) {
-	case DGT_STRUCT: {
-	  int i;
+			attr1 |= H_SE;
-	  dg_classmem * el = t->data.t_struct.u.fields.array;
-	  for (i = 0; i < t->data.t_struct.u.fields.len; i++)
-	    out_classmem (el[i]);
-	  break;
-	}
+		}
-	case DGT_CLASS: {
-	  out_class_data (t->data.t_struct.u.cd);
+		if (t->data.t_struct.sha) {
-	  break;
+			attr1 |= H_SZ;
-	}
+		}
-	default: {
-	  out_task_sync_data (t->data.t_struct.u.td);
+		if (t->mor && t->mor->elabn) {
-	  break;
+			attr1 |= H_EL;
-	}
+		}
-      }
-      if (t->data.t_struct.vpart)
-	out_variant_part (t->data.t_struct.vpart);
-      dw_sibling_end ();
-      break;
-    }
-    case DGT_PMEM: {
-      IGNORE dw_entry (dwe_ptrmem_t, (long)0);
-      dw_at_ext_address (t->data.t_pmem.pclass);
-      dw_at_ext_lab (dw2_find_type_label (t->data.t_pmem.memtyp));
-      dw_at_udata ((unsigned long)(shape_size (t->data.t_pmem.sha) >> 3));
-      break;
-    }
-    case DGT_CONS: {
-      abbrev_entry dwe;
-      long attr1 = (H_TP | H_SZ), attr2 = 0;
-      if (t->data.t_cons.c_key == DG_SET_T)
-	dwe = dwe_set_t;
-      else
-	dwe = dwe_file_t;
-      if (t->mor && t->mor->refspec)
-	attr1 |= H_SP;
-      if (t->mor && t->mor->isspec)
+		if (t->mor && t->mor->isnew) {
-	attr1 |= H_DC;
+			attr1 |= H_NW;
-      if (t->data.t_enum.tnam[0])
-      attr2 = dw_entry (dwe, attr1);
-      if (attr2 & ~(H_SP|H_DC|H_TP|H_SZ))
-	fail_unimplemented (attr1, attr2);
-      if (attr2 & H_SP)
-	dw_at_ext_lab (dw2_find_type_label (t->mor->refspec->p.typ));
-      if (attr2 & H_DC)
-	dw_at_flag ((t->mor && t->mor->isspec ? 1 : 0));
-      if (attr2 & H_TP)
-	dw_at_ext_lab (dw2_find_type_label (t->data.t_cons.typ));
-      if (attr2 & H_SZ)
-	dw_at_udata ((unsigned long)(shape_size (t->data.t_cons.sha) >> 3));
-      break;
-    }
-    case DGT_PROC: {
-      int i;
-      dg_param * el = t->data.t_proc.params.array;
-      dg_type res_t = t->data.t_proc.res_type;
-      if (res_t) {
-	IGNORE dw_entry (dwe_proc_type, (long)0);
-	dw_at_ext_lab (dw2_find_type_label (res_t));
-      }
-      else
-	IGNORE dw_entry (dwe_procv_t, (long)0);
-      for (i = 0; i < t->data.t_proc.params.len; i++) {
-	IGNORE dw_entry (dwe_formal, (long)0);
-	dw_at_ext_lab (dw2_find_type_label (el[i].p_typ));
-      }
-      if (t->data.t_proc.prps & f_var_callers)
-	IGNORE dw_entry (dwe_opt_par, (long)0);
-      dw_sibling_end ();
-      break;
-    }
-    case DGT_BITF: {
-      failer ("bitfields shouldn't occur here");
-      break;
-    }
+		}
-    case DGT_FIXED: {
-      long attr1 = 0, attr2;
-      if (t->data.t_adanum.delta)
+		if (t->mor && t->mor->aderiv) {
-	attr1 |= H_DF;
+			attr1 |= H_AD;
-      if (t->data.t_adanum.digits)
-	attr1 |= H_DS;
+			ada_derived = 1;
-      attr2 = dw_entry (dwe_fixpt_t, attr1);
-      if (attr2 & ~(H_DF|H_DS))
-	fail_unimplemented (attr1, attr2);
-      dw_at_ext_lab (dw2_find_type_label (t->data.t_adanum.rept));
-      dw_out_const (son(t->data.t_adanum.small));
-      if (attr2 & H_DF)
-	dw_out_const (son(t->data.t_adanum.delta));
-      if (attr2 & H_DS)
-	dw_out_const (son(t->data.t_adanum.digits));
-      break;
-    }
-    case DGT_FLDIG: {
-      IGNORE dw_entry (dwe_fldg_t, (long)0);
-      dw_at_ext_lab (dw2_find_type_label (t->data.t_adanum.rept));
-      dw_out_const (son(t->data.t_adanum.digits));
-      break;
-    }
-    case DGT_MOD: {
-      IGNORE dw_entry (dwe_modular_t, (long)0);
-      dw_at_ext_lab (dw2_find_type_label (t->data.t_adanum.rept));
-      dw_out_const (son(t->data.t_adanum.digits));
-      break;
-    }
-    case DGT_STRING: {
-      exp l_e = son(t->data.t_string.length);	/* other fields ignored */
-      if (name(l_e) == val_tag) {
-	IGNORE dw_entry (dwe_stringc_t, (long)0);
-	dw_at_udata ((unsigned long)no(l_e));
-      }
-      else {
-	IGNORE dw_entry (dwe_string_t, (long)0);
-	dw2_locate_exp (l_e, 0, 0);
-	dw_at_udata ((unsigned long)(shape_size (sh(l_e)) >> 3));
-      }
-      break;
-    }
+		}
-    case DGT_UNKNOWN: {
+		if (t->key == DGT_CLASS) {
+			if (t->data.t_struct.u.cd->vt_s) {
+				attr1 |= H_VS;
+			}
+			if (t->data.t_struct.u.cd->vt_d) {
+				attr1 |= H_VD;
+			}
-      IGNORE dw_entry (dwe_unknown_t, (long)0);
+			if (t->data.t_struct.u.cd->rtti_s) {
-      break;
+				attr1 |= H_RS;
+			}
+			if (t->data.t_struct.u.cd->rtti_d) {
+				attr1 |= H_RD;
+			}
+		} else if (t->key != DGT_STRUCT) {
+			if (t->data.t_struct.u.td->cb) {
+				attr1 |= H_CB;
+			}
+			if (t->data.t_struct.u.td->id) {
+				attr1 |= H_ID;
-    }
+			}
+		}
+		attr2 = dw_entry(dwe, attr1);
+		if (attr2 & ~(H_SP|H_DC|H_NM|H_XY|H_SZ|H_NW|H_EXTN)) {
+			fail_unimplemented(attr1, attr2);
+		}
+		if (attr2 & H_SP) {
+			dw_at_ext_lab(dw2_find_type_label(t->mor->refspec->p.typ));
+		}
+		if (attr2 & H_DC) {
+			dw_at_flag((t->mor && t->mor->isspec ? 1 : 0));
+		}
+		if (attr2 & H_NM) {
+			dw_at_string(nam);
+		}
+		if (attr2 & H_XY) {
+			dw_at_decl(t->data.t_struct.tpos);
+		}
+		if (attr2 & H_SZ) {
+			dw_at_udata((unsigned long)(shape_size(t->data.t_struct.sha) >> 3));
+		}
+		if (attr2 & H_NW) {
+			dw_at_flag((t->mor && t->mor->isnew ? 1 : 0));
+		}
+		if (attr2 & H_EXTN) {
+			long block_end = next_dwarf_label();
+			out16();
+			out_dwf_dist_to_label(block_end);
+			d_outnl();
+			attr1 &= ~attr2;
+			if (attr1 & H_NW) {
+				set_attribute(DW_AT_DD_newtype, DW_FORM_flag);
+				dw_at_flag((t->mor &&
+					    t->mor->isnew ? 1 : ada_derived));
+			}
+			if (attr1 & H_AD) {
+				set_attribute(DW_AT_DD_ada_derived,
+					      DW_FORM_flag);
+				dw_at_flag(ada_derived);
+			}
+			if (attr1 & H_SE) {
+				set_attribute(DW_AT_DD_ada_derived,
+					      DW_FORM_flag);
+				dw_at_flag((t->mor && t->mor->issep ? 1 : 0));
+			}
+			switch (t->key) {
+			case DGT_STRUCT:
+				fail_unimplemented(attr1, attr1);
+				break;
+			case DGT_CLASS:
+				if (attr1 & ~(H_NW|H_VS|H_VD|H_RS|H_RD|H_EL|H_GN|H_AD)) {
+					fail_unimplemented(attr1, attr1);
+				}
+				if (attr1 & H_VS) {
+					set_attribute(DW_AT_DD_vtable_static,
+						      DW_FORM_ref_addr);
+					dw_at_ext_address(t->data.t_struct.u.cd->vt_s);
+				}
+				if (attr1 & H_VD) {
+					set_attribute(DW_AT_DD_vtable_dynamic,
+						      DW_FORM_ref_addr);
+					dw_at_ext_address(t->data.t_struct.u.cd->vt_d);
+				}
+				if (attr1 & H_RS) {
+					set_attribute(DW_AT_DD_rtti_static,
+						      DW_FORM_ref_addr);
+					dw_at_ext_address(t->data.t_struct.u.cd->rtti_s);
+				}
+				if (attr1 & H_RD) {
+					set_attribute(DW_AT_DD_rtti_dynamic,
+						      DW_FORM_ref_addr);
+					dw_at_ext_address(t->data.t_struct.u.cd->rtti_d);
+				}
+				break;
+			case DGT_A_TASK:
+				if (attr1 & ~(H_NW|H_ID|H_CB|H_EL|H_GN|H_SE)) {
+					fail_unimplemented(attr1, attr1);
+				}
+				if (attr1 & H_ID) {
+					set_attribute(DW_AT_DD_task_id,
+						      DW_FORM_ref_addr);
+					dw_at_ext_address(t->data.t_struct.u.td->id);
+				}
+				if (attr1 & H_CB) {
+					set_attribute(DW_AT_DD_task_control_block, DW_FORM_ref_addr);
+					dw_at_ext_address(t->data.t_struct.u.td->cb);
+				}
+				break;
-    default:
+			default:
+				if (attr1 & ~(H_NW|H_CB|H_EL|H_GN|H_SE)) {
+					fail_unimplemented(attr1, attr1);
+				}
+				if (attr1 & H_CB) {
+					set_attribute(DW_AT_DD_so_control_block,
+						      DW_FORM_ref_addr);
+					dw_at_ext_address(t->data.t_struct.u.td->cb);
+				}
+				break;
+			}
+			if (attr1 & H_EL) {
+				set_attribute(DW_AT_DD_elaboration,
+					      DW_FORM_ref_addr);
+				dw_at_ext_address(t->mor->elabn);
+			}
+			if (attr1 & H_GN) {
+				set_attribute(DW_AT_DD_generic_name,
+					      DW_FORM_string);
+				dw_at_string(gnam);
+			}
+		}
+		if (generic) {
+			dw2_out_generic(generic->params);
+		}
+		switch (t->key) {
+		case DGT_STRUCT: {
+			int i;
+			dg_classmem *el = t->data.t_struct.u.fields.array;
+			for (i = 0; i < t->data.t_struct.u.fields.len; i++) {
+				out_classmem(el[i]);
+			}
+			break;
+		}
+		case DGT_CLASS:
+			out_class_data(t->data.t_struct.u.cd);
+			break;
+		default:
+			out_task_sync_data(t->data.t_struct.u.td);
+			break;
+		}
+		if (t->data.t_struct.vpart) {
+			out_variant_part(t->data.t_struct.vpart);
+		}
+		dw_sibling_end();
+		break;
+	}
+	case DGT_PMEM:
+		IGNORE dw_entry(dwe_ptrmem_t, (long)0);
+		dw_at_ext_address(t->data.t_pmem.pclass);
+		dw_at_ext_lab(dw2_find_type_label(t->data.t_pmem.memtyp));
+		dw_at_udata((unsigned long)(shape_size(t->data.t_pmem.sha) >> 3));
+		break;
+	case DGT_CONS: {
+		abbrev_entry dwe;
+		long attr1 = (H_TP | H_SZ), attr2 = 0;
+		if (t->data.t_cons.c_key == DG_SET_T) {
+			dwe = dwe_set_t;
+		} else {
+			dwe = dwe_file_t;
+		}
+		if (t->mor && t->mor->refspec) {
+			attr1 |= H_SP;
+		}
+		if (t->mor && t->mor->isspec) {
+			attr1 |= H_DC;
+		}
+		if (t->data.t_enum.tnam[0]) {
+			attr2 = dw_entry(dwe, attr1);
+		}
+		if (attr2 & ~(H_SP|H_DC|H_TP|H_SZ)) {
+			fail_unimplemented(attr1, attr2);
+		}
+		if (attr2 & H_SP) {
+			dw_at_ext_lab(dw2_find_type_label(t->mor->refspec->p.typ));
+		}
+		if (attr2 & H_DC) {
+			dw_at_flag((t->mor && t->mor->isspec ? 1 : 0));
+		}
+		if (attr2 & H_TP) {
+			dw_at_ext_lab(dw2_find_type_label(t->data.t_cons.typ));
+		}
+		if (attr2 & H_SZ) {
+			dw_at_udata((unsigned long)(shape_size(t->data.t_cons.sha) >> 3));
+		}
+		break;
+	}
+	case DGT_PROC: {
+		int i;
+		dg_param *el = t->data.t_proc.params.array;
+		dg_type res_t = t->data.t_proc.res_type;
+		if (res_t) {
+			IGNORE dw_entry(dwe_proc_type, (long)0);
+			dw_at_ext_lab(dw2_find_type_label(res_t));
+		} else {
+			IGNORE dw_entry(dwe_procv_t, (long)0);
+		}
+		for (i = 0; i < t->data.t_proc.params.len; i++) {
+			IGNORE dw_entry(dwe_formal, (long)0);
+			dw_at_ext_lab(dw2_find_type_label(el[i].p_typ));
+		}
+		if (t->data.t_proc.prps & f_var_callers)
+			IGNORE dw_entry(dwe_opt_par, (long)0);
+		dw_sibling_end();
+		break;
+	}
+	case DGT_BITF:
+		failer("bitfields shouldn't occur here");
+		break;
+	case DGT_FIXED: {
+		long attr1 = 0, attr2;
+		if (t->data.t_adanum.delta) {
+			attr1 |= H_DF;
+		}
+		if (t->data.t_adanum.digits) {
+			attr1 |= H_DS;
+		}
+		attr2 = dw_entry(dwe_fixpt_t, attr1);
+		if (attr2 & ~(H_DF|H_DS)) {
+			fail_unimplemented(attr1, attr2);
+		}
+		dw_at_ext_lab(dw2_find_type_label(t->data.t_adanum.rept));
+		dw_out_const(son(t->data.t_adanum.small));
+		if (attr2 & H_DF) {
+			dw_out_const(son(t->data.t_adanum.delta));
+		}
+		if (attr2 & H_DS) {
+			dw_out_const(son(t->data.t_adanum.digits));
+		}
+		break;
+	}
+	case DGT_FLDIG:
+		IGNORE dw_entry(dwe_fldg_t, (long)0);
+		dw_at_ext_lab(dw2_find_type_label(t->data.t_adanum.rept));
+		dw_out_const(son(t->data.t_adanum.digits));
+		break;
+	case DGT_MOD:
+		IGNORE dw_entry(dwe_modular_t, (long)0);
+		dw_at_ext_lab(dw2_find_type_label(t->data.t_adanum.rept));
+		dw_out_const(son(t->data.t_adanum.digits));
+		break;
+	case DGT_STRING: {
+		/* other fields ignored */
+		exp l_e = son(t->data.t_string.length);
+		if (name(l_e) == val_tag) {
+			IGNORE dw_entry(dwe_stringc_t, (long)0);
+			dw_at_udata((unsigned long)no(l_e));
+		} else {
+			IGNORE dw_entry(dwe_string_t, (long)0);
+			dw2_locate_exp(l_e, 0, 0);
+			dw_at_udata((unsigned long)(shape_size(sh(l_e)) >> 3));
+		}
+		break;
+	}
+	case DGT_UNKNOWN: {
+		IGNORE dw_entry(dwe_unknown_t, (long)0);
+		break;
+	}
+	default:
-      failer ("illegal type");
+		failer("illegal type");
-  }
+	}
-  return;
+	return;
+}
+void
-void dw2_out_all_types
+dw2_out_all_types(void)
-    PROTO_Z ()
+{
-  while (needed_types) {
+	while (needed_types) {
-    dg_type dt = needed_types;
+		dg_type dt = needed_types;
-    needed_types = needed_types->type_queue;
+		needed_types = needed_types->type_queue;
-    if (dt->key != DGT_TAGGED || !dt->data.t_tag->done)
+		if (dt->key != DGT_TAGGED || !dt->data.t_tag->done) {
-      dw_out_type (dt);
+			dw_out_type(dt);
-  }
+		}
+	}
-  return;
+	return;
+}

Subversion Repositories tendra.SVN

(root)/trunk/src/installers/common/dwarf2/dw2_types.c – Rev 2 → 7