| 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 52... |
Line 82... |
| 52 |
#include "basicread.h"
|
82 |
#include "basicread.h"
|
| 53 |
|
83 |
|
| 54 |
static long empty[] = { -1 };
|
84 |
static long empty[] = { -1 };
|
| 55 |
|
85 |
|
| 56 |
static long x_variable[] = {
|
86 |
static long x_variable[] = {
|
| 57 |
H_AO | H_SS | H_LC,
|
87 |
H_AO | H_SS | H_LC,
|
| 58 |
H_AO | H_SS | H_LL,
|
88 |
H_AO | H_SS | H_LL,
|
| 59 |
H_AO | H_SS | H_LL | H_LE,
|
89 |
H_AO | H_SS | H_LL | H_LE,
|
| 60 |
H_AO | H_SS | H_CV,
|
90 |
H_AO | H_SS | H_CV,
|
| 61 |
H_NM | H_XY | H_EX | H_TP | H_LC,
|
91 |
H_NM | H_XY | H_EX | H_TP | H_LC,
|
| 62 |
H_NM | H_XY | H_EX | H_TP | H_LL,
|
92 |
H_NM | H_XY | H_EX | H_TP | H_LL,
|
| 63 |
H_NM | H_XY | H_EX | H_TP | H_LL | H_LE,
|
93 |
H_NM | H_XY | H_EX | H_TP | H_LL | H_LE,
|
| 64 |
H_NM | H_XY | H_TP | H_SS | H_LC,
|
94 |
H_NM | H_XY | H_TP | H_SS | H_LC,
|
| 65 |
H_NM | H_XY | H_TP | H_SS | H_LL,
|
95 |
H_NM | H_XY | H_TP | H_SS | H_LL,
|
| 66 |
H_NM | H_XY | H_TP | H_SS | H_LL | H_LE,
|
96 |
H_NM | H_XY | H_TP | H_SS | H_LL | H_LE,
|
| 67 |
H_NM | H_XY | H_TP | H_SS | H_CV,
|
97 |
H_NM | H_XY | H_TP | H_SS | H_CV,
|
| 68 |
H_NM | H_XY | H_TP | H_CV,
|
98 |
H_NM | H_XY | H_TP | H_CV,
|
| 69 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_TP | H_LC,
|
99 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_TP | H_LC,
|
| 70 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_TP | H_LL,
|
100 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_TP | H_LL,
|
| 71 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_TP | H_LL | H_LE,
|
101 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_TP | H_LL | H_LE,
|
| 72 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_TP | H_CV,
|
102 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_TP | H_CV,
|
| 73 |
H_DC | H_NM | H_XY | H_AT | H_TP | H_SS | H_LC,
|
103 |
H_DC | H_NM | H_XY | H_AT | H_TP | H_SS | H_LC,
|
| 74 |
H_DC | H_NM | H_XY | H_AT | H_TP | H_SS | H_LL,
|
104 |
H_DC | H_NM | H_XY | H_AT | H_TP | H_SS | H_LL,
|
| 75 |
H_DC | H_NM | H_XY | H_AT | H_TP | H_SS | H_LL | H_LE,
|
105 |
H_DC | H_NM | H_XY | H_AT | H_TP | H_SS | H_LL | H_LE,
|
| 76 |
H_DC | H_NM | H_XY | H_AT | H_TP | H_SS | H_CV,
|
106 |
H_DC | H_NM | H_XY | H_AT | H_TP | H_SS | H_CV,
|
| 77 |
H_DC | H_NM | H_XY | H_TP,
|
107 |
H_DC | H_NM | H_XY | H_TP,
|
| 78 |
H_DC | H_NM | H_XY | H_EX | H_TP,
|
108 |
H_DC | H_NM | H_XY | H_EX | H_TP,
|
| 79 |
H_SP | H_XY | H_EX | H_LC,
|
109 |
H_SP | H_XY | H_EX | H_LC,
|
| 80 |
H_SP | H_XY | H_EX | H_LL,
|
110 |
H_SP | H_XY | H_EX | H_LL,
|
| 81 |
H_SP | H_XY | H_EX | H_LL | H_LE,
|
111 |
H_SP | H_XY | H_EX | H_LL | H_LE,
|
| 82 |
H_SP | H_XY | H_EX | H_CV,
|
112 |
H_SP | H_XY | H_EX | H_CV,
|
| 83 |
H_SP | H_XY | H_SS | H_LC,
|
113 |
H_SP | H_XY | H_SS | H_LC,
|
| 84 |
H_SP | H_XY | H_SS | H_LL,
|
114 |
H_SP | H_XY | H_SS | H_LL,
|
| 85 |
H_SP | H_XY | H_SS | H_LL | H_LE,
|
115 |
H_SP | H_XY | H_SS | H_LL | H_LE,
|
| 86 |
H_SP | H_XY | H_SS | H_CV,
|
116 |
H_SP | H_XY | H_SS | H_CV,
|
| 87 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_TP | H_LC,
|
117 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_TP | H_LC,
|
| 88 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_TP | H_LL,
|
118 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_TP | H_LL,
|
| 89 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_TP | H_LL | H_LE,
|
119 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_TP | H_LL | H_LE,
|
| 90 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_TP | H_CV,
|
120 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_TP | H_CV,
|
| 91 |
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_SS | H_LC,
|
121 |
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_SS | H_LC,
|
| 92 |
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_SS | H_LL,
|
122 |
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_SS | H_LL,
|
| 93 |
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_SS | H_LL | H_LE,
|
123 |
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_SS | H_LL | H_LE,
|
| 94 |
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_SS | H_CV,
|
124 |
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_SS | H_CV,
|
| 95 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_TP | H_LC | H_RP,
|
125 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_TP | H_LC | H_RP,
|
| 96 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_TP | H_LL | H_RP,
|
126 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_TP | H_LL | H_RP,
|
| 97 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_TP | H_LL | H_LE | H_RP,
|
127 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_TP | H_LL | H_LE | H_RP,
|
| 98 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_TP | H_CV | H_RP,
|
128 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_TP | H_CV | H_RP,
|
| 99 |
H_DC | H_NM | H_XY | H_AT | H_TP | H_SS | H_LC | H_RP,
|
129 |
H_DC | H_NM | H_XY | H_AT | H_TP | H_SS | H_LC | H_RP,
|
| 100 |
H_DC | H_NM | H_XY | H_AT | H_TP | H_SS | H_LL | H_RP,
|
130 |
H_DC | H_NM | H_XY | H_AT | H_TP | H_SS | H_LL | H_RP,
|
| 101 |
H_DC | H_NM | H_XY | H_AT | H_TP | H_SS | H_LL | H_LE | H_RP,
|
131 |
H_DC | H_NM | H_XY | H_AT | H_TP | H_SS | H_LL | H_LE | H_RP,
|
| 102 |
H_DC | H_NM | H_XY | H_AT | H_TP | H_SS | H_CV | H_RP,
|
132 |
H_DC | H_NM | H_XY | H_AT | H_TP | H_SS | H_CV | H_RP,
|
| 103 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_TP | H_LC | H_RP,
|
133 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_TP | H_LC | H_RP,
|
| 104 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_TP | H_LL | H_RP,
|
134 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_TP | H_LL | H_RP,
|
| 105 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_TP | H_LL | H_LE | H_RP,
|
135 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_TP | H_LL | H_LE | H_RP,
|
| 106 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_TP | H_CV | H_RP,
|
136 |
H_DC | H_NM | H_XY | H_EX | H_AT | H_AC | H_TP | H_CV | H_RP,
|
| 107 |
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_SS | H_LC | H_RP,
|
137 |
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_SS | H_LC | H_RP,
|
| 108 |
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_SS | H_LL | H_RP,
|
138 |
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_SS | H_LL | H_RP,
|
| 109 |
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_SS | H_LL | H_LE | H_RP,
|
139 |
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_SS | H_LL | H_LE | H_RP,
|
| 110 |
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_SS | H_CV | H_RP,
|
140 |
H_DC | H_NM | H_XY | H_AT | H_AC | H_TP | H_SS | H_CV | H_RP,
|
| 111 |
0 };
|
141 |
0 };
|
| 112 |
|
142 |
|
| 113 |
#define y_variable (H_DC|H_NM|H_XY|H_EX|H_AT)
|
143 |
#define y_variable (H_DC|H_NM|H_XY|H_EX|H_AT)
|
| 114 |
|
144 |
|
| 115 |
static long x_constant[] = {
|
145 |
static long x_constant[] = {
|
| 116 |
H_NM | H_XY | H_TP | H_EX | H_CV,
|
146 |
H_NM | H_XY | H_TP | H_EX | H_CV,
|
| 117 |
H_NM | H_XY | H_TP | H_SS | H_CV,
|
147 |
H_NM | H_XY | H_TP | H_SS | H_CV,
|
| 118 |
0 };
|
148 |
0 };
|
| 119 |
|
149 |
|
| 120 |
#define y_constant (H_DC|H_NM|H_XY|H_EX|H_AT|H_VP)
|
150 |
#define y_constant (H_DC|H_NM|H_XY|H_EX|H_AT|H_VP)
|
| 121 |
|
151 |
|
| 122 |
static long x_param[] = {
|
152 |
static long x_param[] = {
|
| 123 |
H_AO | H_LC,
|
153 |
H_AO | H_LC,
|
| 124 |
H_AO | H_CV,
|
154 |
H_AO | H_CV,
|
| 125 |
H_TP,
|
155 |
H_TP,
|
| 126 |
H_NM | H_XY | H_TP,
|
156 |
H_NM | H_XY | H_TP,
|
| 127 |
H_NM | H_XY | H_TP | H_VP,
|
157 |
H_NM | H_XY | H_TP | H_VP,
|
| 128 |
H_NM | H_XY | H_TP | H_VP | H_LL,
|
158 |
H_NM | H_XY | H_TP | H_VP | H_LL,
|
| 129 |
H_NM | H_XY | H_TP | H_VP | H_LL | H_LE,
|
159 |
H_NM | H_XY | H_TP | H_VP | H_LL | H_LE,
|
| 130 |
H_NM | H_XY | H_TP | H_AT | H_VP,
|
160 |
H_NM | H_XY | H_TP | H_AT | H_VP,
|
| 131 |
H_NM | H_XY | H_TP | H_AT | H_VP | H_LL,
|
161 |
H_NM | H_XY | H_TP | H_AT | H_VP | H_LL,
|
| 132 |
H_NM | H_XY | H_TP | H_AT | H_VP | H_LL | H_LE,
|
162 |
H_NM | H_XY | H_TP | H_AT | H_VP | H_LL | H_LE,
|
| 133 |
H_NM | H_XY | H_TP | H_AC | H_VP,
|
163 |
H_NM | H_XY | H_TP | H_AC | H_VP,
|
| 134 |
H_NM | H_XY | H_TP | H_AC | H_VP | H_LL,
|
164 |
H_NM | H_XY | H_TP | H_AC | H_VP | H_LL,
|
| 135 |
H_NM | H_XY | H_TP | H_AC | H_VP | H_LL | H_LE,
|
165 |
H_NM | H_XY | H_TP | H_AC | H_VP | H_LL | H_LE,
|
| 136 |
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP,
|
166 |
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP,
|
| 137 |
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP | H_LL,
|
167 |
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP | H_LL,
|
| 138 |
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP | H_LL | H_LE,
|
168 |
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP | H_LL | H_LE,
|
| 139 |
H_AO | H_LL,
|
169 |
H_AO | H_LL,
|
| 140 |
H_AO | H_LL | H_LE,
|
170 |
H_AO | H_LL | H_LE,
|
| 141 |
H_TP | H_DF,
|
171 |
H_TP | H_DF,
|
| 142 |
H_NM | H_XY | H_TP | H_DF,
|
172 |
H_NM | H_XY | H_TP | H_DF,
|
| 143 |
H_NM | H_XY | H_TP | H_VP | H_DF,
|
173 |
H_NM | H_XY | H_TP | H_VP | H_DF,
|
| 144 |
H_NM | H_XY | H_TP | H_VP | H_LL | H_DF,
|
174 |
H_NM | H_XY | H_TP | H_VP | H_LL | H_DF,
|
| 145 |
H_NM | H_XY | H_TP | H_VP | H_LL | H_LE | H_DF,
|
175 |
H_NM | H_XY | H_TP | H_VP | H_LL | H_LE | H_DF,
|
| 146 |
H_NM | H_XY | H_TP | H_AT | H_VP | H_DF,
|
176 |
H_NM | H_XY | H_TP | H_AT | H_VP | H_DF,
|
| 147 |
H_NM | H_XY | H_TP | H_AT | H_VP | H_LL | H_DF,
|
177 |
H_NM | H_XY | H_TP | H_AT | H_VP | H_LL | H_DF,
|
| 148 |
H_NM | H_XY | H_TP | H_AT | H_VP | H_LL | H_LE | H_DF,
|
178 |
H_NM | H_XY | H_TP | H_AT | H_VP | H_LL | H_LE | H_DF,
|
| 149 |
H_NM | H_XY | H_TP | H_AC | H_VP | H_DF,
|
179 |
H_NM | H_XY | H_TP | H_AC | H_VP | H_DF,
|
| 150 |
H_NM | H_XY | H_TP | H_AC | H_VP | H_LL | H_DF,
|
180 |
H_NM | H_XY | H_TP | H_AC | H_VP | H_LL | H_DF,
|
| 151 |
H_NM | H_XY | H_TP | H_AC | H_VP | H_LL | H_LE | H_DF,
|
181 |
H_NM | H_XY | H_TP | H_AC | H_VP | H_LL | H_LE | H_DF,
|
| 152 |
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP | H_DF,
|
182 |
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP | H_DF,
|
| 153 |
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP | H_LL | H_DF,
|
183 |
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP | H_LL | H_DF,
|
| 154 |
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP | H_LL | H_LE | H_DF,
|
184 |
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP | H_LL | H_LE | H_DF,
|
| 155 |
#ifdef H_DX
|
185 |
#ifdef H_DX
|
| 156 |
H_TP | H_DX,
|
186 |
H_TP | H_DX,
|
| 157 |
H_NM | H_XY | H_TP | H_DX,
|
187 |
H_NM | H_XY | H_TP | H_DX,
|
| 158 |
H_NM | H_XY | H_TP | H_VP | H_DX,
|
188 |
H_NM | H_XY | H_TP | H_VP | H_DX,
|
| 159 |
H_NM | H_XY | H_TP | H_VP | H_LL | H_DX,
|
189 |
H_NM | H_XY | H_TP | H_VP | H_LL | H_DX,
|
| 160 |
H_NM | H_XY | H_TP | H_VP | H_LL | H_LE | H_DX,
|
190 |
H_NM | H_XY | H_TP | H_VP | H_LL | H_LE | H_DX,
|
| 161 |
H_NM | H_XY | H_TP | H_AT | H_VP | H_DX,
|
191 |
H_NM | H_XY | H_TP | H_AT | H_VP | H_DX,
|
| 162 |
H_NM | H_XY | H_TP | H_AT | H_VP | H_LL | H_DX,
|
192 |
H_NM | H_XY | H_TP | H_AT | H_VP | H_LL | H_DX,
|
| 163 |
H_NM | H_XY | H_TP | H_AT | H_VP | H_LL | H_LE | H_DX,
|
193 |
H_NM | H_XY | H_TP | H_AT | H_VP | H_LL | H_LE | H_DX,
|
| 164 |
H_NM | H_XY | H_TP | H_AC | H_VP | H_DX,
|
194 |
H_NM | H_XY | H_TP | H_AC | H_VP | H_DX,
|
| 165 |
H_NM | H_XY | H_TP | H_AC | H_VP | H_LL | H_DX,
|
195 |
H_NM | H_XY | H_TP | H_AC | H_VP | H_LL | H_DX,
|
| 166 |
H_NM | H_XY | H_TP | H_AC | H_VP | H_LL | H_LE | H_DX,
|
196 |
H_NM | H_XY | H_TP | H_AC | H_VP | H_LL | H_LE | H_DX,
|
| 167 |
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP | H_DX,
|
197 |
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP | H_DX,
|
| 168 |
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP | H_LL | H_DX,
|
198 |
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP | H_LL | H_DX,
|
| 169 |
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP | H_LL | H_LE | H_DX,
|
199 |
H_NM | H_XY | H_TP | H_AT | H_AC | H_VP | H_LL | H_LE | H_DX,
|
| 170 |
#endif
|
200 |
#endif
|
| 171 |
0 };
|
201 |
0 };
|
| 172 |
|
202 |
|
| 173 |
#define y_param (H_DC|H_NM|H_XY|H_AT|H_VP)
|
203 |
#define y_param (H_DC|H_NM|H_XY|H_AT|H_VP)
|
| 174 |
|
204 |
|
| 175 |
static long x_proc[] = {
|
205 |
static long x_proc[] = {
|
| 407 |
static long x_class[] = {
|
437 |
static long x_class[] = {
|
| 408 |
H_NM | H_SZ,
|
438 |
H_NM | H_SZ,
|
| 409 |
H_SZ,
|
439 |
H_SZ,
|
| 410 |
H_DC | H_SZ,
|
440 |
H_DC | H_SZ,
|
| 411 |
H_DC | H_NM | H_SZ,
|
441 |
H_DC | H_NM | H_SZ,
|
| 412 |
H_SP | H_SZ,
|
442 |
H_SP | H_SZ,
|
| 413 |
H_SP | H_NM | H_SZ,
|
443 |
H_SP | H_NM | H_SZ,
|
| 414 |
H_DC | H_NM | H_XY | H_EXTN,
|
444 |
H_DC | H_NM | H_XY | H_EXTN,
|
| 415 |
H_DC | H_NM | H_XY | H_SZ | H_EXTN,
|
445 |
H_DC | H_NM | H_XY | H_SZ | H_EXTN,
|
| 416 |
H_SP | H_DC | H_NM | H_XY | H_EXTN,
|
446 |
H_SP | H_DC | H_NM | H_XY | H_EXTN,
|
| 417 |
H_SP | H_DC | H_NM | H_XY | H_SZ | H_EXTN,
|
447 |
H_SP | H_DC | H_NM | H_XY | H_SZ | H_EXTN,
|
| 418 |
0 };
|
448 |
0 };
|
| 419 |
|
449 |
|
| 420 |
#define y_class (H_DC|H_NM|H_XY|H_GN|H_EXTN)
|
450 |
#define y_class (H_DC|H_NM|H_XY|H_GN|H_EXTN)
|
| 421 |
#define z_class (H_NW|H_EL|H_VS|H_VD|H_RS|H_RD|H_CB|H_ID)
|
451 |
#define z_class (H_NW|H_EL|H_VS|H_VD|H_RS|H_RD|H_CB|H_ID)
|
| 422 |
|
452 |
|
| 423 |
static long x_member[] = {
|
453 |
static long x_member[] = {
|
| 424 |
H_NM | H_TP,
|
454 |
H_NM | H_TP,
|
| 425 |
H_NM | H_TP | H_LC,
|
455 |
H_NM | H_TP | H_LC,
|
| 426 |
H_NM | H_TP | H_BF,
|
456 |
H_NM | H_TP | H_BF,
|
| 427 |
H_NM | H_TP | H_LC | H_BF,
|
457 |
H_NM | H_TP | H_LC | H_BF,
|
| 428 |
H_NM | H_XY | H_TP,
|
458 |
H_NM | H_XY | H_TP,
|
| 429 |
H_NM | H_XY | H_TP | H_LC,
|
459 |
H_NM | H_XY | H_TP | H_LC,
|
| 430 |
H_NM | H_XY | H_TP | H_BF,
|
460 |
H_NM | H_XY | H_TP | H_BF,
|
| 431 |
H_NM | H_XY | H_TP | H_LC | H_BF,
|
461 |
H_NM | H_XY | H_TP | H_LC | H_BF,
|
| 432 |
H_NM | H_XY | H_AC | H_TP,
|
462 |
H_NM | H_XY | H_AC | H_TP,
|
| 433 |
H_NM | H_XY | H_AC | H_TP | H_LC,
|
463 |
H_NM | H_XY | H_AC | H_TP | H_LC,
|
| 434 |
H_NM | H_XY | H_AC | H_TP | H_BF,
|
464 |
H_NM | H_XY | H_AC | H_TP | H_BF,
|
| 435 |
H_NM | H_XY | H_AC | H_TP | H_LC | H_BF,
|
465 |
H_NM | H_XY | H_AC | H_TP | H_LC | H_BF,
|
| 436 |
H_NM | H_XY | H_TP | H_DS,
|
466 |
H_NM | H_XY | H_TP | H_DS,
|
| 437 |
H_NM | H_XY | H_TP | H_LC | H_DS,
|
467 |
H_NM | H_XY | H_TP | H_LC | H_DS,
|
| 438 |
H_NM | H_XY | H_TP | H_BF | H_DS,
|
468 |
H_NM | H_XY | H_TP | H_BF | H_DS,
|
| 439 |
H_NM | H_XY | H_TP | H_LC | H_BF | H_DS,
|
469 |
H_NM | H_XY | H_TP | H_LC | H_BF | H_DS,
|
| 440 |
H_NM | H_XY | H_AC | H_TP | H_DS,
|
470 |
H_NM | H_XY | H_AC | H_TP | H_DS,
|
| 441 |
H_NM | H_XY | H_AC | H_TP | H_LC | H_DS,
|
471 |
H_NM | H_XY | H_AC | H_TP | H_LC | H_DS,
|
| 442 |
H_NM | H_XY | H_AC | H_TP | H_BF | H_DS,
|
472 |
H_NM | H_XY | H_AC | H_TP | H_BF | H_DS,
|
| 443 |
H_NM | H_XY | H_AC | H_TP | H_LC | H_BF | H_DS,
|
473 |
H_NM | H_XY | H_AC | H_TP | H_LC | H_BF | H_DS,
|
| 444 |
H_NM | H_XY | H_TP | H_DS | H_DF,
|
474 |
H_NM | H_XY | H_TP | H_DS | H_DF,
|
| 445 |
H_NM | H_XY | H_TP | H_LC | H_DS | H_DF,
|
475 |
H_NM | H_XY | H_TP | H_LC | H_DS | H_DF,
|
| 446 |
H_NM | H_XY | H_TP | H_BF | H_DS | H_DF,
|
476 |
H_NM | H_XY | H_TP | H_BF | H_DS | H_DF,
|
| 447 |
H_NM | H_XY | H_TP | H_LC | H_BF | H_DS | H_DF,
|
477 |
H_NM | H_XY | H_TP | H_LC | H_BF | H_DS | H_DF,
|
| 448 |
H_NM | H_XY | H_AC | H_TP | H_DS | H_DF,
|
478 |
H_NM | H_XY | H_AC | H_TP | H_DS | H_DF,
|
| 449 |
H_NM | H_XY | H_AC | H_TP | H_LC | H_DS | H_DF,
|
479 |
H_NM | H_XY | H_AC | H_TP | H_LC | H_DS | H_DF,
|
| 450 |
H_NM | H_XY | H_AC | H_TP | H_BF | H_DS | H_DF,
|
480 |
H_NM | H_XY | H_AC | H_TP | H_BF | H_DS | H_DF,
|
| 451 |
H_NM | H_XY | H_AC | H_TP | H_LC | H_BF | H_DS | H_DF,
|
481 |
H_NM | H_XY | H_AC | H_TP | H_LC | H_BF | H_DS | H_DF,
|
| 452 |
#ifdef H_DX
|
482 |
#ifdef H_DX
|
| 453 |
H_NM | H_XY | H_TP | H_DS | H_DX,
|
483 |
H_NM | H_XY | H_TP | H_DS | H_DX,
|
| 454 |
H_NM | H_XY | H_TP | H_LC | H_DS | H_DX,
|
484 |
H_NM | H_XY | H_TP | H_LC | H_DS | H_DX,
|
| 455 |
H_NM | H_XY | H_TP | H_BF | H_DS | H_DX,
|
485 |
H_NM | H_XY | H_TP | H_BF | H_DS | H_DX,
|
| 456 |
H_NM | H_XY | H_TP | H_LC | H_BF | H_DS | H_DX,
|
486 |
H_NM | H_XY | H_TP | H_LC | H_BF | H_DS | H_DX,
|
| 457 |
H_NM | H_XY | H_AC | H_TP | H_DS | H_DX,
|
487 |
H_NM | H_XY | H_AC | H_TP | H_DS | H_DX,
|
| 458 |
H_NM | H_XY | H_AC | H_TP | H_LC | H_DS | H_DX,
|
488 |
H_NM | H_XY | H_AC | H_TP | H_LC | H_DS | H_DX,
|
| 459 |
H_NM | H_XY | H_AC | H_TP | H_BF | H_DS | H_DX,
|
489 |
H_NM | H_XY | H_AC | H_TP | H_BF | H_DS | H_DX,
|
| 460 |
H_NM | H_XY | H_AC | H_TP | H_LC | H_BF | H_DS | H_DX,
|
490 |
H_NM | H_XY | H_AC | H_TP | H_LC | H_BF | H_DS | H_DX,
|
| 461 |
#endif
|
491 |
#endif
|
| 462 |
0 };
|
492 |
0 };
|
| 463 |
|
493 |
|
| 464 |
#define y_member (H_NM|H_XY)
|
494 |
#define y_member (H_NM|H_XY)
|
| 465 |
|
495 |
|
| 466 |
static long x_ind_mem[] = {
|
496 |
static long x_ind_mem[] = {
|
| 467 |
H_NM | H_TP | H_LC,
|
497 |
H_NM | H_TP | H_LC,
|
| 468 |
H_NM | H_XY | H_TP | H_LC,
|
498 |
H_NM | H_XY | H_TP | H_LC,
|
| 469 |
0 };
|
499 |
0 };
|
| 470 |
|
500 |
|
| 471 |
#define y_ind_mem (H_NM|H_XY)
|
501 |
#define y_ind_mem (H_NM|H_XY)
|
| 472 |
|
502 |
|
| 473 |
static long x_inherit[] = {
|
503 |
static long x_inherit[] = {
|
| 474 |
H_TP | H_LC,
|
504 |
H_TP | H_LC,
|
| 475 |
H_XY | H_TP | H_LC | H_VT,
|
505 |
H_XY | H_TP | H_LC | H_VT,
|
| 476 |
H_XY | H_TP | H_LC | H_AC | H_VT,
|
506 |
H_XY | H_TP | H_LC | H_AC | H_VT,
|
| 477 |
0 };
|
507 |
0 };
|
| 478 |
|
508 |
|
| 479 |
#define y_inherit (H_XY|H_VT)
|
509 |
#define y_inherit (H_XY|H_VT)
|
| 480 |
|
510 |
|
| 481 |
static long x_procret[] = {
|
511 |
static long x_procret[] = {
|
| 482 |
H_XY,
|
512 |
H_XY,
|
| 483 |
H_XY | H_PC,
|
513 |
H_XY | H_PC,
|
| 484 |
H_XY | H_PC | H_LC,
|
514 |
H_XY | H_PC | H_LC,
|
| 485 |
0 };
|
515 |
0 };
|
| 486 |
|
516 |
|
| 487 |
static long x_throw[] = {
|
517 |
static long x_throw[] = {
|
| 488 |
H_XY,
|
518 |
H_XY,
|
| 489 |
H_XY | H_TP,
|
519 |
H_XY | H_TP,
|
| 490 |
H_XY | H_TP | H_LC,
|
520 |
H_XY | H_TP | H_LC,
|
| 491 |
H_XY | H_TP | H_CV,
|
521 |
H_XY | H_TP | H_CV,
|
| 492 |
0 };
|
522 |
0 };
|
| 493 |
|
523 |
|
| 494 |
static long x_destruct[] = {
|
524 |
static long x_destruct[] = {
|
| 495 |
0,
|
525 |
0,
|
| 496 |
H_TP | H_LC,
|
526 |
H_TP | H_LC,
|
| 497 |
H_TP | H_CV,
|
527 |
H_TP | H_CV,
|
| 498 |
0 };
|
528 |
0 };
|
| 499 |
|
529 |
|
| 500 |
static long x_enum[] = {
|
530 |
static long x_enum[] = {
|
| 501 |
H_NM | H_SZ,
|
531 |
H_NM | H_SZ,
|
| 502 |
H_NM | H_XY | H_SZ,
|
532 |
H_NM | H_XY | H_SZ,
|
| 503 |
H_SP | H_NM | H_XY | H_SZ,
|
533 |
H_SP | H_NM | H_XY | H_SZ,
|
| 504 |
H_DC | H_NM | H_XY | H_SZ | H_NW,
|
534 |
H_DC | H_NM | H_XY | H_SZ | H_NW,
|
| 505 |
H_SP | H_DC | H_NM | H_XY | H_SZ | H_NW,
|
535 |
H_SP | H_DC | H_NM | H_XY | H_SZ | H_NW,
|
| 506 |
0 };
|
536 |
0 };
|
| 507 |
|
537 |
|
| 508 |
#define y_enum (H_DC|H_NM|H_XY|H_NW)
|
538 |
#define y_enum (H_DC|H_NM|H_XY|H_NW)
|
| 509 |
|
539 |
|
| 510 |
static long x_cons_t[] = {
|
540 |
static long x_cons_t[] = {
|
| 511 |
H_DC | H_TP | H_SZ,
|
541 |
H_DC | H_TP | H_SZ,
|
| 512 |
H_DC | H_SP | H_TP | H_SZ,
|
542 |
H_DC | H_SP | H_TP | H_SZ,
|
| 513 |
0 };
|
543 |
0 };
|
| 514 |
|
544 |
|
| 515 |
#define y_cons_t (H_DC)
|
545 |
#define y_cons_t (H_DC)
|
| 516 |
|
546 |
|
| 517 |
static long x_subr[] = {
|
547 |
static long x_subr[] = {
|
| 518 |
0,
|
548 |
0,
|
| 519 |
H_TP | H_SZ,
|
549 |
H_TP | H_SZ,
|
| 520 |
H_TP | H_SZ | H_LB,
|
550 |
H_TP | H_SZ | H_LB,
|
| 521 |
H_TP | H_SZ | H_LB | H_UB,
|
551 |
H_TP | H_SZ | H_LB | H_UB,
|
| 522 |
H_TP | H_SZ | H_LB | H_CN,
|
552 |
H_TP | H_SZ | H_LB | H_CN,
|
| 523 |
H_TP | H_SZ | H_UB,
|
553 |
H_TP | H_SZ | H_UB,
|
| 524 |
0 };
|
554 |
0 };
|
| 525 |
|
555 |
|
| 526 |
static long x_constraint[] = {
|
556 |
static long x_constraint[] = {
|
| 527 |
H_CV,
|
557 |
H_CV,
|
| 528 |
H_TP,
|
558 |
H_TP,
|
| 529 |
H_RM | H_CV,
|
559 |
H_RM | H_CV,
|
| 530 |
H_RM | H_TP,
|
560 |
H_RM | H_TP,
|
| 531 |
0 };
|
561 |
0 };
|
| 532 |
|
562 |
|
| 533 |
static long x_fixpt[] = {
|
563 |
static long x_fixpt[] = {
|
| 534 |
0,
|
564 |
0,
|
| 535 |
H_DF,
|
565 |
H_DF,
|
| 536 |
H_DS,
|
566 |
H_DS,
|
| 537 |
H_DF | H_DS,
|
567 |
H_DF | H_DS,
|
| 538 |
0 };
|
568 |
0 };
|
| 539 |
|
- |
|
| 540 |
|
- |
|
| 541 |
|
- |
|
| 542 |
#if 1
|
- |
|
| 543 |
#define Z(a,b,c,d) {0, a, (long)b, (long)c, d}
|
- |
|
| 544 |
#else
|
- |
|
| 545 |
#define Z(a,b,c,d) {0, a, (long)b, (long)c}
|
- |
|
| 546 |
#endif
|
- |
|
| 547 |
|
- |
|
| 548 |
|
- |
|
| 549 |
abbrev_entry
|
- |
|
| 550 |
dwe_comp_unit = Z (empty, 0, 0, "compilation unit"),
|
- |
|
| 551 |
dwe_cmac_unit = Z (empty, 0, 0, "compilation unit with macros"),
|
- |
|
| 552 |
dwe_module = Z (x_module, y_module, 0, "module"),
|
- |
|
| 553 |
dwe_namespace = Z (x_namespace, y_namespace, 0, "namespace"),
|
- |
|
| 554 |
dwe_subunit = Z (empty, 0, 0, "subunit"),
|
- |
|
| 555 |
dwe_childunit = Z (empty, 0, 0, "child unit"),
|
- |
|
| 556 |
dwe_child_acc = Z (empty, 0, 0, "child unit_a"),
|
- |
|
| 557 |
dwe_import = Z (x_import, y_import, 0, "import"),
|
- |
|
| 558 |
dwe_import_p = Z (x_import, y_import, 0, "import_p"),
|
- |
|
| 559 |
dwe_entrypt = Z (empty, 0, 0, "entry point"),
|
- |
|
| 560 |
dwe_param = Z (x_param, y_param, 0, "formal parameter"),
|
- |
|
| 561 |
dwe_formal = Z (empty, 0, 0, "formal parameter type"),
|
- |
|
| 562 |
dwe_opt_par = Z (empty, 0, 0, "unspecified parameters"),
|
- |
|
| 563 |
dwe_thrown_t = Z (empty, 0, 0, "thrown type"),
|
- |
|
| 564 |
dwe_inl_call = Z (empty, 0, 0, "inlined call"),
|
- |
|
| 565 |
dwe_inl_opnd = Z (empty, 0, 0, "inlined call is operand"),
|
- |
|
| 566 |
dwe_scope = Z (x_lexscope, y_lexscope, 0, "lexical block"),
|
- |
|
| 567 |
dwe_fragment = Z (empty, 0, 0, "lexical fragment"),
|
- |
|
| 568 |
dwe_label = Z (empty, 0, 0, "labelled statement"),
|
- |
|
| 569 |
dwe_with = Z (empty, 0, 0, "with statement"),
|
- |
|
| 570 |
dwe_try = Z (empty, 0, 0, "try block"),
|
- |
|
| 571 |
dwe_catch = Z (empty, 0, 0, "catch block"),
|
- |
|
| 572 |
dwe_variable = Z (x_variable, y_variable, 0, "variable"),
|
- |
|
| 573 |
dwe_constant = Z (x_constant, y_constant, 0, "constant"),
|
- |
|
| 574 |
dwe_tmpl_type = Z (empty, 0, 0, "template type"),
|
- |
|
| 575 |
dwe_tmpl_val = Z (empty, 0, 0, "template value"),
|
- |
|
| 576 |
dwe_tmpl_proc = Z (empty, 0, 0, "template proc"),
|
- |
|
| 577 |
dwe_tmpl_mod = Z (empty, 0, 0, "template module"),
|
- |
|
| 578 |
dwe_typedef = Z (x_typedef, y_typedef, 0, "type definition"),
|
- |
|
| 579 |
dwe_typecon = Z (x_typedef, y_typedef, 0, "type definition with constraints"),
|
- |
|
| 580 |
dwe_cnstraint = Z (x_constraint, 0, 0, "constraint"),
|
- |
|
| 581 |
dwe_base_type = Z (empty, 0, 0, "base type"),
|
- |
|
| 582 |
dwe_cnst_type = Z (empty, 0, 0, "const type"),
|
- |
|
| 583 |
dwe_vol_type = Z (empty, 0, 0, "volatile type"),
|
- |
|
| 584 |
dwe_clwd_type = Z (empty, 0, 0, "class wide type"),
|
- |
|
| 585 |
dwe_als_type = Z (empty, 0, 0, "aliased type"),
|
- |
|
| 586 |
dwe_lim_type = Z (empty, 0, 0, "limited type"),
|
- |
|
| 587 |
dwe_ptr_type = Z (empty, 0, 0, "pointer type"),
|
- |
|
| 588 |
dwe_hpptr_t = Z (empty, 0, 0, "heap-only pointer"),
|
- |
|
| 589 |
dwe_ref_type = Z (empty, 0, 0, "reference type"),
|
- |
|
| 590 |
dwe_pack_type = Z (empty, 0, 0, "packed type"),
|
- |
|
| 591 |
dwe_arr_type = Z (empty, 0, 0, "array type"),
|
- |
|
| 592 |
dwe_arr_dyn = Z (empty, 0, 0, "array type"),
|
- |
|
| 593 |
dwe_subr_type = Z (x_subr, 0, 0, "subrange type"),
|
- |
|
| 594 |
dwe_enum_type = Z (x_enum, y_enum, 0, "enumeration type"),
|
- |
|
| 595 |
dwe_enum_tor = Z (empty, 0, 0, "enumerator"),
|
- |
|
| 596 |
dwe_enum_char = Z (empty, 0, 0, "enumerator"),
|
- |
|
| 597 |
dwe_struct_t = Z (x_struct, y_struct, 0, "struct type"),
|
- |
|
| 598 |
dwe_member = Z (x_member, y_member, 0, "member"),
|
- |
|
| 599 |
dwe_varpart = Z (empty, 0, 0, "variant part discr"),
|
- |
|
| 600 |
dwe_varpart_t = Z (empty, 0, 0, "variant part type"),
|
- |
|
| 601 |
dwe_variant_0 = Z (empty, 0, 0, "variant def"),
|
- |
|
| 602 |
dwe_variant_1 = Z (empty, 0, 0, "variant val"),
|
- |
|
| 603 |
dwe_variant_n = Z (empty, 0, 0, "variant list"),
|
- |
|
| 604 |
dwe_union_t = Z (x_struct, y_struct, 0, "union type"),
|
- |
|
| 605 |
dwe_class_t = Z (x_class, y_class, z_class, "class type"),
|
- |
|
| 606 |
dwe_inheritce = Z (x_inherit, y_inherit, 0, "inheritance"),
|
- |
|
| 607 |
dwe_friend = Z (empty, 0, 0, "friend"),
|
- |
|
| 608 |
dwe_ptrmem_t = Z (empty, 0, 0, "ptr to member type"),
|
- |
|
| 609 |
dwe_ind_mem = Z (x_ind_mem, y_ind_mem, 0, "indirect member"),
|
- |
|
| 610 |
dwe_proc_type = Z (empty, 0, 0, "subroutine type"),
|
- |
|
| 611 |
dwe_procv_t = Z (empty, 0, 0, "subroutine type void"),
|
- |
|
| 612 |
dwe_string_t = Z (empty, 0, 0, "string type"),
|
- |
|
| 613 |
dwe_stringc_t = Z (empty, 0, 0, "string type, constant length"),
|
- |
|
| 614 |
dwe_file_t = Z (x_cons_t, y_cons_t, 0, "file type"),
|
- |
|
| 615 |
dwe_set_t = Z (x_cons_t, y_cons_t, 0, "set type"),
|
- |
|
| 616 |
dwe_fixpt_t = Z (x_fixpt, 0, 0, "fixed point type"),
|
- |
|
| 617 |
dwe_fldg_t = Z (empty, 0, 0, "floating digits"),
|
- |
|
| 618 |
dwe_modular_t = Z (empty, 0, 0, "modular type"),
|
- |
|
| 619 |
dwe_task_t = Z (x_class, y_class, z_class, "task type"),
|
- |
|
| 620 |
dwe_synch_t = Z (x_class, y_class, z_class, "synchronous type"),
|
- |
|
| 621 |
dwe_entry = Z (x_entry, y_entry, 0, "entry"),
|
- |
|
| 622 |
dwe_for_unit = Z (empty, 0, 0, "foreign compunit"),
|
- |
|
| 623 |
dwe_for_lang = Z (empty, 0, 0, "foreign language"),
|
- |
|
| 624 |
dwe_call = Z (empty, 0, 0, "subroutine call"),
|
- |
|
| 625 |
dwe_return = Z (x_procret, 0, 0, "subroutine return"),
|
- |
|
| 626 |
dwe_destruct = Z (x_destruct, 0, 0, "destruct"),
|
- |
|
| 627 |
dwe_branch = Z (empty, 0, 0, "branch"),
|
- |
|
| 628 |
dwe_branch_0 = Z (empty, 0, 0, "optimised branch"),
|
- |
|
| 629 |
dwe_break = Z (empty, 0, 0, "breakpoint"),
|
- |
|
| 630 |
dwe_test = Z (empty, 0, 0, "test"),
|
- |
|
| 631 |
dwe_test_0 = Z (empty, 0, 0, "optimised test"),
|
- |
|
| 632 |
dwe_jump = Z (empty, 0, 0, "jump"),
|
- |
|
| 633 |
dwe_jump_0 = Z (empty, 0, 0, "optimised jump"),
|
- |
|
| 634 |
dwe_lj = Z (empty, 0, 0, "long jump"),
|
- |
|
| 635 |
dwe_lj_0 = Z (empty, 0, 0, "optimised long jump"),
|
- |
|
| 636 |
dwe_throw = Z (x_throw, 0, 0, "throw"),
|
- |
|
| 637 |
dwe_barrier = Z (empty, 0, 0, "entry barrier"),
|
- |
|
| 638 |
dwe_select = Z (empty, 0, 0, "select"),
|
- |
|
| 639 |
dwe_accept = Z (empty, 0, 0, "accept"),
|
- |
|
| 640 |
dwe_accept_c = Z (empty, 0, 0, "accept_c"),
|
- |
|
| 641 |
dwe_rts = Z (empty, 0, 0, "rts call"),
|
- |
|
| 642 |
dwe_rts_en = Z (empty, 0, 0, "rts entry call"),
|
- |
|
| 643 |
dwe_sel_alt = Z (empty, 0, 0, "select alternative"),
|
- |
|
| 644 |
dwe_sel_alt_c = Z (empty, 0, 0, "select alternative_c"),
|
- |
|
| 645 |
dwe_sel_guard = Z (empty, 0, 0, "select guard"),
|
- |
|
| 646 |
dwe_asynchsel = Z (empty, 0, 0, "asynchronous select"),
|
- |
|
| 647 |
dwe_trigger = Z (empty, 0, 0, "triggering alternate"),
|
- |
|
| 648 |
dwe_trigger_c = Z (empty, 0, 0, "triggering alternate_c"),
|
- |
|
| 649 |
dwe_abort_pt = Z (empty, 0, 0, "abortable part"),
|
- |
|
| 650 |
dwe_abort_ptc = Z (empty, 0, 0, "abortable part_c"),
|
- |
|
| 651 |
dwe_requeue = Z (empty, 0, 0, "requeue"),
|
- |
|
| 652 |
dwe_unknown_t = Z (empty, 0, 0, "unknown type"),
|
- |
|
| 653 |
dwe_span = Z (empty, 0, 0, "source span"),
|
- |
|
| 654 |
dwe_span_strt = Z (empty, 0, 0, "span start"),
|
- |
|
| 655 |
dwe_span_end = Z (empty, 0, 0, "span end"),
|
- |
|
| 656 |
dwe_absent = Z (empty, 0, 0, "absent"),
|
- |
|
| 657 |
dwe_absent_r = Z (empty, 0, 0, "absent with ref"),
|
- |
|
| 658 |
dwe_absent_x = Z (empty, 0, 0, "absent statement"),
|
- |
|
| 659 |
dwe_absent_xr = Z (empty, 0, 0, "absent statement with ref"),
|
- |
|
| 660 |
dwe_displaced = Z (empty, 0, 0, "movement source"),
|
- |
|
| 661 |
dwe_displ_x = Z (empty, 0, 0, "moved statement source"),
|
- |
|
| 662 |
dwe_moved = Z (empty, 0, 0, "movement dest"),
|
- |
|
| 663 |
dwe_moved_r = Z (empty, 0, 0, "movement dest with ref"),
|
- |
|
| 664 |
dwe_moved_x = Z (empty, 0, 0, "trivial movement dest"),
|
- |
|
| 665 |
dwe_moved_xr = Z (empty, 0, 0, "trivial movement dest with ref"),
|
- |
|
| 666 |
dwe_optim = Z (empty, 0, 0, "optimisation block"),
|
- |
|
| 667 |
dwe_proc = Z (x_proc, y_proc, z_proc, "subroutine");
|
- |
|
| 668 |
|
569 |
|
| 669 |
|
570 |
|
| 807 |
}
|
839 |
}
|
| 808 |
|
840 |
|
| 809 |
|
841 |
|
| 810 |
long dw_entry
|
842 |
long
|
| 811 |
PROTO_N ( (en, attr) )
|
- |
|
| 812 |
PROTO_T ( abbrev_entry en X long attr )
|
843 |
dw_entry(abbrev_entry en, long attr)
|
| 813 |
{
|
844 |
{
|
| 814 |
int d_tag = en.index;
|
845 |
int d_tag = en.index;
|
| 815 |
long * comb = en.attr;
|
846 |
long *comb = en.attr;
|
| 816 |
if (*comb != -1) {
|
847 |
if (*comb != -1) {
|
| 817 |
for (;;) {
|
848 |
for (;;) {
|
| 818 |
long extra = *comb & ~attr;
|
849 |
long extra = *comb & ~attr;
|
| 819 |
long missing = attr & ~*comb & ~(en.special);
|
850 |
long missing = attr & ~*comb & ~(en.special);
|
| 820 |
if (!(extra & ~(en.valid)) && !missing)
|
851 |
if (!(extra & ~(en.valid)) && !missing) {
|
| 821 |
break;
|
852 |
break;
|
| - |
|
853 |
}
|
| 822 |
if (!*(++comb))
|
854 |
if (!*(++comb)) {
|
| 823 |
failer ("unsupported attribute combination");
|
855 |
failer("unsupported attribute combination");
|
| - |
|
856 |
}
|
| 824 |
d_tag++;
|
857 |
d_tag++;
|
| 825 |
}
|
858 |
}
|
| 826 |
}
|
859 |
}
|
| - |
|
860 |
out8();
|
| 827 |
out8 (); uleb128 ((unsigned long)d_tag);
|
861 |
uleb128((unsigned long)d_tag);
|
| 828 |
#if 1
|
862 |
#if 1
|
| 829 |
outnl_comment_i (en.aname, (long)(d_tag - en.index));
|
863 |
outnl_comment_i(en.aname, (long)(d_tag - en.index));
|
| 830 |
#else
|
864 |
#else
|
| 831 |
d_outnl ();
|
865 |
d_outnl();
|
| 832 |
#endif
|
866 |
#endif
|
| 833 |
return *comb;
|
867 |
return *comb;
|
| 834 |
}
|
868 |
}
|
| 835 |
|
- |
|