Subversion Repositories tendra.SVN

Rev

Rev 2 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2 Rev 7
Line -... Line 1...
- 
 
 1 
/*
- 
 
 2 
 * Copyright (c) 2002-2005 The TenDRA Project <http://www.tendra.org/>.
- 
 
 3 
 * All rights reserved.
- 
 
 4 
 *
- 
 
 5 
 * Redistribution and use in source and binary forms, with or without
- 
 
 6 
 * modification, are permitted provided that the following conditions are met:
- 
 
 7 
 *
- 
 
 8 
 * 1. Redistributions of source code must retain the above copyright notice,
- 
 
 9 
 *    this list of conditions and the following disclaimer.
- 
 
 10 
 * 2. Redistributions in binary form must reproduce the above copyright notice,
- 
 
 11 
 *    this list of conditions and the following disclaimer in the documentation
- 
 
 12 
 *    and/or other materials provided with the distribution.
- 
 
 13 
 * 3. Neither the name of The TenDRA Project nor the names of its contributors
- 
 
 14 
 *    may be used to endorse or promote products derived from this software
- 
 
 15 
 *    without specific, prior written permission.
- 
 
 16 
 *
- 
 
 17 
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS
- 
 
 18 
 * IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
- 
 
 19 
 * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
- 
 
 20 
 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
- 
 
 21 
 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
- 
 
 22 
 * EXEMPLARY OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
- 
 
 23 
 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
- 
 
 24 
 * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
- 
 
 25 
 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
- 
 
 26 
 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
- 
 
 27 
 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- 
 
 28 
 *
- 
 
 29 
 * $Id$
- 
 
 30 
 */
1 
/*
 31 
/*
2 
    		 Crown Copyright (c) 1997
 32 
    		 Crown Copyright (c) 1997
3 
 
 33 
 
4 
    This TenDRA(r) Computer Program is subject to Copyright
 34 
    This TenDRA(r) Computer Program is subject to Copyright
5 
    owned by the United Kingdom Secretary of State for Defence
 35 
    owned by the United Kingdom Secretary of State for Defence
Line 7... Line 37...
7 
    (DERA).  It is made available to Recipients with a
 37 
    (DERA).  It is made available to Recipients with a
8 
    royalty-free licence for its use, reproduction, transfer
 38 
    royalty-free licence for its use, reproduction, transfer
9 
    to other parties and amendment for any purpose not excluding
 39 
    to other parties and amendment for any purpose not excluding
10 
    product development provided that any such use et cetera
 40 
    product development provided that any such use et cetera
11 
    shall be deemed to be acceptance of the following conditions:-
 41 
    shall be deemed to be acceptance of the following conditions:-
12 
 
 42 
 
13 
        (1) Its Recipients shall ensure that this Notice is
 43 
        (1) Its Recipients shall ensure that this Notice is
14 
        reproduced upon any copies or amended versions of it;
 44 
        reproduced upon any copies or amended versions of it;
15 
 
 45 
 
16 
        (2) Any amended version of it shall be clearly marked to
 46 
        (2) Any amended version of it shall be clearly marked to
17 
        show both the nature of and the organisation responsible
 47 
        show both the nature of and the organisation responsible
18 
        for the relevant amendment or amendments;
 48 
        for the relevant amendment or amendments;
19 
 
 49 
 
20 
        (3) Its onward transfer from a recipient to another
 50 
        (3) Its onward transfer from a recipient to another
21 
        party shall be deemed to be that party's acceptance of
 51 
        party shall be deemed to be that party's acceptance of
22 
        these conditions;
 52 
        these conditions;
23 
 
 53 
 
24 
        (4) DERA gives no warranty or assurance as to its
 54 
        (4) DERA gives no warranty or assurance as to its
25 
        quality or suitability for any purpose and DERA accepts
 55 
        quality or suitability for any purpose and DERA accepts
26 
        no liability whatsoever in relation to any use to which
 56 
        no liability whatsoever in relation to any use to which
27 
        it may be put.
 57 
        it may be put.
28 
*/
 58 
*/
29 
 
 59 
 
30 
 
 60 
 
31 
/**********************************************************************
 61 
/**********************************************************************
32 
$Author: pwe $
 62 
$Author: pwe $
33 
$Date: 1998/03/11 11:03:35 $
 63 
$Date: 1998/03/11 11:03:35 $
34 
$Revision: 1.3 $
 64 
$Revision: 1.3 $
35 
$Log: dw2_abbrev.c,v $
 65 
$Log: dw2_abbrev.c,v $
Line 39... Line 69...
39 
 * Revision 1.2  1998/02/18  11:22:16  pwe
 69 
 * Revision 1.2  1998/02/18  11:22:16  pwe
40 
 * test corrections
 70 
 * test corrections
41 
 *
 71 
 *
42 
 * Revision 1.1.1.1  1998/01/17  15:55:48  release
 72 
 * Revision 1.1.1.1  1998/01/17  15:55:48  release
43 
 * First version to be checked into rolling release.
 73 
 * First version to be checked into rolling release.
44 
 *
 74 
 *
45 
 * Revision 1.7  1998/01/09  09:31:44  pwe
 75 
 * Revision 1.7  1998/01/09  09:31:44  pwe
46 
 * prep restructure
 76 
 * prep restructure
47 
 *
 77 
 *
48 
 * Revision 1.6  1997/12/08  16:37:17  pwe
 78 
 * Revision 1.6  1997/12/08  16:37:17  pwe
49 
 * abbrev key & directory names
 79 
 * abbrev key & directory names
50 
 *
 80 
 *
51 
 * Revision 1.5  1997/12/05  10:24:06  pwe
 81 
 * Revision 1.5  1997/12/05  10:24:06  pwe
52 
 * name change
 82 
 * name change
53 
 *
 83 
 *
54 
 * Revision 1.4  1997/12/04  19:41:58  pwe
 84 
 * Revision 1.4  1997/12/04  19:41:58  pwe
55 
 * ANDF-DE V1.9
 85 
 * ANDF-DE V1.9
Line 60... Line 90...
60 
 * Revision 1.2  1997/10/23  09:28:02  pwe
 90 
 * Revision 1.2  1997/10/23  09:28:02  pwe
61 
 * ANDF-DE v1.7, extra diags
 91 
 * ANDF-DE v1.7, extra diags
62 
 *
 92 
 *
63 
 * Revision 1.1  1997/10/10  18:19:00  pwe
 93 
 * Revision 1.1  1997/10/10  18:19:00  pwe
64 
 * prep ANDF-DE revision
 94 
 * prep ANDF-DE revision
65 
 *
 95 
 *
66 
 * Revision 1.6  1997/08/23  13:36:26  pwe
 96 
 * Revision 1.6  1997/08/23  13:36:26  pwe
67 
 * initial ANDF-DE
 97 
 * initial ANDF-DE
68 
 *
 98 
 *
69 
 * Revision 1.5  1997/05/02  11:00:28  pwe
 99 
 * Revision 1.5  1997/05/02  11:00:28  pwe
70 
 * stmt_list is ref_addr
 100 
 * stmt_list is ref_addr
Line 91... Line 121...
91 
#include "dw2_codes.h"
 121 
#include "dw2_codes.h"
92 
#include "dw2_entries.h"
 122 
#include "dw2_entries.h"
93 
#include "readglob.h"
 123 
#include "readglob.h"
94 
 
 124 
 
95 
 
 125 
 
96 
static void sep
 126 
static void
97 
    PROTO_Z ()
 127 
sep(void)
98 
{
 128 
{
99 
  outs (", ");
 129 
	outs(", ");
100 
  return;
 130 
	return;
101 
}
 131 
}
102 
 
 132 
 
- 
 
 133 
 
103 
static void set_abbrev_tag
 134 
static void
104 
    PROTO_N ( (en, c, tag_code, has_children) )
 135 
set_abbrev_tag(abbrev_entry *en, int c, int tag_code, int has_children)
- 
 
 136 
{
- 
 
 137 
	if (!en->index && !c) {
- 
 
 138 
		good_trans = 1;
- 
 
 139 
		IGNORE printf("!!!	abbreviation index unset: %s\n",
- 
 
 140 
			      en->aname);
- 
 
 141 
	}
- 
 
 142 
	out8();
- 
 
 143 
	uleb128((unsigned long)(en->index + c));
- 
 
 144 
	sep();
- 
 
 145 
	uleb128((unsigned long)tag_code);
- 
 
 146 
	sep();
105 
    PROTO_T ( abbrev_entry * en X int c X int tag_code X int has_children )
 147 
	outn(has_children ? (long)DW_CHILDREN_yes : (long)DW_CHILDREN_no);
- 
 
 148 
	outnl_comment_i(en->aname, (long)c);
- 
 
 149 
	return;
- 
 
 150 
}
- 
 
 151 
 
- 
 
 152 
 
- 
 
 153 
static void
- 
 
 154 
set_decl_attributes(void)
106 
{
 155 
{
107 
  if (!en->index && !c) {
 - 
 
108 
    good_trans = 1;
 - 
 
109 
    IGNORE printf ("!!!	abbreviation index unset: %s\n", en->aname);
 - 
 
110 
  }
 - 
 
111 
  out8 (); uleb128 ((unsigned long)(en->index + c)); sep();
 156 
	set_attribute(DW_AT_decl_file, DW_FORM_udata);
112 
  uleb128 ((unsigned long)tag_code); sep();
 157 
	set_attribute(DW_AT_decl_line, DW_FORM_udata);
113 
  outn (has_children ? (long)DW_CHILDREN_yes : (long)DW_CHILDREN_no);
 158 
	set_attribute(DW_AT_decl_column, DW_FORM_udata);
114 
  outnl_comment_i (en->aname, (long)c);
 - 
 
115 
  return;
 - 
 
116 
}
 159 
}
117 
 
 160 
 
118 
static void set_decl_attributes
 - 
 
119 
    PROTO_Z ()
 - 
 
120 
{
 - 
 
121 
  set_attribute (DW_AT_decl_file, DW_FORM_udata);
 - 
 
122 
  set_attribute (DW_AT_decl_line, DW_FORM_udata);
 - 
 
123 
  set_attribute (DW_AT_decl_column, DW_FORM_udata);
 - 
 
124 
}
 - 
 
125 
 
 161 
 
126 
static void obj_abbrev
 162 
static void
127 
    PROTO_N ( (en, tag_code) )
 - 
 
128 
    PROTO_T ( abbrev_entry * en X int tag_code )
 163 
obj_abbrev(abbrev_entry *en, int tag_code)
129 
{
 164 
{
130 
  int c = 0;
 165 
	int c = 0;
131 
  do {
 166 
	do {
132 
    long attr = (en->attr)[c];
 167 
		long attr = (en->attr)[c];
133 
    set_abbrev_tag (en, c, tag_code, 0);
 168 
		set_abbrev_tag(en, c, tag_code, 0);
134 
    if (attr & H_AO)
 169 
		if (attr & H_AO) {
135 
      set_attribute (DW_AT_abstract_origin, DW_FORM_ref_addr);
 170 
			set_attribute(DW_AT_abstract_origin, DW_FORM_ref_addr);
- 
 
 171 
		}
136 
    if (attr & H_SP)
 172 
		if (attr & H_SP) {
137 
      set_attribute (DW_AT_specification, DW_FORM_ref_addr);
 173 
			set_attribute(DW_AT_specification, DW_FORM_ref_addr);
- 
 
 174 
		}
138 
    if (attr & H_DC)
 175 
		if (attr & H_DC) {
139 
      set_attribute (DW_AT_declaration, DW_FORM_flag);
 176 
			set_attribute(DW_AT_declaration, DW_FORM_flag);
- 
 
 177 
		}
140 
    if (attr & H_NM)
 178 
		if (attr & H_NM) {
141 
      set_attribute (DW_AT_name, DW_FORM_string);
 179 
			set_attribute(DW_AT_name, DW_FORM_string);
- 
 
 180 
		}
142 
    if (attr & H_XY)
 181 
		if (attr & H_XY) {
143 
      set_decl_attributes ();
 182 
			set_decl_attributes();
- 
 
 183 
		}
144 
    if (attr & H_EX)
 184 
		if (attr & H_EX) {
145 
      set_attribute (DW_AT_external, DW_FORM_flag);
 185 
			set_attribute(DW_AT_external, DW_FORM_flag);
- 
 
 186 
		}
146 
    if (attr & H_AT)
 187 
		if (attr & H_AT) {
147 
      set_attribute (DW_AT_artificial, DW_FORM_flag);
 188 
			set_attribute(DW_AT_artificial, DW_FORM_flag);
- 
 
 189 
		}
148 
    if (attr & H_AC)
 190 
		if (attr & H_AC) {
149 
      set_attribute (DW_AT_accessibility, DW_FORM_data1);
 191 
			set_attribute(DW_AT_accessibility, DW_FORM_data1);
- 
 
 192 
		}
150 
    if (attr & H_TP)
 193 
		if (attr & H_TP) {
151 
      set_attribute (DW_AT_type, DW_FORM_ref_addr);
 194 
			set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 195 
		}
152 
    if (attr & H_VP)
 196 
		if (attr & H_VP) {
153 
      set_attribute (DW_AT_variable_parameter, DW_FORM_flag);
 197 
			set_attribute(DW_AT_variable_parameter, DW_FORM_flag);
- 
 
 198 
		}
154 
#ifdef H_DX
 199 
#ifdef H_DX
155 
    if (attr & H_DX)
 200 
		if (attr & H_DX) {
156 
      set_attribute (DW_AT_DD_computed_default, DW_FORM_flag);
 201 
			set_attribute(DW_AT_DD_computed_default, DW_FORM_flag);
- 
 
 202 
		}
157 
#endif
 203 
#endif
158 
    if (attr & H_DF)
 204 
		if (attr & H_DF) {
159 
      set_attribute (DW_AT_default_value, DW_FORM_indirect);
 205 
			set_attribute(DW_AT_default_value, DW_FORM_indirect);
- 
 
 206 
		}
160 
    if (attr & H_SS)
 207 
		if (attr & H_SS) {
161 
      set_attribute (DW_AT_start_scope, DW_FORM_data2);
 208 
			set_attribute(DW_AT_start_scope, DW_FORM_data2);
- 
 
 209 
		}
162 
    if (attr & H_CV)
 210 
		if (attr & H_CV) {
163 
      set_attribute (DW_AT_const_value, DW_FORM_indirect);
 211 
			set_attribute(DW_AT_const_value, DW_FORM_indirect);
- 
 
 212 
		}
164 
    if (attr & H_LC)
 213 
		if (attr & H_LC) {
165 
      set_attribute (DW_AT_location, DW_FORM_block1);
 214 
			set_attribute(DW_AT_location, DW_FORM_block1);
- 
 
 215 
		}
166 
    if (attr & H_LL)
 216 
		if (attr & H_LL) {
167 
      set_attribute (DW_AT_location, DW_FORM_ref_addr);
 217 
			set_attribute(DW_AT_location, DW_FORM_ref_addr);
- 
 
 218 
		}
168 
    if (attr & H_LE)
 219 
		if (attr & H_LE) {
169 
      set_attribute (DW_AT_DD_ext_location, DW_FORM_ref_addr);
 220 
			set_attribute(DW_AT_DD_ext_location, DW_FORM_ref_addr);
- 
 
 221 
		}
170 
    if (attr & H_RP)
 222 
		if (attr & H_RP) {
171 
      set_attribute (DW_AT_DD_repn, DW_FORM_indirect);
 223 
			set_attribute(DW_AT_DD_repn, DW_FORM_indirect);
- 
 
 224 
		}
172 
    set_attribute (0, 0);
 225 
		set_attribute(0, 0);
173 
    c++;
 226 
		c++;
174 
  }
 - 
 
175 
  while ((en->attr)[c]);
 227 
	} while ((en->attr)[c]);
176 
  return;
 228 
	return;
177 
}
 229 
}
178 
 
 230 
 
- 
 
 231 
 
179 
static void module_abbrev
 232 
static void
180 
    PROTO_N ( (en, tag_code) )
 - 
 
181 
    PROTO_T ( abbrev_entry * en X int tag_code )
 233 
module_abbrev(abbrev_entry *en, int tag_code)
182 
{
 234 
{
183 
  int c = 0;
 235 
	int c = 0;
184 
  do {
 236 
	do {
185 
    long attr = (en->attr)[c];
 237 
		long attr = (en->attr)[c];
186 
    set_abbrev_tag (en, c, tag_code, 1);
 238 
		set_abbrev_tag(en, c, tag_code, 1);
187 
    if (attr & H_AO)
 239 
		if (attr & H_AO) {
188 
      set_attribute (DW_AT_abstract_origin, DW_FORM_ref_addr);
 240 
			set_attribute(DW_AT_abstract_origin, DW_FORM_ref_addr);
- 
 
 241 
		}
189 
    if (attr & H_SP)
 242 
		if (attr & H_SP) {
190 
      set_attribute (DW_AT_specification, DW_FORM_ref_addr);
 243 
			set_attribute(DW_AT_specification, DW_FORM_ref_addr);
- 
 
 244 
		}
191 
    if (attr & H_DC)
 245 
		if (attr & H_DC) {
192 
      set_attribute (DW_AT_declaration, DW_FORM_flag);
 246 
			set_attribute(DW_AT_declaration, DW_FORM_flag);
- 
 
 247 
		}
193 
    if (attr & H_NM)
 248 
		if (attr & H_NM) {
194 
      set_attribute (DW_AT_name, DW_FORM_string);
 249 
			set_attribute(DW_AT_name, DW_FORM_string);
- 
 
 250 
		}
195 
    if (attr & H_XY)
 251 
		if (attr & H_XY) {
196 
      set_decl_attributes ();
 252 
			set_decl_attributes();
- 
 
 253 
		}
197 
    if (attr & H_AT)
 254 
		if (attr & H_AT) {
198 
      set_attribute (DW_AT_artificial, DW_FORM_flag);
 255 
			set_attribute(DW_AT_artificial, DW_FORM_flag);
- 
 
 256 
		}
199 
    if (attr & H_AC)
 257 
		if (attr & H_AC) {
200 
      set_attribute (DW_AT_accessibility, DW_FORM_data1);
 258 
			set_attribute(DW_AT_accessibility, DW_FORM_data1);
- 
 
 259 
		}
201 
    if (attr & H_PC) {
 260 
		if (attr & H_PC) {
202 
      set_attribute (DW_AT_low_pc, DW_FORM_addr);
 261 
			set_attribute(DW_AT_low_pc, DW_FORM_addr);
203 
      set_attribute (DW_AT_high_pc, DW_FORM_addr);
 262 
			set_attribute(DW_AT_high_pc, DW_FORM_addr);
204 
    }
 263 
		}
205 
    if (attr & H_EXTN)
 264 
		if (attr & H_EXTN) {
206 
      set_attribute (DW_AT_DD_indirect_attributes, DW_FORM_block2);
 265 
			set_attribute(DW_AT_DD_indirect_attributes,
207 
    set_attribute (0, 0);
 266 
				      DW_FORM_block2);
208 
    c++;
 - 
 
209 
  }
 267 
		}
210 
  while ((en->attr)[c]);
 - 
 
211 
  return;
 - 
 
212 
}
 - 
 
213 
 
 - 
 
214 
static void struct_abbrev
 - 
 
215 
    PROTO_N ( (en, tag_code) )
 - 
 
216 
    PROTO_T ( abbrev_entry * en X int tag_code )
 - 
 
217 
{
 - 
 
218 
  int c = 0;
 - 
 
219 
  do {
 - 
 
220 
    long attr = (en->attr)[c];
 - 
 
221 
    set_abbrev_tag (en, c, tag_code, 1);
 - 
 
222 
    if (attr & H_SP)
 - 
 
223 
      set_attribute (DW_AT_specification, DW_FORM_ref_addr);
 - 
 
224 
    if (attr & H_DC)
 - 
 
225 
      set_attribute (DW_AT_declaration, DW_FORM_flag);
 - 
 
226 
    if (attr & H_NM)
 - 
 
227 
      set_attribute (DW_AT_name, DW_FORM_string);
 - 
 
228 
    if (attr & H_XY)
 - 
 
229 
      set_decl_attributes ();
 - 
 
230 
    if (attr & H_SZ)
 - 
 
231 
      set_attribute (DW_AT_byte_size, DW_FORM_udata);
 - 
 
232 
    if (attr & H_NW)
 - 
 
233 
      set_attribute (DW_AT_DD_newtype, DW_FORM_flag);
 - 
 
234 
    if (attr & H_EXTN)
 - 
 
235 
      set_attribute (DW_AT_DD_indirect_attributes, DW_FORM_block2);
 - 
 
236 
    set_attribute (0, 0);
 268 
		set_attribute(0, 0);
237 
    c++;
 269 
		c++;
238 
  }
 - 
 
239 
  while ((en->attr)[c]);
 270 
	} while ((en->attr)[c]);
240 
  return;
 271 
	return;
241 
}
 272 
}
242 
 
 273 
 
243 
 
 274 
 
244 
void do_abbreviations
 275 
static void
245 
    PROTO_Z ()
 276 
struct_abbrev(abbrev_entry *en, int tag_code)
246 
{
 277 
{
247 
  int c;
 278 
	int c = 0;
- 
 
 279 
	do {
- 
 
 280 
		long attr = (en->attr)[c];
248 
  enter_section ("debug_abbrev");
 281 
		set_abbrev_tag(en, c, tag_code, 1);
- 
 
 282 
		if (attr & H_SP) {
- 
 
 283 
			set_attribute(DW_AT_specification, DW_FORM_ref_addr);
- 
 
 284 
		}
- 
 
 285 
		if (attr & H_DC) {
- 
 
 286 
			set_attribute(DW_AT_declaration, DW_FORM_flag);
- 
 
 287 
		}
- 
 
 288 
		if (attr & H_NM) {
- 
 
 289 
			set_attribute(DW_AT_name, DW_FORM_string);
- 
 
 290 
		}
- 
 
 291 
		if (attr & H_XY) {
249 
  out_ext_label (abbrev_name);
 292 
			set_decl_attributes();
- 
 
 293 
		}
- 
 
 294 
		if (attr & H_SZ) {
- 
 
 295 
			set_attribute(DW_AT_byte_size, DW_FORM_udata);
- 
 
 296 
		}
- 
 
 297 
		if (attr & H_NW) {
- 
 
 298 
			set_attribute(DW_AT_DD_newtype, DW_FORM_flag);
- 
 
 299 
		}
- 
 
 300 
		if (attr & H_EXTN) {
- 
 
 301 
			set_attribute(DW_AT_DD_indirect_attributes,
- 
 
 302 
				      DW_FORM_block2);
- 
 
 303 
		}
- 
 
 304 
		set_attribute(0, 0);
- 
 
 305 
		c++;
- 
 
 306 
	} while ((en->attr)[c]);
- 
 
 307 
	return;
- 
 
 308 
}
- 
 
 309 
 
250 
 
 310 
 
251 
  set_abbrev_tag (&dwe_comp_unit, 0, DW_TAG_compile_unit, 1);
 - 
 
252 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 - 
 
253 
  set_attribute (DW_AT_high_pc, DW_FORM_addr);
 - 
 
254 
  set_attribute (DW_AT_name, DW_FORM_string);
 - 
 
255 
  set_attribute (DW_AT_language, DW_FORM_udata);
 - 
 
256 
  set_attribute (DW_AT_stmt_list, DW_FORM_ref_addr);
 - 
 
257 
  set_attribute (DW_AT_comp_dir, DW_FORM_string);
 - 
 
258 
  set_attribute (DW_AT_producer, DW_FORM_string);
 - 
 
259 
  set_attribute (DW_AT_identifier_case, DW_FORM_data1);
 - 
 
260 
  set_attribute (0, 0);
 - 
 
261 
 
 - 
 
262 
  set_abbrev_tag (&dwe_cmac_unit, 0, DW_TAG_compile_unit, 1);
 - 
 
263 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 - 
 
264 
  set_attribute (DW_AT_high_pc, DW_FORM_addr);
 - 
 
265 
  set_attribute (DW_AT_name, DW_FORM_string);
 - 
 
266 
  set_attribute (DW_AT_language, DW_FORM_udata);
 - 
 
267 
  set_attribute (DW_AT_stmt_list, DW_FORM_ref_addr);
 - 
 
268 
  set_attribute (DW_AT_macro_info, DW_FORM_ref_addr);
 - 
 
269 
  set_attribute (DW_AT_comp_dir, DW_FORM_string);
 - 
 
270 
  set_attribute (DW_AT_producer, DW_FORM_string);
 - 
 
271 
  set_attribute (DW_AT_identifier_case, DW_FORM_data1);
 - 
 
272 
  set_attribute (0, 0);
 - 
 
273 
 
 - 
 
274 
  module_abbrev (&dwe_module, DW_TAG_module);
 - 
 
275 
 
 - 
 
276 
  module_abbrev (&dwe_namespace, DW_TAG_DD_namespace);
 - 
 
277 
 
 - 
 
278 
  set_abbrev_tag (&dwe_subunit, 0, DW_TAG_DD_subunit, 1);
 - 
 
279 
  set_attribute (DW_AT_DD_parent, DW_FORM_ref_addr);
 - 
 
280 
  set_attribute (DW_AT_artificial, DW_FORM_flag);
 - 
 
281 
  set_attribute (0, 0);
 - 
 
282 
 
 - 
 
283 
  set_abbrev_tag (&dwe_childunit, 0, DW_TAG_DD_child_unit, 1);
 - 
 
284 
  set_attribute (DW_AT_DD_parent, DW_FORM_ref_addr);
 - 
 
285 
  set_attribute (0, 0);
 - 
 
286 
 
 - 
 
287 
  set_abbrev_tag (&dwe_child_acc, 0, DW_TAG_DD_child_unit, 1);
 - 
 
288 
  set_attribute (DW_AT_DD_parent, DW_FORM_ref_addr);
 - 
 
289 
  set_attribute (DW_AT_accessibility, DW_FORM_data1);
 - 
 
290 
  set_attribute (0, 0);
 - 
 
291 
 
 - 
 
292 
  c = 0;
 - 
 
293 
  do {
 - 
 
294 
    long attr = (dwe_import.attr)[c];
 - 
 
295 
    set_abbrev_tag (&dwe_import, c, DW_TAG_imported_declaration, 0);
 - 
 
296 
    if (attr & H_NM)
 - 
 
297 
      set_attribute (DW_AT_name, DW_FORM_string);
 - 
 
298 
    if (attr & H_XY)
 - 
 
299 
      set_decl_attributes ();
 - 
 
300 
    if (attr & H_AC)
 - 
 
301 
      set_attribute (DW_AT_accessibility, DW_FORM_data1);
 - 
 
302 
    set_attribute (DW_AT_import, DW_FORM_ref_addr);
 - 
 
303 
    set_attribute (DW_AT_DD_import_kind, DW_FORM_udata);
 - 
 
304 
    if (attr & H_SS)
 - 
 
305 
      set_attribute (DW_AT_start_scope, DW_FORM_data2);
 - 
 
306 
    set_attribute (0, 0);
 - 
 
307 
    c++;
 - 
 
308 
  }
 - 
 
309 
  while ((dwe_import.attr)[c]);
 - 
 
310 
 
 - 
 
311 
  c = 0;
 - 
 
312 
  do {
 - 
 
313 
    long attr = (dwe_import_p.attr)[c];
 - 
 
314 
    set_abbrev_tag (&dwe_import_p, c, DW_TAG_imported_declaration, 1);
 - 
 
315 
    if (attr & H_NM)
 - 
 
316 
      set_attribute (DW_AT_name, DW_FORM_string);
 - 
 
317 
    if (attr & H_XY)
 - 
 
318 
      set_decl_attributes ();
 - 
 
319 
    if (attr & H_AC)
 - 
 
320 
      set_attribute (DW_AT_accessibility, DW_FORM_data1);
 - 
 
321 
    set_attribute (DW_AT_import, DW_FORM_ref_addr);
 - 
 
322 
    set_attribute (DW_AT_DD_import_kind, DW_FORM_udata);
 - 
 
323 
    if (attr & H_SS)
 - 
 
324 
      set_attribute (DW_AT_start_scope, DW_FORM_data2);
 - 
 
325 
    set_attribute (0, 0);
 - 
 
326 
    c++;
 - 
 
327 
  }
 - 
 
328 
  while ((dwe_import_p.attr)[c]);
 - 
 
329 
 
 - 
 
330 
  c = 0;
 - 
 
331 
  do {
 311 
void
332 
    long attr = (dwe_proc.attr)[c];
 - 
 
333 
    set_abbrev_tag (&dwe_proc, c, DW_TAG_subprogram, 1);
 - 
 
334 
    if (attr & H_AO)
 - 
 
335 
      set_attribute (DW_AT_abstract_origin, DW_FORM_ref_addr);
 - 
 
336 
    if (attr & H_SP)
 - 
 
337 
      set_attribute (DW_AT_specification, DW_FORM_ref_addr);
 - 
 
338 
    if (attr & H_DC)
 - 
 
339 
      set_attribute (DW_AT_declaration, DW_FORM_flag);
 - 
 
340 
    if (attr & H_NM)
 - 
 
341 
      set_attribute (DW_AT_name, DW_FORM_string);
 - 
 
342 
    if (attr & H_XY)
 - 
 
343 
      set_decl_attributes ();
 - 
 
344 
    if (attr & H_EX)
 - 
 
345 
      set_attribute (DW_AT_external, DW_FORM_flag);
 - 
 
346 
    if (attr & H_AT)
 - 
 
347 
      set_attribute (DW_AT_artificial, DW_FORM_flag);
 - 
 
348 
    if (attr & H_AC)
 - 
 
349 
      set_attribute (DW_AT_accessibility, DW_FORM_data1);
 - 
 
350 
    if (attr & H_CC)
 - 
 
351 
      set_attribute (DW_AT_calling_convention, DW_FORM_data1);
 - 
 
352 
    if (attr & H_TP)
 - 
 
353 
      set_attribute (DW_AT_type, DW_FORM_ref_addr);
 - 
 
354 
    if (attr & H_PT)
 - 
 
355 
      set_attribute (DW_AT_prototyped, DW_FORM_flag);
 - 
 
356 
    if (attr & H_IL)
 - 
 
357 
      set_attribute (DW_AT_inline, DW_FORM_data1);
 - 
 
358 
    if (attr & H_VT)
 - 
 
359 
      set_attribute (DW_AT_virtuality, DW_FORM_data1);
 - 
 
360 
    if (attr & H_VL)
 - 
 
361 
      set_attribute (DW_AT_vtable_elem_location, DW_FORM_block1);
 - 
 
362 
    if (attr & H_SS)
 - 
 
363 
      set_attribute (DW_AT_start_scope, DW_FORM_data2);
 - 
 
364 
    if (attr & H_PC) {
 - 
 
365 
      set_attribute (DW_AT_low_pc, DW_FORM_addr);
 - 
 
366 
      set_attribute (DW_AT_high_pc, DW_FORM_addr);
 - 
 
367 
      set_attribute (DW_AT_return_addr, DW_FORM_block1);
 - 
 
368 
      set_attribute (DW_AT_frame_base, DW_FORM_block1);
 - 
 
369 
    }
 - 
 
370 
    if (attr & H_SL)
 - 
 
371 
      set_attribute (DW_AT_static_link, DW_FORM_block1);
 - 
 
372 
    if (attr & H_EXTN)
 - 
 
373 
      set_attribute (DW_AT_DD_indirect_attributes, DW_FORM_block2);
 - 
 
374 
    if (attr & H_EL)
 - 
 
375 
      set_attribute (DW_AT_DD_elaboration, DW_FORM_ref_addr);
 - 
 
376 
    if (attr & H_GN)
 - 
 
377 
      set_attribute (DW_AT_DD_generic_name, DW_FORM_string);
 - 
 
378 
    if (attr & H_RP)
 - 
 
379 
      set_attribute (DW_AT_DD_repn, DW_FORM_indirect);
 - 
 
380 
    if (attr & H_LN)
 - 
 
381 
      set_attribute (DW_AT_language, DW_FORM_udata);
 - 
 
382 
    set_attribute (0, 0);
 - 
 
383 
    c++;
 - 
 
384 
  }
 - 
 
385 
  while ((dwe_proc.attr)[c]);
 - 
 
386 
 
 - 
 
387 
  set_abbrev_tag (&dwe_entrypt, 0, DW_TAG_entry_point, 0);
 - 
 
388 
  set_attribute (0, 0);
 312 
do_abbreviations(void)
389 
 
 - 
 
390 
  obj_abbrev (&dwe_param, DW_TAG_formal_parameter);
 - 
 
391 
 
 313 
{
392 
  set_abbrev_tag (&dwe_formal, 0, DW_TAG_formal_parameter, 0);
 - 
 
393 
  set_attribute (DW_AT_type, DW_FORM_ref_addr);
 - 
 
394 
  set_attribute (0, 0);
 - 
 
395 
 
 - 
 
396 
  set_abbrev_tag (&dwe_opt_par, 0, DW_TAG_unspecified_parameters, 0);
 - 
 
397 
  set_attribute (0, 0);
 - 
 
398 
 
 - 
 
399 
  set_abbrev_tag (&dwe_thrown_t, 0, DW_TAG_thrown_type, 0);
 - 
 
400 
  set_attribute (DW_AT_type, DW_FORM_ref_addr);
 - 
 
401 
  set_attribute (0, 0);
 - 
 
402 
 
 - 
 
403 
  set_abbrev_tag (&dwe_inl_call, 0, DW_TAG_inlined_subroutine, 1);
 - 
 
404 
  set_attribute (DW_AT_abstract_origin, DW_FORM_ref_addr);
 - 
 
405 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 - 
 
406 
  set_attribute (DW_AT_high_pc, DW_FORM_addr);
 - 
 
407 
  set_attribute (0, 0);
 - 
 
408 
 
 - 
 
409 
  set_abbrev_tag (&dwe_inl_opnd, 0, DW_TAG_inlined_subroutine, 1);
 - 
 
410 
  set_attribute (DW_AT_abstract_origin, DW_FORM_ref_addr);
 - 
 
411 
  set_attribute (0, 0);
 - 
 
412 
 
 - 
 
413 
  c = 0;
 - 
 
414 
  do {
 - 
 
415 
    long attr = (dwe_scope.attr)[c];
 - 
 
416 
    set_abbrev_tag (&dwe_scope, c, DW_TAG_lexical_block, 1);
 - 
 
417 
    if (attr & H_NM)
 - 
 
418 
      set_attribute (DW_AT_name, DW_FORM_string);
 - 
 
419 
    if (attr & H_XY)
 - 
 
420 
      set_decl_attributes ();
 - 
 
421 
    if (attr & H_PC) {
 - 
 
422 
      set_attribute (DW_AT_low_pc, DW_FORM_addr);
 - 
 
423 
      set_attribute (DW_AT_high_pc, DW_FORM_addr);
 - 
 
424 
    }
 - 
 
425 
    if (attr & H_BG)
 - 
 
426 
      set_attribute (DW_AT_DD_begin, DW_FORM_addr);
 - 
 
427 
    set_attribute (0, 0);
 - 
 
428 
    c++;
 314 
	int c;
429 
  }
 - 
 
430 
  while ((dwe_scope.attr)[c]);
 - 
 
431 
 
 - 
 
432 
  set_abbrev_tag (&dwe_fragment, 0, DW_TAG_DD_lexical_fragment, 1);
 - 
 
433 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 - 
 
434 
  set_attribute (DW_AT_high_pc, DW_FORM_addr);
 - 
 
435 
  set_attribute (0, 0);
 - 
 
436 
 
 - 
 
437 
  set_abbrev_tag (&dwe_label, 0, DW_TAG_label, 0);
 - 
 
438 
  set_attribute (DW_AT_name, DW_FORM_string);
 - 
 
439 
  set_decl_attributes ();
 - 
 
440 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 - 
 
441 
  set_attribute (0, 0);
 - 
 
442 
 
 - 
 
443 
  set_abbrev_tag (&dwe_with, 0, DW_TAG_with_stmt, 1);
 - 
 
444 
  set_attribute (DW_AT_type, DW_FORM_ref_addr);
 - 
 
445 
  set_attribute (DW_AT_location, DW_FORM_block1);
 - 
 
446 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 - 
 
447 
  set_attribute (DW_AT_high_pc, DW_FORM_addr);
 - 
 
448 
  set_attribute (0, 0);
 - 
 
449 
 
 - 
 
450 
  set_abbrev_tag (&dwe_try, 0, DW_TAG_try_block, 1);
 - 
 
451 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 - 
 
452 
  set_attribute (DW_AT_high_pc, DW_FORM_addr);
 - 
 
453 
  set_attribute (0, 0);
 - 
 
454 
 
 - 
 
455 
  set_abbrev_tag (&dwe_catch, 0, DW_TAG_catch_block, 1);
 - 
 
456 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 - 
 
457 
  set_attribute (DW_AT_high_pc, DW_FORM_addr);
 - 
 
458 
  set_attribute (0, 0);
 - 
 
459 
 
 - 
 
460 
  obj_abbrev (&dwe_variable, DW_TAG_variable);
 - 
 
461 
  obj_abbrev (&dwe_constant, DW_TAG_constant);
 - 
 
462 
 
 - 
 
463 
  set_abbrev_tag (&dwe_tmpl_type, 0, DW_TAG_template_type_param, 0);
 - 
 
464 
  set_attribute (DW_AT_name, DW_FORM_string);
 - 
 
465 
  set_decl_attributes ();
 - 
 
466 
  set_attribute (DW_AT_type, DW_FORM_ref_addr);
 - 
 
467 
  set_attribute (0, 0);
 - 
 
468 
 
 - 
 
469 
  set_abbrev_tag (&dwe_tmpl_val, 0, DW_TAG_template_value_param, 0);
 - 
 
470 
  set_attribute (DW_AT_name, DW_FORM_string);
 - 
 
471 
  set_decl_attributes ();
 - 
 
472 
  set_attribute (DW_AT_type, DW_FORM_ref_addr);
 - 
 
473 
  set_attribute (DW_AT_const_value, DW_FORM_indirect);
 - 
 
474 
  set_attribute (0, 0);
 - 
 
475 
 
 - 
 
476 
  set_abbrev_tag (&dwe_tmpl_proc, 0, DW_TAG_DD_template_proc_param, 0);
 - 
 
477 
  set_attribute (DW_AT_name, DW_FORM_string);
 - 
 
478 
  set_decl_attributes ();
 - 
 
479 
  set_attribute (DW_AT_type, DW_FORM_ref_addr);
 - 
 
480 
  set_attribute (0, 0);
 - 
 
481 
 
 - 
 
482 
  set_abbrev_tag (&dwe_tmpl_mod, 0, DW_TAG_DD_template_module_param, 0);
 - 
 
483 
  set_attribute (DW_AT_name, DW_FORM_string);
 - 
 
484 
  set_decl_attributes ();
 315 
	enter_section("debug_abbrev");
485 
  set_attribute (DW_AT_type, DW_FORM_ref_addr);
 - 
 
486 
  set_attribute (0, 0);
 - 
 
487 
 
 - 
 
488 
  c = 0;
 - 
 
489 
  do {
 - 
 
490 
    long attr = (dwe_typedef.attr)[c];
 - 
 
491 
    set_abbrev_tag (&dwe_typedef, c, DW_TAG_typedef, 0);
 - 
 
492 
    if (attr & H_AO)
 - 
 
493 
      set_attribute (DW_AT_abstract_origin, DW_FORM_ref_addr);
 - 
 
494 
    if (attr & H_SP)
 - 
 
495 
      set_attribute (DW_AT_specification, DW_FORM_ref_addr);
 - 
 
496 
    if (attr & H_DC)
 - 
 
497 
      set_attribute (DW_AT_declaration, DW_FORM_flag);
 - 
 
498 
    if (attr & H_NM)
 - 
 
499 
      set_attribute (DW_AT_name, DW_FORM_string);
 - 
 
500 
    if (attr & H_XY)
 - 
 
501 
      set_decl_attributes ();
 - 
 
502 
    if (attr & H_AT)
 - 
 
503 
      set_attribute (DW_AT_artificial, DW_FORM_flag);
 - 
 
504 
    if (attr & H_AC)
 - 
 
505 
      set_attribute (DW_AT_accessibility, DW_FORM_data1);
 - 
 
506 
    if (attr & H_TP)
 - 
 
507 
      set_attribute (DW_AT_type, DW_FORM_ref_addr);
 - 
 
508 
    if (attr & H_NW)
 - 
 
509 
      set_attribute (DW_AT_DD_newtype, DW_FORM_flag);
 - 
 
510 
    if (attr & H_AD)
 - 
 
511 
      set_attribute (DW_AT_DD_ada_derived, DW_FORM_flag);
 - 
 
512 
    set_attribute (0, 0);
 - 
 
513 
    c++;
 - 
 
514 
  }
 - 
 
515 
  while ((dwe_typedef.attr)[c]);
 - 
 
516 
 
 - 
 
517 
  c = 0;
 - 
 
518 
  do {
 - 
 
519 
    long attr = (dwe_typecon.attr)[c];
 - 
 
520 
    set_abbrev_tag (&dwe_typecon, c, DW_TAG_typedef, 1);
 - 
 
521 
    if (attr & H_SP)
 - 
 
522 
      set_attribute (DW_AT_specification, DW_FORM_ref_addr);
 - 
 
523 
    if (attr & H_DC)
 - 
 
524 
      set_attribute (DW_AT_declaration, DW_FORM_flag);
 - 
 
525 
    if (attr & H_NM)
 - 
 
526 
      set_attribute (DW_AT_name, DW_FORM_string);
 - 
 
527 
    if (attr & H_XY)
 - 
 
528 
      set_decl_attributes ();
 - 
 
529 
    if (attr & H_AT)
 - 
 
530 
      set_attribute (DW_AT_artificial, DW_FORM_flag);
 - 
 
531 
    if (attr & H_AC)
 - 
 
532 
      set_attribute (DW_AT_accessibility, DW_FORM_data1);
 - 
 
533 
    if (attr & H_TP)
 - 
 
534 
      set_attribute (DW_AT_type, DW_FORM_ref_addr);
 - 
 
535 
    if (attr & H_NW)
 - 
 
536 
      set_attribute (DW_AT_DD_newtype, DW_FORM_flag);
 - 
 
537 
    if (attr & H_AD)
 - 
 
538 
      set_attribute (DW_AT_DD_ada_derived, DW_FORM_flag);
 - 
 
539 
    set_attribute (0, 0);
 316 
	out_ext_label(abbrev_name);
540 
    c++;
 - 
 
541 
  }
 - 
 
542 
  while ((dwe_typecon.attr)[c]);
 - 
 
543 
 
 - 
 
544 
  c = 0;
 - 
 
545 
  do {
 - 
 
546 
    long attr = (dwe_cnstraint.attr)[c];
 - 
 
547 
    set_abbrev_tag (&dwe_cnstraint, c, DW_TAG_DD_constraint, 0);
 - 
 
548 
    if (attr & H_RM)
 - 
 
549 
      set_attribute (DW_AT_DD_constraint_ref, DW_FORM_ref_addr);
 - 
 
550 
    if (attr & H_CV)
 - 
 
551 
      set_attribute (DW_AT_const_value, DW_FORM_indirect);
 - 
 
552 
    if (attr & H_TP)
 - 
 
553 
      set_attribute (DW_AT_type, DW_FORM_ref_addr);
 - 
 
554 
    set_attribute (0, 0);
 - 
 
555 
    c++;
 - 
 
556 
  }
 - 
 
557 
  while ((dwe_cnstraint.attr)[c]);
 - 
 
558 
 
 - 
 
559 
  set_abbrev_tag (&dwe_base_type, 0, DW_TAG_base_type, 0);
 - 
 
560 
  set_attribute (DW_AT_name, DW_FORM_string);
 - 
 
561 
  set_attribute (DW_AT_encoding, DW_FORM_data1);
 - 
 
562 
  set_attribute (DW_AT_byte_size, DW_FORM_udata);
 - 
 
563 
  set_attribute (0, 0);
 - 
 
564 
 
 - 
 
565 
  set_abbrev_tag (&dwe_cnst_type, 0, DW_TAG_const_type, 0);
 - 
 
566 
  set_attribute (DW_AT_type, DW_FORM_ref_addr);
 - 
 
567 
  set_attribute (0, 0);
 - 
 
568 
 
 317 
 
569 
  set_abbrev_tag (&dwe_vol_type, 0, DW_TAG_volatile_type, 0);
 318 
	set_abbrev_tag(&dwe_comp_unit, 0, DW_TAG_compile_unit, 1);
- 
 
 319 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
- 
 
 320 
	set_attribute(DW_AT_high_pc, DW_FORM_addr);
- 
 
 321 
	set_attribute(DW_AT_name, DW_FORM_string);
- 
 
 322 
	set_attribute(DW_AT_language, DW_FORM_udata);
570 
  set_attribute (DW_AT_type, DW_FORM_ref_addr);
 323 
	set_attribute(DW_AT_stmt_list, DW_FORM_ref_addr);
- 
 
 324 
	set_attribute(DW_AT_comp_dir, DW_FORM_string);
- 
 
 325 
	set_attribute(DW_AT_producer, DW_FORM_string);
- 
 
 326 
	set_attribute(DW_AT_identifier_case, DW_FORM_data1);
571 
  set_attribute (0, 0);
 327 
	set_attribute(0, 0);
572 
 
 328 
 
573 
  set_abbrev_tag (&dwe_clwd_type, 0, DW_TAG_DD_class_wide_type, 0);
 329 
	set_abbrev_tag(&dwe_cmac_unit, 0, DW_TAG_compile_unit, 1);
- 
 
 330 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
- 
 
 331 
	set_attribute(DW_AT_high_pc, DW_FORM_addr);
- 
 
 332 
	set_attribute(DW_AT_name, DW_FORM_string);
- 
 
 333 
	set_attribute(DW_AT_language, DW_FORM_udata);
574 
  set_attribute (DW_AT_type, DW_FORM_ref_addr);
 334 
	set_attribute(DW_AT_stmt_list, DW_FORM_ref_addr);
- 
 
 335 
	set_attribute(DW_AT_macro_info, DW_FORM_ref_addr);
- 
 
 336 
	set_attribute(DW_AT_comp_dir, DW_FORM_string);
- 
 
 337 
	set_attribute(DW_AT_producer, DW_FORM_string);
- 
 
 338 
	set_attribute(DW_AT_identifier_case, DW_FORM_data1);
575 
  set_attribute (0, 0);
 339 
	set_attribute(0, 0);
576 
 
 340 
 
577 
  set_abbrev_tag (&dwe_als_type, 0, DW_TAG_DD_aliased_type, 0);
 341 
	module_abbrev(&dwe_module, DW_TAG_module);
578 
  set_attribute (DW_AT_type, DW_FORM_ref_addr);
 - 
 
579 
  set_attribute (0, 0);
 - 
 
580 
 
 342 
 
581 
  set_abbrev_tag (&dwe_lim_type, 0, DW_TAG_DD_limited_type, 0);
 343 
	module_abbrev(&dwe_namespace, DW_TAG_DD_namespace);
582 
  set_attribute (DW_AT_type, DW_FORM_ref_addr);
 - 
 
583 
  set_attribute (0, 0);
 - 
 
584 
 
 344 
 
585 
  set_abbrev_tag (&dwe_ptr_type, 0, DW_TAG_pointer_type, 0);
 345 
	set_abbrev_tag(&dwe_subunit, 0, DW_TAG_DD_subunit, 1);
586 
  set_attribute (DW_AT_type, DW_FORM_ref_addr);
 346 
	set_attribute(DW_AT_DD_parent, DW_FORM_ref_addr);
- 
 
 347 
	set_attribute(DW_AT_artificial, DW_FORM_flag);
587 
  set_attribute (0, 0);
 348 
	set_attribute(0, 0);
588 
 
 349 
 
589 
  set_abbrev_tag (&dwe_hpptr_t, 0, DW_TAG_pointer_type, 0);
 350 
	set_abbrev_tag(&dwe_childunit, 0, DW_TAG_DD_child_unit, 1);
590 
  set_attribute (DW_AT_type, DW_FORM_ref_addr);
 351 
	set_attribute(DW_AT_DD_parent, DW_FORM_ref_addr);
591 
  set_attribute (DW_AT_DD_heap_only_pointer, DW_FORM_flag);
 - 
 
592 
  set_attribute (0, 0);
 352 
	set_attribute(0, 0);
593 
 
 353 
 
594 
  set_abbrev_tag (&dwe_ref_type, 0, DW_TAG_reference_type, 0);
 354 
	set_abbrev_tag(&dwe_child_acc, 0, DW_TAG_DD_child_unit, 1);
595 
  set_attribute (DW_AT_type, DW_FORM_ref_addr);
 355 
	set_attribute(DW_AT_DD_parent, DW_FORM_ref_addr);
- 
 
 356 
	set_attribute(DW_AT_accessibility, DW_FORM_data1);
596 
  set_attribute (0, 0);
 357 
	set_attribute(0, 0);
597 
 
 358 
 
- 
 
 359 
	c = 0;
- 
 
 360 
	do {
- 
 
 361 
		long attr = (dwe_import.attr)[c];
598 
  set_abbrev_tag (&dwe_pack_type, 0, DW_TAG_packed_type, 0);
 362 
		set_abbrev_tag(&dwe_import, c, DW_TAG_imported_declaration, 0);
- 
 
 363 
		if (attr & H_NM) {
- 
 
 364 
			set_attribute(DW_AT_name, DW_FORM_string);
- 
 
 365 
		}
- 
 
 366 
		if (attr & H_XY) {
- 
 
 367 
			set_decl_attributes();
- 
 
 368 
		}
- 
 
 369 
		if (attr & H_AC) {
- 
 
 370 
			set_attribute(DW_AT_accessibility, DW_FORM_data1);
- 
 
 371 
		}
599 
  set_attribute (DW_AT_type, DW_FORM_ref_addr);
 372 
		set_attribute(DW_AT_import, DW_FORM_ref_addr);
- 
 
 373 
		set_attribute(DW_AT_DD_import_kind, DW_FORM_udata);
- 
 
 374 
		if (attr & H_SS) {
- 
 
 375 
			set_attribute(DW_AT_start_scope, DW_FORM_data2);
- 
 
 376 
		}
600 
  set_attribute (0, 0);
 377 
		set_attribute(0, 0);
- 
 
 378 
		c++;
- 
 
 379 
	} while ((dwe_import.attr)[c]);
601 
 
 380 
 
- 
 
 381 
	c = 0;
- 
 
 382 
	do {
- 
 
 383 
		long attr = (dwe_import_p.attr)[c];
602 
  set_abbrev_tag (&dwe_arr_type, 0, DW_TAG_array_type, 1);
 384 
		set_abbrev_tag(&dwe_import_p, c, DW_TAG_imported_declaration, 1);
- 
 
 385 
		if (attr & H_NM) {
603 
  set_attribute (DW_AT_type, DW_FORM_ref_addr);
 386 
			set_attribute(DW_AT_name, DW_FORM_string);
- 
 
 387 
		}
- 
 
 388 
		if (attr & H_XY) {
- 
 
 389 
			set_decl_attributes();
- 
 
 390 
		}
- 
 
 391 
		if (attr & H_AC) {
- 
 
 392 
			set_attribute(DW_AT_accessibility, DW_FORM_data1);
- 
 
 393 
		}
604 
  set_attribute (DW_AT_stride_size, DW_FORM_indirect);
 394 
		set_attribute(DW_AT_import, DW_FORM_ref_addr);
605 
  set_attribute (DW_AT_ordering, DW_FORM_data1);
 395 
		set_attribute(DW_AT_DD_import_kind, DW_FORM_udata);
- 
 
 396 
		if (attr & H_SS) {
606 
  set_attribute (DW_AT_byte_size, DW_FORM_udata);
 397 
			set_attribute(DW_AT_start_scope, DW_FORM_data2);
- 
 
 398 
		}
607 
  set_attribute (0, 0);
 399 
		set_attribute(0, 0);
- 
 
 400 
		c++;
- 
 
 401 
	} while ((dwe_import_p.attr)[c]);
608 
 
 402 
 
- 
 
 403 
	c = 0;
- 
 
 404 
	do {
- 
 
 405 
		long attr = (dwe_proc.attr)[c];
609 
  set_abbrev_tag (&dwe_arr_dyn, 0, DW_TAG_array_type, 1);
 406 
		set_abbrev_tag(&dwe_proc, c, DW_TAG_subprogram, 1);
- 
 
 407 
		if (attr & H_AO) {
- 
 
 408 
			set_attribute(DW_AT_abstract_origin, DW_FORM_ref_addr);
- 
 
 409 
		}
- 
 
 410 
		if (attr & H_SP) {
- 
 
 411 
			set_attribute(DW_AT_specification, DW_FORM_ref_addr);
- 
 
 412 
		}
- 
 
 413 
		if (attr & H_DC) {
- 
 
 414 
			set_attribute(DW_AT_declaration, DW_FORM_flag);
- 
 
 415 
		}
- 
 
 416 
		if (attr & H_NM) {
- 
 
 417 
			set_attribute(DW_AT_name, DW_FORM_string);
- 
 
 418 
		}
- 
 
 419 
		if (attr & H_XY) {
- 
 
 420 
			set_decl_attributes();
- 
 
 421 
		}
- 
 
 422 
		if (attr & H_EX) {
- 
 
 423 
			set_attribute(DW_AT_external, DW_FORM_flag);
- 
 
 424 
		}
- 
 
 425 
		if (attr & H_AT) {
- 
 
 426 
			set_attribute(DW_AT_artificial, DW_FORM_flag);
- 
 
 427 
		}
- 
 
 428 
		if (attr & H_AC) {
- 
 
 429 
			set_attribute(DW_AT_accessibility, DW_FORM_data1);
- 
 
 430 
		}
- 
 
 431 
		if (attr & H_CC) {
- 
 
 432 
			set_attribute(DW_AT_calling_convention, DW_FORM_data1);
- 
 
 433 
		}
- 
 
 434 
		if (attr & H_TP) {
610 
  set_attribute (DW_AT_type, DW_FORM_ref_addr);
 435 
			set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 436 
		}
- 
 
 437 
		if (attr & H_PT) {
- 
 
 438 
			set_attribute(DW_AT_prototyped, DW_FORM_flag);
- 
 
 439 
		}
- 
 
 440 
		if (attr & H_IL) {
- 
 
 441 
			set_attribute(DW_AT_inline, DW_FORM_data1);
- 
 
 442 
		}
- 
 
 443 
		if (attr & H_VT) {
- 
 
 444 
			set_attribute(DW_AT_virtuality, DW_FORM_data1);
- 
 
 445 
		}
- 
 
 446 
		if (attr & H_VL) {
- 
 
 447 
			set_attribute(DW_AT_vtable_elem_location,
- 
 
 448 
				      DW_FORM_block1);
- 
 
 449 
		}
- 
 
 450 
		if (attr & H_SS) {
- 
 
 451 
			set_attribute(DW_AT_start_scope, DW_FORM_data2);
- 
 
 452 
		}
- 
 
 453 
		if (attr & H_PC) {
- 
 
 454 
			set_attribute(DW_AT_low_pc, DW_FORM_addr);
- 
 
 455 
			set_attribute(DW_AT_high_pc, DW_FORM_addr);
- 
 
 456 
			set_attribute(DW_AT_return_addr, DW_FORM_block1);
- 
 
 457 
			set_attribute(DW_AT_frame_base, DW_FORM_block1);
- 
 
 458 
		}
- 
 
 459 
		if (attr & H_SL) {
- 
 
 460 
			set_attribute(DW_AT_static_link, DW_FORM_block1);
- 
 
 461 
		}
- 
 
 462 
		if (attr & H_EXTN) {
- 
 
 463 
			set_attribute(DW_AT_DD_indirect_attributes,
- 
 
 464 
				      DW_FORM_block2);
- 
 
 465 
		}
- 
 
 466 
		if (attr & H_EL) {
- 
 
 467 
			set_attribute(DW_AT_DD_elaboration, DW_FORM_ref_addr);
- 
 
 468 
		}
- 
 
 469 
		if (attr & H_GN) {
- 
 
 470 
			set_attribute(DW_AT_DD_generic_name, DW_FORM_string);
- 
 
 471 
		}
- 
 
 472 
		if (attr & H_RP) {
611 
  set_attribute (DW_AT_stride_size, DW_FORM_indirect);
 473 
			set_attribute(DW_AT_DD_repn, DW_FORM_indirect);
- 
 
 474 
		}
- 
 
 475 
		if (attr & H_LN) {
612 
  set_attribute (DW_AT_ordering, DW_FORM_data1);
 476 
			set_attribute(DW_AT_language, DW_FORM_udata);
- 
 
 477 
		}
613 
  set_attribute (0, 0);
 478 
		set_attribute(0, 0);
- 
 
 479 
		c++;
- 
 
 480 
	} while ((dwe_proc.attr)[c]);
614 
 
 481 
 
615 
  c = 0;
 - 
 
616 
  do {
 - 
 
617 
    long attr = (dwe_subr_type.attr)[c];
 - 
 
618 
    set_abbrev_tag (&dwe_subr_type, c, DW_TAG_subrange_type, 0);
 482 
	set_abbrev_tag(&dwe_entrypt, 0, DW_TAG_entry_point, 0);
619 
    if (attr & H_TP)
 - 
 
620 
      set_attribute (DW_AT_type, DW_FORM_ref_addr);
 - 
 
621 
    if (attr & H_SZ)
 - 
 
622 
      set_attribute (DW_AT_byte_size, DW_FORM_udata);
 - 
 
623 
    if (attr & H_LB)
 - 
 
624 
      set_attribute (DW_AT_lower_bound, DW_FORM_indirect);
 - 
 
625 
    if (attr & H_UB)
 - 
 
626 
      set_attribute (DW_AT_upper_bound, DW_FORM_indirect);
 - 
 
627 
    if (attr & H_CN)
 - 
 
628 
      set_attribute (DW_AT_count, DW_FORM_indirect);
 - 
 
629 
    set_attribute (0, 0);
 483 
	set_attribute(0, 0);
630 
    c++;
 - 
 
631 
  }
 - 
 
632 
  while ((dwe_subr_type.attr)[c]);
 - 
 
633 
 
 484 
 
634 
  c = 0;
 - 
 
635 
  do {
 - 
 
636 
    long attr = (dwe_enum_type.attr)[c];
 - 
 
637 
    set_abbrev_tag (&dwe_enum_type, c, DW_TAG_enumeration_type, 1);
 485 
	obj_abbrev(&dwe_param, DW_TAG_formal_parameter);
638 
    if (attr & H_SP)
 - 
 
639 
      set_attribute (DW_AT_specification, DW_FORM_ref_addr);
 - 
 
640 
    if (attr & H_DC)
 - 
 
641 
      set_attribute (DW_AT_declaration, DW_FORM_flag);
 - 
 
642 
    if (attr & H_NM)
 - 
 
643 
      set_attribute (DW_AT_name, DW_FORM_string);
 - 
 
644 
    if (attr & H_XY)
 - 
 
645 
      set_decl_attributes ();
 - 
 
646 
    if (attr & H_SZ)
 - 
 
647 
      set_attribute (DW_AT_byte_size, DW_FORM_udata);
 - 
 
648 
    if (attr & H_NW)
 - 
 
649 
      set_attribute (DW_AT_DD_newtype, DW_FORM_flag);
 - 
 
650 
    set_attribute (0, 0);
 - 
 
651 
    c++;
 - 
 
652 
  }
 - 
 
653 
  while ((dwe_enum_type.attr)[c]);
 - 
 
654 
 
 486 
 
655 
  set_abbrev_tag (&dwe_enum_tor, 0, DW_TAG_enumerator, 0);
 487 
	set_abbrev_tag(&dwe_formal, 0, DW_TAG_formal_parameter, 0);
656 
  set_attribute (DW_AT_name, DW_FORM_string);
 488 
	set_attribute(DW_AT_type, DW_FORM_ref_addr);
657 
  set_attribute (DW_AT_const_value, DW_FORM_indirect);
 - 
 
658 
  set_attribute (0, 0);
 489 
	set_attribute(0, 0);
659 
 
 490 
 
660 
  set_abbrev_tag (&dwe_enum_char, 0, DW_TAG_enumerator, 0);
 491 
	set_abbrev_tag(&dwe_opt_par, 0, DW_TAG_unspecified_parameters, 0);
661 
  set_attribute (DW_AT_name, DW_FORM_udata);	/* character constant */
 - 
 
662 
  set_attribute (DW_AT_const_value, DW_FORM_indirect);
 - 
 
663 
  set_attribute (0, 0);
 492 
	set_attribute(0, 0);
664 
 
 493 
 
665 
  struct_abbrev (&dwe_struct_t, DW_TAG_structure_type);
 494 
	set_abbrev_tag(&dwe_thrown_t, 0, DW_TAG_thrown_type, 0);
- 
 
 495 
	set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 496 
	set_attribute(0, 0);
666 
 
 497 
 
667 
  struct_abbrev (&dwe_union_t, DW_TAG_union_type);
 498 
	set_abbrev_tag(&dwe_inl_call, 0, DW_TAG_inlined_subroutine, 1);
- 
 
 499 
	set_attribute(DW_AT_abstract_origin, DW_FORM_ref_addr);
- 
 
 500 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
- 
 
 501 
	set_attribute(DW_AT_high_pc, DW_FORM_addr);
- 
 
 502 
	set_attribute(0, 0);
668 
 
 503 
 
669 
  struct_abbrev (&dwe_class_t, DW_TAG_class_type);
 504 
	set_abbrev_tag(&dwe_inl_opnd, 0, DW_TAG_inlined_subroutine, 1);
- 
 
 505 
	set_attribute(DW_AT_abstract_origin, DW_FORM_ref_addr);
- 
 
 506 
	set_attribute(0, 0);
670 
 
 507 
 
- 
 
 508 
	c = 0;
- 
 
 509 
	do {
- 
 
 510 
		long attr = (dwe_scope.attr)[c];
- 
 
 511 
		set_abbrev_tag(&dwe_scope, c, DW_TAG_lexical_block, 1);
- 
 
 512 
		if (attr & H_NM) {
- 
 
 513 
			set_attribute(DW_AT_name, DW_FORM_string);
- 
 
 514 
		}
- 
 
 515 
		if (attr & H_XY) {
- 
 
 516 
			set_decl_attributes();
- 
 
 517 
		}
- 
 
 518 
		if (attr & H_PC) {
- 
 
 519 
			set_attribute(DW_AT_low_pc, DW_FORM_addr);
- 
 
 520 
			set_attribute(DW_AT_high_pc, DW_FORM_addr);
- 
 
 521 
		}
- 
 
 522 
		if (attr & H_BG) {
- 
 
 523 
			set_attribute(DW_AT_DD_begin, DW_FORM_addr);
- 
 
 524 
		}
- 
 
 525 
		set_attribute(0, 0);
- 
 
 526 
		c++;
- 
 
 527 
	} while ((dwe_scope.attr)[c]);
- 
 
 528 
 
- 
 
 529 
	set_abbrev_tag(&dwe_fragment, 0, DW_TAG_DD_lexical_fragment, 1);
- 
 
 530 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
- 
 
 531 
	set_attribute(DW_AT_high_pc, DW_FORM_addr);
- 
 
 532 
	set_attribute(0, 0);
- 
 
 533 
 
- 
 
 534 
	set_abbrev_tag(&dwe_label, 0, DW_TAG_label, 0);
- 
 
 535 
	set_attribute(DW_AT_name, DW_FORM_string);
- 
 
 536 
	set_decl_attributes();
- 
 
 537 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
- 
 
 538 
	set_attribute(0, 0);
- 
 
 539 
 
- 
 
 540 
	set_abbrev_tag(&dwe_with, 0, DW_TAG_with_stmt, 1);
- 
 
 541 
	set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 542 
	set_attribute(DW_AT_location, DW_FORM_block1);
- 
 
 543 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
- 
 
 544 
	set_attribute(DW_AT_high_pc, DW_FORM_addr);
- 
 
 545 
	set_attribute(0, 0);
- 
 
 546 
 
- 
 
 547 
	set_abbrev_tag(&dwe_try, 0, DW_TAG_try_block, 1);
- 
 
 548 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
- 
 
 549 
	set_attribute(DW_AT_high_pc, DW_FORM_addr);
- 
 
 550 
	set_attribute(0, 0);
- 
 
 551 
 
- 
 
 552 
	set_abbrev_tag(&dwe_catch, 0, DW_TAG_catch_block, 1);
- 
 
 553 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
- 
 
 554 
	set_attribute(DW_AT_high_pc, DW_FORM_addr);
- 
 
 555 
	set_attribute(0, 0);
- 
 
 556 
 
- 
 
 557 
	obj_abbrev(&dwe_variable, DW_TAG_variable);
- 
 
 558 
	obj_abbrev(&dwe_constant, DW_TAG_constant);
- 
 
 559 
 
- 
 
 560 
	set_abbrev_tag(&dwe_tmpl_type, 0, DW_TAG_template_type_param, 0);
- 
 
 561 
	set_attribute(DW_AT_name, DW_FORM_string);
- 
 
 562 
	set_decl_attributes();
- 
 
 563 
	set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 564 
	set_attribute(0, 0);
- 
 
 565 
 
- 
 
 566 
	set_abbrev_tag(&dwe_tmpl_val, 0, DW_TAG_template_value_param, 0);
- 
 
 567 
	set_attribute(DW_AT_name, DW_FORM_string);
- 
 
 568 
	set_decl_attributes();
- 
 
 569 
	set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 570 
	set_attribute(DW_AT_const_value, DW_FORM_indirect);
- 
 
 571 
	set_attribute(0, 0);
- 
 
 572 
 
- 
 
 573 
	set_abbrev_tag(&dwe_tmpl_proc, 0, DW_TAG_DD_template_proc_param, 0);
- 
 
 574 
	set_attribute(DW_AT_name, DW_FORM_string);
- 
 
 575 
	set_decl_attributes();
- 
 
 576 
	set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 577 
	set_attribute(0, 0);
- 
 
 578 
 
- 
 
 579 
	set_abbrev_tag(&dwe_tmpl_mod, 0, DW_TAG_DD_template_module_param, 0);
- 
 
 580 
	set_attribute(DW_AT_name, DW_FORM_string);
- 
 
 581 
	set_decl_attributes();
- 
 
 582 
	set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 583 
	set_attribute(0, 0);
- 
 
 584 
 
- 
 
 585 
	c = 0;
- 
 
 586 
	do {
- 
 
 587 
		long attr = (dwe_typedef.attr)[c];
- 
 
 588 
		set_abbrev_tag(&dwe_typedef, c, DW_TAG_typedef, 0);
- 
 
 589 
		if (attr & H_AO) {
- 
 
 590 
			set_attribute(DW_AT_abstract_origin, DW_FORM_ref_addr);
- 
 
 591 
		}
- 
 
 592 
		if (attr & H_SP) {
- 
 
 593 
			set_attribute(DW_AT_specification, DW_FORM_ref_addr);
- 
 
 594 
		}
- 
 
 595 
		if (attr & H_DC) {
- 
 
 596 
			set_attribute(DW_AT_declaration, DW_FORM_flag);
- 
 
 597 
		}
- 
 
 598 
		if (attr & H_NM) {
- 
 
 599 
			set_attribute(DW_AT_name, DW_FORM_string);
- 
 
 600 
		}
- 
 
 601 
		if (attr & H_XY) {
- 
 
 602 
			set_decl_attributes();
- 
 
 603 
		}
- 
 
 604 
		if (attr & H_AT) {
- 
 
 605 
			set_attribute(DW_AT_artificial, DW_FORM_flag);
- 
 
 606 
		}
- 
 
 607 
		if (attr & H_AC) {
- 
 
 608 
			set_attribute(DW_AT_accessibility, DW_FORM_data1);
- 
 
 609 
		}
- 
 
 610 
		if (attr & H_TP) {
- 
 
 611 
			set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 612 
		}
- 
 
 613 
		if (attr & H_NW) {
- 
 
 614 
			set_attribute(DW_AT_DD_newtype, DW_FORM_flag);
- 
 
 615 
		}
- 
 
 616 
		if (attr & H_AD) {
- 
 
 617 
			set_attribute(DW_AT_DD_ada_derived, DW_FORM_flag);
- 
 
 618 
		}
- 
 
 619 
		set_attribute(0, 0);
- 
 
 620 
		c++;
- 
 
 621 
	} while ((dwe_typedef.attr)[c]);
- 
 
 622 
 
- 
 
 623 
	c = 0;
- 
 
 624 
	do {
- 
 
 625 
		long attr = (dwe_typecon.attr)[c];
- 
 
 626 
		set_abbrev_tag(&dwe_typecon, c, DW_TAG_typedef, 1);
- 
 
 627 
		if (attr & H_SP) {
- 
 
 628 
			set_attribute(DW_AT_specification, DW_FORM_ref_addr);
- 
 
 629 
		}
- 
 
 630 
		if (attr & H_DC) {
- 
 
 631 
			set_attribute(DW_AT_declaration, DW_FORM_flag);
- 
 
 632 
		}
- 
 
 633 
		if (attr & H_NM) {
- 
 
 634 
			set_attribute(DW_AT_name, DW_FORM_string);
- 
 
 635 
		}
- 
 
 636 
		if (attr & H_XY) {
- 
 
 637 
			set_decl_attributes();
- 
 
 638 
		}
- 
 
 639 
		if (attr & H_AT) {
- 
 
 640 
			set_attribute(DW_AT_artificial, DW_FORM_flag);
- 
 
 641 
		}
- 
 
 642 
		if (attr & H_AC) {
- 
 
 643 
			set_attribute(DW_AT_accessibility, DW_FORM_data1);
- 
 
 644 
		}
- 
 
 645 
		if (attr & H_TP) {
- 
 
 646 
			set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 647 
		}
- 
 
 648 
		if (attr & H_NW) {
- 
 
 649 
			set_attribute(DW_AT_DD_newtype, DW_FORM_flag);
- 
 
 650 
		}
- 
 
 651 
		if (attr & H_AD) {
- 
 
 652 
			set_attribute(DW_AT_DD_ada_derived, DW_FORM_flag);
- 
 
 653 
		}
- 
 
 654 
		set_attribute(0, 0);
- 
 
 655 
		c++;
- 
 
 656 
	} while ((dwe_typecon.attr)[c]);
- 
 
 657 
 
671 
  c = 0;
 658 
	c = 0;
672 
  do {
 659 
	do {
- 
 
 660 
		long attr = (dwe_cnstraint.attr)[c];
- 
 
 661 
		set_abbrev_tag(&dwe_cnstraint, c, DW_TAG_DD_constraint, 0);
- 
 
 662 
		if (attr & H_RM) {
- 
 
 663 
			set_attribute(DW_AT_DD_constraint_ref,
- 
 
 664 
				      DW_FORM_ref_addr);
- 
 
 665 
		}
- 
 
 666 
		if (attr & H_CV) {
- 
 
 667 
			set_attribute(DW_AT_const_value, DW_FORM_indirect);
- 
 
 668 
		}
- 
 
 669 
		if (attr & H_TP) {
- 
 
 670 
			set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 671 
		}
- 
 
 672 
		set_attribute(0, 0);
- 
 
 673 
		c++;
- 
 
 674 
	} while ((dwe_cnstraint.attr)[c]);
- 
 
 675 
 
- 
 
 676 
	set_abbrev_tag(&dwe_base_type, 0, DW_TAG_base_type, 0);
- 
 
 677 
	set_attribute(DW_AT_name, DW_FORM_string);
- 
 
 678 
	set_attribute(DW_AT_encoding, DW_FORM_data1);
- 
 
 679 
	set_attribute(DW_AT_byte_size, DW_FORM_udata);
- 
 
 680 
	set_attribute(0, 0);
- 
 
 681 
 
- 
 
 682 
	set_abbrev_tag(&dwe_cnst_type, 0, DW_TAG_const_type, 0);
- 
 
 683 
	set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 684 
	set_attribute(0, 0);
- 
 
 685 
 
- 
 
 686 
	set_abbrev_tag(&dwe_vol_type, 0, DW_TAG_volatile_type, 0);
- 
 
 687 
	set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 688 
	set_attribute(0, 0);
- 
 
 689 
 
- 
 
 690 
	set_abbrev_tag(&dwe_clwd_type, 0, DW_TAG_DD_class_wide_type, 0);
- 
 
 691 
	set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 692 
	set_attribute(0, 0);
- 
 
 693 
 
- 
 
 694 
	set_abbrev_tag(&dwe_als_type, 0, DW_TAG_DD_aliased_type, 0);
- 
 
 695 
	set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 696 
	set_attribute(0, 0);
- 
 
 697 
 
- 
 
 698 
	set_abbrev_tag(&dwe_lim_type, 0, DW_TAG_DD_limited_type, 0);
- 
 
 699 
	set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 700 
	set_attribute(0, 0);
- 
 
 701 
 
- 
 
 702 
	set_abbrev_tag(&dwe_ptr_type, 0, DW_TAG_pointer_type, 0);
- 
 
 703 
	set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 704 
	set_attribute(0, 0);
- 
 
 705 
 
- 
 
 706 
	set_abbrev_tag(&dwe_hpptr_t, 0, DW_TAG_pointer_type, 0);
- 
 
 707 
	set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 708 
	set_attribute(DW_AT_DD_heap_only_pointer, DW_FORM_flag);
- 
 
 709 
	set_attribute(0, 0);
- 
 
 710 
 
- 
 
 711 
	set_abbrev_tag(&dwe_ref_type, 0, DW_TAG_reference_type, 0);
- 
 
 712 
	set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 713 
	set_attribute(0, 0);
- 
 
 714 
 
- 
 
 715 
	set_abbrev_tag(&dwe_pack_type, 0, DW_TAG_packed_type, 0);
- 
 
 716 
	set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 717 
	set_attribute(0, 0);
- 
 
 718 
 
- 
 
 719 
	set_abbrev_tag(&dwe_arr_type, 0, DW_TAG_array_type, 1);
- 
 
 720 
	set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 721 
	set_attribute(DW_AT_stride_size, DW_FORM_indirect);
- 
 
 722 
	set_attribute(DW_AT_ordering, DW_FORM_data1);
- 
 
 723 
	set_attribute(DW_AT_byte_size, DW_FORM_udata);
- 
 
 724 
	set_attribute(0, 0);
- 
 
 725 
 
- 
 
 726 
	set_abbrev_tag(&dwe_arr_dyn, 0, DW_TAG_array_type, 1);
- 
 
 727 
	set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 728 
	set_attribute(DW_AT_stride_size, DW_FORM_indirect);
- 
 
 729 
	set_attribute(DW_AT_ordering, DW_FORM_data1);
- 
 
 730 
	set_attribute(0, 0);
- 
 
 731 
 
- 
 
 732 
	c = 0;
- 
 
 733 
	do {
- 
 
 734 
		long attr = (dwe_subr_type.attr)[c];
- 
 
 735 
		set_abbrev_tag(&dwe_subr_type, c, DW_TAG_subrange_type, 0);
- 
 
 736 
		if (attr & H_TP) {
- 
 
 737 
			set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 738 
		}
- 
 
 739 
		if (attr & H_SZ) {
- 
 
 740 
			set_attribute(DW_AT_byte_size, DW_FORM_udata);
- 
 
 741 
		}
- 
 
 742 
		if (attr & H_LB) {
- 
 
 743 
			set_attribute(DW_AT_lower_bound, DW_FORM_indirect);
- 
 
 744 
		}
- 
 
 745 
		if (attr & H_UB) {
- 
 
 746 
			set_attribute(DW_AT_upper_bound, DW_FORM_indirect);
- 
 
 747 
		}
- 
 
 748 
		if (attr & H_CN) {
- 
 
 749 
			set_attribute(DW_AT_count, DW_FORM_indirect);
- 
 
 750 
		}
- 
 
 751 
		set_attribute(0, 0);
- 
 
 752 
		c++;
- 
 
 753 
	} while ((dwe_subr_type.attr)[c]);
- 
 
 754 
 
- 
 
 755 
	c = 0;
- 
 
 756 
	do {
- 
 
 757 
		long attr = (dwe_enum_type.attr)[c];
- 
 
 758 
		set_abbrev_tag(&dwe_enum_type, c, DW_TAG_enumeration_type, 1);
- 
 
 759 
		if (attr & H_SP) {
- 
 
 760 
			set_attribute(DW_AT_specification, DW_FORM_ref_addr);
- 
 
 761 
		}
- 
 
 762 
		if (attr & H_DC) {
- 
 
 763 
			set_attribute(DW_AT_declaration, DW_FORM_flag);
- 
 
 764 
		}
- 
 
 765 
		if (attr & H_NM) {
- 
 
 766 
			set_attribute(DW_AT_name, DW_FORM_string);
- 
 
 767 
		}
- 
 
 768 
		if (attr & H_XY) {
- 
 
 769 
			set_decl_attributes();
- 
 
 770 
		}
- 
 
 771 
		if (attr & H_SZ) {
- 
 
 772 
			set_attribute(DW_AT_byte_size, DW_FORM_udata);
- 
 
 773 
		}
- 
 
 774 
		if (attr & H_NW) {
- 
 
 775 
			set_attribute(DW_AT_DD_newtype, DW_FORM_flag);
- 
 
 776 
		}
- 
 
 777 
		set_attribute(0, 0);
- 
 
 778 
		c++;
- 
 
 779 
	} while ((dwe_enum_type.attr)[c]);
- 
 
 780 
 
- 
 
 781 
	set_abbrev_tag(&dwe_enum_tor, 0, DW_TAG_enumerator, 0);
- 
 
 782 
	set_attribute(DW_AT_name, DW_FORM_string);
- 
 
 783 
	set_attribute(DW_AT_const_value, DW_FORM_indirect);
- 
 
 784 
	set_attribute(0, 0);
- 
 
 785 
 
- 
 
 786 
	set_abbrev_tag(&dwe_enum_char, 0, DW_TAG_enumerator, 0);
- 
 
 787 
	set_attribute (DW_AT_name, DW_FORM_udata);	/* character constant */
- 
 
 788 
	set_attribute(DW_AT_const_value, DW_FORM_indirect);
- 
 
 789 
	set_attribute(0, 0);
- 
 
 790 
 
- 
 
 791 
	struct_abbrev(&dwe_struct_t, DW_TAG_structure_type);
- 
 
 792 
 
- 
 
 793 
	struct_abbrev(&dwe_union_t, DW_TAG_union_type);
- 
 
 794 
 
- 
 
 795 
	struct_abbrev(&dwe_class_t, DW_TAG_class_type);
- 
 
 796 
 
- 
 
 797 
	c = 0;
- 
 
 798 
	do {
673 
    long attr = (dwe_member.attr)[c];
 799 
		long attr = (dwe_member.attr)[c];
674 
    set_abbrev_tag (&dwe_member, c, DW_TAG_member, 0);
 800 
		set_abbrev_tag(&dwe_member, c, DW_TAG_member, 0);
675 
    if (attr & H_NM)
 801 
		if (attr & H_NM) {
676 
      set_attribute (DW_AT_name, DW_FORM_string);
 802 
			set_attribute(DW_AT_name, DW_FORM_string);
- 
 
 803 
		}
677 
    if (attr & H_XY)
 804 
		if (attr & H_XY) {
678 
      set_decl_attributes ();
 805 
			set_decl_attributes();
- 
 
 806 
		}
679 
    if (attr & H_AC)
 807 
		if (attr & H_AC) {
680 
      set_attribute (DW_AT_accessibility, DW_FORM_data1);
 808 
			set_attribute(DW_AT_accessibility, DW_FORM_data1);
- 
 
 809 
		}
681 
    if (attr & H_TP)
 810 
		if (attr & H_TP) {
682 
      set_attribute (DW_AT_type, DW_FORM_ref_addr);
 811 
			set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 812 
		}
683 
    if (attr & H_LC)
 813 
		if (attr & H_LC) {
684 
      set_attribute (DW_AT_data_member_location, DW_FORM_block1);
 814 
			set_attribute(DW_AT_data_member_location,
- 
 
 815 
				      DW_FORM_block1);
- 
 
 816 
		}
685 
    if (attr & H_BF) {
 817 
		if (attr & H_BF) {
686 
      set_attribute (DW_AT_bit_offset, DW_FORM_data1);
 818 
			set_attribute(DW_AT_bit_offset, DW_FORM_data1);
687 
      set_attribute (DW_AT_bit_size, DW_FORM_data1);
 819 
			set_attribute(DW_AT_bit_size, DW_FORM_data1);
688 
    }
 820 
		}
689 
    if (attr & H_DS)
 821 
		if (attr & H_DS) {
690 
      set_attribute (DW_AT_DD_discriminant, DW_FORM_flag);
 822 
			set_attribute(DW_AT_DD_discriminant, DW_FORM_flag);
- 
 
 823 
		}
691 
#ifdef H_DX
 824 
#ifdef H_DX
692 
    if (attr & H_DX)
 825 
		if (attr & H_DX) {
693 
      set_attribute (DW_AT_DD_computed_default, DW_FORM_flag);
 826 
			set_attribute(DW_AT_DD_computed_default, DW_FORM_flag);
- 
 
 827 
		}
694 
#endif
 828 
#endif
695 
    if (attr & H_DF)
 829 
		if (attr & H_DF) {
696 
      set_attribute (DW_AT_default_value, DW_FORM_indirect);
 830 
			set_attribute(DW_AT_default_value, DW_FORM_indirect);
- 
 
 831 
		}
697 
    set_attribute (0, 0);
 832 
		set_attribute(0, 0);
698 
    c++;
 833 
		c++;
699 
  }
 - 
 
700 
  while ((dwe_member.attr)[c]);
 834 
	} while ((dwe_member.attr)[c]);
701 
 
 - 
 
702 
  set_abbrev_tag (&dwe_varpart, 0, DW_TAG_variant_part, 1);
 - 
 
703 
  set_attribute (DW_AT_discr, DW_FORM_ref_addr);
 - 
 
704 
  set_attribute (0, 0);
 - 
 
705 
 
 835 
 
706 
  set_abbrev_tag (&dwe_varpart_t, 0, DW_TAG_variant_part, 1);
 836 
	set_abbrev_tag(&dwe_varpart, 0, DW_TAG_variant_part, 1);
707 
  set_attribute (DW_AT_type, DW_FORM_ref_addr);
 837 
	set_attribute(DW_AT_discr, DW_FORM_ref_addr);
708 
  set_attribute (0, 0);
 838 
	set_attribute(0, 0);
709 
 
 839 
 
710 
  set_abbrev_tag (&dwe_variant_0, 0, DW_TAG_variant, 1);
 840 
	set_abbrev_tag(&dwe_varpart_t, 0, DW_TAG_variant_part, 1);
- 
 
 841 
	set_attribute(DW_AT_type, DW_FORM_ref_addr);
711 
  set_attribute (0, 0);
 842 
	set_attribute(0, 0);
712 
 
 843 
 
713 
  set_abbrev_tag (&dwe_variant_1, 0, DW_TAG_variant, 1);
 844 
	set_abbrev_tag(&dwe_variant_0, 0, DW_TAG_variant, 1);
714 
  set_attribute (DW_AT_discr_value, DW_FORM_indirect);
 - 
 
715 
  set_attribute (0, 0);
 845 
	set_attribute(0, 0);
716 
 
 846 
 
717 
  set_abbrev_tag (&dwe_variant_n, 0, DW_TAG_variant, 1);
 847 
	set_abbrev_tag(&dwe_variant_1, 0, DW_TAG_variant, 1);
718 
  set_attribute (DW_AT_discr_list, DW_FORM_block2);
 848 
	set_attribute(DW_AT_discr_value, DW_FORM_indirect);
719 
  set_attribute (0, 0);
 849 
	set_attribute(0, 0);
720 
 
 850 
 
721 
  c = 0;
 - 
 
722 
  do {
 - 
 
723 
    long attr = (dwe_inheritce.attr)[c];
 - 
 
724 
    set_abbrev_tag (&dwe_inheritce, c, DW_TAG_inheritance, 0);
 851 
	set_abbrev_tag(&dwe_variant_n, 0, DW_TAG_variant, 1);
725 
    if (attr & H_XY)
 - 
 
726 
      set_decl_attributes ();
 - 
 
727 
    if (attr & H_TP)
 - 
 
728 
      set_attribute (DW_AT_type, DW_FORM_ref_addr);
 - 
 
729 
    if (attr & H_LC)
 - 
 
730 
      set_attribute (DW_AT_data_member_location, DW_FORM_block1);
 - 
 
731 
    if (attr & H_AC)
 - 
 
732 
      set_attribute (DW_AT_accessibility, DW_FORM_data1);
 - 
 
733 
    if (attr & H_VT)
 - 
 
734 
      set_attribute (DW_AT_virtuality, DW_FORM_data1);
 852 
	set_attribute(DW_AT_discr_list, DW_FORM_block2);
735 
    set_attribute (0, 0);
 853 
	set_attribute(0, 0);
736 
    c++;
 - 
 
737 
  }
 - 
 
738 
  while ((dwe_inheritce.attr)[c]);
 - 
 
739 
 
 854 
 
- 
 
 855 
	c = 0;
- 
 
 856 
	do {
- 
 
 857 
		long attr = (dwe_inheritce.attr)[c];
740 
  set_abbrev_tag (&dwe_friend, 0, DW_TAG_friend, 0);
 858 
		set_abbrev_tag(&dwe_inheritce, c, DW_TAG_inheritance, 0);
- 
 
 859 
		if (attr & H_XY) {
- 
 
 860 
			set_decl_attributes();
- 
 
 861 
		}
- 
 
 862 
		if (attr & H_TP) {
741 
  set_attribute (DW_AT_friend, DW_FORM_ref_addr);
 863 
			set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 864 
		}
- 
 
 865 
		if (attr & H_LC) {
- 
 
 866 
			set_attribute(DW_AT_data_member_location,
- 
 
 867 
				      DW_FORM_block1);
- 
 
 868 
		}
- 
 
 869 
		if (attr & H_AC) {
- 
 
 870 
			set_attribute(DW_AT_accessibility, DW_FORM_data1);
- 
 
 871 
		}
- 
 
 872 
		if (attr & H_VT) {
- 
 
 873 
			set_attribute(DW_AT_virtuality, DW_FORM_data1);
- 
 
 874 
		}
742 
  set_attribute (0, 0);
 875 
		set_attribute(0, 0);
- 
 
 876 
		c++;
- 
 
 877 
	} while ((dwe_inheritce.attr)[c]);
743 
 
 878 
 
744 
  set_abbrev_tag (&dwe_ptrmem_t, 0, DW_TAG_ptr_to_member_type, 0);
 879 
	set_abbrev_tag(&dwe_friend, 0, DW_TAG_friend, 0);
745 
  set_attribute (DW_AT_containing_type, DW_FORM_ref_addr);
 - 
 
746 
  set_attribute (DW_AT_type, DW_FORM_ref_addr);
 880 
	set_attribute(DW_AT_friend, DW_FORM_ref_addr);
747 
  set_attribute (DW_AT_byte_size, DW_FORM_udata);
 - 
 
748 
  set_attribute (0, 0);
 881 
	set_attribute(0, 0);
749 
 
 882 
 
750 
  c = 0;
 - 
 
751 
  do {
 - 
 
752 
    long attr = (dwe_ind_mem.attr)[c];
 - 
 
753 
    set_abbrev_tag (&dwe_ind_mem, c, DW_TAG_DD_indirect_member, 0);
 883 
	set_abbrev_tag(&dwe_ptrmem_t, 0, DW_TAG_ptr_to_member_type, 0);
754 
    if (attr & H_NM)
 - 
 
755 
      set_attribute (DW_AT_name, DW_FORM_string);
 884 
	set_attribute(DW_AT_containing_type, DW_FORM_ref_addr);
756 
    if (attr & H_XY)
 - 
 
757 
      set_decl_attributes ();
 - 
 
758 
    if (attr & H_TP)
 - 
 
759 
      set_attribute (DW_AT_type, DW_FORM_ref_addr);
 885 
	set_attribute(DW_AT_type, DW_FORM_ref_addr);
760 
    if (attr & H_LC)
 - 
 
761 
      set_attribute (DW_AT_data_member_location, DW_FORM_block1);
 886 
	set_attribute(DW_AT_byte_size, DW_FORM_udata);
762 
    set_attribute (0, 0);
 887 
	set_attribute(0, 0);
763 
    c++;
 - 
 
764 
  }
 - 
 
765 
  while ((dwe_ind_mem.attr)[c]);
 - 
 
766 
 
 888 
 
- 
 
 889 
	c = 0;
- 
 
 890 
	do {
- 
 
 891 
		long attr = (dwe_ind_mem.attr)[c];
767 
  set_abbrev_tag (&dwe_proc_type, 0, DW_TAG_subroutine_type, 1);
 892 
		set_abbrev_tag(&dwe_ind_mem, c, DW_TAG_DD_indirect_member, 0);
- 
 
 893 
		if (attr & H_NM) {
- 
 
 894 
			set_attribute(DW_AT_name, DW_FORM_string);
- 
 
 895 
		}
- 
 
 896 
		if (attr & H_XY) {
- 
 
 897 
			set_decl_attributes();
- 
 
 898 
		}
- 
 
 899 
		if (attr & H_TP) {
768 
  set_attribute (DW_AT_type, DW_FORM_ref_addr);
 900 
			set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 901 
		}
- 
 
 902 
		if (attr & H_LC) {
- 
 
 903 
			set_attribute(DW_AT_data_member_location,
- 
 
 904 
				      DW_FORM_block1);
- 
 
 905 
		}
769 
  set_attribute (0, 0);
 906 
		set_attribute(0, 0);
- 
 
 907 
		c++;
- 
 
 908 
	} while ((dwe_ind_mem.attr)[c]);
770 
 
 909 
 
771 
  set_abbrev_tag (&dwe_procv_t, 0, DW_TAG_subroutine_type, 1);
 910 
	set_abbrev_tag(&dwe_proc_type, 0, DW_TAG_subroutine_type, 1);
- 
 
 911 
	set_attribute(DW_AT_type, DW_FORM_ref_addr);
772 
  set_attribute (0, 0);
 912 
	set_attribute(0, 0);
773 
 
 913 
 
774 
  set_abbrev_tag (&dwe_string_t, 0, DW_TAG_string_type, 0);
 914 
	set_abbrev_tag(&dwe_procv_t, 0, DW_TAG_subroutine_type, 1);
775 
  set_attribute (DW_AT_string_length, DW_FORM_block1);
 - 
 
776 
  set_attribute (DW_AT_byte_size, DW_FORM_udata);
 - 
 
777 
  set_attribute (0, 0);
 915 
	set_attribute(0, 0);
778 
 
 916 
 
779 
  set_abbrev_tag (&dwe_stringc_t, 0, DW_TAG_string_type, 0);
 917 
	set_abbrev_tag(&dwe_string_t, 0, DW_TAG_string_type, 0);
- 
 
 918 
	set_attribute(DW_AT_string_length, DW_FORM_block1);
780 
  set_attribute (DW_AT_byte_size, DW_FORM_udata);
 919 
	set_attribute(DW_AT_byte_size, DW_FORM_udata);
781 
  set_attribute (0, 0);
 920 
	set_attribute(0, 0);
782 
 
 921 
 
783 
  c = 0;
 - 
 
784 
  do {
 - 
 
785 
    long attr = (dwe_file_t.attr)[c];
 - 
 
786 
    set_abbrev_tag (&dwe_file_t, c, DW_TAG_file_type, 0);
 922 
	set_abbrev_tag(&dwe_stringc_t, 0, DW_TAG_string_type, 0);
787 
    if (attr & H_SP)
 - 
 
788 
      set_attribute (DW_AT_specification, DW_FORM_ref_addr);
 - 
 
789 
    if (attr & H_DC)
 - 
 
790 
      set_attribute (DW_AT_declaration, DW_FORM_flag);
 - 
 
791 
    if (attr & H_TP)
 - 
 
792 
      set_attribute (DW_AT_type, DW_FORM_ref_addr);
 - 
 
793 
    if (attr & H_SZ)
 - 
 
794 
      set_attribute (DW_AT_byte_size, DW_FORM_udata);
 923 
	set_attribute(DW_AT_byte_size, DW_FORM_udata);
795 
    set_attribute (0, 0);
 924 
	set_attribute(0, 0);
796 
    c++;
 - 
 
797 
  }
 - 
 
798 
  while ((dwe_file_t.attr)[c]);
 - 
 
799 
 
 925 
 
800 
  c = 0;
 926 
	c = 0;
801 
  do {
 927 
	do {
802 
    long attr = (dwe_set_t.attr)[c];
 928 
		long attr = (dwe_file_t.attr)[c];
803 
    set_abbrev_tag (&dwe_set_t, c, DW_TAG_set_type, 0);
 929 
		set_abbrev_tag(&dwe_file_t, c, DW_TAG_file_type, 0);
804 
    if (attr & H_SP)
 930 
		if (attr & H_SP) {
805 
      set_attribute (DW_AT_specification, DW_FORM_ref_addr);
 931 
			set_attribute(DW_AT_specification, DW_FORM_ref_addr);
- 
 
 932 
		}
806 
    if (attr & H_DC)
 933 
		if (attr & H_DC) {
807 
      set_attribute (DW_AT_declaration, DW_FORM_flag);
 934 
			set_attribute(DW_AT_declaration, DW_FORM_flag);
- 
 
 935 
		}
808 
    if (attr & H_TP)
 936 
		if (attr & H_TP) {
809 
      set_attribute (DW_AT_type, DW_FORM_ref_addr);
 937 
			set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 938 
		}
810 
    if (attr & H_SZ)
 939 
		if (attr & H_SZ) {
811 
      set_attribute (DW_AT_byte_size, DW_FORM_udata);
 940 
			set_attribute(DW_AT_byte_size, DW_FORM_udata);
- 
 
 941 
		}
812 
    set_attribute (0, 0);
 942 
		set_attribute(0, 0);
813 
    c++;
 943 
		c++;
814 
  }
 - 
 
815 
  while ((dwe_set_t.attr)[c]);
 944 
	} while ((dwe_file_t.attr)[c]);
816 
 
 945 
 
817 
  c = 0;
 946 
	c = 0;
818 
  do {
 947 
	do {
819 
    long attr = (dwe_fixpt_t.attr)[c];
 948 
		long attr = (dwe_set_t.attr)[c];
820 
    set_abbrev_tag (&dwe_fixpt_t, c, DW_TAG_DD_fixed_point_type, 0);
 949 
		set_abbrev_tag(&dwe_set_t, c, DW_TAG_set_type, 0);
- 
 
 950 
		if (attr & H_SP) {
821 
    set_attribute (DW_AT_type, DW_FORM_ref_addr);
 951 
			set_attribute(DW_AT_specification, DW_FORM_ref_addr);
- 
 
 952 
		}
- 
 
 953 
		if (attr & H_DC) {
822 
    set_attribute (DW_AT_DD_small_value, DW_FORM_indirect);
 954 
			set_attribute(DW_AT_declaration, DW_FORM_flag);
- 
 
 955 
		}
823 
    if (attr & H_DF)
 956 
		if (attr & H_TP) {
824 
      set_attribute (DW_AT_DD_delta, DW_FORM_indirect);
 957 
			set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 958 
		}
825 
    if (attr & H_DS)
 959 
		if (attr & H_SZ) {
826 
      set_attribute (DW_AT_DD_digits, DW_FORM_indirect);
 960 
			set_attribute(DW_AT_byte_size, DW_FORM_udata);
- 
 
 961 
		}
827 
    set_attribute (0, 0);
 962 
		set_attribute(0, 0);
828 
    c++;
 963 
		c++;
829 
  }
 - 
 
830 
  while ((dwe_fixpt_t.attr)[c]);
 964 
	} while ((dwe_set_t.attr)[c]);
831 
 
 965 
 
- 
 
 966 
	c = 0;
- 
 
 967 
	do {
- 
 
 968 
		long attr = (dwe_fixpt_t.attr)[c];
832 
  set_abbrev_tag (&dwe_fldg_t, 0, DW_TAG_DD_floating_digits_type, 0);
 969 
		set_abbrev_tag(&dwe_fixpt_t, c, DW_TAG_DD_fixed_point_type, 0);
833 
  set_attribute (DW_AT_type, DW_FORM_ref_addr);
 970 
		set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 971 
		set_attribute(DW_AT_DD_small_value, DW_FORM_indirect);
- 
 
 972 
		if (attr & H_DF) {
- 
 
 973 
			set_attribute(DW_AT_DD_delta, DW_FORM_indirect);
- 
 
 974 
		}
- 
 
 975 
		if (attr & H_DS) {
834 
  set_attribute (DW_AT_DD_digits, DW_FORM_indirect);
 976 
			set_attribute(DW_AT_DD_digits, DW_FORM_indirect);
- 
 
 977 
		}
835 
  set_attribute (0, 0);
 978 
		set_attribute(0, 0);
- 
 
 979 
		c++;
- 
 
 980 
	} while ((dwe_fixpt_t.attr)[c]);
836 
 
 981 
 
837 
  set_abbrev_tag (&dwe_modular_t, 0, DW_TAG_DD_modular_type, 0);
 982 
	set_abbrev_tag(&dwe_fldg_t, 0, DW_TAG_DD_floating_digits_type, 0);
838 
  set_attribute (DW_AT_type, DW_FORM_ref_addr);
 983 
	set_attribute(DW_AT_type, DW_FORM_ref_addr);
839 
  set_attribute (DW_AT_count, DW_FORM_indirect);
 984 
	set_attribute(DW_AT_DD_digits, DW_FORM_indirect);
840 
  set_attribute (0, 0);
 985 
	set_attribute(0, 0);
841 
 
 986 
 
842 
  struct_abbrev (&dwe_task_t, DW_TAG_DD_task_type);
 987 
	set_abbrev_tag(&dwe_modular_t, 0, DW_TAG_DD_modular_type, 0);
- 
 
 988 
	set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 989 
	set_attribute(DW_AT_count, DW_FORM_indirect);
- 
 
 990 
	set_attribute(0, 0);
843 
 
 991 
 
844 
  struct_abbrev (&dwe_synch_t, DW_TAG_DD_synchronized_type);
 992 
	struct_abbrev(&dwe_task_t, DW_TAG_DD_task_type);
845 
 
 993 
 
846 
  c = 0;
 - 
 
847 
  do {
 - 
 
848 
    long attr = (dwe_entry.attr)[c];
 - 
 
849 
    set_abbrev_tag (&dwe_entry, c, DW_TAG_DD_entry, 1);
 994 
	struct_abbrev(&dwe_synch_t, DW_TAG_DD_synchronized_type);
850 
    if (attr & H_NM)
 - 
 
851 
      set_attribute (DW_AT_name, DW_FORM_string);
 - 
 
852 
    if (attr & H_XY)
 - 
 
853 
      set_decl_attributes ();
 - 
 
854 
    if (attr & H_AC)
 - 
 
855 
      set_attribute (DW_AT_accessibility, DW_FORM_data1);
 - 
 
856 
    if (attr & H_TP)
 - 
 
857 
      set_attribute (DW_AT_type, DW_FORM_ref_addr);
 - 
 
858 
    if (attr & H_RP)
 - 
 
859 
      set_attribute (DW_AT_DD_repn, DW_FORM_indirect);
 - 
 
860 
    set_attribute (0, 0);
 - 
 
861 
    c++;
 - 
 
862 
  }
 - 
 
863 
  while ((dwe_entry.attr)[c]);
 - 
 
864 
 
 995 
 
- 
 
 996 
	c = 0;
- 
 
 997 
	do {
- 
 
 998 
		long attr = (dwe_entry.attr)[c];
865 
  set_abbrev_tag (&dwe_for_unit, 0, DW_TAG_DD_foreign_source, 0);
 999 
		set_abbrev_tag(&dwe_entry, c, DW_TAG_DD_entry, 1);
- 
 
 1000 
		if (attr & H_NM) {
866 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 1001 
			set_attribute(DW_AT_name, DW_FORM_string);
- 
 
 1002 
		}
- 
 
 1003 
		if (attr & H_XY) {
- 
 
 1004 
			set_decl_attributes();
- 
 
 1005 
		}
- 
 
 1006 
		if (attr & H_AC) {
867 
  set_attribute (DW_AT_high_pc, DW_FORM_addr);
 1007 
			set_attribute(DW_AT_accessibility, DW_FORM_data1);
- 
 
 1008 
		}
- 
 
 1009 
		if (attr & H_TP) {
868 
  set_attribute (DW_AT_import, DW_FORM_ref_addr);
 1010 
			set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 1011 
		}
- 
 
 1012 
		if (attr & H_RP) {
- 
 
 1013 
			set_attribute(DW_AT_DD_repn, DW_FORM_indirect);
- 
 
 1014 
		}
869 
  set_attribute (0, 0);
 1015 
		set_attribute(0, 0);
- 
 
 1016 
		c++;
- 
 
 1017 
	} while ((dwe_entry.attr)[c]);
870 
 
 1018 
 
871 
  set_abbrev_tag (&dwe_for_lang, 0, DW_TAG_DD_foreign_source, 0);
 1019 
	set_abbrev_tag(&dwe_for_unit, 0, DW_TAG_DD_foreign_source, 0);
872 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 1020 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
873 
  set_attribute (DW_AT_high_pc, DW_FORM_addr);
 1021 
	set_attribute(DW_AT_high_pc, DW_FORM_addr);
874 
  set_attribute (DW_AT_language, DW_FORM_udata);
 1022 
	set_attribute(DW_AT_import, DW_FORM_ref_addr);
875 
  set_attribute (0, 0);
 1023 
	set_attribute(0, 0);
876 
 
 1024 
 
877 
  set_abbrev_tag (&dwe_call, 0, DW_TAG_DD_subroutine_call, 0);
 1025 
	set_abbrev_tag(&dwe_for_lang, 0, DW_TAG_DD_foreign_source, 0);
878 
  set_attribute (DW_AT_name, DW_FORM_string);
 1026 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
879 
  set_decl_attributes ();
 - 
 
880 
  set_attribute (DW_AT_DD_call_kind, DW_FORM_udata);
 - 
 
881 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 1027 
	set_attribute(DW_AT_high_pc, DW_FORM_addr);
882 
  set_attribute (DW_AT_location, DW_FORM_block1);
 1028 
	set_attribute(DW_AT_language, DW_FORM_udata);
883 
  set_attribute (0, 0);
 1029 
	set_attribute(0, 0);
884 
 
 1030 
 
885 
  c = 0;
 - 
 
886 
  do {
 - 
 
887 
    long attr = (dwe_return.attr)[c];
 - 
 
888 
    set_abbrev_tag (&dwe_return, c, DW_TAG_DD_subroutine_return, 0);
 1031 
	set_abbrev_tag(&dwe_call, 0, DW_TAG_DD_subroutine_call, 0);
889 
    if (attr & H_XY)
 1032 
	set_attribute(DW_AT_name, DW_FORM_string);
890 
      set_decl_attributes ();
 1033 
	set_decl_attributes();
891 
    if (attr & H_PC)
 1034 
	set_attribute(DW_AT_DD_call_kind, DW_FORM_udata);
892 
      set_attribute (DW_AT_low_pc, DW_FORM_addr);
 1035 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
893 
    if (attr & H_LC)
 - 
 
894 
      set_attribute (DW_AT_location, DW_FORM_block1);
 1036 
	set_attribute(DW_AT_location, DW_FORM_block1);
895 
    set_attribute (0, 0);
 1037 
	set_attribute(0, 0);
896 
    c++;
 - 
 
897 
  }
 - 
 
898 
  while ((dwe_return.attr)[c]);
 - 
 
899 
 
 1038 
 
900 
  c = 0;
 1039 
	c = 0;
901 
  do {
 1040 
	do {
902 
    long attr = (dwe_destruct.attr)[c];
 1041 
		long attr = (dwe_return.attr)[c];
903 
    set_abbrev_tag (&dwe_destruct, c, DW_TAG_DD_destruct, 1);
 1042 
		set_abbrev_tag(&dwe_return, c, DW_TAG_DD_subroutine_return, 0);
- 
 
 1043 
		if (attr & H_XY) {
904 
    set_decl_attributes ();
 1044 
			set_decl_attributes();
905 
    set_attribute (DW_AT_low_pc, DW_FORM_addr);
 - 
 
- 
 
 1045 
		}
906 
    if (attr & H_TP)
 1046 
		if (attr & H_PC) {
907 
      set_attribute (DW_AT_type, DW_FORM_ref_addr);
 1047 
			set_attribute(DW_AT_low_pc, DW_FORM_addr);
- 
 
 1048 
		}
908 
    if (attr & H_LC)
 1049 
		if (attr & H_LC) {
909 
      set_attribute (DW_AT_location, DW_FORM_block1);
 1050 
			set_attribute(DW_AT_location, DW_FORM_block1);
910 
    if (attr & H_CV)
 1051 
		}
911 
      set_attribute (DW_AT_const_value, DW_FORM_indirect);
 - 
 
912 
    set_attribute (0, 0);
 1052 
		set_attribute(0, 0);
913 
    c++;
 1053 
		c++;
914 
  }
 - 
 
915 
  while ((dwe_destruct.attr)[c]);
 1054 
	} while ((dwe_return.attr)[c]);
916 
 
 1055 
 
- 
 
 1056 
	c = 0;
- 
 
 1057 
	do {
- 
 
 1058 
		long attr = (dwe_destruct.attr)[c];
917 
  set_abbrev_tag (&dwe_branch, 0, DW_TAG_DD_branch, 1);
 1059 
		set_abbrev_tag(&dwe_destruct, c, DW_TAG_DD_destruct, 1);
918 
  set_decl_attributes ();
 1060 
		set_decl_attributes();
919 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 1061 
		set_attribute(DW_AT_low_pc, DW_FORM_addr);
- 
 
 1062 
		if (attr & H_TP) {
920 
  set_attribute (DW_AT_high_pc, DW_FORM_addr);
 1063 
			set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 1064 
		}
- 
 
 1065 
		if (attr & H_LC) {
- 
 
 1066 
			set_attribute(DW_AT_location, DW_FORM_block1);
- 
 
 1067 
		}
- 
 
 1068 
		if (attr & H_CV) {
- 
 
 1069 
			set_attribute(DW_AT_const_value, DW_FORM_indirect);
- 
 
 1070 
		}
921 
  set_attribute (0, 0);
 1071 
		set_attribute(0, 0);
- 
 
 1072 
		c++;
- 
 
 1073 
	} while ((dwe_destruct.attr)[c]);
922 
 
 1074 
 
923 
  set_abbrev_tag (&dwe_branch_0, 0, DW_TAG_DD_branch, 0);
 1075 
	set_abbrev_tag(&dwe_branch, 0, DW_TAG_DD_branch, 1);
924 
  set_decl_attributes ();
 1076 
	set_decl_attributes();
- 
 
 1077 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
- 
 
 1078 
	set_attribute(DW_AT_high_pc, DW_FORM_addr);
925 
  set_attribute (0, 0);
 1079 
	set_attribute(0, 0);
926 
 
 1080 
 
927 
  set_abbrev_tag (&dwe_break, 0, DW_TAG_DD_breakpoint, 0);
 1081 
	set_abbrev_tag(&dwe_branch_0, 0, DW_TAG_DD_branch, 0);
928 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 1082 
	set_decl_attributes();
929 
  set_attribute (0, 0);
 1083 
	set_attribute(0, 0);
930 
 
 1084 
 
931 
  set_abbrev_tag (&dwe_test, 0, DW_TAG_DD_test, 0);
 1085 
	set_abbrev_tag(&dwe_break, 0, DW_TAG_DD_breakpoint, 0);
932 
  set_decl_attributes ();
 - 
 
933 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 1086 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
934 
  set_attribute (DW_AT_DD_cont_pc, DW_FORM_addr);
 - 
 
935 
  set_attribute (DW_AT_DD_jump_pc, DW_FORM_addr);
 - 
 
936 
  set_attribute (0, 0);
 1087 
	set_attribute(0, 0);
937 
 
 1088 
 
938 
  set_abbrev_tag (&dwe_test_0, 0, DW_TAG_DD_test, 0);
 1089 
	set_abbrev_tag(&dwe_test, 0, DW_TAG_DD_test, 0);
939 
  set_decl_attributes ();
 1090 
	set_decl_attributes();
- 
 
 1091 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
- 
 
 1092 
	set_attribute(DW_AT_DD_cont_pc, DW_FORM_addr);
- 
 
 1093 
	set_attribute(DW_AT_DD_jump_pc, DW_FORM_addr);
940 
  set_attribute (0, 0);
 1094 
	set_attribute(0, 0);
941 
 
 1095 
 
942 
  set_abbrev_tag (&dwe_jump, 0, DW_TAG_DD_jump, 0);
 1096 
	set_abbrev_tag(&dwe_test_0, 0, DW_TAG_DD_test, 0);
943 
  set_decl_attributes ();
 1097 
	set_decl_attributes();
944 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 - 
 
945 
  set_attribute (DW_AT_DD_jump_pc, DW_FORM_addr);
 - 
 
946 
  set_attribute (0, 0);
 1098 
	set_attribute(0, 0);
947 
 
 1099 
 
948 
  set_abbrev_tag (&dwe_jump_0, 0, DW_TAG_DD_jump, 0);
 1100 
	set_abbrev_tag(&dwe_jump, 0, DW_TAG_DD_jump, 0);
949 
  set_decl_attributes ();
 1101 
	set_decl_attributes();
- 
 
 1102 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
- 
 
 1103 
	set_attribute(DW_AT_DD_jump_pc, DW_FORM_addr);
950 
  set_attribute (0, 0);
 1104 
	set_attribute(0, 0);
951 
 
 1105 
 
952 
  set_abbrev_tag (&dwe_lj, 0, DW_TAG_DD_long_jump, 0);
 1106 
	set_abbrev_tag(&dwe_jump_0, 0, DW_TAG_DD_jump, 0);
953 
  set_decl_attributes ();
 1107 
	set_decl_attributes();
954 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 - 
 
955 
  set_attribute (DW_AT_location, DW_FORM_block1);
 - 
 
956 
  set_attribute (0, 0);
 1108 
	set_attribute(0, 0);
957 
 
 1109 
 
958 
  set_abbrev_tag (&dwe_lj_0, 0, DW_TAG_DD_long_jump, 0);
 1110 
	set_abbrev_tag(&dwe_lj, 0, DW_TAG_DD_long_jump, 0);
959 
  set_decl_attributes ();
 1111 
	set_decl_attributes();
- 
 
 1112 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
- 
 
 1113 
	set_attribute(DW_AT_location, DW_FORM_block1);
960 
  set_attribute (0, 0);
 1114 
	set_attribute(0, 0);
961 
 
 1115 
 
962 
  c = 0;
 - 
 
963 
  do {
 - 
 
964 
    long attr = (dwe_throw.attr)[c];
 - 
 
965 
    set_abbrev_tag (&dwe_throw, c, DW_TAG_DD_throw, 0);
 1116 
	set_abbrev_tag(&dwe_lj_0, 0, DW_TAG_DD_long_jump, 0);
966 
    if (attr & H_XY)
 - 
 
967 
      set_decl_attributes ();
 1117 
	set_decl_attributes();
968 
    if (attr & H_TP)
 - 
 
969 
      set_attribute (DW_AT_type, DW_FORM_ref_addr);
 - 
 
970 
    if (attr & H_LC)
 - 
 
971 
      set_attribute (DW_AT_location, DW_FORM_block1);
 - 
 
972 
    if (attr & H_CV)
 - 
 
973 
      set_attribute (DW_AT_const_value, DW_FORM_indirect);
 - 
 
974 
    set_attribute (0, 0);
 1118 
	set_attribute(0, 0);
975 
    c++;
 - 
 
976 
  }
 - 
 
977 
  while ((dwe_throw.attr)[c]);
 - 
 
978 
 
 1119 
 
- 
 
 1120 
	c = 0;
- 
 
 1121 
	do {
- 
 
 1122 
		long attr = (dwe_throw.attr)[c];
979 
  set_abbrev_tag (&dwe_barrier, 0, DW_TAG_DD_entry_barrier, 0);
 1123 
		set_abbrev_tag(&dwe_throw, c, DW_TAG_DD_throw, 0);
- 
 
 1124 
		if (attr & H_XY) {
980 
  set_decl_attributes ();
 1125 
			set_decl_attributes();
- 
 
 1126 
		}
- 
 
 1127 
		if (attr & H_TP) {
981 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 1128 
			set_attribute(DW_AT_type, DW_FORM_ref_addr);
- 
 
 1129 
		}
- 
 
 1130 
		if (attr & H_LC) {
982 
  set_attribute (DW_AT_high_pc, DW_FORM_addr);
 1131 
			set_attribute(DW_AT_location, DW_FORM_block1);
- 
 
 1132 
		}
- 
 
 1133 
		if (attr & H_CV) {
- 
 
 1134 
			set_attribute(DW_AT_const_value, DW_FORM_indirect);
- 
 
 1135 
		}
983 
  set_attribute (0, 0);
 1136 
		set_attribute(0, 0);
- 
 
 1137 
		c++;
- 
 
 1138 
	} while ((dwe_throw.attr)[c]);
984 
 
 1139 
 
985 
  set_abbrev_tag (&dwe_select, 0, DW_TAG_DD_select, 1);
 1140 
	set_abbrev_tag(&dwe_barrier, 0, DW_TAG_DD_entry_barrier, 0);
986 
  set_decl_attributes ();
 1141 
	set_decl_attributes();
987 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 1142 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
- 
 
 1143 
	set_attribute(DW_AT_high_pc, DW_FORM_addr);
988 
  set_attribute (0, 0);
 1144 
	set_attribute(0, 0);
989 
 
 1145 
 
990 
  set_abbrev_tag (&dwe_accept, 0, DW_TAG_DD_accept, 0);
 1146 
	set_abbrev_tag(&dwe_select, 0, DW_TAG_DD_select, 1);
991 
  set_decl_attributes ();
 1147 
	set_decl_attributes();
992 
  set_attribute (DW_AT_DD_alt, DW_FORM_flag);
 1148 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
993 
  set_attribute (DW_AT_DD_entry_spec, DW_FORM_ref_addr);
 - 
 
994 
  set_attribute (0, 0);
 1149 
	set_attribute(0, 0);
995 
 
 1150 
 
996 
  set_abbrev_tag (&dwe_accept_c, 0, DW_TAG_DD_accept, 1);
 1151 
	set_abbrev_tag(&dwe_accept, 0, DW_TAG_DD_accept, 0);
997 
  set_decl_attributes ();
 1152 
	set_decl_attributes();
998 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 - 
 
999 
  set_attribute (DW_AT_high_pc, DW_FORM_addr);
 - 
 
1000 
  set_attribute (DW_AT_DD_alt, DW_FORM_flag);
 1153 
	set_attribute(DW_AT_DD_alt, DW_FORM_flag);
1001 
  set_attribute (DW_AT_DD_entry_spec, DW_FORM_ref_addr);
 1154 
	set_attribute(DW_AT_DD_entry_spec, DW_FORM_ref_addr);
1002 
  set_attribute (0, 0);
 1155 
	set_attribute(0, 0);
1003 
 
 1156 
 
1004 
  set_abbrev_tag (&dwe_rts, 0, DW_TAG_DD_rts_call, 0);
 1157 
	set_abbrev_tag(&dwe_accept_c, 0, DW_TAG_DD_accept, 1);
1005 
  set_decl_attributes ();
 1158 
	set_decl_attributes();
1006 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 1159 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
- 
 
 1160 
	set_attribute(DW_AT_high_pc, DW_FORM_addr);
1007 
  set_attribute (DW_AT_DD_alt, DW_FORM_flag);
 1161 
	set_attribute(DW_AT_DD_alt, DW_FORM_flag);
1008 
  set_attribute (DW_AT_DD_call_kind, DW_FORM_udata);
 1162 
	set_attribute(DW_AT_DD_entry_spec, DW_FORM_ref_addr);
1009 
  set_attribute (0, 0);
 1163 
	set_attribute(0, 0);
1010 
 
 1164 
 
1011 
  set_abbrev_tag (&dwe_rts_en, 0, DW_TAG_DD_rts_call, 0);
 1165 
	set_abbrev_tag(&dwe_rts, 0, DW_TAG_DD_rts_call, 0);
1012 
  set_decl_attributes ();
 1166 
	set_decl_attributes();
1013 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 1167 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
1014 
  set_attribute (DW_AT_DD_alt, DW_FORM_flag);
 1168 
	set_attribute(DW_AT_DD_alt, DW_FORM_flag);
1015 
  set_attribute (DW_AT_DD_entry_spec, DW_FORM_ref_addr);
 - 
 
1016 
  set_attribute (DW_AT_DD_call_kind, DW_FORM_udata);
 1169 
	set_attribute(DW_AT_DD_call_kind, DW_FORM_udata);
1017 
  set_attribute (0, 0);
 1170 
	set_attribute(0, 0);
1018 
 
 1171 
 
1019 
  set_abbrev_tag (&dwe_sel_alt, 0, DW_TAG_DD_select_alternative, 1);
 1172 
	set_abbrev_tag(&dwe_rts_en, 0, DW_TAG_DD_rts_call, 0);
1020 
  set_decl_attributes ();
 1173 
	set_decl_attributes();
- 
 
 1174 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
1021 
   set_attribute (DW_AT_DD_alt_kind, DW_FORM_udata);
 1175 
	set_attribute(DW_AT_DD_alt, DW_FORM_flag);
- 
 
 1176 
	set_attribute(DW_AT_DD_entry_spec, DW_FORM_ref_addr);
1022 
  set_attribute (DW_AT_DD_alt_no, DW_FORM_indirect);
 1177 
	set_attribute(DW_AT_DD_call_kind, DW_FORM_udata);
1023 
  set_attribute (0, 0);
 1178 
	set_attribute(0, 0);
1024 
 
 1179 
 
1025 
  set_abbrev_tag (&dwe_sel_alt_c, 0, DW_TAG_DD_select_alternative, 1);
 1180 
	set_abbrev_tag(&dwe_sel_alt, 0, DW_TAG_DD_select_alternative, 1);
1026 
  set_decl_attributes ();
 1181 
	set_decl_attributes();
1027 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 - 
 
1028 
  set_attribute (DW_AT_high_pc, DW_FORM_addr);
 - 
 
1029 
  set_attribute (DW_AT_DD_alt_kind, DW_FORM_udata);
 1182 
	set_attribute(DW_AT_DD_alt_kind, DW_FORM_udata);
1030 
  set_attribute (DW_AT_DD_alt_no, DW_FORM_indirect);
 1183 
	set_attribute(DW_AT_DD_alt_no, DW_FORM_indirect);
1031 
  set_attribute (0, 0);
 1184 
	set_attribute(0, 0);
1032 
 
 1185 
 
1033 
  set_abbrev_tag (&dwe_sel_guard, 0, DW_TAG_DD_select_guard, 1);
 1186 
	set_abbrev_tag(&dwe_sel_alt_c, 0, DW_TAG_DD_select_alternative, 1);
1034 
  set_decl_attributes ();
 1187 
	set_decl_attributes();
1035 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 1188 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
1036 
  set_attribute (DW_AT_high_pc, DW_FORM_addr);
 1189 
	set_attribute(DW_AT_high_pc, DW_FORM_addr);
- 
 
 1190 
	set_attribute(DW_AT_DD_alt_kind, DW_FORM_udata);
- 
 
 1191 
	set_attribute(DW_AT_DD_alt_no, DW_FORM_indirect);
1037 
  set_attribute (0, 0);
 1192 
	set_attribute(0, 0);
1038 
 
 1193 
 
1039 
  set_abbrev_tag (&dwe_asynchsel, 0, DW_TAG_DD_asynchronous_select, 1);
 1194 
	set_abbrev_tag(&dwe_sel_guard, 0, DW_TAG_DD_select_guard, 1);
1040 
  set_decl_attributes ();
 1195 
	set_decl_attributes();
1041 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 1196 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
1042 
  set_attribute (DW_AT_high_pc, DW_FORM_addr);
 1197 
	set_attribute(DW_AT_high_pc, DW_FORM_addr);
1043 
  set_attribute (0, 0);
 1198 
	set_attribute(0, 0);
1044 
 
 1199 
 
1045 
  set_abbrev_tag (&dwe_trigger, 0, DW_TAG_DD_triggering_alternate, 1);
 1200 
	set_abbrev_tag(&dwe_asynchsel, 0, DW_TAG_DD_asynchronous_select, 1);
1046 
  set_decl_attributes ();
 1201 
	set_decl_attributes();
- 
 
 1202 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
1047 
  set_attribute (DW_AT_DD_alt_kind, DW_FORM_udata);
 1203 
	set_attribute(DW_AT_high_pc, DW_FORM_addr);
1048 
  set_attribute (0, 0);
 1204 
	set_attribute(0, 0);
1049 
 
 1205 
 
1050 
  set_abbrev_tag (&dwe_trigger_c, 0, DW_TAG_DD_triggering_alternate, 1);
 1206 
	set_abbrev_tag(&dwe_trigger, 0, DW_TAG_DD_triggering_alternate, 1);
1051 
  set_decl_attributes ();
 1207 
	set_decl_attributes();
1052 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 - 
 
1053 
  set_attribute (DW_AT_high_pc, DW_FORM_addr);
 - 
 
1054 
  set_attribute (DW_AT_DD_alt_kind, DW_FORM_udata);
 1208 
	set_attribute(DW_AT_DD_alt_kind, DW_FORM_udata);
1055 
  set_attribute (0, 0);
 1209 
	set_attribute(0, 0);
1056 
 
 1210 
 
1057 
  set_abbrev_tag (&dwe_abort_pt, 0, DW_TAG_DD_abortable_part, 0);
 1211 
	set_abbrev_tag(&dwe_trigger_c, 0, DW_TAG_DD_triggering_alternate, 1);
1058 
  set_decl_attributes ();
 1212 
	set_decl_attributes();
- 
 
 1213 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
- 
 
 1214 
	set_attribute(DW_AT_high_pc, DW_FORM_addr);
- 
 
 1215 
	set_attribute(DW_AT_DD_alt_kind, DW_FORM_udata);
1059 
  set_attribute (0, 0);
 1216 
	set_attribute(0, 0);
1060 
 
 1217 
 
1061 
  set_abbrev_tag (&dwe_abort_ptc, 0, DW_TAG_DD_abortable_part, 1);
 1218 
	set_abbrev_tag(&dwe_abort_pt, 0, DW_TAG_DD_abortable_part, 0);
1062 
  set_decl_attributes ();
 1219 
	set_decl_attributes();
1063 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 - 
 
1064 
  set_attribute (DW_AT_high_pc, DW_FORM_addr);
 - 
 
1065 
  set_attribute (0, 0);
 1220 
	set_attribute(0, 0);
1066 
 
 1221 
 
1067 
  set_abbrev_tag (&dwe_requeue, 0, DW_TAG_DD_requeue, 1);
 1222 
	set_abbrev_tag(&dwe_abort_ptc, 0, DW_TAG_DD_abortable_part, 1);
1068 
  set_decl_attributes ();
 1223 
	set_decl_attributes();
1069 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 1224 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
1070 
  set_attribute (DW_AT_high_pc, DW_FORM_addr);
 1225 
	set_attribute(DW_AT_high_pc, DW_FORM_addr);
1071 
  set_attribute (DW_AT_DD_entry_spec, DW_FORM_ref_addr);
 - 
 
1072 
  set_attribute (DW_AT_DD_abort, DW_FORM_flag);
 - 
 
1073 
  set_attribute (0, 0);
 1226 
	set_attribute(0, 0);
1074 
 
 1227 
 
1075 
  set_abbrev_tag (&dwe_unknown_t, 0, DW_TAG_DD_incomplete_type, 0);
 1228 
	set_abbrev_tag(&dwe_requeue, 0, DW_TAG_DD_requeue, 1);
- 
 
 1229 
	set_decl_attributes();
- 
 
 1230 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
- 
 
 1231 
	set_attribute(DW_AT_high_pc, DW_FORM_addr);
- 
 
 1232 
	set_attribute(DW_AT_DD_entry_spec, DW_FORM_ref_addr);
- 
 
 1233 
	set_attribute(DW_AT_DD_abort, DW_FORM_flag);
1076 
  set_attribute (0, 0);
 1234 
	set_attribute(0, 0);
1077 
 
 1235 
 
1078 
  set_abbrev_tag (&dwe_span, 0, DW_TAG_DD_source_span, 1);
 1236 
	set_abbrev_tag(&dwe_unknown_t, 0, DW_TAG_DD_incomplete_type, 0);
1079 
  set_attribute (0, 0);
 1237 
	set_attribute(0, 0);
1080 
 
 1238 
 
1081 
  set_abbrev_tag (&dwe_span_strt, 0, DW_TAG_DD_source_start, 0);
 1239 
	set_abbrev_tag(&dwe_span, 0, DW_TAG_DD_source_span, 1);
1082 
  set_decl_attributes ();
 - 
 
1083 
  set_attribute (0, 0);
 1240 
	set_attribute(0, 0);
1084 
 
 1241 
 
1085 
  set_abbrev_tag (&dwe_span_end, 0, DW_TAG_DD_source_end, 0);
 1242 
	set_abbrev_tag(&dwe_span_strt, 0, DW_TAG_DD_source_start, 0);
1086 
  set_decl_attributes ();
 1243 
	set_decl_attributes();
1087 
  set_attribute (0, 0);
 1244 
	set_attribute(0, 0);
1088 
 
 1245 
 
1089 
  set_abbrev_tag (&dwe_absent, 0, DW_TAG_DD_absent_code, 1);
 1246 
	set_abbrev_tag(&dwe_span_end, 0, DW_TAG_DD_source_end, 0);
1090 
  set_attribute (DW_AT_DD_optimisation_kind, DW_FORM_udata);
 1247 
	set_decl_attributes();
1091 
  set_attribute (0, 0);
 1248 
	set_attribute(0, 0);
1092 
 
 1249 
 
1093 
  set_abbrev_tag (&dwe_absent_r, 0, DW_TAG_DD_absent_code, 1);
 1250 
	set_abbrev_tag(&dwe_absent, 0, DW_TAG_DD_absent_code, 1);
1094 
  set_attribute (DW_AT_DD_optimisation_kind, DW_FORM_udata);
 1251 
	set_attribute(DW_AT_DD_optimisation_kind, DW_FORM_udata);
1095 
  set_attribute (DW_AT_DD_optim_ref, DW_FORM_ref_addr);
 - 
 
1096 
  set_attribute (0, 0);
 1252 
	set_attribute(0, 0);
1097 
 
 1253 
 
1098 
  set_abbrev_tag (&dwe_absent_x, 0, DW_TAG_DD_absent_code, 0);
 1254 
	set_abbrev_tag(&dwe_absent_r, 0, DW_TAG_DD_absent_code, 1);
1099 
  set_attribute (DW_AT_DD_optimisation_kind, DW_FORM_udata);
 1255 
	set_attribute(DW_AT_DD_optimisation_kind, DW_FORM_udata);
1100 
  set_decl_attributes ();
 1256 
	set_attribute(DW_AT_DD_optim_ref, DW_FORM_ref_addr);
1101 
  set_attribute (0, 0);
 1257 
	set_attribute(0, 0);
1102 
 
 1258 
 
1103 
  set_abbrev_tag (&dwe_absent_xr, 0, DW_TAG_DD_absent_code, 0);
 1259 
	set_abbrev_tag(&dwe_absent_x, 0, DW_TAG_DD_absent_code, 0);
1104 
  set_attribute (DW_AT_DD_optimisation_kind, DW_FORM_udata);
 1260 
	set_attribute(DW_AT_DD_optimisation_kind, DW_FORM_udata);
1105 
  set_attribute (DW_AT_DD_optim_ref, DW_FORM_ref_addr);
 - 
 
1106 
  set_decl_attributes ();
 1261 
	set_decl_attributes();
1107 
  set_attribute (0, 0);
 1262 
	set_attribute(0, 0);
1108 
 
 1263 
 
1109 
  set_abbrev_tag (&dwe_displaced, 0, DW_TAG_DD_absent_code, 0);
 1264 
	set_abbrev_tag(&dwe_absent_xr, 0, DW_TAG_DD_absent_code, 0);
- 
 
 1265 
	set_attribute(DW_AT_DD_optimisation_kind, DW_FORM_udata);
1110 
  set_attribute (DW_AT_DD_optim_ref, DW_FORM_ref_addr);
 1266 
	set_attribute(DW_AT_DD_optim_ref, DW_FORM_ref_addr);
- 
 
 1267 
	set_decl_attributes();
1111 
  set_attribute (0, 0);
 1268 
	set_attribute(0, 0);
1112 
 
 1269 
 
1113 
  set_abbrev_tag (&dwe_displ_x, 0, DW_TAG_DD_absent_code, 0);
 1270 
	set_abbrev_tag(&dwe_displaced, 0, DW_TAG_DD_absent_code, 0);
1114 
  set_attribute (DW_AT_DD_optim_ref, DW_FORM_ref_addr);
 1271 
	set_attribute(DW_AT_DD_optim_ref, DW_FORM_ref_addr);
1115 
  set_decl_attributes ();
 - 
 
1116 
  set_attribute (0, 0);
 1272 
	set_attribute(0, 0);
1117 
 
 1273 
 
1118 
  set_abbrev_tag (&dwe_moved, 0, DW_TAG_DD_moved_code, 1);
 1274 
	set_abbrev_tag(&dwe_displ_x, 0, DW_TAG_DD_absent_code, 0);
1119 
  set_attribute (DW_AT_DD_optimisation_kind, DW_FORM_udata);
 - 
 
1120 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 1275 
	set_attribute(DW_AT_DD_optim_ref, DW_FORM_ref_addr);
1121 
  set_attribute (DW_AT_high_pc, DW_FORM_addr);
 1276 
	set_decl_attributes();
1122 
  set_attribute (0, 0);
 1277 
	set_attribute(0, 0);
1123 
 
 1278 
 
1124 
  set_abbrev_tag (&dwe_moved_r, 0, DW_TAG_DD_moved_code, 1);
 1279 
	set_abbrev_tag(&dwe_moved, 0, DW_TAG_DD_moved_code, 1);
1125 
  set_attribute (DW_AT_DD_optimisation_kind, DW_FORM_udata);
 1280 
	set_attribute(DW_AT_DD_optimisation_kind, DW_FORM_udata);
1126 
  set_attribute (DW_AT_DD_optim_ref, DW_FORM_ref_addr);
 - 
 
1127 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 1281 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
1128 
  set_attribute (DW_AT_high_pc, DW_FORM_addr);
 1282 
	set_attribute(DW_AT_high_pc, DW_FORM_addr);
1129 
  set_attribute (0, 0);
 1283 
	set_attribute(0, 0);
1130 
 
 1284 
 
1131 
  set_abbrev_tag (&dwe_moved_x, 0, DW_TAG_DD_moved_code, 1);
 1285 
	set_abbrev_tag(&dwe_moved_r, 0, DW_TAG_DD_moved_code, 1);
1132 
  set_attribute (DW_AT_DD_optimisation_kind, DW_FORM_udata);
 1286 
	set_attribute(DW_AT_DD_optimisation_kind, DW_FORM_udata);
- 
 
 1287 
	set_attribute(DW_AT_DD_optim_ref, DW_FORM_ref_addr);
- 
 
 1288 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
- 
 
 1289 
	set_attribute(DW_AT_high_pc, DW_FORM_addr);
1133 
  set_attribute (0, 0);
 1290 
	set_attribute(0, 0);
1134 
 
 1291 
 
1135 
  set_abbrev_tag (&dwe_moved_xr, 0, DW_TAG_DD_moved_code, 1);
 1292 
	set_abbrev_tag(&dwe_moved_x, 0, DW_TAG_DD_moved_code, 1);
1136 
  set_attribute (DW_AT_DD_optimisation_kind, DW_FORM_udata);
 1293 
	set_attribute(DW_AT_DD_optimisation_kind, DW_FORM_udata);
1137 
  set_attribute (DW_AT_DD_optim_ref, DW_FORM_ref_addr);
 - 
 
1138 
  set_attribute (0, 0);
 1294 
	set_attribute(0, 0);
1139 
 
 1295 
 
1140 
  set_abbrev_tag (&dwe_optim, 0, DW_TAG_DD_optimisation_block, 1);
 1296 
	set_abbrev_tag(&dwe_moved_xr, 0, DW_TAG_DD_moved_code, 1);
1141 
  set_attribute (DW_AT_DD_optimisation_kind, DW_FORM_udata);
 1297 
	set_attribute(DW_AT_DD_optimisation_kind, DW_FORM_udata);
1142 
  set_attribute (DW_AT_low_pc, DW_FORM_addr);
 1298 
	set_attribute(DW_AT_DD_optim_ref, DW_FORM_ref_addr);
1143 
  set_attribute (DW_AT_high_pc, DW_FORM_addr);
 - 
 
1144 
  set_attribute (DW_AT_DD_obj_noassgn, DW_FORM_block2);
 - 
 
1145 
  set_attribute (DW_AT_DD_obj_assgn, DW_FORM_block2);
 - 
 
1146 
  set_attribute (0, 0);
 1299 
	set_attribute(0, 0);
1147 
 
 1300 
 
- 
 
 1301 
	set_abbrev_tag(&dwe_optim, 0, DW_TAG_DD_optimisation_block, 1);
- 
 
 1302 
	set_attribute(DW_AT_DD_optimisation_kind, DW_FORM_udata);
- 
 
 1303 
	set_attribute(DW_AT_low_pc, DW_FORM_addr);
- 
 
 1304 
	set_attribute(DW_AT_high_pc, DW_FORM_addr);
- 
 
 1305 
	set_attribute(DW_AT_DD_obj_noassgn, DW_FORM_block2);
- 
 
 1306 
	set_attribute(DW_AT_DD_obj_assgn, DW_FORM_block2);
- 
 
 1307 
	set_attribute(0, 0);
1148 
 
 1308 
 
- 
 
 1309 
	out8();
1149 
  out8 (); outn ((long)0); d_outnl ();
 1310 
	outn((long)0);
- 
 
 1311 
	d_outnl();
1150 
  exit_section ();
 1312 
	exit_section();
1151 
  return;
 1313 
	return;
1152 
}
 1314 
}