WebSVN – tendra.SVN – Diff – /branches/tendra5/src/installers/common/diag/dg_types.h

+/*
+ * 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
     acting through the Defence Evaluation and Research Agency
     (DERA).  It is made available to Recipients with a
     royalty-free licence for its use, reproduction, transfer
     to other parties and amendment for any purpose not excluding
     product development provided that any such use et cetera
     shall be deemed to be acceptance of the following conditions:-
         (1) Its Recipients shall ensure that this Notice is
         reproduced upon any copies or amended versions of it;
         (2) Any amended version of it shall be clearly marked to
         show both the nature of and the organisation responsible
         for the relevant amendment or amendments;
         (3) Its onward transfer from a recipient to another
         party shall be deemed to be that party's acceptance of
         these conditions;
         (4) DERA gives no warranty or assurance as to its
         quality or suitability for any purpose and DERA accepts
         no liability whatsoever in relation to any use to which
         it may be put.
 */
 /**********************************************************************
 $Author: pwe $
 $Date: 1998/03/11 11:03:31 $
 $Revision: 1.2 $
 $Log: dg_types.h,v $
  * Revision 1.2  1998/03/11  11:03:31  pwe
  * DWARF optimisation info
  *
  * Revision 1.1.1.1  1998/01/17  15:55:46  release
  * First version to be checked into rolling release.
+ *
  * Revision 1.8  1998/01/11  18:44:58  pwe
  * consistent new/old diags
 #include "dg_first.h"
 typedef dg_info dg;
-#define nildiag (dg_info)0
+#define nildiag	(dg_info)0
-typedef struct dg_tag_t * dg_tag;
+typedef struct dg_tag_t *dg_tag;
-typedef struct dg_comp_t * dg_compilation;
+typedef struct dg_comp_t *dg_compilation;
 typedef dg_name dg_name_list;
 typedef dg dg_list;
 typedef dg_tag dg_tag_option;
 typedef dg_type dg_type_option;
 typedef dg_name dg_name_option;
 typedef dg_filename dg_filename_option;
-typedef struct
+typedef struct {
-{
-  dg_name_list		list;
+	dg_name_list	list;
-  dg_tag		tg;
+	dg_tag		tg;
 } dg_namelist;
-typedef struct
+typedef struct {
-{
-  int			len;
+	int		len;
-  dg_type *		array;
+	dg_type		*array;
 } dg_type_list;
 typedef dg_type_list dg_type_list_option;
-typedef struct
+typedef struct {
-{
-  int			len;
+	int		len;
-  dg_tag *		array;
+	dg_tag		*array;
 } dg_tag_list;
-typedef struct
+typedef struct {
-{
-  int			len;
+	int		len;
-  char **		array;
+	char		**array;
 } string_list;
-struct file_t
+struct file_t {
-{
-  long			file_dat;
+	long		file_dat;
-  char *		file_host;
+	char 		*file_host;
-  char *		file_path;
+	char 		*file_path;
-  char *		file_name;
+	char 		*file_name;
-  struct file_t *	another;
+	struct file_t	*another;
-  int			index;
+	int		index;
 };
-typedef enum
+typedef enum {
-{
-  SP_NULL = 0,
+	SP_NULL = 0,
-  SP_SHORT,
+	SP_SHORT,
-  SP_SPAN,
+	SP_SPAN,
-  SP_FILE,
+	SP_FILE,
-  SP_GLOB
+	SP_GLOB
 } dg_sourcepos_key;
-typedef struct
+typedef struct {
-{
-  dg_sourcepos_key	sp_key;
+	dg_sourcepos_key	sp_key;
-  dg_filename		file;
+	dg_filename		file;
-  dg_filename		to_file;
+	dg_filename		to_file;
-  long			from_line;
+	long			from_line;
-  long			to_line;
+	long			to_line;
-  short			from_column;
+	short			from_column;
-  short			to_column;
+	short			to_column;
 } dg_sourcepos;
-typedef struct
+typedef struct {
-{
-  dg_filename		file;
+	dg_filename	file;
-  long			line;
+	long		line;
-  short			column;
+	short		column;
 } short_sourcepos;
 typedef dg_sourcepos dg_sourcepos_option;
-typedef struct dg_dflt
+typedef struct dg_dflt {
-{
-  exp			val;
+	exp		val;
-  dg_sourcepos		span;
+	dg_sourcepos	span;
-  long			lab;
+	long		lab;
-  struct dg_dflt *	next;
+	struct dg_dflt	*next;
 } dg_default;
-typedef dg_default *	dg_default_option;
+typedef dg_default *dg_default_option;
-typedef struct dg_con
+typedef struct dg_con {
-{
-  dg_tag		refmem;
+	dg_tag		refmem;
-  int			is_val;
+	int		is_val;
-  union {
+	union {
-    dg_type		typ;
+		dg_type	typ;
-    exp			val;
+		exp	val;
-  } u;
+	} u;
-  struct dg_con *	next;
+	struct dg_con *next;
-} * dg_constraint;
+} *dg_constraint;
 typedef dg_constraint	dg_constraint_list;
 typedef dg_constraint	dg_constraint_list_option;
-typedef enum
+typedef enum {
-{
-  DG_ACC_NONE = 0,
+	DG_ACC_NONE = 0,
-  DG_ACC_PUB,
+	DG_ACC_PUB,
-  DG_ACC_PROT,
+	DG_ACC_PROT,
-  DG_ACC_PRIV,
+	DG_ACC_PRIV,
-  DG_ACC_LOC
+	DG_ACC_LOC
 } dg_accessibility;
 typedef dg_accessibility dg_accessibility_option;
-typedef enum
+typedef enum {
-{
-  DG_VIRT_NONE = 0,
+	DG_VIRT_NONE = 0,
-  DG_VIRT_VIRT,
+	DG_VIRT_VIRT,
-  DG_VIRT_PURE
+	DG_VIRT_PURE
 } dg_virtuality;
 typedef dg_virtuality dg_virtuality_option;
-typedef enum
+typedef enum {
-{
-  DG_ID_NONE = 0,
+	DG_ID_NONE = 0,
-  DG_ID_SRC,
+	DG_ID_SRC,
-  DG_ID_EXT,
+	DG_ID_EXT,
-  DG_ID_ANON,
+	DG_ID_ANON,
-  DG_ID_ARTFL,
+	DG_ID_ARTFL,
-  DG_ID_INST
+	DG_ID_INST
 } dg_idname_key;
-typedef struct
+typedef struct {
-{
-  dg_idname_key		id_key;
+	dg_idname_key	id_key;
-  union
+	union {
-  {
-    char *		nam;
+		char			*nam;
-    struct dg_inst_t *	instance;
+		struct dg_inst_t	*instance;
-  } idd;
+	} idd;
 } dg_idname;
 typedef dg_idname dg_idname_option;
-typedef struct dg_inst_t
+typedef struct dg_inst_t {
-{
-  dg_idname		nam;
+	dg_idname	nam;
-  dg_idname		spec;
+	dg_idname	spec;
-  short_sourcepos	whence;
+	short_sourcepos	whence;
-  dg_name_list		params;
+	dg_name_list	params;
 } dg_instantn;
-typedef union
+typedef union {
-{
-  dg_tag	tg;
+	dg_tag	tg;
-  exp		x;
+	exp	x;
 } tg_or_exp;
-typedef struct
+typedef struct {
-{
-  int		is_ref;
+	int		is_ref;
-  tg_or_exp	u;
+	tg_or_exp	u;
-  shape		sha;
+	shape		sha;
 } dg_bound;
-typedef enum
+typedef enum {
-{
-  DG_DIM_NONE,
+	DG_DIM_NONE,
-  DG_DIM_TYPE,
+	DG_DIM_TYPE,
-  DG_DIM_BOUNDS
+	DG_DIM_BOUNDS
 } dg_dim_key;
-typedef struct
+typedef struct {
-{
-  int			d_key	: 8;
+	int		d_key:8;
-  int			low_ref	: 1;
+	int		low_ref:1;
-  int			hi_ref	: 1;
+	int		hi_ref:1;
-  int			hi_cnt	: 1;
+	int		hi_cnt:1;
-  long			count;
+	long		count;
-  dg_type		d_typ;
+	dg_type		d_typ;
-  shape			sha;
+	shape		sha;
-  tg_or_exp		lower;
+	tg_or_exp	lower;
-  tg_or_exp		upper;
+	tg_or_exp	upper;
-  dg_tag		tg;
+	dg_tag		tg;
 } dg_dim;
 typedef dg_dim dg_dim_option;
-typedef struct
+typedef struct {
-{
-  int			len;
+	int	len;
-  dg_dim *		array;
+	dg_dim	*array;
 } dg_dim_list;
-typedef struct
+typedef struct {
-{
-  char *		enam;
+	char		*enam;
-  short_sourcepos	pos;
+	short_sourcepos	pos;
-  exp			value;
+	exp		value;
-  int			is_chn	: 1;
+	int		is_chn:1;
-  int			chn	: 8;
+	int		chn:8;
-  dg_tag		tg;
+	dg_tag		tg;
 } dg_enum;
-typedef struct
+typedef struct {
-{
-  int			len;
+	int	len;
-  dg_enum *		array;
+	dg_enum	*array;
 } dg_enum_list;
-typedef enum
+typedef enum {
-{
-  DG_CM_FIELD,
+	DG_CM_FIELD,
-  DG_CM_FN,
+	DG_CM_FN,
-  DG_CM_INDIRECT,
+	DG_CM_INDIRECT,
-  DG_CM_STAT
+	DG_CM_STAT
 } dg_cm_key;
-typedef struct
+typedef struct {
-{
-  dg_cm_key		cm_key;
+	dg_cm_key	cm_key;
-  union
+	union {
-  {
-    struct
+		struct {
-    {
-      char *		fnam;
+			char		*fnam;
-      short_sourcepos	f_pos;
+			short_sourcepos	f_pos;
-      dg_type		f_typ;
+			dg_type		f_typ;
-      exp		f_offset;
+			exp		f_offset;
-      struct dg_dflt *	dflt;
+			struct dg_dflt	*dflt;
-      int		acc	: 4;
+			int		acc:4;
-      int		discr	: 1;
+			int		discr:1;
-    } cm_f;
+		} cm_f;
-    struct
+		struct {
-    {
-      dg_name		fn;
+			dg_name		fn;
-      exp		slot;
+			exp		slot;
-    } cm_fn;
+		} cm_fn;
-    struct
+		struct {
-    {
-      char *		nam;
+			char		*nam;
-      short_sourcepos	pos;
+			short_sourcepos	pos;
-      dg_type		typ;
+			dg_type		typ;
-      exp		ind_loc;
+			exp		ind_loc;
-    } cm_ind;
+		} cm_ind;
-    dg_name		cm_stat;
+		dg_name		cm_stat;
-  } d;
+	} d;
-  dg_tag		tg;
+	dg_tag	tg;
 } dg_classmem;
-typedef struct
+typedef struct {
-{
-  int			len;
+	int		len;
-  dg_classmem *		array;
+	dg_classmem	*array;
 } dg_classmem_list;
-typedef struct
+typedef struct {
-{
-  exp			lower;
+	exp	lower;
-  exp			upper;
+	exp	upper;
 } dg_discrim;
-typedef struct
+typedef struct {
-{
-  int			len;
+	int		len;
-  dg_discrim *		array;
+	dg_discrim	*array;
 } dg_discrim_list;
-typedef struct
+typedef struct {
-{
-  dg_discrim_list	discr;
+	dg_discrim_list		discr;
-  dg_classmem_list	fields;
+	dg_classmem_list	fields;
 } dg_variant;
-typedef struct
+typedef struct {
-{
-  int			len;
+	int		len;
-  dg_variant *		array;
+	dg_variant	*array;
 } dg_variant_list;
-typedef enum
+typedef enum {
-{
-  DG_V_D,
+	DG_V_D,
-  DG_V_S,
+	DG_V_S,
-  DG_V_T
+	DG_V_T
 } dg_v_key;
-typedef struct
+typedef struct {
-{
-  dg_v_key		v_key;
+	dg_v_key		v_key;
-  union
+	union {
-  {
-    dg_classmem		d;
+		dg_classmem	d;
-    dg_tag		s;
+		dg_tag		s;
-    dg_type		t;
+		dg_type		t;
-  } u;
+	} u;
-  dg_variant_list	vnts;
+	dg_variant_list	vnts;
 } dg_varpart;
-typedef dg_varpart * dg_varpart_option;
+typedef dg_varpart *dg_varpart_option;
-typedef enum
+typedef enum {
-{
-  DG_NO_MODE = 0,
+	DG_NO_MODE = 0,
-  DG_IN_MODE,
+	DG_IN_MODE,
-  DG_OUT_MODE,
+	DG_OUT_MODE,
-  DG_INOUT_MODE
+	DG_INOUT_MODE
 } dg_param_mode;
 typedef dg_param_mode dg_param_mode_option;
-typedef struct
+typedef struct {
-{
-  char *		pnam;
+	char		*pnam;
-  short_sourcepos	ppos;
+	short_sourcepos	ppos;
-  dg_param_mode		pmode;
+	dg_param_mode	pmode;
-  dg_type		p_typ;
+	dg_type		p_typ;
-  dg_default *		p_dflt;
+	dg_default	*p_dflt;
 } dg_param;
-typedef struct
+typedef struct {
-{
-  int			len;
+	int		len;
-  dg_param *		array;
+	dg_param	*array;
 } dg_param_list;
-typedef struct
+typedef struct {
-{
-  dg_tag		base;
+	dg_tag		base;
-  short_sourcepos	pos;
+	short_sourcepos	pos;
-  exp			location;
+	exp		location;
-  int			acc	: 8;
+	int		acc:8;
-  int			virt	: 8;
+	int		virt:8;
 } dg_class_base;
-typedef struct
+typedef struct {
-{
-  int			len;
+	int		len;
-  dg_class_base *	array;
+	dg_class_base	*array;
 } dg_class_base_list;
-typedef struct
+typedef struct {
-{
-  dg_class_base_list	inherits;
+	dg_class_base_list	inherits;
-  dg_classmem_list	members;
+	dg_classmem_list	members;
-  dg_tag_list		friends;
+	dg_tag_list		friends;
-  dg_tag		vt_s;
+	dg_tag			vt_s;
-  dg_tag		vt_d;
+	dg_tag			vt_d;
-  dg_tag		rtti_s;
+	dg_tag			rtti_s;
-  dg_tag		rtti_d;
+	dg_tag			rtti_d;
 } class_data;
-typedef struct
+typedef struct {
-{
-  dg_name_list		entries;
+	dg_name_list		entries;
-  dg_tag		id;
+	dg_tag			id;
-  dg_tag		cb;
+	dg_tag			cb;
-  dg_classmem_list	members;
+	dg_classmem_list	members;
 } task_data;			/* task or synchronised type */
-typedef union
+typedef union {
-{
-    long	l;
+	long	l;
-    char *	s;
+	char	*s;
 } lab_union;
-typedef enum
+typedef enum {
-{
-  NO_LAB = 0,
+	NO_LAB = 0,
-  LAB_STR,
+	LAB_STR,
-  LAB_CODE,
+	LAB_CODE,
-  LAB_D
+	LAB_D
 } dg_lab_key;
-typedef struct
+typedef struct {
-{
-  lab_union		u;
+	lab_union	u;
-  int			k;
+	int		k;
 } ext_lab;
-typedef enum
+typedef enum {
-{
-  NO_WH = 0,
+	NO_WH = 0,
-  WH_STR,
+	WH_STR,
-  WH_CODELAB,
+	WH_CODELAB,
-  WH_REG,
+	WH_REG,
-  WH_REGOFF
+	WH_REGOFF
 } dg_where_key;
-typedef struct
+typedef struct {
-{
-  lab_union		u;
+	lab_union	u;
-  long			o;
+	long		o;
-  dg_where_key		k;
+	dg_where_key	k;
 } dg_where;
-typedef enum
+typedef enum {
-{
-  DGT_TAGGED,
+	DGT_TAGGED,
-  DGT_BASIC,
+	DGT_BASIC,
-  DGT_QUAL,	/* ptr, ref and qual */
+	DGT_QUAL,	/* ptr, ref and qual */
-  DGT_ARRAY,
+	DGT_ARRAY,
-  DGT_SUBR,
+	DGT_SUBR,
-  DGT_ENUM,
+	DGT_ENUM,
-  DGT_STRUCT,	/* includes union */
+	DGT_STRUCT,	/* includes union */
-  DGT_CLASS,
+	DGT_CLASS,
-  DGT_A_TASK,
+	DGT_A_TASK,
-  DGT_A_SYNCH,
+	DGT_A_SYNCH,
-  DGT_PMEM,
+	DGT_PMEM,
-  DGT_CONS,	/* set and file */
+	DGT_CONS,	/* set and file */
-  DGT_PROC,
+	DGT_PROC,
-  DGT_BITF,
+	DGT_BITF,
-  DGT_FIXED,
+	DGT_FIXED,
-  DGT_FLDIG,
+	DGT_FLDIG,
-  DGT_MOD,
+	DGT_MOD,
-  DGT_STRING,
+	DGT_STRING,
-  DGT_UNKNOWN
+	DGT_UNKNOWN
 } dg_type_key;
-typedef enum
+typedef enum {
-{
-  DG_ADR_T,
+	DG_ADR_T,
-  DG_BOOL_T,
+	DG_BOOL_T,
-  DG_CHAR_T,
+	DG_CHAR_T,
-  DG_INT_T,
+	DG_INT_T,
-  DG_FLOAT_T
+	DG_FLOAT_T
 } dg_basic_type_key;
-typedef enum
+typedef enum {
-{
-  DG_PTR_T = 0,
+	DG_PTR_T = 0,
-  DG_HPPTR_T,
+	DG_HPPTR_T,
-  DG_REF_T,
+	DG_REF_T,
-  DG_PACK_T,
+	DG_PACK_T,
-  DG_CONST_T,
+	DG_CONST_T,
-  DG_VOL_T,
+	DG_VOL_T,
-  DG_ALIAS_T,
+	DG_ALIAS_T,
-  DG_CLWID_T,
+	DG_CLWID_T,
-  DG_LIM_T,
+	DG_LIM_T,
-  N_DG_QUAL_TYPES
+	N_DG_QUAL_TYPES
 } dg_qual_type_key;
 typedef dg_qual_type_key dg_qualifier;
-typedef enum
+typedef enum {
-{
-  DG_SET_T,
+	DG_SET_T,
-  DG_FILE_T
+	DG_FILE_T
 } dg_cons_type_key;
-struct dg_type_t
+struct dg_type_t {
-{
-  dg_type_key		key;
+	dg_type_key	key;
-  ext_lab		outref;
+	ext_lab		outref;
-  union
+	union {
-  {
-    dg_tag		t_tag;
+		dg_tag	t_tag;
-    struct
+		struct {
-    {
-      dg_basic_type_key	b_key;
+			dg_basic_type_key	b_key;
-      char *		tnam;
+			char			*tnam;
-      shape		b_sh;
+			shape			b_sh;
-    } t_bas;
+		} t_bas;
-    struct
+		struct {
-    {
-      dg_qual_type_key	q_key;
+			dg_qual_type_key	q_key;
-      dg_type		typ;
+			dg_type			typ;
+			dg_type			another;
-      dg_type		another; /* list q_keys to avoid repeat */
+			/* list q_keys to avoid repeat */
-    } t_qual;
+		} t_qual;
-    struct
+		struct {
-    {
-      dg_type		elem_type;
+			dg_type			elem_type;
-      exp		stride;
+			exp			stride;
-      bool		rowm;
+			bool			rowm;
-      dg_dim_list	dims;
+			dg_dim_list		dims;
-    } t_arr;
+		} t_arr;
-    dg_dim		t_subr;
+		dg_dim	t_subr;
-    struct
+		struct {
-    {
-      char *		tnam;
+			char			*tnam;
-      short_sourcepos	tpos;
+			short_sourcepos		tpos;
-      dg_enum_list	values;
+			dg_enum_list		values;
-      shape		sha;
+			shape			sha;
-    } t_enum;
+		} t_enum;
-    struct
+		struct {
-    {
-      dg_idname		idnam;
+			dg_idname		idnam;
-      short_sourcepos	tpos;
+			short_sourcepos		tpos;
-      bool		is_union;
+			bool			is_union;
-      shape		sha;
+			shape			sha;
-      union
+			union {
-      {
-	dg_classmem_list  fields;
+				dg_classmem_list	fields;
-	class_data *	cd;
+				class_data		*cd;
-	task_data *	td;
+				task_data		*td;
-      } u;
+			} u;
-      dg_varpart_option	vpart;
+			dg_varpart_option	vpart;
-    } t_struct;
+		} t_struct;
-    struct
+		struct {
-    {
-      dg_tag		pclass;
+			dg_tag			pclass;
-      dg_type		memtyp;
+			dg_type			memtyp;
-      shape		sha;
+			shape			sha;
-    } t_pmem;
+		} t_pmem;
-    struct
+		struct {
-    {
-      dg_cons_type_key	c_key;
+			dg_cons_type_key	c_key;
-      dg_type		typ;
+			dg_type			typ;
-      shape		sha;
+			shape			sha;
-    } t_cons;
+		} t_cons;
-    struct
+		struct {
-    {
-      dg_param_list	params;
+			dg_param_list		params;
-      dg_type		res_type;
+			dg_type			res_type;
-      procprops		prps;
+			procprops		prps;
-      unsigned int	lang	: 16;
+			unsigned int		lang:16;
-      unsigned int	ccv	: 8;
+			unsigned int		ccv:8;
-      int		knowpro	: 1;
+			int			knowpro:1;
-      int		yespro	: 1;
+			int			yespro:1;
-    } t_proc;
+		} t_proc;
-    struct
+		struct {
-    {
-      dg_type		expanded;
+			dg_type			expanded;
-      shape		sha;
+			shape			sha;
-      bitfield_variety	bv;
+			bitfield_variety	bv;
+			dg_type			another;
-      dg_type		another; /* list all bitfields to avoid repeat */
+			/* list all bitfields to avoid repeat */
-    } t_bitf;
+		} t_bitf;
-    struct
+		struct {
-    {
-      dg_type		rept;
+			dg_type			rept;
-      exp		small;
+			exp			small;
-      exp		delta;
+			exp			delta;
+			exp			digits;
-      exp		digits;	/* or size of modular type */
+			/* or size of modular type */
-    } t_adanum;
+		} t_adanum;
-    struct
+		struct {
-    {
-      dg_tag		ct;
+			dg_tag			ct;
-      exp		lb;
+			exp			lb;
-      exp		length;
+			exp			length;
-    } t_string;
+		} t_string;
-  } data;
+	} data;
-  struct dg_more_t *	mor;
+	struct dg_more_t	*mor;
-  dg_type		type_queue;
+	dg_type			type_queue;
 };
-typedef enum
+typedef enum {
-{
-  DGN_OBJECT,
+	DGN_OBJECT,
-  DGN_PROC,
+	DGN_PROC,
-  DGN_MODULE,
+	DGN_MODULE,
-  DGN_NSP,
+	DGN_NSP,
-  DGN_SUBUNIT,
+	DGN_SUBUNIT,
-  DGN_IMPORT,
+	DGN_IMPORT,
-  DGN_TYPE,
+	DGN_TYPE,
-  DGN_ENTRY
+	DGN_ENTRY
 } dg_name_key;
-struct dg_name_t
+struct dg_name_t {
-{
-  dg_name_key		key;
+	dg_name_key	key;
-  dg_idname		idnam;
+	dg_idname	idnam;
-  short_sourcepos	whence;
+	short_sourcepos	whence;
-  union
+	union {
-  {
-    struct
+		struct {
-    {
-      dg_type		typ;
+			dg_type		typ;
-      exp		obtain_val;
+			exp		obtain_val;
-      dg_param *	p;
+			dg_param	*p;
-    } n_obj;
+		} n_obj;
-    struct
+		struct {
-    {
-      dg_type		typ;
+			dg_type		typ;
-      exp		obtain_val;
+			exp		obtain_val;
-      dg_info		params;		/* DGA_PARAMS */
+			dg_info		params;		/* DGA_PARAMS */
-    } n_proc;
+		} n_proc;
-    struct
+		struct {
-    {
-      dg_name_list	members;
+			dg_name_list	members;
-      exp		init;
+			exp		init;
-    } n_mod;
+		} n_mod;
-    struct
+		struct {
-    {
-      dg_tag		parent;
+			dg_tag		parent;
-      dg_name		sub;
+			dg_name		sub;
-      int		acc	: 8;
+			int		acc:8;
-      int		child	: 1;
+			int		child:1;
-      int		split	: 1;
+			int		split:1;
-    } n_sub;
+		} n_sub;
-    struct
+		struct {
-    {
-      dg_tag		import;
+			dg_tag		import;
-      int		ik;
+			int		ik;
-      dg_type		i_typ;
+			dg_type		i_typ;
-    } n_imp;
+		} n_imp;
-    struct
+		struct {
-    {
-      dg_type		raw;
+			dg_type		raw;
-      dg_type		named;
+			dg_type		named;
-      dg_constraint	constraints;
+			dg_constraint	constraints;
-    } n_typ;
+		} n_typ;
-  } data;
+	} data;
-  struct dg_more_t *	mor;
+	struct dg_more_t *mor;
-  dg_name		next;
+	dg_name		next;
 };
-typedef struct dg_more_t
+typedef struct dg_more_t {
-{
-  dg_tag		this_tag;
+	dg_tag		this_tag;
-  dg_tag		inline_ref;
+	dg_tag		inline_ref;
-  dg_tag		refspec;
+	dg_tag		refspec;
-  dg_tag		elabn;
+	dg_tag		elabn;
-  dg_type_list		exptns;		/* proc_name */
+	dg_type_list	exptns;		/* proc_name */
-  short_sourcepos	end_pos;	/* proc_name */
+	short_sourcepos	end_pos;	/* proc_name */
-  dg_dim *		en_family;	/* proc_name */
+	dg_dim		*en_family;	/* proc_name */
-  exp			vslot;		/* proc_name */
+	exp		vslot;		/* proc_name */
-  exp			repn;
+	exp		repn;
-  int			acc	: 4;
+	int		acc:4;
-  int			virt	: 4;	/* proc_name */
+	int		virt:4;		/* proc_name */
-  int			isinline : 1;	/* proc_name */
+	int		isinline:1;	/* proc_name */
-  int			prognm	: 1;	/* proc_name */
+	int		prognm:1;	/* proc_name */
-  int			isconst	: 1;	/* obj_name */
+	int		isconst:1;	/* obj_name */
-  int			isspec	: 1;
+	int		isspec:1;
-  int			issep	: 1;
+	int		issep:1;
-  int			isnew	: 1;	/* types */
+	int		isnew:1;	/* types */
-  int			aderiv	: 1;	/* types */
+	int		aderiv:1;	/* types */
-} * dg_more_name;
+} *dg_more_name;
-typedef struct ret_t
+typedef struct ret_t {
-{
-  long			lab;
+	long		lab;
-  long			over;
+	long		over;
-  struct ret_t *	next;
+	struct ret_t	*next;
 } retrec;
-typedef struct ob_s
+typedef struct ob_s {
-{
-  dg_tag		tg;
+	dg_tag		tg;
-  int			ass;
+	int		ass;
-  struct ob_s *		next;
+	struct ob_s	*next;
 } objset;
-typedef enum	/* These are optimisation kinds */
+/* These are optimisation kinds */
-{
+typedef enum {
-  DGD_NONE = 0,
+	DGD_NONE = 0,
-  DGD_DEAD,		/* 1 OpK_Unreachable */
+	DGD_DEAD,	/* 1 OpK_Unreachable */
-  DGD_REM,		/* 2 OpK_Copy_Propagation */
+	DGD_REM,	/* 2 OpK_Copy_Propagation */
-  DGD_RDND,		/* 3 OpK_Redundant - no side effect */
+	DGD_RDND,	/* 3 OpK_Redundant - no side effect */
-  DGD_CNST,		/* 4 OpK_Const_Eval */
+	DGD_CNST,	/* 4 OpK_Const_Eval */
-  DGD_MOVD,		/* 5 OpK_Structural */
+	DGD_MOVD,	/* 5 OpK_Structural */
-  DGD_EXTRACT		/* 6 OpK_Loop_Const */
+	DGD_EXTRACT	/* 6 OpK_Loop_Const */
 			/* 7 OpK_Loop_Invariant assignments */
 			/* 8 OpK_Index_Reduction */
 			/* 9 OpK_Loop_Unroll */
 } dg_detch_key;
-typedef struct dgt_s
+typedef struct dgt_s {
-{
-  dg_detch_key		why;
+	dg_detch_key	why;
-  dg_info		info;
+	dg_info		info;
-  dg_tag		tg;
+	dg_tag		tg;
-  struct dgt_s *	next;
+	struct dgt_s	*next;
-  struct dgt_s *	sub;
+	struct dgt_s	*sub;
 } detch_info;
-typedef enum
+typedef enum {
-{
-  DGR_SEL,
+	DGR_SEL,
-  DGR_ACC,
+	DGR_ACC,
-  DGR_RTS,
+	DGR_RTS,
-  DGR_ALT,
+	DGR_ALT,
-  DGR_SGD,
+	DGR_SGD,
-  DGR_TRIG,
+	DGR_TRIG,
-  DGR_ABTL,
+	DGR_ABTL,
-  DGR_REQUE
+	DGR_REQUE
 } dg_rvs_key;
 };
-typedef enum
+typedef enum {
-{
-  DGK_NONE = 0,
+	DGK_NONE = 0,
-  DGK_TYPE,
+	DGK_TYPE,
-  DGK_NAME,
+	DGK_NAME,
-  DGK_INFO,
+	DGK_INFO,
-  DGK_COMP,
+	DGK_COMP,
-  DGK_CLASSMEM,
+	DGK_CLASSMEM,
-  DGK_DIM,
+	DGK_DIM,
-  DGK_ENUM,
+	DGK_ENUM,
-  DGK_NAMELIST
+	DGK_NAMELIST
 } dg_tag_key;
-typedef struct dg_tag_t
+typedef struct dg_tag_t {
-{
-  union
+	union
-  {
+	{
-    dg_type		typ;
+		dg_type		typ;
-    dg_name		nam;
+		dg_name		nam;
-    dg_info		info;
+		dg_info		info;
-    dg_compilation	comp;
+		dg_compilation	comp;
-    dg_name_list *	nl;
+		dg_name_list	*nl;
-  } p;
+	} p;
-  ext_lab		outref;
+	ext_lab			outref;
-  long			abstract_lab;
+	long			abstract_lab;
-  int			key	: 8;
+	int			key:8;
-  int			done	: 1;
+	int			done:1;
-  int			needed	: 1;
+	int			needed:1;
-  int			any_inl	: 1;
+	int			any_inl:1;
-  dg_tag		copy;
+	dg_tag			copy;
 #if 0
-  exp			e;
+	exp			e;
 #endif
 } dgtag_struct;
 typedef string_list dg_idname_list;
-typedef enum
+typedef enum {
-{
-  DGM_FN,
+	DGM_FN,
-  DGM_OBJ,
+	DGM_OBJ,
-  DGM_UNDEF,
+	DGM_UNDEF,
-  DGM_INC
+	DGM_INC
 } dg_mac_key;
-typedef struct
+typedef struct {
-{
-  int			len;
+	int		len;
-  struct dg_mac_t *	array;
+	struct dg_mac_t *array;
 } dg_macro_list;
-typedef struct dg_mac_t
+typedef struct dg_mac_t {
-{
-  dg_mac_key		key;
+	dg_mac_key			key;
-  short_sourcepos	pos;
+	short_sourcepos			pos;
-  union
+	union {
-  {
-    struct
+		struct {
-    {
-      char *		nam;
+			char		*nam;
-      char *		defn;
+			char		*defn;
-      string_list	pms;
+			string_list	pms;
-    } d;
+		} d;
-    struct
+		struct {
-    {
-      dg_filename	file;
+			dg_filename	file;
-      dg_macro_list	macs;
+			dg_macro_list	macs;
-    } i;
+		} i;
-  } u;
+	} u;
 } dg_macro;
-struct dg_comp_t
+struct dg_comp_t {
-{
   dg_filename		prim_file;
   string_list		comp_deps;
   long			date;
   short			language;
   short			id_case;
-  char *		producer;
+  char			*producer;
   dg_filename		comp_dir;
   string_list		options;
   dg_name_list		dn_list;
   dg_macro_list		macros;
   dg_compilation	another;
 };
-typedef struct
+typedef struct {
-{
-  int			present;
+	int	present;
-  bool			val;
+	bool	val;
 } bool_option;
-typedef struct
+typedef struct {
-{
-  int			present;
+	int	present;
-  shape			val;
+	shape	val;
 } shape_option;
-typedef struct
+typedef struct {
-{
   int			present;
-  struct tok_define_t *	val;
+  struct tok_define_t	*val;
 } token_option;
 typedef int dg_comp_props;
 typedef int dg_append;

Subversion Repositories tendra.SVN

(root)/branches/tendra5/src/installers/common/diag/dg_types.h – Rev 5 → 6