annotate gcc/testsuite/gcc.c-torture/compile/20020304-1.c @ 131:84e7813d76e9

gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children 1830386684a0
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 /* In 3.0, this test case (extracted from Bigloo) crashes the compiler in
kono
parents:
diff changeset
2 bb-reorder.c. This is a regression from 2.95, already fixed in 3.1.
kono
parents:
diff changeset
3
kono
parents:
diff changeset
4 Original bug report is c/5830 by Manuel Serrano <Manuel.Serrano@inria.fr>.
kono
parents:
diff changeset
5 */
kono
parents:
diff changeset
6
kono
parents:
diff changeset
7 typedef union scmobj {
kono
parents:
diff changeset
8 struct pair {
kono
parents:
diff changeset
9 union scmobj *car;
kono
parents:
diff changeset
10 union scmobj *cdr;
kono
parents:
diff changeset
11 } pair_t;
kono
parents:
diff changeset
12 struct vector {
kono
parents:
diff changeset
13 long header;
kono
parents:
diff changeset
14 int length;
kono
parents:
diff changeset
15 union scmobj *obj0;
kono
parents:
diff changeset
16 } vector_t;
kono
parents:
diff changeset
17 } *obj_t;
kono
parents:
diff changeset
18
kono
parents:
diff changeset
19 extern obj_t create_vector (int);
kono
parents:
diff changeset
20 extern obj_t make_pair (obj_t, obj_t);
kono
parents:
diff changeset
21 extern long bgl_list_length (obj_t);
kono
parents:
diff changeset
22 extern int BGl_equalzf3zf3zz__r4_equivalence_6_2z00 (obj_t, obj_t);
kono
parents:
diff changeset
23 extern obj_t BGl_evcompilezd2lambdazd2zz__evcompilez00 (obj_t
kono
parents:
diff changeset
24 BgL_formalsz00_39,
kono
parents:
diff changeset
25 obj_t BgL_bodyz00_40,
kono
parents:
diff changeset
26 obj_t BgL_wherez00_41,
kono
parents:
diff changeset
27 obj_t
kono
parents:
diff changeset
28 BgL_namedzf3zf3_42,
kono
parents:
diff changeset
29 obj_t BgL_locz00_43);
kono
parents:
diff changeset
30
kono
parents:
diff changeset
31 obj_t
kono
parents:
diff changeset
32 BGl_evcompilezd2lambdazd2zz__evcompilez00 (obj_t BgL_formalsz00_39,
kono
parents:
diff changeset
33 obj_t BgL_bodyz00_40,
kono
parents:
diff changeset
34 obj_t BgL_wherez00_41,
kono
parents:
diff changeset
35 obj_t BgL_namedzf3zf3_42,
kono
parents:
diff changeset
36 obj_t BgL_locz00_43)
kono
parents:
diff changeset
37 {
kono
parents:
diff changeset
38 if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00
kono
parents:
diff changeset
39 (BgL_formalsz00_39,
kono
parents:
diff changeset
40 ((obj_t) (obj_t) ((long) (((long) (0) << 2) | 2))))) {
kono
parents:
diff changeset
41 BgL_tagzd21966zd2_943:
kono
parents:
diff changeset
42 if ((BgL_namedzf3zf3_42 !=
kono
parents:
diff changeset
43 ((obj_t) (obj_t) ((long) (((long) (1) << 2) | 2))))) {
kono
parents:
diff changeset
44 obj_t BgL_v1042z00_998;
kono
parents:
diff changeset
45 {
kono
parents:
diff changeset
46 int BgL_auxz00_4066;
kono
parents:
diff changeset
47 BgL_auxz00_4066 = (int) (((long) 3));
kono
parents:
diff changeset
48 BgL_v1042z00_998 = create_vector (BgL_auxz00_4066);
kono
parents:
diff changeset
49 }
kono
parents:
diff changeset
50 {
kono
parents:
diff changeset
51 obj_t BgL_arg1586z00_1000;
kono
parents:
diff changeset
52 BgL_arg1586z00_1000 = make_pair (BgL_wherez00_41, BgL_bodyz00_40);
kono
parents:
diff changeset
53 {
kono
parents:
diff changeset
54 int BgL_auxz00_4070;
kono
parents:
diff changeset
55 BgL_auxz00_4070 = (int) (((long) 2));
kono
parents:
diff changeset
56 ((&(((obj_t) (BgL_v1042z00_998))->vector_t.obj0))[BgL_auxz00_4070] =
kono
parents:
diff changeset
57 BgL_arg1586z00_1000,
kono
parents:
diff changeset
58 ((obj_t) (obj_t) ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
59 }
kono
parents:
diff changeset
60 }
kono
parents:
diff changeset
61 {
kono
parents:
diff changeset
62 int BgL_auxz00_4073;
kono
parents:
diff changeset
63 BgL_auxz00_4073 = (int) (((long) 1));
kono
parents:
diff changeset
64 ((&(((obj_t) (BgL_v1042z00_998))->vector_t.obj0))[BgL_auxz00_4073] =
kono
parents:
diff changeset
65 BgL_locz00_43, ((obj_t) (obj_t) ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
66 }
kono
parents:
diff changeset
67 {
kono
parents:
diff changeset
68 obj_t BgL_auxz00_4078;
kono
parents:
diff changeset
69 int BgL_auxz00_4076;
kono
parents:
diff changeset
70 {
kono
parents:
diff changeset
71 long BgL_auxz00_4079;
kono
parents:
diff changeset
72 {
kono
parents:
diff changeset
73 long BgL_auxz00_4080;
kono
parents:
diff changeset
74 BgL_auxz00_4080 = bgl_list_length (BgL_formalsz00_39);
kono
parents:
diff changeset
75 BgL_auxz00_4079 = (BgL_auxz00_4080 + ((long) 37));
kono
parents:
diff changeset
76 }
kono
parents:
diff changeset
77 BgL_auxz00_4078 =
kono
parents:
diff changeset
78 (obj_t) ((long) (((long) (BgL_auxz00_4079) << 2) | 1));
kono
parents:
diff changeset
79 }
kono
parents:
diff changeset
80 BgL_auxz00_4076 = (int) (((long) 0));
kono
parents:
diff changeset
81 ((&(((obj_t) (BgL_v1042z00_998))->vector_t.obj0))[BgL_auxz00_4076] =
kono
parents:
diff changeset
82 BgL_auxz00_4078, ((obj_t) (obj_t) ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
83 }
kono
parents:
diff changeset
84 return BgL_v1042z00_998;
kono
parents:
diff changeset
85 } else {
kono
parents:
diff changeset
86 obj_t BgL_v1043z00_1005;
kono
parents:
diff changeset
87 {
kono
parents:
diff changeset
88 int BgL_auxz00_4085;
kono
parents:
diff changeset
89 BgL_auxz00_4085 = (int) (((long) 3));
kono
parents:
diff changeset
90 BgL_v1043z00_1005 = create_vector (BgL_auxz00_4085);
kono
parents:
diff changeset
91 }
kono
parents:
diff changeset
92 {
kono
parents:
diff changeset
93 int BgL_auxz00_4088;
kono
parents:
diff changeset
94 BgL_auxz00_4088 = (int) (((long) 2));
kono
parents:
diff changeset
95 ((&(((obj_t) (BgL_v1043z00_1005))->vector_t.obj0))[BgL_auxz00_4088] =
kono
parents:
diff changeset
96 BgL_bodyz00_40, ((obj_t) (obj_t) ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
97 }
kono
parents:
diff changeset
98 {
kono
parents:
diff changeset
99 int BgL_auxz00_4091;
kono
parents:
diff changeset
100 BgL_auxz00_4091 = (int) (((long) 1));
kono
parents:
diff changeset
101 ((&(((obj_t) (BgL_v1043z00_1005))->vector_t.obj0))[BgL_auxz00_4091] =
kono
parents:
diff changeset
102 BgL_locz00_43, ((obj_t) (obj_t) ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
103 }
kono
parents:
diff changeset
104 {
kono
parents:
diff changeset
105 obj_t BgL_auxz00_4096;
kono
parents:
diff changeset
106 int BgL_auxz00_4094;
kono
parents:
diff changeset
107 {
kono
parents:
diff changeset
108 long BgL_auxz00_4097;
kono
parents:
diff changeset
109 {
kono
parents:
diff changeset
110 long BgL_auxz00_4098;
kono
parents:
diff changeset
111 BgL_auxz00_4098 = bgl_list_length (BgL_formalsz00_39);
kono
parents:
diff changeset
112 BgL_auxz00_4097 = (BgL_auxz00_4098 + ((long) 42));
kono
parents:
diff changeset
113 }
kono
parents:
diff changeset
114 BgL_auxz00_4096 =
kono
parents:
diff changeset
115 (obj_t) ((long) (((long) (BgL_auxz00_4097) << 2) | 1));
kono
parents:
diff changeset
116 }
kono
parents:
diff changeset
117 BgL_auxz00_4094 = (int) (((long) 0));
kono
parents:
diff changeset
118 ((&(((obj_t) (BgL_v1043z00_1005))->vector_t.obj0))[BgL_auxz00_4094] =
kono
parents:
diff changeset
119 BgL_auxz00_4096, ((obj_t) (obj_t) ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
120 }
kono
parents:
diff changeset
121 return BgL_v1043z00_1005;
kono
parents:
diff changeset
122 }
kono
parents:
diff changeset
123 } else {
kono
parents:
diff changeset
124 if (((((long) BgL_formalsz00_39) & ((1 << 2) - 1)) == 3)) {
kono
parents:
diff changeset
125 if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00
kono
parents:
diff changeset
126 (((((obj_t) ((long) BgL_formalsz00_39 - 3))->pair_t).cdr),
kono
parents:
diff changeset
127 ((obj_t) (obj_t) ((long) (((long) (0) << 2) | 2))))) {
kono
parents:
diff changeset
128 goto BgL_tagzd21966zd2_943;
kono
parents:
diff changeset
129 } else {
kono
parents:
diff changeset
130 obj_t BgL_cdrzd21979zd2_953;
kono
parents:
diff changeset
131 BgL_cdrzd21979zd2_953 =
kono
parents:
diff changeset
132 ((((obj_t) ((long) BgL_formalsz00_39 - 3))->pair_t).cdr);
kono
parents:
diff changeset
133 if (((((long) BgL_cdrzd21979zd2_953) & ((1 << 2) - 1)) == 3)) {
kono
parents:
diff changeset
134 if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00
kono
parents:
diff changeset
135 (((((obj_t) ((long) BgL_cdrzd21979zd2_953 - 3))->pair_t).cdr),
kono
parents:
diff changeset
136 ((obj_t) (obj_t) ((long) (((long) (0) << 2) | 2))))) {
kono
parents:
diff changeset
137 goto BgL_tagzd21966zd2_943;
kono
parents:
diff changeset
138 } else {
kono
parents:
diff changeset
139 obj_t BgL_cdrzd21986zd2_956;
kono
parents:
diff changeset
140 BgL_cdrzd21986zd2_956 =
kono
parents:
diff changeset
141 ((((obj_t) ((long) BgL_cdrzd21979zd2_953 - 3))->pair_t).cdr);
kono
parents:
diff changeset
142 if (((((long) BgL_cdrzd21986zd2_956) & ((1 << 2) - 1)) == 3)) {
kono
parents:
diff changeset
143 if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00
kono
parents:
diff changeset
144 (((((obj_t) ((long) BgL_cdrzd21986zd2_956 - 3))->pair_t).
kono
parents:
diff changeset
145 cdr),
kono
parents:
diff changeset
146 ((obj_t) (obj_t) ((long) (((long) (0) << 2) | 2))))) {
kono
parents:
diff changeset
147 goto BgL_tagzd21966zd2_943;
kono
parents:
diff changeset
148 } else {
kono
parents:
diff changeset
149 obj_t BgL_cdrzd21994zd2_959;
kono
parents:
diff changeset
150 {
kono
parents:
diff changeset
151 obj_t BgL_auxz00_4120;
kono
parents:
diff changeset
152 BgL_auxz00_4120 =
kono
parents:
diff changeset
153 ((((obj_t) ((long) BgL_cdrzd21979zd2_953 - 3))->pair_t).
kono
parents:
diff changeset
154 cdr);
kono
parents:
diff changeset
155 BgL_cdrzd21994zd2_959 =
kono
parents:
diff changeset
156 ((((obj_t) ((long) BgL_auxz00_4120 - 3))->pair_t).cdr);
kono
parents:
diff changeset
157 }
kono
parents:
diff changeset
158 if (((((long) BgL_cdrzd21994zd2_959) & ((1 << 2) - 1)) == 3)) {
kono
parents:
diff changeset
159 if (BGl_equalzf3zf3zz__r4_equivalence_6_2z00
kono
parents:
diff changeset
160 (((((obj_t) ((long) BgL_cdrzd21994zd2_959 - 3))->
kono
parents:
diff changeset
161 pair_t).cdr),
kono
parents:
diff changeset
162 ((obj_t) (obj_t) ((long) (((long) (0) << 2) | 2))))) {
kono
parents:
diff changeset
163 goto BgL_tagzd21966zd2_943;
kono
parents:
diff changeset
164 } else {
kono
parents:
diff changeset
165 int BgL_testz00_4128;
kono
parents:
diff changeset
166 {
kono
parents:
diff changeset
167 obj_t BgL_auxz00_4129;
kono
parents:
diff changeset
168 BgL_auxz00_4129 =
kono
parents:
diff changeset
169 ((((obj_t) ((long) BgL_formalsz00_39 - 3))->pair_t).
kono
parents:
diff changeset
170 car);
kono
parents:
diff changeset
171 BgL_testz00_4128 =
kono
parents:
diff changeset
172 ((((long) BgL_auxz00_4129) & ((1 << 2) - 1)) == 3);
kono
parents:
diff changeset
173 }
kono
parents:
diff changeset
174 if (BgL_testz00_4128) {
kono
parents:
diff changeset
175 BgL_tagzd21971zd2_948:
kono
parents:
diff changeset
176 if ((BgL_namedzf3zf3_42 !=
kono
parents:
diff changeset
177 ((obj_t) (obj_t)
kono
parents:
diff changeset
178 ((long) (((long) (1) << 2) | 2))))) {
kono
parents:
diff changeset
179 obj_t BgL_v1052z00_1026;
kono
parents:
diff changeset
180 {
kono
parents:
diff changeset
181 int BgL_auxz00_4134;
kono
parents:
diff changeset
182 BgL_auxz00_4134 = (int) (((long) 3));
kono
parents:
diff changeset
183 BgL_v1052z00_1026 = create_vector (BgL_auxz00_4134);
kono
parents:
diff changeset
184 }
kono
parents:
diff changeset
185 {
kono
parents:
diff changeset
186 obj_t BgL_arg1606z00_1028;
kono
parents:
diff changeset
187 {
kono
parents:
diff changeset
188 obj_t BgL_v1053z00_1029;
kono
parents:
diff changeset
189 {
kono
parents:
diff changeset
190 int BgL_auxz00_4137;
kono
parents:
diff changeset
191 BgL_auxz00_4137 = (int) (((long) 3));
kono
parents:
diff changeset
192 BgL_v1053z00_1029 =
kono
parents:
diff changeset
193 create_vector (BgL_auxz00_4137);
kono
parents:
diff changeset
194 }
kono
parents:
diff changeset
195 {
kono
parents:
diff changeset
196 int BgL_auxz00_4140;
kono
parents:
diff changeset
197 BgL_auxz00_4140 = (int) (((long) 2));
kono
parents:
diff changeset
198 ((&
kono
parents:
diff changeset
199 (((obj_t) (BgL_v1053z00_1029))->vector_t.
kono
parents:
diff changeset
200 obj0))[BgL_auxz00_4140] =
kono
parents:
diff changeset
201 BgL_formalsz00_39,
kono
parents:
diff changeset
202 ((obj_t) (obj_t)
kono
parents:
diff changeset
203 ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
204 }
kono
parents:
diff changeset
205 {
kono
parents:
diff changeset
206 int BgL_auxz00_4143;
kono
parents:
diff changeset
207 BgL_auxz00_4143 = (int) (((long) 1));
kono
parents:
diff changeset
208 ((&
kono
parents:
diff changeset
209 (((obj_t) (BgL_v1053z00_1029))->vector_t.
kono
parents:
diff changeset
210 obj0))[BgL_auxz00_4143] =
kono
parents:
diff changeset
211 BgL_bodyz00_40,
kono
parents:
diff changeset
212 ((obj_t) (obj_t)
kono
parents:
diff changeset
213 ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
214 }
kono
parents:
diff changeset
215 {
kono
parents:
diff changeset
216 int BgL_auxz00_4146;
kono
parents:
diff changeset
217 BgL_auxz00_4146 = (int) (((long) 0));
kono
parents:
diff changeset
218 ((&
kono
parents:
diff changeset
219 (((obj_t) (BgL_v1053z00_1029))->vector_t.
kono
parents:
diff changeset
220 obj0))[BgL_auxz00_4146] =
kono
parents:
diff changeset
221 BgL_wherez00_41,
kono
parents:
diff changeset
222 ((obj_t) (obj_t)
kono
parents:
diff changeset
223 ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
224 }
kono
parents:
diff changeset
225 BgL_arg1606z00_1028 = BgL_v1053z00_1029;
kono
parents:
diff changeset
226 }
kono
parents:
diff changeset
227 {
kono
parents:
diff changeset
228 int BgL_auxz00_4149;
kono
parents:
diff changeset
229 BgL_auxz00_4149 = (int) (((long) 2));
kono
parents:
diff changeset
230 ((&(((obj_t) (BgL_v1052z00_1026))->vector_t.obj0))
kono
parents:
diff changeset
231 [BgL_auxz00_4149] =
kono
parents:
diff changeset
232 BgL_arg1606z00_1028,
kono
parents:
diff changeset
233 ((obj_t) (obj_t)
kono
parents:
diff changeset
234 ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
235 }
kono
parents:
diff changeset
236 }
kono
parents:
diff changeset
237 {
kono
parents:
diff changeset
238 int BgL_auxz00_4152;
kono
parents:
diff changeset
239 BgL_auxz00_4152 = (int) (((long) 1));
kono
parents:
diff changeset
240 ((&(((obj_t) (BgL_v1052z00_1026))->vector_t.obj0))
kono
parents:
diff changeset
241 [BgL_auxz00_4152] =
kono
parents:
diff changeset
242 BgL_locz00_43,
kono
parents:
diff changeset
243 ((obj_t) (obj_t)
kono
parents:
diff changeset
244 ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
245 }
kono
parents:
diff changeset
246 {
kono
parents:
diff changeset
247 obj_t BgL_auxz00_4157;
kono
parents:
diff changeset
248 int BgL_auxz00_4155;
kono
parents:
diff changeset
249 BgL_auxz00_4157 =
kono
parents:
diff changeset
250 (obj_t) ((long)
kono
parents:
diff changeset
251 (((long) (((long) 55)) << 2) | 1));
kono
parents:
diff changeset
252 BgL_auxz00_4155 = (int) (((long) 0));
kono
parents:
diff changeset
253 ((&(((obj_t) (BgL_v1052z00_1026))->vector_t.obj0))
kono
parents:
diff changeset
254 [BgL_auxz00_4155] =
kono
parents:
diff changeset
255 BgL_auxz00_4157,
kono
parents:
diff changeset
256 ((obj_t) (obj_t)
kono
parents:
diff changeset
257 ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
258 }
kono
parents:
diff changeset
259 return BgL_v1052z00_1026;
kono
parents:
diff changeset
260 } else {
kono
parents:
diff changeset
261 obj_t BgL_v1054z00_1030;
kono
parents:
diff changeset
262 {
kono
parents:
diff changeset
263 int BgL_auxz00_4160;
kono
parents:
diff changeset
264 BgL_auxz00_4160 = (int) (((long) 3));
kono
parents:
diff changeset
265 BgL_v1054z00_1030 = create_vector (BgL_auxz00_4160);
kono
parents:
diff changeset
266 }
kono
parents:
diff changeset
267 {
kono
parents:
diff changeset
268 obj_t BgL_arg1608z00_1032;
kono
parents:
diff changeset
269 BgL_arg1608z00_1032 =
kono
parents:
diff changeset
270 make_pair (BgL_bodyz00_40, BgL_formalsz00_39);
kono
parents:
diff changeset
271 {
kono
parents:
diff changeset
272 int BgL_auxz00_4164;
kono
parents:
diff changeset
273 BgL_auxz00_4164 = (int) (((long) 2));
kono
parents:
diff changeset
274 ((&(((obj_t) (BgL_v1054z00_1030))->vector_t.obj0))
kono
parents:
diff changeset
275 [BgL_auxz00_4164] =
kono
parents:
diff changeset
276 BgL_arg1608z00_1032,
kono
parents:
diff changeset
277 ((obj_t) (obj_t)
kono
parents:
diff changeset
278 ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
279 }
kono
parents:
diff changeset
280 }
kono
parents:
diff changeset
281 {
kono
parents:
diff changeset
282 int BgL_auxz00_4167;
kono
parents:
diff changeset
283 BgL_auxz00_4167 = (int) (((long) 1));
kono
parents:
diff changeset
284 ((&(((obj_t) (BgL_v1054z00_1030))->vector_t.obj0))
kono
parents:
diff changeset
285 [BgL_auxz00_4167] =
kono
parents:
diff changeset
286 BgL_locz00_43,
kono
parents:
diff changeset
287 ((obj_t) (obj_t)
kono
parents:
diff changeset
288 ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
289 }
kono
parents:
diff changeset
290 {
kono
parents:
diff changeset
291 obj_t BgL_auxz00_4172;
kono
parents:
diff changeset
292 int BgL_auxz00_4170;
kono
parents:
diff changeset
293 BgL_auxz00_4172 =
kono
parents:
diff changeset
294 (obj_t) ((long)
kono
parents:
diff changeset
295 (((long) (((long) 56)) << 2) | 1));
kono
parents:
diff changeset
296 BgL_auxz00_4170 = (int) (((long) 0));
kono
parents:
diff changeset
297 ((&(((obj_t) (BgL_v1054z00_1030))->vector_t.obj0))
kono
parents:
diff changeset
298 [BgL_auxz00_4170] =
kono
parents:
diff changeset
299 BgL_auxz00_4172,
kono
parents:
diff changeset
300 ((obj_t) (obj_t)
kono
parents:
diff changeset
301 ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
302 }
kono
parents:
diff changeset
303 return BgL_v1054z00_1030;
kono
parents:
diff changeset
304 }
kono
parents:
diff changeset
305 } else {
kono
parents:
diff changeset
306 int BgL_testz00_4175;
kono
parents:
diff changeset
307 {
kono
parents:
diff changeset
308 obj_t BgL_auxz00_4176;
kono
parents:
diff changeset
309 {
kono
parents:
diff changeset
310 obj_t BgL_auxz00_4177;
kono
parents:
diff changeset
311 BgL_auxz00_4177 =
kono
parents:
diff changeset
312 ((((obj_t) ((long) BgL_formalsz00_39 - 3))->
kono
parents:
diff changeset
313 pair_t).cdr);
kono
parents:
diff changeset
314 BgL_auxz00_4176 =
kono
parents:
diff changeset
315 ((((obj_t) ((long) BgL_auxz00_4177 - 3))->pair_t).
kono
parents:
diff changeset
316 car);
kono
parents:
diff changeset
317 }
kono
parents:
diff changeset
318 BgL_testz00_4175 =
kono
parents:
diff changeset
319 ((((long) BgL_auxz00_4176) & ((1 << 2) - 1)) == 3);
kono
parents:
diff changeset
320 }
kono
parents:
diff changeset
321 if (BgL_testz00_4175) {
kono
parents:
diff changeset
322 goto BgL_tagzd21971zd2_948;
kono
parents:
diff changeset
323 } else {
kono
parents:
diff changeset
324 int BgL_testz00_4181;
kono
parents:
diff changeset
325 {
kono
parents:
diff changeset
326 obj_t BgL_auxz00_4182;
kono
parents:
diff changeset
327 {
kono
parents:
diff changeset
328 obj_t BgL_auxz00_4183;
kono
parents:
diff changeset
329 {
kono
parents:
diff changeset
330 obj_t BgL_auxz00_4184;
kono
parents:
diff changeset
331 BgL_auxz00_4184 =
kono
parents:
diff changeset
332 ((((obj_t) ((long) BgL_formalsz00_39 - 3))->
kono
parents:
diff changeset
333 pair_t).cdr);
kono
parents:
diff changeset
334 BgL_auxz00_4183 =
kono
parents:
diff changeset
335 ((((obj_t) ((long) BgL_auxz00_4184 - 3))->
kono
parents:
diff changeset
336 pair_t).cdr);
kono
parents:
diff changeset
337 }
kono
parents:
diff changeset
338 BgL_auxz00_4182 =
kono
parents:
diff changeset
339 ((((obj_t) ((long) BgL_auxz00_4183 - 3))->
kono
parents:
diff changeset
340 pair_t).car);
kono
parents:
diff changeset
341 }
kono
parents:
diff changeset
342 BgL_testz00_4181 =
kono
parents:
diff changeset
343 ((((long) BgL_auxz00_4182) & ((1 << 2) - 1)) ==
kono
parents:
diff changeset
344 3);
kono
parents:
diff changeset
345 }
kono
parents:
diff changeset
346 if (BgL_testz00_4181) {
kono
parents:
diff changeset
347 goto BgL_tagzd21971zd2_948;
kono
parents:
diff changeset
348 } else {
kono
parents:
diff changeset
349 goto BgL_tagzd21971zd2_948;
kono
parents:
diff changeset
350 }
kono
parents:
diff changeset
351 }
kono
parents:
diff changeset
352 }
kono
parents:
diff changeset
353 }
kono
parents:
diff changeset
354 } else {
kono
parents:
diff changeset
355 int BgL_testz00_4189;
kono
parents:
diff changeset
356 {
kono
parents:
diff changeset
357 obj_t BgL_auxz00_4190;
kono
parents:
diff changeset
358 BgL_auxz00_4190 =
kono
parents:
diff changeset
359 ((((obj_t) ((long) BgL_formalsz00_39 - 3))->pair_t).
kono
parents:
diff changeset
360 car);
kono
parents:
diff changeset
361 BgL_testz00_4189 =
kono
parents:
diff changeset
362 ((((long) BgL_auxz00_4190) & ((1 << 2) - 1)) == 3);
kono
parents:
diff changeset
363 }
kono
parents:
diff changeset
364 if (BgL_testz00_4189) {
kono
parents:
diff changeset
365 goto BgL_tagzd21971zd2_948;
kono
parents:
diff changeset
366 } else {
kono
parents:
diff changeset
367 int BgL_testz00_4193;
kono
parents:
diff changeset
368 {
kono
parents:
diff changeset
369 obj_t BgL_auxz00_4194;
kono
parents:
diff changeset
370 {
kono
parents:
diff changeset
371 obj_t BgL_auxz00_4195;
kono
parents:
diff changeset
372 BgL_auxz00_4195 =
kono
parents:
diff changeset
373 ((((obj_t) ((long) BgL_formalsz00_39 - 3))->pair_t).
kono
parents:
diff changeset
374 cdr);
kono
parents:
diff changeset
375 BgL_auxz00_4194 =
kono
parents:
diff changeset
376 ((((obj_t) ((long) BgL_auxz00_4195 - 3))->pair_t).
kono
parents:
diff changeset
377 car);
kono
parents:
diff changeset
378 }
kono
parents:
diff changeset
379 BgL_testz00_4193 =
kono
parents:
diff changeset
380 ((((long) BgL_auxz00_4194) & ((1 << 2) - 1)) == 3);
kono
parents:
diff changeset
381 }
kono
parents:
diff changeset
382 if (BgL_testz00_4193) {
kono
parents:
diff changeset
383 goto BgL_tagzd21971zd2_948;
kono
parents:
diff changeset
384 } else {
kono
parents:
diff changeset
385 int BgL_testz00_4199;
kono
parents:
diff changeset
386 {
kono
parents:
diff changeset
387 obj_t BgL_auxz00_4200;
kono
parents:
diff changeset
388 {
kono
parents:
diff changeset
389 obj_t BgL_auxz00_4201;
kono
parents:
diff changeset
390 {
kono
parents:
diff changeset
391 obj_t BgL_auxz00_4202;
kono
parents:
diff changeset
392 BgL_auxz00_4202 =
kono
parents:
diff changeset
393 ((((obj_t) ((long) BgL_formalsz00_39 - 3))->
kono
parents:
diff changeset
394 pair_t).cdr);
kono
parents:
diff changeset
395 BgL_auxz00_4201 =
kono
parents:
diff changeset
396 ((((obj_t) ((long) BgL_auxz00_4202 - 3))->
kono
parents:
diff changeset
397 pair_t).cdr);
kono
parents:
diff changeset
398 }
kono
parents:
diff changeset
399 BgL_auxz00_4200 =
kono
parents:
diff changeset
400 ((((obj_t) ((long) BgL_auxz00_4201 - 3))->pair_t).
kono
parents:
diff changeset
401 car);
kono
parents:
diff changeset
402 }
kono
parents:
diff changeset
403 BgL_testz00_4199 =
kono
parents:
diff changeset
404 ((((long) BgL_auxz00_4200) & ((1 << 2) - 1)) == 3);
kono
parents:
diff changeset
405 }
kono
parents:
diff changeset
406 if (BgL_testz00_4199) {
kono
parents:
diff changeset
407 goto BgL_tagzd21971zd2_948;
kono
parents:
diff changeset
408 } else {
kono
parents:
diff changeset
409 if ((BgL_namedzf3zf3_42 !=
kono
parents:
diff changeset
410 ((obj_t) (obj_t)
kono
parents:
diff changeset
411 ((long) (((long) (1) << 2) | 2))))) {
kono
parents:
diff changeset
412 obj_t BgL_v1050z00_1022;
kono
parents:
diff changeset
413 {
kono
parents:
diff changeset
414 int BgL_auxz00_4209;
kono
parents:
diff changeset
415 BgL_auxz00_4209 = (int) (((long) 3));
kono
parents:
diff changeset
416 BgL_v1050z00_1022 =
kono
parents:
diff changeset
417 create_vector (BgL_auxz00_4209);
kono
parents:
diff changeset
418 }
kono
parents:
diff changeset
419 {
kono
parents:
diff changeset
420 obj_t BgL_arg1604z00_1024;
kono
parents:
diff changeset
421 BgL_arg1604z00_1024 =
kono
parents:
diff changeset
422 make_pair (BgL_wherez00_41, BgL_bodyz00_40);
kono
parents:
diff changeset
423 {
kono
parents:
diff changeset
424 int BgL_auxz00_4213;
kono
parents:
diff changeset
425 BgL_auxz00_4213 = (int) (((long) 2));
kono
parents:
diff changeset
426 ((&
kono
parents:
diff changeset
427 (((obj_t) (BgL_v1050z00_1022))->vector_t.
kono
parents:
diff changeset
428 obj0))[BgL_auxz00_4213] =
kono
parents:
diff changeset
429 BgL_arg1604z00_1024,
kono
parents:
diff changeset
430 ((obj_t) (obj_t)
kono
parents:
diff changeset
431 ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
432 }
kono
parents:
diff changeset
433 }
kono
parents:
diff changeset
434 {
kono
parents:
diff changeset
435 int BgL_auxz00_4216;
kono
parents:
diff changeset
436 BgL_auxz00_4216 = (int) (((long) 1));
kono
parents:
diff changeset
437 ((&(((obj_t) (BgL_v1050z00_1022))->vector_t.obj0))
kono
parents:
diff changeset
438 [BgL_auxz00_4216] =
kono
parents:
diff changeset
439 BgL_locz00_43,
kono
parents:
diff changeset
440 ((obj_t) (obj_t)
kono
parents:
diff changeset
441 ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
442 }
kono
parents:
diff changeset
443 {
kono
parents:
diff changeset
444 obj_t BgL_auxz00_4221;
kono
parents:
diff changeset
445 int BgL_auxz00_4219;
kono
parents:
diff changeset
446 BgL_auxz00_4221 =
kono
parents:
diff changeset
447 (obj_t) ((long)
kono
parents:
diff changeset
448 (((long) (((long) 50)) << 2) | 1));
kono
parents:
diff changeset
449 BgL_auxz00_4219 = (int) (((long) 0));
kono
parents:
diff changeset
450 ((&(((obj_t) (BgL_v1050z00_1022))->vector_t.obj0))
kono
parents:
diff changeset
451 [BgL_auxz00_4219] =
kono
parents:
diff changeset
452 BgL_auxz00_4221,
kono
parents:
diff changeset
453 ((obj_t) (obj_t)
kono
parents:
diff changeset
454 ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
455 }
kono
parents:
diff changeset
456 return BgL_v1050z00_1022;
kono
parents:
diff changeset
457 } else {
kono
parents:
diff changeset
458 obj_t BgL_v1051z00_1025;
kono
parents:
diff changeset
459 {
kono
parents:
diff changeset
460 int BgL_auxz00_4224;
kono
parents:
diff changeset
461 BgL_auxz00_4224 = (int) (((long) 3));
kono
parents:
diff changeset
462 BgL_v1051z00_1025 =
kono
parents:
diff changeset
463 create_vector (BgL_auxz00_4224);
kono
parents:
diff changeset
464 }
kono
parents:
diff changeset
465 {
kono
parents:
diff changeset
466 int BgL_auxz00_4227;
kono
parents:
diff changeset
467 BgL_auxz00_4227 = (int) (((long) 2));
kono
parents:
diff changeset
468 ((&(((obj_t) (BgL_v1051z00_1025))->vector_t.obj0))
kono
parents:
diff changeset
469 [BgL_auxz00_4227] =
kono
parents:
diff changeset
470 BgL_bodyz00_40,
kono
parents:
diff changeset
471 ((obj_t) (obj_t)
kono
parents:
diff changeset
472 ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
473 }
kono
parents:
diff changeset
474 {
kono
parents:
diff changeset
475 int BgL_auxz00_4230;
kono
parents:
diff changeset
476 BgL_auxz00_4230 = (int) (((long) 1));
kono
parents:
diff changeset
477 ((&(((obj_t) (BgL_v1051z00_1025))->vector_t.obj0))
kono
parents:
diff changeset
478 [BgL_auxz00_4230] =
kono
parents:
diff changeset
479 BgL_locz00_43,
kono
parents:
diff changeset
480 ((obj_t) (obj_t)
kono
parents:
diff changeset
481 ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
482 }
kono
parents:
diff changeset
483 {
kono
parents:
diff changeset
484 obj_t BgL_auxz00_4235;
kono
parents:
diff changeset
485 int BgL_auxz00_4233;
kono
parents:
diff changeset
486 BgL_auxz00_4235 =
kono
parents:
diff changeset
487 (obj_t) ((long)
kono
parents:
diff changeset
488 (((long) (((long) 54)) << 2) | 1));
kono
parents:
diff changeset
489 BgL_auxz00_4233 = (int) (((long) 0));
kono
parents:
diff changeset
490 ((&(((obj_t) (BgL_v1051z00_1025))->vector_t.obj0))
kono
parents:
diff changeset
491 [BgL_auxz00_4233] =
kono
parents:
diff changeset
492 BgL_auxz00_4235,
kono
parents:
diff changeset
493 ((obj_t) (obj_t)
kono
parents:
diff changeset
494 ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
495 }
kono
parents:
diff changeset
496 return BgL_v1051z00_1025;
kono
parents:
diff changeset
497 }
kono
parents:
diff changeset
498 }
kono
parents:
diff changeset
499 }
kono
parents:
diff changeset
500 }
kono
parents:
diff changeset
501 }
kono
parents:
diff changeset
502 }
kono
parents:
diff changeset
503 } else {
kono
parents:
diff changeset
504 int BgL_testz00_4238;
kono
parents:
diff changeset
505 {
kono
parents:
diff changeset
506 obj_t BgL_auxz00_4239;
kono
parents:
diff changeset
507 BgL_auxz00_4239 =
kono
parents:
diff changeset
508 ((((obj_t) ((long) BgL_formalsz00_39 - 3))->pair_t).car);
kono
parents:
diff changeset
509 BgL_testz00_4238 =
kono
parents:
diff changeset
510 ((((long) BgL_auxz00_4239) & ((1 << 2) - 1)) == 3);
kono
parents:
diff changeset
511 }
kono
parents:
diff changeset
512 if (BgL_testz00_4238) {
kono
parents:
diff changeset
513 goto BgL_tagzd21971zd2_948;
kono
parents:
diff changeset
514 } else {
kono
parents:
diff changeset
515 int BgL_testz00_4242;
kono
parents:
diff changeset
516 {
kono
parents:
diff changeset
517 obj_t BgL_auxz00_4243;
kono
parents:
diff changeset
518 BgL_auxz00_4243 =
kono
parents:
diff changeset
519 ((((obj_t) ((long) BgL_cdrzd21979zd2_953 - 3))->pair_t).
kono
parents:
diff changeset
520 car);
kono
parents:
diff changeset
521 BgL_testz00_4242 =
kono
parents:
diff changeset
522 ((((long) BgL_auxz00_4243) & ((1 << 2) - 1)) == 3);
kono
parents:
diff changeset
523 }
kono
parents:
diff changeset
524 if (BgL_testz00_4242) {
kono
parents:
diff changeset
525 goto BgL_tagzd21971zd2_948;
kono
parents:
diff changeset
526 } else {
kono
parents:
diff changeset
527 if ((BgL_namedzf3zf3_42 !=
kono
parents:
diff changeset
528 ((obj_t) (obj_t) ((long) (((long) (1) << 2) | 2))))) {
kono
parents:
diff changeset
529 obj_t BgL_v1048z00_1018;
kono
parents:
diff changeset
530 {
kono
parents:
diff changeset
531 int BgL_auxz00_4248;
kono
parents:
diff changeset
532 BgL_auxz00_4248 = (int) (((long) 3));
kono
parents:
diff changeset
533 BgL_v1048z00_1018 = create_vector (BgL_auxz00_4248);
kono
parents:
diff changeset
534 }
kono
parents:
diff changeset
535 {
kono
parents:
diff changeset
536 obj_t BgL_arg1602z00_1020;
kono
parents:
diff changeset
537 BgL_arg1602z00_1020 =
kono
parents:
diff changeset
538 make_pair (BgL_wherez00_41, BgL_bodyz00_40);
kono
parents:
diff changeset
539 {
kono
parents:
diff changeset
540 int BgL_auxz00_4252;
kono
parents:
diff changeset
541 BgL_auxz00_4252 = (int) (((long) 2));
kono
parents:
diff changeset
542 ((&(((obj_t) (BgL_v1048z00_1018))->vector_t.obj0))
kono
parents:
diff changeset
543 [BgL_auxz00_4252] =
kono
parents:
diff changeset
544 BgL_arg1602z00_1020,
kono
parents:
diff changeset
545 ((obj_t) (obj_t) ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
546 }
kono
parents:
diff changeset
547 }
kono
parents:
diff changeset
548 {
kono
parents:
diff changeset
549 int BgL_auxz00_4255;
kono
parents:
diff changeset
550 BgL_auxz00_4255 = (int) (((long) 1));
kono
parents:
diff changeset
551 ((&(((obj_t) (BgL_v1048z00_1018))->vector_t.obj0))
kono
parents:
diff changeset
552 [BgL_auxz00_4255] =
kono
parents:
diff changeset
553 BgL_locz00_43,
kono
parents:
diff changeset
554 ((obj_t) (obj_t) ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
555 }
kono
parents:
diff changeset
556 {
kono
parents:
diff changeset
557 obj_t BgL_auxz00_4260;
kono
parents:
diff changeset
558 int BgL_auxz00_4258;
kono
parents:
diff changeset
559 BgL_auxz00_4260 =
kono
parents:
diff changeset
560 (obj_t) ((long) (((long) (((long) 49)) << 2) | 1));
kono
parents:
diff changeset
561 BgL_auxz00_4258 = (int) (((long) 0));
kono
parents:
diff changeset
562 ((&(((obj_t) (BgL_v1048z00_1018))->vector_t.obj0))
kono
parents:
diff changeset
563 [BgL_auxz00_4258] =
kono
parents:
diff changeset
564 BgL_auxz00_4260,
kono
parents:
diff changeset
565 ((obj_t) (obj_t) ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
566 }
kono
parents:
diff changeset
567 return BgL_v1048z00_1018;
kono
parents:
diff changeset
568 } else {
kono
parents:
diff changeset
569 obj_t BgL_v1049z00_1021;
kono
parents:
diff changeset
570 {
kono
parents:
diff changeset
571 int BgL_auxz00_4263;
kono
parents:
diff changeset
572 BgL_auxz00_4263 = (int) (((long) 3));
kono
parents:
diff changeset
573 BgL_v1049z00_1021 = create_vector (BgL_auxz00_4263);
kono
parents:
diff changeset
574 }
kono
parents:
diff changeset
575 {
kono
parents:
diff changeset
576 int BgL_auxz00_4266;
kono
parents:
diff changeset
577 BgL_auxz00_4266 = (int) (((long) 2));
kono
parents:
diff changeset
578 ((&(((obj_t) (BgL_v1049z00_1021))->vector_t.obj0))
kono
parents:
diff changeset
579 [BgL_auxz00_4266] =
kono
parents:
diff changeset
580 BgL_bodyz00_40,
kono
parents:
diff changeset
581 ((obj_t) (obj_t) ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
582 }
kono
parents:
diff changeset
583 {
kono
parents:
diff changeset
584 int BgL_auxz00_4269;
kono
parents:
diff changeset
585 BgL_auxz00_4269 = (int) (((long) 1));
kono
parents:
diff changeset
586 ((&(((obj_t) (BgL_v1049z00_1021))->vector_t.obj0))
kono
parents:
diff changeset
587 [BgL_auxz00_4269] =
kono
parents:
diff changeset
588 BgL_locz00_43,
kono
parents:
diff changeset
589 ((obj_t) (obj_t) ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
590 }
kono
parents:
diff changeset
591 {
kono
parents:
diff changeset
592 obj_t BgL_auxz00_4274;
kono
parents:
diff changeset
593 int BgL_auxz00_4272;
kono
parents:
diff changeset
594 BgL_auxz00_4274 =
kono
parents:
diff changeset
595 (obj_t) ((long) (((long) (((long) 53)) << 2) | 1));
kono
parents:
diff changeset
596 BgL_auxz00_4272 = (int) (((long) 0));
kono
parents:
diff changeset
597 ((&(((obj_t) (BgL_v1049z00_1021))->vector_t.obj0))
kono
parents:
diff changeset
598 [BgL_auxz00_4272] =
kono
parents:
diff changeset
599 BgL_auxz00_4274,
kono
parents:
diff changeset
600 ((obj_t) (obj_t) ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
601 }
kono
parents:
diff changeset
602 return BgL_v1049z00_1021;
kono
parents:
diff changeset
603 }
kono
parents:
diff changeset
604 }
kono
parents:
diff changeset
605 }
kono
parents:
diff changeset
606 }
kono
parents:
diff changeset
607 }
kono
parents:
diff changeset
608 } else {
kono
parents:
diff changeset
609 int BgL_testz00_4277;
kono
parents:
diff changeset
610 {
kono
parents:
diff changeset
611 obj_t BgL_auxz00_4278;
kono
parents:
diff changeset
612 BgL_auxz00_4278 =
kono
parents:
diff changeset
613 ((((obj_t) ((long) BgL_formalsz00_39 - 3))->pair_t).car);
kono
parents:
diff changeset
614 BgL_testz00_4277 =
kono
parents:
diff changeset
615 ((((long) BgL_auxz00_4278) & ((1 << 2) - 1)) == 3);
kono
parents:
diff changeset
616 }
kono
parents:
diff changeset
617 if (BgL_testz00_4277) {
kono
parents:
diff changeset
618 goto BgL_tagzd21971zd2_948;
kono
parents:
diff changeset
619 } else {
kono
parents:
diff changeset
620 if ((BgL_namedzf3zf3_42 !=
kono
parents:
diff changeset
621 ((obj_t) (obj_t) ((long) (((long) (1) << 2) | 2))))) {
kono
parents:
diff changeset
622 obj_t BgL_v1046z00_1014;
kono
parents:
diff changeset
623 {
kono
parents:
diff changeset
624 int BgL_auxz00_4283;
kono
parents:
diff changeset
625 BgL_auxz00_4283 = (int) (((long) 3));
kono
parents:
diff changeset
626 BgL_v1046z00_1014 = create_vector (BgL_auxz00_4283);
kono
parents:
diff changeset
627 }
kono
parents:
diff changeset
628 {
kono
parents:
diff changeset
629 obj_t BgL_arg1600z00_1016;
kono
parents:
diff changeset
630 BgL_arg1600z00_1016 =
kono
parents:
diff changeset
631 make_pair (BgL_wherez00_41, BgL_bodyz00_40);
kono
parents:
diff changeset
632 {
kono
parents:
diff changeset
633 int BgL_auxz00_4287;
kono
parents:
diff changeset
634 BgL_auxz00_4287 = (int) (((long) 2));
kono
parents:
diff changeset
635 ((&(((obj_t) (BgL_v1046z00_1014))->vector_t.obj0))
kono
parents:
diff changeset
636 [BgL_auxz00_4287] =
kono
parents:
diff changeset
637 BgL_arg1600z00_1016,
kono
parents:
diff changeset
638 ((obj_t) (obj_t) ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
639 }
kono
parents:
diff changeset
640 }
kono
parents:
diff changeset
641 {
kono
parents:
diff changeset
642 int BgL_auxz00_4290;
kono
parents:
diff changeset
643 BgL_auxz00_4290 = (int) (((long) 1));
kono
parents:
diff changeset
644 ((&(((obj_t) (BgL_v1046z00_1014))->vector_t.obj0))
kono
parents:
diff changeset
645 [BgL_auxz00_4290] =
kono
parents:
diff changeset
646 BgL_locz00_43,
kono
parents:
diff changeset
647 ((obj_t) (obj_t) ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
648 }
kono
parents:
diff changeset
649 {
kono
parents:
diff changeset
650 obj_t BgL_auxz00_4295;
kono
parents:
diff changeset
651 int BgL_auxz00_4293;
kono
parents:
diff changeset
652 BgL_auxz00_4295 =
kono
parents:
diff changeset
653 (obj_t) ((long) (((long) (((long) 48)) << 2) | 1));
kono
parents:
diff changeset
654 BgL_auxz00_4293 = (int) (((long) 0));
kono
parents:
diff changeset
655 ((&(((obj_t) (BgL_v1046z00_1014))->vector_t.obj0))
kono
parents:
diff changeset
656 [BgL_auxz00_4293] =
kono
parents:
diff changeset
657 BgL_auxz00_4295,
kono
parents:
diff changeset
658 ((obj_t) (obj_t) ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
659 }
kono
parents:
diff changeset
660 return BgL_v1046z00_1014;
kono
parents:
diff changeset
661 } else {
kono
parents:
diff changeset
662 obj_t BgL_v1047z00_1017;
kono
parents:
diff changeset
663 {
kono
parents:
diff changeset
664 int BgL_auxz00_4298;
kono
parents:
diff changeset
665 BgL_auxz00_4298 = (int) (((long) 3));
kono
parents:
diff changeset
666 BgL_v1047z00_1017 = create_vector (BgL_auxz00_4298);
kono
parents:
diff changeset
667 }
kono
parents:
diff changeset
668 {
kono
parents:
diff changeset
669 int BgL_auxz00_4301;
kono
parents:
diff changeset
670 BgL_auxz00_4301 = (int) (((long) 2));
kono
parents:
diff changeset
671 ((&(((obj_t) (BgL_v1047z00_1017))->vector_t.obj0))
kono
parents:
diff changeset
672 [BgL_auxz00_4301] =
kono
parents:
diff changeset
673 BgL_bodyz00_40,
kono
parents:
diff changeset
674 ((obj_t) (obj_t) ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
675 }
kono
parents:
diff changeset
676 {
kono
parents:
diff changeset
677 int BgL_auxz00_4304;
kono
parents:
diff changeset
678 BgL_auxz00_4304 = (int) (((long) 1));
kono
parents:
diff changeset
679 ((&(((obj_t) (BgL_v1047z00_1017))->vector_t.obj0))
kono
parents:
diff changeset
680 [BgL_auxz00_4304] =
kono
parents:
diff changeset
681 BgL_locz00_43,
kono
parents:
diff changeset
682 ((obj_t) (obj_t) ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
683 }
kono
parents:
diff changeset
684 {
kono
parents:
diff changeset
685 obj_t BgL_auxz00_4309;
kono
parents:
diff changeset
686 int BgL_auxz00_4307;
kono
parents:
diff changeset
687 BgL_auxz00_4309 =
kono
parents:
diff changeset
688 (obj_t) ((long) (((long) (((long) 52)) << 2) | 1));
kono
parents:
diff changeset
689 BgL_auxz00_4307 = (int) (((long) 0));
kono
parents:
diff changeset
690 ((&(((obj_t) (BgL_v1047z00_1017))->vector_t.obj0))
kono
parents:
diff changeset
691 [BgL_auxz00_4307] =
kono
parents:
diff changeset
692 BgL_auxz00_4309,
kono
parents:
diff changeset
693 ((obj_t) (obj_t) ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
694 }
kono
parents:
diff changeset
695 return BgL_v1047z00_1017;
kono
parents:
diff changeset
696 }
kono
parents:
diff changeset
697 }
kono
parents:
diff changeset
698 }
kono
parents:
diff changeset
699 }
kono
parents:
diff changeset
700 } else {
kono
parents:
diff changeset
701 if ((BgL_namedzf3zf3_42 !=
kono
parents:
diff changeset
702 ((obj_t) (obj_t) ((long) (((long) (1) << 2) | 2))))) {
kono
parents:
diff changeset
703 obj_t BgL_v1044z00_1010;
kono
parents:
diff changeset
704 {
kono
parents:
diff changeset
705 int BgL_auxz00_4314;
kono
parents:
diff changeset
706 BgL_auxz00_4314 = (int) (((long) 3));
kono
parents:
diff changeset
707 BgL_v1044z00_1010 = create_vector (BgL_auxz00_4314);
kono
parents:
diff changeset
708 }
kono
parents:
diff changeset
709 {
kono
parents:
diff changeset
710 obj_t BgL_arg1598z00_1012;
kono
parents:
diff changeset
711 BgL_arg1598z00_1012 = make_pair (BgL_wherez00_41, BgL_bodyz00_40);
kono
parents:
diff changeset
712 {
kono
parents:
diff changeset
713 int BgL_auxz00_4318;
kono
parents:
diff changeset
714 BgL_auxz00_4318 = (int) (((long) 2));
kono
parents:
diff changeset
715 ((&(((obj_t) (BgL_v1044z00_1010))->vector_t.obj0))
kono
parents:
diff changeset
716 [BgL_auxz00_4318] =
kono
parents:
diff changeset
717 BgL_arg1598z00_1012,
kono
parents:
diff changeset
718 ((obj_t) (obj_t) ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
719 }
kono
parents:
diff changeset
720 }
kono
parents:
diff changeset
721 {
kono
parents:
diff changeset
722 int BgL_auxz00_4321;
kono
parents:
diff changeset
723 BgL_auxz00_4321 = (int) (((long) 1));
kono
parents:
diff changeset
724 ((&(((obj_t) (BgL_v1044z00_1010))->vector_t.obj0))[BgL_auxz00_4321]
kono
parents:
diff changeset
725 =
kono
parents:
diff changeset
726 BgL_locz00_43, ((obj_t) (obj_t) ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
727 }
kono
parents:
diff changeset
728 {
kono
parents:
diff changeset
729 obj_t BgL_auxz00_4326;
kono
parents:
diff changeset
730 int BgL_auxz00_4324;
kono
parents:
diff changeset
731 BgL_auxz00_4326 =
kono
parents:
diff changeset
732 (obj_t) ((long) (((long) (((long) 47)) << 2) | 1));
kono
parents:
diff changeset
733 BgL_auxz00_4324 = (int) (((long) 0));
kono
parents:
diff changeset
734 ((&(((obj_t) (BgL_v1044z00_1010))->vector_t.obj0))[BgL_auxz00_4324]
kono
parents:
diff changeset
735 =
kono
parents:
diff changeset
736 BgL_auxz00_4326,
kono
parents:
diff changeset
737 ((obj_t) (obj_t) ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
738 }
kono
parents:
diff changeset
739 return BgL_v1044z00_1010;
kono
parents:
diff changeset
740 } else {
kono
parents:
diff changeset
741 obj_t BgL_v1045z00_1013;
kono
parents:
diff changeset
742 {
kono
parents:
diff changeset
743 int BgL_auxz00_4329;
kono
parents:
diff changeset
744 BgL_auxz00_4329 = (int) (((long) 3));
kono
parents:
diff changeset
745 BgL_v1045z00_1013 = create_vector (BgL_auxz00_4329);
kono
parents:
diff changeset
746 }
kono
parents:
diff changeset
747 {
kono
parents:
diff changeset
748 int BgL_auxz00_4332;
kono
parents:
diff changeset
749 BgL_auxz00_4332 = (int) (((long) 2));
kono
parents:
diff changeset
750 ((&(((obj_t) (BgL_v1045z00_1013))->vector_t.obj0))[BgL_auxz00_4332]
kono
parents:
diff changeset
751 =
kono
parents:
diff changeset
752 BgL_bodyz00_40,
kono
parents:
diff changeset
753 ((obj_t) (obj_t) ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
754 }
kono
parents:
diff changeset
755 {
kono
parents:
diff changeset
756 int BgL_auxz00_4335;
kono
parents:
diff changeset
757 BgL_auxz00_4335 = (int) (((long) 1));
kono
parents:
diff changeset
758 ((&(((obj_t) (BgL_v1045z00_1013))->vector_t.obj0))[BgL_auxz00_4335]
kono
parents:
diff changeset
759 =
kono
parents:
diff changeset
760 BgL_locz00_43, ((obj_t) (obj_t) ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
761 }
kono
parents:
diff changeset
762 {
kono
parents:
diff changeset
763 obj_t BgL_auxz00_4340;
kono
parents:
diff changeset
764 int BgL_auxz00_4338;
kono
parents:
diff changeset
765 BgL_auxz00_4340 =
kono
parents:
diff changeset
766 (obj_t) ((long) (((long) (((long) 51)) << 2) | 1));
kono
parents:
diff changeset
767 BgL_auxz00_4338 = (int) (((long) 0));
kono
parents:
diff changeset
768 ((&(((obj_t) (BgL_v1045z00_1013))->vector_t.obj0))[BgL_auxz00_4338]
kono
parents:
diff changeset
769 =
kono
parents:
diff changeset
770 BgL_auxz00_4340,
kono
parents:
diff changeset
771 ((obj_t) (obj_t) ((long) (((long) (3) << 2) | 2))));
kono
parents:
diff changeset
772 }
kono
parents:
diff changeset
773 return BgL_v1045z00_1013;
kono
parents:
diff changeset
774 }
kono
parents:
diff changeset
775 }
kono
parents:
diff changeset
776 }
kono
parents:
diff changeset
777 }