Bug Summary

File:lib/libfoamlib/al/gener.c
Warning:line 970, column 9
Value stored to 'l1' is never read

Annotated Source Code

Press '?' to see keyboard shortcuts

clang -cc1 -cc1 -triple x86_64-unknown-linux-gnu -analyze -disable-free -clear-ast-before-backend -disable-llvm-verifier -discard-value-names -main-file-name gener.c -analyzer-checker=core -analyzer-checker=apiModeling -analyzer-checker=unix -analyzer-checker=deadcode -analyzer-checker=security.insecureAPI.UncheckedReturn -analyzer-checker=security.insecureAPI.getpw -analyzer-checker=security.insecureAPI.gets -analyzer-checker=security.insecureAPI.mktemp -analyzer-checker=security.insecureAPI.mkstemp -analyzer-checker=security.insecureAPI.vfork -analyzer-checker=nullability.NullPassedToNonnull -analyzer-checker=nullability.NullReturnedFromNonnull -analyzer-output plist -w -setup-static-analyzer -mrelocation-model pic -pic-level 2 -pic-is-pie -mframe-pointer=none -fmath-errno -ffp-contract=on -fno-rounding-math -mconstructor-aliases -funwind-tables=2 -target-cpu x86-64 -tune-cpu generic -debugger-tuning=gdb -fdebug-compilation-dir=/home/kfp/aldor/aldor/aldor/lib/libfoamlib -fcoverage-compilation-dir=/home/kfp/aldor/aldor/aldor/lib/libfoamlib -resource-dir /usr/local/lib/clang/18 -D PACKAGE_NAME="aldor" -D PACKAGE_TARNAME="aldor" -D PACKAGE_VERSION="1.4.0" -D PACKAGE_STRING="aldor 1.4.0" -D PACKAGE_BUGREPORT="aldor@xinutec.org" -D PACKAGE_URL="" -D PACKAGE="aldor" -D VERSION="1.4.0" -D YYTEXT_POINTER=1 -D HAVE_STDIO_H=1 -D HAVE_STDLIB_H=1 -D HAVE_STRING_H=1 -D HAVE_INTTYPES_H=1 -D HAVE_STDINT_H=1 -D HAVE_STRINGS_H=1 -D HAVE_SYS_STAT_H=1 -D HAVE_SYS_TYPES_H=1 -D HAVE_UNISTD_H=1 -D STDC_HEADERS=1 -D HAVE_LIBREADLINE=1 -D HAVE_READLINE_READLINE_H=1 -D HAVE_READLINE_HISTORY=1 -D HAVE_READLINE_HISTORY_H=1 -D USE_GLOOP_SHELL=1 -D GENERATOR_COROUTINES=0 -D HAVE_DLFCN_H=1 -D LT_OBJDIR=".libs/" -I . -I /home/kfp/aldor/aldor/aldor/src -internal-isystem /usr/local/lib/clang/18/include -internal-isystem /usr/local/include -internal-isystem /usr/lib/gcc/x86_64-linux-gnu/14/../../../../x86_64-linux-gnu/include -internal-externc-isystem /usr/include/x86_64-linux-gnu -internal-externc-isystem /include -internal-externc-isystem /usr/include -O2 -Wno-builtin-declaration-mismatch -Wno-incompatible-pointer-types -Wno-deprecated-non-prototype -ferror-limit 19 -fgnuc-version=4.2.1 -fskip-odr-check-in-gmf -vectorize-loops -vectorize-slp -analyzer-output=html -faddrsig -D__GCC_HAVE_DWARF2_CFI_ASM=1 -o /tmp/scan-build-2026-01-15-223856-845667-1 -x c al/gener.c
1/*
2 * C code generated by Aldor from file "gener.ao".
3 */
4
5#include "foam_c.h"
6
7typedef struct Fmt5 *PFmt5;
8typedef struct Fmt6 *PFmt6;
9typedef struct Fmt7 *PFmt7;
10typedef struct Fmt8 *PFmt8;
11typedef struct Fmt9 *PFmt9;
12typedef struct Fmt10 *PFmt10;
13typedef struct Fmt11 *PFmt11;
14typedef struct Fmt12 *PFmt12;
15typedef struct Fmt13 *PFmt13;
16typedef struct Fmt14 *PFmt14;
17typedef struct Fmt15 *PFmt15;
18struct Fmt5 {
19 FiSInt X0_size;
20 FiWord *X1_values;
21};
22struct Fmt6 {
23 FiWord X0_found;
24 FiWord X1_value;
25};
26struct Fmt7 {
27 FiSInt X0_size;
28 FiSInt X1_nsize;
29 FiWord X2_values;
30};
31struct Fmt8 {
32 FiClos X0_done_QMARK_;
33 FiClos X1_step_BANG_;
34 FiClos X2_value;
35 FiClos X3_bound;
36};
37struct Fmt9 {
38 FiClos X0_f;
39 FiClos X1_g;
40 FiBool X2;
41 FiClos X3;
42 FiClos X4;
43 FiClos X5;
44 FiClos X6;
45 FiBool X7;
46 FiSInt X8;
47 FiWord X9;
48 FiWord X10_x;
49};
50struct Fmt10 {
51 FiClos X0_f;
52 FiClos X1_g;
53 FiBool X2;
54 FiClos X3;
55 FiClos X4;
56 FiClos X5;
57 FiClos X6;
58 FiBool X7;
59 FiSInt X8;
60 FiWord X9;
61 FiWord X10_x;
62};
63struct Fmt11 {
64 FiClos X0_f;
65 FiClos X1_g;
66 FiClos X2_g2;
67 FiBool X3;
68 FiBool X4;
69 FiClos X5;
70 FiClos X6;
71 FiClos X7;
72 FiClos X8;
73 FiClos X9;
74 FiClos X10;
75 FiClos X11;
76 FiClos X12;
77 FiBool X13;
78 FiSInt X14;
79 FiWord X15;
80 FiWord X16_y;
81 FiWord X17_x;
82};
83struct Fmt12 {
84 FiClos X0_f;
85 FiClos X1_g;
86 FiClos X2_g2;
87 FiBool X3;
88 FiBool X4;
89 FiClos X5;
90 FiClos X6;
91 FiClos X7;
92 FiClos X8;
93 FiClos X9;
94 FiClos X10;
95 FiClos X11;
96 FiClos X12;
97 FiBool X13;
98 FiSInt X14;
99 FiWord X15;
100 FiWord X16_y;
101 FiWord X17_x;
102};
103struct Fmt13 {
104 FiClos X0_combine;
105 FiClos X1_combine;
106 FiClos X2_reduce;
107 FiClos X3_reduce;
108 FiClos X4_map;
109 FiClos X5_map;
110};
111struct Fmt14 {
112 FiWord X0_S;
113};
114struct Fmt15 {
115 FiWord X0;
116};
117static FiProg C0_gener;
118static void CF0_gener(FiEnv e1);
119static FiProg C1_GeneratorOperationsPackage;
120static FiWord CF1_GeneratorOperationsPackage(FiEnv e1, FiWord P0_S);
121static FiProg C2_addLevel0;
122static FiClos CF2_addLevel0(FiEnv e1, FiWord P0_domain);
123static FiProg C3_addLevel1;
124static FiWord CF3_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
125static FiProg C4_map;
126static FiClos CF4_map(FiEnv e1, FiWord P0_f, FiWord P1_g);
127static FiProg C5_generBaseFn;
128static void CF5_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos* R3);
129static FiProg C6_generStepper;
130static void CF6_generStepper(FiEnv e1);
131static FiProg C7_generDone_QMARK_;
132static FiBool CF7_generDone_QMARK_(FiEnv e1);
133static FiProg C8_generValue;
134static FiWord CF8_generValue(FiEnv e1);
135static FiProg C9_generBound;
136static FiSInt CF9_generBound(FiEnv e1);
137static FiProg C10_map;
138static FiClos CF10_map(FiEnv e1, FiWord P0_T, FiWord P1_f, FiWord P2_g);
139static FiProg C11_generBaseFn;
140static void CF11_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos* R3);
141static FiProg C12_generStepper;
142static void CF12_generStepper(FiEnv e1);
143static FiProg C13_generDone_QMARK_;
144static FiBool CF13_generDone_QMARK_(FiEnv e1);
145static FiProg C14_generValue;
146static FiWord CF14_generValue(FiEnv e1);
147static FiProg C15_generBound;
148static FiSInt CF15_generBound(FiEnv e1);
149static FiProg C16_reduce;
150static FiWord CF16_reduce(FiEnv e1, FiWord P0_f, FiWord P1_g, FiWord P2_s);
151static FiProg C17_reduce;
152static FiWord CF17_reduce(FiEnv e1, FiWord P0_T, FiWord P1_f, FiWord P2_g, FiWord P3_t);
153static FiProg C18_combine;
154static FiClos CF18_combine(FiEnv e1, FiWord P0_f, FiWord P1_g, FiWord P2_g2);
155static FiProg C19_generBaseFn;
156static void CF19_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos* R3);
157static FiProg C20_generStepper;
158static void CF20_generStepper(FiEnv e1);
159static FiProg C21_generDone_QMARK_;
160static FiBool CF21_generDone_QMARK_(FiEnv e1);
161static FiProg C22_generValue;
162static FiWord CF22_generValue(FiEnv e1);
163static FiProg C23_generBound;
164static FiSInt CF23_generBound(FiEnv e1);
165static FiProg C24_combine;
166static FiClos CF24_combine(FiEnv e1, FiWord P0_T, FiWord P1_f, FiWord P2_g, FiWord P3_g2);
167static FiProg C25_generBaseFn;
168static void CF25_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos* R3);
169static FiProg C26_generStepper;
170static void CF26_generStepper(FiEnv e1);
171static FiProg C27_generDone_QMARK_;
172static FiBool CF27_generDone_QMARK_(FiEnv e1);
173static FiProg C28_generValue;
174static FiWord CF28_generValue(FiEnv e1);
175static FiProg C29_generBound;
176static FiSInt CF29_generBound(FiEnv e1);
177extern FiClos G_MUMWI_gener;
178static FiClos *pG_NQYQM_noOperation;
179extern FiClos G_79FFJ_gener__GeneratorOperat;
180static FiClos *pG_XIPRL_runtime;
181static FiClos *pG_KAC1B_rtCacheExplicitMake;
182static FiClos *pG_759EG_rtCacheCheck;
183static FiClos *pG_LD0B5_domainHash_BANG_;
184static FiClos *pG_8AMPD_rtSingleParamNameFn;
185static FiClos *pG_CSVBL_domainAddNameFn_BANG_;
186static FiClos *pG_XS55O_domainAddHash_BANG_;
187static FiClos *pG_PA5R2_domainAddExports;
188static FiClos *pG_6L1ZC_domainMake;
189static FiClos *pG_PV28S_rtCacheAdd;
190static FiClos *pG_822GM_rtAddStrings;
191
192
193
194static void
195CF0_gener(FiEnv e1)
196{
197 PFmt7 T2, T3;
198 FiWord *T0, *T1;
199 PFmt15 l0;
200 FiEnv e0;
201 l0 = fi0New(struct Fmt15 , CENSUS_EnvLevel)((struct Fmt15 *) fi0Alloc(sizeof(struct Fmt15), (19)));
202 e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
203 fiCCall0(void, (*pG_XIPRL_runtime))((*((void (*)())((*pG_XIPRL_runtime))->prog->fun))(((*pG_XIPRL_runtime
))->env));
204 G_MUMWI_gener = (FiClos) (*pG_NQYQM_noOperation);
205 l0->X0 = (FiWord) fiNil((Ptr) 0);
206 G_79FFJ_gener__GeneratorOperat = fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C1_GeneratorOperationsPackage))
207 C1_GeneratorOperationsPackage)fiClosMakeFun(e0, (FiProg) (C1_GeneratorOperationsPackage));
208 fiProgHashCode(((FiClos) G_79FFJ_gener__GeneratorOperat)->prog)((((FiClos) G_79FFJ_gener__GeneratorOperat)->prog)->data
) =
209 286738465L;
210 fiARRNEW_Word(T0, FiWord*, 3L)((T0) = (FiWord*) fiArrNew_Word(3L));
211 fiARRNEW_Word(T1, FiWord*, 3L)((T1) = (FiWord*) fiArrNew_Word(3L));
212 T0[0L] = (FiWord) 318461817L;
213 T1[0L] = (FiWord) "map";
214 T0[1L] = (FiWord) 393444028L;
215 T1[1L] = (FiWord) "combine";
216 T0[2L] = (FiWord) 752904942L;
217 T1[2L] = (FiWord) "reduce";
218 T2 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
219 T2->X0_size = 3L;
220 T2->X1_nsize = 3L;
221 T2->X2_values = (FiWord) T0;
222 T3 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
223 T3->X0_size = 3L;
224 T3->X1_nsize = 3L;
225 T3->X2_values = (FiWord) T1;
226 fiCCall2(void, (*pG_822GM_rtAddStrings), (FiWord) T2, (FiWord) T3)((*((void (*)())((*pG_822GM_rtAddStrings))->prog->fun))
(((*pG_822GM_rtAddStrings))->env,(FiWord) T2,(FiWord) T3));
227 return ;
228}
229
230static struct _FiProg tmp0_gener = {
231 (FiFun) CF0_gener,
232 0L,
233 0L,
234 0L,
235 0L
236};
237
238
239static FiWord
240CF1_GeneratorOperationsPackage(FiEnv e1, FiWord P0_S)
241{
242 FiBool T3, T5;
243 FiWord *T0, T2, T4;
244 PFmt5 T1;
245 PFmt14 l0;
246 FiEnv e0;
247 PFmt15 l1;
248 l0 = fi0New(struct Fmt14 , CENSUS_EnvLevel)((struct Fmt14 *) fi0Alloc(sizeof(struct Fmt14), (19)));
249 e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
250 l1 = (PFmt15) fiEnvLevel(e1)((FiEnv) (e1)->level);
251 l0->X0_S = P0_S;
252 fiARRNEW_Word(T0, FiWord*, 1L)((T0) = (FiWord*) fiArrNew_Word(1L));
253 T1 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
254 T1->X0_size = 1L;
255 T1->X1_values = (FiWord*) T0;
256 fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X0)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X0) == (FiPtr) 0));
257 if (T5) goto L3;
258L1: T0[0L] = l0->X0_S;
259 ((void(*)(FiEnv , FiWord , FiWord , FiWord* , FiWord* ))
260 fiRawCProg((*pG_759EG_rtCacheCheck))(((*pG_759EG_rtCacheCheck))->prog->fun))(((*
261 pG_759EG_rtCacheCheck))->env, (FiWord) l1->X0, (FiWord) (
262 FiWord) T1, &T2, &T4);
263 T3 = (FiBool) T4;
264 if (T3) goto L0;
265 T2 = fiCCall1(FiWord, (*pG_6L1ZC_domainMake), fiClosMake(e0,((*((FiWord (*)())((*pG_6L1ZC_domainMake))->prog->fun))
(((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) (
C2_addLevel0))))
266 C2_addLevel0))((*((FiWord (*)())((*pG_6L1ZC_domainMake))->prog->fun))
(((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) (
C2_addLevel0))));
267 T2 = fiCCall3(FiWord, (*pG_PV28S_rtCacheAdd), l1->X0, (FiWord)((*((FiWord (*)())((*pG_PV28S_rtCacheAdd))->prog->fun))
(((*pG_PV28S_rtCacheAdd))->env,l1->X0,(FiWord) T1,T2))
268 T1, T2)((*((FiWord (*)())((*pG_PV28S_rtCacheAdd))->prog->fun))
(((*pG_PV28S_rtCacheAdd))->env,l1->X0,(FiWord) T1,T2));
269L0: return T2;
270L3: l1->X0 = fiCCall1(FiWord, (*pG_KAC1B_rtCacheExplicitMake), 15L)((*((FiWord (*)())((*pG_KAC1B_rtCacheExplicitMake))->prog->
fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));
271 goto L1;
272}
273
274static struct _FiProg tmp1_GeneratorOperationsPackag = {
275 (FiFun) CF1_GeneratorOperationsPackage,
276 0L,
277 0L,
278 0L,
279 0L
280};
281
282
283static FiClos
284CF2_addLevel0(FiEnv e1, FiWord P0_domain)
285{
286 FiSInt T1, T2;
287 FiWord T0;
288 FiEnv e0;
289 PFmt14 l1;
290 e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
291 l1 = (PFmt14) fiEnvLevel(e1)((FiEnv) (e1)->level);
292 T0 = fiCCall2(FiWord, (*pG_8AMPD_rtSingleParamNameFn), "GeneratorOperationsPackage",((*((FiWord (*)())((*pG_8AMPD_rtSingleParamNameFn))->prog->
fun))(((*pG_8AMPD_rtSingleParamNameFn))->env,"GeneratorOperationsPackage"
,l1->X0_S))
293 l1->X0_S)((*((FiWord (*)())((*pG_8AMPD_rtSingleParamNameFn))->prog->
fun))(((*pG_8AMPD_rtSingleParamNameFn))->env,"GeneratorOperationsPackage"
,l1->X0_S));
294 fiCCall2(FiWord, (*pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((*((FiWord (*)())((*pG_CSVBL_domainAddNameFn_BANG_))->prog
->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain
,T0));
295 T2 = fiCCall1(FiSInt, (*pG_LD0B5_domainHash_BANG_), l1->X0_S)((*((FiSInt (*)())((*pG_LD0B5_domainHash_BANG_))->prog->
fun))(((*pG_LD0B5_domainHash_BANG_))->env,l1->X0_S));
296 fiSINT_HASHCOMBINE(T1, FiSInt, T2, 286738465L)((T1) = (FiSInt) fiSIntHashCombine(T2, 286738465L));
297 fiCCall2(FiWord, (*pG_XS55O_domainAddHash_BANG_), P0_domain, T1)((*((FiWord (*)())((*pG_XS55O_domainAddHash_BANG_))->prog->
fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,T1)
);
298 return fiClosMake(e0, C3_addLevel1)fiClosMakeFun(e0, (FiProg) (C3_addLevel1));
299}
300
301static struct _FiProg tmp2_addLevel0 = {
302 (FiFun) CF2_addLevel0,
303 0L,
304 0L,
305 0L,
306 0L
307};
308
309
310static FiWord
311CF3_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
312{
313 FiSInt T6, T7, T8, T9, T10, T11, T12, T13, T14, T15, T16, T17, T18, T19, T20;
314 PFmt7 T3, T4, T5;
315 FiWord *T0, *T1, *T2;
316 PFmt13 l0;
317 FiEnv e2, e0;
318 PFmt14 l2;
319 l0 = fi0New(struct Fmt13 , CENSUS_EnvLevel)((struct Fmt13 *) fi0Alloc(sizeof(struct Fmt13), (19)));
320 e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
321 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
322 l2 = (PFmt14) fiEnvLevel(e2)((FiEnv) (e2)->level);
323 fiARRNEW_Word(T0, FiWord*, 6L)((T0) = (FiWord*) fiArrNew_Word(6L));
324 fiARRNEW_Word(T1, FiWord*, 6L)((T1) = (FiWord*) fiArrNew_Word(6L));
325 fiARRNEW_Word(T2, FiWord*, 6L)((T2) = (FiWord*) fiArrNew_Word(6L));
326 l0->X4_map = fiClosMake(e0, C4_map)fiClosMakeFun(e0, (FiProg) (C4_map));
327 l0->X5_map = fiClosMake(e0, C10_map)fiClosMakeFun(e0, (FiProg) (C10_map));
328 l0->X2_reduce = fiClosMake(e0, C16_reduce)fiClosMakeFun(e0, (FiProg) (C16_reduce));
329 l0->X3_reduce = fiClosMake(e0, C17_reduce)fiClosMakeFun(e0, (FiProg) (C17_reduce));
330 l0->X0_combine = fiClosMake(e0, C18_combine)fiClosMakeFun(e0, (FiProg) (C18_combine));
331 l0->X1_combine = fiClosMake(e0, C24_combine)fiClosMakeFun(e0, (FiProg) (C24_combine));
332 T12 = fiCCall1(FiSInt, (*pG_LD0B5_domainHash_BANG_), l2->X0_S)((*((FiSInt (*)())((*pG_LD0B5_domainHash_BANG_))->prog->
fun))(((*pG_LD0B5_domainHash_BANG_))->env,l2->X0_S));
333 fiSINT_HASHCOMBINE(T13, FiSInt, T12, 83976792L)((T13) = (FiSInt) fiSIntHashCombine(T12, 83976792L));
334 fiSINT_HASHCOMBINE(T14, FiSInt, T12, 51489085L)((T14) = (FiSInt) fiSIntHashCombine(T12, 51489085L));
335 fiSINT_HASHCOMBINE(T15, FiSInt, 32236L, T14)((T15) = (FiSInt) fiSIntHashCombine(32236L, T14));
336 fiSINT_HASHCOMBINE(T6, FiSInt, T13, fiSIntHashCombine((FiSInt) 32236L, (((T6) = (FiSInt) fiSIntHashCombine(T13, fiSIntHashCombine((FiSInt
) 32236L, ( FiSInt) fiSIntHashCombine((FiSInt) T13, (FiSInt) fiSIntHashCombine
((FiSInt) fiSIntHashCombine((FiSInt) T12, ( FiSInt) T15), (FiSInt
) 51489085L)))))
337 FiSInt) fiSIntHashCombine((FiSInt) T13, (FiSInt)((T6) = (FiSInt) fiSIntHashCombine(T13, fiSIntHashCombine((FiSInt
) 32236L, ( FiSInt) fiSIntHashCombine((FiSInt) T13, (FiSInt) fiSIntHashCombine
((FiSInt) fiSIntHashCombine((FiSInt) T12, ( FiSInt) T15), (FiSInt
) 51489085L)))))
338 fiSIntHashCombine((FiSInt) fiSIntHashCombine((FiSInt) T12, (((T6) = (FiSInt) fiSIntHashCombine(T13, fiSIntHashCombine((FiSInt
) 32236L, ( FiSInt) fiSIntHashCombine((FiSInt) T13, (FiSInt) fiSIntHashCombine
((FiSInt) fiSIntHashCombine((FiSInt) T12, ( FiSInt) T15), (FiSInt
) 51489085L)))))
339 FiSInt) T15), (FiSInt) 51489085L))))((T6) = (FiSInt) fiSIntHashCombine(T13, fiSIntHashCombine((FiSInt
) 32236L, ( FiSInt) fiSIntHashCombine((FiSInt) T13, (FiSInt) fiSIntHashCombine
((FiSInt) fiSIntHashCombine((FiSInt) T12, ( FiSInt) T15), (FiSInt
) 51489085L)))));
340 fiSINT_HASHCOMBINE(T7, FiSInt, 53765667L, fiSIntHashCombine((FiSInt)((T7) = (FiSInt) fiSIntHashCombine(53765667L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T13, (FiSInt
) fiSIntHashCombine((FiSInt) fiSIntHashCombine((FiSInt) 0L, (
FiSInt) T15), (FiSInt) 882717926L)))))
341 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T13, (FiSInt)((T7) = (FiSInt) fiSIntHashCombine(53765667L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T13, (FiSInt
) fiSIntHashCombine((FiSInt) fiSIntHashCombine((FiSInt) 0L, (
FiSInt) T15), (FiSInt) 882717926L)))))
342 fiSIntHashCombine((FiSInt) fiSIntHashCombine((FiSInt) 0L, (((T7) = (FiSInt) fiSIntHashCombine(53765667L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T13, (FiSInt
) fiSIntHashCombine((FiSInt) fiSIntHashCombine((FiSInt) 0L, (
FiSInt) T15), (FiSInt) 882717926L)))))
343 FiSInt) T15), (FiSInt) 882717926L))))((T7) = (FiSInt) fiSIntHashCombine(53765667L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T13, (FiSInt
) fiSIntHashCombine((FiSInt) fiSIntHashCombine((FiSInt) 0L, (
FiSInt) T15), (FiSInt) 882717926L)))));
344 fiSINT_HASHCOMBINE(T16, FiSInt, T12, T14)((T16) = (FiSInt) fiSIntHashCombine(T12, T14));
345 fiSINT_HASHCOMBINE(T17, FiSInt, 32236L, T16)((T17) = (FiSInt) fiSIntHashCombine(32236L, T16));
346 fiSINT_HASHCOMBINE(T18, FiSInt, T12, T17)((T18) = (FiSInt) fiSIntHashCombine(T12, T17));
347 fiSINT_HASHCOMBINE(T19, FiSInt, T18, 51489085L)((T19) = (FiSInt) fiSIntHashCombine(T18, 51489085L));
348 fiSINT_HASHCOMBINE(T20, FiSInt, T13, T19)((T20) = (FiSInt) fiSIntHashCombine(T13, T19));
349 fiSINT_HASHCOMBINE(T8, FiSInt, T12, fiSIntHashCombine((FiSInt) 32236L, (((T8) = (FiSInt) fiSIntHashCombine(T12, fiSIntHashCombine((FiSInt
) 32236L, ( FiSInt) fiSIntHashCombine((FiSInt) T12, (FiSInt) T20
))))
350 FiSInt) fiSIntHashCombine((FiSInt) T12, (FiSInt) T20)))((T8) = (FiSInt) fiSIntHashCombine(T12, fiSIntHashCombine((FiSInt
) 32236L, ( FiSInt) fiSIntHashCombine((FiSInt) T12, (FiSInt) T20
))));
351 fiSINT_HASHCOMBINE(T9, FiSInt, 0L, fiSIntHashCombine((FiSInt) 32236L, (((T9) = (FiSInt) fiSIntHashCombine(0L, fiSIntHashCombine((FiSInt
) 32236L, ( FiSInt) fiSIntHashCombine((FiSInt) 0L, (FiSInt) fiSIntHashCombine
((FiSInt) T13, (FiSInt) fiSIntHashCombine(( FiSInt) fiSIntHashCombine
((FiSInt) 0L, (FiSInt) fiSIntHashCombine((FiSInt) 32236L, (FiSInt
) fiSIntHashCombine(( FiSInt) 0L, (FiSInt) T14))), (FiSInt) 882717926L
))))))
352 FiSInt) fiSIntHashCombine((FiSInt) 0L, (FiSInt)((T9) = (FiSInt) fiSIntHashCombine(0L, fiSIntHashCombine((FiSInt
) 32236L, ( FiSInt) fiSIntHashCombine((FiSInt) 0L, (FiSInt) fiSIntHashCombine
((FiSInt) T13, (FiSInt) fiSIntHashCombine(( FiSInt) fiSIntHashCombine
((FiSInt) 0L, (FiSInt) fiSIntHashCombine((FiSInt) 32236L, (FiSInt
) fiSIntHashCombine(( FiSInt) 0L, (FiSInt) T14))), (FiSInt) 882717926L
))))))
353 fiSIntHashCombine((FiSInt) T13, (FiSInt) fiSIntHashCombine((((T9) = (FiSInt) fiSIntHashCombine(0L, fiSIntHashCombine((FiSInt
) 32236L, ( FiSInt) fiSIntHashCombine((FiSInt) 0L, (FiSInt) fiSIntHashCombine
((FiSInt) T13, (FiSInt) fiSIntHashCombine(( FiSInt) fiSIntHashCombine
((FiSInt) 0L, (FiSInt) fiSIntHashCombine((FiSInt) 32236L, (FiSInt
) fiSIntHashCombine(( FiSInt) 0L, (FiSInt) T14))), (FiSInt) 882717926L
))))))
354 FiSInt) fiSIntHashCombine((FiSInt) 0L, (FiSInt)((T9) = (FiSInt) fiSIntHashCombine(0L, fiSIntHashCombine((FiSInt
) 32236L, ( FiSInt) fiSIntHashCombine((FiSInt) 0L, (FiSInt) fiSIntHashCombine
((FiSInt) T13, (FiSInt) fiSIntHashCombine(( FiSInt) fiSIntHashCombine
((FiSInt) 0L, (FiSInt) fiSIntHashCombine((FiSInt) 32236L, (FiSInt
) fiSIntHashCombine(( FiSInt) 0L, (FiSInt) T14))), (FiSInt) 882717926L
))))))
355 fiSIntHashCombine((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((((T9) = (FiSInt) fiSIntHashCombine(0L, fiSIntHashCombine((FiSInt
) 32236L, ( FiSInt) fiSIntHashCombine((FiSInt) 0L, (FiSInt) fiSIntHashCombine
((FiSInt) T13, (FiSInt) fiSIntHashCombine(( FiSInt) fiSIntHashCombine
((FiSInt) 0L, (FiSInt) fiSIntHashCombine((FiSInt) 32236L, (FiSInt
) fiSIntHashCombine(( FiSInt) 0L, (FiSInt) T14))), (FiSInt) 882717926L
))))))
356 FiSInt) 0L, (FiSInt) T14))), (FiSInt) 882717926L)))))((T9) = (FiSInt) fiSIntHashCombine(0L, fiSIntHashCombine((FiSInt
) 32236L, ( FiSInt) fiSIntHashCombine((FiSInt) 0L, (FiSInt) fiSIntHashCombine
((FiSInt) T13, (FiSInt) fiSIntHashCombine(( FiSInt) fiSIntHashCombine
((FiSInt) 0L, (FiSInt) fiSIntHashCombine((FiSInt) 32236L, (FiSInt
) fiSIntHashCombine(( FiSInt) 0L, (FiSInt) T14))), (FiSInt) 882717926L
))))));
357 fiSINT_HASHCOMBINE(T10, FiSInt, T13, fiSIntHashCombine((FiSInt)((T10) = (FiSInt) fiSIntHashCombine(T13, fiSIntHashCombine((FiSInt
) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T13, (FiSInt) T20
))))
358 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T13, (FiSInt) T20)))((T10) = (FiSInt) fiSIntHashCombine(T13, fiSIntHashCombine((FiSInt
) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T13, (FiSInt) T20
))));
359 fiSINT_HASHCOMBINE(T11, FiSInt, 53765667L, fiSIntHashCombine((FiSInt)((T11) = (FiSInt) fiSIntHashCombine(53765667L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T13, (FiSInt
) fiSIntHashCombine((FiSInt) T13, (FiSInt) fiSIntHashCombine(
( FiSInt) fiSIntHashCombine((FiSInt) 0L, (FiSInt) T17), (FiSInt
) 882717926L))))))
360 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T13, (FiSInt)((T11) = (FiSInt) fiSIntHashCombine(53765667L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T13, (FiSInt
) fiSIntHashCombine((FiSInt) T13, (FiSInt) fiSIntHashCombine(
( FiSInt) fiSIntHashCombine((FiSInt) 0L, (FiSInt) T17), (FiSInt
) 882717926L))))))
361 fiSIntHashCombine((FiSInt) T13, (FiSInt) fiSIntHashCombine((((T11) = (FiSInt) fiSIntHashCombine(53765667L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T13, (FiSInt
) fiSIntHashCombine((FiSInt) T13, (FiSInt) fiSIntHashCombine(
( FiSInt) fiSIntHashCombine((FiSInt) 0L, (FiSInt) T17), (FiSInt
) 882717926L))))))
362 FiSInt) fiSIntHashCombine((FiSInt) 0L, (FiSInt) T17), (FiSInt)((T11) = (FiSInt) fiSIntHashCombine(53765667L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T13, (FiSInt
) fiSIntHashCombine((FiSInt) T13, (FiSInt) fiSIntHashCombine(
( FiSInt) fiSIntHashCombine((FiSInt) 0L, (FiSInt) T17), (FiSInt
) 882717926L))))))
363 882717926L)))))((T11) = (FiSInt) fiSIntHashCombine(53765667L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T13, (FiSInt
) fiSIntHashCombine((FiSInt) T13, (FiSInt) fiSIntHashCombine(
( FiSInt) fiSIntHashCombine((FiSInt) 0L, (FiSInt) T17), (FiSInt
) 882717926L))))));
364 T3 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
365 T3->X0_size = 6L;
366 T3->X1_nsize = 6L;
367 T3->X2_values = (FiWord) T0;
368 T4 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
369 T4->X0_size = 6L;
370 T4->X1_nsize = 6L;
371 T4->X2_values = (FiWord) T1;
372 T5 = fi0RecNew(struct Fmt7 , CENSUS_Rec)((struct Fmt7 *) fi0RecAlloc(sizeof(struct Fmt7), ( 5)));
373 T5->X0_size = 6L;
374 T5->X1_nsize = 6L;
375 T5->X2_values = (FiWord) T2;
376 fiCCall4(void, (*pG_PA5R2_domainAddExports), P0_domain, T3, T4, T5)((*((void (*)())((*pG_PA5R2_domainAddExports))->prog->fun
))(((*pG_PA5R2_domainAddExports))->env,P0_domain,T3,T4,T5)
);
377 T0[0L] = (FiWord) 318461817L;
378 T1[0L] = (FiWord) T6;
379 T2[0L] = (FiWord) l0->X4_map;
380 T0[1L] = (FiWord) 318461817L;
381 T1[1L] = (FiWord) T7;
382 T2[1L] = (FiWord) l0->X5_map;
383 T0[2L] = (FiWord) 752904942L;
384 T1[2L] = (FiWord) T8;
385 T2[2L] = (FiWord) l0->X2_reduce;
386 T0[3L] = (FiWord) 752904942L;
387 T1[3L] = (FiWord) T9;
388 T2[3L] = (FiWord) l0->X3_reduce;
389 T0[4L] = (FiWord) 393444028L;
390 T1[4L] = (FiWord) T10;
391 T2[4L] = (FiWord) l0->X0_combine;
392 T0[5L] = (FiWord) 393444028L;
393 T1[5L] = (FiWord) T11;
394 T2[5L] = (FiWord) l0->X1_combine;
395 return P0_domain;
396}
397
398static struct _FiProg tmp3_addLevel1 = {
399 (FiFun) CF3_addLevel1,
400 0L,
401 0L,
402 0L,
403 0L
404};
405
406
407static FiClos
408CF4_map(FiEnv e1, FiWord P0_f, FiWord P1_g)
409{
410 PFmt9 l0;
411 FiEnv e0;
412 l0 = fi0New(struct Fmt9 , CENSUS_EnvLevel)((struct Fmt9 *) fi0Alloc(sizeof(struct Fmt9), (19)));
413 e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
414 l0->X0_f = (FiClos) P0_f;
415 l0->X1_g = (FiClos) P1_g;
416 l0->X2 = 0L;
417 l0->X8 = 0L;
418 return fiClosMake(e0, C5_generBaseFn)fiClosMakeFun(e0, (FiProg) (C5_generBaseFn));
419}
420
421static struct _FiProg tmp4_map = {
422 (FiFun) CF4_map,
423 0L,
424 0L,
425 0L,
426 0L
427};
428
429
430static void
431CF5_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos*
432 R3)
433{
434 FiEnv e0;
435 PFmt9 l1;
436 e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
437 l1 = (PFmt9) fiEnvLevel(e1)((FiEnv) (e1)->level);
438 *R0 = fiClosMake(e0, C7_generDone_QMARK_)fiClosMakeFun(e0, (FiProg) (C7_generDone_QMARK_));
439 *R1 = fiClosMake(e0, C6_generStepper)fiClosMakeFun(e0, (FiProg) (C6_generStepper));
440 *R2 = fiClosMake(e0, C8_generValue)fiClosMakeFun(e0, (FiProg) (C8_generValue));
441 *R3 = fiClosMake(e0, C9_generBound)fiClosMakeFun(e0, (FiProg) (C9_generBound));
442 return ;
443}
444
445static struct _FiProg tmp5_generBaseFn = {
446 (FiFun) CF5_generBaseFn,
447 0L,
448 0L,
449 0L,
450 0L
451};
452
453
454static void
455CF6_generStepper(FiEnv e1)
456{
457 FiClos T1, T2, T3, T4;
458 FiWord T0;
459 PFmt9 l2;
460 FiEnv e2;
461 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
462 l2 = (PFmt9) fiEnvLevel(e2)((FiEnv) (e2)->level);
463 switch (l2->X8) {
464 case 0L: goto L0;
465 case 1L: goto L1;
466 }
467L0: l2->X7 = 0L;
468 ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* , FiClos* ))
469 fiRawCProg(l2->X1_g)((l2->X1_g)->prog->fun))((l2->X1_g)->env, &T1, &T2, &T3, &
470 T4);
471 l2->X2 = 1L;
472 l2->X3 = T1;
473 l2->X4 = T2;
474 l2->X5 = T3;
475 l2->X6 = T4;
476L1: fiCCall0(void, l2->X4)((*((void (*)())(l2->X4)->prog->fun))((l2->X4)->
env));
477 if ((FiBool) fiCCall0(FiWord, l2->X3)((*((FiWord (*)())(l2->X3)->prog->fun))((l2->X3)->
env))) goto L2;
478 l2->X10_x = fiCCall0(FiWord, l2->X5)((*((FiWord (*)())(l2->X5)->prog->fun))((l2->X5)->
env));
479 l2->X8 = 1L;
480 T0 = fiCCall1(FiWord, l2->X0_f, l2->X10_x)((*((FiWord (*)())(l2->X0_f)->prog->fun))((l2->X0_f
)->env,l2->X10_x));
481 l2->X9 = T0;
482 return ;
483L2: l2->X7 = 1L;
484 return ;
485}
486
487static struct _FiProg tmp6_generStepper = {
488 (FiFun) CF6_generStepper,
489 0L,
490 0L,
491 0L,
492 0L
493};
494
495
496static FiBool
497CF7_generDone_QMARK_(FiEnv e1)
498{
499 PFmt9 l2;
500 FiEnv e2;
501 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
502 l2 = (PFmt9) fiEnvLevel(e2)((FiEnv) (e2)->level);
503 return l2->X7;
504}
505
506static struct _FiProg tmp7_generDone_QMARK_ = {
507 (FiFun) CF7_generDone_QMARK_,
508 0L,
509 0L,
510 0L,
511 0L
512};
513
514
515static FiWord
516CF8_generValue(FiEnv e1)
517{
518 PFmt9 l2;
519 FiEnv e2;
520 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
521 l2 = (PFmt9) fiEnvLevel(e2)((FiEnv) (e2)->level);
522 return l2->X9;
523}
524
525static struct _FiProg tmp8_generValue = {
526 (FiFun) CF8_generValue,
527 0L,
528 0L,
529 0L,
530 0L
531};
532
533
534static FiSInt
535CF9_generBound(FiEnv e1)
536{
537 FiSInt T0, T1;
538 PFmt9 l2;
539 FiEnv e2;
540 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
541 l2 = (PFmt9) fiEnvLevel(e2)((FiEnv) (e2)->level);
542 if (l2->X2) goto L3;
543L0: T0 = -1L;
544L1: return T0;
545L3: T1 = fiCCall0(FiSInt, l2->X6)((*((FiSInt (*)())(l2->X6)->prog->fun))((l2->X6)->
env));
546 if (T1 < 0L) goto L0;
547 T0 = T1;
548 goto L1;
549}
550
551static struct _FiProg tmp9_generBound = {
552 (FiFun) CF9_generBound,
553 0L,
554 0L,
555 0L,
556 0L
557};
558
559
560static FiClos
561CF10_map(FiEnv e1, FiWord P0_T, FiWord P1_f, FiWord P2_g)
562{
563 PFmt10 l0;
564 FiEnv e0;
565 l0 = fi0New(struct Fmt10 , CENSUS_EnvLevel)((struct Fmt10 *) fi0Alloc(sizeof(struct Fmt10), (19)));
566 e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
567 l0->X0_f = (FiClos) P1_f;
568 l0->X1_g = (FiClos) P2_g;
569 l0->X2 = 0L;
570 l0->X8 = 0L;
571 return fiClosMake(e0, C11_generBaseFn)fiClosMakeFun(e0, (FiProg) (C11_generBaseFn));
572}
573
574static struct _FiProg tmp10_map = {
575 (FiFun) CF10_map,
576 0L,
577 0L,
578 0L,
579 0L
580};
581
582
583static void
584CF11_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos*
585 R3)
586{
587 FiEnv e0;
588 PFmt10 l1;
589 e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
590 l1 = (PFmt10) fiEnvLevel(e1)((FiEnv) (e1)->level);
591 *R0 = fiClosMake(e0, C13_generDone_QMARK_)fiClosMakeFun(e0, (FiProg) (C13_generDone_QMARK_));
592 *R1 = fiClosMake(e0, C12_generStepper)fiClosMakeFun(e0, (FiProg) (C12_generStepper));
593 *R2 = fiClosMake(e0, C14_generValue)fiClosMakeFun(e0, (FiProg) (C14_generValue));
594 *R3 = fiClosMake(e0, C15_generBound)fiClosMakeFun(e0, (FiProg) (C15_generBound));
595 return ;
596}
597
598static struct _FiProg tmp11_generBaseFn = {
599 (FiFun) CF11_generBaseFn,
600 0L,
601 0L,
602 0L,
603 0L
604};
605
606
607static void
608CF12_generStepper(FiEnv e1)
609{
610 FiClos T1, T2, T3, T4;
611 FiWord T0;
612 PFmt10 l2;
613 FiEnv e2;
614 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
615 l2 = (PFmt10) fiEnvLevel(e2)((FiEnv) (e2)->level);
616 switch (l2->X8) {
617 case 0L: goto L0;
618 case 1L: goto L1;
619 }
620L0: l2->X7 = 0L;
621 ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* , FiClos* ))
622 fiRawCProg(l2->X1_g)((l2->X1_g)->prog->fun))((l2->X1_g)->env, &T1, &T2, &T3, &
623 T4);
624 l2->X2 = 1L;
625 l2->X3 = T1;
626 l2->X4 = T2;
627 l2->X5 = T3;
628 l2->X6 = T4;
629L1: fiCCall0(void, l2->X4)((*((void (*)())(l2->X4)->prog->fun))((l2->X4)->
env));
630 if ((FiBool) fiCCall0(FiWord, l2->X3)((*((FiWord (*)())(l2->X3)->prog->fun))((l2->X3)->
env))) goto L2;
631 l2->X10_x = fiCCall0(FiWord, l2->X5)((*((FiWord (*)())(l2->X5)->prog->fun))((l2->X5)->
env));
632 l2->X8 = 1L;
633 T0 = fiCCall1(FiWord, l2->X0_f, l2->X10_x)((*((FiWord (*)())(l2->X0_f)->prog->fun))((l2->X0_f
)->env,l2->X10_x));
634 l2->X9 = T0;
635 return ;
636L2: l2->X7 = 1L;
637 return ;
638}
639
640static struct _FiProg tmp12_generStepper = {
641 (FiFun) CF12_generStepper,
642 0L,
643 0L,
644 0L,
645 0L
646};
647
648
649static FiBool
650CF13_generDone_QMARK_(FiEnv e1)
651{
652 PFmt10 l2;
653 FiEnv e2;
654 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
655 l2 = (PFmt10) fiEnvLevel(e2)((FiEnv) (e2)->level);
656 return l2->X7;
657}
658
659static struct _FiProg tmp13_generDone_QMARK_ = {
660 (FiFun) CF13_generDone_QMARK_,
661 0L,
662 0L,
663 0L,
664 0L
665};
666
667
668static FiWord
669CF14_generValue(FiEnv e1)
670{
671 PFmt10 l2;
672 FiEnv e2;
673 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
674 l2 = (PFmt10) fiEnvLevel(e2)((FiEnv) (e2)->level);
675 return l2->X9;
676}
677
678static struct _FiProg tmp14_generValue = {
679 (FiFun) CF14_generValue,
680 0L,
681 0L,
682 0L,
683 0L
684};
685
686
687static FiSInt
688CF15_generBound(FiEnv e1)
689{
690 FiSInt T0, T1;
691 PFmt10 l2;
692 FiEnv e2;
693 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
694 l2 = (PFmt10) fiEnvLevel(e2)((FiEnv) (e2)->level);
695 if (l2->X2) goto L3;
696L0: T0 = -1L;
697L1: return T0;
698L3: T1 = fiCCall0(FiSInt, l2->X6)((*((FiSInt (*)())(l2->X6)->prog->fun))((l2->X6)->
env));
699 if (T1 < 0L) goto L0;
700 T0 = T1;
701 goto L1;
702}
703
704static struct _FiProg tmp15_generBound = {
705 (FiFun) CF15_generBound,
706 0L,
707 0L,
708 0L,
709 0L
710};
711
712
713static FiWord
714CF16_reduce(FiEnv e1, FiWord P0_f, FiWord P1_g, FiWord P2_s)
715{
716 FiClos T1, T2, T3, T4;
717 FiWord T0_x;
718 ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* , FiClos* ))
719 fiRawCProg((FiClos) P1_g)(((FiClos) P1_g)->prog->fun))(((FiClos) P1_g)->env, &T1, &T2, &
720 T3, &T4);
721L0: fiCCall0(void, T2)((*((void (*)())(T2)->prog->fun))((T2)->env));
722 if ((FiBool) fiCCall0(FiWord, T1)((*((FiWord (*)())(T1)->prog->fun))((T1)->env))) goto L1;
723 T0_x = fiCCall0(FiWord, T3)((*((FiWord (*)())(T3)->prog->fun))((T3)->env));
724 P2_s = fiCCall2(FiWord, (FiClos) P0_f, T0_x, P2_s)((*((FiWord (*)())((FiClos) P0_f)->prog->fun))(((FiClos
) P0_f)->env,T0_x,P2_s));
725 goto L0;
726L1: return P2_s;
727}
728
729static struct _FiProg tmp16_reduce = {
730 (FiFun) CF16_reduce,
731 0L,
732 0L,
733 0L,
734 0L
735};
736
737
738static FiWord
739CF17_reduce(FiEnv e1, FiWord P0_T, FiWord P1_f, FiWord P2_g, FiWord
740 P3_t)
741{
742 FiClos T1, T2, T3, T4;
743 FiWord T0_x;
744 ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* , FiClos* ))
745 fiRawCProg((FiClos) P2_g)(((FiClos) P2_g)->prog->fun))(((FiClos) P2_g)->env, &T1, &T2, &
746 T3, &T4);
747L0: fiCCall0(void, T2)((*((void (*)())(T2)->prog->fun))((T2)->env));
748 if ((FiBool) fiCCall0(FiWord, T1)((*((FiWord (*)())(T1)->prog->fun))((T1)->env))) goto L1;
749 T0_x = fiCCall0(FiWord, T3)((*((FiWord (*)())(T3)->prog->fun))((T3)->env));
750 P3_t = fiCCall2(FiWord, (FiClos) P1_f, T0_x, P3_t)((*((FiWord (*)())((FiClos) P1_f)->prog->fun))(((FiClos
) P1_f)->env,T0_x,P3_t));
751 goto L0;
752L1: return P3_t;
753}
754
755static struct _FiProg tmp17_reduce = {
756 (FiFun) CF17_reduce,
757 0L,
758 0L,
759 0L,
760 0L
761};
762
763
764static FiClos
765CF18_combine(FiEnv e1, FiWord P0_f, FiWord P1_g, FiWord P2_g2)
766{
767 PFmt11 l0;
768 FiEnv e0;
769 l0 = fi0New(struct Fmt11 , CENSUS_EnvLevel)((struct Fmt11 *) fi0Alloc(sizeof(struct Fmt11), (19)));
770 e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
771 l0->X0_f = (FiClos) P0_f;
772 l0->X1_g = (FiClos) P1_g;
773 l0->X2_g2 = (FiClos) P2_g2;
774 l0->X3 = 0L;
775 l0->X4 = 0L;
776 l0->X14 = 0L;
777 return fiClosMake(e0, C19_generBaseFn)fiClosMakeFun(e0, (FiProg) (C19_generBaseFn));
778}
779
780static struct _FiProg tmp18_combine = {
781 (FiFun) CF18_combine,
782 0L,
783 0L,
784 0L,
785 0L
786};
787
788
789static void
790CF19_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos*
791 R3)
792{
793 FiEnv e0;
794 PFmt11 l1;
795 e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
796 l1 = (PFmt11) fiEnvLevel(e1)((FiEnv) (e1)->level);
797 *R0 = fiClosMake(e0, C21_generDone_QMARK_)fiClosMakeFun(e0, (FiProg) (C21_generDone_QMARK_));
798 *R1 = fiClosMake(e0, C20_generStepper)fiClosMakeFun(e0, (FiProg) (C20_generStepper));
799 *R2 = fiClosMake(e0, C22_generValue)fiClosMakeFun(e0, (FiProg) (C22_generValue));
800 *R3 = fiClosMake(e0, C23_generBound)fiClosMakeFun(e0, (FiProg) (C23_generBound));
801 return ;
802}
803
804static struct _FiProg tmp19_generBaseFn = {
805 (FiFun) CF19_generBaseFn,
806 0L,
807 0L,
808 0L,
809 0L
810};
811
812
813static void
814CF20_generStepper(FiEnv e1)
815{
816 FiClos T1, T2, T3, T4, T5, T6, T7, T8;
817 FiWord T0;
818 PFmt11 l2;
819 FiEnv e2;
820 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
821 l2 = (PFmt11) fiEnvLevel(e2)((FiEnv) (e2)->level);
822 switch (l2->X14) {
823 case 0L: goto L0;
824 case 1L: goto L1;
825 }
826L0: l2->X13 = 0L;
827 ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* , FiClos* ))
828 fiRawCProg(l2->X1_g)((l2->X1_g)->prog->fun))((l2->X1_g)->env, &T1, &T2, &T3, &
829 T4);
830 l2->X3 = 1L;
831 l2->X5 = T1;
832 l2->X6 = T2;
833 l2->X7 = T3;
834 l2->X8 = T4;
835 ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* , FiClos* ))
836 fiRawCProg(l2->X2_g2)((l2->X2_g2)->prog->fun))((l2->X2_g2)->env, &T5, &T6, &T7, &
837 T8);
838 l2->X4 = 1L;
839 l2->X9 = T5;
840 l2->X10 = T6;
841 l2->X11 = T7;
842 l2->X12 = T8;
843L1: fiCCall0(void, l2->X6)((*((void (*)())(l2->X6)->prog->fun))((l2->X6)->
env));
844 if ((FiBool) fiCCall0(FiWord, l2->X5)((*((FiWord (*)())(l2->X5)->prog->fun))((l2->X5)->
env))) goto L2;
845 l2->X17_x = fiCCall0(FiWord, l2->X7)((*((FiWord (*)())(l2->X7)->prog->fun))((l2->X7)->
env));
846 fiCCall0(void, l2->X10)((*((void (*)())(l2->X10)->prog->fun))((l2->X10)->
env));
847 if ((FiBool) fiCCall0(FiWord, l2->X9)((*((FiWord (*)())(l2->X9)->prog->fun))((l2->X9)->
env))) goto L2;
848 l2->X16_y = fiCCall0(FiWord, l2->X11)((*((FiWord (*)())(l2->X11)->prog->fun))((l2->X11
)->env));
849 l2->X14 = 1L;
850 T0 = fiCCall2(FiWord, l2->X0_f, l2->X17_x, l2->X16_y)((*((FiWord (*)())(l2->X0_f)->prog->fun))((l2->X0_f
)->env,l2->X17_x,l2->X16_y));
851 l2->X15 = T0;
852 return ;
853L2: l2->X13 = 1L;
854 return ;
855}
856
857static struct _FiProg tmp20_generStepper = {
858 (FiFun) CF20_generStepper,
859 0L,
860 0L,
861 0L,
862 0L
863};
864
865
866static FiBool
867CF21_generDone_QMARK_(FiEnv e1)
868{
869 PFmt11 l2;
870 FiEnv e2;
871 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
872 l2 = (PFmt11) fiEnvLevel(e2)((FiEnv) (e2)->level);
873 return l2->X13;
874}
875
876static struct _FiProg tmp21_generDone_QMARK_ = {
877 (FiFun) CF21_generDone_QMARK_,
878 0L,
879 0L,
880 0L,
881 0L
882};
883
884
885static FiWord
886CF22_generValue(FiEnv e1)
887{
888 PFmt11 l2;
889 FiEnv e2;
890 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
891 l2 = (PFmt11) fiEnvLevel(e2)((FiEnv) (e2)->level);
892 return l2->X15;
893}
894
895static struct _FiProg tmp22_generValue = {
896 (FiFun) CF22_generValue,
897 0L,
898 0L,
899 0L,
900 0L
901};
902
903
904static FiSInt
905CF23_generBound(FiEnv e1)
906{
907 FiSInt T0, T1, T2, T3;
908 PFmt11 l2;
909 FiEnv e2;
910 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
911 l2 = (PFmt11) fiEnvLevel(e2)((FiEnv) (e2)->level);
912 if (l2->X4) goto L4;
913L0: T0 = -1L;
914L1: return T0;
915L4: T1 = fiCCall0(FiSInt, l2->X12)((*((FiSInt (*)())(l2->X12)->prog->fun))((l2->X12
)->env));
916 if (T1 < 0L) goto L0;
917 if (l2->X3) goto L6;
918 goto L0;
919L6: T2 = fiCCall0(FiSInt, l2->X8)((*((FiSInt (*)())(l2->X8)->prog->fun))((l2->X8)->
env));
920 if (T2 < 0L) goto L0;
921 T3 = T2;
922 if (T2 < T1) goto L2;
923 T3 = T1;
924L2: T0 = T3;
925 goto L1;
926}
927
928static struct _FiProg tmp23_generBound = {
929 (FiFun) CF23_generBound,
930 0L,
931 0L,
932 0L,
933 0L
934};
935
936
937static FiClos
938CF24_combine(FiEnv e1, FiWord P0_T, FiWord P1_f, FiWord P2_g, FiWord
939 P3_g2)
940{
941 PFmt12 l0;
942 FiEnv e0;
943 l0 = fi0New(struct Fmt12 , CENSUS_EnvLevel)((struct Fmt12 *) fi0Alloc(sizeof(struct Fmt12), (19)));
944 e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
945 l0->X0_f = (FiClos) P1_f;
946 l0->X1_g = (FiClos) P2_g;
947 l0->X2_g2 = (FiClos) P3_g2;
948 l0->X3 = 0L;
949 l0->X4 = 0L;
950 l0->X14 = 0L;
951 return fiClosMake(e0, C25_generBaseFn)fiClosMakeFun(e0, (FiProg) (C25_generBaseFn));
952}
953
954static struct _FiProg tmp24_combine = {
955 (FiFun) CF24_combine,
956 0L,
957 0L,
958 0L,
959 0L
960};
961
962
963static void
964CF25_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos*
965 R3)
966{
967 FiEnv e0;
968 PFmt12 l1;
969 e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
970 l1 = (PFmt12) fiEnvLevel(e1)((FiEnv) (e1)->level);
Value stored to 'l1' is never read
971 *R0 = fiClosMake(e0, C27_generDone_QMARK_)fiClosMakeFun(e0, (FiProg) (C27_generDone_QMARK_));
972 *R1 = fiClosMake(e0, C26_generStepper)fiClosMakeFun(e0, (FiProg) (C26_generStepper));
973 *R2 = fiClosMake(e0, C28_generValue)fiClosMakeFun(e0, (FiProg) (C28_generValue));
974 *R3 = fiClosMake(e0, C29_generBound)fiClosMakeFun(e0, (FiProg) (C29_generBound));
975 return ;
976}
977
978static struct _FiProg tmp25_generBaseFn = {
979 (FiFun) CF25_generBaseFn,
980 0L,
981 0L,
982 0L,
983 0L
984};
985
986
987static void
988CF26_generStepper(FiEnv e1)
989{
990 FiClos T1, T2, T3, T4, T5, T6, T7, T8;
991 FiWord T0;
992 PFmt12 l2;
993 FiEnv e2;
994 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
995 l2 = (PFmt12) fiEnvLevel(e2)((FiEnv) (e2)->level);
996 switch (l2->X14) {
997 case 0L: goto L0;
998 case 1L: goto L1;
999 }
1000L0: l2->X13 = 0L;
1001 ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* , FiClos* ))
1002 fiRawCProg(l2->X1_g)((l2->X1_g)->prog->fun))((l2->X1_g)->env, &T1, &T2, &T3, &
1003 T4);
1004 l2->X3 = 1L;
1005 l2->X5 = T1;
1006 l2->X6 = T2;
1007 l2->X7 = T3;
1008 l2->X8 = T4;
1009 ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* , FiClos* ))
1010 fiRawCProg(l2->X2_g2)((l2->X2_g2)->prog->fun))((l2->X2_g2)->env, &T5, &T6, &T7, &
1011 T8);
1012 l2->X4 = 1L;
1013 l2->X9 = T5;
1014 l2->X10 = T6;
1015 l2->X11 = T7;
1016 l2->X12 = T8;
1017L1: fiCCall0(void, l2->X6)((*((void (*)())(l2->X6)->prog->fun))((l2->X6)->
env));
1018 if ((FiBool) fiCCall0(FiWord, l2->X5)((*((FiWord (*)())(l2->X5)->prog->fun))((l2->X5)->
env))) goto L2;
1019 l2->X17_x = fiCCall0(FiWord, l2->X7)((*((FiWord (*)())(l2->X7)->prog->fun))((l2->X7)->
env));
1020 fiCCall0(void, l2->X10)((*((void (*)())(l2->X10)->prog->fun))((l2->X10)->
env));
1021 if ((FiBool) fiCCall0(FiWord, l2->X9)((*((FiWord (*)())(l2->X9)->prog->fun))((l2->X9)->
env))) goto L2;
1022 l2->X16_y = fiCCall0(FiWord, l2->X11)((*((FiWord (*)())(l2->X11)->prog->fun))((l2->X11
)->env));
1023 l2->X14 = 1L;
1024 T0 = fiCCall2(FiWord, l2->X0_f, l2->X17_x, l2->X16_y)((*((FiWord (*)())(l2->X0_f)->prog->fun))((l2->X0_f
)->env,l2->X17_x,l2->X16_y));
1025 l2->X15 = T0;
1026 return ;
1027L2: l2->X13 = 1L;
1028 return ;
1029}
1030
1031static struct _FiProg tmp26_generStepper = {
1032 (FiFun) CF26_generStepper,
1033 0L,
1034 0L,
1035 0L,
1036 0L
1037};
1038
1039
1040static FiBool
1041CF27_generDone_QMARK_(FiEnv e1)
1042{
1043 PFmt12 l2;
1044 FiEnv e2;
1045 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1046 l2 = (PFmt12) fiEnvLevel(e2)((FiEnv) (e2)->level);
1047 return l2->X13;
1048}
1049
1050static struct _FiProg tmp27_generDone_QMARK_ = {
1051 (FiFun) CF27_generDone_QMARK_,
1052 0L,
1053 0L,
1054 0L,
1055 0L
1056};
1057
1058
1059static FiWord
1060CF28_generValue(FiEnv e1)
1061{
1062 PFmt12 l2;
1063 FiEnv e2;
1064 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1065 l2 = (PFmt12) fiEnvLevel(e2)((FiEnv) (e2)->level);
1066 return l2->X15;
1067}
1068
1069static struct _FiProg tmp28_generValue = {
1070 (FiFun) CF28_generValue,
1071 0L,
1072 0L,
1073 0L,
1074 0L
1075};
1076
1077
1078static FiSInt
1079CF29_generBound(FiEnv e1)
1080{
1081 FiSInt T0, T1, T2, T3;
1082 PFmt12 l2;
1083 FiEnv e2;
1084 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
1085 l2 = (PFmt12) fiEnvLevel(e2)((FiEnv) (e2)->level);
1086 if (l2->X4) goto L4;
1087L0: T0 = -1L;
1088L1: return T0;
1089L4: T1 = fiCCall0(FiSInt, l2->X12)((*((FiSInt (*)())(l2->X12)->prog->fun))((l2->X12
)->env));
1090 if (T1 < 0L) goto L0;
1091 if (l2->X3) goto L6;
1092 goto L0;
1093L6: T2 = fiCCall0(FiSInt, l2->X8)((*((FiSInt (*)())(l2->X8)->prog->fun))((l2->X8)->
env));
1094 if (T2 < 0L) goto L0;
1095 T3 = T2;
1096 if (T2 < T1) goto L2;
1097 T3 = T1;
1098L2: T0 = T3;
1099 goto L1;
1100}
1101
1102static struct _FiProg tmp29_generBound = {
1103 (FiFun) CF29_generBound,
1104 0L,
1105 0L,
1106 0L,
1107 0L
1108};
1109
1110extern int
1111INIT__0_gener()
1112{
1113
1114 extern int INIT__0_rtexns();
1115 extern int INIT__0_runtime();
1116 static int initialized = 0;
1117 if (initialized)
1118 return 0L;
1119 else
1120 initialized = 1;
1121 C1_GeneratorOperationsPackage = &tmp1_GeneratorOperationsPackag;
1122 C2_addLevel0 = &tmp2_addLevel0;
1123 C3_addLevel1 = &tmp3_addLevel1;
1124 C4_map = &tmp4_map;
1125 C5_generBaseFn = &tmp5_generBaseFn;
1126 C6_generStepper = &tmp6_generStepper;
1127 C7_generDone_QMARK_ = &tmp7_generDone_QMARK_;
1128 C8_generValue = &tmp8_generValue;
1129 C9_generBound = &tmp9_generBound;
1130 C10_map = &tmp10_map;
1131 C11_generBaseFn = &tmp11_generBaseFn;
1132 C12_generStepper = &tmp12_generStepper;
1133 C13_generDone_QMARK_ = &tmp13_generDone_QMARK_;
1134 C14_generValue = &tmp14_generValue;
1135 C15_generBound = &tmp15_generBound;
1136 C16_reduce = &tmp16_reduce;
1137 C17_reduce = &tmp17_reduce;
1138 C18_combine = &tmp18_combine;
1139 C19_generBaseFn = &tmp19_generBaseFn;
1140 C20_generStepper = &tmp20_generStepper;
1141 C21_generDone_QMARK_ = &tmp21_generDone_QMARK_;
1142 C22_generValue = &tmp22_generValue;
1143 C23_generBound = &tmp23_generBound;
1144 C24_combine = &tmp24_combine;
1145 C25_generBaseFn = &tmp25_generBaseFn;
1146 C26_generStepper = &tmp26_generStepper;
1147 C27_generDone_QMARK_ = &tmp27_generDone_QMARK_;
1148 C28_generValue = &tmp28_generValue;
1149 C29_generBound = &tmp29_generBound;
1150 C0_gener = &tmp0_gener;
1151 fiExportGlobal("G_MUMWI_gener", G_MUMWI_gener)fiExportGlobalFun("G_MUMWI_gener", (Ptr) &G_MUMWI_gener, sizeof
(G_MUMWI_gener));
1152 fiExportGlobal("G_79FFJ_gener__GeneratorOperat",fiExportGlobalFun("G_79FFJ_gener__GeneratorOperat", (Ptr) &
G_79FFJ_gener__GeneratorOperat, sizeof(G_79FFJ_gener__GeneratorOperat
))
1153 G_79FFJ_gener__GeneratorOperat)fiExportGlobalFun("G_79FFJ_gener__GeneratorOperat", (Ptr) &
G_79FFJ_gener__GeneratorOperat, sizeof(G_79FFJ_gener__GeneratorOperat
));
1154 fiImportGlobal("G_NQYQM_noOperation", pG_NQYQM_noOperation)fiImportGlobalFun("G_NQYQM_noOperation", (Ptr *) &pG_NQYQM_noOperation
);
1155 fiImportGlobal("G_XIPRL_runtime", pG_XIPRL_runtime)fiImportGlobalFun("G_XIPRL_runtime", (Ptr *) &pG_XIPRL_runtime
);
1156 fiImportGlobal("G_KAC1B_rtCacheExplicitMake",fiImportGlobalFun("G_KAC1B_rtCacheExplicitMake", (Ptr *) &
pG_KAC1B_rtCacheExplicitMake)
1157 pG_KAC1B_rtCacheExplicitMake)fiImportGlobalFun("G_KAC1B_rtCacheExplicitMake", (Ptr *) &
pG_KAC1B_rtCacheExplicitMake);
1158 fiImportGlobal("G_759EG_rtCacheCheck", pG_759EG_rtCacheCheck)fiImportGlobalFun("G_759EG_rtCacheCheck", (Ptr *) &pG_759EG_rtCacheCheck
);
1159 fiImportGlobal("G_LD0B5_domainHash_BANG_", pG_LD0B5_domainHash_BANG_)fiImportGlobalFun("G_LD0B5_domainHash_BANG_", (Ptr *) &pG_LD0B5_domainHash_BANG_
);
1160 fiImportGlobal("G_8AMPD_rtSingleParamNameFn",fiImportGlobalFun("G_8AMPD_rtSingleParamNameFn", (Ptr *) &
pG_8AMPD_rtSingleParamNameFn)
1161 pG_8AMPD_rtSingleParamNameFn)fiImportGlobalFun("G_8AMPD_rtSingleParamNameFn", (Ptr *) &
pG_8AMPD_rtSingleParamNameFn);
1162 fiImportGlobal("G_CSVBL_domainAddNameFn_BANG_",fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) &
pG_CSVBL_domainAddNameFn_BANG_)
1163 pG_CSVBL_domainAddNameFn_BANG_)fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) &
pG_CSVBL_domainAddNameFn_BANG_);
1164 fiImportGlobal("G_XS55O_domainAddHash_BANG_",fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) &
pG_XS55O_domainAddHash_BANG_)
1165 pG_XS55O_domainAddHash_BANG_)fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) &
pG_XS55O_domainAddHash_BANG_);
1166 fiImportGlobal("G_PA5R2_domainAddExports_BANG_",fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) &
pG_PA5R2_domainAddExports)
1167 pG_PA5R2_domainAddExports)fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) &
pG_PA5R2_domainAddExports);
1168 fiImportGlobal("G_6L1ZC_domainMake", pG_6L1ZC_domainMake)fiImportGlobalFun("G_6L1ZC_domainMake", (Ptr *) &pG_6L1ZC_domainMake
);
1169 fiImportGlobal("G_PV28S_rtCacheAdd", pG_PV28S_rtCacheAdd)fiImportGlobalFun("G_PV28S_rtCacheAdd", (Ptr *) &pG_PV28S_rtCacheAdd
);
1170 fiImportGlobal("G_822GM_rtAddStrings", pG_822GM_rtAddStrings)fiImportGlobalFun("G_822GM_rtAddStrings", (Ptr *) &pG_822GM_rtAddStrings
);
1171 if (fiFileInitializer) {
1172 fiFileInitializer("rtexns");
1173 fiFileInitializer("runtime");
1174 }
1175 else {
1176 INIT__0_rtexns();
1177 INIT__0_runtime();
1178 }
1179 /* "---------------------------" */
1180 return 0L;
1181}
1182
1183FiClos G_79FFJ_gener__GeneratorOperat;
1184
1185static struct _FiClos tmpClos0_gener = {
1186 0L,
1187 (FiProg) &tmp0_gener
1188};
1189FiClos G_MUMWI_gener = &tmpClos0_gener;