Bug Summary

File:lib/libfoamlib/al/oslow.c
Warning:line 406, 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 oslow.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/oslow.c
1/*
2 * C code generated by Aldor from file "oslow.ao".
3 */
4
5#include "foam_c.h"
6
7typedef struct Fmt6 *PFmt6;
8typedef struct Fmt16 *PFmt16;
9typedef struct Fmt17 *PFmt17;
10typedef struct Fmt18 *PFmt18;
11typedef struct Fmt19 *PFmt19;
12struct Fmt6 {
13 FiWord X0_val;
14};
15struct Fmt16 {
16 FiSInt X0_size;
17 FiSInt X1_nsize;
18 FiWord X2_values;
19};
20struct Fmt17 {
21 FiPtr X0_empty;
22};
23struct Fmt18 {
24 FiClos X0_memMap;
25 FiClos X1_allocShow;
26 FiClos X2_allocAlignHint;
27 FiClos X3_release;
28 FiClos X4_alloc;
29 FiClos X5_setDangerHandler;
30 FiClos X6_setLimitHandler;
31 FiClos X7_setFaultHandler;
32 FiClos X8_setBreakHandler;
33 FiClos X9_pathParse;
34 FiClos X10_pathLength;
35 FiClos X11_executePath;
36 FiClos X12_libraryPath;
37 FiClos X13_includePath;
38 FiClos X14_dirSwap;
39 FiClos X15_dirExists_QMARK_;
40 FiClos X16_fileSize;
41 FiClos X17_fileHash;
42 FiClos X18_fileExists_QMARK_;
43 FiClos X19_fileRename;
44 FiClos X20_fileRemove;
45 FiClos X21_interactive_QMARK_;
46 FiClos X22_fnameTempDir;
47 FiClos X23_fnameTempSeed;
48 FiClos X24_fnameUnparseSize;
49 FiClos X25_fnameUnparse;
50 FiClos X26_fnameParseSize;
51 FiClos X27_fnameParse;
52 FiWord X28_fnameNParts;
53 FiClos X29_subdirLength;
54 FiClos X30_subdir;
55 FiClos X31_fnameDirEqual;
56 FiClos X32_tmpDirName;
57 FiClos X33_curDirName;
58 FiWord X34_execFileType;
59 FiWord X35_objectFileType;
60 FiWord X36_ioAubMode;
61 FiWord X37_ioWubMode;
62 FiWord X38_ioRubMode;
63 FiWord X39_ioAbMode;
64 FiWord X40_ioWbMode;
65 FiWord X41_ioRbMode;
66 FiWord X42_ioApMode;
67 FiWord X43_ioWrMode;
68 FiWord X44_ioRdMode;
69 FiClos X45_putenvIsKept_QMARK_;
70 FiClos X46_putenv;
71 FiClos X47_getenv;
72 FiClos X48_date;
73 FiClos X49_cpuTime;
74 FiClos X50_canRunConcurrent_QMARK_;
75 FiClos X51_runQuoteWord;
76 FiClos X52_run;
77 FiClos X53_run;
78};
79struct Fmt19 {
80 FiWord X0_Pointer;
81 FiClos X1_nil;
82 FiWord X2_dom;
83 FiBool X3;
84};
85static FiProg C0_oslow;
86static void CF0_oslow(FiEnv e1);
87static FiProg C1_addLevel0;
88static FiClos CF1_addLevel0(FiEnv e1, FiWord P0_domain);
89static FiProg C2_addLevel1;
90static FiWord CF2_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
91static FiProg C3_run;
92static FiWord CF3_run(FiEnv e1, FiWord P0_s);
93static FiProg C4_run;
94static FiWord CF4_run(FiEnv e1, FiWord P0_s, FiWord P1_f1, FiWord P2_f2, FiWord P3_f3);
95static FiProg C5_runQuoteWord;
96static FiWord CF5_runQuoteWord(FiEnv e1, FiWord P0_s, FiWord P1_f);
97static FiProg C6_canRunConcurrent_QMARK_;
98static FiWord CF6_canRunConcurrent_QMARK_(FiEnv e1);
99static FiProg C7_cpuTime;
100static FiWord CF7_cpuTime(FiEnv e1);
101static FiProg C8_date;
102static FiWord CF8_date(FiEnv e1);
103static FiProg C9_getenv;
104static FiWord CF9_getenv(FiEnv e1, FiWord P0_s);
105static FiProg C10_putenv;
106static FiWord CF10_putenv(FiEnv e1, FiWord P0_s);
107static FiProg C11_putenvIsKept_QMARK_;
108static FiWord CF11_putenvIsKept_QMARK_(FiEnv e1);
109static FiProg C12_curDirName;
110static FiWord CF12_curDirName(FiEnv e1);
111static FiProg C13_tmpDirName;
112static FiWord CF13_tmpDirName(FiEnv e1);
113static FiProg C14_fnameDirEqual;
114static FiWord CF14_fnameDirEqual(FiEnv e1, FiWord P0_s1, FiWord P1_s2);
115static FiProg C15_subdir;
116static void CF15_subdir(FiEnv e1, FiWord P0_s1, FiWord P1_s2, FiWord P2_s3);
117static FiProg C16_subdirLength;
118static FiWord CF16_subdirLength(FiEnv e1, FiWord P0_s1, FiWord P1_s2);
119static FiProg C17_fnameParse;
120static void CF17_fnameParse(FiEnv e1, FiWord P0_sr, FiWord P1_s1, FiWord P2_s2, FiWord P3_s3);
121static FiProg C18_fnameParseSize;
122static FiWord CF18_fnameParseSize(FiEnv e1, FiWord P0_s1, FiWord P1_s2);
123static FiProg C19_fnameUnparse;
124static FiWord CF19_fnameUnparse(FiEnv e1, FiWord P0_s1, FiWord P1_sr, FiWord P2_b);
125static FiProg C20_fnameUnparseSize;
126static FiWord CF20_fnameUnparseSize(FiEnv e1, FiWord P0_sr, FiWord P1_b);
127static FiProg C21_fnameTempSeed;
128static FiWord CF21_fnameTempSeed(FiEnv e1);
129static FiProg C22_fnameTempDir;
130static FiWord CF22_fnameTempDir(FiEnv e1, FiWord P0_s);
131static FiProg C23_interactive_QMARK_;
132static FiWord CF23_interactive_QMARK_(FiEnv e1, FiWord P0_cf);
133static FiProg C24_fileRemove;
134static FiWord CF24_fileRemove(FiEnv e1, FiWord P0_s);
135static FiProg C25_fileRename;
136static FiWord CF25_fileRename(FiEnv e1, FiWord P0_s1, FiWord P1_s2);
137static FiProg C26_fileExists_QMARK_;
138static FiWord CF26_fileExists_QMARK_(FiEnv e1, FiWord P0_s);
139static FiProg C27_fileHash;
140static FiWord CF27_fileHash(FiEnv e1, FiWord P0_s);
141static FiProg C28_fileSize;
142static FiWord CF28_fileSize(FiEnv e1, FiWord P0_s);
143static FiProg C29_dirExists_QMARK_;
144static FiWord CF29_dirExists_QMARK_(FiEnv e1, FiWord P0_s);
145static FiProg C30_dirSwap;
146static FiWord CF30_dirSwap(FiEnv e1, FiWord P0_s1, FiWord P1_s2, FiWord P2_l);
147static FiProg C31_includePath;
148static FiWord CF31_includePath(FiEnv e1);
149static FiProg C32_libraryPath;
150static FiWord CF32_libraryPath(FiEnv e1);
151static FiProg C33_executePath;
152static FiWord CF33_executePath(FiEnv e1);
153static FiProg C34_pathLength;
154static FiWord CF34_pathLength(FiEnv e1, FiWord P0_s);
155static FiProg C35_pathParse;
156static void CF35_pathParse(FiEnv e1, FiWord P0_sr, FiWord P1_s1, FiWord P2_s2);
157static FiProg C36_setBreakHandler;
158static FiWord CF36_setBreakHandler(FiEnv e1, FiWord P0_sh);
159static FiProg C37_setFaultHandler;
160static FiWord CF37_setFaultHandler(FiEnv e1, FiWord P0_sh);
161static FiProg C38_setLimitHandler;
162static FiWord CF38_setLimitHandler(FiEnv e1, FiWord P0_sh);
163static FiProg C39_setDangerHandler;
164static FiWord CF39_setDangerHandler(FiEnv e1, FiWord P0_sh);
165static FiProg C40_alloc;
166static FiWord CF40_alloc(FiEnv e1, FiWord P0_u);
167static FiProg C41_release;
168static void CF41_release(FiEnv e1, FiWord P0_p);
169static FiProg C42_allocAlignHint;
170static void CF42_allocAlignHint(FiEnv e1, FiWord P0_u);
171static FiProg C43_allocShow;
172static void CF43_allocShow(FiEnv e1);
173static FiProg C44_memMap;
174static FiWord CF44_memMap(FiEnv e1, FiWord P0_i);
175static FiProg C45_pointer_MINUS_init;
176static FiWord CF45_pointer_MINUS_init(FiEnv e1, FiSInt P0_idx);
177extern FiClos G_JNIQR_oslow;
178static FiClos *pG_NQYQM_noOperation;
179extern FiWord G_VL551_oslow__OperatingSystem;
180static FiClos *pG_XIPRL_runtime;
181static FiClos *pG_Z2868_rtConstNameFn;
182static FiClos *pG_CSVBL_domainAddNameFn_BANG_;
183static FiClos *pG_XS55O_domainAddHash_BANG_;
184extern FiWord osRun(FiWord P0);
185extern FiWord osRunConcurrent(FiWord P0, PFmt6 P1, PFmt6 P2, PFmt6 P3);
186extern FiWord osRunQuoteArg(FiWord P0, FiWord P1);
187extern FiWord osCpuTime();
188extern FiWord osDate();
189extern FiWord osGetEnv(FiWord P0);
190extern FiWord osPutEnv(FiWord P0);
191extern FiWord osPutEnvIsKept();
192extern FiWord osIoRdMode;
193extern FiWord osIoWrMode;
194extern FiWord osIoApMode;
195extern FiWord osIoRbMode;
196extern FiWord osIoWbMode;
197extern FiWord osIoAbMode;
198extern FiWord osIoRubMode;
199extern FiWord osIoWubMode;
200extern FiWord osIoAubMode;
201extern FiWord osObjectFileType;
202extern FiWord osExecFileType;
203extern FiWord osCurDirName();
204extern FiWord osTmpDirName();
205extern FiWord osFnameDirEqual(FiWord P0, FiWord P1);
206extern void osSubdir(FiWord P0, FiWord P1, FiWord P2);
207extern FiWord osSubdirLength(FiWord P0, FiWord P1);
208extern FiWord osFnameNParts;
209extern void osFnameParse(FiWord P0, FiWord P1, FiWord P2, FiWord P3);
210extern FiWord osFnameParseSize(FiWord P0, FiWord P1);
211extern FiWord osFnameUnparse(FiWord P0, FiWord P1, FiWord P2);
212extern FiWord osFnameUnparseSize(FiWord P0, FiWord P1);
213extern FiWord osFnameTempSeed();
214extern FiWord osFnameTempDir(FiWord P0);
215extern FiWord osIsInteractive(FiWord P0);
216extern FiWord osFileRemove(FiWord P0);
217extern FiWord osFileRename(FiWord P0, FiWord P1);
218extern FiWord osFileIsThere(FiWord P0);
219extern FiWord osFileHash(FiWord P0);
220extern FiWord osFileSize(FiWord P0);
221extern FiWord osDirIsThere(FiWord P0);
222extern FiWord osDirSwap(FiWord P0, FiWord P1, FiWord P2);
223extern FiWord osIncludePath();
224extern FiWord osLibraryPath();
225extern FiWord osExecutePath();
226extern FiWord osPathLength(FiWord P0);
227extern void osPathParse(FiWord P0, FiWord P1, FiWord P2);
228extern FiWord osSetBreakHandler(FiWord P0);
229extern FiWord osSetFaultHandler(FiWord P0);
230extern FiWord osSetLimitHandler(FiWord P0);
231extern FiWord osSetDangerHandler(FiWord P0);
232extern FiWord osAlloc(PFmt6 P0);
233extern void osFree(FiWord P0);
234extern void osAllocAlignHint(FiWord P0);
235extern void osAllocShow();
236extern FiWord osMemMap(FiWord P0);
237static FiClos *pG_PA5R2_domainAddExports;
238static FiClos *pG_KK8CX_rtLazyDomFrInit;
239static FiClos *pG_QRAZA_rtDelayedGetExport;
240static FiWord *pG_ZB66L_pointer__Pointer__476;
241static FiClos *pG_MNZVJ_stdGetRetWord0;
242static FiClos *pG_6L1ZC_domainMake;
243static FiClos *pG_822GM_rtAddStrings;
244static FiClos *pG_4PKVP_pointer;
245
246
247
248static void
249CF0_oslow(FiEnv e1)
250{
251 FiWord *T1, *T2, T5;
252 PFmt16 T3, T4;
253 FiClos T0;
254 PFmt19 l0;
255 FiEnv e0;
256 l0 = fi0New(struct Fmt19 , CENSUS_EnvLevel)((struct Fmt19 *) fi0Alloc(sizeof(struct Fmt19), (19)));
257 e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
258 fiCCall0(void, (*pG_XIPRL_runtime))((*((void (*)())((*pG_XIPRL_runtime))->prog->fun))(((*pG_XIPRL_runtime
))->env));
259 G_JNIQR_oslow = (FiClos) (*pG_NQYQM_noOperation);
260 T0 = fiClosMake(e0, C45_pointer_MINUS_init)fiClosMakeFun(e0, (FiProg) (C45_pointer_MINUS_init));
261 G_VL551_oslow__OperatingSystem = fiCCall1(FiWord, (*((*((FiWord (*)())((* pG_6L1ZC_domainMake))->prog->fun)
)(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg
) (C1_addLevel0))))
262 pG_6L1ZC_domainMake), fiClosMake(e0, C1_addLevel0))((*((FiWord (*)())((* pG_6L1ZC_domainMake))->prog->fun)
)(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg
) (C1_addLevel0))));
263 l0->X3 = 0L;
264 fiARRNEW_Word(T1, FiWord*, 53L)((T1) = (FiWord*) fiArrNew_Word(53L));
265 fiARRNEW_Word(T2, FiWord*, 53L)((T2) = (FiWord*) fiArrNew_Word(53L));
266 T1[0L] = (FiWord) 106626364L;
267 T2[0L] = (FiWord) "ioWubMode";
268 T1[1L] = (FiWord) 842593622L;
269 T2[1L] = (FiWord) "ioApMode";
270 T1[2L] = (FiWord) 213084352L;
271 T2[2L] = (FiWord) "release";
272 T1[3L] = (FiWord) 52888966L;
273 T2[3L] = (FiWord) "putenvIsKept\?";
274 T1[4L] = (FiWord) 660034505L;
275 T2[4L] = (FiWord) "interactive\?";
276 T1[5L] = (FiWord) 994664203L;
277 T2[5L] = (FiWord) "tmpDirName";
278 T1[6L] = (FiWord) 814227778L;
279 T2[6L] = (FiWord) "date";
280 T1[7L] = (FiWord) 982829238L;
281 T2[7L] = (FiWord) "cpuTime";
282 T1[8L] = (FiWord) 694687579L;
283 T2[8L] = (FiWord) "fnameParseSize";
284 T1[9L] = (FiWord) 802003801L;
285 T2[9L] = (FiWord) "pathParse";
286 T1[10L] = (FiWord) 788332872L;
287 T2[10L] = (FiWord) "ioAbMode";
288 T1[11L] = (FiWord) 305703790L;
289 T2[11L] = (FiWord) "ioWrMode";
290 T1[12L] = (FiWord) 137842525L;
291 T2[12L] = (FiWord) "allocShow";
292 T1[13L] = (FiWord) 595428355L;
293 T2[13L] = (FiWord) "executePath";
294 T1[14L] = (FiWord) 12865023L;
295 T2[14L] = (FiWord) "subdir";
296 T1[15L] = (FiWord) 603364400L;
297 T2[15L] = (FiWord) "setLimitHandler";
298 T1[16L] = (FiWord) 864035096L;
299 T2[16L] = (FiWord) "dirExists\?";
300 T1[17L] = (FiWord) 401811543L;
301 T2[17L] = (FiWord) "objectFileType";
302 T1[18L] = (FiWord) 752833318L;
303 T2[18L] = (FiWord) "ioAubMode";
304 T1[19L] = (FiWord) 932938776L;
305 T2[19L] = (FiWord) "alloc";
306 T1[20L] = (FiWord) 334697756L;
307 T2[20L] = (FiWord) "fnameParse";
308 T1[21L] = (FiWord) 945793541L;
309 T2[21L] = (FiWord) "libraryPath";
310 T1[22L] = (FiWord) 876662363L;
311 T2[22L] = (FiWord) "ioRdMode";
312 T1[23L] = (FiWord) 555019379L;
313 T2[23L] = (FiWord) "fnameDirEqual";
314 T1[24L] = (FiWord) 961483268L;
315 T2[24L] = (FiWord) "curDirName";
316 T1[25L] = (FiWord) 788398265L;
317 T2[25L] = (FiWord) "dirSwap";
318 T1[26L] = (FiWord) 719162111L;
319 T2[26L] = (FiWord) "getenv";
320 T1[27L] = (FiWord) 773626612L;
321 T2[27L] = (FiWord) "includePath";
322 T1[28L] = (FiWord) 603177698L;
323 T2[28L] = (FiWord) "fnameNParts";
324 T1[29L] = (FiWord) 585980440L;
325 T2[29L] = (FiWord) "putenv";
326 T1[30L] = (FiWord) 981265174L;
327 T2[30L] = (FiWord) "setBreakHandler";
328 T1[31L] = (FiWord) 958434834L;
329 T2[31L] = (FiWord) "fileRename";
330 T1[32L] = (FiWord) 316173150L;
331 T2[32L] = (FiWord) "ioWbMode";
332 T1[33L] = (FiWord) 990459763L;
333 T2[33L] = (FiWord) "fnameTempSeed";
334 T1[34L] = (FiWord) 27763938L;
335 T2[34L] = (FiWord) "fileExists\?";
336 T1[35L] = (FiWord) 353275267L;
337 T2[35L] = (FiWord) "fileSize";
338 T1[36L] = (FiWord) 923388369L;
339 T2[36L] = (FiWord) "fnameUnparse";
340 T1[37L] = (FiWord) 27509776L;
341 T2[37L] = (FiWord) "fnameUnparseSize";
342 T1[38L] = (FiWord) 55440199L;
343 T2[38L] = (FiWord) "allocAlignHint";
344 T1[39L] = (FiWord) 836790743L;
345 T2[39L] = (FiWord) "subdirLength";
346 T1[40L] = (FiWord) 611731753L;
347 T2[40L] = (FiWord) "pathLength";
348 T1[41L] = (FiWord) 442586713L;
349 T2[41L] = (FiWord) "ioRbMode";
350 T1[42L] = (FiWord) 94823635L;
351 T2[42L] = (FiWord) "memMap";
352 T1[43L] = (FiWord) 254873512L;
353 T2[43L] = (FiWord) "fnameTempDir";
354 T1[44L] = (FiWord) 318270352L;
355 T2[44L] = (FiWord) "run";
356 T1[45L] = (FiWord) 816359347L;
357 T2[45L] = (FiWord) "execFileType";
358 T1[46L] = (FiWord) 383155511L;
359 T2[46L] = (FiWord) "ioRubMode";
360 T1[47L] = (FiWord) 957000237L;
361 T2[47L] = (FiWord) "setFaultHandler";
362 T1[48L] = (FiWord) 1000053442L;
363 T2[48L] = (FiWord) "canRunConcurrent\?";
364 T1[49L] = (FiWord) 947520040L;
365 T2[49L] = (FiWord) "fileRemove";
366 T1[50L] = (FiWord) 608747372L;
367 T2[50L] = (FiWord) "fileHash";
368 T1[51L] = (FiWord) 629246955L;
369 T2[51L] = (FiWord) "setDangerHandler";
370 T1[52L] = (FiWord) 965554667L;
371 T2[52L] = (FiWord) "runQuoteWord";
372 T3 = fi0RecNew(struct Fmt16 , CENSUS_Rec)((struct Fmt16 *) fi0RecAlloc(sizeof(struct Fmt16), ( 5)));
373 T3->X0_size = 53L;
374 T3->X1_nsize = 53L;
375 T3->X2_values = (FiWord) T1;
376 T4 = fi0RecNew(struct Fmt16 , CENSUS_Rec)((struct Fmt16 *) fi0RecAlloc(sizeof(struct Fmt16), ( 5)));
377 T4->X0_size = 53L;
378 T4->X1_nsize = 53L;
379 T4->X2_values = (FiWord) T2;
380 fiCCall2(void, (*pG_822GM_rtAddStrings), (FiWord) T3, (FiWord) T4)((*((void (*)())((*pG_822GM_rtAddStrings))->prog->fun))
(((*pG_822GM_rtAddStrings))->env,(FiWord) T3,(FiWord) T4));
381 l0->X0_Pointer = fiCCall2(FiWord, (*pG_KK8CX_rtLazyDomFrInit),((*((FiWord (*)())((*pG_KK8CX_rtLazyDomFrInit))->prog->
fun))(((*pG_KK8CX_rtLazyDomFrInit))->env,T0,0L))
382 T0, 0L)((*((FiWord (*)())((*pG_KK8CX_rtLazyDomFrInit))->prog->
fun))(((*pG_KK8CX_rtLazyDomFrInit))->env,T0,0L));
383 l0->X2_dom = l0->X0_Pointer;
384 T5 = fiCCall3(FiWord, (*pG_QRAZA_rtDelayedGetExport), l0->X2_dom,((*((FiWord (*)())((*pG_QRAZA_rtDelayedGetExport))->prog->
fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0->X2_dom,
318525310L,1050822588L))
385 318525310L, 1050822588L)((*((FiWord (*)())((*pG_QRAZA_rtDelayedGetExport))->prog->
fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0->X2_dom,
318525310L,1050822588L));
386 l0->X1_nil = fiCCall1(FiClos, (*pG_MNZVJ_stdGetRetWord0), T5)((*((FiClos (*)())((*pG_MNZVJ_stdGetRetWord0))->prog->fun
))(((*pG_MNZVJ_stdGetRetWord0))->env,T5));
387 return ;
388}
389
390static struct _FiProg tmp0_oslow = {
391 (FiFun) CF0_oslow,
392 0L,
393 0L,
394 0L,
395 0L
396};
397
398
399static FiClos
400CF1_addLevel0(FiEnv e1, FiWord P0_domain)
401{
402 FiWord T0;
403 FiEnv e0;
404 PFmt19 l1;
405 e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
406 l1 = (PFmt19) fiEnvLevel(e1)((FiEnv) (e1)->level);
Value stored to 'l1' is never read
407 T0 = fiCCall1(FiWord, (*pG_Z2868_rtConstNameFn), "OperatingSystemInterface")((*((FiWord (*)())((*pG_Z2868_rtConstNameFn))->prog->fun
))(((*pG_Z2868_rtConstNameFn))->env,"OperatingSystemInterface"
));
408 fiCCall2(FiWord, (*pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((*((FiWord (*)())((*pG_CSVBL_domainAddNameFn_BANG_))->prog
->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain
,T0));
409 fiCCall2(FiWord, (*pG_XS55O_domainAddHash_BANG_), P0_domain,((*((FiWord (*)())((*pG_XS55O_domainAddHash_BANG_))->prog->
fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,603300503L
))
410 603300503L)((*((FiWord (*)())((*pG_XS55O_domainAddHash_BANG_))->prog->
fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,603300503L
));
411 return fiClosMake(e0, C2_addLevel1)fiClosMakeFun(e0, (FiProg) (C2_addLevel1));
412}
413
414static struct _FiProg tmp1_addLevel0 = {
415 (FiFun) CF1_addLevel0,
416 0L,
417 0L,
418 0L,
419 0L
420};
421
422
423static FiWord
424CF2_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
425{
426 PFmt16 T3, T4, T5;
427 FiWord *T0, *T1, *T2;
428 PFmt18 l0;
429 FiEnv e2, e0;
430 PFmt19 l2;
431 l0 = fi0New(struct Fmt18 , CENSUS_EnvLevel)((struct Fmt18 *) fi0Alloc(sizeof(struct Fmt18), (19)));
432 e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
433 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
434 l2 = (PFmt19) fiEnvLevel(e2)((FiEnv) (e2)->level);
435 fiARRNEW_Word(T0, FiWord*, 54L)((T0) = (FiWord*) fiArrNew_Word(54L));
436 fiARRNEW_Word(T1, FiWord*, 54L)((T1) = (FiWord*) fiArrNew_Word(54L));
437 fiARRNEW_Word(T2, FiWord*, 54L)((T2) = (FiWord*) fiArrNew_Word(54L));
438 l0->X52_run = fiClosMake(e0, C3_run)fiClosMakeFun(e0, (FiProg) (C3_run));
439 l0->X53_run = fiClosMake(e0, C4_run)fiClosMakeFun(e0, (FiProg) (C4_run));
440 l0->X51_runQuoteWord = fiClosMake(e0, C5_runQuoteWord)fiClosMakeFun(e0, (FiProg) (C5_runQuoteWord));
441 l0->X50_canRunConcurrent_QMARK_ = fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C6_canRunConcurrent_QMARK_))
442 C6_canRunConcurrent_QMARK_)fiClosMakeFun(e0, (FiProg) (C6_canRunConcurrent_QMARK_));
443 l0->X49_cpuTime = fiClosMake(e0, C7_cpuTime)fiClosMakeFun(e0, (FiProg) (C7_cpuTime));
444 l0->X48_date = fiClosMake(e0, C8_date)fiClosMakeFun(e0, (FiProg) (C8_date));
445 l0->X47_getenv = fiClosMake(e0, C9_getenv)fiClosMakeFun(e0, (FiProg) (C9_getenv));
446 l0->X46_putenv = fiClosMake(e0, C10_putenv)fiClosMakeFun(e0, (FiProg) (C10_putenv));
447 l0->X45_putenvIsKept_QMARK_ = fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C11_putenvIsKept_QMARK_))
448 C11_putenvIsKept_QMARK_)fiClosMakeFun(e0, (FiProg) (C11_putenvIsKept_QMARK_));
449 l0->X33_curDirName = fiClosMake(e0, C12_curDirName)fiClosMakeFun(e0, (FiProg) (C12_curDirName));
450 l0->X32_tmpDirName = fiClosMake(e0, C13_tmpDirName)fiClosMakeFun(e0, (FiProg) (C13_tmpDirName));
451 l0->X31_fnameDirEqual = fiClosMake(e0, C14_fnameDirEqual)fiClosMakeFun(e0, (FiProg) (C14_fnameDirEqual));
452 l0->X30_subdir = fiClosMake(e0, C15_subdir)fiClosMakeFun(e0, (FiProg) (C15_subdir));
453 l0->X29_subdirLength = fiClosMake(e0, C16_subdirLength)fiClosMakeFun(e0, (FiProg) (C16_subdirLength));
454 l0->X27_fnameParse = fiClosMake(e0, C17_fnameParse)fiClosMakeFun(e0, (FiProg) (C17_fnameParse));
455 l0->X26_fnameParseSize = fiClosMake(e0, C18_fnameParseSize)fiClosMakeFun(e0, (FiProg) (C18_fnameParseSize));
456 l0->X25_fnameUnparse = fiClosMake(e0, C19_fnameUnparse)fiClosMakeFun(e0, (FiProg) (C19_fnameUnparse));
457 l0->X24_fnameUnparseSize = fiClosMake(e0, C20_fnameUnparseSize)fiClosMakeFun(e0, (FiProg) (C20_fnameUnparseSize));
458 l0->X23_fnameTempSeed = fiClosMake(e0, C21_fnameTempSeed)fiClosMakeFun(e0, (FiProg) (C21_fnameTempSeed));
459 l0->X22_fnameTempDir = fiClosMake(e0, C22_fnameTempDir)fiClosMakeFun(e0, (FiProg) (C22_fnameTempDir));
460 l0->X21_interactive_QMARK_ = fiClosMake(e0,fiClosMakeFun(e0, (FiProg) (C23_interactive_QMARK_))
461 C23_interactive_QMARK_)fiClosMakeFun(e0, (FiProg) (C23_interactive_QMARK_));
462 l0->X20_fileRemove = fiClosMake(e0, C24_fileRemove)fiClosMakeFun(e0, (FiProg) (C24_fileRemove));
463 l0->X19_fileRename = fiClosMake(e0, C25_fileRename)fiClosMakeFun(e0, (FiProg) (C25_fileRename));
464 l0->X18_fileExists_QMARK_ = fiClosMake(e0, C26_fileExists_QMARK_)fiClosMakeFun(e0, (FiProg) (C26_fileExists_QMARK_));
465 l0->X17_fileHash = fiClosMake(e0, C27_fileHash)fiClosMakeFun(e0, (FiProg) (C27_fileHash));
466 l0->X16_fileSize = fiClosMake(e0, C28_fileSize)fiClosMakeFun(e0, (FiProg) (C28_fileSize));
467 l0->X15_dirExists_QMARK_ = fiClosMake(e0, C29_dirExists_QMARK_)fiClosMakeFun(e0, (FiProg) (C29_dirExists_QMARK_));
468 l0->X14_dirSwap = fiClosMake(e0, C30_dirSwap)fiClosMakeFun(e0, (FiProg) (C30_dirSwap));
469 l0->X13_includePath = fiClosMake(e0, C31_includePath)fiClosMakeFun(e0, (FiProg) (C31_includePath));
470 l0->X12_libraryPath = fiClosMake(e0, C32_libraryPath)fiClosMakeFun(e0, (FiProg) (C32_libraryPath));
471 l0->X11_executePath = fiClosMake(e0, C33_executePath)fiClosMakeFun(e0, (FiProg) (C33_executePath));
472 l0->X10_pathLength = fiClosMake(e0, C34_pathLength)fiClosMakeFun(e0, (FiProg) (C34_pathLength));
473 l0->X9_pathParse = fiClosMake(e0, C35_pathParse)fiClosMakeFun(e0, (FiProg) (C35_pathParse));
474 l0->X8_setBreakHandler = fiClosMake(e0, C36_setBreakHandler)fiClosMakeFun(e0, (FiProg) (C36_setBreakHandler));
475 l0->X7_setFaultHandler = fiClosMake(e0, C37_setFaultHandler)fiClosMakeFun(e0, (FiProg) (C37_setFaultHandler));
476 l0->X6_setLimitHandler = fiClosMake(e0, C38_setLimitHandler)fiClosMakeFun(e0, (FiProg) (C38_setLimitHandler));
477 l0->X5_setDangerHandler = fiClosMake(e0, C39_setDangerHandler)fiClosMakeFun(e0, (FiProg) (C39_setDangerHandler));
478 l0->X4_alloc = fiClosMake(e0, C40_alloc)fiClosMakeFun(e0, (FiProg) (C40_alloc));
479 l0->X3_release = fiClosMake(e0, C41_release)fiClosMakeFun(e0, (FiProg) (C41_release));
480 l0->X2_allocAlignHint = fiClosMake(e0, C42_allocAlignHint)fiClosMakeFun(e0, (FiProg) (C42_allocAlignHint));
481 l0->X1_allocShow = fiClosMake(e0, C43_allocShow)fiClosMakeFun(e0, (FiProg) (C43_allocShow));
482 l0->X0_memMap = fiClosMake(e0, C44_memMap)fiClosMakeFun(e0, (FiProg) (C44_memMap));
483 T3 = fi0RecNew(struct Fmt16 , CENSUS_Rec)((struct Fmt16 *) fi0RecAlloc(sizeof(struct Fmt16), ( 5)));
484 T3->X0_size = 54L;
485 T3->X1_nsize = 54L;
486 T3->X2_values = (FiWord) T0;
487 T4 = fi0RecNew(struct Fmt16 , CENSUS_Rec)((struct Fmt16 *) fi0RecAlloc(sizeof(struct Fmt16), ( 5)));
488 T4->X0_size = 54L;
489 T4->X1_nsize = 54L;
490 T4->X2_values = (FiWord) T1;
491 T5 = fi0RecNew(struct Fmt16 , CENSUS_Rec)((struct Fmt16 *) fi0RecAlloc(sizeof(struct Fmt16), ( 5)));
492 T5->X0_size = 54L;
493 T5->X1_nsize = 54L;
494 T5->X2_values = (FiWord) T2;
495 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)
);
496 T0[0L] = (FiWord) 318270352L;
497 T1[0L] = (FiWord) 1070972483L;
498 T2[0L] = (FiWord) l0->X52_run;
499 T0[1L] = (FiWord) 318270352L;
500 T1[1L] = (FiWord) 69238726L;
501 T2[1L] = (FiWord) l0->X53_run;
502 T0[2L] = (FiWord) 965554667L;
503 T1[2L] = (FiWord) 91022511L;
504 T2[2L] = (FiWord) l0->X51_runQuoteWord;
505 T0[3L] = (FiWord) 1000053442L;
506 T1[3L] = (FiWord) 529116253L;
507 T2[3L] = (FiWord) l0->X50_canRunConcurrent_QMARK_;
508 T0[4L] = (FiWord) 982829238L;
509 T1[4L] = (FiWord) 551563036L;
510 T2[4L] = (FiWord) l0->X49_cpuTime;
511 T0[5L] = (FiWord) 814227778L;
512 T1[5L] = (FiWord) 463788026L;
513 T2[5L] = (FiWord) l0->X48_date;
514 T0[6L] = (FiWord) 719162111L;
515 T1[6L] = (FiWord) 983197472L;
516 T2[6L] = (FiWord) l0->X47_getenv;
517 T0[7L] = (FiWord) 585980440L;
518 T1[7L] = (FiWord) 1070972483L;
519 T2[7L] = (FiWord) l0->X46_putenv;
520 T0[8L] = (FiWord) 52888966L;
521 T1[8L] = (FiWord) 529116253L;
522 T2[8L] = (FiWord) l0->X45_putenvIsKept_QMARK_;
523 T0[9L] = (FiWord) 961483268L;
524 T1[9L] = (FiWord) 463788026L;
525 T2[9L] = (FiWord) l0->X33_curDirName;
526 T0[10L] = (FiWord) 994664203L;
527 T1[10L] = (FiWord) 463788026L;
528 T2[10L] = (FiWord) l0->X32_tmpDirName;
529 T0[11L] = (FiWord) 555019379L;
530 T1[11L] = (FiWord) 403248862L;
531 T2[11L] = (FiWord) l0->X31_fnameDirEqual;
532 T0[12L] = (FiWord) 12865023L;
533 T1[12L] = (FiWord) 757722190L;
534 T2[12L] = (FiWord) l0->X30_subdir;
535 T0[13L] = (FiWord) 836790743L;
536 T1[13L] = (FiWord) 425695645L;
537 T2[13L] = (FiWord) l0->X29_subdirLength;
538 T0[14L] = (FiWord) 334697756L;
539 T1[14L] = (FiWord) 1038486354L;
540 T2[14L] = (FiWord) l0->X27_fnameParse;
541 T0[15L] = (FiWord) 694687579L;
542 T1[15L] = (FiWord) 425695645L;
543 T2[15L] = (FiWord) l0->X26_fnameParseSize;
544 T0[16L] = (FiWord) 923388369L;
545 T1[16L] = (FiWord) 537371066L;
546 T2[16L] = (FiWord) l0->X25_fnameUnparse;
547 T0[17L] = (FiWord) 27509776L;
548 T1[17L] = (FiWord) 662491052L;
549 T2[17L] = (FiWord) l0->X24_fnameUnparseSize;
550 T0[18L] = (FiWord) 990459763L;
551 T1[18L] = (FiWord) 551563036L;
552 T2[18L] = (FiWord) l0->X23_fnameTempSeed;
553 T0[19L] = (FiWord) 254873512L;
554 T1[19L] = (FiWord) 983197472L;
555 T2[19L] = (FiWord) l0->X22_fnameTempDir;
556 T0[20L] = (FiWord) 660034505L;
557 T1[20L] = (FiWord) 112152678L;
558 T2[20L] = (FiWord) l0->X21_interactive_QMARK_;
559 T0[21L] = (FiWord) 947520040L;
560 T1[21L] = (FiWord) 1070972483L;
561 T2[21L] = (FiWord) l0->X20_fileRemove;
562 T0[22L] = (FiWord) 958434834L;
563 T1[22L] = (FiWord) 425695645L;
564 T2[22L] = (FiWord) l0->X19_fileRename;
565 T0[23L] = (FiWord) 27763938L;
566 T1[23L] = (FiWord) 1048525700L;
567 T2[23L] = (FiWord) l0->X18_fileExists_QMARK_;
568 T0[24L] = (FiWord) 608747372L;
569 T1[24L] = (FiWord) 1070972483L;
570 T2[24L] = (FiWord) l0->X17_fileHash;
571 T0[25L] = (FiWord) 353275267L;
572 T1[25L] = (FiWord) 1070972483L;
573 T2[25L] = (FiWord) l0->X16_fileSize;
574 T0[26L] = (FiWord) 864035096L;
575 T1[26L] = (FiWord) 1048525700L;
576 T2[26L] = (FiWord) l0->X15_dirExists_QMARK_;
577 T0[27L] = (FiWord) 788398265L;
578 T1[27L] = (FiWord) 995152502L;
579 T2[27L] = (FiWord) l0->X14_dirSwap;
580 T0[28L] = (FiWord) 773626612L;
581 T1[28L] = (FiWord) 463788026L;
582 T2[28L] = (FiWord) l0->X13_includePath;
583 T0[29L] = (FiWord) 945793541L;
584 T1[29L] = (FiWord) 463788026L;
585 T2[29L] = (FiWord) l0->X12_libraryPath;
586 T0[30L] = (FiWord) 595428355L;
587 T1[30L] = (FiWord) 463788026L;
588 T2[30L] = (FiWord) l0->X11_executePath;
589 T0[31L] = (FiWord) 611731753L;
590 T1[31L] = (FiWord) 1070972483L;
591 T2[31L] = (FiWord) l0->X10_pathLength;
592 T0[32L] = (FiWord) 802003801L;
593 T1[32L] = (FiWord) 305934416L;
594 T2[32L] = (FiWord) l0->X9_pathParse;
595 T0[33L] = (FiWord) 981265174L;
596 T1[33L] = (FiWord) 633859013L;
597 T2[33L] = (FiWord) l0->X8_setBreakHandler;
598 T0[34L] = (FiWord) 957000237L;
599 T1[34L] = (FiWord) 633859013L;
600 T2[34L] = (FiWord) l0->X7_setFaultHandler;
601 T0[35L] = (FiWord) 603364400L;
602 T1[35L] = (FiWord) 633859013L;
603 T2[35L] = (FiWord) l0->X6_setLimitHandler;
604 T0[36L] = (FiWord) 629246955L;
605 T1[36L] = (FiWord) 633859013L;
606 T2[36L] = (FiWord) l0->X5_setDangerHandler;
607 T0[37L] = (FiWord) 932938776L;
608 T1[37L] = (FiWord) 302456685L;
609 T2[37L] = (FiWord) l0->X4_alloc;
610 T0[38L] = (FiWord) 213084352L;
611 T1[38L] = (FiWord) 130092106L;
612 T2[38L] = (FiWord) l0->X3_release;
613 T0[39L] = (FiWord) 55440199L;
614 T1[39L] = (FiWord) 796932504L;
615 T2[39L] = (FiWord) l0->X2_allocAlignHint;
616 T0[40L] = (FiWord) 137842525L;
617 T1[40L] = (FiWord) 275363373L;
618 T2[40L] = (FiWord) l0->X1_allocShow;
619 T0[41L] = (FiWord) 94823635L;
620 T1[41L] = (FiWord) 541365418L;
621 T2[41L] = (FiWord) l0->X0_memMap;
622 l0->X44_ioRdMode = (FiWord) osIoRdMode;
623 T0[42L] = (FiWord) 876662363L;
624 T1[42L] = (FiWord) 585242861L;
625 T2[42L] = l0->X44_ioRdMode;
626 l0->X43_ioWrMode = (FiWord) osIoWrMode;
627 T0[43L] = (FiWord) 305703790L;
628 T1[43L] = (FiWord) 585242861L;
629 T2[43L] = l0->X43_ioWrMode;
630 l0->X42_ioApMode = (FiWord) osIoApMode;
631 T0[44L] = (FiWord) 842593622L;
632 T1[44L] = (FiWord) 585242861L;
633 T2[44L] = l0->X42_ioApMode;
634 l0->X41_ioRbMode = (FiWord) osIoRbMode;
635 T0[45L] = (FiWord) 442586713L;
636 T1[45L] = (FiWord) 585242861L;
637 T2[45L] = l0->X41_ioRbMode;
638 l0->X40_ioWbMode = (FiWord) osIoWbMode;
639 T0[46L] = (FiWord) 316173150L;
640 T1[46L] = (FiWord) 585242861L;
641 T2[46L] = l0->X40_ioWbMode;
642 l0->X39_ioAbMode = (FiWord) osIoAbMode;
643 T0[47L] = (FiWord) 788332872L;
644 T1[47L] = (FiWord) 585242861L;
645 T2[47L] = l0->X39_ioAbMode;
646 l0->X38_ioRubMode = (FiWord) osIoRubMode;
647 T0[48L] = (FiWord) 383155511L;
648 T1[48L] = (FiWord) 585242861L;
649 T2[48L] = l0->X38_ioRubMode;
650 l0->X37_ioWubMode = (FiWord) osIoWubMode;
651 T0[49L] = (FiWord) 106626364L;
652 T1[49L] = (FiWord) 585242861L;
653 T2[49L] = l0->X37_ioWubMode;
654 l0->X36_ioAubMode = (FiWord) osIoAubMode;
655 T0[50L] = (FiWord) 752833318L;
656 T1[50L] = (FiWord) 585242861L;
657 T2[50L] = l0->X36_ioAubMode;
658 l0->X35_objectFileType = (FiWord) osObjectFileType;
659 T0[51L] = (FiWord) 401811543L;
660 T1[51L] = (FiWord) 585242861L;
661 T2[51L] = l0->X35_objectFileType;
662 l0->X34_execFileType = (FiWord) osExecFileType;
663 T0[52L] = (FiWord) 816359347L;
664 T1[52L] = (FiWord) 585242861L;
665 T2[52L] = l0->X34_execFileType;
666 l0->X28_fnameNParts = (FiWord) osFnameNParts;
667 T0[53L] = (FiWord) 603177698L;
668 T1[53L] = (FiWord) 33717313L;
669 T2[53L] = l0->X28_fnameNParts;
670 return P0_domain;
671}
672
673static struct _FiProg tmp2_addLevel1 = {
674 (FiFun) CF2_addLevel1,
675 0L,
676 0L,
677 0L,
678 0L
679};
680
681
682static FiWord
683CF3_run(FiEnv e1, FiWord P0_s)
684{
685 return osRun(P0_s);
686}
687
688static struct _FiProg tmp3_run = {
689 (FiFun) CF3_run,
690 0L,
691 0L,
692 0L,
693 0L
694};
695
696
697static FiWord
698CF4_run(FiEnv e1, FiWord P0_s, FiWord P1_f1, FiWord P2_f2, FiWord
699 P3_f3)
700{
701 FiSInt T1, T2;
702 FiWord T0;
703 T1 = 1L;
704L2: T2 = T1 - 1L;
705 if (((FiChar*) P0_s)[T2] == 0L) goto L3;
706 T1 = T1 + 1L;
707 goto L2;
708L3: if (T2 == 0) goto L0;
709 T0 = osRunConcurrent(P0_s, (FiPtr) P1_f1, (FiPtr) P2_f2, (FiPtr)
710 P3_f3);
711L1: return T0;
712L0: T0 = (FiWord) -1L;
713 goto L1;
714}
715
716static struct _FiProg tmp4_run = {
717 (FiFun) CF4_run,
718 0L,
719 0L,
720 0L,
721 0L
722};
723
724
725static FiWord
726CF5_runQuoteWord(FiEnv e1, FiWord P0_s, FiWord P1_f)
727{
728 return osRunQuoteArg(P0_s, P1_f);
729}
730
731static struct _FiProg tmp5_runQuoteWord = {
732 (FiFun) CF5_runQuoteWord,
733 0L,
734 0L,
735 0L,
736 0L
737};
738
739
740static FiWord
741CF6_canRunConcurrent_QMARK_(FiEnv e1)
742{
743 FiSInt T0;
744 FiEnv e3, e2;
745 PFmt19 l3;
746 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
747 e3 = fiEnvNext(e2)((FiEnv) (e2)->next);
748 l3 = (PFmt19) fiEnvLevel(e3)((FiEnv) (e3)->level);
749 T0 = (FiSInt) osRunConcurrent((FiWord) l3->X1_nil, (FiPtr) l3->
750 X1_nil, (FiPtr) l3->X1_nil, (FiPtr) l3->X1_nil);
751 return (FiWord) (T0 == 0);
752}
753
754static struct _FiProg tmp6_canRunConcurrent_QMARK_ = {
755 (FiFun) CF6_canRunConcurrent_QMARK_,
756 0L,
757 0L,
758 0L,
759 0L
760};
761
762
763static FiWord
764CF7_cpuTime(FiEnv e1)
765{
766 return osCpuTime();
767}
768
769static struct _FiProg tmp7_cpuTime = {
770 (FiFun) CF7_cpuTime,
771 0L,
772 0L,
773 0L,
774 0L
775};
776
777
778static FiWord
779CF8_date(FiEnv e1)
780{
781 return osDate();
782}
783
784static struct _FiProg tmp8_date = {
785 (FiFun) CF8_date,
786 0L,
787 0L,
788 0L,
789 0L
790};
791
792
793static FiWord
794CF9_getenv(FiEnv e1, FiWord P0_s)
795{
796 return osGetEnv(P0_s);
797}
798
799static struct _FiProg tmp9_getenv = {
800 (FiFun) CF9_getenv,
801 0L,
802 0L,
803 0L,
804 0L
805};
806
807
808static FiWord
809CF10_putenv(FiEnv e1, FiWord P0_s)
810{
811 return osPutEnv(P0_s);
812}
813
814static struct _FiProg tmp10_putenv = {
815 (FiFun) CF10_putenv,
816 0L,
817 0L,
818 0L,
819 0L
820};
821
822
823static FiWord
824CF11_putenvIsKept_QMARK_(FiEnv e1)
825{
826 return osPutEnvIsKept();
827}
828
829static struct _FiProg tmp11_putenvIsKept_QMARK_ = {
830 (FiFun) CF11_putenvIsKept_QMARK_,
831 0L,
832 0L,
833 0L,
834 0L
835};
836
837
838static FiWord
839CF12_curDirName(FiEnv e1)
840{
841 return osCurDirName();
842}
843
844static struct _FiProg tmp12_curDirName = {
845 (FiFun) CF12_curDirName,
846 0L,
847 0L,
848 0L,
849 0L
850};
851
852
853static FiWord
854CF13_tmpDirName(FiEnv e1)
855{
856 return osTmpDirName();
857}
858
859static struct _FiProg tmp13_tmpDirName = {
860 (FiFun) CF13_tmpDirName,
861 0L,
862 0L,
863 0L,
864 0L
865};
866
867
868static FiWord
869CF14_fnameDirEqual(FiEnv e1, FiWord P0_s1, FiWord P1_s2)
870{
871 return osFnameDirEqual(P0_s1, P1_s2);
872}
873
874static struct _FiProg tmp14_fnameDirEqual = {
875 (FiFun) CF14_fnameDirEqual,
876 0L,
877 0L,
878 0L,
879 0L
880};
881
882
883static void
884CF15_subdir(FiEnv e1, FiWord P0_s1, FiWord P1_s2, FiWord P2_s3)
885{
886 osSubdir(P0_s1, P1_s2, P2_s3);
887 return ;
888}
889
890static struct _FiProg tmp15_subdir = {
891 (FiFun) CF15_subdir,
892 0L,
893 0L,
894 0L,
895 0L
896};
897
898
899static FiWord
900CF16_subdirLength(FiEnv e1, FiWord P0_s1, FiWord P1_s2)
901{
902 return osSubdirLength(P0_s1, P1_s2);
903}
904
905static struct _FiProg tmp16_subdirLength = {
906 (FiFun) CF16_subdirLength,
907 0L,
908 0L,
909 0L,
910 0L
911};
912
913
914static void
915CF17_fnameParse(FiEnv e1, FiWord P0_sr, FiWord P1_s1, FiWord P2_s2,
916 FiWord P3_s3)
917{
918 osFnameParse(P0_sr, P1_s1, P2_s2, P3_s3);
919 return ;
920}
921
922static struct _FiProg tmp17_fnameParse = {
923 (FiFun) CF17_fnameParse,
924 0L,
925 0L,
926 0L,
927 0L
928};
929
930
931static FiWord
932CF18_fnameParseSize(FiEnv e1, FiWord P0_s1, FiWord P1_s2)
933{
934 return osFnameParseSize(P0_s1, P1_s2);
935}
936
937static struct _FiProg tmp18_fnameParseSize = {
938 (FiFun) CF18_fnameParseSize,
939 0L,
940 0L,
941 0L,
942 0L
943};
944
945
946static FiWord
947CF19_fnameUnparse(FiEnv e1, FiWord P0_s1, FiWord P1_sr, FiWord P2_b)
948{
949 return osFnameUnparse(P0_s1, P1_sr, P2_b);
950}
951
952static struct _FiProg tmp19_fnameUnparse = {
953 (FiFun) CF19_fnameUnparse,
954 0L,
955 0L,
956 0L,
957 0L
958};
959
960
961static FiWord
962CF20_fnameUnparseSize(FiEnv e1, FiWord P0_sr, FiWord P1_b)
963{
964 return osFnameUnparseSize(P0_sr, P1_b);
965}
966
967static struct _FiProg tmp20_fnameUnparseSize = {
968 (FiFun) CF20_fnameUnparseSize,
969 0L,
970 0L,
971 0L,
972 0L
973};
974
975
976static FiWord
977CF21_fnameTempSeed(FiEnv e1)
978{
979 return osFnameTempSeed();
980}
981
982static struct _FiProg tmp21_fnameTempSeed = {
983 (FiFun) CF21_fnameTempSeed,
984 0L,
985 0L,
986 0L,
987 0L
988};
989
990
991static FiWord
992CF22_fnameTempDir(FiEnv e1, FiWord P0_s)
993{
994 return osFnameTempDir(P0_s);
995}
996
997static struct _FiProg tmp22_fnameTempDir = {
998 (FiFun) CF22_fnameTempDir,
999 0L,
1000 0L,
1001 0L,
1002 0L
1003};
1004
1005
1006static FiWord
1007CF23_interactive_QMARK_(FiEnv e1, FiWord P0_cf)
1008{
1009 return osIsInteractive(P0_cf);
1010}
1011
1012static struct _FiProg tmp23_interactive_QMARK_ = {
1013 (FiFun) CF23_interactive_QMARK_,
1014 0L,
1015 0L,
1016 0L,
1017 0L
1018};
1019
1020
1021static FiWord
1022CF24_fileRemove(FiEnv e1, FiWord P0_s)
1023{
1024 return osFileRemove(P0_s);
1025}
1026
1027static struct _FiProg tmp24_fileRemove = {
1028 (FiFun) CF24_fileRemove,
1029 0L,
1030 0L,
1031 0L,
1032 0L
1033};
1034
1035
1036static FiWord
1037CF25_fileRename(FiEnv e1, FiWord P0_s1, FiWord P1_s2)
1038{
1039 return osFileRename(P0_s1, P1_s2);
1040}
1041
1042static struct _FiProg tmp25_fileRename = {
1043 (FiFun) CF25_fileRename,
1044 0L,
1045 0L,
1046 0L,
1047 0L
1048};
1049
1050
1051static FiWord
1052CF26_fileExists_QMARK_(FiEnv e1, FiWord P0_s)
1053{
1054 return osFileIsThere(P0_s);
1055}
1056
1057static struct _FiProg tmp26_fileExists_QMARK_ = {
1058 (FiFun) CF26_fileExists_QMARK_,
1059 0L,
1060 0L,
1061 0L,
1062 0L
1063};
1064
1065
1066static FiWord
1067CF27_fileHash(FiEnv e1, FiWord P0_s)
1068{
1069 return osFileHash(P0_s);
1070}
1071
1072static struct _FiProg tmp27_fileHash = {
1073 (FiFun) CF27_fileHash,
1074 0L,
1075 0L,
1076 0L,
1077 0L
1078};
1079
1080
1081static FiWord
1082CF28_fileSize(FiEnv e1, FiWord P0_s)
1083{
1084 return osFileSize(P0_s);
1085}
1086
1087static struct _FiProg tmp28_fileSize = {
1088 (FiFun) CF28_fileSize,
1089 0L,
1090 0L,
1091 0L,
1092 0L
1093};
1094
1095
1096static FiWord
1097CF29_dirExists_QMARK_(FiEnv e1, FiWord P0_s)
1098{
1099 return osDirIsThere(P0_s);
1100}
1101
1102static struct _FiProg tmp29_dirExists_QMARK_ = {
1103 (FiFun) CF29_dirExists_QMARK_,
1104 0L,
1105 0L,
1106 0L,
1107 0L
1108};
1109
1110
1111static FiWord
1112CF30_dirSwap(FiEnv e1, FiWord P0_s1, FiWord P1_s2, FiWord P2_l)
1113{
1114 return osDirSwap(P0_s1, P1_s2, P2_l);
1115}
1116
1117static struct _FiProg tmp30_dirSwap = {
1118 (FiFun) CF30_dirSwap,
1119 0L,
1120 0L,
1121 0L,
1122 0L
1123};
1124
1125
1126static FiWord
1127CF31_includePath(FiEnv e1)
1128{
1129 return osIncludePath();
1130}
1131
1132static struct _FiProg tmp31_includePath = {
1133 (FiFun) CF31_includePath,
1134 0L,
1135 0L,
1136 0L,
1137 0L
1138};
1139
1140
1141static FiWord
1142CF32_libraryPath(FiEnv e1)
1143{
1144 return osLibraryPath();
1145}
1146
1147static struct _FiProg tmp32_libraryPath = {
1148 (FiFun) CF32_libraryPath,
1149 0L,
1150 0L,
1151 0L,
1152 0L
1153};
1154
1155
1156static FiWord
1157CF33_executePath(FiEnv e1)
1158{
1159 return osExecutePath();
1160}
1161
1162static struct _FiProg tmp33_executePath = {
1163 (FiFun) CF33_executePath,
1164 0L,
1165 0L,
1166 0L,
1167 0L
1168};
1169
1170
1171static FiWord
1172CF34_pathLength(FiEnv e1, FiWord P0_s)
1173{
1174 return osPathLength(P0_s);
1175}
1176
1177static struct _FiProg tmp34_pathLength = {
1178 (FiFun) CF34_pathLength,
1179 0L,
1180 0L,
1181 0L,
1182 0L
1183};
1184
1185
1186static void
1187CF35_pathParse(FiEnv e1, FiWord P0_sr, FiWord P1_s1, FiWord P2_s2)
1188{
1189 osPathParse(P0_sr, P1_s1, P2_s2);
1190 return ;
1191}
1192
1193static struct _FiProg tmp35_pathParse = {
1194 (FiFun) CF35_pathParse,
1195 0L,
1196 0L,
1197 0L,
1198 0L
1199};
1200
1201
1202static FiWord
1203CF36_setBreakHandler(FiEnv e1, FiWord P0_sh)
1204{
1205 return osSetBreakHandler(P0_sh);
1206}
1207
1208static struct _FiProg tmp36_setBreakHandler = {
1209 (FiFun) CF36_setBreakHandler,
1210 0L,
1211 0L,
1212 0L,
1213 0L
1214};
1215
1216
1217static FiWord
1218CF37_setFaultHandler(FiEnv e1, FiWord P0_sh)
1219{
1220 return osSetFaultHandler(P0_sh);
1221}
1222
1223static struct _FiProg tmp37_setFaultHandler = {
1224 (FiFun) CF37_setFaultHandler,
1225 0L,
1226 0L,
1227 0L,
1228 0L
1229};
1230
1231
1232static FiWord
1233CF38_setLimitHandler(FiEnv e1, FiWord P0_sh)
1234{
1235 return osSetLimitHandler(P0_sh);
1236}
1237
1238static struct _FiProg tmp38_setLimitHandler = {
1239 (FiFun) CF38_setLimitHandler,
1240 0L,
1241 0L,
1242 0L,
1243 0L
1244};
1245
1246
1247static FiWord
1248CF39_setDangerHandler(FiEnv e1, FiWord P0_sh)
1249{
1250 return osSetDangerHandler(P0_sh);
1251}
1252
1253static struct _FiProg tmp39_setDangerHandler = {
1254 (FiFun) CF39_setDangerHandler,
1255 0L,
1256 0L,
1257 0L,
1258 0L
1259};
1260
1261
1262static FiWord
1263CF40_alloc(FiEnv e1, FiWord P0_u)
1264{
1265 return osAlloc((FiPtr) P0_u);
1266}
1267
1268static struct _FiProg tmp40_alloc = {
1269 (FiFun) CF40_alloc,
1270 0L,
1271 0L,
1272 0L,
1273 0L
1274};
1275
1276
1277static void
1278CF41_release(FiEnv e1, FiWord P0_p)
1279{
1280 osFree(P0_p);
1281 return ;
1282}
1283
1284static struct _FiProg tmp41_release = {
1285 (FiFun) CF41_release,
1286 0L,
1287 0L,
1288 0L,
1289 0L
1290};
1291
1292
1293static void
1294CF42_allocAlignHint(FiEnv e1, FiWord P0_u)
1295{
1296 osAllocAlignHint(P0_u);
1297 return ;
1298}
1299
1300static struct _FiProg tmp42_allocAlignHint = {
1301 (FiFun) CF42_allocAlignHint,
1302 0L,
1303 0L,
1304 0L,
1305 0L
1306};
1307
1308
1309static void
1310CF43_allocShow(FiEnv e1)
1311{
1312 osAllocShow();
1313 return ;
1314}
1315
1316static struct _FiProg tmp43_allocShow = {
1317 (FiFun) CF43_allocShow,
1318 0L,
1319 0L,
1320 0L,
1321 0L
1322};
1323
1324
1325static FiWord
1326CF44_memMap(FiEnv e1, FiWord P0_i)
1327{
1328 return osMemMap(P0_i);
1329}
1330
1331static struct _FiProg tmp44_memMap = {
1332 (FiFun) CF44_memMap,
1333 0L,
1334 0L,
1335 0L,
1336 0L
1337};
1338
1339
1340static FiWord
1341CF45_pointer_MINUS_init(FiEnv e1, FiSInt P0_idx)
1342{
1343 PFmt19 l1;
1344 l1 = (PFmt19) fiEnvLevel(e1)((FiEnv) (e1)->level);
1345 if (l1->X3) goto L0;
1346 l1->X3 = 1L;
1347 fiCCall0(void, (*pG_4PKVP_pointer))((*((void (*)())((*pG_4PKVP_pointer))->prog->fun))(((*pG_4PKVP_pointer
))->env));
1348L0: return (FiWord) (*pG_ZB66L_pointer__Pointer__476);
1349}
1350
1351static struct _FiProg tmp45_pointer_MINUS_init = {
1352 (FiFun) CF45_pointer_MINUS_init,
1353 0L,
1354 0L,
1355 0L,
1356 0L
1357};
1358
1359extern int
1360INIT__0_oslow()
1361{
1362
1363 extern int INIT__0_rtexns();
1364 extern int INIT__0_pointer();
1365 extern int INIT__0_runtime();
1366 static int initialized = 0;
1367 if (initialized)
1368 return 0L;
1369 else
1370 initialized = 1;
1371 C1_addLevel0 = &tmp1_addLevel0;
1372 C2_addLevel1 = &tmp2_addLevel1;
1373 C3_run = &tmp3_run;
1374 C4_run = &tmp4_run;
1375 C5_runQuoteWord = &tmp5_runQuoteWord;
1376 C6_canRunConcurrent_QMARK_ = &tmp6_canRunConcurrent_QMARK_;
1377 C7_cpuTime = &tmp7_cpuTime;
1378 C8_date = &tmp8_date;
1379 C9_getenv = &tmp9_getenv;
1380 C10_putenv = &tmp10_putenv;
1381 C11_putenvIsKept_QMARK_ = &tmp11_putenvIsKept_QMARK_;
1382 C12_curDirName = &tmp12_curDirName;
1383 C13_tmpDirName = &tmp13_tmpDirName;
1384 C14_fnameDirEqual = &tmp14_fnameDirEqual;
1385 C15_subdir = &tmp15_subdir;
1386 C16_subdirLength = &tmp16_subdirLength;
1387 C17_fnameParse = &tmp17_fnameParse;
1388 C18_fnameParseSize = &tmp18_fnameParseSize;
1389 C19_fnameUnparse = &tmp19_fnameUnparse;
1390 C20_fnameUnparseSize = &tmp20_fnameUnparseSize;
1391 C21_fnameTempSeed = &tmp21_fnameTempSeed;
1392 C22_fnameTempDir = &tmp22_fnameTempDir;
1393 C23_interactive_QMARK_ = &tmp23_interactive_QMARK_;
1394 C24_fileRemove = &tmp24_fileRemove;
1395 C25_fileRename = &tmp25_fileRename;
1396 C26_fileExists_QMARK_ = &tmp26_fileExists_QMARK_;
1397 C27_fileHash = &tmp27_fileHash;
1398 C28_fileSize = &tmp28_fileSize;
1399 C29_dirExists_QMARK_ = &tmp29_dirExists_QMARK_;
1400 C30_dirSwap = &tmp30_dirSwap;
1401 C31_includePath = &tmp31_includePath;
1402 C32_libraryPath = &tmp32_libraryPath;
1403 C33_executePath = &tmp33_executePath;
1404 C34_pathLength = &tmp34_pathLength;
1405 C35_pathParse = &tmp35_pathParse;
1406 C36_setBreakHandler = &tmp36_setBreakHandler;
1407 C37_setFaultHandler = &tmp37_setFaultHandler;
1408 C38_setLimitHandler = &tmp38_setLimitHandler;
1409 C39_setDangerHandler = &tmp39_setDangerHandler;
1410 C40_alloc = &tmp40_alloc;
1411 C41_release = &tmp41_release;
1412 C42_allocAlignHint = &tmp42_allocAlignHint;
1413 C43_allocShow = &tmp43_allocShow;
1414 C44_memMap = &tmp44_memMap;
1415 C45_pointer_MINUS_init = &tmp45_pointer_MINUS_init;
1416 C0_oslow = &tmp0_oslow;
1417 fiExportGlobal("G_JNIQR_oslow", G_JNIQR_oslow)fiExportGlobalFun("G_JNIQR_oslow", (Ptr) &G_JNIQR_oslow, sizeof
(G_JNIQR_oslow));
1418 fiExportGlobal("G_VL551_oslow__OperatingSystem",fiExportGlobalFun("G_VL551_oslow__OperatingSystem", (Ptr) &
G_VL551_oslow__OperatingSystem, sizeof(G_VL551_oslow__OperatingSystem
))
1419 G_VL551_oslow__OperatingSystem)fiExportGlobalFun("G_VL551_oslow__OperatingSystem", (Ptr) &
G_VL551_oslow__OperatingSystem, sizeof(G_VL551_oslow__OperatingSystem
));
1420 fiImportGlobal("G_NQYQM_noOperation", pG_NQYQM_noOperation)fiImportGlobalFun("G_NQYQM_noOperation", (Ptr *) &pG_NQYQM_noOperation
);
1421 fiImportGlobal("G_XIPRL_runtime", pG_XIPRL_runtime)fiImportGlobalFun("G_XIPRL_runtime", (Ptr *) &pG_XIPRL_runtime
);
1422 fiImportGlobal("G_Z2868_rtConstNameFn", pG_Z2868_rtConstNameFn)fiImportGlobalFun("G_Z2868_rtConstNameFn", (Ptr *) &pG_Z2868_rtConstNameFn
);
1423 fiImportGlobal("G_CSVBL_domainAddNameFn_BANG_",fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) &
pG_CSVBL_domainAddNameFn_BANG_)
1424 pG_CSVBL_domainAddNameFn_BANG_)fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) &
pG_CSVBL_domainAddNameFn_BANG_);
1425 fiImportGlobal("G_XS55O_domainAddHash_BANG_",fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) &
pG_XS55O_domainAddHash_BANG_)
1426 pG_XS55O_domainAddHash_BANG_)fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) &
pG_XS55O_domainAddHash_BANG_);
1427 fiImportGlobal("G_PA5R2_domainAddExports_BANG_",fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) &
pG_PA5R2_domainAddExports)
1428 pG_PA5R2_domainAddExports)fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) &
pG_PA5R2_domainAddExports);
1429 fiImportGlobal("G_KK8CX_rtLazyDomFrInit", pG_KK8CX_rtLazyDomFrInit)fiImportGlobalFun("G_KK8CX_rtLazyDomFrInit", (Ptr *) &pG_KK8CX_rtLazyDomFrInit
);
1430 fiImportGlobal("G_QRAZA_rtDelayedGetExport",fiImportGlobalFun("G_QRAZA_rtDelayedGetExport", (Ptr *) &
pG_QRAZA_rtDelayedGetExport)
1431 pG_QRAZA_rtDelayedGetExport)fiImportGlobalFun("G_QRAZA_rtDelayedGetExport", (Ptr *) &
pG_QRAZA_rtDelayedGetExport);
1432 fiImportGlobal("G_ZB66L_pointer__Pointer__4769",fiImportGlobalFun("G_ZB66L_pointer__Pointer__4769", (Ptr *) &
pG_ZB66L_pointer__Pointer__476)
1433 pG_ZB66L_pointer__Pointer__476)fiImportGlobalFun("G_ZB66L_pointer__Pointer__4769", (Ptr *) &
pG_ZB66L_pointer__Pointer__476);
1434 fiImportGlobal("G_MNZVJ_stdGetRetWord0", pG_MNZVJ_stdGetRetWord0)fiImportGlobalFun("G_MNZVJ_stdGetRetWord0", (Ptr *) &pG_MNZVJ_stdGetRetWord0
);
1435 fiImportGlobal("G_6L1ZC_domainMake", pG_6L1ZC_domainMake)fiImportGlobalFun("G_6L1ZC_domainMake", (Ptr *) &pG_6L1ZC_domainMake
);
1436 fiImportGlobal("G_822GM_rtAddStrings", pG_822GM_rtAddStrings)fiImportGlobalFun("G_822GM_rtAddStrings", (Ptr *) &pG_822GM_rtAddStrings
);
1437 fiImportGlobal("G_4PKVP_pointer", pG_4PKVP_pointer)fiImportGlobalFun("G_4PKVP_pointer", (Ptr *) &pG_4PKVP_pointer
);
1438 if (fiFileInitializer) {
1439 fiFileInitializer("rtexns");
1440 fiFileInitializer("pointer");
1441 fiFileInitializer("runtime");
1442 }
1443 else {
1444 INIT__0_rtexns();
1445 INIT__0_pointer();
1446 INIT__0_runtime();
1447 }
1448 /* "---------------------------" */
1449 return 0L;
1450}
1451
1452FiWord G_VL551_oslow__OperatingSystem;
1453
1454static struct _FiClos tmpClos0_oslow = {
1455 0L,
1456 (FiProg) &tmp0_oslow
1457};
1458FiClos G_JNIQR_oslow = &tmpClos0_oslow;