Bug Summary

File:lib/libfoamlib/al/opsys.c
Warning:line 520, 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 opsys.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/opsys.c
1/*
2 * C code generated by Aldor from file "opsys.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 FiSInt X1_nsize;
21 FiWord X2_values;
22};
23struct Fmt6 {
24 FiClos X0_done_QMARK_;
25 FiClos X1_step_BANG_;
26 FiClos X2_value;
27 FiClos X3_bound;
28};
29struct Fmt7 {
30 FiWord X0_arguments;
31 FiWord X1_command;
32 FiBool X2;
33 FiClos X3;
34 FiBool X4;
35 FiSInt X5;
36 FiWord X6;
37 FiWord X7_i;
38 FiEnv X8_13;
39};
40struct Fmt8 {
41 FiPtr X0_empty;
42};
43struct Fmt9 {
44 FiClos X0_getter;
45 FiBool X1_flag;
46 FiClos X2_self;
47};
48struct Fmt10 {
49 FiWord X0_MachineInteger;
50 FiWord X1_Pointer;
51 FiClos X2_Segment;
52 FiClos X3_generator;
53 FiWord X4_dom;
54 FiClos X5_nil;
55 FiWord X6_dom;
56 FiBool X7;
57 FiBool X8;
58 FiBool X9;
59};
60struct Fmt11 {
61 FiWord X0_size;
62 FiWord X1_nvalues;
63 FiWord X2_values;
64};
65struct Fmt12 {
66 FiClos X0_done_QMARK_;
67 FiClos X1_step_BANG_;
68 FiClos X2_value;
69 FiClos X3_bound;
70};
71struct Fmt13 {
72 FiWord X0_s;
73 FiWord X1_b;
74 FiWord X2_a;
75 FiBool X3;
76 FiSInt X4;
77 FiWord X5;
78};
79struct Fmt14 {
80 FiWord X0_open_QMARK_;
81 FiWord X1_low;
82 FiWord X2_high;
83 FiWord X3_step;
84};
85struct Fmt15 {
86 FiPtr X0_empty;
87};
88static FiProg C0_opsys;
89static void CF0_opsys(FiEnv e1);
90static FiProg C1_addLevel0;
91static FiClos CF1_addLevel0(FiEnv e1, FiWord P0_domain);
92static FiProg C2_addLevel1;
93static FiWord CF2_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
94static FiProg C3_generBaseFn;
95static void CF3_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos* R3);
96static FiProg C4_generStepper;
97static void CF4_generStepper(FiEnv e1);
98static FiProg C5_generDone_QMARK_;
99static FiBool CF5_generDone_QMARK_(FiEnv e1);
100static FiProg C6_generValue;
101static FiWord CF6_generValue(FiEnv e1);
102static FiProg C7_generBound;
103static FiSInt CF7_generBound(FiEnv e1);
104static FiProg C8_addLevel0;
105static FiClos CF8_addLevel0(FiEnv e1, FiWord P0_domain);
106static FiProg C9_addLevel1;
107static FiWord CF9_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
108static FiProg C10_lazyFnGetter;
109static FiClos CF10_lazyFnGetter(FiEnv e1, FiWord P0_init);
110static FiProg C11_lazyGetter;
111static FiClos CF11_lazyGetter(FiEnv e1, FiWord P0_a);
112static FiProg C12_lazyGetter2;
113static void CF12_lazyGetter2(FiEnv e1);
114static FiProg C13_pointer_MINUS_init;
115static FiWord CF13_pointer_MINUS_init(FiEnv e1, FiSInt P0_idx);
116static FiProg C14_segment_MINUS_init;
117static FiWord CF14_segment_MINUS_init(FiEnv e1, FiSInt P0_idx);
118static FiProg C15_sinteger_MINUS_init;
119static FiWord CF15_sinteger_MINUS_init(FiEnv e1, FiSInt P0_idx);
120static FiProg C16_generBound;
121static FiSInt CF16_generBound(FiEnv e1);
122extern FiClos G_LAL6Q_opsys;
123static FiClos *pG_NQYQM_noOperation;
124extern FiWord G_FKWV6_opsys__StandardIO__247;
125extern FiWord G_HQC13_opsys__CommandLine__43;
126static FiClos *pG_XIPRL_runtime;
127static FiClos *pG_Z2868_rtConstNameFn;
128static FiClos *pG_CSVBL_domainAddNameFn_BANG_;
129static FiClos *pG_XS55O_domainAddHash_BANG_;
130extern FiWord mainArgc;
131extern FiWord mainArgv;
132static FiClos *pG_PA5R2_domainAddExports;
133static FiClos *pG_KK8CX_rtLazyDomFrInit;
134static FiClos *pG_RSHLY_rtDelayedInit_BANG_;
135static FiClos *pG_ZZZKG_stdGetWordRetWord0;
136static FiWord *pG_M8YLI_sinteger__MachineInte;
137static FiClos *pG_QRAZA_rtDelayedGetExport;
138static FiClos *pG_RPY7R_segment__Segment__100;
139static FiClos *pG_H8G3S_segment__ClosedSegmen;
140static FiClos *pG_6L1ZC_domainMake;
141extern FiWord stdinFile();
142extern FiWord stdoutFile();
143extern FiWord stderrFile();
144static FiWord *pG_ZB66L_pointer__Pointer__476;
145static FiClos *pG_MNZVJ_stdGetRetWord0;
146static FiClos *pG_822GM_rtAddStrings;
147static FiClos *pG_4PKVP_pointer;
148static FiClos *pG_WVJG4_segment;
149static FiClos *pG_HAQ5R_sinteger;
150
151
152
153static void
154CF0_opsys(FiEnv e1)
155{
156 FiWord *T3, *T4, T7;
157 PFmt5 T5, T6;
158 FiClos T0, T1, T2;
159 PFmt10 l0;
160 FiEnv e0;
161 l0 = fi0New(struct Fmt10 , CENSUS_EnvLevel)((struct Fmt10 *) fi0Alloc(sizeof(struct Fmt10), (19)));
162 e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
163 fiCCall0(void, (*pG_XIPRL_runtime))((*((void (*)())((*pG_XIPRL_runtime))->prog->fun))(((*pG_XIPRL_runtime
))->env));
164 G_LAL6Q_opsys = (FiClos) (*pG_NQYQM_noOperation);
165 T0 = fiClosMake(e0, C15_sinteger_MINUS_init)fiClosMakeFun(e0, (FiProg) (C15_sinteger_MINUS_init));
166 T1 = fiClosMake(e0, C14_segment_MINUS_init)fiClosMakeFun(e0, (FiProg) (C14_segment_MINUS_init));
167 G_HQC13_opsys__CommandLine__43 = fiCCall1(FiWord, (*((*((FiWord (*)())((* pG_6L1ZC_domainMake))->prog->fun)
)(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg
) (C1_addLevel0))))
168 pG_6L1ZC_domainMake), fiClosMake(e0, C1_addLevel0))((*((FiWord (*)())((* pG_6L1ZC_domainMake))->prog->fun)
)(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg
) (C1_addLevel0))));
169 T2 = fiClosMake(e0, C13_pointer_MINUS_init)fiClosMakeFun(e0, (FiProg) (C13_pointer_MINUS_init));
170 G_FKWV6_opsys__StandardIO__247 = fiCCall1(FiWord, (*((*((FiWord (*)())((* pG_6L1ZC_domainMake))->prog->fun)
)(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg
) (C8_addLevel0))))
171 pG_6L1ZC_domainMake), fiClosMake(e0, C8_addLevel0))((*((FiWord (*)())((* pG_6L1ZC_domainMake))->prog->fun)
)(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg
) (C8_addLevel0))));
172 l0->X7 = 0L;
173 l0->X8 = 0L;
174 l0->X9 = 0L;
175 fiARRNEW_Word(T3, FiWord*, 6L)((T3) = (FiWord*) fiArrNew_Word(6L));
176 fiARRNEW_Word(T4, FiWord*, 6L)((T4) = (FiWord*) fiArrNew_Word(6L));
177 T3[0L] = (FiWord) 114383626L;
178 T4[0L] = (FiWord) "stderr";
179 T3[1L] = (FiWord) 715941423L;
180 T4[1L] = (FiWord) "stdin";
181 T3[2L] = (FiWord) 548053438L;
182 T4[2L] = (FiWord) "command";
183 T3[3L] = (FiWord) 678484615L;
184 T4[3L] = (FiWord) "arguments";
185 T3[4L] = (FiWord) 428893919L;
186 T4[4L] = (FiWord) "stdsink";
187 T3[5L] = (FiWord) 113466905L;
188 T4[5L] = (FiWord) "stdout";
189 T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
190 T5->X0_size = 6L;
191 T5->X1_nsize = 6L;
192 T5->X2_values = (FiWord) T3;
193 T6 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
194 T6->X0_size = 6L;
195 T6->X1_nsize = 6L;
196 T6->X2_values = (FiWord) T4;
197 fiCCall2(void, (*pG_822GM_rtAddStrings), (FiWord) T5, (FiWord) T6)((*((void (*)())((*pG_822GM_rtAddStrings))->prog->fun))
(((*pG_822GM_rtAddStrings))->env,(FiWord) T5,(FiWord) T6));
198 l0->X0_MachineInteger = fiCCall2(FiWord, (*((*((FiWord (*)())((* pG_KK8CX_rtLazyDomFrInit))->prog->
fun))(((* pG_KK8CX_rtLazyDomFrInit))->env,T0,0L))
199 pG_KK8CX_rtLazyDomFrInit), T0, 0L)((*((FiWord (*)())((* pG_KK8CX_rtLazyDomFrInit))->prog->
fun))(((* pG_KK8CX_rtLazyDomFrInit))->env,T0,0L));
200 T7 = fiCCall2(FiWord, (*pG_RSHLY_rtDelayedInit_BANG_), T1, 0L)((*((FiWord (*)())((*pG_RSHLY_rtDelayedInit_BANG_))->prog->
fun))(((*pG_RSHLY_rtDelayedInit_BANG_))->env,T1,0L));
201 l0->X2_Segment = fiCCall1(FiClos, (*pG_ZZZKG_stdGetWordRetWord0),((*((FiClos (*)())((*pG_ZZZKG_stdGetWordRetWord0))->prog->
fun))(((*pG_ZZZKG_stdGetWordRetWord0))->env,T7))
202 T7)((*((FiClos (*)())((*pG_ZZZKG_stdGetWordRetWord0))->prog->
fun))(((*pG_ZZZKG_stdGetWordRetWord0))->env,T7));
203 l0->X4_dom = fiCCall1(FiWord, l0->X2_Segment, l0->((*((FiWord (*)())(l0->X2_Segment)->prog->fun))((l0->
X2_Segment)->env,l0-> X0_MachineInteger))
204 X0_MachineInteger)((*((FiWord (*)())(l0->X2_Segment)->prog->fun))((l0->
X2_Segment)->env,l0-> X0_MachineInteger));
205 l0->X3_generator = CF10_lazyFnGetter(e0, (FiWord) fiCCall3(((*((FiWord (*)())((*pG_QRAZA_rtDelayedGetExport))->prog->
fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0->X4_dom,
113320568L,622497990L))
206 FiWord, (*pG_QRAZA_rtDelayedGetExport), l0->X4_dom,((*((FiWord (*)())((*pG_QRAZA_rtDelayedGetExport))->prog->
fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0->X4_dom,
113320568L,622497990L))
207 113320568L, 622497990L)((*((FiWord (*)())((*pG_QRAZA_rtDelayedGetExport))->prog->
fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0->X4_dom,
113320568L,622497990L)));
208 l0->X1_Pointer = fiCCall2(FiWord, (*pG_KK8CX_rtLazyDomFrInit),((*((FiWord (*)())((*pG_KK8CX_rtLazyDomFrInit))->prog->
fun))(((*pG_KK8CX_rtLazyDomFrInit))->env,T2,0L))
209 T2, 0L)((*((FiWord (*)())((*pG_KK8CX_rtLazyDomFrInit))->prog->
fun))(((*pG_KK8CX_rtLazyDomFrInit))->env,T2,0L));
210 l0->X6_dom = l0->X1_Pointer;
211 T7 = fiCCall3(FiWord, (*pG_QRAZA_rtDelayedGetExport), l0->X6_dom,((*((FiWord (*)())((*pG_QRAZA_rtDelayedGetExport))->prog->
fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0->X6_dom,
318525310L,1050822588L))
212 318525310L, 1050822588L)((*((FiWord (*)())((*pG_QRAZA_rtDelayedGetExport))->prog->
fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0->X6_dom,
318525310L,1050822588L));
213 l0->X5_nil = fiCCall1(FiClos, (*pG_MNZVJ_stdGetRetWord0), T7)((*((FiClos (*)())((*pG_MNZVJ_stdGetRetWord0))->prog->fun
))(((*pG_MNZVJ_stdGetRetWord0))->env,T7));
214 return ;
215}
216
217static struct _FiProg tmp0_opsys = {
218 (FiFun) CF0_opsys,
219 0L,
220 0L,
221 0L,
222 0L
223};
224
225
226static FiClos
227CF1_addLevel0(FiEnv e1, FiWord P0_domain)
228{
229 FiWord T0;
230 FiEnv e0;
231 PFmt10 l1;
232 e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
233 l1 = (PFmt10) fiEnvLevel(e1)((FiEnv) (e1)->level);
234 T0 = fiCCall1(FiWord, (*pG_Z2868_rtConstNameFn), "CommandLine")((*((FiWord (*)())((*pG_Z2868_rtConstNameFn))->prog->fun
))(((*pG_Z2868_rtConstNameFn))->env,"CommandLine"));
235 fiCCall2(FiWord, (*pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((*((FiWord (*)())((*pG_CSVBL_domainAddNameFn_BANG_))->prog
->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain
,T0));
236 fiCCall2(FiWord, (*pG_XS55O_domainAddHash_BANG_), P0_domain,((*((FiWord (*)())((*pG_XS55O_domainAddHash_BANG_))->prog->
fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,618363082L
))
237 618363082L)((*((FiWord (*)())((*pG_XS55O_domainAddHash_BANG_))->prog->
fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,618363082L
));
238 return fiClosMake(e0, C2_addLevel1)fiClosMakeFun(e0, (FiProg) (C2_addLevel1));
239}
240
241static struct _FiProg tmp1_addLevel0 = {
242 (FiFun) CF1_addLevel0,
243 0L,
244 0L,
245 0L,
246 0L
247};
248
249
250static FiWord
251CF2_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
252{
253 PFmt11 T23;
254 FiSInt T12, T13, T15, T16, T19, T20, T22;
255 FiPtr *T6, *T14, *T17, *T21;
256 FiWord *T0, *T1, *T2, T7, T18;
257 FiClos T8, T9, T10, T11;
258 PFmt5 T3, T4, T5;
259 PFmt7 l0;
260 FiEnv e2, e0;
261 PFmt10 l2;
262 l0 = fi0New(struct Fmt7 , CENSUS_EnvLevel)((struct Fmt7 *) fi0Alloc(sizeof(struct Fmt7), (19)));
263 e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
264 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
265 l2 = (PFmt10) fiEnvLevel(e2)((FiEnv) (e2)->level);
266 fiARRNEW_Word(T0, FiWord*, 2L)((T0) = (FiWord*) fiArrNew_Word(2L));
267 fiARRNEW_Word(T1, FiWord*, 2L)((T1) = (FiWord*) fiArrNew_Word(2L));
268 fiARRNEW_Word(T2, FiWord*, 2L)((T2) = (FiWord*) fiArrNew_Word(2L));
269 T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
270 T3->X0_size = 2L;
271 T3->X1_nsize = 2L;
272 T3->X2_values = (FiWord) T0;
273 T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
274 T4->X0_size = 2L;
275 T4->X1_nsize = 2L;
276 T4->X2_values = (FiWord) T1;
277 T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
278 T5->X0_size = 2L;
279 T5->X1_nsize = 2L;
280 T5->X2_values = (FiWord) T2;
281 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)
);
282 T6 = (FiPtr*) mainArgv;
283 l0->X1_command = ((FiWord*) T6)[0L];
284 T0[0L] = (FiWord) 548053438L;
285 T1[0L] = (FiWord) 585242861L;
286 T2[0L] = l0->X1_command;
287 l0->X2 = 0L;
288 l0->X5 = 0L;
289 T23 = fi0RecNew(struct Fmt11 , CENSUS_Rec)((struct Fmt11 *) fi0RecAlloc(sizeof(struct Fmt11), ( 5)));
290 T23->X0_size = (FiWord) 0L;
291 T23->X1_nvalues = (FiWord) 0L;
292 T23->X2_values = (FiWord) (FiPtr) fiArrNew_Word(0L);
293 ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* , FiClos* ))
294 fiRawCProg(fiClosMake(e0, C3_generBaseFn))((fiClosMakeFun(e0, (FiProg) (C3_generBaseFn)))->prog->
fun))((fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C3_generBaseFn))
295 C3_generBaseFn)fiClosMakeFun(e0, (FiProg) (C3_generBaseFn)))->env, &T8, &T9, &T10, &T11);
296L0: fiCCall0(void, T9)((*((void (*)())(T9)->prog->fun))((T9)->env));
297 if ((FiBool) fiCCall0(FiWord, T8)((*((FiWord (*)())(T8)->prog->fun))((T8)->env))) goto L1;
298 T7 = fiCCall0(FiWord, T10)((*((FiWord (*)())(T10)->prog->fun))((T10)->env));
299 if ((FiSInt) T23->X1_nvalues == (FiSInt) T23->X0_size) goto L2;
300L3: T23->X1_nvalues = (FiWord) ((FiSInt) T23->X1_nvalues + 1L);
301 T14 = (FiPtr*) T23->X2_values;
302 T13 = (FiSInt) T23->X1_nvalues - 1L;
303 ((FiWord*) T14)[T13] = T7;
304 goto L0;
305L2: fiSINT_QUO(T12, FiSInt, (FiSInt) T23->X0_size, 2L)((T12) = (FiSInt) (((FiSInt) T23->X0_size)/(2L)));
306 T16 = (FiSInt) T23->X0_size + T12;
307 if (T16 < 4L) goto L4;
308 T15 = T16;
309L5: T21 = (FiPtr*) T23->X2_values;
310 T22 = (FiSInt) T23->X0_size;
311 if (T15 <= T22) goto L6;
312 T17 = (FiPtr*) (FiPtr) fiArrNew_Word(T15);
313 T19 = 1L;
314L8: if (T19 <= T22) goto L9;
315 fiFree((FiPtr) T21);
316 T18 = (FiWord) T17;
317L7: T23->X2_values = T18;
318 T23->X0_size = (FiWord) T15;
319 goto L3;
320L9: T20 = T19 - 1L;
321 ((FiWord*) T17)[T20] = ((FiWord*) T21)[T20];
322 T19 = T19 + 1L;
323 goto L8;
324L6: T18 = (FiWord) T21;
325 goto L7;
326L4: T15 = 4L;
327 goto L5;
328L1: l0->X0_arguments = (FiWord) T23;
329 T0[1L] = (FiWord) 678484615L;
330 T1[1L] = (FiWord) 885635740L;
331 T2[1L] = l0->X0_arguments;
332 return P0_domain;
333}
334
335static struct _FiProg tmp2_addLevel1 = {
336 (FiFun) CF2_addLevel1,
337 0L,
338 0L,
339 0L,
340 0L
341};
342
343
344static void
345CF3_generBaseFn(FiEnv e1, FiClos* R0, FiClos* R1, FiClos* R2, FiClos*
346 R3)
347{
348 FiEnv e3, e2, e0;
349 PFmt7 l1;
350 PFmt10 l3;
351 e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
352 l1 = (PFmt7) fiEnvLevel(e1)((FiEnv) (e1)->level);
353 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
354 e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
355 l3 = (PFmt10) fiEnvLevel(e3)((FiEnv) (e3)->level);
356 *R0 = fiClosMake(e0, C5_generDone_QMARK_)fiClosMakeFun(e0, (FiProg) (C5_generDone_QMARK_));
357 *R1 = fiClosMake(e0, C4_generStepper)fiClosMakeFun(e0, (FiProg) (C4_generStepper));
358 *R2 = fiClosMake(e0, C6_generValue)fiClosMakeFun(e0, (FiProg) (C6_generValue));
359 *R3 = fiClosMake(e0, C7_generBound)fiClosMakeFun(e0, (FiProg) (C7_generBound));
360 return ;
361}
362
363static struct _FiProg tmp3_generBaseFn = {
364 (FiFun) CF3_generBaseFn,
365 0L,
366 0L,
367 0L,
368 0L
369};
370
371
372static void
373CF4_generStepper(FiEnv e1)
374{
375 PFmt14 T4, T7, T8;
376 FiWord T0, T5, T6;
377 FiSInt T3;
378 FiPtr *T2;
379 FiClos T1;
380 PFmt7 l2;
381 FiEnv e0, e4, e3, e2;
382 PFmt10 l4;
383 e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
384 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
385 l2 = (PFmt7) fiEnvLevel(e2)((FiEnv) (e2)->level);
386 e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
387 e4 = fiEnvNext(e3)((FiEnv) (e3)->next);
388 l4 = (PFmt10) fiEnvLevel(e4)((FiEnv) (e4)->level);
389 switch (l2->X5) {
390 case 0L: goto L0;
391 case 1L: goto L1;
392 }
393L0: l2->X4 = 0L;
394 fiEnvEnsure(l4->X3_generator->env)fiEnvEnsureFun(l4->X3_generator->env);
395 l2->X8_13 = fiEnvPush(fi0New(struct Fmt13 , CENSUS_EnvLevel),fiEnvPushFun((FiPtr) (((struct Fmt13 *) fi0Alloc(sizeof(struct
Fmt13), (19)))), l4->X3_generator->env)
396 l4->X3_generator->env)fiEnvPushFun((FiPtr) (((struct Fmt13 *) fi0Alloc(sizeof(struct
Fmt13), (19)))), l4->X3_generator->env);
397 T5 = (FiWord) mainArgc;
398 T4 = fi0RecNew(struct Fmt14 , CENSUS_Rec)((struct Fmt14 *) fi0RecAlloc(sizeof(struct Fmt14), ( 5)));
399 T4->X0_open_QMARK_ = (FiWord) 0L;
400 T4->X1_low = (FiWord) 2L;
401 T4->X2_high = T5;
402 T4->X3_step = (FiWord) 1L;
403 ((PFmt13) fiEnvLevel0(l2->X8_13)(((FiEnv)(l2->X8_13))->level))->X0_s = (FiWord) T4;
404 ((PFmt13) fiEnvLevel0(l2->X8_13)(((FiEnv)(l2->X8_13))->level))->X4 = 0L;
405 fiEnvEnsure(l2->X8_13)fiEnvEnsureFun(l2->X8_13);
406 T1 = fiClosMake(e0, C16_generBound)fiClosMakeFun(e0, (FiProg) (C16_generBound));
407 l2->X2 = 1L;
408 l2->X3 = T1;
409L1: switch (((PFmt13) fiEnvLevel0(l2->X8_13)(((FiEnv)(l2->X8_13))->level))->X4) {
410 case 0L: goto L3;
411 case 1L: goto L5;
412 }
413L3: ((PFmt13) fiEnvLevel0(l2->X8_13)(((FiEnv)(l2->X8_13))->level))->X3 = 0L;
414 T8 = (PFmt14) ((PFmt13) fiEnvLevel0(l2->X8_13)(((FiEnv)(l2->X8_13))->level))->X0_s;
415 ((PFmt13) fiEnvLevel0(l2->X8_13)(((FiEnv)(l2->X8_13))->level))->X2_a = T8->X1_low;
416 T7 = (PFmt14) ((PFmt13) fiEnvLevel0(l2->X8_13)(((FiEnv)(l2->X8_13))->level))->X0_s;
417 ((PFmt13) fiEnvLevel0(l2->X8_13)(((FiEnv)(l2->X8_13))->level))->X1_b = T7->X2_high;
418L4: if ((FiSInt) ((PFmt13) fiEnvLevel0(l2->X8_13)(((FiEnv)(l2->X8_13))->level))->X2_a <= (FiSInt) ((
419 PFmt13) fiEnvLevel0(l2->X8_13)(((FiEnv)(l2->X8_13))->level))->X1_b) goto L6;
420 ((PFmt13) fiEnvLevel0(l2->X8_13)(((FiEnv)(l2->X8_13))->level))->X3 = 1L;
421L7: if ((FiBool) ((PFmt13) fiEnvLevel0(l2->X8_13)(((FiEnv)(l2->X8_13))->level))->X3) goto L2;
422 l2->X7_i = ((PFmt13) fiEnvLevel0(l2->X8_13)(((FiEnv)(l2->X8_13))->level))->X5;
423 l2->X5 = 1L;
424 T2 = (FiPtr*) mainArgv;
425 T3 = (FiSInt) l2->X7_i;
426 T0 = ((FiWord*) T2)[T3 - 1L];
427 l2->X6 = T0;
428 return ;
429L2: l2->X4 = 1L;
430 return ;
431L6: ((PFmt13) fiEnvLevel0(l2->X8_13)(((FiEnv)(l2->X8_13))->level))->X4 = 1L;
432 T6 = ((PFmt13) fiEnvLevel0(l2->X8_13)(((FiEnv)(l2->X8_13))->level))->X2_a;
433 ((PFmt13) fiEnvLevel0(l2->X8_13)(((FiEnv)(l2->X8_13))->level))->X5 = T6;
434 goto L7;
435L5: ((PFmt13) fiEnvLevel0(l2->X8_13)(((FiEnv)(l2->X8_13))->level))->X2_a = (FiWord) ((FiSInt) ((
436 PFmt13) fiEnvLevel0(l2->X8_13)(((FiEnv)(l2->X8_13))->level))->X2_a + 1L);
437 goto L4;
438}
439
440static struct _FiProg tmp4_generStepper = {
441 (FiFun) CF4_generStepper,
442 0L,
443 0L,
444 0L,
445 0L
446};
447
448
449static FiBool
450CF5_generDone_QMARK_(FiEnv e1)
451{
452 PFmt7 l2;
453 FiEnv e2;
454 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
455 l2 = (PFmt7) fiEnvLevel(e2)((FiEnv) (e2)->level);
456 return l2->X4;
457}
458
459static struct _FiProg tmp5_generDone_QMARK_ = {
460 (FiFun) CF5_generDone_QMARK_,
461 0L,
462 0L,
463 0L,
464 0L
465};
466
467
468static FiWord
469CF6_generValue(FiEnv e1)
470{
471 PFmt7 l2;
472 FiEnv e2;
473 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
474 l2 = (PFmt7) fiEnvLevel(e2)((FiEnv) (e2)->level);
475 return l2->X6;
476}
477
478static struct _FiProg tmp6_generValue = {
479 (FiFun) CF6_generValue,
480 0L,
481 0L,
482 0L,
483 0L
484};
485
486
487static FiSInt
488CF7_generBound(FiEnv e1)
489{
490 FiSInt T0, T1;
491 PFmt7 l2;
492 FiEnv e2;
493 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
494 l2 = (PFmt7) fiEnvLevel(e2)((FiEnv) (e2)->level);
495 if (l2->X2) goto L3;
496L0: T0 = -1L;
497L1: return T0;
498L3: T1 = fiCCall0(FiSInt, l2->X3)((*((FiSInt (*)())(l2->X3)->prog->fun))((l2->X3)->
env));
499 if (T1 < 0L) goto L0;
500 T0 = T1;
501 goto L1;
502}
503
504static struct _FiProg tmp7_generBound = {
505 (FiFun) CF7_generBound,
506 0L,
507 0L,
508 0L,
509 0L
510};
511
512
513static FiClos
514CF8_addLevel0(FiEnv e1, FiWord P0_domain)
515{
516 FiWord T0;
517 FiEnv e0;
518 PFmt10 l1;
519 e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
520 l1 = (PFmt10) fiEnvLevel(e1)((FiEnv) (e1)->level);
Value stored to 'l1' is never read
521 T0 = fiCCall1(FiWord, (*pG_Z2868_rtConstNameFn), "StandardIO")((*((FiWord (*)())((*pG_Z2868_rtConstNameFn))->prog->fun
))(((*pG_Z2868_rtConstNameFn))->env,"StandardIO"));
522 fiCCall2(FiWord, (*pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((*((FiWord (*)())((*pG_CSVBL_domainAddNameFn_BANG_))->prog
->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain
,T0));
523 fiCCall2(FiWord, (*pG_XS55O_domainAddHash_BANG_), P0_domain,((*((FiWord (*)())((*pG_XS55O_domainAddHash_BANG_))->prog->
fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,171594723L
))
524 171594723L)((*((FiWord (*)())((*pG_XS55O_domainAddHash_BANG_))->prog->
fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,171594723L
));
525 return fiClosMake(e0, C9_addLevel1)fiClosMakeFun(e0, (FiProg) (C9_addLevel1));
526}
527
528static struct _FiProg tmp8_addLevel0 = {
529 (FiFun) CF8_addLevel0,
530 0L,
531 0L,
532 0L,
533 0L
534};
535
536
537static FiWord
538CF9_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
539{
540 FiWord *T0, *T1, *T2, T6_stdsink, T7_stderr, T8_stdout, T9_stdin;
541 PFmt5 T3, T4, T5;
542 PFmt10 l2;
543 FiEnv e2;
544 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
545 l2 = (PFmt10) fiEnvLevel(e2)((FiEnv) (e2)->level);
546 fiARRNEW_Word(T0, FiWord*, 4L)((T0) = (FiWord*) fiArrNew_Word(4L));
547 fiARRNEW_Word(T1, FiWord*, 4L)((T1) = (FiWord*) fiArrNew_Word(4L));
548 fiARRNEW_Word(T2, FiWord*, 4L)((T2) = (FiWord*) fiArrNew_Word(4L));
549 T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
550 T3->X0_size = 4L;
551 T3->X1_nsize = 4L;
552 T3->X2_values = (FiWord) T0;
553 T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
554 T4->X0_size = 4L;
555 T4->X1_nsize = 4L;
556 T4->X2_values = (FiWord) T1;
557 T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
558 T5->X0_size = 4L;
559 T5->X1_nsize = 4L;
560 T5->X2_values = (FiWord) T2;
561 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)
);
562 T9_stdin = stdinFile();
563 T0[0L] = (FiWord) 715941423L;
564 T1[0L] = (FiWord) 915910317L;
565 T2[0L] = T9_stdin;
566 T8_stdout = stdoutFile();
567 T0[1L] = (FiWord) 113466905L;
568 T1[1L] = (FiWord) 842010775L;
569 T2[1L] = T8_stdout;
570 T7_stderr = stderrFile();
571 T0[2L] = (FiWord) 114383626L;
572 T1[2L] = (FiWord) 842010775L;
573 T2[2L] = T7_stderr;
574 T6_stdsink = (FiWord) l2->X5_nil;
575 T0[3L] = (FiWord) 428893919L;
576 T1[3L] = (FiWord) 842010775L;
577 T2[3L] = T6_stdsink;
578 return P0_domain;
579}
580
581static struct _FiProg tmp9_addLevel1 = {
582 (FiFun) CF9_addLevel1,
583 0L,
584 0L,
585 0L,
586 0L
587};
588
589
590static FiClos
591CF10_lazyFnGetter(FiEnv e1, FiWord P0_init)
592{
593 PFmt9 l0;
594 FiEnv e0;
595 l0 = fi0New(struct Fmt9 , CENSUS_EnvLevel)((struct Fmt9 *) fi0Alloc(sizeof(struct Fmt9), (19)));
596 e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
597 l0->X0_getter = (FiClos) P0_init;
598 l0->X1_flag = 0L;
599 l0->X2_self = fiClosMake(e0, C11_lazyGetter)fiClosMakeFun(e0, (FiProg) (C11_lazyGetter));
600 fiEnvInfo(e0)(((FiEnv) (e0))->info) = (FiWord) fiClosMake(e0, C12_lazyGetter2)fiClosMakeFun(e0, (FiProg) (C12_lazyGetter2));
601 return l0->X2_self;
602}
603
604static struct _FiProg tmp10_lazyFnGetter = {
605 (FiFun) CF10_lazyFnGetter,
606 0L,
607 0L,
608 0L,
609 0L
610};
611
612
613static FiClos
614CF11_lazyGetter(FiEnv e1, FiWord P0_a)
615{
616 FiClos T0;
617 PFmt9 l1;
618 l1 = (PFmt9) fiEnvLevel(e1)((FiEnv) (e1)->level);
619 if (l1->X1_flag) goto L0;
620 T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((*((FiWord (*)())(l1->X0_getter)->prog->fun))((l1->
X0_getter)->env));
621 l1->X2_self->env = T0->env;
622 l1->X2_self->prog = T0->prog;
623 l1->X1_flag = 1L;
624L0: return fiCCall1(FiClos, l1->X2_self, P0_a)((*((FiClos (*)())(l1->X2_self)->prog->fun))((l1->
X2_self)->env,P0_a));
625}
626
627static struct _FiProg tmp11_lazyGetter = {
628 (FiFun) CF11_lazyGetter,
629 0L,
630 0L,
631 0L,
632 0L
633};
634
635
636static void
637CF12_lazyGetter2(FiEnv e1)
638{
639 FiClos T0;
640 PFmt9 l1;
641 l1 = (PFmt9) fiEnvLevel(e1)((FiEnv) (e1)->level);
642 if (l1->X1_flag) goto L0;
643 T0 = (FiClos) fiCCall0(FiWord, l1->X0_getter)((*((FiWord (*)())(l1->X0_getter)->prog->fun))((l1->
X0_getter)->env));
644 l1->X1_flag = 1L;
645 l1->X2_self->env = T0->env;
646 l1->X2_self->prog = T0->prog;
647 fiEnvInfo(e1)(((FiEnv) (e1))->info) = (FiWord) fiNil((Ptr) 0);
648L0: return ;
649}
650
651static struct _FiProg tmp12_lazyGetter2 = {
652 (FiFun) CF12_lazyGetter2,
653 0L,
654 0L,
655 0L,
656 0L
657};
658
659
660static FiWord
661CF13_pointer_MINUS_init(FiEnv e1, FiSInt P0_idx)
662{
663 PFmt10 l1;
664 l1 = (PFmt10) fiEnvLevel(e1)((FiEnv) (e1)->level);
665 if (l1->X7) goto L0;
666 l1->X7 = 1L;
667 fiCCall0(void, (*pG_4PKVP_pointer))((*((void (*)())((*pG_4PKVP_pointer))->prog->fun))(((*pG_4PKVP_pointer
))->env));
668L0: return (FiWord) (*pG_ZB66L_pointer__Pointer__476);
669}
670
671static struct _FiProg tmp13_pointer_MINUS_init = {
672 (FiFun) CF13_pointer_MINUS_init,
673 0L,
674 0L,
675 0L,
676 0L
677};
678
679
680static FiWord
681CF14_segment_MINUS_init(FiEnv e1, FiSInt P0_idx)
682{
683 PFmt10 l1;
684 l1 = (PFmt10) fiEnvLevel(e1)((FiEnv) (e1)->level);
685 if (l1->X8) goto L0;
686 l1->X8 = 1L;
687 fiCCall0(void, (*pG_WVJG4_segment))((*((void (*)())((*pG_WVJG4_segment))->prog->fun))(((*pG_WVJG4_segment
))->env));
688L0: if (P0_idx != 1L) goto L1;
689 return (FiWord) (*pG_H8G3S_segment__ClosedSegmen);
690L1: return (FiWord) (*pG_RPY7R_segment__Segment__100);
691}
692
693static struct _FiProg tmp14_segment_MINUS_init = {
694 (FiFun) CF14_segment_MINUS_init,
695 0L,
696 0L,
697 0L,
698 0L
699};
700
701
702static FiWord
703CF15_sinteger_MINUS_init(FiEnv e1, FiSInt P0_idx)
704{
705 PFmt10 l1;
706 l1 = (PFmt10) fiEnvLevel(e1)((FiEnv) (e1)->level);
707 if (l1->X9) goto L0;
708 l1->X9 = 1L;
709 fiCCall0(void, (*pG_HAQ5R_sinteger))((*((void (*)())((*pG_HAQ5R_sinteger))->prog->fun))(((*
pG_HAQ5R_sinteger))->env));
710L0: return (FiWord) (*pG_M8YLI_sinteger__MachineInte);
711}
712
713static struct _FiProg tmp15_sinteger_MINUS_init = {
714 (FiFun) CF15_sinteger_MINUS_init,
715 0L,
716 0L,
717 0L,
718 0L
719};
720
721
722static FiSInt
723CF16_generBound(FiEnv e1)
724{
725 return -1L;
726}
727
728static struct _FiProg tmp16_generBound = {
729 (FiFun) CF16_generBound,
730 0L,
731 0L,
732 0L,
733 0L
734};
735
736extern int
737INIT__0_opsys()
738{
739
740 extern int INIT__0_rtexns();
741 extern int INIT__0_sinteger();
742 extern int INIT__0_segment();
743 extern int INIT__0_pointer();
744 extern int INIT__0_runtime();
745 static int initialized = 0;
746 if (initialized)
747 return 0L;
748 else
749 initialized = 1;
750 C1_addLevel0 = &tmp1_addLevel0;
751 C2_addLevel1 = &tmp2_addLevel1;
752 C3_generBaseFn = &tmp3_generBaseFn;
753 C4_generStepper = &tmp4_generStepper;
754 C5_generDone_QMARK_ = &tmp5_generDone_QMARK_;
755 C6_generValue = &tmp6_generValue;
756 C7_generBound = &tmp7_generBound;
757 C8_addLevel0 = &tmp8_addLevel0;
758 C9_addLevel1 = &tmp9_addLevel1;
759 C10_lazyFnGetter = &tmp10_lazyFnGetter;
760 C11_lazyGetter = &tmp11_lazyGetter;
761 C12_lazyGetter2 = &tmp12_lazyGetter2;
762 C13_pointer_MINUS_init = &tmp13_pointer_MINUS_init;
763 C14_segment_MINUS_init = &tmp14_segment_MINUS_init;
764 C15_sinteger_MINUS_init = &tmp15_sinteger_MINUS_init;
765 C16_generBound = &tmp16_generBound;
766 C0_opsys = &tmp0_opsys;
767 fiExportGlobal("G_LAL6Q_opsys", G_LAL6Q_opsys)fiExportGlobalFun("G_LAL6Q_opsys", (Ptr) &G_LAL6Q_opsys, sizeof
(G_LAL6Q_opsys));
768 fiExportGlobal("G_FKWV6_opsys__StandardIO__247",fiExportGlobalFun("G_FKWV6_opsys__StandardIO__247", (Ptr) &
G_FKWV6_opsys__StandardIO__247, sizeof(G_FKWV6_opsys__StandardIO__247
))
769 G_FKWV6_opsys__StandardIO__247)fiExportGlobalFun("G_FKWV6_opsys__StandardIO__247", (Ptr) &
G_FKWV6_opsys__StandardIO__247, sizeof(G_FKWV6_opsys__StandardIO__247
));
770 fiExportGlobal("G_HQC13_opsys__CommandLine__43",fiExportGlobalFun("G_HQC13_opsys__CommandLine__43", (Ptr) &
G_HQC13_opsys__CommandLine__43, sizeof(G_HQC13_opsys__CommandLine__43
))
771 G_HQC13_opsys__CommandLine__43)fiExportGlobalFun("G_HQC13_opsys__CommandLine__43", (Ptr) &
G_HQC13_opsys__CommandLine__43, sizeof(G_HQC13_opsys__CommandLine__43
));
772 fiImportGlobal("G_NQYQM_noOperation", pG_NQYQM_noOperation)fiImportGlobalFun("G_NQYQM_noOperation", (Ptr *) &pG_NQYQM_noOperation
);
773 fiImportGlobal("G_XIPRL_runtime", pG_XIPRL_runtime)fiImportGlobalFun("G_XIPRL_runtime", (Ptr *) &pG_XIPRL_runtime
);
774 fiImportGlobal("G_Z2868_rtConstNameFn", pG_Z2868_rtConstNameFn)fiImportGlobalFun("G_Z2868_rtConstNameFn", (Ptr *) &pG_Z2868_rtConstNameFn
);
775 fiImportGlobal("G_CSVBL_domainAddNameFn_BANG_",fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) &
pG_CSVBL_domainAddNameFn_BANG_)
776 pG_CSVBL_domainAddNameFn_BANG_)fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) &
pG_CSVBL_domainAddNameFn_BANG_);
777 fiImportGlobal("G_XS55O_domainAddHash_BANG_",fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) &
pG_XS55O_domainAddHash_BANG_)
778 pG_XS55O_domainAddHash_BANG_)fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) &
pG_XS55O_domainAddHash_BANG_);
779 fiImportGlobal("G_PA5R2_domainAddExports_BANG_",fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) &
pG_PA5R2_domainAddExports)
780 pG_PA5R2_domainAddExports)fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) &
pG_PA5R2_domainAddExports);
781 fiImportGlobal("G_KK8CX_rtLazyDomFrInit", pG_KK8CX_rtLazyDomFrInit)fiImportGlobalFun("G_KK8CX_rtLazyDomFrInit", (Ptr *) &pG_KK8CX_rtLazyDomFrInit
);
782 fiImportGlobal("G_RSHLY_rtDelayedInit_BANG_",fiImportGlobalFun("G_RSHLY_rtDelayedInit_BANG_", (Ptr *) &
pG_RSHLY_rtDelayedInit_BANG_)
783 pG_RSHLY_rtDelayedInit_BANG_)fiImportGlobalFun("G_RSHLY_rtDelayedInit_BANG_", (Ptr *) &
pG_RSHLY_rtDelayedInit_BANG_);
784 fiImportGlobal("G_ZZZKG_stdGetWordRetWord0",fiImportGlobalFun("G_ZZZKG_stdGetWordRetWord0", (Ptr *) &
pG_ZZZKG_stdGetWordRetWord0)
785 pG_ZZZKG_stdGetWordRetWord0)fiImportGlobalFun("G_ZZZKG_stdGetWordRetWord0", (Ptr *) &
pG_ZZZKG_stdGetWordRetWord0);
786 fiImportGlobal("G_M8YLI_sinteger__MachineInteg",fiImportGlobalFun("G_M8YLI_sinteger__MachineInteg", (Ptr *) &
pG_M8YLI_sinteger__MachineInte)
787 pG_M8YLI_sinteger__MachineInte)fiImportGlobalFun("G_M8YLI_sinteger__MachineInteg", (Ptr *) &
pG_M8YLI_sinteger__MachineInte);
788 fiImportGlobal("G_QRAZA_rtDelayedGetExport",fiImportGlobalFun("G_QRAZA_rtDelayedGetExport", (Ptr *) &
pG_QRAZA_rtDelayedGetExport)
789 pG_QRAZA_rtDelayedGetExport)fiImportGlobalFun("G_QRAZA_rtDelayedGetExport", (Ptr *) &
pG_QRAZA_rtDelayedGetExport);
790 fiImportGlobal("G_RPY7R_segment__Segment__1001",fiImportGlobalFun("G_RPY7R_segment__Segment__1001", (Ptr *) &
pG_RPY7R_segment__Segment__100)
791 pG_RPY7R_segment__Segment__100)fiImportGlobalFun("G_RPY7R_segment__Segment__1001", (Ptr *) &
pG_RPY7R_segment__Segment__100);
792 fiImportGlobal("G_H8G3S_segment__ClosedSegment",fiImportGlobalFun("G_H8G3S_segment__ClosedSegment", (Ptr *) &
pG_H8G3S_segment__ClosedSegmen)
793 pG_H8G3S_segment__ClosedSegmen)fiImportGlobalFun("G_H8G3S_segment__ClosedSegment", (Ptr *) &
pG_H8G3S_segment__ClosedSegmen);
794 fiImportGlobal("G_6L1ZC_domainMake", pG_6L1ZC_domainMake)fiImportGlobalFun("G_6L1ZC_domainMake", (Ptr *) &pG_6L1ZC_domainMake
);
795 fiImportGlobal("G_ZB66L_pointer__Pointer__4769",fiImportGlobalFun("G_ZB66L_pointer__Pointer__4769", (Ptr *) &
pG_ZB66L_pointer__Pointer__476)
796 pG_ZB66L_pointer__Pointer__476)fiImportGlobalFun("G_ZB66L_pointer__Pointer__4769", (Ptr *) &
pG_ZB66L_pointer__Pointer__476);
797 fiImportGlobal("G_MNZVJ_stdGetRetWord0", pG_MNZVJ_stdGetRetWord0)fiImportGlobalFun("G_MNZVJ_stdGetRetWord0", (Ptr *) &pG_MNZVJ_stdGetRetWord0
);
798 fiImportGlobal("G_822GM_rtAddStrings", pG_822GM_rtAddStrings)fiImportGlobalFun("G_822GM_rtAddStrings", (Ptr *) &pG_822GM_rtAddStrings
);
799 fiImportGlobal("G_4PKVP_pointer", pG_4PKVP_pointer)fiImportGlobalFun("G_4PKVP_pointer", (Ptr *) &pG_4PKVP_pointer
);
800 fiImportGlobal("G_WVJG4_segment", pG_WVJG4_segment)fiImportGlobalFun("G_WVJG4_segment", (Ptr *) &pG_WVJG4_segment
);
801 fiImportGlobal("G_HAQ5R_sinteger", pG_HAQ5R_sinteger)fiImportGlobalFun("G_HAQ5R_sinteger", (Ptr *) &pG_HAQ5R_sinteger
);
802 if (fiFileInitializer) {
803 fiFileInitializer("rtexns");
804 fiFileInitializer("sinteger");
805 fiFileInitializer("segment");
806 fiFileInitializer("pointer");
807 fiFileInitializer("runtime");
808 }
809 else {
810 INIT__0_rtexns();
811 INIT__0_sinteger();
812 INIT__0_segment();
813 INIT__0_pointer();
814 INIT__0_runtime();
815 }
816 /* "---------------------------" */
817 return 0L;
818}
819
820FiWord G_HQC13_opsys__CommandLine__43;
821FiWord G_FKWV6_opsys__StandardIO__247;
822
823static struct _FiClos tmpClos0_opsys = {
824 0L,
825 (FiProg) &tmp0_opsys
826};
827FiClos G_LAL6Q_opsys = &tmpClos0_opsys;