WebSVN – tendra.SVN – Diff – /trunk/src/installers/common/dwarf/dwarf_type.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 <dwarf.h>
 #else
 #include CROSS_INCLUDE/dwarf.h>
 #endif
-#define NOT_YET(x) fprintf(stderr,"%s not yet implemented\n",x)
+#define NOT_YET(x)	fprintf(stderr, "%s not yet implemented\n", x)
-#define BEEN_PUT_OUT(x) ((x)->been_outed != NULL)
+#define BEEN_PUT_OUT(x)	((x)->been_outed != NULL)
 #define gcc_FT_long_long		0x8008
-static void out_user_attr
+static void
-    PROTO_N ( (t) )
-    PROTO_T ( diag_type t )
+out_user_attr(diag_type t)
+{
-  if (is_qualified(t))
+	if (is_qualified(t)) {
-  {
-    OUT_DWARF_ATTR(AT_mod_u_d_type);
+		OUT_DWARF_ATTR(AT_mod_u_d_type);
-    new_dwarf_blk2();
+		new_dwarf_blk2();
-    out_plain_user_attr(dequalify(t));
+		out_plain_user_attr(dequalify(t));
-    leave_dwarf_blk2();
+		leave_dwarf_blk2();
-  }
-  else
+	} else {
-  {
-    OUT_DWARF_ATTR(AT_user_def_type);
+		OUT_DWARF_ATTR(AT_user_def_type);
-    out_plain_user_attr((t->key == DIAG_TYPE_LOC) ? t->data.loc.object : t);
+		out_plain_user_attr((t->key == DIAG_TYPE_LOC) ?
+				    t->data.loc.object : t);
-  }
+	}
 }
-static void queue_up_type_out
+static void
-    PROTO_N ( (t) )
-    PROTO_T ( diag_type t )
+queue_up_type_out(diag_type t)
 {
-  if (BEEN_PUT_OUT(t))
+	if (BEEN_PUT_OUT(t)) {
-  {
-    failer("Whhops, queueing twice");
+		failer("Whhops, queueing twice");
-    return;
+		return;
-  }
+	}
-  t->been_outed = next_dwarf_type_lab();
+	t->been_outed = next_dwarf_type_lab();
-  add_type_q(t);
+	add_type_q(t);
+}
-void out_dwarf_type_attr
+void
-    PROTO_N ( (t) )
-    PROTO_T ( diag_type t )
+out_dwarf_type_attr(diag_type t)
+{
-				/* output a dwarf type as an attribute
+	/* output a dwarf type as an attribute if done once already then just
-				 if done once already then just the attr,
-				 else queue the type, then the attr */
+	 * the attr, else queue the type, then the attr */
-  if (is_fund_dwarf(t))
+	if (is_fund_dwarf(t)) {
-  {
-    out_fund_attr(t);
+		out_fund_attr(t);
-    return;
+		return;
-  }
+	}
-  {
+	{
-    diag_type b = base_type(t);
+		diag_type b = base_type(t);
-    if (!BEEN_PUT_OUT(b))
+		if (!BEEN_PUT_OUT(b)) {
-      queue_up_type_out(b);		/* this will assign the label value */
+			/* this will assign the label value */
+			queue_up_type_out(b);
+		}
-    out_user_attr(t);
+		out_user_attr(t);
-    return;
+		return;
-  }
+	}
+}
-void out_dwarf_user_type
+void
-    PROTO_N ( (t) )
-    PROTO_T ( diag_type t )
+out_dwarf_user_type(diag_type t)
 {
+	if (!BEEN_PUT_OUT(t)) {
-  if (!BEEN_PUT_OUT(t))		/* if so then no external refs */
+		/* if so then no external refs */
-  {
-    t->been_outed = next_dwarf_type_lab();
+		t->been_outed = next_dwarf_type_lab();
-  }
+	}
-  switch(t->key)
+	switch (t->key) {
-  {
-   case DIAG_TYPE_ARRAY:
+	case DIAG_TYPE_ARRAY:
-    cont_sib_chain(TAG_array_type);
+		cont_sib_chain(TAG_array_type);
-    OUT_DWARF_ATTR(AT_stride_size);
+		OUT_DWARF_ATTR(AT_stride_size);
-    out_dwarf_const_by8(t->data.array.stride);
+		out_dwarf_const_by8(t->data.array.stride);
-/*    out_dwarf_name_attr(t->data.array.name); */
+		/* out_dwarf_name_attr(t->data.array.name); */
-    {
-      OUT_DWARF_ATTR(AT_subscr_data);
+		OUT_DWARF_ATTR(AT_subscr_data);
-      new_dwarf_blk2();
+		new_dwarf_blk2();
-      dwarf1((int)FMT_FT_C_C);
+		dwarf1((int)FMT_FT_C_C);
-      OUT_DWARF_TAG(FT_signed_integer);
+		OUT_DWARF_TAG(FT_signed_integer);
-      out_dwarf_const4(t->data.array.lower_b);
+		out_dwarf_const4(t->data.array.lower_b);
+		/* FOR C this is one too big */
-      out_dwarf_const4(t->data.array.upper_b); /* FOR C this is one too big */
+		out_dwarf_const4(t->data.array.upper_b);
-      dwarf1((int)FMT_ET);
+		dwarf1((int)FMT_ET);
-      out_dwarf_type_attr(t->data.array.element_type);
+		out_dwarf_type_attr(t->data.array.element_type);
-      leave_dwarf_blk2();
+		leave_dwarf_blk2();
-    }
-    break;
+		break;
-   case DIAG_TYPE_ENUM:
+	case DIAG_TYPE_ENUM:
-    cont_sib_chain(TAG_enumeration_type);
+		cont_sib_chain(TAG_enumeration_type);
-    out_dwarf_name_attr(TDFSTRING2CHAR(t->data.t_enum.nme));
+		out_dwarf_name_attr(TDFSTRING2CHAR(t->data.t_enum.nme));
-    if (t->data.t_enum.base_type->key != DIAG_TYPE_VARIETY)
+		if (t->data.t_enum.base_type->key != DIAG_TYPE_VARIETY) {
-      failer("non integral enum type");
+			failer("non integral enum type");
+		}
-    out_dwarf_bytesize_attr(t->data.t_enum.base_type->data.var);
+		out_dwarf_bytesize_attr(t->data.t_enum.base_type->data.var);
-    OUT_DWARF_ATTR(AT_element_list);
+		OUT_DWARF_ATTR(AT_element_list);
-    new_dwarf_blk4();
+		new_dwarf_blk4();
-    {
+		{
-      int i;
+			int i;
-      enum_values * a = t->data.t_enum.values->array;
+			enum_values *a = t->data.t_enum.values->array;
-      for (i=0; i<t->data.t_enum.values->lastused; i++)
+			for (i=0; i<t->data.t_enum.values->lastused; i++) {
-      {
-	out_dwarf_const4(a[i]->val);
+				out_dwarf_const4(a[i]->val);
-	out_dwarf_string(TDFSTRING2CHAR(a[i]->nme));
+				out_dwarf_string(TDFSTRING2CHAR(a[i]->nme));
-      }
+			}
-    }
+		}
-    leave_dwarf_blk4();
+		leave_dwarf_blk4();
-    break;
+		break;
-   case DIAG_TYPE_PROC:
+	case DIAG_TYPE_PROC:
-    cont_sib_chain(TAG_subroutine_type);
+		cont_sib_chain(TAG_subroutine_type);
-    out_dwarf_type_attr(t->data.proc.result_type);
+		out_dwarf_type_attr(t->data.proc.result_type);
-    break;
+		break;
-   case DIAG_TYPE_STRUCT:
+	case DIAG_TYPE_STRUCT:
-    cont_sib_chain(TAG_structure_type);
+		cont_sib_chain(TAG_structure_type);
-    out_dwarf_name_attr(TDFSTRING2CHAR(t->data.t_struct.nme));
+		out_dwarf_name_attr(TDFSTRING2CHAR(t->data.t_struct.nme));
-    out_dwarf_bytesize_attr(t->data.t_struct.tdf_shape);
+		out_dwarf_bytesize_attr(t->data.t_struct.tdf_shape);
-    break;
+		break;
-   case DIAG_TYPE_UNION:
+	case DIAG_TYPE_UNION:
-    cont_sib_chain(TAG_union_type);
+		cont_sib_chain(TAG_union_type);
-    out_dwarf_name_attr(TDFSTRING2CHAR(t->data.t_union.nme));
+		out_dwarf_name_attr(TDFSTRING2CHAR(t->data.t_union.nme));
-    out_dwarf_bytesize_attr(t->data.t_union.tdf_shape);
+		out_dwarf_bytesize_attr(t->data.t_union.tdf_shape);
-    break;
+		break;
-   default:
+	default:
-    failer("Illegal diag type in out_dwarf_user_type");
+		failer("Illegal diag type in out_dwarf_user_type");
-  }
+	}
-				/* now we must set the dwarf type label
+	/* now we must set the dwarf type label
-				 to be the dwarf label of this block */
+	   to be the dwarf label of this block */
-  {
+	{
-    char expr_buf[100];
+		char expr_buf[100];
 #if (is80x86)
-#define DOT_SET 	".set"
+#define DOT_SET	".set"
 #else
 #if (issparc)
 #else
-error need the .set directive
+		error need the .set directive
 #endif
 #endif
 #if FS_CONCAT_STRING
 #if (is80x86)
-#define SET_F "\t"DOT_SET"\t%s , %s"
+#define SET_F	"\t"DOT_SET"\t%s , %s"
 #else
 #if (issparc)
-#define SET_F "\t%s = %s"
+#define SET_F	"\t%s = %s"
 #else
-error need set format str
+		error need set format str
 #endif
 #endif
 #else
 #if (issparc)
 /* KEEP this in step..... */
-#define SET_F "\t%s = %s"
+#define SET_F	"\t%s = %s"
 #else
 #if (is80x86)
-#define SET_F "\t.set\t %s , %s"
+#define SET_F	"\t.set\t %s , %s"
 #else
-error write this
+		error write this
+#endif
+#endif
 #endif
+#ifdef mips
+		sprintf(expr_buf, SET_F, (char *)t->been_outed,
+#else
+		sprintf(expr_buf, SET_F, (char *)&((t->been_outed)[0]),
 #endif
-#endif
-#ifdef mips
-    sprintf(expr_buf,SET_F,(char *)t->been_outed,
-#else
-    sprintf(expr_buf,SET_F,(char *)&((t->been_outed)[0]),
-#endif
-	    current_label_name());
+			current_label_name());
-    outs(expr_buf);
+		outs(expr_buf);
-    outnl();
+		outnl();
-  }
+		}
-  leave_dwarf_blk();
+		leave_dwarf_blk();
-  switch(t->key)
+		switch (t->key) {
-  {
-   case DIAG_TYPE_PROC:
+		case DIAG_TYPE_PROC: {
-    {
-      int i;
+			int i;
-      diag_type_list pars = t->data.proc.params;
+			diag_type_list pars = t->data.proc.params;
-      make_next_new_chain();
+			make_next_new_chain();
-      for (i=0; i< pars->lastused; i++)
+			for (i = 0; i< pars->lastused; i++) {
-      {
-	cont_sib_chain(TAG_formal_parameter);
+				cont_sib_chain(TAG_formal_parameter);
-	out_dwarf_type_attr(pars->array[i]);
+				out_dwarf_type_attr(pars->array[i]);
-	leave_dwarf_blk();
+				leave_dwarf_blk();
-      }
+			}
-      if (t->data.proc.opt_args)
+			if (t->data.proc.opt_args) {
-      {
-	cont_sib_chain(TAG_unspecified_parameters);
+				cont_sib_chain(TAG_unspecified_parameters);
-	leave_dwarf_blk();
+				leave_dwarf_blk();
-      }
+			}
-      end_sib_chain();
+			end_sib_chain();
-    }
+		}
-    break;
+			break;
-   case DIAG_TYPE_STRUCT:
+		case DIAG_TYPE_STRUCT: {
-    {
-      diag_field_list f = t->data.t_struct.fields;
+			diag_field_list f = t->data.t_struct.fields;
-      int i;
+			int i;
-      make_next_new_chain();
+			make_next_new_chain();
-      for ( i = f->lastused-1 ;i>=0; i--)
+			for (i = f->lastused-1 ;i>=0; i--) {
-      {
-	diag_field m = f->array[i];
+				diag_field m = f->array[i];
-	cont_sib_chain(TAG_member);
+				cont_sib_chain(TAG_member);
-	out_dwarf_name_attr(TDFSTRING2CHAR(m->field_name));
+				out_dwarf_name_attr(TDFSTRING2CHAR(m->field_name));
-	out_dwarf_type_attr(m->field_type);
+				out_dwarf_type_attr(m->field_type);
-	if (m->field_type->key == DIAG_TYPE_BITFIELD)
+				if (m->field_type->key == DIAG_TYPE_BITFIELD) {
-	{
-				/* dwarf describes bitfields wrt an anonymous
+					/* dwarf describes bitfields wrt an
+					 * anonymous object, whose size is that
-				 object, whose size is that of the base type */
+					 * of the base type */
-	  int base_type_in_bits =
+					int base_type_in_bits =
-	    shape_size(m->field_type->data.bitfield.result_type->data.var);
+					    shape_size(m->field_type->data.bitfield.result_type->data.var);
-	  int bit_size =
+					int bit_size =
-	    m->field_type->data.bitfield.no_of_bits.nat_val.small_nat;
+					    m->field_type->data.bitfield.no_of_bits.nat_val.small_nat;
-	  int bit_offset_from_base =
+					int bit_offset_from_base =
-	    (int)no(m->where);
+					    (int)no(m->where);
-	  int bit_offset_in_anon_obj =
+					int bit_offset_in_anon_obj =
-	    bit_offset_from_base % base_type_in_bits;
+					    bit_offset_from_base %
+					    base_type_in_bits;
-	  int bit_offset_to_anon_obj =
+					int bit_offset_to_anon_obj =
+					    bit_offset_from_base -
-	    bit_offset_from_base - bit_offset_in_anon_obj;
+					    bit_offset_in_anon_obj;
-	  OUT_DWARF_ATTR(AT_bit_offset);
+					OUT_DWARF_ATTR(AT_bit_offset);
-	  out_dwarf_thing((int)
+					out_dwarf_thing((int)
 #if (little_end)
-			  ((base_type_in_bits - /* count from other end  */
+					  /* count from other end  */
+					((base_type_in_bits -
-			   bit_offset_in_anon_obj) - bit_size)
+					  bit_offset_in_anon_obj) - bit_size)
 #else
-			  bit_offset_in_anon_obj
+					bit_offset_in_anon_obj
 #endif
-			  ," bits");
+					," bits");
-	  out_dwarf_bit_member_loc_attr(bit_offset_to_anon_obj);
+					out_dwarf_bit_member_loc_attr(bit_offset_to_anon_obj);
-	}
-	else
+				} else {
-	  out_dwarf_member_loc_attr(m->where);
+					out_dwarf_member_loc_attr(m->where);
+				}
-	leave_dwarf_blk();
+				leave_dwarf_blk();
-      }
+			}
-      end_sib_chain();
+			end_sib_chain();
-    }
+		}
-    break;
+			break;
-   case DIAG_TYPE_UNION:
+		case DIAG_TYPE_UNION: {
-    {
-      diag_field_list f = t->data.t_union.fields;
+			diag_field_list f = t->data.t_union.fields;
-      int i;
+			int i;
-      make_next_new_chain();
+			make_next_new_chain();
-      for ( i = f->lastused-1 ;i>=0; i--)
+			for (i = f->lastused - 1; i >= 0; i--) {
-      {
-	diag_field m = f->array[i];
+				diag_field m = f->array[i];
-	cont_sib_chain(TAG_member);
+				cont_sib_chain(TAG_member);
-	out_dwarf_name_attr(TDFSTRING2CHAR(m->field_name));
+				out_dwarf_name_attr(TDFSTRING2CHAR(m->field_name));
-	out_dwarf_type_attr(m->field_type);
+				out_dwarf_type_attr(m->field_type);
-	out_dwarf_member_loc_attr(m->where);
+				out_dwarf_member_loc_attr(m->where);
-	leave_dwarf_blk();
+				leave_dwarf_blk();
-      }
+			}
-      end_sib_chain();
+			end_sib_chain();
-    }
+		}
-    break;
+			    break;
-   default:
+		default:
-    break;
+			    break;
-  }
+		}
+}

Subversion Repositories tendra.SVN

(root)/trunk/src/installers/common/dwarf/dwarf_type.c – Rev 2 → 7