Bug Summary

File:lib/libfoamlib/al/character.c
Warning:line 254, 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 character.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/character.c
1/*
2 * C code generated by Aldor from file "character.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;
13struct Fmt5 {
14 FiSInt X0_size;
15 FiSInt X1_nsize;
16 FiWord X2_values;
17};
18struct Fmt6 {
19 FiWord X0_x;
20};
21struct Fmt7 {
22 FiClos X0_case;
23 FiClos X1_hash;
24 FiClos X2__LT__LT_;
25 FiClos X3__LT__LT_;
26 FiClos X4_upper;
27 FiClos X5_lower;
28 FiClos X6__GT__EQ_;
29 FiClos X7__LT__EQ_;
30 FiClos X8__GT_;
31 FiClos X9__LT_;
32 FiClos X10__TILDE__EQ_;
33 FiClos X11__EQ_;
34 FiClos X12_letter_QMARK_;
35 FiClos X13_digit_QMARK_;
36 FiWord X14__SHARP_;
37 FiWord X15_max;
38 FiClos X16_max;
39 FiWord X17_min;
40 FiClos X18_min;
41 FiWord X19_Rep;
42 FiSInt X20;
43};
44struct Fmt8 {
45 FiPtr X0_empty;
46};
47struct Fmt9 {
48 FiWord X0_Character;
49 FiWord X1_Machine;
50 FiWord X2_OrderedFinite;
51 FiWord X3_Char;
52 FiWord X4_max;
53 FiWord X5_min;
54 FiWord X6_dom;
55 FiBool X7;
56 FiBool X8;
57 FiBool X9;
58};
59struct Fmt10 {
60 FiClos X0;
61 FiClos X1;
62 FiClos X2;
63};
64static FiProg C0_character;
65static void CF0_character(FiEnv e1);
66static FiProg C1_addLevel0;
67static FiClos CF1_addLevel0(FiEnv e1, FiWord P0_domain);
68static FiProg C2_addLevel1;
69static FiWord CF2_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);
70static FiProg C3_digit_QMARK_;
71static FiWord CF3_digit_QMARK_(FiEnv e1, FiWord P0_c);
72static FiProg C4_letter_QMARK_;
73static FiWord CF4_letter_QMARK_(FiEnv e1, FiWord P0_c);
74static FiProg C5__EQ_;
75static FiWord CF5__EQ_(FiEnv e1, FiWord P0_a, FiWord P1_b);
76static FiProg C6__TILDE__EQ_;
77static FiWord CF6__TILDE__EQ_(FiEnv e1, FiWord P0_a, FiWord P1_b);
78static FiProg C7__LT_;
79static FiWord CF7__LT_(FiEnv e1, FiWord P0_a, FiWord P1_b);
80static FiProg C8__GT_;
81static FiWord CF8__GT_(FiEnv e1, FiWord P0_a, FiWord P1_b);
82static FiProg C9__LT__EQ_;
83static FiWord CF9__LT__EQ_(FiEnv e1, FiWord P0_a, FiWord P1_b);
84static FiProg C10__GT__EQ_;
85static FiWord CF10__GT__EQ_(FiEnv e1, FiWord P0_a, FiWord P1_b);
86static FiProg C11_lower;
87static FiWord CF11_lower(FiEnv e1, FiWord P0_c);
88static FiProg C12_upper;
89static FiWord CF12_upper(FiEnv e1, FiWord P0_c);
90static FiProg C13__LT__LT_;
91static FiWord CF13__LT__LT_(FiEnv e1, FiWord P0_w, FiWord P1_c);
92static FiProg C14__LT__LT_;
93static FiClos CF14__LT__LT_(FiEnv e1, FiWord P0_x);
94static FiProg C15__LT__LT_;
95static FiWord CF15__LT__LT_(FiEnv e1, FiWord P0_p);
96static FiProg C16_hash;
97static FiWord CF16_hash(FiEnv e1, FiWord P0_x);
98static FiProg C17_case;
99static FiWord CF17_case(FiEnv e1, FiWord P0_x, FiWord P1_y);
100static FiProg C18_max;
101static FiWord CF18_max(FiEnv e1, FiWord P0_x, FiWord P1_y);
102static FiProg C19_min;
103static FiWord CF19_min(FiEnv e1, FiWord P0_x, FiWord P1_y);
104static FiProg C20_extend0;
105static FiClos CF20_extend0(FiEnv e1, FiWord P0_domain);
106static FiProg C21_machine_MINUS_init;
107static FiWord CF21_machine_MINUS_init(FiEnv e1, FiSInt P0_idx);
108static FiProg C22_basic_MINUS_init;
109static FiWord CF22_basic_MINUS_init(FiEnv e1, FiSInt P0_idx);
110static FiProg C23_foamcat_MINUS_init;
111static FiWord CF23_foamcat_MINUS_init(FiEnv e1, FiSInt P0_idx);
112extern FiClos G_TATV6_character;
113static FiClos *pG_NQYQM_noOperation;
114extern FiWord G_KHTWK_character__Character__;
115extern FiWord G_OOK5T_character__Character__;
116static FiClos *pG_XIPRL_runtime;
117static FiClos *pG_Z2868_rtConstNameFn;
118static FiClos *pG_CSVBL_domainAddNameFn_BANG_;
119static FiClos *pG_XS55O_domainAddHash_BANG_;
120static FiClos *pG_PA5R2_domainAddExports;
121static FiClos *pG_IJHFC_domainMakeDispatch;
122static FiWord *pG_JWK7S_foamcat__OrderedFinit;
123static FiClos *pG_NOX7X_rtLazyCatFrInit;
124static FiClos *pG_V9SO_domainAddDefaults;
125static FiClos *pG_BEY7_domainMakeDummy;
126static FiClos *pG_AK1EB_domainFill_BANG_;
127static FiWord *pG_1B0E6_machine__Machine__915;
128static FiClos *pG_KK8CX_rtLazyDomFrInit;
129static FiClos *pG_1X2RM_domainGetExport_BANG_;
130static FiWord *pG_OT2IM_basic__Boolean__72774;
131static FiWord *pG_SH2SP_basic__TextWriter__36;
132static FiWord *pG_CVCR_basic__Character__4158;
133static FiWord *pG_8QOPO_basic__MachineInteger;
134static FiClos *pG_4NZQI_lazyGetExport_BANG_;
135static FiClos *pG_R3D1K_lazyForceImport;
136static FiWord *pG_U7T4R_basic__Integer__11769;
137static FiClos *pG_6L1ZC_domainMake;
138static FiClos *pG_G3BWN_extendFill_BANG_;
139static FiClos *pG_FZLG1_extendMake;
140static FiClos *pG_822GM_rtAddStrings;
141static FiClos *pG_JNB1W_machine;
142static FiClos *pG_NO017_basic;
143static FiClos *pG_H8TZ5_foamcat;
144
145
146
147static void
148CF0_character(FiEnv e1)
149{
150 PFmt5 T5, T6;
151 FiWord *T3, *T4;
152 FiClos T0, T1, T2;
153 PFmt9 l0;
154 FiEnv e0;
155 l0 = fi0New(struct Fmt9 , CENSUS_EnvLevel)((struct Fmt9 *) fi0Alloc(sizeof(struct Fmt9), (19)));
156 e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
157 fiCCall0(void, (*pG_XIPRL_runtime))((*((void (*)())((*pG_XIPRL_runtime))->prog->fun))(((*pG_XIPRL_runtime
))->env));
158 G_TATV6_character = (FiClos) (*pG_NQYQM_noOperation);
159 T0 = fiClosMake(e0, C23_foamcat_MINUS_init)fiClosMakeFun(e0, (FiProg) (C23_foamcat_MINUS_init));
160 T1 = fiClosMake(e0, C21_machine_MINUS_init)fiClosMakeFun(e0, (FiProg) (C21_machine_MINUS_init));
161 T2 = fiClosMake(e0, C22_basic_MINUS_init)fiClosMakeFun(e0, (FiProg) (C22_basic_MINUS_init));
162 G_KHTWK_character__Character__ = fiCCall1(FiWord, (*((*((FiWord (*)())((* pG_6L1ZC_domainMake))->prog->fun)
)(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg
) (C1_addLevel0))))
163 pG_6L1ZC_domainMake), fiClosMake(e0, C1_addLevel0))((*((FiWord (*)())((* pG_6L1ZC_domainMake))->prog->fun)
)(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg
) (C1_addLevel0))));
164 G_OOK5T_character__Character__ = fiCCall1(FiWord, (*((*((FiWord (*)())((* pG_FZLG1_extendMake))->prog->fun)
)(((* pG_FZLG1_extendMake))->env,fiClosMakeFun(e0, (FiProg
) (C20_extend0))))
165 pG_FZLG1_extendMake), fiClosMake(e0, C20_extend0))((*((FiWord (*)())((* pG_FZLG1_extendMake))->prog->fun)
)(((* pG_FZLG1_extendMake))->env,fiClosMakeFun(e0, (FiProg
) (C20_extend0))));
166 l0->X7 = 0L;
167 l0->X8 = 0L;
168 l0->X9 = 0L;
169 fiARRNEW_Word(T3, FiWord*, 21L)((T3) = (FiWord*) fiArrNew_Word(21L));
170 fiARRNEW_Word(T4, FiWord*, 21L)((T4) = (FiWord*) fiArrNew_Word(21L));
171 T3[0L] = (FiWord) 315787122L;
172 T4[0L] = (FiWord) "tab";
173 T3[1L] = (FiWord) 51492427L;
174 T4[1L] = (FiWord) "<=";
175 T3[2L] = (FiWord) 200102L;
176 T4[2L] = (FiWord) "=";
177 T3[3L] = (FiWord) 200103L;
178 T4[3L] = (FiWord) ">";
179 T3[4L] = (FiWord) 51509389L;
180 T4[4L] = (FiWord) "~=";
181 T3[5L] = (FiWord) 158725806L;
182 T4[5L] = (FiWord) "letter\?";
183 T3[6L] = (FiWord) 200076L;
184 T4[6L] = (FiWord) "#";
185 T3[7L] = (FiWord) 316169058L;
186 T4[7L] = (FiWord) "Rep";
187 T3[8L] = (FiWord) 318461825L;
188 T4[8L] = (FiWord) "max";
189 T3[9L] = (FiWord) 493486801L;
190 T4[9L] = (FiWord) "newline";
191 T3[10L] = (FiWord) 51492941L;
192 T4[10L] = (FiWord) ">=";
193 T3[11L] = (FiWord) 814719174L;
194 T4[11L] = (FiWord) "digit\?";
195 T3[12L] = (FiWord) 318459775L;
196 T4[12L] = (FiWord) "min";
197 T3[13L] = (FiWord) 255806968L;
198 T4[13L] = (FiWord) "sample";
199 T3[14L] = (FiWord) 864625472L;
200 T4[14L] = (FiWord) "case";
201 T3[15L] = (FiWord) 983329337L;
202 T4[15L] = (FiWord) "upper";
203 T3[16L] = (FiWord) 800877593L;
204 T4[16L] = (FiWord) "space";
205 T3[17L] = (FiWord) 239585078L;
206 T4[17L] = (FiWord) "lower";
207 T3[18L] = (FiWord) 746853960L;
208 T4[18L] = (FiWord) "hash";
209 T3[19L] = (FiWord) 51492426L;
210 T4[19L] = (FiWord) "<<";
211 T3[20L] = (FiWord) 200101L;
212 T4[20L] = (FiWord) "<";
213 T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
214 T5->X0_size = 21L;
215 T5->X1_nsize = 21L;
216 T5->X2_values = (FiWord) T3;
217 T6 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
218 T6->X0_size = 21L;
219 T6->X1_nsize = 21L;
220 T6->X2_values = (FiWord) T4;
221 fiCCall2(void, (*pG_822GM_rtAddStrings), (FiWord) T5, (FiWord) T6)((*((void (*)())((*pG_822GM_rtAddStrings))->prog->fun))
(((*pG_822GM_rtAddStrings))->env,(FiWord) T5,(FiWord) T6));
222 l0->X2_OrderedFinite = fiCCall2(FiWord, (*((*((FiWord (*)())((* pG_NOX7X_rtLazyCatFrInit))->prog->
fun))(((* pG_NOX7X_rtLazyCatFrInit))->env,T0,0L))
223 pG_NOX7X_rtLazyCatFrInit), T0, 0L)((*((FiWord (*)())((* pG_NOX7X_rtLazyCatFrInit))->prog->
fun))(((* pG_NOX7X_rtLazyCatFrInit))->env,T0,0L));
224 l0->X1_Machine = fiCCall2(FiWord, (*pG_KK8CX_rtLazyDomFrInit),((*((FiWord (*)())((*pG_KK8CX_rtLazyDomFrInit))->prog->
fun))(((*pG_KK8CX_rtLazyDomFrInit))->env,T1,0L))
225 T1, 0L)((*((FiWord (*)())((*pG_KK8CX_rtLazyDomFrInit))->prog->
fun))(((*pG_KK8CX_rtLazyDomFrInit))->env,T1,0L));
226 l0->X6_dom = l0->X1_Machine;
227 l0->X3_Char = fiCCall3(FiWord, (*pG_1X2RM_domainGetExport_BANG_),((*((FiWord (*)())((*pG_1X2RM_domainGetExport_BANG_))->prog
->fun))(((*pG_1X2RM_domainGetExport_BANG_))->env,l0->
X6_dom,321172770L,547382598L))
228 l0->X6_dom, 321172770L, 547382598L)((*((FiWord (*)())((*pG_1X2RM_domainGetExport_BANG_))->prog
->fun))(((*pG_1X2RM_domainGetExport_BANG_))->env,l0->
X6_dom,321172770L,547382598L));
229 l0->X0_Character = fiCCall2(FiWord, (*pG_KK8CX_rtLazyDomFrInit),((*((FiWord (*)())((*pG_KK8CX_rtLazyDomFrInit))->prog->
fun))(((*pG_KK8CX_rtLazyDomFrInit))->env,T2,2L))
230 T2, 2L)((*((FiWord (*)())((*pG_KK8CX_rtLazyDomFrInit))->prog->
fun))(((*pG_KK8CX_rtLazyDomFrInit))->env,T2,2L));
231 l0->X5_min = fiCCall3(FiWord, (*pG_4NZQI_lazyGetExport_BANG_),((*((FiWord (*)())((*pG_4NZQI_lazyGetExport_BANG_))->prog->
fun))(((*pG_4NZQI_lazyGetExport_BANG_))->env,l0->X6_dom
,318459775L,321172770L))
232 l0->X6_dom, 318459775L, 321172770L)((*((FiWord (*)())((*pG_4NZQI_lazyGetExport_BANG_))->prog->
fun))(((*pG_4NZQI_lazyGetExport_BANG_))->env,l0->X6_dom
,318459775L,321172770L));
233 l0->X4_max = fiCCall3(FiWord, (*pG_4NZQI_lazyGetExport_BANG_),((*((FiWord (*)())((*pG_4NZQI_lazyGetExport_BANG_))->prog->
fun))(((*pG_4NZQI_lazyGetExport_BANG_))->env,l0->X6_dom
,318461825L,321172770L))
234 l0->X6_dom, 318461825L, 321172770L)((*((FiWord (*)())((*pG_4NZQI_lazyGetExport_BANG_))->prog->
fun))(((*pG_4NZQI_lazyGetExport_BANG_))->env,l0->X6_dom
,318461825L,321172770L));
235 return ;
236}
237
238static struct _FiProg tmp0_character = {
239 (FiFun) CF0_character,
240 0L,
241 0L,
242 0L,
243 0L
244};
245
246
247static FiClos
248CF1_addLevel0(FiEnv e1, FiWord P0_domain)
249{
250 FiWord T0;
251 FiEnv e0;
252 PFmt9 l1;
253 e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);
254 l1 = (PFmt9) fiEnvLevel(e1)((FiEnv) (e1)->level);
Value stored to 'l1' is never read
255 T0 = fiCCall1(FiWord, (*pG_Z2868_rtConstNameFn), "Character")((*((FiWord (*)())((*pG_Z2868_rtConstNameFn))->prog->fun
))(((*pG_Z2868_rtConstNameFn))->env,"Character"));
256 fiCCall2(FiWord, (*pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((*((FiWord (*)())((*pG_CSVBL_domainAddNameFn_BANG_))->prog
->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain
,T0));
257 fiCCall2(FiWord, (*pG_XS55O_domainAddHash_BANG_), P0_domain,((*((FiWord (*)())((*pG_XS55O_domainAddHash_BANG_))->prog->
fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,803414590L
))
258 803414590L)((*((FiWord (*)())((*pG_XS55O_domainAddHash_BANG_))->prog->
fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,803414590L
));
259 return fiClosMake(e0, C2_addLevel1)fiClosMakeFun(e0, (FiProg) (C2_addLevel1));
260}
261
262static struct _FiProg tmp1_addLevel0 = {
263 (FiFun) CF1_addLevel0,
264 0L,
265 0L,
266 0L,
267 0L
268};
269
270
271static FiWord
272CF2_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)
273{
274 FiSInt T8, T9, T10, T11, T12, T13, T14, T15, T16, T17, T18, T19, T20;
275 FiWord *T0, *T1, *T2, T6, T7;
276 PFmt5 T3, T4, T5;
277 PFmt7 l0;
278 FiEnv e2, e0;
279 PFmt9 l2;
280 l0 = fi0New(struct Fmt7 , CENSUS_EnvLevel)((struct Fmt7 *) fi0Alloc(sizeof(struct Fmt7), (19)));
281 e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
282 e2 = fiEnvNext(e1)((FiEnv) (e1)->next);
283 l2 = (PFmt9) fiEnvLevel(e2)((FiEnv) (e2)->level);
284 fiARRNEW_Word(T0, FiWord*, 24L)((T0) = (FiWord*) fiArrNew_Word(24L));
285 fiARRNEW_Word(T1, FiWord*, 24L)((T1) = (FiWord*) fiArrNew_Word(24L));
286 fiARRNEW_Word(T2, FiWord*, 24L)((T2) = (FiWord*) fiArrNew_Word(24L));
287 T6 = fiCCall1(FiWord, (*pG_IJHFC_domainMakeDispatch), P0_domain)((*((FiWord (*)())((*pG_IJHFC_domainMakeDispatch))->prog->
fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));
288 l0->X20 = (FiSInt) P1_hashcode;
289 l0->X13_digit_QMARK_ = fiClosMake(e0, C3_digit_QMARK_)fiClosMakeFun(e0, (FiProg) (C3_digit_QMARK_));
290 l0->X12_letter_QMARK_ = fiClosMake(e0, C4_letter_QMARK_)fiClosMakeFun(e0, (FiProg) (C4_letter_QMARK_));
291 l0->X11__EQ_ = fiClosMake(e0, C5__EQ_)fiClosMakeFun(e0, (FiProg) (C5__EQ_));
292 l0->X10__TILDE__EQ_ = fiClosMake(e0, C6__TILDE__EQ_)fiClosMakeFun(e0, (FiProg) (C6__TILDE__EQ_));
293 l0->X9__LT_ = fiClosMake(e0, C7__LT_)fiClosMakeFun(e0, (FiProg) (C7__LT_));
294 l0->X8__GT_ = fiClosMake(e0, C8__GT_)fiClosMakeFun(e0, (FiProg) (C8__GT_));
295 l0->X7__LT__EQ_ = fiClosMake(e0, C9__LT__EQ_)fiClosMakeFun(e0, (FiProg) (C9__LT__EQ_));
296 l0->X6__GT__EQ_ = fiClosMake(e0, C10__GT__EQ_)fiClosMakeFun(e0, (FiProg) (C10__GT__EQ_));
297 l0->X5_lower = fiClosMake(e0, C11_lower)fiClosMakeFun(e0, (FiProg) (C11_lower));
298 l0->X4_upper = fiClosMake(e0, C12_upper)fiClosMakeFun(e0, (FiProg) (C12_upper));
299 l0->X2__LT__LT_ = fiClosMake(e0, C13__LT__LT_)fiClosMakeFun(e0, (FiProg) (C13__LT__LT_));
300 l0->X3__LT__LT_ = fiClosMake(e0, C14__LT__LT_)fiClosMakeFun(e0, (FiProg) (C14__LT__LT_));
301 l0->X1_hash = fiClosMake(e0, C16_hash)fiClosMakeFun(e0, (FiProg) (C16_hash));
302 l0->X0_case = fiClosMake(e0, C17_case)fiClosMakeFun(e0, (FiProg) (C17_case));
303 l0->X16_max = fiClosMake(e0, C18_max)fiClosMakeFun(e0, (FiProg) (C18_max));
304 l0->X18_min = fiClosMake(e0, C19_min)fiClosMakeFun(e0, (FiProg) (C19_min));
305 fiSINT_HASHCOMBINE(T17, FiSInt, l0->X20, 51489085L)((T17) = (FiSInt) fiSIntHashCombine(l0->X20, 51489085L));
306 fiSINT_HASHCOMBINE(T18, FiSInt, 32236L, T17)((T18) = (FiSInt) fiSIntHashCombine(32236L, T17));
307 fiSINT_HASHCOMBINE(T8, FiSInt, 740244383L, T18)((T8) = (FiSInt) fiSIntHashCombine(740244383L, T18));
308 fiSINT_HASHCOMBINE(T19, FiSInt, l0->X20, T17)((T19) = (FiSInt) fiSIntHashCombine(l0->X20, T17));
309 fiSINT_HASHCOMBINE(T20, FiSInt, 32236L, T19)((T20) = (FiSInt) fiSIntHashCombine(32236L, T19));
310 fiSINT_HASHCOMBINE(T9, FiSInt, 740244383L, T20)((T9) = (FiSInt) fiSIntHashCombine(740244383L, T20));
311 fiSINT_HASHCOMBINE(T10, FiSInt, l0->X20, T18)((T10) = (FiSInt) fiSIntHashCombine(l0->X20, T18));
312 fiSINT_HASHCOMBINE(T11, FiSInt, 182752316L, fiSIntHashCombine((FiSInt)((T11) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X20, ( FiSInt) 102896482L))))
313 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X20, (((T11) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X20, ( FiSInt) 102896482L))))
314 FiSInt) 102896482L)))((T11) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X20, ( FiSInt) 102896482L))));
315 fiSINT_HASHCOMBINE(T12, FiSInt, 755420535L, T18)((T12) = (FiSInt) fiSIntHashCombine(755420535L, T18));
316 fiSINT_HASHCOMBINE(T13, FiSInt, 33717313L, T18)((T13) = (FiSInt) fiSIntHashCombine(33717313L, T18));
317 fiSINT_HASHCOMBINE(T14, FiSInt, l0->X20, T20)((T14) = (FiSInt) fiSIntHashCombine(l0->X20, T20));
318 T15 = l0->X20;
319 T3 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
320 T3->X0_size = 24L;
321 T3->X1_nsize = 24L;
322 T3->X2_values = (FiWord) T0;
323 T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
324 T4->X0_size = 24L;
325 T4->X1_nsize = 24L;
326 T4->X2_values = (FiWord) T1;
327 T5 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
328 T5->X0_size = 24L;
329 T5->X1_nsize = 24L;
330 T5->X2_values = (FiWord) T2;
331 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)
);
332 fiCCall3(FiWord, (*pG_V9SO_domainAddDefaults), P0_domain, l2->((*((FiWord (*)())((*pG_V9SO_domainAddDefaults))->prog->
fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,l2->
X2_OrderedFinite,T6))
333 X2_OrderedFinite, T6)((*((FiWord (*)())((*pG_V9SO_domainAddDefaults))->prog->
fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,l2->
X2_OrderedFinite,T6));
334 l0->X19_Rep = fiCCall0(FiWord, (*pG_BEY7_domainMakeDummy))((*((FiWord (*)())((*pG_BEY7_domainMakeDummy))->prog->fun
))(((*pG_BEY7_domainMakeDummy))->env));
335 T7 = l0->X19_Rep;
336 l0->X19_Rep = l2->X3_Char;
337 fiCCall2(void, (*pG_AK1EB_domainFill_BANG_), T7, l0->X19_Rep)((*((void (*)())((*pG_AK1EB_domainFill_BANG_))->prog->fun
))(((*pG_AK1EB_domainFill_BANG_))->env,T7,l0->X19_Rep));
338 l0->X19_Rep = T7;
339 T0[0L] = (FiWord) 316169058L;
340 T1[0L] = (FiWord) 547382598L;
341 T2[0L] = l0->X19_Rep;
342 T0[1L] = (FiWord) 814719174L;
343 T1[1L] = (FiWord) T8;
344 T2[1L] = (FiWord) l0->X13_digit_QMARK_;
345 T0[2L] = (FiWord) 158725806L;
346 T1[2L] = (FiWord) T8;
347 T2[2L] = (FiWord) l0->X12_letter_QMARK_;
348 T0[3L] = (FiWord) 200102L;
349 T1[3L] = (FiWord) T9;
350 T2[3L] = (FiWord) l0->X11__EQ_;
351 T0[4L] = (FiWord) 51509389L;
352 T1[4L] = (FiWord) T9;
353 T2[4L] = (FiWord) l0->X10__TILDE__EQ_;
354 T0[5L] = (FiWord) 200101L;
355 T1[5L] = (FiWord) T9;
356 T2[5L] = (FiWord) l0->X9__LT_;
357 T0[6L] = (FiWord) 200103L;
358 T1[6L] = (FiWord) T9;
359 T2[6L] = (FiWord) l0->X8__GT_;
360 T0[7L] = (FiWord) 51492427L;
361 T1[7L] = (FiWord) T9;
362 T2[7L] = (FiWord) l0->X7__LT__EQ_;
363 T0[8L] = (FiWord) 51492941L;
364 T1[8L] = (FiWord) T9;
365 T2[8L] = (FiWord) l0->X6__GT__EQ_;
366 T0[9L] = (FiWord) 239585078L;
367 T1[9L] = (FiWord) T10;
368 T2[9L] = (FiWord) l0->X5_lower;
369 T0[10L] = (FiWord) 983329337L;
370 T1[10L] = (FiWord) T10;
371 T2[10L] = (FiWord) l0->X4_upper;
372 T0[11L] = (FiWord) 51492426L;
373 T1[11L] = (FiWord) T11;
374 T2[11L] = (FiWord) l0->X2__LT__LT_;
375 T0[12L] = (FiWord) 51492426L;
376 T1[12L] = (FiWord) T12;
377 T2[12L] = (FiWord) l0->X3__LT__LT_;
378 T0[13L] = (FiWord) 746853960L;
379 T1[13L] = (FiWord) T13;
380 T2[13L] = (FiWord) l0->X1_hash;
381 T0[14L] = (FiWord) 864625472L;
382 T1[14L] = (FiWord) T9;
383 T2[14L] = (FiWord) l0->X0_case;
384 T0[15L] = (FiWord) 318461825L;
385 T1[15L] = (FiWord) T14;
386 T2[15L] = (FiWord) l0->X16_max;
387 T0[16L] = (FiWord) 318459775L;
388 T1[16L] = (FiWord) T14;
389 T2[16L] = (FiWord) l0->X18_min;
390 T0[17L] = (FiWord) 255806968L;
391 T1[17L] = (FiWord) T15;
392 T2[17L] = (FiWord) 32L;
393 T0[18L] = (FiWord) 800877593L;
394 T1[18L] = (FiWord) T15;
395 T2[18L] = (FiWord) 32L;
396 T0[19L] = (FiWord) 493486801L;
397 T1[19L] = (FiWord) T15;
398 T2[19L] = (FiWord) 10L;
399 T0[20L] = (FiWord) 315787122L;
400 T1[20L] = (FiWord) T15;
401 T2[20L] = (FiWord) 9L;
402 l0->X17_min = fiCCall1(FiWord, (*pG_R3D1K_lazyForceImport), l2->((*((FiWord (*)())((*pG_R3D1K_lazyForceImport))->prog->
fun))(((*pG_R3D1K_lazyForceImport))->env,l2-> X5_min))
403 X5_min)((*((FiWord (*)())((*pG_R3D1K_lazyForceImport))->prog->
fun))(((*pG_R3D1K_lazyForceImport))->env,l2-> X5_min));
404 T0[21L] = (FiWord) 318459775L;
405 T1[21L] = (FiWord) T15;
406 T2[21L] = l0->X17_min;
407 l0->X15_max = fiCCall1(FiWord, (*pG_R3D1K_lazyForceImport), l2->((*((FiWord (*)())((*pG_R3D1K_lazyForceImport))->prog->
fun))(((*pG_R3D1K_lazyForceImport))->env,l2-> X4_max))
408 X4_max)((*((FiWord (*)())((*pG_R3D1K_lazyForceImport))->prog->
fun))(((*pG_R3D1K_lazyForceImport))->env,l2-> X4_max));
409 T0[22L] = (FiWord) 318461825L;
410 T1[22L] = (FiWord) T15;
411 T2[22L] = l0->X15_max;
412 T16 = (FiSInt) (FiChar) fiCCall1(FiWord, (*((*((FiWord (*)())((* pG_R3D1K_lazyForceImport))->prog->
fun))(((* pG_R3D1K_lazyForceImport))->env,l2->X4_max))
413 pG_R3D1K_lazyForceImport), l2->X4_max)((*((FiWord (*)())((* pG_R3D1K_lazyForceImport))->prog->
fun))(((* pG_R3D1K_lazyForceImport))->env,l2->X4_max)) - (FiSInt) (FiChar)
414 fiCCall1(FiWord, (*pG_R3D1K_lazyForceImport), l2->X5_min)((*((FiWord (*)())((*pG_R3D1K_lazyForceImport))->prog->
fun))(((*pG_R3D1K_lazyForceImport))->env,l2->X5_min)) +
415 1L;
416 fiSINT_TO_BINT(l0->X14__SHARP_, FiWord, T16)((l0->X14__SHARP_) = (FiWord) fiSIntToBInt(T16));
417 T0[23L] = (FiWord) 200076L;
418 T1[23L] = (FiWord) 484208045L;
419 T2[23L] = l0->X14__SHARP_;
420 return P0_domain;
421}
422
423static struct _FiProg tmp2_addLevel1 = {
424 (FiFun) CF2_addLevel1,
425 0L,
426 0L,
427 0L,
428 0L
429};
430
431
432static FiWord
433CF3_digit_QMARK_(FiEnv e1, FiWord P0_c)
434{
435 FiBool T0;
436 fiCHAR_IS_DIGIT(T0, FiBool, (FiChar) P0_c)((T0) = (FiBool) fiCharIsDigit((FiChar) P0_c));
437 return (FiWord) T0;
438}
439
440static struct _FiProg tmp3_digit_QMARK_ = {
441 (FiFun) CF3_digit_QMARK_,
442 0L,
443 0L,
444 0L,
445 0L
446};
447
448
449static FiWord
450CF4_letter_QMARK_(FiEnv e1, FiWord P0_c)
451{
452 FiBool T0;
453 fiCHAR_IS_LETTER(T0, FiBool, (FiChar) P0_c)((T0) = (FiBool) fiCharIsLetter((FiChar) P0_c));
454 return (FiWord) T0;
455}
456
457static struct _FiProg tmp4_letter_QMARK_ = {
458 (FiFun) CF4_letter_QMARK_,
459 0L,
460 0L,
461 0L,
462 0L
463};
464
465
466static FiWord
467CF5__EQ_(FiEnv e1, FiWord P0_a, FiWord P1_b)
468{
469 return (FiWord) ((FiChar) P0_a == (FiChar) P1_b);
470}
471
472static struct _FiProg tmp5__EQ_ = {
473 (FiFun) CF5__EQ_,
474 0L,
475 0L,
476 0L,
477 0L
478};
479
480
481static FiWord
482CF6__TILDE__EQ_(FiEnv e1, FiWord P0_a, FiWord P1_b)
483{
484 return (FiWord) ((FiChar) P0_a != (FiChar) P1_b);
485}
486
487static struct _FiProg tmp6__TILDE__EQ_ = {
488 (FiFun) CF6__TILDE__EQ_,
489 0L,
490 0L,
491 0L,
492 0L
493};
494
495
496static FiWord
497CF7__LT_(FiEnv e1, FiWord P0_a, FiWord P1_b)
498{
499 return (FiWord) ((FiChar) P0_a < (FiChar) P1_b);
500}
501
502static struct _FiProg tmp7__LT_ = {
503 (FiFun) CF7__LT_,
504 0L,
505 0L,
506 0L,
507 0L
508};
509
510
511static FiWord
512CF8__GT_(FiEnv e1, FiWord P0_a, FiWord P1_b)
513{
514 return (FiWord) ((FiChar) P1_b < (FiChar) P0_a);
515}
516
517static struct _FiProg tmp8__GT_ = {
518 (FiFun) CF8__GT_,
519 0L,
520 0L,
521 0L,
522 0L
523};
524
525
526static FiWord
527CF9__LT__EQ_(FiEnv e1, FiWord P0_a, FiWord P1_b)
528{
529 return (FiWord) ((FiChar) P0_a <= (FiChar) P1_b);
530}
531
532static struct _FiProg tmp9__LT__EQ_ = {
533 (FiFun) CF9__LT__EQ_,
534 0L,
535 0L,
536 0L,
537 0L
538};
539
540
541static FiWord
542CF10__GT__EQ_(FiEnv e1, FiWord P0_a, FiWord P1_b)
543{
544 return (FiWord) ((FiChar) P1_b <= (FiChar) P0_a);
545}
546
547static struct _FiProg tmp10__GT__EQ_ = {
548 (FiFun) CF10__GT__EQ_,
549 0L,
550 0L,
551 0L,
552 0L
553};
554
555
556static FiWord
557CF11_lower(FiEnv e1, FiWord P0_c)
558{
559 FiChar T0;
560 fiCHAR_LOWER(T0, FiChar, (FiChar) P0_c)((T0) = (FiChar) fiCharLower((FiChar) P0_c));
561 return (FiWord) T0;
562}
563
564static struct _FiProg tmp11_lower = {
565 (FiFun) CF11_lower,
566 0L,
567 0L,
568 0L,
569 0L
570};
571
572
573static FiWord
574CF12_upper(FiEnv e1, FiWord P0_c)
575{
576 FiChar T0;
577 fiCHAR_UPPER(T0, FiChar, (FiChar) P0_c)((T0) = (FiChar) fiCharUpper((FiChar) P0_c));
578 return (FiWord) T0;
579}
580
581static struct _FiProg tmp12_upper = {
582 (FiFun) CF12_upper,
583 0L,
584 0L,
585 0L,
586 0L
587};
588
589
590static FiWord
591CF13__LT__LT_(FiEnv e1, FiWord P0_w, FiWord P1_c)
592{
593 FiClos T0, T1, T2;
594 ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_w)->prog->fun)
595 FiClos) P0_w)((( FiClos) P0_w)->prog->fun))(((FiClos) P0_w)->env, &T0, &T1, &T2);
596 fiCCall1(void, T0, P1_c)((*((void (*)())(T0)->prog->fun))((T0)->env,P1_c));
597 return P0_w;
598}
599
600static struct _FiProg tmp13__LT__LT_ = {
601 (FiFun) CF13__LT__LT_,
602 0L,
603 0L,
604 0L,
605 0L
606};
607
608
609static FiClos
610CF14__LT__LT_(FiEnv e1, FiWord P0_x)
611{
612 PFmt6 l0;
613 FiEnv e0;
614 l0 = fi0New(struct Fmt6 , CENSUS_EnvLevel)((struct Fmt6 *) fi0Alloc(sizeof(struct Fmt6), (19)));
615 e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);
616 l0->X0_x = P0_x;
617 return fiClosMake(e0, C15__LT__LT_)fiClosMakeFun(e0, (FiProg) (C15__LT__LT_));
618}
619
620static struct _FiProg tmp14__LT__LT_ = {
621 (FiFun) CF14__LT__LT_,
622 0L,
623 0L,
624 0L,
625 0L
626};
627
628
629static FiWord
630CF15__LT__LT_(FiEnv e1, FiWord P0_p)
631{
632 FiWord T3;
633 FiClos T0, T1, T2;
634 PFmt6 l1;
635 l1 = (PFmt6) fiEnvLevel(e1)((FiEnv) (e1)->level);
636 T3 = l1->X0_x;
637 ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_p)->prog->fun)
638 FiClos) P0_p)((( FiClos) P0_p)->prog->fun))(((FiClos) P0_p)->env, &T0, &T1, &T2);
639 fiCCall1(void, T0, T3)((*((void (*)())(T0)->prog->fun))((T0)->env,T3));
640 return P0_p;
641}
642
643static struct _FiProg tmp15__LT__LT_ = {
644 (FiFun) CF15__LT__LT_,
645 0L,
646 0L,
647 0L,
648 0L
649};
650
651
652static FiWord
653CF16_hash(FiEnv e1, FiWord P0_x)
654{
655 return (FiWord) 0L;
656}
657
658static struct _FiProg tmp16_hash = {
659 (FiFun) CF16_hash,
660 0L,
661 0L,
662 0L,
663 0L
664};
665
666
667static FiWord
668CF17_case(FiEnv e1, FiWord P0_x, FiWord P1_y)
669{
670 return (FiWord) ((FiChar) P0_x == (FiChar) P1_y);
671}
672
673static struct _FiProg tmp17_case = {
674 (FiFun) CF17_case,
675 0L,
676 0L,
677 0L,
678 0L
679};
680
681
682static FiWord
683CF18_max(FiEnv e1, FiWord P0_x, FiWord P1_y)
684{
685 FiWord T0;
686 if ((FiChar) P1_y < (FiChar) P0_x) goto L0;
687 T0 = P1_y;
688L1: return T0;
689L0: T0 = P0_x;
690 goto L1;
691}
692
693static struct _FiProg tmp18_max = {
694 (FiFun) CF18_max,
695 0L,
696 0L,
697 0L,
698 0L
699};
700
701
702static FiWord
703CF19_min(FiEnv e1, FiWord P0_x, FiWord P1_y)
704{
705 FiWord T0;
706 if ((FiChar) P0_x < (FiChar) P1_y) goto L0;
707 T0 = P1_y;
708L1: return T0;
709L0: T0 = P0_x;
710 goto L1;
711}
712
713static struct _FiProg tmp19_min = {
714 (FiFun) CF19_min,
715 0L,
716 0L,
717 0L,
718 0L
719};
720
721
722static FiClos
723CF20_extend0(FiEnv e1, FiWord P0_domain)
724{
725 PFmt5 T1;
726 FiWord *T0;
727 PFmt9 l1;
728 l1 = (PFmt9) fiEnvLevel(e1)((FiEnv) (e1)->level);
729 fiARRNEW_Word(T0, FiWord*, 2L)((T0) = (FiWord*) fiArrNew_Word(2L));
730 T0[1L] = l1->X0_Character;
731 T0[0L] = (FiWord) G_KHTWK_character__Character__;
732 T1 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));
733 T1->X0_size = 2L;
734 T1->X1_nsize = 2L;
735 T1->X2_values = (FiWord) T0;
736 fiCCall2(FiWord, (*pG_G3BWN_extendFill_BANG_), P0_domain, T1)((*((FiWord (*)())((*pG_G3BWN_extendFill_BANG_))->prog->
fun))(((*pG_G3BWN_extendFill_BANG_))->env,P0_domain,T1));
737 return (FiClos) fiNil((Ptr) 0);
738}
739
740static struct _FiProg tmp20_extend0 = {
741 (FiFun) CF20_extend0,
742 0L,
743 0L,
744 0L,
745 0L
746};
747
748
749static FiWord
750CF21_machine_MINUS_init(FiEnv e1, FiSInt P0_idx)
751{
752 PFmt9 l1;
753 l1 = (PFmt9) fiEnvLevel(e1)((FiEnv) (e1)->level);
754 if (l1->X7) goto L0;
755 l1->X7 = 1L;
756 fiCCall0(void, (*pG_JNB1W_machine))((*((void (*)())((*pG_JNB1W_machine))->prog->fun))(((*pG_JNB1W_machine
))->env));
757L0: return (FiWord) (*pG_1B0E6_machine__Machine__915);
758}
759
760static struct _FiProg tmp21_machine_MINUS_init = {
761 (FiFun) CF21_machine_MINUS_init,
762 0L,
763 0L,
764 0L,
765 0L
766};
767
768
769static FiWord
770CF22_basic_MINUS_init(FiEnv e1, FiSInt P0_idx)
771{
772 PFmt9 l1;
773 l1 = (PFmt9) fiEnvLevel(e1)((FiEnv) (e1)->level);
774 if (l1->X8) goto L0;
775 l1->X8 = 1L;
776 fiCCall0(void, (*pG_NO017_basic))((*((void (*)())((*pG_NO017_basic))->prog->fun))(((*pG_NO017_basic
))->env));
777L0: if (P0_idx != 4L) goto L1;
778 return (FiWord) (*pG_U7T4R_basic__Integer__11769);
779L1: if (P0_idx != 3L) goto L2;
780 return (FiWord) (*pG_8QOPO_basic__MachineInteger);
781L2: if (P0_idx != 2L) goto L3;
782 return (FiWord) (*pG_CVCR_basic__Character__4158);
783L3: if (P0_idx != 1L) goto L4;
784 return (FiWord) (*pG_SH2SP_basic__TextWriter__36);
785L4: return (FiWord) (*pG_OT2IM_basic__Boolean__72774);
786}
787
788static struct _FiProg tmp22_basic_MINUS_init = {
789 (FiFun) CF22_basic_MINUS_init,
790 0L,
791 0L,
792 0L,
793 0L
794};
795
796
797static FiWord
798CF23_foamcat_MINUS_init(FiEnv e1, FiSInt P0_idx)
799{
800 PFmt9 l1;
801 l1 = (PFmt9) fiEnvLevel(e1)((FiEnv) (e1)->level);
802 if (l1->X9) goto L0;
803 l1->X9 = 1L;
804 fiCCall0(void, (*pG_H8TZ5_foamcat))((*((void (*)())((*pG_H8TZ5_foamcat))->prog->fun))(((*pG_H8TZ5_foamcat
))->env));
805L0: return (FiWord) (*pG_JWK7S_foamcat__OrderedFinit);
806}
807
808static struct _FiProg tmp23_foamcat_MINUS_init = {
809 (FiFun) CF23_foamcat_MINUS_init,
810 0L,
811 0L,
812 0L,
813 0L
814};
815
816extern int
817INIT__0_character()
818{
819
820 extern int INIT__0_rtexns();
821 extern int INIT__0_foamcat();
822 extern int INIT__0_basic();
823 extern int INIT__0_machine();
824 extern int INIT__0_runtime();
825 static int initialized = 0;
826 if (initialized)
827 return 0L;
828 else
829 initialized = 1;
830 C1_addLevel0 = &tmp1_addLevel0;
831 C2_addLevel1 = &tmp2_addLevel1;
832 C3_digit_QMARK_ = &tmp3_digit_QMARK_;
833 C4_letter_QMARK_ = &tmp4_letter_QMARK_;
834 C5__EQ_ = &tmp5__EQ_;
835 C6__TILDE__EQ_ = &tmp6__TILDE__EQ_;
836 C7__LT_ = &tmp7__LT_;
837 C8__GT_ = &tmp8__GT_;
838 C9__LT__EQ_ = &tmp9__LT__EQ_;
839 C10__GT__EQ_ = &tmp10__GT__EQ_;
840 C11_lower = &tmp11_lower;
841 C12_upper = &tmp12_upper;
842 C13__LT__LT_ = &tmp13__LT__LT_;
843 C14__LT__LT_ = &tmp14__LT__LT_;
844 C15__LT__LT_ = &tmp15__LT__LT_;
845 C16_hash = &tmp16_hash;
846 C17_case = &tmp17_case;
847 C18_max = &tmp18_max;
848 C19_min = &tmp19_min;
849 C20_extend0 = &tmp20_extend0;
850 C21_machine_MINUS_init = &tmp21_machine_MINUS_init;
851 C22_basic_MINUS_init = &tmp22_basic_MINUS_init;
852 C23_foamcat_MINUS_init = &tmp23_foamcat_MINUS_init;
853 C0_character = &tmp0_character;
854 fiExportGlobal("G_TATV6_character", G_TATV6_character)fiExportGlobalFun("G_TATV6_character", (Ptr) &G_TATV6_character
, sizeof(G_TATV6_character));
855 fiExportGlobal("G_KHTWK_character__Character__",fiExportGlobalFun("G_KHTWK_character__Character__", (Ptr) &
G_KHTWK_character__Character__, sizeof(G_KHTWK_character__Character__
))
856 G_KHTWK_character__Character__)fiExportGlobalFun("G_KHTWK_character__Character__", (Ptr) &
G_KHTWK_character__Character__, sizeof(G_KHTWK_character__Character__
));
857 fiExportGlobal("G_OOK5T_character__Character__",fiExportGlobalFun("G_OOK5T_character__Character__", (Ptr) &
G_OOK5T_character__Character__, sizeof(G_OOK5T_character__Character__
))
858 G_OOK5T_character__Character__)fiExportGlobalFun("G_OOK5T_character__Character__", (Ptr) &
G_OOK5T_character__Character__, sizeof(G_OOK5T_character__Character__
));
859 fiImportGlobal("G_NQYQM_noOperation", pG_NQYQM_noOperation)fiImportGlobalFun("G_NQYQM_noOperation", (Ptr *) &pG_NQYQM_noOperation
);
860 fiImportGlobal("G_XIPRL_runtime", pG_XIPRL_runtime)fiImportGlobalFun("G_XIPRL_runtime", (Ptr *) &pG_XIPRL_runtime
);
861 fiImportGlobal("G_Z2868_rtConstNameFn", pG_Z2868_rtConstNameFn)fiImportGlobalFun("G_Z2868_rtConstNameFn", (Ptr *) &pG_Z2868_rtConstNameFn
);
862 fiImportGlobal("G_CSVBL_domainAddNameFn_BANG_",fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) &
pG_CSVBL_domainAddNameFn_BANG_)
863 pG_CSVBL_domainAddNameFn_BANG_)fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) &
pG_CSVBL_domainAddNameFn_BANG_);
864 fiImportGlobal("G_XS55O_domainAddHash_BANG_",fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) &
pG_XS55O_domainAddHash_BANG_)
865 pG_XS55O_domainAddHash_BANG_)fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) &
pG_XS55O_domainAddHash_BANG_);
866 fiImportGlobal("G_PA5R2_domainAddExports_BANG_",fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) &
pG_PA5R2_domainAddExports)
867 pG_PA5R2_domainAddExports)fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) &
pG_PA5R2_domainAddExports);
868 fiImportGlobal("G_IJHFC_domainMakeDispatch",fiImportGlobalFun("G_IJHFC_domainMakeDispatch", (Ptr *) &
pG_IJHFC_domainMakeDispatch)
869 pG_IJHFC_domainMakeDispatch)fiImportGlobalFun("G_IJHFC_domainMakeDispatch", (Ptr *) &
pG_IJHFC_domainMakeDispatch);
870 fiImportGlobal("G_JWK7S_foamcat__OrderedFinite",fiImportGlobalFun("G_JWK7S_foamcat__OrderedFinite", (Ptr *) &
pG_JWK7S_foamcat__OrderedFinit)
871 pG_JWK7S_foamcat__OrderedFinit)fiImportGlobalFun("G_JWK7S_foamcat__OrderedFinite", (Ptr *) &
pG_JWK7S_foamcat__OrderedFinit);
872 fiImportGlobal("G_NOX7X_rtLazyCatFrInit", pG_NOX7X_rtLazyCatFrInit)fiImportGlobalFun("G_NOX7X_rtLazyCatFrInit", (Ptr *) &pG_NOX7X_rtLazyCatFrInit
);
873 fiImportGlobal("G_V9SO_domainAddDefaults_BANG_",fiImportGlobalFun("G_V9SO_domainAddDefaults_BANG_", (Ptr *) &
pG_V9SO_domainAddDefaults)
874 pG_V9SO_domainAddDefaults)fiImportGlobalFun("G_V9SO_domainAddDefaults_BANG_", (Ptr *) &
pG_V9SO_domainAddDefaults);
875 fiImportGlobal("G_BEY7_domainMakeDummy", pG_BEY7_domainMakeDummy)fiImportGlobalFun("G_BEY7_domainMakeDummy", (Ptr *) &pG_BEY7_domainMakeDummy
);
876 fiImportGlobal("G_AK1EB_domainFill_BANG_", pG_AK1EB_domainFill_BANG_)fiImportGlobalFun("G_AK1EB_domainFill_BANG_", (Ptr *) &pG_AK1EB_domainFill_BANG_
);
877 fiImportGlobal("G_1B0E6_machine__Machine__9157",fiImportGlobalFun("G_1B0E6_machine__Machine__9157", (Ptr *) &
pG_1B0E6_machine__Machine__915)
878 pG_1B0E6_machine__Machine__915)fiImportGlobalFun("G_1B0E6_machine__Machine__9157", (Ptr *) &
pG_1B0E6_machine__Machine__915);
879 fiImportGlobal("G_KK8CX_rtLazyDomFrInit", pG_KK8CX_rtLazyDomFrInit)fiImportGlobalFun("G_KK8CX_rtLazyDomFrInit", (Ptr *) &pG_KK8CX_rtLazyDomFrInit
);
880 fiImportGlobal("G_1X2RM_domainGetExport_BANG_",fiImportGlobalFun("G_1X2RM_domainGetExport_BANG_", (Ptr *) &
pG_1X2RM_domainGetExport_BANG_)
881 pG_1X2RM_domainGetExport_BANG_)fiImportGlobalFun("G_1X2RM_domainGetExport_BANG_", (Ptr *) &
pG_1X2RM_domainGetExport_BANG_);
882 fiImportGlobal("G_OT2IM_basic__Boolean__727749",fiImportGlobalFun("G_OT2IM_basic__Boolean__727749", (Ptr *) &
pG_OT2IM_basic__Boolean__72774)
883 pG_OT2IM_basic__Boolean__72774)fiImportGlobalFun("G_OT2IM_basic__Boolean__727749", (Ptr *) &
pG_OT2IM_basic__Boolean__72774);
884 fiImportGlobal("G_SH2SP_basic__TextWriter__360",fiImportGlobalFun("G_SH2SP_basic__TextWriter__360", (Ptr *) &
pG_SH2SP_basic__TextWriter__36)
885 pG_SH2SP_basic__TextWriter__36)fiImportGlobalFun("G_SH2SP_basic__TextWriter__360", (Ptr *) &
pG_SH2SP_basic__TextWriter__36);
886 fiImportGlobal("G_CVCR_basic__Character__41585",fiImportGlobalFun("G_CVCR_basic__Character__41585", (Ptr *) &
pG_CVCR_basic__Character__4158)
887 pG_CVCR_basic__Character__4158)fiImportGlobalFun("G_CVCR_basic__Character__41585", (Ptr *) &
pG_CVCR_basic__Character__4158);
888 fiImportGlobal("G_8QOPO_basic__MachineInteger",fiImportGlobalFun("G_8QOPO_basic__MachineInteger", (Ptr *) &
pG_8QOPO_basic__MachineInteger)
889 pG_8QOPO_basic__MachineInteger)fiImportGlobalFun("G_8QOPO_basic__MachineInteger", (Ptr *) &
pG_8QOPO_basic__MachineInteger);
890 fiImportGlobal("G_4NZQI_lazyGetExport_BANG_",fiImportGlobalFun("G_4NZQI_lazyGetExport_BANG_", (Ptr *) &
pG_4NZQI_lazyGetExport_BANG_)
891 pG_4NZQI_lazyGetExport_BANG_)fiImportGlobalFun("G_4NZQI_lazyGetExport_BANG_", (Ptr *) &
pG_4NZQI_lazyGetExport_BANG_);
892 fiImportGlobal("G_R3D1K_lazyForceImport", pG_R3D1K_lazyForceImport)fiImportGlobalFun("G_R3D1K_lazyForceImport", (Ptr *) &pG_R3D1K_lazyForceImport
);
893 fiImportGlobal("G_U7T4R_basic__Integer__117694",fiImportGlobalFun("G_U7T4R_basic__Integer__117694", (Ptr *) &
pG_U7T4R_basic__Integer__11769)
894 pG_U7T4R_basic__Integer__11769)fiImportGlobalFun("G_U7T4R_basic__Integer__117694", (Ptr *) &
pG_U7T4R_basic__Integer__11769);
895 fiImportGlobal("G_6L1ZC_domainMake", pG_6L1ZC_domainMake)fiImportGlobalFun("G_6L1ZC_domainMake", (Ptr *) &pG_6L1ZC_domainMake
);
896 fiImportGlobal("G_G3BWN_extendFill_BANG_", pG_G3BWN_extendFill_BANG_)fiImportGlobalFun("G_G3BWN_extendFill_BANG_", (Ptr *) &pG_G3BWN_extendFill_BANG_
);
897 fiImportGlobal("G_FZLG1_extendMake", pG_FZLG1_extendMake)fiImportGlobalFun("G_FZLG1_extendMake", (Ptr *) &pG_FZLG1_extendMake
);
898 fiImportGlobal("G_822GM_rtAddStrings", pG_822GM_rtAddStrings)fiImportGlobalFun("G_822GM_rtAddStrings", (Ptr *) &pG_822GM_rtAddStrings
);
899 fiImportGlobal("G_JNB1W_machine", pG_JNB1W_machine)fiImportGlobalFun("G_JNB1W_machine", (Ptr *) &pG_JNB1W_machine
);
900 fiImportGlobal("G_NO017_basic", pG_NO017_basic)fiImportGlobalFun("G_NO017_basic", (Ptr *) &pG_NO017_basic
);
901 fiImportGlobal("G_H8TZ5_foamcat", pG_H8TZ5_foamcat)fiImportGlobalFun("G_H8TZ5_foamcat", (Ptr *) &pG_H8TZ5_foamcat
);
902 if (fiFileInitializer) {
903 fiFileInitializer("rtexns");
904 fiFileInitializer("foamcat");
905 fiFileInitializer("basic");
906 fiFileInitializer("machine");
907 fiFileInitializer("runtime");
908 }
909 else {
910 INIT__0_rtexns();
911 INIT__0_foamcat();
912 INIT__0_basic();
913 INIT__0_machine();
914 INIT__0_runtime();
915 }
916 /* "---------------------------" */
917 return 0L;
918}
919
920FiWord G_OOK5T_character__Character__;
921FiWord G_KHTWK_character__Character__;
922
923static struct _FiClos tmpClos0_character = {
924 0L,
925 (FiProg) &tmp0_character
926};
927FiClos G_TATV6_character = &tmpClos0_character;