al/langx.c

1

/*

2

* C code generated by Aldor from file "langx.ao".

3

*/

4

5

#include "foam_c.h"

6

7

typedef struct Fmt5 *PFmt5;

8

typedef struct Fmt6 *PFmt6;

9

typedef struct Fmt7 *PFmt7;

10

typedef struct Fmt8 *PFmt8;

11

typedef struct Fmt9 *PFmt9;

12

typedef struct Fmt10 *PFmt10;

13

typedef struct Fmt11 *PFmt11;

14

typedef struct Fmt12 *PFmt12;

15

typedef struct Fmt13 *PFmt13;

16

typedef struct Fmt14 *PFmt14;

17

typedef struct Fmt15 *PFmt15;

18

typedef struct Fmt16 *PFmt16;

19

typedef struct Fmt17 *PFmt17;

20

typedef struct Fmt18 *PFmt18;

21

typedef struct Fmt19 *PFmt19;

22

typedef struct Fmt20 *PFmt20;

23

typedef struct Fmt21 *PFmt21;

24

typedef struct Fmt22 *PFmt22;

25

typedef struct Fmt23 *PFmt23;

26

typedef struct Fmt24 *PFmt24;

27

typedef struct Fmt25 *PFmt25;

28

typedef struct Fmt26 *PFmt26;

29

typedef struct Fmt27 *PFmt27;

30

typedef struct Fmt28 *PFmt28;

31

typedef struct Fmt29 *PFmt29;

32

typedef struct Fmt30 *PFmt30;

33

typedef struct Fmt31 *PFmt31;

34

typedef struct Fmt32 *PFmt32;

35

typedef struct Fmt33 *PFmt33;

36

typedef struct Fmt34 *PFmt34;

37

typedef struct Fmt35 *PFmt35;

38

typedef struct Fmt36 *PFmt36;

39

typedef struct Fmt37 *PFmt37;

40

typedef struct Fmt38 *PFmt38;

41

typedef struct Fmt39 *PFmt39;

42

typedef struct Fmt40 *PFmt40;

43

typedef struct Fmt41 *PFmt41;

44

typedef struct Fmt42 *PFmt42;

45

struct Fmt5 {

46

FiSInt X0_size;

47

FiWord *X1_values;

48

};

49

struct Fmt6 {

50

FiWord X0_found;

51

FiWord X1_value;

52

};

53

struct Fmt7 {

54

FiPtr X0_empty;

55

};

56

struct Fmt8 {

57

FiSInt X0_size;

58

FiSInt X1_nsize;

59

FiWord X2_values;

60

};

61

struct Fmt9 {

62

FiPtr X0_empty;

63

};

64

struct Fmt10 {

65

FiClos X0_case;

66

FiClos X1_hash;

67

FiClos X2__TILDE__EQ_;

68

FiClos X3__LT__LT_;

69

FiClos X4__LT__LT_;

70

FiClos X5__EQ_;

71

FiSInt X6;

72

};

73

struct Fmt11 {

74

FiWord X0_T;

75

};

76

struct Fmt12 {

77

FiWord X0_T;

78

};

79

struct Fmt13 {

80

FiSInt X0_n;

81

FiWord X1_o;

82

};

83

struct Fmt14 {

84

FiPtr X0_empty;

85

};

86

struct Fmt15 {

87

FiWord X0_x;

88

};

89

struct Fmt16 {

90

FiClos X0_case;

91

FiClos X1_hash;

92

FiClos X2__TILDE__EQ_;

93

FiClos X3__LT__LT_;

94

FiClos X4__LT__LT_;

95

FiClos X5__EQ_;

96

FiSInt X6;

97

FiClos X7__LT__LT_;

98

FiWord X8_dom;

99

};

100

struct Fmt17 {

101

FiWord X0_T;

102

};

103

struct Fmt18 {

104

FiWord X0_T;

105

};

106

struct Fmt19 {

107

FiSInt X0_x;

108

};

109

struct Fmt20 {

110

FiClos X0_case;

111

FiClos X1_hash;

112

FiClos X2__TILDE__EQ_;

113

FiClos X3__LT__LT_;

114

FiClos X4__LT__LT_;

115

FiClos X5__EQ_;

116

FiSInt X6;

117

};

118

struct Fmt21 {

119

FiWord X0_T;

120

};

121

struct Fmt22 {

122

FiWord X0_T;

123

};

124

struct Fmt23 {

125

FiSInt X0_tag;

126

FiWord X1_p;

127

};

128

struct Fmt24 {

129

FiPtr X0_empty;

130

};

131

struct Fmt25 {

132

FiClos X0_noName;

133

FiClos X1_combine;

134

FiClos X2_combine;

135

FiClos X3_other;

136

FiClos X4_new;

137

FiClos X5__LT__LT_;

138

FiClos X6_tuple;

139

FiClos X7_args;

140

FiClos X8_name;

141

FiClos X9_type;

142

FiSInt X10;

143

};

144

struct Fmt26 {

145

FiWord X0_dispatcher;

146

FiWord X1_domainRep;

147

};

148

struct Fmt27 {

149

FiPtr X0_empty;

150

};

151

struct Fmt28 {

152

FiWord X0_tag;

153

FiClos X1_namer;

154

FiWord X2_noname;

155

FiWord X3_getter;

156

FiWord X4_hasher;

157

FiWord X5_inheriter;

158

};

159

struct Fmt29 {

160

FiPtr X0_empty;

161

};

162

struct Fmt30 {

163

FiPtr X0_empty;

164

};

165

struct Fmt31 {

166

FiWord X0_X;

167

};

168

struct Fmt32 {

169

FiPtr X0_empty;

170

};

171

struct Fmt33 {

172

FiWord X0_OW;

173

};

174

struct Fmt34 {

175

FiClos X0_is;

176

FiClos X1_Me;

177

FiClos X2_You;

178

FiWord X3;

179

FiWord X4;

180

};

181

struct Fmt35 {

182

FiPtr X0_empty;

183

};

184

struct Fmt36 {

185

FiClos X0_Union;

186

FiWord X1_DomainName;

187

FiClos X2_Record;

188

FiClos X3_Enumeration;

189

FiWord X4_Type;

190

FiWord X5_BasicType;

191

FiClos X6_Tuple;

192

FiWord X7;

193

FiClos X8_element;

194

FiWord X9;

195

FiWord X10;

196

FiWord X11_dom;

197

FiWord X12;

198

FiWord X13;

199

FiWord X14;

200

FiBool X15;

201

FiBool X16;

202

FiBool X17;

203

FiBool X18;

204

};

205

struct Fmt37 {

206

FiClos X0;

207

FiClos X1;

208

FiClos X2;

209

};

210

struct Fmt38 {

211

FiPtr X0_empty;

212

};

213

struct Fmt39 {

214

FiWord X0_first;

215

FiWord X1_rest;

216

};

217

struct Fmt40 {

218

FiPtr X0_empty;

219

};

220

struct Fmt41 {

221

FiPtr X0_empty;

222

};

223

struct Fmt42 {

224

FiSInt X0_size;

225

FiWord *X1_values;

226

};

227

static FiProg C0_langx;

228

static void CF0_langx(FiEnv e1);

229

static FiProg C1_Record;

230

static FiWord CF1_Record(FiEnv e1, FiWord P0_T);

231

static FiProg C2_addLevel0;

232

static FiClos CF2_addLevel0(FiEnv e1, FiWord P0_domain);

233

static FiProg C3_addNameFn;

234

static FiWord CF3_addNameFn(FiEnv e1);

235

static FiProg C4_addLevel1;

236

static FiWord CF4_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);

237

static FiProg C5__EQ_;

238

static FiWord CF5__EQ_(FiEnv e1, FiWord P0_a, FiWord P1_b);

239

static FiProg C6__LT__LT_;

240

static FiWord CF6__LT__LT_(FiEnv e1, FiWord P0_outp, FiWord P1_a);

241

static FiProg C7__TILDE__EQ_;

242

static FiWord CF7__TILDE__EQ_(FiEnv e1, FiWord P0_x, FiWord P1_y);

243

static FiProg C8__LT__LT_;

244

static FiClos CF8__LT__LT_(FiEnv e1, FiWord P0_x);

245

static FiProg C9__LT__LT_;

246

static FiWord CF9__LT__LT_(FiEnv e1, FiWord P0_p);

247

static FiProg C10_hash;

248

static FiWord CF10_hash(FiEnv e1, FiWord P0_x);

249

static FiProg C11_case;

250

static FiWord CF11_case(FiEnv e1, FiWord P0_x, FiWord P1_y);

251

static FiProg C12_langx;

252

static FiWord CF12_langx(FiEnv e1, FiWord P0_T);

253

static FiProg C13_extend0;

254

static FiClos CF13_extend0(FiEnv e1, FiWord P0_domain);

255

static FiProg C14_Union;

256

static FiWord CF14_Union(FiEnv e1, FiWord P0_T);

257

static FiProg C15_addLevel0;

258

static FiClos CF15_addLevel0(FiEnv e1, FiWord P0_domain);

259

static FiProg C16_addNameFn;

260

static FiWord CF16_addNameFn(FiEnv e1);

261

static FiProg C17_addLevel1;

262

static FiWord CF17_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);

263

static FiProg C18__EQ_;

264

static FiWord CF18__EQ_(FiEnv e1, FiWord P0_a, FiWord P1_b);

265

static FiProg C19__LT__LT_;

266

static FiWord CF19__LT__LT_(FiEnv e1, FiWord P0_outp, FiWord P1_a);

267

static FiProg C20__TILDE__EQ_;

268

static FiWord CF20__TILDE__EQ_(FiEnv e1, FiWord P0_x, FiWord P1_y);

269

static FiProg C21__LT__LT_;

270

static FiClos CF21__LT__LT_(FiEnv e1, FiWord P0_x);

271

static FiProg C22__LT__LT_;

272

static FiWord CF22__LT__LT_(FiEnv e1, FiWord P0_p);

273

static FiProg C23_hash;

274

static FiWord CF23_hash(FiEnv e1, FiWord P0_x);

275

static FiProg C24_case;

276

static FiWord CF24_case(FiEnv e1, FiWord P0_x, FiWord P1_y);

277

static FiProg C25_langx;

278

static FiWord CF25_langx(FiEnv e1, FiWord P0_T);

279

static FiProg C26_extend0;

280

static FiClos CF26_extend0(FiEnv e1, FiWord P0_domain);

281

static FiProg C27_Enumeration;

282

static FiWord CF27_Enumeration(FiEnv e1, FiWord P0_T);

283

static FiProg C28_addLevel0;

284

static FiClos CF28_addLevel0(FiEnv e1, FiWord P0_domain);

285

static FiProg C29_addNameFn;

286

static FiWord CF29_addNameFn(FiEnv e1);

287

static FiProg C30_addLevel1;

288

static FiWord CF30_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);

289

static FiProg C31__EQ_;

290

static FiWord CF31__EQ_(FiEnv e1, FiSInt P0_a, FiSInt P1_b);

291

static FiProg C32__LT__LT_;

292

static FiWord CF32__LT__LT_(FiEnv e1, FiWord P0_outp, FiSInt P1_a);

293

static FiProg C33__TILDE__EQ_;

294

static FiWord CF33__TILDE__EQ_(FiEnv e1, FiSInt P0_x, FiSInt P1_y);

295

static FiProg C34__LT__LT_;

296

static FiClos CF34__LT__LT_(FiEnv e1, FiSInt P0_x);

297

static FiProg C35__LT__LT_;

298

static FiWord CF35__LT__LT_(FiEnv e1, FiWord P0_p);

299

static FiProg C36_hash;

300

static FiWord CF36_hash(FiEnv e1, FiSInt P0_x);

301

static FiProg C37_case;

302

static FiWord CF37_case(FiEnv e1, FiSInt P0_x, FiSInt P1_y);

303

static FiProg C38_langx;

304

static FiWord CF38_langx(FiEnv e1, FiWord P0_T);

305

static FiProg C39_extend0;

306

static FiClos CF39_extend0(FiEnv e1, FiWord P0_domain);

307

static FiProg C40_addLevel0;

308

static FiClos CF40_addLevel0(FiEnv e1, FiWord P0_domain);

309

static FiProg C41_addLevel1;

310

static FiWord CF41_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);

311

static FiProg C42_type;

312

static FiSInt CF42_type(FiEnv e1, FiWord P0_nm);

313

static FiProg C43_name;

314

static FiWord CF43_name(FiEnv e1, FiWord P0_nm);

315

static FiProg C44_args;

316

static FiWord CF44_args(FiEnv e1, FiWord P0_nm);

317

static FiProg C45_tuple;

318

static FiWord CF45_tuple(FiEnv e1, FiWord P0_nm);

319

static FiProg C46__LT__LT_;

320

static FiWord CF46__LT__LT_(FiEnv e1, FiWord P0_out, FiWord P1_nm);

321

static FiProg C47_new;

322

static FiWord CF47_new(FiEnv e1, FiWord P0_s);

323

static FiProg C48_other;

324

static FiWord CF48_other(FiEnv e1, FiWord P0_p);

325

static FiProg C49_combine;

326

static FiWord CF49_combine(FiEnv e1, FiWord P0_isTuple, FiWord P1_tup);

327

static FiProg C50_combine;

328

static FiWord CF50_combine(FiEnv e1, FiWord P0_isTuple, FiWord P1_lst);

329

static FiProg C51_noName;

330

static FiWord CF51_noName(FiEnv e1);

331

static FiProg C52_extend0;

332

static FiClos CF52_extend0(FiEnv e1, FiWord P0_domain);

333

static FiProg C53_typeName;

334

static FiWord CF53_typeName(FiEnv e1, FiWord P0_T);

335

static FiProg C54_addLevel0;

336

static FiClos CF54_addLevel0(FiEnv e1, FiWord P0_domain);

337

static FiProg C55_addLevel1;

338

static FiWord CF55_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);

339

static FiProg C56_You;

340

static FiWord CF56_You(FiEnv e1, FiWord P0_X);

341

static FiProg C57_defhash0;

342

static FiSInt CF57_defhash0(FiEnv e1);

343

static FiProg C58_You;

344

static void CF58_You(FiEnv e1, FiWord P0_self, FiWord P1_dom);

345

static FiProg C59_Me;

346

static FiWord CF59_Me(FiEnv e1, FiWord P0_OW);

347

static FiProg C60_addLevel0;

348

static FiClos CF60_addLevel0(FiEnv e1, FiWord P0_domain);

349

static FiProg C61_addLevel1;

350

static FiWord CF61_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode);

351

static FiProg C62_is;

352

static FiWord CF62_is(FiEnv e1, FiWord P0_Tarzan, FiWord P1_Jayne);

353

static FiProg C63_lang_MINUS_init;

354

static FiWord CF63_lang_MINUS_init(FiEnv e1, FiSInt P0_idx);

355

static FiProg C64_tuple_MINUS_init;

356

static FiWord CF64_tuple_MINUS_init(FiEnv e1, FiSInt P0_idx);

357

static FiProg C65_lv_MINUS_init;

358

static FiWord CF65_lv_MINUS_init(FiEnv e1, FiSInt P0_idx);

359

static FiProg C66_foamcat_MINUS_init;

360

static FiWord CF66_foamcat_MINUS_init(FiEnv e1, FiSInt P0_idx);

361

extern FiClos G_8NGJ8_langx;

362

static FiClos *pG_NQYQM_noOperation;

363

extern FiClos G_UE3X2_langx__Union__08555762;

364

extern FiWord G_GI7P2_langx__DomainName__361;

365

extern FiClos G_9VFVN_langx__Record__0855576;

366

extern FiClos G_BVOVG_langx__Enumeration__08;

367

extern FiWord formatSInt();

368

extern FiWord G_QXYZH_langx__IsPackage__1933;

369

extern FiClos G_G681E_langx__typeName__77242;

370

extern FiClos G_LVQUZ_langx__Enumeration__79;

371

extern FiClos G_OU7TP_langx__Record__7982382;

372

extern FiWord G_IJ71Z_langx__DomainName__980;

373

extern FiClos G_SEB2U_langx__Union__79823821;

374

static FiClos *pG_XIPRL_runtime;

375

static FiClos *pG_KAC1B_rtCacheExplicitMake;

376

static FiClos *pG_759EG_rtCacheCheck;

377

static FiClos *pG_LD0B5_domainHash_BANG_;

378

static FiClos *pG_FZP76_namePartFrString;

379

static FiClos *pG_GJ87F_domainName;

380

static FiClos *pG_9TG1R_namePartConcat;

381

static FiClos *pG_CSVBL_domainAddNameFn_BANG_;

382

static FiClos *pG_XS55O_domainAddHash_BANG_;

383

static FiClos *pG_PA5R2_domainAddExports;

384

static FiClos *pG_IJHFC_domainMakeDispatch;

385

static FiWord *pG_WJ80M_foamcat__BasicType__9;

386

static FiClos *pG_NOX7X_rtLazyCatFrInit;

387

static FiClos *pG_V9SO_domainAddDefaults;

388

static FiClos *pG_KK8CX_rtLazyDomFrInit;

389

static FiClos *pG_QRAZA_rtDelayedGetExport;

390

static FiClos *pG_ZZZKG_stdGetWordRetWord0;

391

static FiClos *pG_DLXW8_stdGetWordWordRetWord;

392

static FiClos *pG_6L1ZC_domainMake;

393

static FiClos *pG_PV28S_rtCacheAdd;

394

static FiClos *pG_QLPQP_lang__Record__7998562;

395

static FiClos *pG_RSHLY_rtDelayedInit_BANG_;

396

static FiClos *pG_G3BWN_extendFill_BANG_;

397

static FiClos *pG_FZLG1_extendMake;

398

static FiWord *pG_S6I8I_lang__Type__394624008;

399

static FiClos *pG_W005B_tuple__Tuple__2178849;

400

static FiClos *pG_RSCGM_domainTestExport;

401

static FiClos *pG_VPDBC_lang__Union__79985624;

402

static FiClos *pG_X9M4Q_stringHash;

403

static FiClos *pG_KU40K_lang__Enumeration__79;

404

static FiClos *pG_Z2868_rtConstNameFn;

405

static FiWord *pG_CO3YC_lv__DomainName__09150;

406

static FiClos *pG_WXLY5_categoryAddExports;

407

static FiClos *pG_8AMPD_rtSingleParamNameFn;

408

static FiClos *pG_GOVLL_categoryMake;

409

static FiClos *pG_822GM_rtAddStrings;

410

static FiClos *pG_8KYHF_lang;

411

static FiClos *pG_2WB5P_tuple;

412

static FiClos *pG_UNXDG_lv;

413

static FiClos *pG_H8TZ5_foamcat;

414

extern int fputs(FiWord, FiWord); /* Signature patched in ccode.c:ccoPr [3]*/

415

extern FiWord stdoutFile();

416

extern int fputc(FiWord, FiWord); /* Signature patched in ccode.c:ccoPr [1]*/

417

418

419

420

static void

421

CF0_langx(FiEnv e1)

422

{

423

FiWord *T4, *T5, T8;

424

PFmt8 T6, T7;

425

FiClos T0, T1, T2, T3;

426

PFmt36 l0;

427

FiEnv e0;

428

l0 = fi0New(struct Fmt36 , CENSUS_EnvLevel)((struct Fmt36 *) fi0Alloc(sizeof(struct Fmt36), (19)));

429

e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);

430

fiCCall0(void, (*pG_XIPRL_runtime))((*((void (*)())((*pG_XIPRL_runtime))->prog->fun))(((*pG_XIPRL_runtime
))->env));

431

G_8NGJ8_langx = (FiClos) (*pG_NQYQM_noOperation);

432

T0 = fiClosMake(e0, C66_foamcat_MINUS_init)fiClosMakeFun(e0, (FiProg) (C66_foamcat_MINUS_init));

433

l0->X7 = (FiWord) fiNil((Ptr) 0);

434

G_9VFVN_langx__Record__0855576 = fiClosMake(e0, C1_Record)fiClosMakeFun(e0, (FiProg) (C1_Record));

435

fiProgHashCode(((FiClos) G_9VFVN_langx__Record__0855576)->prog)((((FiClos) G_9VFVN_langx__Record__0855576)->prog)->data
) =

436

296043733L;

437

T1 = fiClosMake(e0, C63_lang_MINUS_init)fiClosMakeFun(e0, (FiProg) (C63_lang_MINUS_init));

438

l0->X9 = (FiWord) fiNil((Ptr) 0);

439

G_OU7TP_langx__Record__7982382 = fiClosMake(e0, C12_langx)fiClosMakeFun(e0, (FiProg) (C12_langx));

440

fiProgHashCode(((FiClos) G_OU7TP_langx__Record__7982382)->prog)((((FiClos) G_OU7TP_langx__Record__7982382)->prog)->data
) =

441

296043733L;

442

T2 = fiClosMake(e0, C64_tuple_MINUS_init)fiClosMakeFun(e0, (FiProg) (C64_tuple_MINUS_init));

443

l0->X10 = (FiWord) fiNil((Ptr) 0);

444

G_UE3X2_langx__Union__08555762 = fiClosMake(e0, C14_Union)fiClosMakeFun(e0, (FiProg) (C14_Union));

445

fiProgHashCode(((FiClos) G_UE3X2_langx__Union__08555762)->prog)((((FiClos) G_UE3X2_langx__Union__08555762)->prog)->data
) =

446

900348438L;

447

l0->X12 = (FiWord) fiNil((Ptr) 0);

448

G_SEB2U_langx__Union__79823821 = fiClosMake(e0, C25_langx)fiClosMakeFun(e0, (FiProg) (C25_langx));

449

fiProgHashCode(((FiClos) G_SEB2U_langx__Union__79823821)->prog)((((FiClos) G_SEB2U_langx__Union__79823821)->prog)->data
) =

450

900348438L;

451

l0->X13 = (FiWord) fiNil((Ptr) 0);

452

G_BVOVG_langx__Enumeration__08 = fiClosMake(e0, C27_Enumeration)fiClosMakeFun(e0, (FiProg) (C27_Enumeration));

453

fiProgHashCode(((FiClos) G_BVOVG_langx__Enumeration__08)->prog)((((FiClos) G_BVOVG_langx__Enumeration__08)->prog)->data
) =

454

151783690L;

455

l0->X14 = (FiWord) fiNil((Ptr) 0);

456

G_LVQUZ_langx__Enumeration__79 = fiClosMake(e0, C38_langx)fiClosMakeFun(e0, (FiProg) (C38_langx));

457

fiProgHashCode(((FiClos) G_LVQUZ_langx__Enumeration__79)->prog)((((FiClos) G_LVQUZ_langx__Enumeration__79)->prog)->data
) =

458

151783690L;

459

G_GI7P2_langx__DomainName__361 = fiCCall1(FiWord, (*((*((FiWord (*)())((* pG_6L1ZC_domainMake))->prog->fun)
)(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg
) (C40_addLevel0))))

460

pG_6L1ZC_domainMake), fiClosMake(e0, C40_addLevel0))((*((FiWord (*)())((* pG_6L1ZC_domainMake))->prog->fun)
)(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg
) (C40_addLevel0))));

461

T3 = fiClosMake(e0, C65_lv_MINUS_init)fiClosMakeFun(e0, (FiProg) (C65_lv_MINUS_init));

462

G_IJ71Z_langx__DomainName__980 = fiCCall1(FiWord, (*((*((FiWord (*)())((* pG_FZLG1_extendMake))->prog->fun)
)(((* pG_FZLG1_extendMake))->env,fiClosMakeFun(e0, (FiProg
) (C52_extend0))))

463

pG_FZLG1_extendMake), fiClosMake(e0, C52_extend0))((*((FiWord (*)())((* pG_FZLG1_extendMake))->prog->fun)
)(((* pG_FZLG1_extendMake))->env,fiClosMakeFun(e0, (FiProg
) (C52_extend0))));

464

G_G681E_langx__typeName__77242 = fiClosMake(e0, C53_typeName)fiClosMakeFun(e0, (FiProg) (C53_typeName));

465

G_QXYZH_langx__IsPackage__1933 = fiCCall1(FiWord, (*((*((FiWord (*)())((* pG_6L1ZC_domainMake))->prog->fun)
)(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg
) (C54_addLevel0))))

466

pG_6L1ZC_domainMake), fiClosMake(e0, C54_addLevel0))((*((FiWord (*)())((* pG_6L1ZC_domainMake))->prog->fun)
)(((* pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg
) (C54_addLevel0))));

467

l0->X15 = 0L;

468

l0->X16 = 0L;

469

l0->X17 = 0L;

470

l0->X18 = 0L;

471

fiARRNEW_Word(T4, FiWord*, 21L)((T4) = (FiWord*) fiArrNew_Word(21L));

472

fiARRNEW_Word(T5, FiWord*, 21L)((T5) = (FiWord*) fiArrNew_Word(21L));

473

T4[0L] = (FiWord) 51497348L;

474

T5[0L] = (FiWord) "Me";

475

T4[1L] = (FiWord) 200102L;

476

T5[1L] = (FiWord) "=";

477

T4[2L] = (FiWord) 8616224L;

478

T5[2L] = (FiWord) "namer";

479

T4[3L] = (FiWord) 862433839L;

480

T5[3L] = (FiWord) "other";

481

T4[4L] = (FiWord) 609528375L;

482

T5[4L] = (FiWord) "tuple";

483

T4[5L] = (FiWord) 51509389L;

484

T5[5L] = (FiWord) "~=";

485

T4[6L] = (FiWord) 315577720L;

486

T5[6L] = (FiWord) "You";

487

T4[7L] = (FiWord) 783167045L;

488

T5[7L] = (FiWord) "name";

489

T4[8L] = (FiWord) 51506606L;

490

T5[8L] = (FiWord) "is";

491

T4[9L] = (FiWord) 587540384L;

492

T5[9L] = (FiWord) "getName";

493

T4[10L] = (FiWord) 821207888L;

494

T5[10L] = (FiWord) "domainRep";

495

T4[11L] = (FiWord) 318528389L;

496

T5[11L] = (FiWord) "new";

497

T4[12L] = (FiWord) 364648785L;

498

T5[12L] = (FiWord) "args";

499

T4[13L] = (FiWord) 12649830L;

500

T5[13L] = (FiWord) "type";

501

T4[14L] = (FiWord) 255806968L;

502

T5[14L] = (FiWord) "sample";

503

T4[15L] = (FiWord) 864625472L;

504

T5[15L] = (FiWord) "case";

505

T4[16L] = (FiWord) 848463572L;

506

T5[16L] = (FiWord) "noName";

507

T4[17L] = (FiWord) 393444028L;

508

T5[17L] = (FiWord) "combine";

509

T4[18L] = (FiWord) 269251905L;

510

T5[18L] = (FiWord) "dispatcher";

511

T4[19L] = (FiWord) 51492426L;

512

T5[19L] = (FiWord) "<<";

513

T4[20L] = (FiWord) 746853960L;

514

T5[20L] = (FiWord) "hash";

515

T6 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

516

T6->X0_size = 21L;

517

T6->X1_nsize = 21L;

518

T6->X2_values = (FiWord) T4;

519

T7 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

520

T7->X0_size = 21L;

521

T7->X1_nsize = 21L;

522

T7->X2_values = (FiWord) T5;

523

fiCCall2(void, (*pG_822GM_rtAddStrings), (FiWord) T6, (FiWord) T7)((*((void (*)())((*pG_822GM_rtAddStrings))->prog->fun))
(((*pG_822GM_rtAddStrings))->env,(FiWord) T6,(FiWord) T7));

524

l0->X5_BasicType = fiCCall2(FiWord, (*pG_NOX7X_rtLazyCatFrInit),((*((FiWord (*)())((*pG_NOX7X_rtLazyCatFrInit))->prog->
fun))(((*pG_NOX7X_rtLazyCatFrInit))->env,T0,0L))

525

T0, 0L)((*((FiWord (*)())((*pG_NOX7X_rtLazyCatFrInit))->prog->
fun))(((*pG_NOX7X_rtLazyCatFrInit))->env,T0,0L));

526

T8 = fiCCall2(FiWord, (*pG_RSHLY_rtDelayedInit_BANG_), T1, 0L)((*((FiWord (*)())((*pG_RSHLY_rtDelayedInit_BANG_))->prog->
fun))(((*pG_RSHLY_rtDelayedInit_BANG_))->env,T1,0L));

527

l0->X2_Record = fiCCall1(FiClos, (*pG_ZZZKG_stdGetWordRetWord0),((*((FiClos (*)())((*pG_ZZZKG_stdGetWordRetWord0))->prog->
fun))(((*pG_ZZZKG_stdGetWordRetWord0))->env,T8))

528

T8)((*((FiClos (*)())((*pG_ZZZKG_stdGetWordRetWord0))->prog->
fun))(((*pG_ZZZKG_stdGetWordRetWord0))->env,T8));

529

l0->X4_Type = fiCCall2(FiWord, (*pG_KK8CX_rtLazyDomFrInit), T1,((*((FiWord (*)())((*pG_KK8CX_rtLazyDomFrInit))->prog->
fun))(((*pG_KK8CX_rtLazyDomFrInit))->env,T1,1L))

530

1L)((*((FiWord (*)())((*pG_KK8CX_rtLazyDomFrInit))->prog->
fun))(((*pG_KK8CX_rtLazyDomFrInit))->env,T1,1L));

531

T8 = fiCCall2(FiWord, (*pG_RSHLY_rtDelayedInit_BANG_), T2, 0L)((*((FiWord (*)())((*pG_RSHLY_rtDelayedInit_BANG_))->prog->
fun))(((*pG_RSHLY_rtDelayedInit_BANG_))->env,T2,0L));

532

l0->X6_Tuple = fiCCall1(FiClos, (*pG_ZZZKG_stdGetWordRetWord0),((*((FiClos (*)())((*pG_ZZZKG_stdGetWordRetWord0))->prog->
fun))(((*pG_ZZZKG_stdGetWordRetWord0))->env,T8))

533

T8)((*((FiClos (*)())((*pG_ZZZKG_stdGetWordRetWord0))->prog->
fun))(((*pG_ZZZKG_stdGetWordRetWord0))->env,T8));

534

l0->X11_dom = fiCCall1(FiWord, l0->X6_Tuple, l0->X4_Type)((*((FiWord (*)())(l0->X6_Tuple)->prog->fun))((l0->
X6_Tuple)->env,l0->X4_Type));

535

T8 = fiCCall3(FiWord, (*pG_QRAZA_rtDelayedGetExport), l0->((*((FiWord (*)())((*pG_QRAZA_rtDelayedGetExport))->prog->
fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0-> X11_dom
,379591369L,838191199L))

536

X11_dom, 379591369L, 838191199L)((*((FiWord (*)())((*pG_QRAZA_rtDelayedGetExport))->prog->
fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0-> X11_dom
,379591369L,838191199L));

537

l0->X8_element = fiCCall1(FiClos, (*((*((FiClos (*)())((* pG_DLXW8_stdGetWordWordRetWord))->prog
->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T8))

538

pG_DLXW8_stdGetWordWordRetWord), T8)((*((FiClos (*)())((* pG_DLXW8_stdGetWordWordRetWord))->prog
->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T8));

539

T8 = fiCCall2(FiWord, (*pG_RSHLY_rtDelayedInit_BANG_), T1, 2L)((*((FiWord (*)())((*pG_RSHLY_rtDelayedInit_BANG_))->prog->
fun))(((*pG_RSHLY_rtDelayedInit_BANG_))->env,T1,2L));

540

l0->X0_Union = fiCCall1(FiClos, (*pG_ZZZKG_stdGetWordRetWord0),((*((FiClos (*)())((*pG_ZZZKG_stdGetWordRetWord0))->prog->
fun))(((*pG_ZZZKG_stdGetWordRetWord0))->env,T8))

541

T8)((*((FiClos (*)())((*pG_ZZZKG_stdGetWordRetWord0))->prog->
fun))(((*pG_ZZZKG_stdGetWordRetWord0))->env,T8));

542

T8 = fiCCall2(FiWord, (*pG_RSHLY_rtDelayedInit_BANG_), T1, 3L)((*((FiWord (*)())((*pG_RSHLY_rtDelayedInit_BANG_))->prog->
fun))(((*pG_RSHLY_rtDelayedInit_BANG_))->env,T1,3L));

543

l0->X3_Enumeration = fiCCall1(FiClos, (*((*((FiClos (*)())((* pG_ZZZKG_stdGetWordRetWord0))->prog->
fun))(((* pG_ZZZKG_stdGetWordRetWord0))->env,T8))

544

pG_ZZZKG_stdGetWordRetWord0), T8)((*((FiClos (*)())((* pG_ZZZKG_stdGetWordRetWord0))->prog->
fun))(((* pG_ZZZKG_stdGetWordRetWord0))->env,T8));

545

l0->X1_DomainName = fiCCall2(FiWord, (*pG_KK8CX_rtLazyDomFrInit),((*((FiWord (*)())((*pG_KK8CX_rtLazyDomFrInit))->prog->
fun))(((*pG_KK8CX_rtLazyDomFrInit))->env,T3,0L))

546

T3, 0L)((*((FiWord (*)())((*pG_KK8CX_rtLazyDomFrInit))->prog->
fun))(((*pG_KK8CX_rtLazyDomFrInit))->env,T3,0L));

547

return ;

548

}

549

550

static struct _FiProg tmp0_langx = {

551

(FiFun) CF0_langx,

552

0L,

553

0L,

554

0L,

555

0L

556

};

557

558

559

static FiWord

560

CF1_Record(FiEnv e1, FiWord P0_T)

561

{

562

FiBool T3, T5;

563

FiWord *T0, T2, T4;

564

PFmt5 T1;

565

PFmt11 l0;

566

FiEnv e0;

567

PFmt36 l1;

568

l0 = fi0New(struct Fmt11 , CENSUS_EnvLevel)((struct Fmt11 *) fi0Alloc(sizeof(struct Fmt11), (19)));

569

e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);

570

l1 = (PFmt36) fiEnvLevel(e1)((FiEnv) (e1)->level);

571

l0->X0_T = P0_T;

572

fiARRNEW_Word(T0, FiWord*, 1L)((T0) = (FiWord*) fiArrNew_Word(1L));

573

T1 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));

574

T1->X0_size = 1L;

575

T1->X1_values = (FiWord*) T0;

576

fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X7)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X7) == (FiPtr) 0));

577

if (T5) goto L3;

578

L1: T0[0L] = l0->X0_T;

579

((void(*)(FiEnv , FiWord , FiWord , FiWord* , FiWord* ))

580

fiRawCProg((*pG_759EG_rtCacheCheck))(((*pG_759EG_rtCacheCheck))->prog->fun))(((*

581

pG_759EG_rtCacheCheck))->env, (FiWord) l1->X7, (FiWord) (

582

FiWord) T1, &T2, &T4);

583

T3 = (FiBool) T4;

584

if (T3) goto L0;

585

T2 = fiCCall1(FiWord, (*pG_6L1ZC_domainMake), fiClosMake(e0,((*((FiWord (*)())((*pG_6L1ZC_domainMake))->prog->fun))
(((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) (
C2_addLevel0))))

586

C2_addLevel0))((*((FiWord (*)())((*pG_6L1ZC_domainMake))->prog->fun))
(((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) (
C2_addLevel0))));

587

T2 = fiCCall3(FiWord, (*pG_PV28S_rtCacheAdd), l1->X7, (FiWord)((*((FiWord (*)())((*pG_PV28S_rtCacheAdd))->prog->fun))
(((*pG_PV28S_rtCacheAdd))->env,l1->X7,(FiWord) T1,T2))

588

T1, T2)((*((FiWord (*)())((*pG_PV28S_rtCacheAdd))->prog->fun))
(((*pG_PV28S_rtCacheAdd))->env,l1->X7,(FiWord) T1,T2));

589

L0: return T2;

590

L3: l1->X7 = fiCCall1(FiWord, (*pG_KAC1B_rtCacheExplicitMake), 15L)((*((FiWord (*)())((*pG_KAC1B_rtCacheExplicitMake))->prog->
fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));

591

goto L1;

592

}

593

594

static struct _FiProg tmp1_Record = {

595

(FiFun) CF1_Record,

596

0L,

597

0L,

598

0L,

599

0L

600

};

601

602

603

static FiClos

604

CF2_addLevel0(FiEnv e1, FiWord P0_domain)

605

{

606

FiSInt T1, T2, T3;

607

PFmt5 T0;

608

FiEnv e2, e0;

609

PFmt11 l1;

610

PFmt36 l2;

611

e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);

612

l1 = (PFmt11) fiEnvLevel(e1)((FiEnv) (e1)->level);

613

e2 = fiEnvNext(e1)((FiEnv) (e1)->next);

614

l2 = (PFmt36) fiEnvLevel(e2)((FiEnv) (e2)->level);

615

T3 = 296043733L;

616

T0 = (PFmt5) l1->X0_T;

617

T1 = T0->X0_size;

618

T2 = 0L;

619

L0: if (T2 == T1) goto L1;

620

fiSINT_HASHCOMBINE(T3, FiSInt, fiCCall1(FiSInt, (*((T3) = (FiSInt) fiSIntHashCombine(((*((FiSInt (*)())((* pG_LD0B5_domainHash_BANG_
))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env
,T0->X1_values[T2])), T3))

621

pG_LD0B5_domainHash_BANG_), T0->X1_values[T2]), T3)((T3) = (FiSInt) fiSIntHashCombine(((*((FiSInt (*)())((* pG_LD0B5_domainHash_BANG_
))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env
,T0->X1_values[T2])), T3));

622

T2 = T2 + 1L;

623

goto L0;

624

L1: fiCCall2(FiWord, (*pG_CSVBL_domainAddNameFn_BANG_), P0_domain,((*((FiWord (*)())((*pG_CSVBL_domainAddNameFn_BANG_))->prog
->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain
,fiClosMakeFun(e0, (FiProg) (C3_addNameFn))))

625

fiClosMake(e0, C3_addNameFn))((*((FiWord (*)())((*pG_CSVBL_domainAddNameFn_BANG_))->prog
->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain
,fiClosMakeFun(e0, (FiProg) (C3_addNameFn))));

626

fiCCall2(FiWord, (*pG_XS55O_domainAddHash_BANG_), P0_domain, T3)((*((FiWord (*)())((*pG_XS55O_domainAddHash_BANG_))->prog->
fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,T3)
);

627

return fiClosMake(e0, C4_addLevel1)fiClosMakeFun(e0, (FiProg) (C4_addLevel1));

628

}

629

630

static struct _FiProg tmp2_addLevel0 = {

631

(FiFun) CF2_addLevel0,

632

0L,

633

0L,

634

0L,

635

0L

636

};

637

638

639

static FiWord

640

CF3_addNameFn(FiEnv e1)

641

{

642

PFmt5 T2, T4;

643

FiWord *T1, *T3;

644

FiSInt T0;

645

PFmt11 l2;

646

FiEnv e2;

647

e2 = fiEnvNext(e1)((FiEnv) (e1)->next);

648

l2 = (PFmt11) fiEnvLevel(e2)((FiEnv) (e2)->level);

649

T0 = ((PFmt5) l2->X0_T)->X0_size;

650

fiARRNEW_Word(T1, FiWord*, T0)((T1) = (FiWord*) fiArrNew_Word(T0));

651

T2 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));

652

T2->X0_size = T0;

653

T2->X1_values = (FiWord*) T1;

654

L0: T0 = T0 - 1L;

655

if (T0 < 0) goto L1;

656

T1[T0] = fiCCall1(FiWord, (*pG_GJ87F_domainName), ((PFmt5) l2->((*((FiWord (*)())((*pG_GJ87F_domainName))->prog->fun))
(((*pG_GJ87F_domainName))->env,((PFmt5) l2-> X0_T)->
X1_values[T0]))

657

X0_T)->X1_values[T0])((*((FiWord (*)())((*pG_GJ87F_domainName))->prog->fun))
(((*pG_GJ87F_domainName))->env,((PFmt5) l2-> X0_T)->
X1_values[T0]));

658

goto L0;

659

L1: fiARRNEW_Word(T3, FiWord*, 2L)((T3) = (FiWord*) fiArrNew_Word(2L));

660

T3[0L] = fiCCall1(FiWord, (*pG_FZP76_namePartFrString), "Record")((*((FiWord (*)())((*pG_FZP76_namePartFrString))->prog->
fun))(((*pG_FZP76_namePartFrString))->env,"Record"));

661

T3[1L] = fiCCall2(FiWord, (*pG_9TG1R_namePartConcat), 1L, (FiWord)((*((FiWord (*)())((*pG_9TG1R_namePartConcat))->prog->fun
))(((*pG_9TG1R_namePartConcat))->env,1L,(FiWord) T2))

662

T2)((*((FiWord (*)())((*pG_9TG1R_namePartConcat))->prog->fun
))(((*pG_9TG1R_namePartConcat))->env,1L,(FiWord) T2));

663

T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));

664

T4->X0_size = 2L;

665

T4->X1_values = (FiWord*) T3;

666

return fiCCall2(FiWord, (*pG_9TG1R_namePartConcat), 0L, T4)((*((FiWord (*)())((*pG_9TG1R_namePartConcat))->prog->fun
))(((*pG_9TG1R_namePartConcat))->env,0L,T4));

667

}

668

669

static struct _FiProg tmp3_addNameFn = {

670

(FiFun) CF3_addNameFn,

671

0L,

672

0L,

673

0L,

674

0L

675

};

676

677

678

static FiWord

679

CF4_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)

680

{

681

FiSInt T7, T8, T9, T10, T11, T12, T13;

682

FiWord *T0, *T1, *T2, T6;

683

PFmt8 T3, T4, T5;

684

PFmt10 l0;

685

FiEnv e3, e2, e0;

686

PFmt36 l3;

687

l0 = fi0New(struct Fmt10 , CENSUS_EnvLevel)((struct Fmt10 *) fi0Alloc(sizeof(struct Fmt10), (19)));

688

e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);

689

e2 = fiEnvNext(e1)((FiEnv) (e1)->next);

690

e3 = fiEnvNext(e2)((FiEnv) (e2)->next);

691

l3 = (PFmt36) fiEnvLevel(e3)((FiEnv) (e3)->level);

692

fiARRNEW_Word(T0, FiWord*, 7L)((T0) = (FiWord*) fiArrNew_Word(7L));

693

fiARRNEW_Word(T1, FiWord*, 7L)((T1) = (FiWord*) fiArrNew_Word(7L));

694

fiARRNEW_Word(T2, FiWord*, 7L)((T2) = (FiWord*) fiArrNew_Word(7L));

695

T6 = fiCCall1(FiWord, (*pG_IJHFC_domainMakeDispatch), P0_domain)((*((FiWord (*)())((*pG_IJHFC_domainMakeDispatch))->prog->
fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));

696

l0->X6 = (FiSInt) P1_hashcode;

697

l0->X5__EQ_ = fiClosMake(e0, C5__EQ_)fiClosMakeFun(e0, (FiProg) (C5__EQ_));

698

l0->X3__LT__LT_ = fiClosMake(e0, C6__LT__LT_)fiClosMakeFun(e0, (FiProg) (C6__LT__LT_));

699

l0->X2__TILDE__EQ_ = fiClosMake(e0, C7__TILDE__EQ_)fiClosMakeFun(e0, (FiProg) (C7__TILDE__EQ_));

700

l0->X4__LT__LT_ = fiClosMake(e0, C8__LT__LT_)fiClosMakeFun(e0, (FiProg) (C8__LT__LT_));

701

l0->X1_hash = fiClosMake(e0, C10_hash)fiClosMakeFun(e0, (FiProg) (C10_hash));

702

l0->X0_case = fiClosMake(e0, C11_case)fiClosMakeFun(e0, (FiProg) (C11_case));

703

fiSINT_HASHCOMBINE(T12, FiSInt, l0->X6, 51489085L)((T12) = (FiSInt) fiSIntHashCombine(l0->X6, 51489085L));

704

fiSINT_HASHCOMBINE(T7, FiSInt, 740244383L, fiSIntHashCombine((FiSInt)((T7) = (FiSInt) fiSIntHashCombine(740244383L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X6, (FiSInt) T12))))

705

32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X6, (FiSInt)((T7) = (FiSInt) fiSIntHashCombine(740244383L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X6, (FiSInt) T12))))

706

T12)))((T7) = (FiSInt) fiSIntHashCombine(740244383L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X6, (FiSInt) T12))));

707

fiSINT_HASHCOMBINE(T8, FiSInt, 182752316L, fiSIntHashCombine((FiSInt)((T8) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X6, (FiSInt) 102896482L))))

708

32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X6, (FiSInt)((T8) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X6, (FiSInt) 102896482L))))

709

102896482L)))((T8) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X6, (FiSInt) 102896482L))));

710

fiSINT_HASHCOMBINE(T13, FiSInt, 32236L, T12)((T13) = (FiSInt) fiSIntHashCombine(32236L, T12));

711

fiSINT_HASHCOMBINE(T9, FiSInt, 755420535L, T13)((T9) = (FiSInt) fiSIntHashCombine(755420535L, T13));

712

fiSINT_HASHCOMBINE(T10, FiSInt, 33717313L, T13)((T10) = (FiSInt) fiSIntHashCombine(33717313L, T13));

713

T11 = l0->X6;

714

T3 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

715

T3->X0_size = 7L;

716

T3->X1_nsize = 7L;

717

T3->X2_values = (FiWord) T0;

718

T4 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

719

T4->X0_size = 7L;

720

T4->X1_nsize = 7L;

721

T4->X2_values = (FiWord) T1;

722

T5 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

723

T5->X0_size = 7L;

724

T5->X1_nsize = 7L;

725

T5->X2_values = (FiWord) T2;

726

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)
);

727

fiCCall3(FiWord, (*pG_V9SO_domainAddDefaults), P0_domain, l3->((*((FiWord (*)())((*pG_V9SO_domainAddDefaults))->prog->
fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,l3->
X5_BasicType,T6))

728

X5_BasicType, T6)((*((FiWord (*)())((*pG_V9SO_domainAddDefaults))->prog->
fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,l3->
X5_BasicType,T6));

729

T0[0L] = (FiWord) 200102L;

730

T1[0L] = (FiWord) T7;

731

T2[0L] = (FiWord) l0->X5__EQ_;

732

T0[1L] = (FiWord) 51492426L;

733

T1[1L] = (FiWord) T8;

734

T2[1L] = (FiWord) l0->X3__LT__LT_;

735

T0[2L] = (FiWord) 51509389L;

736

T1[2L] = (FiWord) T7;

737

T2[2L] = (FiWord) l0->X2__TILDE__EQ_;

738

T0[3L] = (FiWord) 51492426L;

739

T1[3L] = (FiWord) T9;

740

T2[3L] = (FiWord) l0->X4__LT__LT_;

741

T0[4L] = (FiWord) 746853960L;

742

T1[4L] = (FiWord) T10;

743

T2[4L] = (FiWord) l0->X1_hash;

744

T0[5L] = (FiWord) 864625472L;

745

T1[5L] = (FiWord) T7;

746

T2[5L] = (FiWord) l0->X0_case;

747

T0[6L] = (FiWord) 255806968L;

748

T1[6L] = (FiWord) T11;

749

T2[6L] = (FiWord) fiNil((Ptr) 0);

750

return P0_domain;

751

}

752

753

static struct _FiProg tmp4_addLevel1 = {

754

(FiFun) CF4_addLevel1,

755

0L,

756

0L,

757

0L,

758

0L

759

};

760

761

762

static FiWord

763

CF5__EQ_(FiEnv e1, FiWord P0_a, FiWord P1_b)

764

{

765

return (FiWord) ((FiPtr) P0_a == (FiPtr) P1_b);

766

}

767

768

static struct _FiProg tmp5__EQ_ = {

769

(FiFun) CF5__EQ_,

770

0L,

771

0L,

772

0L,

773

0L

774

};

775

776

777

static FiWord

778

CF6__LT__LT_(FiEnv e1, FiWord P0_outp, FiWord P1_a)

779

{

780

FiClos T0, T1, T2;

781

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

782

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T0, &T1, &T2);

783

fiCCall3(FiWord, T1, (FiWord) "Record()", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T1)->prog->fun))((T1)->env,(FiWord
) "Record()",(FiWord) 1L,(FiWord) 0L));

784

return P0_outp;

785

}

786

787

static struct _FiProg tmp6__LT__LT_ = {

788

(FiFun) CF6__LT__LT_,

789

0L,

790

0L,

791

0L,

792

0L

793

};

794

795

796

static FiWord

797

CF7__TILDE__EQ_(FiEnv e1, FiWord P0_x, FiWord P1_y)

798

{

799

return (FiWord) !((FiPtr) P0_x == (FiPtr) P1_y);

800

}

801

802

static struct _FiProg tmp7__TILDE__EQ_ = {

803

(FiFun) CF7__TILDE__EQ_,

804

0L,

805

0L,

806

0L,

807

0L

808

};

809

810

811

static FiClos

812

CF8__LT__LT_(FiEnv e1, FiWord P0_x)

813

{

814

FiEnv e0;

815

e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);

816

return fiClosMake(e0, C9__LT__LT_)fiClosMakeFun(e0, (FiProg) (C9__LT__LT_));

817

}

818

819

static struct _FiProg tmp8__LT__LT_ = {

820

(FiFun) CF8__LT__LT_,

821

0L,

822

0L,

823

0L,

824

0L

825

};

826

827

828

static FiWord

829

CF9__LT__LT_(FiEnv e1, FiWord P0_p)

830

{

831

FiClos T0, T1, T2;

832

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_p)->prog->fun)

833

FiClos) P0_p)((( FiClos) P0_p)->prog->fun))(((FiClos) P0_p)->env, &T0, &T1, &T2);

834

fiCCall3(FiWord, T1, (FiWord) "Record()", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T1)->prog->fun))((T1)->env,(FiWord
) "Record()",(FiWord) 1L,(FiWord) 0L));

835

return P0_p;

836

}

837

838

static struct _FiProg tmp9__LT__LT_ = {

839

(FiFun) CF9__LT__LT_,

840

0L,

841

0L,

842

0L,

843

0L

844

};

845

846

847

static FiWord

848

CF10_hash(FiEnv e1, FiWord P0_x)

849

{

850

return (FiWord) 0L;

851

}

852

853

static struct _FiProg tmp10_hash = {

854

(FiFun) CF10_hash,

855

0L,

856

0L,

857

0L,

858

0L

859

};

860

861

862

static FiWord

863

CF11_case(FiEnv e1, FiWord P0_x, FiWord P1_y)

864

{

865

return (FiWord) ((FiPtr) P0_x == (FiPtr) P1_y);

866

}

867

868

static struct _FiProg tmp11_case = {

869

(FiFun) CF11_case,

870

0L,

871

0L,

872

0L,

873

0L

874

};

875

876

877

static FiWord

878

CF12_langx(FiEnv e1, FiWord P0_T)

879

{

880

FiBool T5;

881

FiWord T0, *T1, T3, T4;

882

PFmt5 T2;

883

PFmt12 l0;

884

FiEnv e0;

885

PFmt36 l1;

886

l0 = fi0New(struct Fmt12 , CENSUS_EnvLevel)((struct Fmt12 *) fi0Alloc(sizeof(struct Fmt12), (19)));

887

e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);

888

l1 = (PFmt36) fiEnvLevel(e1)((FiEnv) (e1)->level);

889

l0->X0_T = P0_T;

890

fiARRNEW_Word(T1, FiWord*, 1L)((T1) = (FiWord*) fiArrNew_Word(1L));

891

T2 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));

892

T2->X0_size = 1L;

893

T2->X1_values = (FiWord*) T1;

894

fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X9)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X9) == (FiPtr) 0));

895

if (T5) goto L2;

896

L1: T1[0L] = l0->X0_T;

897

((void(*)(FiEnv , FiWord , FiWord , FiWord* , FiWord* ))

898

fiRawCProg((*pG_759EG_rtCacheCheck))(((*pG_759EG_rtCacheCheck))->prog->fun))(((*

899

pG_759EG_rtCacheCheck))->env, (FiWord) l1->X9, (FiWord) (

900

FiWord) T2, &T3, &T4);

901

if ((FiBool) T4) goto L0;

902

T0 = fiCCall1(FiWord, (*pG_FZLG1_extendMake), fiClosMake(e0,((*((FiWord (*)())((*pG_FZLG1_extendMake))->prog->fun))
(((*pG_FZLG1_extendMake))->env,fiClosMakeFun(e0, (FiProg) (
C13_extend0))))

903

C13_extend0))((*((FiWord (*)())((*pG_FZLG1_extendMake))->prog->fun))
(((*pG_FZLG1_extendMake))->env,fiClosMakeFun(e0, (FiProg) (
C13_extend0))));

904

T3 = fiCCall3(FiWord, (*pG_PV28S_rtCacheAdd), l1->X9, (FiWord)((*((FiWord (*)())((*pG_PV28S_rtCacheAdd))->prog->fun))
(((*pG_PV28S_rtCacheAdd))->env,l1->X9,(FiWord) T2,T0))

905

T2, T0)((*((FiWord (*)())((*pG_PV28S_rtCacheAdd))->prog->fun))
(((*pG_PV28S_rtCacheAdd))->env,l1->X9,(FiWord) T2,T0));

906

L0: return T3;

907

L2: l1->X9 = fiCCall1(FiWord, (*pG_KAC1B_rtCacheExplicitMake), 15L)((*((FiWord (*)())((*pG_KAC1B_rtCacheExplicitMake))->prog->
fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));

908

goto L1;

909

}

910

911

static struct _FiProg tmp12_langx = {

912

(FiFun) CF12_langx,

913

0L,

914

0L,

915

0L,

916

0L

917

};

918

919

920

static FiClos

921

CF13_extend0(FiEnv e1, FiWord P0_domain)

922

{

923

PFmt8 T1;

924

FiWord *T0;

925

PFmt12 l1;

926

PFmt36 l2;

927

FiEnv e2;

928

l1 = (PFmt12) fiEnvLevel(e1)((FiEnv) (e1)->level);

929

e2 = fiEnvNext(e1)((FiEnv) (e1)->next);

930

l2 = (PFmt36) fiEnvLevel(e2)((FiEnv) (e2)->level);

931

fiARRNEW_Word(T0, FiWord*, 2L)((T0) = (FiWord*) fiArrNew_Word(2L));

932

T0[1L] = fiCCall1(FiWord, l2->X2_Record, l1->X0_T)((*((FiWord (*)())(l2->X2_Record)->prog->fun))((l2->
X2_Record)->env,l1->X0_T));

933

T0[0L] = fiCCall1(FiWord, G_9VFVN_langx__Record__0855576, l1->((*((FiWord (*)())(G_9VFVN_langx__Record__0855576)->prog->
fun))((G_9VFVN_langx__Record__0855576)->env,l1-> X0_T))

934

X0_T)((*((FiWord (*)())(G_9VFVN_langx__Record__0855576)->prog->
fun))((G_9VFVN_langx__Record__0855576)->env,l1-> X0_T));

935

T1 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

936

T1->X0_size = 2L;

937

T1->X1_nsize = 2L;

938

T1->X2_values = (FiWord) T0;

939

fiCCall2(FiWord, (*pG_G3BWN_extendFill_BANG_), P0_domain, T1)((*((FiWord (*)())((*pG_G3BWN_extendFill_BANG_))->prog->
fun))(((*pG_G3BWN_extendFill_BANG_))->env,P0_domain,T1));

940

return (FiClos) fiNil((Ptr) 0);

941

}

942

943

static struct _FiProg tmp13_extend0 = {

944

(FiFun) CF13_extend0,

945

0L,

946

0L,

947

0L,

948

0L

949

};

950

951

952

static FiWord

953

CF14_Union(FiEnv e1, FiWord P0_T)

954

{

955

FiBool T3, T5;

956

FiWord *T0, T2, T4;

957

PFmt5 T1;

958

PFmt17 l0;

959

FiEnv e0;

960

PFmt36 l1;

961

l0 = fi0New(struct Fmt17 , CENSUS_EnvLevel)((struct Fmt17 *) fi0Alloc(sizeof(struct Fmt17), (19)));

962

e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);

963

l1 = (PFmt36) fiEnvLevel(e1)((FiEnv) (e1)->level);

964

l0->X0_T = P0_T;

965

fiARRNEW_Word(T0, FiWord*, 1L)((T0) = (FiWord*) fiArrNew_Word(1L));

966

T1 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));

967

T1->X0_size = 1L;

968

T1->X1_values = (FiWord*) T0;

969

fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X10)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X10) == (FiPtr) 0));

970

if (T5) goto L3;

971

L1: T0[0L] = l0->X0_T;

972

((void(*)(FiEnv , FiWord , FiWord , FiWord* , FiWord* ))

973

fiRawCProg((*pG_759EG_rtCacheCheck))(((*pG_759EG_rtCacheCheck))->prog->fun))(((*

974

pG_759EG_rtCacheCheck))->env, (FiWord) l1->X10, (FiWord) (

975

FiWord) T1, &T2, &T4);

976

T3 = (FiBool) T4;

977

if (T3) goto L0;

978

T2 = fiCCall1(FiWord, (*pG_6L1ZC_domainMake), fiClosMake(e0,((*((FiWord (*)())((*pG_6L1ZC_domainMake))->prog->fun))
(((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) (
C15_addLevel0))))

979

C15_addLevel0))((*((FiWord (*)())((*pG_6L1ZC_domainMake))->prog->fun))
(((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) (
C15_addLevel0))));

980

T2 = fiCCall3(FiWord, (*pG_PV28S_rtCacheAdd), l1->X10, (FiWord)((*((FiWord (*)())((*pG_PV28S_rtCacheAdd))->prog->fun))
(((*pG_PV28S_rtCacheAdd))->env,l1->X10,(FiWord) T1,T2))

981

T1, T2)((*((FiWord (*)())((*pG_PV28S_rtCacheAdd))->prog->fun))
(((*pG_PV28S_rtCacheAdd))->env,l1->X10,(FiWord) T1,T2));

982

L0: return T2;

983

L3: l1->X10 = fiCCall1(FiWord, (*pG_KAC1B_rtCacheExplicitMake), 15L)((*((FiWord (*)())((*pG_KAC1B_rtCacheExplicitMake))->prog->
fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));

984

goto L1;

985

}

986

987

static struct _FiProg tmp14_Union = {

988

(FiFun) CF14_Union,

989

0L,

990

0L,

991

0L,

992

0L

993

};

994

995

996

static FiClos

997

CF15_addLevel0(FiEnv e1, FiWord P0_domain)

998

{

999

FiSInt T1, T2, T3;

1000

PFmt5 T0;

1001

FiEnv e2, e0;

1002

PFmt17 l1;

1003

PFmt36 l2;

1004

e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);

1005

l1 = (PFmt17) fiEnvLevel(e1)((FiEnv) (e1)->level);

1006

e2 = fiEnvNext(e1)((FiEnv) (e1)->next);

1007

l2 = (PFmt36) fiEnvLevel(e2)((FiEnv) (e2)->level);

1008

T3 = 900348438L;

1009

T0 = (PFmt5) l1->X0_T;

1010

T1 = T0->X0_size;

1011

T2 = 0L;

1012

L0: if (T2 == T1) goto L1;

1013

fiSINT_HASHCOMBINE(T3, FiSInt, fiCCall1(FiSInt, (*((T3) = (FiSInt) fiSIntHashCombine(((*((FiSInt (*)())((* pG_LD0B5_domainHash_BANG_
))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env
,T0->X1_values[T2])), T3))

1014

pG_LD0B5_domainHash_BANG_), T0->X1_values[T2]), T3)((T3) = (FiSInt) fiSIntHashCombine(((*((FiSInt (*)())((* pG_LD0B5_domainHash_BANG_
))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env
,T0->X1_values[T2])), T3));

1015

T2 = T2 + 1L;

1016

goto L0;

1017

L1: fiCCall2(FiWord, (*pG_CSVBL_domainAddNameFn_BANG_), P0_domain,((*((FiWord (*)())((*pG_CSVBL_domainAddNameFn_BANG_))->prog
->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain
,fiClosMakeFun(e0, (FiProg) (C16_addNameFn))))

1018

fiClosMake(e0, C16_addNameFn))((*((FiWord (*)())((*pG_CSVBL_domainAddNameFn_BANG_))->prog
->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain
,fiClosMakeFun(e0, (FiProg) (C16_addNameFn))));

1019

fiCCall2(FiWord, (*pG_XS55O_domainAddHash_BANG_), P0_domain, T3)((*((FiWord (*)())((*pG_XS55O_domainAddHash_BANG_))->prog->
fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,T3)
);

1020

return fiClosMake(e0, C17_addLevel1)fiClosMakeFun(e0, (FiProg) (C17_addLevel1));

1021

}

1022

1023

static struct _FiProg tmp15_addLevel0 = {

1024

(FiFun) CF15_addLevel0,

1025

0L,

1026

0L,

1027

0L,

1028

0L

1029

};

1030

1031

1032

static FiWord

1033

CF16_addNameFn(FiEnv e1)

1034

{

1035

PFmt5 T2, T4;

1036

FiWord *T1, *T3;

1037

FiSInt T0;

1038

PFmt17 l2;

1039

FiEnv e2;

1040

e2 = fiEnvNext(e1)((FiEnv) (e1)->next);

1041

l2 = (PFmt17) fiEnvLevel(e2)((FiEnv) (e2)->level);

1042

T0 = ((PFmt5) l2->X0_T)->X0_size;

1043

fiARRNEW_Word(T1, FiWord*, T0)((T1) = (FiWord*) fiArrNew_Word(T0));

1044

T2 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));

1045

T2->X0_size = T0;

1046

T2->X1_values = (FiWord*) T1;

1047

L0: T0 = T0 - 1L;

1048

if (T0 < 0) goto L1;

1049

T1[T0] = fiCCall1(FiWord, (*pG_GJ87F_domainName), ((PFmt5) l2->((*((FiWord (*)())((*pG_GJ87F_domainName))->prog->fun))
(((*pG_GJ87F_domainName))->env,((PFmt5) l2-> X0_T)->
X1_values[T0]))

1050

X0_T)->X1_values[T0])((*((FiWord (*)())((*pG_GJ87F_domainName))->prog->fun))
(((*pG_GJ87F_domainName))->env,((PFmt5) l2-> X0_T)->
X1_values[T0]));

1051

goto L0;

1052

L1: fiARRNEW_Word(T3, FiWord*, 2L)((T3) = (FiWord*) fiArrNew_Word(2L));

1053

T3[0L] = fiCCall1(FiWord, (*pG_FZP76_namePartFrString), "Union")((*((FiWord (*)())((*pG_FZP76_namePartFrString))->prog->
fun))(((*pG_FZP76_namePartFrString))->env,"Union"));

1054

T3[1L] = fiCCall2(FiWord, (*pG_9TG1R_namePartConcat), 1L, (FiWord)((*((FiWord (*)())((*pG_9TG1R_namePartConcat))->prog->fun
))(((*pG_9TG1R_namePartConcat))->env,1L,(FiWord) T2))

1055

T2)((*((FiWord (*)())((*pG_9TG1R_namePartConcat))->prog->fun
))(((*pG_9TG1R_namePartConcat))->env,1L,(FiWord) T2));

1056

T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));

1057

T4->X0_size = 2L;

1058

T4->X1_values = (FiWord*) T3;

1059

return fiCCall2(FiWord, (*pG_9TG1R_namePartConcat), 0L, T4)((*((FiWord (*)())((*pG_9TG1R_namePartConcat))->prog->fun
))(((*pG_9TG1R_namePartConcat))->env,0L,T4));

1060

}

1061

1062

static struct _FiProg tmp16_addNameFn = {

1063

(FiFun) CF16_addNameFn,

1064

0L,

1065

0L,

1066

0L,

1067

0L

1068

};

1069

1070

1071

static FiWord

1072

CF17_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)

1073

{

1074

FiWord *T0, *T1, *T2, T6, T14;

1075

FiSInt T7, T8, T9, T10, T11, T12, T13;

1076

PFmt8 T3, T4, T5;

1077

PFmt16 l0;

1078

FiEnv e3, e2, e0;

1079

PFmt17 l2;

1080

PFmt36 l3;

1081

l0 = fi0New(struct Fmt16 , CENSUS_EnvLevel)((struct Fmt16 *) fi0Alloc(sizeof(struct Fmt16), (19)));

1082

e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);

1083

e2 = fiEnvNext(e1)((FiEnv) (e1)->next);

1084

l2 = (PFmt17) fiEnvLevel(e2)((FiEnv) (e2)->level);

1085

e3 = fiEnvNext(e2)((FiEnv) (e2)->next);

1086

l3 = (PFmt36) fiEnvLevel(e3)((FiEnv) (e3)->level);

1087

fiARRNEW_Word(T0, FiWord*, 7L)((T0) = (FiWord*) fiArrNew_Word(7L));

1088

fiARRNEW_Word(T1, FiWord*, 7L)((T1) = (FiWord*) fiArrNew_Word(7L));

1089

fiARRNEW_Word(T2, FiWord*, 7L)((T2) = (FiWord*) fiArrNew_Word(7L));

1090

T6 = fiCCall1(FiWord, (*pG_IJHFC_domainMakeDispatch), P0_domain)((*((FiWord (*)())((*pG_IJHFC_domainMakeDispatch))->prog->
fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));

1091

l0->X6 = (FiSInt) P1_hashcode;

1092

l0->X5__EQ_ = fiClosMake(e0, C18__EQ_)fiClosMakeFun(e0, (FiProg) (C18__EQ_));

1093

l0->X3__LT__LT_ = fiClosMake(e0, C19__LT__LT_)fiClosMakeFun(e0, (FiProg) (C19__LT__LT_));

1094

l0->X2__TILDE__EQ_ = fiClosMake(e0, C20__TILDE__EQ_)fiClosMakeFun(e0, (FiProg) (C20__TILDE__EQ_));

1095

l0->X4__LT__LT_ = fiClosMake(e0, C21__LT__LT_)fiClosMakeFun(e0, (FiProg) (C21__LT__LT_));

1096

l0->X1_hash = fiClosMake(e0, C23_hash)fiClosMakeFun(e0, (FiProg) (C23_hash));

1097

l0->X0_case = fiClosMake(e0, C24_case)fiClosMakeFun(e0, (FiProg) (C24_case));

1098

fiSINT_HASHCOMBINE(T12, FiSInt, l0->X6, 51489085L)((T12) = (FiSInt) fiSIntHashCombine(l0->X6, 51489085L));

1099

fiSINT_HASHCOMBINE(T7, FiSInt, 740244383L, fiSIntHashCombine((FiSInt)((T7) = (FiSInt) fiSIntHashCombine(740244383L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X6, (FiSInt) T12))))

1100

32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X6, (FiSInt)((T7) = (FiSInt) fiSIntHashCombine(740244383L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X6, (FiSInt) T12))))

1101

T12)))((T7) = (FiSInt) fiSIntHashCombine(740244383L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X6, (FiSInt) T12))));

1102

fiSINT_HASHCOMBINE(T8, FiSInt, 182752316L, fiSIntHashCombine((FiSInt)((T8) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X6, (FiSInt) 102896482L))))

1103

32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X6, (FiSInt)((T8) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X6, (FiSInt) 102896482L))))

1104

102896482L)))((T8) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X6, (FiSInt) 102896482L))));

1105

fiSINT_HASHCOMBINE(T13, FiSInt, 32236L, T12)((T13) = (FiSInt) fiSIntHashCombine(32236L, T12));

1106

fiSINT_HASHCOMBINE(T9, FiSInt, 755420535L, T13)((T9) = (FiSInt) fiSIntHashCombine(755420535L, T13));

1107

fiSINT_HASHCOMBINE(T10, FiSInt, 33717313L, T13)((T10) = (FiSInt) fiSIntHashCombine(33717313L, T13));

1108

T11 = l0->X6;

1109

T3 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

1110

T3->X0_size = 7L;

1111

T3->X1_nsize = 7L;

1112

T3->X2_values = (FiWord) T0;

1113

T4 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

1114

T4->X0_size = 7L;

1115

T4->X1_nsize = 7L;

1116

T4->X2_values = (FiWord) T1;

1117

T5 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

1118

T5->X0_size = 7L;

1119

T5->X1_nsize = 7L;

1120

T5->X2_values = (FiWord) T2;

1121

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)
);

1122

fiCCall3(FiWord, (*pG_V9SO_domainAddDefaults), P0_domain, l3->((*((FiWord (*)())((*pG_V9SO_domainAddDefaults))->prog->
fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,l3->
X5_BasicType,T6))

1123

X5_BasicType, T6)((*((FiWord (*)())((*pG_V9SO_domainAddDefaults))->prog->
fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,l3->
X5_BasicType,T6));

1124

T0[0L] = (FiWord) 200102L;

1125

T1[0L] = (FiWord) T7;

1126

T2[0L] = (FiWord) l0->X5__EQ_;

1127

l0->X8_dom = (FiWord) G_IJ71Z_langx__DomainName__980;

1128

T14 = fiCCall3(FiWord, (*pG_QRAZA_rtDelayedGetExport), l0->((*((FiWord (*)())((*pG_QRAZA_rtDelayedGetExport))->prog->
fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0-> X8_dom
,51492426L,911265978L))

1129

X8_dom, 51492426L, 911265978L)((*((FiWord (*)())((*pG_QRAZA_rtDelayedGetExport))->prog->
fun))(((*pG_QRAZA_rtDelayedGetExport))->env,l0-> X8_dom
,51492426L,911265978L));

1130

l0->X7__LT__LT_ = fiCCall1(FiClos, (*((*((FiClos (*)())((* pG_DLXW8_stdGetWordWordRetWord))->prog
->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T14))

1131

pG_DLXW8_stdGetWordWordRetWord), T14)((*((FiClos (*)())((* pG_DLXW8_stdGetWordWordRetWord))->prog
->fun))(((* pG_DLXW8_stdGetWordWordRetWord))->env,T14));

1132

T0[1L] = (FiWord) 51492426L;

1133

T1[1L] = (FiWord) T8;

1134

T2[1L] = (FiWord) l0->X3__LT__LT_;

1135

T0[2L] = (FiWord) 51509389L;

1136

T1[2L] = (FiWord) T7;

1137

T2[2L] = (FiWord) l0->X2__TILDE__EQ_;

1138

T0[3L] = (FiWord) 51492426L;

1139

T1[3L] = (FiWord) T9;

1140

T2[3L] = (FiWord) l0->X4__LT__LT_;

1141

T0[4L] = (FiWord) 746853960L;

1142

T1[4L] = (FiWord) T10;

1143

T2[4L] = (FiWord) l0->X1_hash;

1144

T0[5L] = (FiWord) 864625472L;

1145

T1[5L] = (FiWord) T7;

1146

T2[5L] = (FiWord) l0->X0_case;

1147

T0[6L] = (FiWord) 255806968L;

1148

T1[6L] = (FiWord) T11;

1149

T2[6L] = (FiWord) fiNil((Ptr) 0);

1150

return P0_domain;

1151

}

1152

1153

static struct _FiProg tmp17_addLevel1 = {

1154

(FiFun) CF17_addLevel1,

1155

0L,

1156

0L,

1157

0L,

1158

0L

1159

};

1160

1161

1162

static FiWord

1163

CF18__EQ_(FiEnv e1, FiWord P0_a, FiWord P1_b)

1164

{

1165

return (FiWord) ((FiPtr) P0_a == (FiPtr) P1_b);

1166

}

1167

1168

static struct _FiProg tmp18__EQ_ = {

1169

(FiFun) CF18__EQ_,

1170

0L,

1171

0L,

1172

0L,

1173

0L

1174

};

1175

1176

1177

static FiWord

1178

CF19__LT__LT_(FiEnv e1, FiWord P0_outp, FiWord P1_a)

1179

{

1180

FiBool T30, T57, T81, T105, T129, T153, T177, T201, T225, T249, T273, T297, T321, T345, T369, T393, T417, T441, T465, T489, T513, T537, T561, T609, T610, T611, T612, T613, T614, T615, T616, T617, T618, T619, T620, T621, T622, T623, T624, T625, T626, T627, T628, T629, T630, T631, T633, T634, T635, T636, T637, T638, T639, T640, T641, T642, T643, T644, T645, T646, T647, T648, T649, T650, T651, T652,

1181

T653, T654, T655, T660, T661, T662, T663, T664, T665, T666, T667, T668, T669, T670, T671, T672, T673, T674, T675, T676, T677, T678, T679, T680, T681, T682;

1182

FiWord T1, T25, T27, T29, T31, T32, T33, T37, T45, T52, T54, T56, T58, T62, T70, T77, T79, T80, T82, T86, T94, T101, T103, T104, T106, T110, T118, T125, T127, T128, T130, T134, T142, T149, T151, T152, T154, T158, T166, T173, T175, T176, T178, T182, T190, T197, T199, T200, T202, T206, T214, T221, T223, T224, T226, T230, T238, T245, T247, T248, T250, T254, T262, T269, T271, T272,

1183

T274, T278, T286, T293, T295, T296, T298, T302, T303, T310, T317, T318, T319, T320, T322, T326, T327, T334, T341, T342, T343, T344, T346, T350, T351, T358, T365, T366, T367, T368, T370, T374, T375, T382, T389, T390, T391, T392, T394, T398, T399, T406, T413, T414, T415, T416, T418, T422, T423, T430, T437, T438, T439, T440, T442, T446, T447, T454, T461,

1184

T462, T463, T464, T466, T470, T471, T478, T485, T486, T487, T488, T490, T494, T495, T502, T509, T510, T511, T512, T514, T518, T519, T526, T533, T534, T535, T536, T538, T542, T543, T550, T557, T558, T559, T560, T562, T566, T567, T574, T581, T582, T583, T585_dom, T586_ll, T587_ll, T588_ll, T589_ll, T590_ll, T591_ll, T592_ll, T593_ll, T594_ll, T595_ll, T596_ll, T597_ll, T598_ll,

1185

T599_ll, T600_ll, T601_ll, T602_ll, T603_ll, T604_ll, T605_ll, T606_ll, T607_ll, T608_ll, T659;

1186

FiSInt T0_idx, T2, T632, T656, T657, T658;

1187

FiClos T7, T8, T9, T10, T11, T12, T13, T14, T15, T16, T17, T18, T19, T20, T21, T22, T23, T24, T26, T34, T35, T36, T39, T40, T41, T42, T43, T44, T46, T47, T48, T49, T50, T51, T59, T60, T61, T64, T65, T66, T67, T68, T69, T71, T72, T73, T74, T75, T76, T83, T84, T85, T88, T89, T90, T91, T92, T93, T95, T96, T97, T98, T99, T100, T107, T108,

1188

T109, T112, T113, T114, T115, T116, T117, T119, T120, T121, T122, T123, T124, T131, T132, T133, T136, T137, T138, T139, T140, T141, T143, T144, T145, T146, T147, T148, T155, T156, T157, T160, T161, T162, T163, T164, T165, T167, T168, T169, T170, T171, T172, T179, T180, T181, T184, T185, T186, T187, T188, T189, T191, T192, T193, T194, T195, T196, T203,

1189

T204, T205, T208, T209, T210, T211, T212, T213, T215, T216, T217, T218, T219, T220, T227, T228, T229, T232, T233, T234, T235, T236, T237, T239, T240, T241, T242, T243, T244, T251, T252, T253, T256, T257, T258, T259, T260, T261, T263, T264, T265, T266, T267, T268, T275, T276, T277, T280, T281, T282, T283, T284, T285, T287, T288, T289, T290, T291, T292,

1190

T299, T300, T301, T304, T305, T306, T307, T308, T309, T311, T312, T313, T314, T315, T316, T323, T324, T325, T328, T329, T330, T331, T332, T333, T335, T336, T337, T338, T339, T340, T347, T348, T349, T352, T353, T354, T355, T356, T357, T359, T360, T361, T362, T363, T364, T371, T372, T373, T376, T377, T378, T379, T380, T381, T383, T384, T385, T386, T387,

1191

T388, T395, T396, T397, T400, T401, T402, T403, T404, T405, T407, T408, T409, T410, T411, T412, T419, T420, T421, T424, T425, T426, T427, T428, T429, T431, T432, T433, T434, T435, T436, T443, T444, T445, T448, T449, T450, T451, T452, T453, T455, T456, T457, T458, T459, T460, T467, T468, T469, T472, T473, T474, T475, T476, T477, T479, T480, T481, T482,

1192

T483, T484, T491, T492, T493, T496, T497, T498, T499, T500, T501, T503, T504, T505, T506, T507, T508, T515, T516, T517, T520, T521, T522, T523, T524, T525, T527, T528, T529, T530, T531, T532, T539, T540, T541, T544, T545, T546, T547, T548, T549, T551, T552, T553, T554, T555, T556, T563, T564, T565, T568, T569, T570, T571, T572, T573, T575, T576, T577,

1193

T578, T579, T580, T584__LT__LT_;

1194

PFmt23 T38, T53, T55, T63, T78, T87, T102, T111, T126, T135, T150, T159, T174, T183, T198, T207, T222, T231, T246, T255, T270, T279, T294;

1195

FiEnv e4, e3, e2, T28;

1196

PFmt42 T3, T4, T5, T6;

1197

PFmt16 l1;

1198

PFmt17 l3;

1199

PFmt36 l4;

1200

l1 = (PFmt16) fiEnvLevel(e1)((FiEnv) (e1)->level);

1201

e2 = fiEnvNext(e1)((FiEnv) (e1)->next);

1202

e3 = fiEnvNext(e2)((FiEnv) (e2)->next);

1203

l3 = (PFmt17) fiEnvLevel(e3)((FiEnv) (e3)->level);

1204

e4 = fiEnvNext(e3)((FiEnv) (e3)->next);

1205

l4 = (PFmt36) fiEnvLevel(e4)((FiEnv) (e4)->level);

1206

T0_idx = ((PFmt13) P1_a)->X0_n + 1L;

1207

T4 = (PFmt42) l3->X0_T;

1208

T632 = T0_idx - 1L;

1209

T585_dom = T4->X1_values[T632];

1210

fiEnvEnsure(l4->X8_element->env)fiEnvEnsureFun(l4->X8_element->env);

1211

if (fiProgHashCode(l4->X8_element->prog)((l4->X8_element->prog)->data) == 0) goto L2;

1212

fiSINT_HASHCOMBINE(T2, FiSInt, 7L, fiSIntHashCombine((FiSInt) 7L, (((T2) = (FiSInt) fiSIntHashCombine(7L, fiSIntHashCombine((FiSInt
) 7L, ( FiSInt) ((l4->X8_element->prog)->data))))

1213

FiSInt) fiProgHashCode(l4->X8_element->prog)))((T2) = (FiSInt) fiSIntHashCombine(7L, fiSIntHashCombine((FiSInt
) 7L, ( FiSInt) ((l4->X8_element->prog)->data))));

1214

L3: fiSINT_HASHCOMBINE(T658, FiSInt, T2, 102896482L)((T658) = (FiSInt) fiSIntHashCombine(T2, 102896482L));

1215

fiSINT_HASHCOMBINE(T657, FiSInt, 32236L, T658)((T657) = (FiSInt) fiSIntHashCombine(32236L, T658));

1216

fiSINT_HASHCOMBINE(T656, FiSInt, 182752316L, T657)((T656) = (FiSInt) fiSIntHashCombine(182752316L, T657));

1217

T659 = fiCCall3(FiWord, (*pG_QRAZA_rtDelayedGetExport), T585_dom,((*((FiWord (*)())((*pG_QRAZA_rtDelayedGetExport))->prog->
fun))(((*pG_QRAZA_rtDelayedGetExport))->env,T585_dom,51492426L
,T656))

1218

51492426L, T656)((*((FiWord (*)())((*pG_QRAZA_rtDelayedGetExport))->prog->
fun))(((*pG_QRAZA_rtDelayedGetExport))->env,T585_dom,51492426L
,T656));

1219

T584__LT__LT_ = fiCCall1(FiClos, (*pG_DLXW8_stdGetWordWordRetWord),((*((FiClos (*)())((*pG_DLXW8_stdGetWordWordRetWord))->prog
->fun))(((*pG_DLXW8_stdGetWordWordRetWord))->env,T659))

1220

T659)((*((FiClos (*)())((*pG_DLXW8_stdGetWordWordRetWord))->prog
->fun))(((*pG_DLXW8_stdGetWordWordRetWord))->env,T659));

1221

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1222

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T7, &T8, &T9);

1223

fiCCall3(FiWord, T8, (FiWord) "U[", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T8)->prog->fun))((T8)->env,(FiWord
) "U[",(FiWord) 1L,(FiWord) 0L));

1224

T25 = formatSInt(T0_idx);

1225

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1226

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T22, &T23, &T24);

1227

fiCCall3(FiWord, T23, T25, (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T23)->prog->fun))((T23)->env,T25,
(FiWord) 1L,(FiWord) 0L));

1228

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1229

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T19, &T20, &T21);

1230

fiCCall3(FiWord, T20, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T20)->prog->fun))((T20)->env,(FiWord
) ", ",(FiWord) 1L,(FiWord) 0L));

1231

T6 = (PFmt42) l3->X0_T;

1232

T1 = T6->X1_values[T632];

1233

if (fiCCall3(FiBool, (*pG_RSCGM_domainTestExport), T1, 51482908L,((*((FiBool (*)())((*pG_RSCGM_domainTestExport))->prog->
fun))(((*pG_RSCGM_domainTestExport))->env,T1,51482908L,925676085L
))

1234

925676085L)((*((FiBool (*)())((*pG_RSCGM_domainTestExport))->prog->
fun))(((*pG_RSCGM_domainTestExport))->env,T1,51482908L,925676085L
))) goto L0;

1235

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1236

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T16, &T17, &T18);

1237

fiCCall3(FiWord, T17, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T17)->prog->fun))((T17)->env,(FiWord
) "\?\?",(FiWord) 1L,(FiWord) 0L));

1238

L1: T5 = (PFmt42) l3->X0_T;

1239

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1240

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T10, &T11, &T12);

1241

fiCCall3(FiWord, T11, (FiWord) "@", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T11)->prog->fun))((T11)->env,(FiWord
) "@",(FiWord) 1L,(FiWord) 0L));

1242

fiEnvEnsure(((FiClos) G_G681E_langx__typeName__77242)->env)fiEnvEnsureFun(((FiClos) G_G681E_langx__typeName__77242)->
env);

1243

T27 = T5->X1_values[T632];

1244

T26 = (FiClos) ((PFmt28) ((PFmt26) T27)->X0_dispatcher)->

1245

X1_namer;

1246

fiEnvEnsure(l1->X7__LT__LT_->env)fiEnvEnsureFun(l1->X7__LT__LT_->env);

1247

T28 = l1->X7__LT__LT_->env;

1248

T55 = (PFmt23) fiCCall1(FiWord, T26, ((PFmt26) T27)->((*((FiWord (*)())(T26)->prog->fun))((T26)->env,((PFmt26
) T27)-> X1_domainRep))

1249

X1_domainRep)((*((FiWord (*)())(T26)->prog->fun))((T26)->env,((PFmt26
) T27)-> X1_domainRep));

1250

if (T55->X0_tag == 0) goto L4;

1251

if (T55->X0_tag == 3L) goto L6;

1252

T30 = T55->X0_tag == 2L;

1253

if (T30) goto L8;

1254

T33 = T55->X1_p;

1255

fiPTR_IS_NIL(T609, FiBool, (FiPtr) T33)((T609) = (FiBool)((FiPtr) ((FiPtr) T33) == (FiPtr) 0));

1256

if (T609) goto L10;

1257

T53 = (PFmt23) ((PFmt39) T33)->X0_first;

1258

fiEnvEnsure(T28)fiEnvEnsureFun(T28);

1259

if (T53->X0_tag == 0) goto L14;

1260

if (T53->X0_tag == 3L) goto L15;

1261

T57 = T53->X0_tag == 2L;

1262

if (T57) goto L16;

1263

T58 = T53->X1_p;

1264

fiPTR_IS_NIL(T610, FiBool, (FiPtr) T58)((T610) = (FiBool)((FiPtr) ((FiPtr) T58) == (FiPtr) 0));

1265

if (T610) goto L18;

1266

T78 = (PFmt23) ((PFmt39) T58)->X0_first;

1267

fiEnvEnsure(T28)fiEnvEnsureFun(T28);

1268

if (T78->X0_tag == 0) goto L38;

1269

if (T78->X0_tag == 3L) goto L39;

1270

T129 = T78->X0_tag == 2L;

1271

if (T129) goto L40;

1272

T130 = T78->X1_p;

1273

fiPTR_IS_NIL(T613, FiBool, (FiPtr) T130)((T613) = (FiBool)((FiPtr) ((FiPtr) T130) == (FiPtr) 0));

1274

if (T613) goto L42;

1275

T150 = (PFmt23) ((PFmt39) T130)->X0_first;

1276

fiEnvEnsure(T28)fiEnvEnsureFun(T28);

1277

if (T150->X0_tag == 0) goto L86;

1278

if (T150->X0_tag == 3L) goto L87;

1279

T273 = T150->X0_tag == 2L;

1280

if (T273) goto L88;

1281

T274 = T150->X1_p;

1282

fiPTR_IS_NIL(T619, FiBool, (FiPtr) T274)((T619) = (FiBool)((FiPtr) ((FiPtr) T274) == (FiPtr) 0));

1283

if (T619) goto L90;

1284

T294 = (PFmt23) ((PFmt39) T274)->X0_first;

1285

fiEnvEnsure(T28)fiEnvEnsureFun(T28);

1286

if (T294->X0_tag == 0) goto L174;

1287

if (T294->X0_tag == 3L) goto L175;

1288

T537 = T294->X0_tag == 2L;

1289

if (T537) goto L176;

1290

T538 = T294->X1_p;

1291

fiPTR_IS_NIL(T631, FiBool, (FiPtr) T538)((T631) = (FiBool)((FiPtr) ((FiPtr) T538) == (FiPtr) 0));

1292

if (T631) goto L178;

1293

T558 = ((PFmt39) T538)->X0_first;

1294

CF46__LT__LT_(T28, (FiWord) P0_outp, (FiWord) T558);

1295

T557 = ((PFmt39) T538)->X1_rest;

1296

T536 = T557;

1297

L177: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1298

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T551, &T552, &

1299

T553);

1300

fiCCall3(FiWord, T552, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T552)->prog->fun))((T552)->env,(FiWord
) "(",(FiWord) 1L,(FiWord) 0L));

1301

T607_ll = T536;

1302

L179: fiPTR_IS_NIL(T633, FiBool, (FiPtr) T607_ll)((T633) = (FiBool)((FiPtr) ((FiPtr) T607_ll) == (FiPtr) 0));

1303

if (T633) goto L180;

1304

T559 = ((PFmt39) T607_ll)->X1_rest;

1305

T543 = ((PFmt39) T607_ll)->X0_first;

1306

CF46__LT__LT_(T28, (FiWord) P0_outp, (FiWord) T543);

1307

T542 = ((PFmt39) T607_ll)->X1_rest;

1308

fiPTR_IS_NIL(T660, FiBool, (FiPtr) T542)((T660) = (FiBool)((FiPtr) ((FiPtr) T542) == (FiPtr) 0));

1309

if (T660) goto L181;

1310

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1311

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T539, &T540, &

1312

T541);

1313

fiCCall3(FiWord, T540, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T540)->prog->fun))((T540)->env,(FiWord
) ", ",(FiWord) 1L,(FiWord) 0L));

1314

L181: T607_ll = T559;

1315

goto L179;

1316

L180: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1317

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T544, &T545, &

1318

T546);

1319

fiCCall3(FiWord, T545, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T545)->prog->fun))((T545)->env,(FiWord
) ")",(FiWord) 1L,(FiWord) 0L));

1320

L211: T293 = ((PFmt39) T274)->X1_rest;

1321

T272 = T293;

1322

L89: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1323

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T287, &T288, &

1324

T289);

1325

fiCCall3(FiWord, T288, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T288)->prog->fun))((T288)->env,(FiWord
) "(",(FiWord) 1L,(FiWord) 0L));

1326

T596_ll = T272;

1327

L91: fiPTR_IS_NIL(T634, FiBool, (FiPtr) T596_ll)((T634) = (FiBool)((FiPtr) ((FiPtr) T596_ll) == (FiPtr) 0));

1328

if (T634) goto L92;

1329

T295 = ((PFmt39) T596_ll)->X1_rest;

1330

T279 = (PFmt23) ((PFmt39) T596_ll)->X0_first;

1331

fiEnvEnsure(T28)fiEnvEnsureFun(T28);

1332

if (T279->X0_tag == 0) goto L182;

1333

if (T279->X0_tag == 3L) goto L183;

1334

T561 = T279->X0_tag == 2L;

1335

if (T561) goto L184;

1336

T562 = T279->X1_p;

1337

fiPTR_IS_NIL(T630, FiBool, (FiPtr) T562)((T630) = (FiBool)((FiPtr) ((FiPtr) T562) == (FiPtr) 0));

1338

if (T630) goto L186;

1339

T582 = ((PFmt39) T562)->X0_first;

1340

CF46__LT__LT_(T28, (FiWord) P0_outp, (FiWord) T582);

1341

T581 = ((PFmt39) T562)->X1_rest;

1342

T560 = T581;

1343

L185: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1344

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T575, &T576, &

1345

T577);

1346

fiCCall3(FiWord, T576, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T576)->prog->fun))((T576)->env,(FiWord
) "(",(FiWord) 1L,(FiWord) 0L));

1347

T608_ll = T560;

1348

L187: fiPTR_IS_NIL(T635, FiBool, (FiPtr) T608_ll)((T635) = (FiBool)((FiPtr) ((FiPtr) T608_ll) == (FiPtr) 0));

1349

if (T635) goto L188;

1350

T583 = ((PFmt39) T608_ll)->X1_rest;

1351

T567 = ((PFmt39) T608_ll)->X0_first;

1352

CF46__LT__LT_(T28, (FiWord) P0_outp, (FiWord) T567);

1353

T566 = ((PFmt39) T608_ll)->X1_rest;

1354

fiPTR_IS_NIL(T661, FiBool, (FiPtr) T566)((T661) = (FiBool)((FiPtr) ((FiPtr) T566) == (FiPtr) 0));

1355

if (T661) goto L189;

1356

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1357

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T563, &T564, &

1358

T565);

1359

fiCCall3(FiWord, T564, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T564)->prog->fun))((T564)->env,(FiWord
) ", ",(FiWord) 1L,(FiWord) 0L));

1360

L189: T608_ll = T583;

1361

goto L187;

1362

L188: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1363

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T568, &T569, &

1364

T570);

1365

fiCCall3(FiWord, T569, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T569)->prog->fun))((T569)->env,(FiWord
) ")",(FiWord) 1L,(FiWord) 0L));

1366

L209: T278 = ((PFmt39) T596_ll)->X1_rest;

1367

fiPTR_IS_NIL(T662, FiBool, (FiPtr) T278)((T662) = (FiBool)((FiPtr) ((FiPtr) T278) == (FiPtr) 0));

1368

if (T662) goto L93;

1369

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1370

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T275, &T276, &

1371

T277);

1372

fiCCall3(FiWord, T276, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T276)->prog->fun))((T276)->env,(FiWord
) ", ",(FiWord) 1L,(FiWord) 0L));

1373

L93: T596_ll = T295;

1374

goto L91;

1375

L186: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());

1376

fputc((FiWord) 10L, stdoutFile());

1377

fiHalt((FiSInt) 0L);

1378

return (FiWord) 0L;

1379

L184: T562 = T279->X1_p;

1380

T560 = T562;

1381

goto L185;

1382

L183: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1383

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T578, &T579, &

1384

T580);

1385

fiCCall3(FiWord, T579, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T579)->prog->fun))((T579)->env,(FiWord
) "\?\?",(FiWord) 1L,(FiWord) 0L));

1386

goto L209;

1387

L182: T574 = T279->X1_p;

1388

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1389

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T571, &T572, &

1390

T573);

1391

fiCCall3(FiWord, T572, T574, (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T572)->prog->fun))((T572)->env,T574
,(FiWord) 1L,(FiWord) 0L));

1392

goto L209;

1393

L92: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1394

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T280, &T281, &

1395

T282);

1396

fiCCall3(FiWord, T281, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T281)->prog->fun))((T281)->env,(FiWord
) ")",(FiWord) 1L,(FiWord) 0L));

1397

L210: T149 = ((PFmt39) T130)->X1_rest;

1398

T128 = T149;

1399

L41: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1400

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T143, &T144, &

1401

T145);

1402

fiCCall3(FiWord, T144, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T144)->prog->fun))((T144)->env,(FiWord
) "(",(FiWord) 1L,(FiWord) 0L));

1403

T590_ll = T128;

1404

L43: fiPTR_IS_NIL(T636, FiBool, (FiPtr) T590_ll)((T636) = (FiBool)((FiPtr) ((FiPtr) T590_ll) == (FiPtr) 0));

1405

if (T636) goto L44;

1406

T151 = ((PFmt39) T590_ll)->X1_rest;

1407

T135 = (PFmt23) ((PFmt39) T590_ll)->X0_first;

1408

fiEnvEnsure(T28)fiEnvEnsureFun(T28);

1409

if (T135->X0_tag == 0) goto L78;

1410

if (T135->X0_tag == 3L) goto L79;

1411

T249 = T135->X0_tag == 2L;

1412

if (T249) goto L80;

1413

T250 = T135->X1_p;

1414

fiPTR_IS_NIL(T618, FiBool, (FiPtr) T250)((T618) = (FiBool)((FiPtr) ((FiPtr) T250) == (FiPtr) 0));

1415

if (T618) goto L82;

1416

T270 = (PFmt23) ((PFmt39) T250)->X0_first;

1417

fiEnvEnsure(T28)fiEnvEnsureFun(T28);

1418

if (T270->X0_tag == 0) goto L158;

1419

if (T270->X0_tag == 3L) goto L159;

1420

T489 = T270->X0_tag == 2L;

1421

if (T489) goto L160;

1422

T490 = T270->X1_p;

1423

fiPTR_IS_NIL(T629, FiBool, (FiPtr) T490)((T629) = (FiBool)((FiPtr) ((FiPtr) T490) == (FiPtr) 0));

1424

if (T629) goto L162;

1425

T510 = ((PFmt39) T490)->X0_first;

1426

CF46__LT__LT_(T28, (FiWord) P0_outp, (FiWord) T510);

1427

T509 = ((PFmt39) T490)->X1_rest;

1428

T488 = T509;

1429

L161: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1430

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T503, &T504, &

1431

T505);

1432

fiCCall3(FiWord, T504, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T504)->prog->fun))((T504)->env,(FiWord
) "(",(FiWord) 1L,(FiWord) 0L));

1433

T605_ll = T488;

1434

L163: fiPTR_IS_NIL(T637, FiBool, (FiPtr) T605_ll)((T637) = (FiBool)((FiPtr) ((FiPtr) T605_ll) == (FiPtr) 0));

1435

if (T637) goto L164;

1436

T511 = ((PFmt39) T605_ll)->X1_rest;

1437

T495 = ((PFmt39) T605_ll)->X0_first;

1438

CF46__LT__LT_(T28, (FiWord) P0_outp, (FiWord) T495);

1439

T494 = ((PFmt39) T605_ll)->X1_rest;

1440

fiPTR_IS_NIL(T663, FiBool, (FiPtr) T494)((T663) = (FiBool)((FiPtr) ((FiPtr) T494) == (FiPtr) 0));

1441

if (T663) goto L165;

1442

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1443

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T491, &T492, &

1444

T493);

1445

fiCCall3(FiWord, T492, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T492)->prog->fun))((T492)->env,(FiWord
) ", ",(FiWord) 1L,(FiWord) 0L));

1446

L165: T605_ll = T511;

1447

goto L163;

1448

L164: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1449

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T496, &T497, &

1450

T498);

1451

fiCCall3(FiWord, T497, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T497)->prog->fun))((T497)->env,(FiWord
) ")",(FiWord) 1L,(FiWord) 0L));

1452

L207: T269 = ((PFmt39) T250)->X1_rest;

1453

T248 = T269;

1454

L81: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1455

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T263, &T264, &

1456

T265);

1457

fiCCall3(FiWord, T264, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T264)->prog->fun))((T264)->env,(FiWord
) "(",(FiWord) 1L,(FiWord) 0L));

1458

T595_ll = T248;

1459

L83: fiPTR_IS_NIL(T638, FiBool, (FiPtr) T595_ll)((T638) = (FiBool)((FiPtr) ((FiPtr) T595_ll) == (FiPtr) 0));

1460

if (T638) goto L84;

1461

T271 = ((PFmt39) T595_ll)->X1_rest;

1462

T255 = (PFmt23) ((PFmt39) T595_ll)->X0_first;

1463

fiEnvEnsure(T28)fiEnvEnsureFun(T28);

1464

if (T255->X0_tag == 0) goto L166;

1465

if (T255->X0_tag == 3L) goto L167;

1466

T513 = T255->X0_tag == 2L;

1467

if (T513) goto L168;

1468

T514 = T255->X1_p;

1469

fiPTR_IS_NIL(T628, FiBool, (FiPtr) T514)((T628) = (FiBool)((FiPtr) ((FiPtr) T514) == (FiPtr) 0));

1470

if (T628) goto L170;

1471

T534 = ((PFmt39) T514)->X0_first;

1472

CF46__LT__LT_(T28, (FiWord) P0_outp, (FiWord) T534);

1473

T533 = ((PFmt39) T514)->X1_rest;

1474

T512 = T533;

1475

L169: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1476

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T527, &T528, &

1477

T529);

1478

fiCCall3(FiWord, T528, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T528)->prog->fun))((T528)->env,(FiWord
) "(",(FiWord) 1L,(FiWord) 0L));

1479

T606_ll = T512;

1480

L171: fiPTR_IS_NIL(T639, FiBool, (FiPtr) T606_ll)((T639) = (FiBool)((FiPtr) ((FiPtr) T606_ll) == (FiPtr) 0));

1481

if (T639) goto L172;

1482

T535 = ((PFmt39) T606_ll)->X1_rest;

1483

T519 = ((PFmt39) T606_ll)->X0_first;

1484

CF46__LT__LT_(T28, (FiWord) P0_outp, (FiWord) T519);

1485

T518 = ((PFmt39) T606_ll)->X1_rest;

1486

fiPTR_IS_NIL(T664, FiBool, (FiPtr) T518)((T664) = (FiBool)((FiPtr) ((FiPtr) T518) == (FiPtr) 0));

1487

if (T664) goto L173;

1488

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1489

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T515, &T516, &

1490

T517);

1491

fiCCall3(FiWord, T516, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T516)->prog->fun))((T516)->env,(FiWord
) ", ",(FiWord) 1L,(FiWord) 0L));

1492

L173: T606_ll = T535;

1493

goto L171;

1494

L172: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1495

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T520, &T521, &

1496

T522);

1497

fiCCall3(FiWord, T521, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T521)->prog->fun))((T521)->env,(FiWord
) ")",(FiWord) 1L,(FiWord) 0L));

1498

L205: T254 = ((PFmt39) T595_ll)->X1_rest;

1499

fiPTR_IS_NIL(T665, FiBool, (FiPtr) T254)((T665) = (FiBool)((FiPtr) ((FiPtr) T254) == (FiPtr) 0));

1500

if (T665) goto L85;

1501

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1502

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T251, &T252, &

1503

T253);

1504

fiCCall3(FiWord, T252, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T252)->prog->fun))((T252)->env,(FiWord
) ", ",(FiWord) 1L,(FiWord) 0L));

1505

L85: T595_ll = T271;

1506

goto L83;

1507

L170: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());

1508

fputc((FiWord) 10L, stdoutFile());

1509

fiHalt((FiSInt) 0L);

1510

return (FiWord) 0L;

1511

L168: T514 = T255->X1_p;

1512

T512 = T514;

1513

goto L169;

1514

L167: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1515

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T530, &T531, &

1516

T532);

1517

fiCCall3(FiWord, T531, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T531)->prog->fun))((T531)->env,(FiWord
) "\?\?",(FiWord) 1L,(FiWord) 0L));

1518

goto L205;

1519

L166: T526 = T255->X1_p;

1520

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1521

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T523, &T524, &

1522

T525);

1523

fiCCall3(FiWord, T524, T526, (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T524)->prog->fun))((T524)->env,T526
,(FiWord) 1L,(FiWord) 0L));

1524

goto L205;

1525

L84: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1526

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T256, &T257, &

1527

T258);

1528

fiCCall3(FiWord, T257, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T257)->prog->fun))((T257)->env,(FiWord
) ")",(FiWord) 1L,(FiWord) 0L));

1529

L206: T134 = ((PFmt39) T590_ll)->X1_rest;

1530

fiPTR_IS_NIL(T666, FiBool, (FiPtr) T134)((T666) = (FiBool)((FiPtr) ((FiPtr) T134) == (FiPtr) 0));

1531

if (T666) goto L45;

1532

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1533

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T131, &T132, &

1534

T133);

1535

fiCCall3(FiWord, T132, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T132)->prog->fun))((T132)->env,(FiWord
) ", ",(FiWord) 1L,(FiWord) 0L));

1536

L45: T590_ll = T151;

1537

goto L43;

1538

L162: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());

1539

fputc((FiWord) 10L, stdoutFile());

1540

fiHalt((FiSInt) 0L);

1541

return (FiWord) 0L;

1542

L160: T490 = T270->X1_p;

1543

T488 = T490;

1544

goto L161;

1545

L159: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1546

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T506, &T507, &

1547

T508);

1548

fiCCall3(FiWord, T507, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T507)->prog->fun))((T507)->env,(FiWord
) "\?\?",(FiWord) 1L,(FiWord) 0L));

1549

goto L207;

1550

L158: T502 = T270->X1_p;

1551

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1552

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T499, &T500, &

1553

T501);

1554

fiCCall3(FiWord, T500, T502, (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T500)->prog->fun))((T500)->env,T502
,(FiWord) 1L,(FiWord) 0L));

1555

goto L207;

1556

L82: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());

1557

fputc((FiWord) 10L, stdoutFile());

1558

fiHalt((FiSInt) 0L);

1559

return (FiWord) 0L;

1560

L80: T250 = T135->X1_p;

1561

T248 = T250;

1562

goto L81;

1563

L79: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1564

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T266, &T267, &

1565

T268);

1566

fiCCall3(FiWord, T267, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T267)->prog->fun))((T267)->env,(FiWord
) "\?\?",(FiWord) 1L,(FiWord) 0L));

1567

goto L206;

1568

L78: T262 = T135->X1_p;

1569

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1570

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T259, &T260, &

1571

T261);

1572

fiCCall3(FiWord, T260, T262, (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T260)->prog->fun))((T260)->env,T262
,(FiWord) 1L,(FiWord) 0L));

1573

goto L206;

1574

L44: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1575

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T136, &T137, &

1576

T138);

1577

fiCCall3(FiWord, T137, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T137)->prog->fun))((T137)->env,(FiWord
) ")",(FiWord) 1L,(FiWord) 0L));

1578

L208: T77 = ((PFmt39) T58)->X1_rest;

1579

T56 = T77;

1580

L17: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1581

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T71, &T72, &T73);

1582

fiCCall3(FiWord, T72, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T72)->prog->fun))((T72)->env,(FiWord
) "(",(FiWord) 1L,(FiWord) 0L));

1583

T587_ll = T56;

1584

L19: fiPTR_IS_NIL(T640, FiBool, (FiPtr) T587_ll)((T640) = (FiBool)((FiPtr) ((FiPtr) T587_ll) == (FiPtr) 0));

1585

if (T640) goto L20;

1586

T79 = ((PFmt39) T587_ll)->X1_rest;

1587

T63 = (PFmt23) ((PFmt39) T587_ll)->X0_first;

1588

fiEnvEnsure(T28)fiEnvEnsureFun(T28);

1589

if (T63->X0_tag == 0) goto L30;

1590

if (T63->X0_tag == 3L) goto L31;

1591

T105 = T63->X0_tag == 2L;

1592

if (T105) goto L32;

1593

T106 = T63->X1_p;

1594

fiPTR_IS_NIL(T612, FiBool, (FiPtr) T106)((T612) = (FiBool)((FiPtr) ((FiPtr) T106) == (FiPtr) 0));

1595

if (T612) goto L34;

1596

T126 = (PFmt23) ((PFmt39) T106)->X0_first;

1597

fiEnvEnsure(T28)fiEnvEnsureFun(T28);

1598

if (T126->X0_tag == 0) goto L62;

1599

if (T126->X0_tag == 3L) goto L63;

1600

T201 = T126->X0_tag == 2L;

1601

if (T201) goto L64;

1602

T202 = T126->X1_p;

1603

fiPTR_IS_NIL(T616, FiBool, (FiPtr) T202)((T616) = (FiBool)((FiPtr) ((FiPtr) T202) == (FiPtr) 0));

1604

if (T616) goto L66;

1605

T222 = (PFmt23) ((PFmt39) T202)->X0_first;

1606

fiEnvEnsure(T28)fiEnvEnsureFun(T28);

1607

if (T222->X0_tag == 0) goto L134;

1608

if (T222->X0_tag == 3L) goto L135;

1609

T417 = T222->X0_tag == 2L;

1610

if (T417) goto L136;

1611

T418 = T222->X1_p;

1612

fiPTR_IS_NIL(T627, FiBool, (FiPtr) T418)((T627) = (FiBool)((FiPtr) ((FiPtr) T418) == (FiPtr) 0));

1613

if (T627) goto L138;

1614

T438 = ((PFmt39) T418)->X0_first;

1615

CF46__LT__LT_(T28, (FiWord) P0_outp, (FiWord) T438);

1616

T437 = ((PFmt39) T418)->X1_rest;

1617

T416 = T437;

1618

L137: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1619

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T431, &T432, &

1620

T433);

1621

fiCCall3(FiWord, T432, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T432)->prog->fun))((T432)->env,(FiWord
) "(",(FiWord) 1L,(FiWord) 0L));

1622

T602_ll = T416;

1623

L139: fiPTR_IS_NIL(T641, FiBool, (FiPtr) T602_ll)((T641) = (FiBool)((FiPtr) ((FiPtr) T602_ll) == (FiPtr) 0));

1624

if (T641) goto L140;

1625

T439 = ((PFmt39) T602_ll)->X1_rest;

1626

T423 = ((PFmt39) T602_ll)->X0_first;

1627

CF46__LT__LT_(T28, (FiWord) P0_outp, (FiWord) T423);

1628

T422 = ((PFmt39) T602_ll)->X1_rest;

1629

fiPTR_IS_NIL(T667, FiBool, (FiPtr) T422)((T667) = (FiBool)((FiPtr) ((FiPtr) T422) == (FiPtr) 0));

1630

if (T667) goto L141;

1631

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1632

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T419, &T420, &

1633

T421);

1634

fiCCall3(FiWord, T420, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T420)->prog->fun))((T420)->env,(FiWord
) ", ",(FiWord) 1L,(FiWord) 0L));

1635

L141: T602_ll = T439;

1636

goto L139;

1637

L140: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1638

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T424, &T425, &

1639

T426);

1640

fiCCall3(FiWord, T425, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T425)->prog->fun))((T425)->env,(FiWord
) ")",(FiWord) 1L,(FiWord) 0L));

1641

L203: T221 = ((PFmt39) T202)->X1_rest;

1642

T200 = T221;

1643

L65: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1644

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T215, &T216, &

1645

T217);

1646

fiCCall3(FiWord, T216, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T216)->prog->fun))((T216)->env,(FiWord
) "(",(FiWord) 1L,(FiWord) 0L));

1647

T593_ll = T200;

1648

L67: fiPTR_IS_NIL(T642, FiBool, (FiPtr) T593_ll)((T642) = (FiBool)((FiPtr) ((FiPtr) T593_ll) == (FiPtr) 0));

1649

if (T642) goto L68;

1650

T223 = ((PFmt39) T593_ll)->X1_rest;

1651

T207 = (PFmt23) ((PFmt39) T593_ll)->X0_first;

1652

fiEnvEnsure(T28)fiEnvEnsureFun(T28);

1653

if (T207->X0_tag == 0) goto L126;

1654

if (T207->X0_tag == 3L) goto L127;

1655

T393 = T207->X0_tag == 2L;

1656

if (T393) goto L128;

1657

T394 = T207->X1_p;

1658

fiPTR_IS_NIL(T626, FiBool, (FiPtr) T394)((T626) = (FiBool)((FiPtr) ((FiPtr) T394) == (FiPtr) 0));

1659

if (T626) goto L130;

1660

T414 = ((PFmt39) T394)->X0_first;

1661

CF46__LT__LT_(T28, (FiWord) P0_outp, (FiWord) T414);

1662

T413 = ((PFmt39) T394)->X1_rest;

1663

T392 = T413;

1664

L129: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1665

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T407, &T408, &

1666

T409);

1667

fiCCall3(FiWord, T408, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T408)->prog->fun))((T408)->env,(FiWord
) "(",(FiWord) 1L,(FiWord) 0L));

1668

T601_ll = T392;

1669

L131: fiPTR_IS_NIL(T643, FiBool, (FiPtr) T601_ll)((T643) = (FiBool)((FiPtr) ((FiPtr) T601_ll) == (FiPtr) 0));

1670

if (T643) goto L132;

1671

T415 = ((PFmt39) T601_ll)->X1_rest;

1672

T399 = ((PFmt39) T601_ll)->X0_first;

1673

CF46__LT__LT_(T28, (FiWord) P0_outp, (FiWord) T399);

1674

T398 = ((PFmt39) T601_ll)->X1_rest;

1675

fiPTR_IS_NIL(T668, FiBool, (FiPtr) T398)((T668) = (FiBool)((FiPtr) ((FiPtr) T398) == (FiPtr) 0));

1676

if (T668) goto L133;

1677

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1678

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T395, &T396, &

1679

T397);

1680

fiCCall3(FiWord, T396, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T396)->prog->fun))((T396)->env,(FiWord
) ", ",(FiWord) 1L,(FiWord) 0L));

1681

L133: T601_ll = T415;

1682

goto L131;

1683

L132: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1684

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T400, &T401, &

1685

T402);

1686

fiCCall3(FiWord, T401, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T401)->prog->fun))((T401)->env,(FiWord
) ")",(FiWord) 1L,(FiWord) 0L));

1687

L201: T206 = ((PFmt39) T593_ll)->X1_rest;

1688

fiPTR_IS_NIL(T669, FiBool, (FiPtr) T206)((T669) = (FiBool)((FiPtr) ((FiPtr) T206) == (FiPtr) 0));

1689

if (T669) goto L69;

1690

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1691

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T203, &T204, &

1692

T205);

1693

fiCCall3(FiWord, T204, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T204)->prog->fun))((T204)->env,(FiWord
) ", ",(FiWord) 1L,(FiWord) 0L));

1694

L69: T593_ll = T223;

1695

goto L67;

1696

L130: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());

1697

fputc((FiWord) 10L, stdoutFile());

1698

fiHalt((FiSInt) 0L);

1699

return (FiWord) 0L;

1700

L128: T394 = T207->X1_p;

1701

T392 = T394;

1702

goto L129;

1703

L127: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1704

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T410, &T411, &

1705

T412);

1706

fiCCall3(FiWord, T411, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T411)->prog->fun))((T411)->env,(FiWord
) "\?\?",(FiWord) 1L,(FiWord) 0L));

1707

goto L201;

1708

L126: T406 = T207->X1_p;

1709

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1710

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T403, &T404, &

1711

T405);

1712

fiCCall3(FiWord, T404, T406, (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T404)->prog->fun))((T404)->env,T406
,(FiWord) 1L,(FiWord) 0L));

1713

goto L201;

1714

L68: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1715

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T208, &T209, &

1716

T210);

1717

fiCCall3(FiWord, T209, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T209)->prog->fun))((T209)->env,(FiWord
) ")",(FiWord) 1L,(FiWord) 0L));

1718

L202: T125 = ((PFmt39) T106)->X1_rest;

1719

T104 = T125;

1720

L33: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1721

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T119, &T120, &

1722

T121);

1723

fiCCall3(FiWord, T120, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T120)->prog->fun))((T120)->env,(FiWord
) "(",(FiWord) 1L,(FiWord) 0L));

1724

T589_ll = T104;

1725

L35: fiPTR_IS_NIL(T644, FiBool, (FiPtr) T589_ll)((T644) = (FiBool)((FiPtr) ((FiPtr) T589_ll) == (FiPtr) 0));

1726

if (T644) goto L36;

1727

T127 = ((PFmt39) T589_ll)->X1_rest;

1728

T111 = (PFmt23) ((PFmt39) T589_ll)->X0_first;

1729

fiEnvEnsure(T28)fiEnvEnsureFun(T28);

1730

if (T111->X0_tag == 0) goto L70;

1731

if (T111->X0_tag == 3L) goto L71;

1732

T225 = T111->X0_tag == 2L;

1733

if (T225) goto L72;

1734

T226 = T111->X1_p;

1735

fiPTR_IS_NIL(T617, FiBool, (FiPtr) T226)((T617) = (FiBool)((FiPtr) ((FiPtr) T226) == (FiPtr) 0));

1736

if (T617) goto L74;

1737

T246 = (PFmt23) ((PFmt39) T226)->X0_first;

1738

fiEnvEnsure(T28)fiEnvEnsureFun(T28);

1739

if (T246->X0_tag == 0) goto L142;

1740

if (T246->X0_tag == 3L) goto L143;

1741

T441 = T246->X0_tag == 2L;

1742

if (T441) goto L144;

1743

T442 = T246->X1_p;

1744

fiPTR_IS_NIL(T625, FiBool, (FiPtr) T442)((T625) = (FiBool)((FiPtr) ((FiPtr) T442) == (FiPtr) 0));

1745

if (T625) goto L146;

1746

T462 = ((PFmt39) T442)->X0_first;

1747

CF46__LT__LT_(T28, (FiWord) P0_outp, (FiWord) T462);

1748

T461 = ((PFmt39) T442)->X1_rest;

1749

T440 = T461;

1750

L145: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1751

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T455, &T456, &

1752

T457);

1753

fiCCall3(FiWord, T456, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T456)->prog->fun))((T456)->env,(FiWord
) "(",(FiWord) 1L,(FiWord) 0L));

1754

T603_ll = T440;

1755

L147: fiPTR_IS_NIL(T645, FiBool, (FiPtr) T603_ll)((T645) = (FiBool)((FiPtr) ((FiPtr) T603_ll) == (FiPtr) 0));

1756

if (T645) goto L148;

1757

T463 = ((PFmt39) T603_ll)->X1_rest;

1758

T447 = ((PFmt39) T603_ll)->X0_first;

1759

CF46__LT__LT_(T28, (FiWord) P0_outp, (FiWord) T447);

1760

T446 = ((PFmt39) T603_ll)->X1_rest;

1761

fiPTR_IS_NIL(T670, FiBool, (FiPtr) T446)((T670) = (FiBool)((FiPtr) ((FiPtr) T446) == (FiPtr) 0));

1762

if (T670) goto L149;

1763

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1764

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T443, &T444, &

1765

T445);

1766

fiCCall3(FiWord, T444, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T444)->prog->fun))((T444)->env,(FiWord
) ", ",(FiWord) 1L,(FiWord) 0L));

1767

L149: T603_ll = T463;

1768

goto L147;

1769

L148: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1770

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T448, &T449, &

1771

T450);

1772

fiCCall3(FiWord, T449, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T449)->prog->fun))((T449)->env,(FiWord
) ")",(FiWord) 1L,(FiWord) 0L));

1773

L199: T245 = ((PFmt39) T226)->X1_rest;

1774

T224 = T245;

1775

L73: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1776

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T239, &T240, &

1777

T241);

1778

fiCCall3(FiWord, T240, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T240)->prog->fun))((T240)->env,(FiWord
) "(",(FiWord) 1L,(FiWord) 0L));

1779

T594_ll = T224;

1780

L75: fiPTR_IS_NIL(T646, FiBool, (FiPtr) T594_ll)((T646) = (FiBool)((FiPtr) ((FiPtr) T594_ll) == (FiPtr) 0));

1781

if (T646) goto L76;

1782

T247 = ((PFmt39) T594_ll)->X1_rest;

1783

T231 = (PFmt23) ((PFmt39) T594_ll)->X0_first;

1784

fiEnvEnsure(T28)fiEnvEnsureFun(T28);

1785

if (T231->X0_tag == 0) goto L150;

1786

if (T231->X0_tag == 3L) goto L151;

1787

T465 = T231->X0_tag == 2L;

1788

if (T465) goto L152;

1789

T466 = T231->X1_p;

1790

fiPTR_IS_NIL(T624, FiBool, (FiPtr) T466)((T624) = (FiBool)((FiPtr) ((FiPtr) T466) == (FiPtr) 0));

1791

if (T624) goto L154;

1792

T486 = ((PFmt39) T466)->X0_first;

1793

CF46__LT__LT_(T28, (FiWord) P0_outp, (FiWord) T486);

1794

T485 = ((PFmt39) T466)->X1_rest;

1795

T464 = T485;

1796

L153: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1797

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T479, &T480, &

1798

T481);

1799

fiCCall3(FiWord, T480, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T480)->prog->fun))((T480)->env,(FiWord
) "(",(FiWord) 1L,(FiWord) 0L));

1800

T604_ll = T464;

1801

L155: fiPTR_IS_NIL(T647, FiBool, (FiPtr) T604_ll)((T647) = (FiBool)((FiPtr) ((FiPtr) T604_ll) == (FiPtr) 0));

1802

if (T647) goto L156;

1803

T487 = ((PFmt39) T604_ll)->X1_rest;

1804

T471 = ((PFmt39) T604_ll)->X0_first;

1805

CF46__LT__LT_(T28, (FiWord) P0_outp, (FiWord) T471);

1806

T470 = ((PFmt39) T604_ll)->X1_rest;

1807

fiPTR_IS_NIL(T671, FiBool, (FiPtr) T470)((T671) = (FiBool)((FiPtr) ((FiPtr) T470) == (FiPtr) 0));

1808

if (T671) goto L157;

1809

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1810

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T467, &T468, &

1811

T469);

1812

fiCCall3(FiWord, T468, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T468)->prog->fun))((T468)->env,(FiWord
) ", ",(FiWord) 1L,(FiWord) 0L));

1813

L157: T604_ll = T487;

1814

goto L155;

1815

L156: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1816

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T472, &T473, &

1817

T474);

1818

fiCCall3(FiWord, T473, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T473)->prog->fun))((T473)->env,(FiWord
) ")",(FiWord) 1L,(FiWord) 0L));

1819

L197: T230 = ((PFmt39) T594_ll)->X1_rest;

1820

fiPTR_IS_NIL(T672, FiBool, (FiPtr) T230)((T672) = (FiBool)((FiPtr) ((FiPtr) T230) == (FiPtr) 0));

1821

if (T672) goto L77;

1822

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1823

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T227, &T228, &

1824

T229);

1825

fiCCall3(FiWord, T228, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T228)->prog->fun))((T228)->env,(FiWord
) ", ",(FiWord) 1L,(FiWord) 0L));

1826

L77: T594_ll = T247;

1827

goto L75;

1828

L154: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());

1829

fputc((FiWord) 10L, stdoutFile());

1830

fiHalt((FiSInt) 0L);

1831

return (FiWord) 0L;

1832

L152: T466 = T231->X1_p;

1833

T464 = T466;

1834

goto L153;

1835

L151: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1836

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T482, &T483, &

1837

T484);

1838

fiCCall3(FiWord, T483, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T483)->prog->fun))((T483)->env,(FiWord
) "\?\?",(FiWord) 1L,(FiWord) 0L));

1839

goto L197;

1840

L150: T478 = T231->X1_p;

1841

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1842

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T475, &T476, &

1843

T477);

1844

fiCCall3(FiWord, T476, T478, (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T476)->prog->fun))((T476)->env,T478
,(FiWord) 1L,(FiWord) 0L));

1845

goto L197;

1846

L76: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1847

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T232, &T233, &

1848

T234);

1849

fiCCall3(FiWord, T233, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T233)->prog->fun))((T233)->env,(FiWord
) ")",(FiWord) 1L,(FiWord) 0L));

1850

L198: T110 = ((PFmt39) T589_ll)->X1_rest;

1851

fiPTR_IS_NIL(T673, FiBool, (FiPtr) T110)((T673) = (FiBool)((FiPtr) ((FiPtr) T110) == (FiPtr) 0));

1852

if (T673) goto L37;

1853

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1854

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T107, &T108, &

1855

T109);

1856

fiCCall3(FiWord, T108, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T108)->prog->fun))((T108)->env,(FiWord
) ", ",(FiWord) 1L,(FiWord) 0L));

1857

L37: T589_ll = T127;

1858

goto L35;

1859

L146: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());

1860

fputc((FiWord) 10L, stdoutFile());

1861

fiHalt((FiSInt) 0L);

1862

return (FiWord) 0L;

1863

L144: T442 = T246->X1_p;

1864

T440 = T442;

1865

goto L145;

1866

L143: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1867

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T458, &T459, &

1868

T460);

1869

fiCCall3(FiWord, T459, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T459)->prog->fun))((T459)->env,(FiWord
) "\?\?",(FiWord) 1L,(FiWord) 0L));

1870

goto L199;

1871

L142: T454 = T246->X1_p;

1872

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1873

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T451, &T452, &

1874

T453);

1875

fiCCall3(FiWord, T452, T454, (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T452)->prog->fun))((T452)->env,T454
,(FiWord) 1L,(FiWord) 0L));

1876

goto L199;

1877

L74: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());

1878

fputc((FiWord) 10L, stdoutFile());

1879

fiHalt((FiSInt) 0L);

1880

return (FiWord) 0L;

1881

L72: T226 = T111->X1_p;

1882

T224 = T226;

1883

goto L73;

1884

L71: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1885

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T242, &T243, &

1886

T244);

1887

fiCCall3(FiWord, T243, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T243)->prog->fun))((T243)->env,(FiWord
) "\?\?",(FiWord) 1L,(FiWord) 0L));

1888

goto L198;

1889

L70: T238 = T111->X1_p;

1890

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1891

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T235, &T236, &

1892

T237);

1893

fiCCall3(FiWord, T236, T238, (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T236)->prog->fun))((T236)->env,T238
,(FiWord) 1L,(FiWord) 0L));

1894

goto L198;

1895

L36: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1896

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T112, &T113, &

1897

T114);

1898

fiCCall3(FiWord, T113, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T113)->prog->fun))((T113)->env,(FiWord
) ")",(FiWord) 1L,(FiWord) 0L));

1899

L200: T62 = ((PFmt39) T587_ll)->X1_rest;

1900

fiPTR_IS_NIL(T674, FiBool, (FiPtr) T62)((T674) = (FiBool)((FiPtr) ((FiPtr) T62) == (FiPtr) 0));

1901

if (T674) goto L21;

1902

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1903

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T59, &T60, &T61);

1904

fiCCall3(FiWord, T60, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T60)->prog->fun))((T60)->env,(FiWord
) ", ",(FiWord) 1L,(FiWord) 0L));

1905

L21: T587_ll = T79;

1906

goto L19;

1907

L138: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());

1908

fputc((FiWord) 10L, stdoutFile());

1909

fiHalt((FiSInt) 0L);

1910

return (FiWord) 0L;

1911

L136: T418 = T222->X1_p;

1912

T416 = T418;

1913

goto L137;

1914

L135: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1915

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T434, &T435, &

1916

T436);

1917

fiCCall3(FiWord, T435, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T435)->prog->fun))((T435)->env,(FiWord
) "\?\?",(FiWord) 1L,(FiWord) 0L));

1918

goto L203;

1919

L134: T430 = T222->X1_p;

1920

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1921

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T427, &T428, &

1922

T429);

1923

fiCCall3(FiWord, T428, T430, (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T428)->prog->fun))((T428)->env,T430
,(FiWord) 1L,(FiWord) 0L));

1924

goto L203;

1925

L66: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());

1926

fputc((FiWord) 10L, stdoutFile());

1927

fiHalt((FiSInt) 0L);

1928

return (FiWord) 0L;

1929

L64: T202 = T126->X1_p;

1930

T200 = T202;

1931

goto L65;

1932

L63: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1933

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T218, &T219, &

1934

T220);

1935

fiCCall3(FiWord, T219, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T219)->prog->fun))((T219)->env,(FiWord
) "\?\?",(FiWord) 1L,(FiWord) 0L));

1936

goto L202;

1937

L62: T214 = T126->X1_p;

1938

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1939

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T211, &T212, &

1940

T213);

1941

fiCCall3(FiWord, T212, T214, (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T212)->prog->fun))((T212)->env,T214
,(FiWord) 1L,(FiWord) 0L));

1942

goto L202;

1943

L34: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());

1944

fputc((FiWord) 10L, stdoutFile());

1945

fiHalt((FiSInt) 0L);

1946

return (FiWord) 0L;

1947

L32: T106 = T63->X1_p;

1948

T104 = T106;

1949

goto L33;

1950

L31: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1951

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T122, &T123, &

1952

T124);

1953

fiCCall3(FiWord, T123, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T123)->prog->fun))((T123)->env,(FiWord
) "\?\?",(FiWord) 1L,(FiWord) 0L));

1954

goto L200;

1955

L30: T118 = T63->X1_p;

1956

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1957

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T115, &T116, &

1958

T117);

1959

fiCCall3(FiWord, T116, T118, (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T116)->prog->fun))((T116)->env,T118
,(FiWord) 1L,(FiWord) 0L));

1960

goto L200;

1961

L20: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1962

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T64, &T65, &T66);

1963

fiCCall3(FiWord, T65, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T65)->prog->fun))((T65)->env,(FiWord
) ")",(FiWord) 1L,(FiWord) 0L));

1964

L204: T52 = ((PFmt39) T33)->X1_rest;

1965

T29 = T52;

1966

L9: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

1967

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T46, &T47, &T48);

1968

fiCCall3(FiWord, T47, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T47)->prog->fun))((T47)->env,(FiWord
) "(",(FiWord) 1L,(FiWord) 0L));

1969

T586_ll = T29;

1970

L11: fiPTR_IS_NIL(T648, FiBool, (FiPtr) T586_ll)((T648) = (FiBool)((FiPtr) ((FiPtr) T586_ll) == (FiPtr) 0));

1971

if (T648) goto L12;

1972

T54 = ((PFmt39) T586_ll)->X1_rest;

1973

T38 = (PFmt23) ((PFmt39) T586_ll)->X0_first;

1974

fiEnvEnsure(T28)fiEnvEnsureFun(T28);

1975

if (T38->X0_tag == 0) goto L22;

1976

if (T38->X0_tag == 3L) goto L23;

1977

T81 = T38->X0_tag == 2L;

1978

if (T81) goto L24;

1979

T82 = T38->X1_p;

1980

fiPTR_IS_NIL(T611, FiBool, (FiPtr) T82)((T611) = (FiBool)((FiPtr) ((FiPtr) T82) == (FiPtr) 0));

1981

if (T611) goto L26;

1982

T102 = (PFmt23) ((PFmt39) T82)->X0_first;

1983

fiEnvEnsure(T28)fiEnvEnsureFun(T28);

1984

if (T102->X0_tag == 0) goto L54;

1985

if (T102->X0_tag == 3L) goto L55;

1986

T177 = T102->X0_tag == 2L;

1987

if (T177) goto L56;

1988

T178 = T102->X1_p;

1989

fiPTR_IS_NIL(T615, FiBool, (FiPtr) T178)((T615) = (FiBool)((FiPtr) ((FiPtr) T178) == (FiPtr) 0));

1990

if (T615) goto L58;

1991

T198 = (PFmt23) ((PFmt39) T178)->X0_first;

1992

fiEnvEnsure(T28)fiEnvEnsureFun(T28);

1993

if (T198->X0_tag == 0) goto L118;

1994

if (T198->X0_tag == 3L) goto L119;

1995

T369 = T198->X0_tag == 2L;

1996

if (T369) goto L120;

1997

T370 = T198->X1_p;

1998

fiPTR_IS_NIL(T623, FiBool, (FiPtr) T370)((T623) = (FiBool)((FiPtr) ((FiPtr) T370) == (FiPtr) 0));

1999

if (T623) goto L122;

2000

T390 = ((PFmt39) T370)->X0_first;

2001

CF46__LT__LT_(T28, (FiWord) P0_outp, (FiWord) T390);

2002

T389 = ((PFmt39) T370)->X1_rest;

2003

T368 = T389;

2004

L121: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2005

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T383, &T384, &

2006

T385);

2007

fiCCall3(FiWord, T384, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T384)->prog->fun))((T384)->env,(FiWord
) "(",(FiWord) 1L,(FiWord) 0L));

2008

T600_ll = T368;

2009

L123: fiPTR_IS_NIL(T649, FiBool, (FiPtr) T600_ll)((T649) = (FiBool)((FiPtr) ((FiPtr) T600_ll) == (FiPtr) 0));

2010

if (T649) goto L124;

2011

T391 = ((PFmt39) T600_ll)->X1_rest;

2012

T375 = ((PFmt39) T600_ll)->X0_first;

2013

CF46__LT__LT_(T28, (FiWord) P0_outp, (FiWord) T375);

2014

T374 = ((PFmt39) T600_ll)->X1_rest;

2015

fiPTR_IS_NIL(T675, FiBool, (FiPtr) T374)((T675) = (FiBool)((FiPtr) ((FiPtr) T374) == (FiPtr) 0));

2016

if (T675) goto L125;

2017

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2018

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T371, &T372, &

2019

T373);

2020

fiCCall3(FiWord, T372, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T372)->prog->fun))((T372)->env,(FiWord
) ", ",(FiWord) 1L,(FiWord) 0L));

2021

L125: T600_ll = T391;

2022

goto L123;

2023

L124: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2024

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T376, &T377, &

2025

T378);

2026

fiCCall3(FiWord, T377, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T377)->prog->fun))((T377)->env,(FiWord
) ")",(FiWord) 1L,(FiWord) 0L));

2027

L196: T197 = ((PFmt39) T178)->X1_rest;

2028

T176 = T197;

2029

L57: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2030

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T191, &T192, &

2031

T193);

2032

fiCCall3(FiWord, T192, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T192)->prog->fun))((T192)->env,(FiWord
) "(",(FiWord) 1L,(FiWord) 0L));

2033

T592_ll = T176;

2034

L59: fiPTR_IS_NIL(T650, FiBool, (FiPtr) T592_ll)((T650) = (FiBool)((FiPtr) ((FiPtr) T592_ll) == (FiPtr) 0));

2035

if (T650) goto L60;

2036

T199 = ((PFmt39) T592_ll)->X1_rest;

2037

T183 = (PFmt23) ((PFmt39) T592_ll)->X0_first;

2038

fiEnvEnsure(T28)fiEnvEnsureFun(T28);

2039

if (T183->X0_tag == 0) goto L110;

2040

if (T183->X0_tag == 3L) goto L111;

2041

T345 = T183->X0_tag == 2L;

2042

if (T345) goto L112;

2043

T346 = T183->X1_p;

2044

fiPTR_IS_NIL(T622, FiBool, (FiPtr) T346)((T622) = (FiBool)((FiPtr) ((FiPtr) T346) == (FiPtr) 0));

2045

if (T622) goto L114;

2046

T366 = ((PFmt39) T346)->X0_first;

2047

CF46__LT__LT_(T28, (FiWord) P0_outp, (FiWord) T366);

2048

T365 = ((PFmt39) T346)->X1_rest;

2049

T344 = T365;

2050

L113: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2051

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T359, &T360, &

2052

T361);

2053

fiCCall3(FiWord, T360, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T360)->prog->fun))((T360)->env,(FiWord
) "(",(FiWord) 1L,(FiWord) 0L));

2054

T599_ll = T344;

2055

L115: fiPTR_IS_NIL(T651, FiBool, (FiPtr) T599_ll)((T651) = (FiBool)((FiPtr) ((FiPtr) T599_ll) == (FiPtr) 0));

2056

if (T651) goto L116;

2057

T367 = ((PFmt39) T599_ll)->X1_rest;

2058

T351 = ((PFmt39) T599_ll)->X0_first;

2059

CF46__LT__LT_(T28, (FiWord) P0_outp, (FiWord) T351);

2060

T350 = ((PFmt39) T599_ll)->X1_rest;

2061

fiPTR_IS_NIL(T676, FiBool, (FiPtr) T350)((T676) = (FiBool)((FiPtr) ((FiPtr) T350) == (FiPtr) 0));

2062

if (T676) goto L117;

2063

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2064

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T347, &T348, &

2065

T349);

2066

fiCCall3(FiWord, T348, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T348)->prog->fun))((T348)->env,(FiWord
) ", ",(FiWord) 1L,(FiWord) 0L));

2067

L117: T599_ll = T367;

2068

goto L115;

2069

L116: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2070

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T352, &T353, &

2071

T354);

2072

fiCCall3(FiWord, T353, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T353)->prog->fun))((T353)->env,(FiWord
) ")",(FiWord) 1L,(FiWord) 0L));

2073

L194: T182 = ((PFmt39) T592_ll)->X1_rest;

2074

fiPTR_IS_NIL(T677, FiBool, (FiPtr) T182)((T677) = (FiBool)((FiPtr) ((FiPtr) T182) == (FiPtr) 0));

2075

if (T677) goto L61;

2076

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2077

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T179, &T180, &

2078

T181);

2079

fiCCall3(FiWord, T180, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T180)->prog->fun))((T180)->env,(FiWord
) ", ",(FiWord) 1L,(FiWord) 0L));

2080

L61: T592_ll = T199;

2081

goto L59;

2082

L114: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());

2083

fputc((FiWord) 10L, stdoutFile());

2084

fiHalt((FiSInt) 0L);

2085

return (FiWord) 0L;

2086

L112: T346 = T183->X1_p;

2087

T344 = T346;

2088

goto L113;

2089

L111: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2090

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T362, &T363, &

2091

T364);

2092

fiCCall3(FiWord, T363, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T363)->prog->fun))((T363)->env,(FiWord
) "\?\?",(FiWord) 1L,(FiWord) 0L));

2093

goto L194;

2094

L110: T358 = T183->X1_p;

2095

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2096

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T355, &T356, &

2097

T357);

2098

fiCCall3(FiWord, T356, T358, (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T356)->prog->fun))((T356)->env,T358
,(FiWord) 1L,(FiWord) 0L));

2099

goto L194;

2100

L60: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2101

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T184, &T185, &

2102

T186);

2103

fiCCall3(FiWord, T185, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T185)->prog->fun))((T185)->env,(FiWord
) ")",(FiWord) 1L,(FiWord) 0L));

2104

L195: T101 = ((PFmt39) T82)->X1_rest;

2105

T80 = T101;

2106

L25: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2107

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T95, &T96, &T97);

2108

fiCCall3(FiWord, T96, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T96)->prog->fun))((T96)->env,(FiWord
) "(",(FiWord) 1L,(FiWord) 0L));

2109

T588_ll = T80;

2110

L27: fiPTR_IS_NIL(T652, FiBool, (FiPtr) T588_ll)((T652) = (FiBool)((FiPtr) ((FiPtr) T588_ll) == (FiPtr) 0));

2111

if (T652) goto L28;

2112

T103 = ((PFmt39) T588_ll)->X1_rest;

2113

T87 = (PFmt23) ((PFmt39) T588_ll)->X0_first;

2114

fiEnvEnsure(T28)fiEnvEnsureFun(T28);

2115

if (T87->X0_tag == 0) goto L46;

2116

if (T87->X0_tag == 3L) goto L47;

2117

T153 = T87->X0_tag == 2L;

2118

if (T153) goto L48;

2119

T154 = T87->X1_p;

2120

fiPTR_IS_NIL(T614, FiBool, (FiPtr) T154)((T614) = (FiBool)((FiPtr) ((FiPtr) T154) == (FiPtr) 0));

2121

if (T614) goto L50;

2122

T174 = (PFmt23) ((PFmt39) T154)->X0_first;

2123

fiEnvEnsure(T28)fiEnvEnsureFun(T28);

2124

if (T174->X0_tag == 0) goto L102;

2125

if (T174->X0_tag == 3L) goto L103;

2126

T321 = T174->X0_tag == 2L;

2127

if (T321) goto L104;

2128

T322 = T174->X1_p;

2129

fiPTR_IS_NIL(T621, FiBool, (FiPtr) T322)((T621) = (FiBool)((FiPtr) ((FiPtr) T322) == (FiPtr) 0));

2130

if (T621) goto L106;

2131

T342 = ((PFmt39) T322)->X0_first;

2132

CF46__LT__LT_(T28, (FiWord) P0_outp, (FiWord) T342);

2133

T341 = ((PFmt39) T322)->X1_rest;

2134

T320 = T341;

2135

L105: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2136

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T335, &T336, &

2137

T337);

2138

fiCCall3(FiWord, T336, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T336)->prog->fun))((T336)->env,(FiWord
) "(",(FiWord) 1L,(FiWord) 0L));

2139

T598_ll = T320;

2140

L107: fiPTR_IS_NIL(T653, FiBool, (FiPtr) T598_ll)((T653) = (FiBool)((FiPtr) ((FiPtr) T598_ll) == (FiPtr) 0));

2141

if (T653) goto L108;

2142

T343 = ((PFmt39) T598_ll)->X1_rest;

2143

T327 = ((PFmt39) T598_ll)->X0_first;

2144

CF46__LT__LT_(T28, (FiWord) P0_outp, (FiWord) T327);

2145

T326 = ((PFmt39) T598_ll)->X1_rest;

2146

fiPTR_IS_NIL(T678, FiBool, (FiPtr) T326)((T678) = (FiBool)((FiPtr) ((FiPtr) T326) == (FiPtr) 0));

2147

if (T678) goto L109;

2148

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2149

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T323, &T324, &

2150

T325);

2151

fiCCall3(FiWord, T324, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T324)->prog->fun))((T324)->env,(FiWord
) ", ",(FiWord) 1L,(FiWord) 0L));

2152

L109: T598_ll = T343;

2153

goto L107;

2154

L108: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2155

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T328, &T329, &

2156

T330);

2157

fiCCall3(FiWord, T329, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T329)->prog->fun))((T329)->env,(FiWord
) ")",(FiWord) 1L,(FiWord) 0L));

2158

L192: T173 = ((PFmt39) T154)->X1_rest;

2159

T152 = T173;

2160

L49: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2161

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T167, &T168, &

2162

T169);

2163

fiCCall3(FiWord, T168, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T168)->prog->fun))((T168)->env,(FiWord
) "(",(FiWord) 1L,(FiWord) 0L));

2164

T591_ll = T152;

2165

L51: fiPTR_IS_NIL(T654, FiBool, (FiPtr) T591_ll)((T654) = (FiBool)((FiPtr) ((FiPtr) T591_ll) == (FiPtr) 0));

2166

if (T654) goto L52;

2167

T175 = ((PFmt39) T591_ll)->X1_rest;

2168

T159 = (PFmt23) ((PFmt39) T591_ll)->X0_first;

2169

fiEnvEnsure(T28)fiEnvEnsureFun(T28);

2170

if (T159->X0_tag == 0) goto L94;

2171

if (T159->X0_tag == 3L) goto L95;

2172

T297 = T159->X0_tag == 2L;

2173

if (T297) goto L96;

2174

T298 = T159->X1_p;

2175

fiPTR_IS_NIL(T620, FiBool, (FiPtr) T298)((T620) = (FiBool)((FiPtr) ((FiPtr) T298) == (FiPtr) 0));

2176

if (T620) goto L98;

2177

T318 = ((PFmt39) T298)->X0_first;

2178

CF46__LT__LT_(T28, (FiWord) P0_outp, (FiWord) T318);

2179

T317 = ((PFmt39) T298)->X1_rest;

2180

T296 = T317;

2181

L97: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2182

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T311, &T312, &

2183

T313);

2184

fiCCall3(FiWord, T312, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T312)->prog->fun))((T312)->env,(FiWord
) "(",(FiWord) 1L,(FiWord) 0L));

2185

T597_ll = T296;

2186

L99: fiPTR_IS_NIL(T655, FiBool, (FiPtr) T597_ll)((T655) = (FiBool)((FiPtr) ((FiPtr) T597_ll) == (FiPtr) 0));

2187

if (T655) goto L100;

2188

T319 = ((PFmt39) T597_ll)->X1_rest;

2189

T303 = ((PFmt39) T597_ll)->X0_first;

2190

CF46__LT__LT_(T28, (FiWord) P0_outp, (FiWord) T303);

2191

T302 = ((PFmt39) T597_ll)->X1_rest;

2192

fiPTR_IS_NIL(T679, FiBool, (FiPtr) T302)((T679) = (FiBool)((FiPtr) ((FiPtr) T302) == (FiPtr) 0));

2193

if (T679) goto L101;

2194

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2195

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T299, &T300, &

2196

T301);

2197

fiCCall3(FiWord, T300, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T300)->prog->fun))((T300)->env,(FiWord
) ", ",(FiWord) 1L,(FiWord) 0L));

2198

L101: T597_ll = T319;

2199

goto L99;

2200

L100: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2201

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T304, &T305, &

2202

T306);

2203

fiCCall3(FiWord, T305, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T305)->prog->fun))((T305)->env,(FiWord
) ")",(FiWord) 1L,(FiWord) 0L));

2204

L190: T158 = ((PFmt39) T591_ll)->X1_rest;

2205

fiPTR_IS_NIL(T680, FiBool, (FiPtr) T158)((T680) = (FiBool)((FiPtr) ((FiPtr) T158) == (FiPtr) 0));

2206

if (T680) goto L53;

2207

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2208

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T155, &T156, &

2209

T157);

2210

fiCCall3(FiWord, T156, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T156)->prog->fun))((T156)->env,(FiWord
) ", ",(FiWord) 1L,(FiWord) 0L));

2211

L53: T591_ll = T175;

2212

goto L51;

2213

L98: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());

2214

fputc((FiWord) 10L, stdoutFile());

2215

fiHalt((FiSInt) 0L);

2216

return (FiWord) 0L;

2217

L96: T298 = T159->X1_p;

2218

T296 = T298;

2219

goto L97;

2220

L95: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2221

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T314, &T315, &

2222

T316);

2223

fiCCall3(FiWord, T315, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T315)->prog->fun))((T315)->env,(FiWord
) "\?\?",(FiWord) 1L,(FiWord) 0L));

2224

goto L190;

2225

L94: T310 = T159->X1_p;

2226

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2227

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T307, &T308, &

2228

T309);

2229

fiCCall3(FiWord, T308, T310, (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T308)->prog->fun))((T308)->env,T310
,(FiWord) 1L,(FiWord) 0L));

2230

goto L190;

2231

L52: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2232

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T160, &T161, &

2233

T162);

2234

fiCCall3(FiWord, T161, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T161)->prog->fun))((T161)->env,(FiWord
) ")",(FiWord) 1L,(FiWord) 0L));

2235

L191: T86 = ((PFmt39) T588_ll)->X1_rest;

2236

fiPTR_IS_NIL(T681, FiBool, (FiPtr) T86)((T681) = (FiBool)((FiPtr) ((FiPtr) T86) == (FiPtr) 0));

2237

if (T681) goto L29;

2238

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2239

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T83, &T84, &T85);

2240

fiCCall3(FiWord, T84, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T84)->prog->fun))((T84)->env,(FiWord
) ", ",(FiWord) 1L,(FiWord) 0L));

2241

L29: T588_ll = T103;

2242

goto L27;

2243

L106: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());

2244

fputc((FiWord) 10L, stdoutFile());

2245

fiHalt((FiSInt) 0L);

2246

return (FiWord) 0L;

2247

L104: T322 = T174->X1_p;

2248

T320 = T322;

2249

goto L105;

2250

L103: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2251

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T338, &T339, &

2252

T340);

2253

fiCCall3(FiWord, T339, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T339)->prog->fun))((T339)->env,(FiWord
) "\?\?",(FiWord) 1L,(FiWord) 0L));

2254

goto L192;

2255

L102: T334 = T174->X1_p;

2256

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2257

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T331, &T332, &

2258

T333);

2259

fiCCall3(FiWord, T332, T334, (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T332)->prog->fun))((T332)->env,T334
,(FiWord) 1L,(FiWord) 0L));

2260

goto L192;

2261

L50: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());

2262

fputc((FiWord) 10L, stdoutFile());

2263

fiHalt((FiSInt) 0L);

2264

return (FiWord) 0L;

2265

L48: T154 = T87->X1_p;

2266

T152 = T154;

2267

goto L49;

2268

L47: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2269

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T170, &T171, &

2270

T172);

2271

fiCCall3(FiWord, T171, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T171)->prog->fun))((T171)->env,(FiWord
) "\?\?",(FiWord) 1L,(FiWord) 0L));

2272

goto L191;

2273

L46: T166 = T87->X1_p;

2274

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2275

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T163, &T164, &

2276

T165);

2277

fiCCall3(FiWord, T164, T166, (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T164)->prog->fun))((T164)->env,T166
,(FiWord) 1L,(FiWord) 0L));

2278

goto L191;

2279

L28: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2280

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T88, &T89, &T90);

2281

fiCCall3(FiWord, T89, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T89)->prog->fun))((T89)->env,(FiWord
) ")",(FiWord) 1L,(FiWord) 0L));

2282

L193: T37 = ((PFmt39) T586_ll)->X1_rest;

2283

fiPTR_IS_NIL(T682, FiBool, (FiPtr) T37)((T682) = (FiBool)((FiPtr) ((FiPtr) T37) == (FiPtr) 0));

2284

if (T682) goto L13;

2285

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2286

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T34, &T35, &T36);

2287

fiCCall3(FiWord, T35, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T35)->prog->fun))((T35)->env,(FiWord
) ", ",(FiWord) 1L,(FiWord) 0L));

2288

L13: T586_ll = T54;

2289

goto L11;

2290

L122: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());

2291

fputc((FiWord) 10L, stdoutFile());

2292

fiHalt((FiSInt) 0L);

2293

return (FiWord) 0L;

2294

L120: T370 = T198->X1_p;

2295

T368 = T370;

2296

goto L121;

2297

L119: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2298

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T386, &T387, &

2299

T388);

2300

fiCCall3(FiWord, T387, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T387)->prog->fun))((T387)->env,(FiWord
) "\?\?",(FiWord) 1L,(FiWord) 0L));

2301

goto L196;

2302

L118: T382 = T198->X1_p;

2303

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2304

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T379, &T380, &

2305

T381);

2306

fiCCall3(FiWord, T380, T382, (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T380)->prog->fun))((T380)->env,T382
,(FiWord) 1L,(FiWord) 0L));

2307

goto L196;

2308

L58: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());

2309

fputc((FiWord) 10L, stdoutFile());

2310

fiHalt((FiSInt) 0L);

2311

return (FiWord) 0L;

2312

L56: T178 = T102->X1_p;

2313

T176 = T178;

2314

goto L57;

2315

L55: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2316

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T194, &T195, &

2317

T196);

2318

fiCCall3(FiWord, T195, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T195)->prog->fun))((T195)->env,(FiWord
) "\?\?",(FiWord) 1L,(FiWord) 0L));

2319

goto L195;

2320

L54: T190 = T102->X1_p;

2321

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2322

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T187, &T188, &

2323

T189);

2324

fiCCall3(FiWord, T188, T190, (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T188)->prog->fun))((T188)->env,T190
,(FiWord) 1L,(FiWord) 0L));

2325

goto L195;

2326

L26: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());

2327

fputc((FiWord) 10L, stdoutFile());

2328

fiHalt((FiSInt) 0L);

2329

return (FiWord) 0L;

2330

L24: T82 = T38->X1_p;

2331

T80 = T82;

2332

goto L25;

2333

L23: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2334

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T98, &T99, &

2335

T100);

2336

fiCCall3(FiWord, T99, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T99)->prog->fun))((T99)->env,(FiWord
) "\?\?",(FiWord) 1L,(FiWord) 0L));

2337

goto L193;

2338

L22: T94 = T38->X1_p;

2339

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2340

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T91, &T92, &T93);

2341

fiCCall3(FiWord, T92, T94, (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T92)->prog->fun))((T92)->env,T94,
(FiWord) 1L,(FiWord) 0L));

2342

goto L193;

2343

L12: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2344

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T39, &T40, &T41);

2345

fiCCall3(FiWord, T40, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T40)->prog->fun))((T40)->env,(FiWord
) ")",(FiWord) 1L,(FiWord) 0L));

2346

T32 = P0_outp;

2347

L7: T31 = T32;

2348

L5: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) T31)->prog->fun)

2349

FiClos) T31)((( FiClos) T31)->prog->fun))(((FiClos) T31)->env, &T13, &T14, &T15);

2350

fiCCall3(FiWord, T14, (FiWord) "]", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T14)->prog->fun))((T14)->env,(FiWord
) "]",(FiWord) 1L,(FiWord) 0L));

2351

return T31;

2352

L178: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());

2353

fputc((FiWord) 10L, stdoutFile());

2354

fiHalt((FiSInt) 0L);

2355

return (FiWord) 0L;

2356

L176: T538 = T294->X1_p;

2357

T536 = T538;

2358

goto L177;

2359

L175: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2360

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T554, &T555, &

2361

T556);

2362

fiCCall3(FiWord, T555, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T555)->prog->fun))((T555)->env,(FiWord
) "\?\?",(FiWord) 1L,(FiWord) 0L));

2363

goto L211;

2364

L174: T550 = T294->X1_p;

2365

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2366

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T547, &T548, &

2367

T549);

2368

fiCCall3(FiWord, T548, T550, (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T548)->prog->fun))((T548)->env,T550
,(FiWord) 1L,(FiWord) 0L));

2369

goto L211;

2370

L90: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());

2371

fputc((FiWord) 10L, stdoutFile());

2372

fiHalt((FiSInt) 0L);

2373

return (FiWord) 0L;

2374

L88: T274 = T150->X1_p;

2375

T272 = T274;

2376

goto L89;

2377

L87: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2378

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T290, &T291, &

2379

T292);

2380

fiCCall3(FiWord, T291, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T291)->prog->fun))((T291)->env,(FiWord
) "\?\?",(FiWord) 1L,(FiWord) 0L));

2381

goto L210;

2382

L86: T286 = T150->X1_p;

2383

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2384

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T283, &T284, &

2385

T285);

2386

fiCCall3(FiWord, T284, T286, (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T284)->prog->fun))((T284)->env,T286
,(FiWord) 1L,(FiWord) 0L));

2387

goto L210;

2388

L42: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());

2389

fputc((FiWord) 10L, stdoutFile());

2390

fiHalt((FiSInt) 0L);

2391

return (FiWord) 0L;

2392

L40: T130 = T78->X1_p;

2393

T128 = T130;

2394

goto L41;

2395

L39: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2396

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T146, &T147, &

2397

T148);

2398

fiCCall3(FiWord, T147, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T147)->prog->fun))((T147)->env,(FiWord
) "\?\?",(FiWord) 1L,(FiWord) 0L));

2399

goto L208;

2400

L38: T142 = T78->X1_p;

2401

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2402

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T139, &T140, &

2403

T141);

2404

fiCCall3(FiWord, T140, T142, (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T140)->prog->fun))((T140)->env,T142
,(FiWord) 1L,(FiWord) 0L));

2405

goto L208;

2406

L18: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());

2407

fputc((FiWord) 10L, stdoutFile());

2408

fiHalt((FiSInt) 0L);

2409

return (FiWord) 0L;

2410

L16: T58 = T53->X1_p;

2411

T56 = T58;

2412

goto L17;

2413

L15: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2414

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T74, &T75, &T76);

2415

fiCCall3(FiWord, T75, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T75)->prog->fun))((T75)->env,(FiWord
) "\?\?",(FiWord) 1L,(FiWord) 0L));

2416

goto L204;

2417

L14: T70 = T53->X1_p;

2418

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2419

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T67, &T68, &T69);

2420

fiCCall3(FiWord, T68, T70, (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T68)->prog->fun))((T68)->env,T70,
(FiWord) 1L,(FiWord) 0L));

2421

goto L204;

2422

L10: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());

2423

fputc((FiWord) 10L, stdoutFile());

2424

fiHalt((FiSInt) 0L);

2425

return (FiWord) 0L;

2426

L8: T33 = T55->X1_p;

2427

T29 = T33;

2428

goto L9;

2429

L6: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2430

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T49, &T50, &T51);

2431

fiCCall3(FiWord, T50, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T50)->prog->fun))((T50)->env,(FiWord
) "\?\?",(FiWord) 1L,(FiWord) 0L));

2432

T32 = P0_outp;

2433

goto L7;

2434

L4: T45 = T55->X1_p;

2435

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2436

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T42, &T43, &T44);

2437

fiCCall3(FiWord, T43, T45, (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T43)->prog->fun))((T43)->env,T45,
(FiWord) 1L,(FiWord) 0L));

2438

T31 = P0_outp;

2439

goto L5;

2440

L0: fiCCall2(FiWord, T584__LT__LT_, P0_outp, ((PFmt13) P1_a)->X1_o)((*((FiWord (*)())(T584__LT__LT_)->prog->fun))((T584__LT__LT_
)->env,P0_outp,((PFmt13) P1_a)->X1_o));

2441

goto L1;

2442

L2: T3 = (PFmt42) l3->X0_T;

2443

T2 = fiCCall1(FiSInt, (*pG_LD0B5_domainHash_BANG_), T3->((*((FiSInt (*)())((*pG_LD0B5_domainHash_BANG_))->prog->
fun))(((*pG_LD0B5_domainHash_BANG_))->env,T3-> X1_values
[T632]))

2444

X1_values[T632])((*((FiSInt (*)())((*pG_LD0B5_domainHash_BANG_))->prog->
fun))(((*pG_LD0B5_domainHash_BANG_))->env,T3-> X1_values
[T632]));

2445

goto L3;

2446

}

2447

2448

static struct _FiProg tmp19__LT__LT_ = {

2449

(FiFun) CF19__LT__LT_,

2450

0L,

2451

0L,

2452

0L,

2453

0L

2454

};

2455

2456

2457

static FiWord

2458

CF20__TILDE__EQ_(FiEnv e1, FiWord P0_x, FiWord P1_y)

2459

{

2460

return (FiWord) !((FiPtr) P0_x == (FiPtr) P1_y);

2461

}

2462

2463

static struct _FiProg tmp20__TILDE__EQ_ = {

2464

(FiFun) CF20__TILDE__EQ_,

2465

0L,

2466

0L,

2467

0L,

2468

0L

2469

};

2470

2471

2472

static FiClos

2473

CF21__LT__LT_(FiEnv e1, FiWord P0_x)

2474

{

2475

PFmt15 l0;

2476

FiEnv e0;

2477

l0 = fi0New(struct Fmt15 , CENSUS_EnvLevel)((struct Fmt15 *) fi0Alloc(sizeof(struct Fmt15), (19)));

2478

e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);

2479

l0->X0_x = P0_x;

2480

return fiClosMake(e0, C22__LT__LT_)fiClosMakeFun(e0, (FiProg) (C22__LT__LT_));

2481

}

2482

2483

static struct _FiProg tmp21__LT__LT_ = {

2484

(FiFun) CF21__LT__LT_,

2485

0L,

2486

0L,

2487

0L,

2488

0L

2489

};

2490

2491

2492

static FiWord

2493

CF22__LT__LT_(FiEnv e1, FiWord P0_p)

2494

{

2495

PFmt15 l1;

2496

FiEnv e2;

2497

l1 = (PFmt15) fiEnvLevel(e1)((FiEnv) (e1)->level);

2498

e2 = fiEnvNext(e1)((FiEnv) (e1)->next);

2499

return CF19__LT__LT_(e2, (FiWord) P0_p, (FiWord) l1->X0_x);

2500

}

2501

2502

static struct _FiProg tmp22__LT__LT_ = {

2503

(FiFun) CF22__LT__LT_,

2504

0L,

2505

0L,

2506

0L,

2507

0L

2508

};

2509

2510

2511

static FiWord

2512

CF23_hash(FiEnv e1, FiWord P0_x)

2513

{

2514

return (FiWord) 0L;

2515

}

2516

2517

static struct _FiProg tmp23_hash = {

2518

(FiFun) CF23_hash,

2519

0L,

2520

0L,

2521

0L,

2522

0L

2523

};

2524

2525

2526

static FiWord

2527

CF24_case(FiEnv e1, FiWord P0_x, FiWord P1_y)

2528

{

2529

return (FiWord) ((FiPtr) P0_x == (FiPtr) P1_y);

2530

}

2531

2532

static struct _FiProg tmp24_case = {

2533

(FiFun) CF24_case,

2534

0L,

2535

0L,

2536

0L,

2537

0L

2538

};

2539

2540

2541

static FiWord

2542

CF25_langx(FiEnv e1, FiWord P0_T)

2543

{

2544

FiBool T5;

2545

FiWord T0, *T1, T3, T4;

2546

PFmt5 T2;

2547

PFmt18 l0;

2548

FiEnv e0;

2549

PFmt36 l1;

2550

l0 = fi0New(struct Fmt18 , CENSUS_EnvLevel)((struct Fmt18 *) fi0Alloc(sizeof(struct Fmt18), (19)));

2551

e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);

2552

l1 = (PFmt36) fiEnvLevel(e1)((FiEnv) (e1)->level);

2553

l0->X0_T = P0_T;

2554

fiARRNEW_Word(T1, FiWord*, 1L)((T1) = (FiWord*) fiArrNew_Word(1L));

2555

T2 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));

2556

T2->X0_size = 1L;

2557

T2->X1_values = (FiWord*) T1;

2558

fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X12)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X12) == (FiPtr) 0));

2559

if (T5) goto L2;

2560

L1: T1[0L] = l0->X0_T;

2561

((void(*)(FiEnv , FiWord , FiWord , FiWord* , FiWord* ))

2562

fiRawCProg((*pG_759EG_rtCacheCheck))(((*pG_759EG_rtCacheCheck))->prog->fun))(((*

2563

pG_759EG_rtCacheCheck))->env, (FiWord) l1->X12, (FiWord) (

2564

FiWord) T2, &T3, &T4);

2565

if ((FiBool) T4) goto L0;

2566

T0 = fiCCall1(FiWord, (*pG_FZLG1_extendMake), fiClosMake(e0,((*((FiWord (*)())((*pG_FZLG1_extendMake))->prog->fun))
(((*pG_FZLG1_extendMake))->env,fiClosMakeFun(e0, (FiProg) (
C26_extend0))))

2567

C26_extend0))((*((FiWord (*)())((*pG_FZLG1_extendMake))->prog->fun))
(((*pG_FZLG1_extendMake))->env,fiClosMakeFun(e0, (FiProg) (
C26_extend0))));

2568

T3 = fiCCall3(FiWord, (*pG_PV28S_rtCacheAdd), l1->X12, (FiWord)((*((FiWord (*)())((*pG_PV28S_rtCacheAdd))->prog->fun))
(((*pG_PV28S_rtCacheAdd))->env,l1->X12,(FiWord) T2,T0))

2569

T2, T0)((*((FiWord (*)())((*pG_PV28S_rtCacheAdd))->prog->fun))
(((*pG_PV28S_rtCacheAdd))->env,l1->X12,(FiWord) T2,T0));

2570

L0: return T3;

2571

L2: l1->X12 = fiCCall1(FiWord, (*pG_KAC1B_rtCacheExplicitMake), 15L)((*((FiWord (*)())((*pG_KAC1B_rtCacheExplicitMake))->prog->
fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));

2572

goto L1;

2573

}

2574

2575

static struct _FiProg tmp25_langx = {

2576

(FiFun) CF25_langx,

2577

0L,

2578

0L,

2579

0L,

2580

0L

2581

};

2582

2583

2584

static FiClos

2585

CF26_extend0(FiEnv e1, FiWord P0_domain)

2586

{

2587

PFmt8 T1;

2588

FiWord *T0;

2589

PFmt18 l1;

2590

PFmt36 l2;

2591

FiEnv e2;

2592

l1 = (PFmt18) fiEnvLevel(e1)((FiEnv) (e1)->level);

2593

e2 = fiEnvNext(e1)((FiEnv) (e1)->next);

2594

l2 = (PFmt36) fiEnvLevel(e2)((FiEnv) (e2)->level);

2595

fiARRNEW_Word(T0, FiWord*, 2L)((T0) = (FiWord*) fiArrNew_Word(2L));

2596

T0[1L] = fiCCall1(FiWord, l2->X0_Union, l1->X0_T)((*((FiWord (*)())(l2->X0_Union)->prog->fun))((l2->
X0_Union)->env,l1->X0_T));

2597

T0[0L] = fiCCall1(FiWord, G_UE3X2_langx__Union__08555762, l1->((*((FiWord (*)())(G_UE3X2_langx__Union__08555762)->prog->
fun))((G_UE3X2_langx__Union__08555762)->env,l1-> X0_T))

2598

X0_T)((*((FiWord (*)())(G_UE3X2_langx__Union__08555762)->prog->
fun))((G_UE3X2_langx__Union__08555762)->env,l1-> X0_T));

2599

T1 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

2600

T1->X0_size = 2L;

2601

T1->X1_nsize = 2L;

2602

T1->X2_values = (FiWord) T0;

2603

fiCCall2(FiWord, (*pG_G3BWN_extendFill_BANG_), P0_domain, T1)((*((FiWord (*)())((*pG_G3BWN_extendFill_BANG_))->prog->
fun))(((*pG_G3BWN_extendFill_BANG_))->env,P0_domain,T1));

2604

return (FiClos) fiNil((Ptr) 0);

2605

}

2606

2607

static struct _FiProg tmp26_extend0 = {

2608

(FiFun) CF26_extend0,

2609

0L,

2610

0L,

2611

0L,

2612

0L

2613

};

2614

2615

2616

static FiWord

2617

CF27_Enumeration(FiEnv e1, FiWord P0_T)

2618

{

2619

FiBool T3, T5;

2620

FiWord *T0, T2, T4;

2621

PFmt5 T1;

2622

PFmt21 l0;

2623

FiEnv e0;

2624

PFmt36 l1;

2625

l0 = fi0New(struct Fmt21 , CENSUS_EnvLevel)((struct Fmt21 *) fi0Alloc(sizeof(struct Fmt21), (19)));

2626

e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);

2627

l1 = (PFmt36) fiEnvLevel(e1)((FiEnv) (e1)->level);

2628

l0->X0_T = P0_T;

2629

fiARRNEW_Word(T0, FiWord*, 1L)((T0) = (FiWord*) fiArrNew_Word(1L));

2630

T1 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));

2631

T1->X0_size = 1L;

2632

T1->X1_values = (FiWord*) T0;

2633

fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X13)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X13) == (FiPtr) 0));

2634

if (T5) goto L3;

2635

L1: T0[0L] = l0->X0_T;

2636

((void(*)(FiEnv , FiWord , FiWord , FiWord* , FiWord* ))

2637

fiRawCProg((*pG_759EG_rtCacheCheck))(((*pG_759EG_rtCacheCheck))->prog->fun))(((*

2638

pG_759EG_rtCacheCheck))->env, (FiWord) l1->X13, (FiWord) (

2639

FiWord) T1, &T2, &T4);

2640

T3 = (FiBool) T4;

2641

if (T3) goto L0;

2642

T2 = fiCCall1(FiWord, (*pG_6L1ZC_domainMake), fiClosMake(e0,((*((FiWord (*)())((*pG_6L1ZC_domainMake))->prog->fun))
(((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) (
C28_addLevel0))))

2643

C28_addLevel0))((*((FiWord (*)())((*pG_6L1ZC_domainMake))->prog->fun))
(((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) (
C28_addLevel0))));

2644

T2 = fiCCall3(FiWord, (*pG_PV28S_rtCacheAdd), l1->X13, (FiWord)((*((FiWord (*)())((*pG_PV28S_rtCacheAdd))->prog->fun))
(((*pG_PV28S_rtCacheAdd))->env,l1->X13,(FiWord) T1,T2))

2645

T1, T2)((*((FiWord (*)())((*pG_PV28S_rtCacheAdd))->prog->fun))
(((*pG_PV28S_rtCacheAdd))->env,l1->X13,(FiWord) T1,T2));

2646

L0: return T2;

2647

L3: l1->X13 = fiCCall1(FiWord, (*pG_KAC1B_rtCacheExplicitMake), 15L)((*((FiWord (*)())((*pG_KAC1B_rtCacheExplicitMake))->prog->
fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));

2648

goto L1;

2649

}

2650

2651

static struct _FiProg tmp27_Enumeration = {

2652

(FiFun) CF27_Enumeration,

2653

0L,

2654

0L,

2655

0L,

2656

0L

2657

};

2658

2659

2660

static FiClos

2661

CF28_addLevel0(FiEnv e1, FiWord P0_domain)

2662

{

2663

FiSInt T1, T2, T3;

2664

PFmt5 T0;

2665

FiEnv e2, e0;

2666

PFmt21 l1;

2667

PFmt36 l2;

2668

e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);

2669

l1 = (PFmt21) fiEnvLevel(e1)((FiEnv) (e1)->level);

2670

e2 = fiEnvNext(e1)((FiEnv) (e1)->next);

2671

l2 = (PFmt36) fiEnvLevel(e2)((FiEnv) (e2)->level);

2672

T3 = 151783690L;

2673

T0 = (PFmt5) l1->X0_T;

2674

T1 = T0->X0_size;

2675

T2 = 0L;

2676

L0: if (T2 == T1) goto L1;

2677

fiSINT_HASHCOMBINE(T3, FiSInt, fiCCall1(FiSInt, (*pG_X9M4Q_stringHash),((T3) = (FiSInt) fiSIntHashCombine(((*((FiSInt (*)())((*pG_X9M4Q_stringHash
))->prog->fun))(((*pG_X9M4Q_stringHash))->env,T0->
X1_values[T2])), T3))

2678

T0->X1_values[T2]), T3)((T3) = (FiSInt) fiSIntHashCombine(((*((FiSInt (*)())((*pG_X9M4Q_stringHash
))->prog->fun))(((*pG_X9M4Q_stringHash))->env,T0->
X1_values[T2])), T3));

2679

T2 = T2 + 1L;

2680

goto L0;

2681

L1: fiCCall2(FiWord, (*pG_CSVBL_domainAddNameFn_BANG_), P0_domain,((*((FiWord (*)())((*pG_CSVBL_domainAddNameFn_BANG_))->prog
->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain
,fiClosMakeFun(e0, (FiProg) (C29_addNameFn))))

2682

fiClosMake(e0, C29_addNameFn))((*((FiWord (*)())((*pG_CSVBL_domainAddNameFn_BANG_))->prog
->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain
,fiClosMakeFun(e0, (FiProg) (C29_addNameFn))));

2683

fiCCall2(FiWord, (*pG_XS55O_domainAddHash_BANG_), P0_domain, T3)((*((FiWord (*)())((*pG_XS55O_domainAddHash_BANG_))->prog->
fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,T3)
);

2684

return fiClosMake(e0, C30_addLevel1)fiClosMakeFun(e0, (FiProg) (C30_addLevel1));

2685

}

2686

2687

static struct _FiProg tmp28_addLevel0 = {

2688

(FiFun) CF28_addLevel0,

2689

0L,

2690

0L,

2691

0L,

2692

0L

2693

};

2694

2695

2696

static FiWord

2697

CF29_addNameFn(FiEnv e1)

2698

{

2699

PFmt5 T2, T4;

2700

FiWord *T1, *T3;

2701

FiSInt T0;

2702

PFmt21 l2;

2703

FiEnv e2;

2704

e2 = fiEnvNext(e1)((FiEnv) (e1)->next);

2705

l2 = (PFmt21) fiEnvLevel(e2)((FiEnv) (e2)->level);

2706

T0 = ((PFmt5) l2->X0_T)->X0_size;

2707

fiARRNEW_Word(T1, FiWord*, T0)((T1) = (FiWord*) fiArrNew_Word(T0));

2708

T2 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));

2709

T2->X0_size = T0;

2710

T2->X1_values = (FiWord*) T1;

2711

L0: T0 = T0 - 1L;

2712

if (T0 < 0) goto L1;

2713

T1[T0] = fiCCall1(FiWord, (*pG_FZP76_namePartFrString), ((PFmt5)((*((FiWord (*)())((*pG_FZP76_namePartFrString))->prog->
fun))(((*pG_FZP76_namePartFrString))->env,((PFmt5) l2->
X0_T)->X1_values[T0]))

2714

l2->X0_T)->X1_values[T0])((*((FiWord (*)())((*pG_FZP76_namePartFrString))->prog->
fun))(((*pG_FZP76_namePartFrString))->env,((PFmt5) l2->
X0_T)->X1_values[T0]));

2715

goto L0;

2716

L1: fiARRNEW_Word(T3, FiWord*, 2L)((T3) = (FiWord*) fiArrNew_Word(2L));

2717

T3[0L] = fiCCall1(FiWord, (*pG_FZP76_namePartFrString), "Enumeration")((*((FiWord (*)())((*pG_FZP76_namePartFrString))->prog->
fun))(((*pG_FZP76_namePartFrString))->env,"Enumeration"));

2718

T3[1L] = fiCCall2(FiWord, (*pG_9TG1R_namePartConcat), 1L, (FiWord)((*((FiWord (*)())((*pG_9TG1R_namePartConcat))->prog->fun
))(((*pG_9TG1R_namePartConcat))->env,1L,(FiWord) T2))

2719

T2)((*((FiWord (*)())((*pG_9TG1R_namePartConcat))->prog->fun
))(((*pG_9TG1R_namePartConcat))->env,1L,(FiWord) T2));

2720

T4 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));

2721

T4->X0_size = 2L;

2722

T4->X1_values = (FiWord*) T3;

2723

return fiCCall2(FiWord, (*pG_9TG1R_namePartConcat), 0L, T4)((*((FiWord (*)())((*pG_9TG1R_namePartConcat))->prog->fun
))(((*pG_9TG1R_namePartConcat))->env,0L,T4));

2724

}

2725

2726

static struct _FiProg tmp29_addNameFn = {

2727

(FiFun) CF29_addNameFn,

2728

0L,

2729

0L,

2730

0L,

2731

0L

2732

};

2733

2734

2735

static FiWord

2736

CF30_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)

2737

{

2738

FiSInt T7, T8, T9, T10, T11, T12, T13;

2739

FiWord *T0, *T1, *T2, T6;

2740

PFmt8 T3, T4, T5;

2741

PFmt20 l0;

2742

FiEnv e3, e2, e0;

2743

PFmt21 l2;

2744

PFmt36 l3;

2745

l0 = fi0New(struct Fmt20 , CENSUS_EnvLevel)((struct Fmt20 *) fi0Alloc(sizeof(struct Fmt20), (19)));

2746

e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);

2747

e2 = fiEnvNext(e1)((FiEnv) (e1)->next);

2748

l2 = (PFmt21) fiEnvLevel(e2)((FiEnv) (e2)->level);

2749

e3 = fiEnvNext(e2)((FiEnv) (e2)->next);

2750

l3 = (PFmt36) fiEnvLevel(e3)((FiEnv) (e3)->level);

2751

fiARRNEW_Word(T0, FiWord*, 7L)((T0) = (FiWord*) fiArrNew_Word(7L));

2752

fiARRNEW_Word(T1, FiWord*, 7L)((T1) = (FiWord*) fiArrNew_Word(7L));

2753

fiARRNEW_Word(T2, FiWord*, 7L)((T2) = (FiWord*) fiArrNew_Word(7L));

2754

T6 = fiCCall1(FiWord, (*pG_IJHFC_domainMakeDispatch), P0_domain)((*((FiWord (*)())((*pG_IJHFC_domainMakeDispatch))->prog->
fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));

2755

l0->X6 = (FiSInt) P1_hashcode;

2756

l0->X5__EQ_ = fiClosMake(e0, C31__EQ_)fiClosMakeFun(e0, (FiProg) (C31__EQ_));

2757

l0->X3__LT__LT_ = fiClosMake(e0, C32__LT__LT_)fiClosMakeFun(e0, (FiProg) (C32__LT__LT_));

2758

l0->X2__TILDE__EQ_ = fiClosMake(e0, C33__TILDE__EQ_)fiClosMakeFun(e0, (FiProg) (C33__TILDE__EQ_));

2759

l0->X4__LT__LT_ = fiClosMake(e0, C34__LT__LT_)fiClosMakeFun(e0, (FiProg) (C34__LT__LT_));

2760

l0->X1_hash = fiClosMake(e0, C36_hash)fiClosMakeFun(e0, (FiProg) (C36_hash));

2761

l0->X0_case = fiClosMake(e0, C37_case)fiClosMakeFun(e0, (FiProg) (C37_case));

2762

fiSINT_HASHCOMBINE(T12, FiSInt, l0->X6, 51489085L)((T12) = (FiSInt) fiSIntHashCombine(l0->X6, 51489085L));

2763

fiSINT_HASHCOMBINE(T7, FiSInt, 740244383L, fiSIntHashCombine((FiSInt)((T7) = (FiSInt) fiSIntHashCombine(740244383L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X6, (FiSInt) T12))))

2764

32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X6, (FiSInt)((T7) = (FiSInt) fiSIntHashCombine(740244383L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X6, (FiSInt) T12))))

2765

T12)))((T7) = (FiSInt) fiSIntHashCombine(740244383L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X6, (FiSInt) T12))));

2766

fiSINT_HASHCOMBINE(T8, FiSInt, 182752316L, fiSIntHashCombine((FiSInt)((T8) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X6, (FiSInt) 102896482L))))

2767

32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X6, (FiSInt)((T8) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X6, (FiSInt) 102896482L))))

2768

102896482L)))((T8) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X6, (FiSInt) 102896482L))));

2769

fiSINT_HASHCOMBINE(T13, FiSInt, 32236L, T12)((T13) = (FiSInt) fiSIntHashCombine(32236L, T12));

2770

fiSINT_HASHCOMBINE(T9, FiSInt, 755420535L, T13)((T9) = (FiSInt) fiSIntHashCombine(755420535L, T13));

2771

fiSINT_HASHCOMBINE(T10, FiSInt, 33717313L, T13)((T10) = (FiSInt) fiSIntHashCombine(33717313L, T13));

2772

T11 = l0->X6;

2773

T3 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

2774

T3->X0_size = 7L;

2775

T3->X1_nsize = 7L;

2776

T3->X2_values = (FiWord) T0;

2777

T4 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

2778

T4->X0_size = 7L;

2779

T4->X1_nsize = 7L;

2780

T4->X2_values = (FiWord) T1;

2781

T5 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

2782

T5->X0_size = 7L;

2783

T5->X1_nsize = 7L;

2784

T5->X2_values = (FiWord) T2;

2785

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)
);

2786

fiCCall3(FiWord, (*pG_V9SO_domainAddDefaults), P0_domain, l3->((*((FiWord (*)())((*pG_V9SO_domainAddDefaults))->prog->
fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,l3->
X5_BasicType,T6))

2787

X5_BasicType, T6)((*((FiWord (*)())((*pG_V9SO_domainAddDefaults))->prog->
fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,l3->
X5_BasicType,T6));

2788

T0[0L] = (FiWord) 200102L;

2789

T1[0L] = (FiWord) T7;

2790

T2[0L] = (FiWord) l0->X5__EQ_;

2791

T0[1L] = (FiWord) 51492426L;

2792

T1[1L] = (FiWord) T8;

2793

T2[1L] = (FiWord) l0->X3__LT__LT_;

2794

T0[2L] = (FiWord) 51509389L;

2795

T1[2L] = (FiWord) T7;

2796

T2[2L] = (FiWord) l0->X2__TILDE__EQ_;

2797

T0[3L] = (FiWord) 51492426L;

2798

T1[3L] = (FiWord) T9;

2799

T2[3L] = (FiWord) l0->X4__LT__LT_;

2800

T0[4L] = (FiWord) 746853960L;

2801

T1[4L] = (FiWord) T10;

2802

T2[4L] = (FiWord) l0->X1_hash;

2803

T0[5L] = (FiWord) 864625472L;

2804

T1[5L] = (FiWord) T7;

2805

T2[5L] = (FiWord) l0->X0_case;

2806

T0[6L] = (FiWord) 255806968L;

2807

T1[6L] = (FiWord) T11;

2808

T2[6L] = (FiWord) 0L;

2809

return P0_domain;

2810

}

2811

2812

static struct _FiProg tmp30_addLevel1 = {

2813

(FiFun) CF30_addLevel1,

2814

0L,

2815

0L,

2816

0L,

2817

0L

2818

};

2819

2820

2821

static FiWord

2822

CF31__EQ_(FiEnv e1, FiSInt P0_a, FiSInt P1_b)

2823

{

2824

return (FiWord) (P0_a == P1_b);

2825

}

2826

2827

static struct _FiProg tmp31__EQ_ = {

2828

(FiFun) CF31__EQ_,

2829

0L,

2830

0L,

2831

0L,

2832

0L

2833

};

2834

2835

2836

static FiWord

2837

CF32__LT__LT_(FiEnv e1, FiWord P0_outp, FiSInt P1_a)

2838

{

2839

FiClos T1, T2, T3;

2840

PFmt42 T0;

2841

FiEnv e3, e2;

2842

PFmt21 l3;

2843

e2 = fiEnvNext(e1)((FiEnv) (e1)->next);

2844

e3 = fiEnvNext(e2)((FiEnv) (e2)->next);

2845

l3 = (PFmt21) fiEnvLevel(e3)((FiEnv) (e3)->level);

2846

T0 = (PFmt42) l3->X0_T;

2847

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_outp)->prog->fun)

2848

FiClos) P0_outp)((( FiClos) P0_outp)->prog->fun))(((FiClos) P0_outp)->env, &T1, &T2, &T3);

2849

fiCCall3(FiWord, T2, T0->X1_values[P1_a], (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T2)->prog->fun))((T2)->env,T0->
X1_values[P1_a],(FiWord) 1L,(FiWord) 0L));

2850

return P0_outp;

2851

}

2852

2853

static struct _FiProg tmp32__LT__LT_ = {

2854

(FiFun) CF32__LT__LT_,

2855

0L,

2856

0L,

2857

0L,

2858

0L

2859

};

2860

2861

2862

static FiWord

2863

CF33__TILDE__EQ_(FiEnv e1, FiSInt P0_x, FiSInt P1_y)

2864

{

2865

return (FiWord) (P1_y != P0_x);

2866

}

2867

2868

static struct _FiProg tmp33__TILDE__EQ_ = {

2869

(FiFun) CF33__TILDE__EQ_,

2870

0L,

2871

0L,

2872

0L,

2873

0L

2874

};

2875

2876

2877

static FiClos

2878

CF34__LT__LT_(FiEnv e1, FiSInt P0_x)

2879

{

2880

PFmt19 l0;

2881

FiEnv e0;

2882

l0 = fi0New(struct Fmt19 , CENSUS_EnvLevel)((struct Fmt19 *) fi0Alloc(sizeof(struct Fmt19), (19)));

2883

e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);

2884

l0->X0_x = P0_x;

2885

return fiClosMake(e0, C35__LT__LT_)fiClosMakeFun(e0, (FiProg) (C35__LT__LT_));

2886

}

2887

2888

static struct _FiProg tmp34__LT__LT_ = {

2889

(FiFun) CF34__LT__LT_,

2890

0L,

2891

0L,

2892

0L,

2893

0L

2894

};

2895

2896

2897

static FiWord

2898

CF35__LT__LT_(FiEnv e1, FiWord P0_p)

2899

{

2900

FiSInt T4;

2901

FiClos T1, T2, T3;

2902

PFmt42 T0;

2903

PFmt19 l1;

2904

FiEnv e4, e3, e2;

2905

PFmt21 l4;

2906

l1 = (PFmt19) fiEnvLevel(e1)((FiEnv) (e1)->level);

2907

e2 = fiEnvNext(e1)((FiEnv) (e1)->next);

2908

e3 = fiEnvNext(e2)((FiEnv) (e2)->next);

2909

e4 = fiEnvNext(e3)((FiEnv) (e3)->next);

2910

l4 = (PFmt21) fiEnvLevel(e4)((FiEnv) (e4)->level);

2911

T4 = l1->X0_x;

2912

T0 = (PFmt42) l4->X0_T;

2913

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_p)->prog->fun)

2914

FiClos) P0_p)((( FiClos) P0_p)->prog->fun))(((FiClos) P0_p)->env, &T1, &T2, &T3);

2915

fiCCall3(FiWord, T2, T0->X1_values[T4], (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T2)->prog->fun))((T2)->env,T0->
X1_values[T4],(FiWord) 1L,(FiWord) 0L));

2916

return P0_p;

2917

}

2918

2919

static struct _FiProg tmp35__LT__LT_ = {

2920

(FiFun) CF35__LT__LT_,

2921

0L,

2922

0L,

2923

0L,

2924

0L

2925

};

2926

2927

2928

static FiWord

2929

CF36_hash(FiEnv e1, FiSInt P0_x)

2930

{

2931

return (FiWord) 0L;

2932

}

2933

2934

static struct _FiProg tmp36_hash = {

2935

(FiFun) CF36_hash,

2936

0L,

2937

0L,

2938

0L,

2939

0L

2940

};

2941

2942

2943

static FiWord

2944

CF37_case(FiEnv e1, FiSInt P0_x, FiSInt P1_y)

2945

{

2946

return (FiWord) (P0_x == P1_y);

2947

}

2948

2949

static struct _FiProg tmp37_case = {

2950

(FiFun) CF37_case,

2951

0L,

2952

0L,

2953

0L,

2954

0L

2955

};

2956

2957

2958

static FiWord

2959

CF38_langx(FiEnv e1, FiWord P0_T)

2960

{

2961

FiBool T5;

2962

FiWord T0, *T1, T3, T4;

2963

PFmt5 T2;

2964

PFmt22 l0;

2965

FiEnv e0;

2966

PFmt36 l1;

2967

l0 = fi0New(struct Fmt22 , CENSUS_EnvLevel)((struct Fmt22 *) fi0Alloc(sizeof(struct Fmt22), (19)));

2968

e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);

2969

l1 = (PFmt36) fiEnvLevel(e1)((FiEnv) (e1)->level);

2970

l0->X0_T = P0_T;

2971

fiARRNEW_Word(T1, FiWord*, 1L)((T1) = (FiWord*) fiArrNew_Word(1L));

2972

T2 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));

2973

T2->X0_size = 1L;

2974

T2->X1_values = (FiWord*) T1;

2975

fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X14)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X14) == (FiPtr) 0));

2976

if (T5) goto L2;

2977

L1: T1[0L] = l0->X0_T;

2978

((void(*)(FiEnv , FiWord , FiWord , FiWord* , FiWord* ))

2979

fiRawCProg((*pG_759EG_rtCacheCheck))(((*pG_759EG_rtCacheCheck))->prog->fun))(((*

2980

pG_759EG_rtCacheCheck))->env, (FiWord) l1->X14, (FiWord) (

2981

FiWord) T2, &T3, &T4);

2982

if ((FiBool) T4) goto L0;

2983

T0 = fiCCall1(FiWord, (*pG_FZLG1_extendMake), fiClosMake(e0,((*((FiWord (*)())((*pG_FZLG1_extendMake))->prog->fun))
(((*pG_FZLG1_extendMake))->env,fiClosMakeFun(e0, (FiProg) (
C39_extend0))))

2984

C39_extend0))((*((FiWord (*)())((*pG_FZLG1_extendMake))->prog->fun))
(((*pG_FZLG1_extendMake))->env,fiClosMakeFun(e0, (FiProg) (
C39_extend0))));

2985

T3 = fiCCall3(FiWord, (*pG_PV28S_rtCacheAdd), l1->X14, (FiWord)((*((FiWord (*)())((*pG_PV28S_rtCacheAdd))->prog->fun))
(((*pG_PV28S_rtCacheAdd))->env,l1->X14,(FiWord) T2,T0))

2986

T2, T0)((*((FiWord (*)())((*pG_PV28S_rtCacheAdd))->prog->fun))
(((*pG_PV28S_rtCacheAdd))->env,l1->X14,(FiWord) T2,T0));

2987

L0: return T3;

2988

L2: l1->X14 = fiCCall1(FiWord, (*pG_KAC1B_rtCacheExplicitMake), 15L)((*((FiWord (*)())((*pG_KAC1B_rtCacheExplicitMake))->prog->
fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));

2989

goto L1;

2990

}

2991

2992

static struct _FiProg tmp38_langx = {

2993

(FiFun) CF38_langx,

2994

0L,

2995

0L,

2996

0L,

2997

0L

2998

};

2999

3000

3001

static FiClos

3002

CF39_extend0(FiEnv e1, FiWord P0_domain)

3003

{

3004

PFmt8 T1;

3005

FiWord *T0;

3006

PFmt22 l1;

3007

PFmt36 l2;

3008

FiEnv e2;

3009

l1 = (PFmt22) fiEnvLevel(e1)((FiEnv) (e1)->level);

3010

e2 = fiEnvNext(e1)((FiEnv) (e1)->next);

3011

l2 = (PFmt36) fiEnvLevel(e2)((FiEnv) (e2)->level);

3012

fiARRNEW_Word(T0, FiWord*, 2L)((T0) = (FiWord*) fiArrNew_Word(2L));

3013

T0[1L] = fiCCall1(FiWord, l2->X3_Enumeration, l1->X0_T)((*((FiWord (*)())(l2->X3_Enumeration)->prog->fun))(
(l2->X3_Enumeration)->env,l1->X0_T));

3014

T0[0L] = fiCCall1(FiWord, G_BVOVG_langx__Enumeration__08, l1->((*((FiWord (*)())(G_BVOVG_langx__Enumeration__08)->prog->
fun))((G_BVOVG_langx__Enumeration__08)->env,l1-> X0_T))

3015

X0_T)((*((FiWord (*)())(G_BVOVG_langx__Enumeration__08)->prog->
fun))((G_BVOVG_langx__Enumeration__08)->env,l1-> X0_T));

3016

T1 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

3017

T1->X0_size = 2L;

3018

T1->X1_nsize = 2L;

3019

T1->X2_values = (FiWord) T0;

3020

fiCCall2(FiWord, (*pG_G3BWN_extendFill_BANG_), P0_domain, T1)((*((FiWord (*)())((*pG_G3BWN_extendFill_BANG_))->prog->
fun))(((*pG_G3BWN_extendFill_BANG_))->env,P0_domain,T1));

3021

return (FiClos) fiNil((Ptr) 0);

3022

}

3023

3024

static struct _FiProg tmp39_extend0 = {

3025

(FiFun) CF39_extend0,

3026

0L,

3027

0L,

3028

0L,

3029

0L

3030

};

3031

3032

3033

static FiClos

3034

CF40_addLevel0(FiEnv e1, FiWord P0_domain)

3035

{

3036

FiWord T0;

3037

FiEnv e0;

3038

e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);

3039

T0 = fiCCall1(FiWord, (*pG_Z2868_rtConstNameFn), "DomainName")((*((FiWord (*)())((*pG_Z2868_rtConstNameFn))->prog->fun
))(((*pG_Z2868_rtConstNameFn))->env,"DomainName"));

3040

fiCCall2(FiWord, (*pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((*((FiWord (*)())((*pG_CSVBL_domainAddNameFn_BANG_))->prog
->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain
,T0));

3041

fiCCall2(FiWord, (*pG_XS55O_domainAddHash_BANG_), P0_domain,((*((FiWord (*)())((*pG_XS55O_domainAddHash_BANG_))->prog->
fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,411206131L
))

3042

411206131L)((*((FiWord (*)())((*pG_XS55O_domainAddHash_BANG_))->prog->
fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,411206131L
));

3043

return fiClosMake(e0, C41_addLevel1)fiClosMakeFun(e0, (FiProg) (C41_addLevel1));

3044

}

3045

3046

static struct _FiProg tmp40_addLevel0 = {

3047

(FiFun) CF40_addLevel0,

3048

0L,

3049

0L,

3050

0L,

3051

0L

3052

};

3053

3054

3055

static FiWord

3056

CF41_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)

3057

{

3058

FiSInt T6, T7, T8, T9, T10, T11, T12, T13, T14, T15, T16;

3059

PFmt8 T3, T4, T5;

3060

FiWord *T0, *T1, *T2;

3061

PFmt25 l0;

3062

FiEnv e0;

3063

l0 = fi0New(struct Fmt25 , CENSUS_EnvLevel)((struct Fmt25 *) fi0Alloc(sizeof(struct Fmt25), (19)));

3064

e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);

3065

fiARRNEW_Word(T0, FiWord*, 10L)((T0) = (FiWord*) fiArrNew_Word(10L));

3066

fiARRNEW_Word(T1, FiWord*, 10L)((T1) = (FiWord*) fiArrNew_Word(10L));

3067

fiARRNEW_Word(T2, FiWord*, 10L)((T2) = (FiWord*) fiArrNew_Word(10L));

3068

l0->X10 = (FiSInt) P1_hashcode;

3069

l0->X9_type = fiClosMake(e0, C42_type)fiClosMakeFun(e0, (FiProg) (C42_type));

3070

l0->X8_name = fiClosMake(e0, C43_name)fiClosMakeFun(e0, (FiProg) (C43_name));

3071

l0->X7_args = fiClosMake(e0, C44_args)fiClosMakeFun(e0, (FiProg) (C44_args));

3072

l0->X6_tuple = fiClosMake(e0, C45_tuple)fiClosMakeFun(e0, (FiProg) (C45_tuple));

3073

l0->X5__LT__LT_ = fiClosMake(e0, C46__LT__LT_)fiClosMakeFun(e0, (FiProg) (C46__LT__LT_));

3074

l0->X4_new = fiClosMake(e0, C47_new)fiClosMakeFun(e0, (FiProg) (C47_new));

3075

l0->X3_other = fiClosMake(e0, C48_other)fiClosMakeFun(e0, (FiProg) (C48_other));

3076

l0->X1_combine = fiClosMake(e0, C49_combine)fiClosMakeFun(e0, (FiProg) (C49_combine));

3077

l0->X2_combine = fiClosMake(e0, C50_combine)fiClosMakeFun(e0, (FiProg) (C50_combine));

3078

l0->X0_noName = fiClosMake(e0, C51_noName)fiClosMakeFun(e0, (FiProg) (C51_noName));

3079

fiSINT_HASHCOMBINE(T14, FiSInt, l0->X10, 51489085L)((T14) = (FiSInt) fiSIntHashCombine(l0->X10, 51489085L));

3080

fiSINT_HASHCOMBINE(T15, FiSInt, 32236L, T14)((T15) = (FiSInt) fiSIntHashCombine(32236L, T14));

3081

fiSINT_HASHCOMBINE(T6, FiSInt, 585242861L, T15)((T6) = (FiSInt) fiSIntHashCombine(585242861L, T15));

3082

fiSINT_HASHCOMBINE(T16, FiSInt, l0->X10, 144194112L)((T16) = (FiSInt) fiSIntHashCombine(l0->X10, 144194112L));

3083

fiSINT_HASHCOMBINE(T7, FiSInt, T16, T15)((T7) = (FiSInt) fiSIntHashCombine(T16, T15));

3084

fiSINT_HASHCOMBINE(T8, FiSInt, 182752316L, fiSIntHashCombine((FiSInt)((T8) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X10, ( FiSInt) 102896482L))))

3085

32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X10, (((T8) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X10, ( FiSInt) 102896482L))))

3086

FiSInt) 102896482L)))((T8) = (FiSInt) fiSIntHashCombine(182752316L, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X10, ( FiSInt) 102896482L))));

3087

fiSINT_HASHCOMBINE(T9, FiSInt, l0->X10, 134790492L)((T9) = (FiSInt) fiSIntHashCombine(l0->X10, 134790492L));

3088

fiSINT_HASHCOMBINE(T10, FiSInt, l0->X10, 130092106L)((T10) = (FiSInt) fiSIntHashCombine(l0->X10, 130092106L));

3089

fiSINT_HASHCOMBINE(T11, FiSInt, l0->X10, fiSIntHashCombine((FiSInt)((T11) = (FiSInt) fiSIntHashCombine(l0->X10, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine
(( FiSInt) l0->X10, (FiSInt) 617884183L), (FiSInt) 564016248L
))))

3090

32236L, (FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine((((T11) = (FiSInt) fiSIntHashCombine(l0->X10, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine
(( FiSInt) l0->X10, (FiSInt) 617884183L), (FiSInt) 564016248L
))))

3091

FiSInt) l0->X10, (FiSInt) 617884183L), (FiSInt) 564016248L)))((T11) = (FiSInt) fiSIntHashCombine(l0->X10, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) fiSIntHashCombine
(( FiSInt) l0->X10, (FiSInt) 617884183L), (FiSInt) 564016248L
))));

3092

fiSINT_HASHCOMBINE(T12, FiSInt, l0->X10, fiSIntHashCombine((FiSInt)((T12) = (FiSInt) fiSIntHashCombine(l0->X10, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T16, (FiSInt
) 564016248L))))

3093

32236L, (FiSInt) fiSIntHashCombine((FiSInt) T16, (FiSInt)((T12) = (FiSInt) fiSIntHashCombine(l0->X10, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T16, (FiSInt
) 564016248L))))

3094

564016248L)))((T12) = (FiSInt) fiSIntHashCombine(l0->X10, fiSIntHashCombine
((FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) T16, (FiSInt
) 564016248L))));

3095

fiSINT_HASHCOMBINE(T13, FiSInt, l0->X10, 275363373L)((T13) = (FiSInt) fiSIntHashCombine(l0->X10, 275363373L));

3096

T3 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

3097

T3->X0_size = 10L;

3098

T3->X1_nsize = 10L;

3099

T3->X2_values = (FiWord) T0;

3100

T4 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

3101

T4->X0_size = 10L;

3102

T4->X1_nsize = 10L;

3103

T4->X2_values = (FiWord) T1;

3104

T5 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

3105

T5->X0_size = 10L;

3106

T5->X1_nsize = 10L;

3107

T5->X2_values = (FiWord) T2;

3108

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)
);

3109

T0[0L] = (FiWord) 12649830L;

3110

fiSINT_HASHCOMBINE(T1[0L], FiWord, 950948313L, fiSIntHashCombine((((T1[0L]) = (FiWord) fiSIntHashCombine(950948313L, fiSIntHashCombine
(( FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X10, ( FiSInt) 51489085L))))

3111

FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->X10, (((T1[0L]) = (FiWord) fiSIntHashCombine(950948313L, fiSIntHashCombine
(( FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X10, ( FiSInt) 51489085L))))

3112

FiSInt) 51489085L)))((T1[0L]) = (FiWord) fiSIntHashCombine(950948313L, fiSIntHashCombine
(( FiSInt) 32236L, (FiSInt) fiSIntHashCombine((FiSInt) l0->
X10, ( FiSInt) 51489085L))));

3113

T2[0L] = (FiWord) l0->X9_type;

3114

T0[1L] = (FiWord) 783167045L;

3115

T1[1L] = (FiWord) T6;

3116

T2[1L] = (FiWord) l0->X8_name;

3117

T0[2L] = (FiWord) 364648785L;

3118

T1[2L] = (FiWord) T7;

3119

T2[2L] = (FiWord) l0->X7_args;

3120

T0[3L] = (FiWord) 609528375L;

3121

T1[3L] = (FiWord) T7;

3122

T2[3L] = (FiWord) l0->X6_tuple;

3123

T0[4L] = (FiWord) 51492426L;

3124

T1[4L] = (FiWord) T8;

3125

T2[4L] = (FiWord) l0->X5__LT__LT_;

3126

T0[5L] = (FiWord) 318528389L;

3127

T1[5L] = (FiWord) T9;

3128

T2[5L] = (FiWord) l0->X4_new;

3129

T0[6L] = (FiWord) 862433839L;

3130

T1[6L] = (FiWord) T10;

3131

T2[6L] = (FiWord) l0->X3_other;

3132

T0[7L] = (FiWord) 393444028L;

3133

T1[7L] = (FiWord) T11;

3134

T2[7L] = (FiWord) l0->X1_combine;

3135

T0[8L] = (FiWord) 393444028L;

3136

T1[8L] = (FiWord) T12;

3137

T2[8L] = (FiWord) l0->X2_combine;

3138

T0[9L] = (FiWord) 848463572L;

3139

T1[9L] = (FiWord) T13;

3140

T2[9L] = (FiWord) l0->X0_noName;

3141

return P0_domain;

3142

}

3143

3144

static struct _FiProg tmp41_addLevel1 = {

3145

(FiFun) CF41_addLevel1,

3146

0L,

3147

0L,

3148

0L,

3149

0L

3150

};

3151

3152

3153

static FiSInt

3154

CF42_type(FiEnv e1, FiWord P0_nm)

3155

{

3156

return ((PFmt23) P0_nm)->X0_tag;

3157

}

3158

3159

static struct _FiProg tmp42_type = {

3160

(FiFun) CF42_type,

3161

0L,

3162

0L,

3163

0L,

3164

0L

3165

};

3166

3167

3168

static FiWord

3169

CF43_name(FiEnv e1, FiWord P0_nm)

3170

{

3171

return ((PFmt23) P0_nm)->X1_p;

3172

}

3173

3174

static struct _FiProg tmp43_name = {

3175

(FiFun) CF43_name,

3176

0L,

3177

0L,

3178

0L,

3179

0L

3180

};

3181

3182

3183

static FiWord

3184

CF44_args(FiEnv e1, FiWord P0_nm)

3185

{

3186

return ((PFmt23) P0_nm)->X1_p;

3187

}

3188

3189

static struct _FiProg tmp44_args = {

3190

(FiFun) CF44_args,

3191

0L,

3192

0L,

3193

0L,

3194

0L

3195

};

3196

3197

3198

static FiWord

3199

CF45_tuple(FiEnv e1, FiWord P0_nm)

3200

{

3201

return ((PFmt23) P0_nm)->X1_p;

3202

}

3203

3204

static struct _FiProg tmp45_tuple = {

3205

(FiFun) CF45_tuple,

3206

0L,

3207

0L,

3208

0L,

3209

0L

3210

};

3211

3212

3213

static FiWord

3214

CF46__LT__LT_(FiEnv e1, FiWord P0_out, FiWord P1_nm)

3215

{

3216

FiBool T1_isTuple, T27, T28, T29;

3217

FiWord T0_lst, T2, T3, T4, T8, T9, T16, T23, T24, T25, T26_ll;

3218

FiClos T5, T6, T7, T10, T11, T12, T13, T14, T15, T17, T18, T19, T20, T21, T22;

3219

PFmt25 l1;

3220

l1 = (PFmt25) fiEnvLevel(e1)((FiEnv) (e1)->level);

3221

if (((PFmt23) P1_nm)->X0_tag == 0) goto L0;

3222

if (((PFmt23) P1_nm)->X0_tag == 3L) goto L2;

3223

T1_isTuple = ((PFmt23) P1_nm)->X0_tag == 2L;

3224

if (T1_isTuple) goto L4;

3225

T4 = ((PFmt23) P1_nm)->X1_p;

3226

fiPTR_IS_NIL(T27, FiBool, (FiPtr) T4)((T27) = (FiBool)((FiPtr) ((FiPtr) T4) == (FiPtr) 0));

3227

if (T27) goto L6;

3228

T24 = ((PFmt39) T4)->X0_first;

3229

CF46__LT__LT_(e1, (FiWord) P0_out, (FiWord) T24);

3230

T23 = ((PFmt39) T4)->X1_rest;

3231

T0_lst = T23;

3232

L5: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_out)->prog->fun)

3233

FiClos) P0_out)((( FiClos) P0_out)->prog->fun))(((FiClos) P0_out)->env, &T17, &T18, &T19);

3234

fiCCall3(FiWord, T18, (FiWord) "(", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T18)->prog->fun))((T18)->env,(FiWord
) "(",(FiWord) 1L,(FiWord) 0L));

3235

T26_ll = T0_lst;

3236

L7: fiPTR_IS_NIL(T28, FiBool, (FiPtr) T26_ll)((T28) = (FiBool)((FiPtr) ((FiPtr) T26_ll) == (FiPtr) 0));

3237

if (T28) goto L8;

3238

T25 = ((PFmt39) T26_ll)->X1_rest;

3239

T9 = ((PFmt39) T26_ll)->X0_first;

3240

CF46__LT__LT_(e1, (FiWord) P0_out, (FiWord) T9);

3241

T8 = ((PFmt39) T26_ll)->X1_rest;

3242

fiPTR_IS_NIL(T29, FiBool, (FiPtr) T8)((T29) = (FiBool)((FiPtr) ((FiPtr) T8) == (FiPtr) 0));

3243

if (T29) goto L9;

3244

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_out)->prog->fun)

3245

FiClos) P0_out)((( FiClos) P0_out)->prog->fun))(((FiClos) P0_out)->env, &T5, &T6, &T7);

3246

fiCCall3(FiWord, T6, (FiWord) ", ", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T6)->prog->fun))((T6)->env,(FiWord
) ", ",(FiWord) 1L,(FiWord) 0L));

3247

L9: T26_ll = T25;

3248

goto L7;

3249

L8: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_out)->prog->fun)

3250

FiClos) P0_out)((( FiClos) P0_out)->prog->fun))(((FiClos) P0_out)->env, &T10, &T11, &T12);

3251

fiCCall3(FiWord, T11, (FiWord) ")", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T11)->prog->fun))((T11)->env,(FiWord
) ")",(FiWord) 1L,(FiWord) 0L));

3252

T3 = P0_out;

3253

L3: T2 = T3;

3254

L1: return T2;

3255

L6: fputs((FiWord) "Cannot select `first\' of empty list.", stdoutFile());

3256

fputc((FiWord) 10L, stdoutFile());

3257

fiHalt((FiSInt) 0L);

3258

return (FiWord) 0L;

3259

L4: T4 = ((PFmt23) P1_nm)->X1_p;

3260

T0_lst = T4;

3261

goto L5;

3262

L2: ((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_out)->prog->fun)

3263

FiClos) P0_out)((( FiClos) P0_out)->prog->fun))(((FiClos) P0_out)->env, &T20, &T21, &T22);

3264

fiCCall3(FiWord, T21, (FiWord) "\?\?", (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T21)->prog->fun))((T21)->env,(FiWord
) "\?\?",(FiWord) 1L,(FiWord) 0L));

3265

T3 = P0_out;

3266

goto L3;

3267

L0: T16 = ((PFmt23) P1_nm)->X1_p;

3268

((void(*)(FiEnv , FiClos* , FiClos* , FiClos* )) fiRawCProg((((( FiClos) P0_out)->prog->fun)

3269

FiClos) P0_out)((( FiClos) P0_out)->prog->fun))(((FiClos) P0_out)->env, &T13, &T14, &T15);

3270

fiCCall3(FiWord, T14, T16, (FiWord) 1L, (FiWord) 0L)((*((FiWord (*)())(T14)->prog->fun))((T14)->env,T16,
(FiWord) 1L,(FiWord) 0L));

3271

T2 = P0_out;

3272

goto L1;

3273

}

3274

3275

static struct _FiProg tmp46__LT__LT_ = {

3276

(FiFun) CF46__LT__LT_,

3277

0L,

3278

0L,

3279

0L,

3280

0L

3281

};

3282

3283

3284

static FiWord

3285

CF47_new(FiEnv e1, FiWord P0_s)

3286

{

3287

PFmt23 T0;

3288

T0 = fi0RecNew(struct Fmt23 , CENSUS_Rec)((struct Fmt23 *) fi0RecAlloc(sizeof(struct Fmt23), ( 5)));

3289

T0->X0_tag = 0L;

3290

T0->X1_p = P0_s;

3291

return (FiWord) T0;

3292

}

3293

3294

static struct _FiProg tmp47_new = {

3295

(FiFun) CF47_new,

3296

0L,

3297

0L,

3298

0L,

3299

0L

3300

};

3301

3302

3303

static FiWord

3304

CF48_other(FiEnv e1, FiWord P0_p)

3305

{

3306

PFmt23 T0;

3307

T0 = fi0RecNew(struct Fmt23 , CENSUS_Rec)((struct Fmt23 *) fi0RecAlloc(sizeof(struct Fmt23), ( 5)));

3308

T0->X0_tag = 3L;

3309

T0->X1_p = P0_p;

3310

return (FiWord) T0;

3311

}

3312

3313

static struct _FiProg tmp48_other = {

3314

(FiFun) CF48_other,

3315

0L,

3316

0L,

3317

0L,

3318

0L

3319

};

3320

3321

3322

static FiWord

3323

CF49_combine(FiEnv e1, FiWord P0_isTuple, FiWord P1_tup)

3324

{

3325

PFmt23 T11, T12;

3326

FiSInt T1, T4, T5, T6, T9, T10;

3327

PFmt39 T3, T8;

3328

FiWord T0, T2, T7;

3329

if ((FiBool) P0_isTuple) goto L0;

3330

T2 = (FiWord) fiNil((Ptr) 0);

3331

T1 = ((PFmt42) P1_tup)->X0_size;

3332

T5 = T1 - 1L;

3333

T4 = 0L;

3334

L2: if (T4 <= T5) goto L3;

3335

T12 = fi0RecNew(struct Fmt23 , CENSUS_Rec)((struct Fmt23 *) fi0RecAlloc(sizeof(struct Fmt23), ( 5)));

3336

T12->X0_tag = 1L;

3337

T12->X1_p = T2;

3338

T0 = (FiWord) T12;

3339

L1: return T0;

3340

L3: T3 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));

3341

T3->X0_first = ((PFmt42) P1_tup)->X1_values[T1 - T4 - 1L];

3342

T3->X1_rest = T2;

3343

T2 = (FiWord) T3;

3344

T4 = T4 + 1L;

3345

goto L2;

3346

L0: T7 = (FiWord) fiNil((Ptr) 0);

3347

T6 = ((PFmt42) P1_tup)->X0_size;

3348

T10 = T6 - 1L;

3349

T9 = 0L;

3350

L4: if (T9 <= T10) goto L5;

3351

T11 = fi0RecNew(struct Fmt23 , CENSUS_Rec)((struct Fmt23 *) fi0RecAlloc(sizeof(struct Fmt23), ( 5)));

3352

T11->X0_tag = 2L;

3353

T11->X1_p = T7;

3354

T0 = (FiWord) T11;

3355

goto L1;

3356

L5: T8 = fi0RecNew(struct Fmt39 , CENSUS_Rec)((struct Fmt39 *) fi0RecAlloc(sizeof(struct Fmt39), ( 5)));

3357

T8->X0_first = ((PFmt42) P1_tup)->X1_values[T6 - T9 - 1L];

3358

T8->X1_rest = T7;

3359

T7 = (FiWord) T8;

3360

T9 = T9 + 1L;

3361

goto L4;

3362

}

3363

3364

static struct _FiProg tmp49_combine = {

3365

(FiFun) CF49_combine,

3366

0L,

3367

0L,

3368

0L,

3369

0L

3370

};

3371

3372

3373

static FiWord

3374

CF50_combine(FiEnv e1, FiWord P0_isTuple, FiWord P1_lst)

3375

{

3376

PFmt23 T1, T2;

3377

FiWord T0;

3378

if ((FiBool) P0_isTuple) goto L0;

3379

T1 = fi0RecNew(struct Fmt23 , CENSUS_Rec)((struct Fmt23 *) fi0RecAlloc(sizeof(struct Fmt23), ( 5)));

3380

T1->X0_tag = 1L;

3381

T1->X1_p = P1_lst;

3382

T0 = (FiWord) T1;

3383

L1: return T0;

3384

L0: T2 = fi0RecNew(struct Fmt23 , CENSUS_Rec)((struct Fmt23 *) fi0RecAlloc(sizeof(struct Fmt23), ( 5)));

3385

T2->X0_tag = 2L;

3386

T2->X1_p = P1_lst;

3387

T0 = (FiWord) T2;

3388

goto L1;

3389

}

3390

3391

static struct _FiProg tmp50_combine = {

3392

(FiFun) CF50_combine,

3393

0L,

3394

0L,

3395

0L,

3396

0L

3397

};

3398

3399

3400

static FiWord

3401

CF51_noName(FiEnv e1)

3402

{

3403

PFmt23 T0;

3404

T0 = fi0RecNew(struct Fmt23 , CENSUS_Rec)((struct Fmt23 *) fi0RecAlloc(sizeof(struct Fmt23), ( 5)));

3405

T0->X0_tag = 0L;

3406

T0->X1_p = (FiWord) "Dunno";

3407

return (FiWord) T0;

3408

}

3409

3410

static struct _FiProg tmp51_noName = {

3411

(FiFun) CF51_noName,

3412

0L,

3413

0L,

3414

0L,

3415

0L

3416

};

3417

3418

3419

static FiClos

3420

CF52_extend0(FiEnv e1, FiWord P0_domain)

3421

{

3422

PFmt8 T1;

3423

FiWord *T0;

3424

PFmt36 l1;

3425

l1 = (PFmt36) fiEnvLevel(e1)((FiEnv) (e1)->level);

3426

fiARRNEW_Word(T0, FiWord*, 2L)((T0) = (FiWord*) fiArrNew_Word(2L));

3427

T0[1L] = l1->X1_DomainName;

3428

T0[0L] = (FiWord) G_GI7P2_langx__DomainName__361;

3429

T1 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

3430

T1->X0_size = 2L;

3431

T1->X1_nsize = 2L;

3432

T1->X2_values = (FiWord) T0;

3433

fiCCall2(FiWord, (*pG_G3BWN_extendFill_BANG_), P0_domain, T1)((*((FiWord (*)())((*pG_G3BWN_extendFill_BANG_))->prog->
fun))(((*pG_G3BWN_extendFill_BANG_))->env,P0_domain,T1));

3434

return (FiClos) fiNil((Ptr) 0);

3435

}

3436

3437

static struct _FiProg tmp52_extend0 = {

3438

(FiFun) CF52_extend0,

3439

0L,

3440

0L,

3441

0L,

3442

0L

3443

};

3444

3445

3446

static FiWord

3447

CF53_typeName(FiEnv e1, FiWord P0_T)

3448

{

3449

FiClos T0;

3450

T0 = (FiClos) ((PFmt28) ((PFmt26) P0_T)->X0_dispatcher)->

3451

X1_namer;

3452

return fiCCall1(FiWord, T0, ((PFmt26) P0_T)->X1_domainRep)((*((FiWord (*)())(T0)->prog->fun))((T0)->env,((PFmt26
) P0_T)->X1_domainRep));

3453

}

3454

3455

static struct _FiProg tmp53_typeName = {

3456

(FiFun) CF53_typeName,

3457

0L,

3458

0L,

3459

0L,

3460

0L

3461

};

3462

3463

3464

static FiClos

3465

CF54_addLevel0(FiEnv e1, FiWord P0_domain)

3466

{

3467

FiWord T0;

3468

FiEnv e0;

3469

e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);

3470

T0 = fiCCall1(FiWord, (*pG_Z2868_rtConstNameFn), "IsPackage")((*((FiWord (*)())((*pG_Z2868_rtConstNameFn))->prog->fun
))(((*pG_Z2868_rtConstNameFn))->env,"IsPackage"));

3471

fiCCall2(FiWord, (*pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((*((FiWord (*)())((*pG_CSVBL_domainAddNameFn_BANG_))->prog
->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain
,T0));

3472

fiCCall2(FiWord, (*pG_XS55O_domainAddHash_BANG_), P0_domain,((*((FiWord (*)())((*pG_XS55O_domainAddHash_BANG_))->prog->
fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,908468761L
))

3473

908468761L)((*((FiWord (*)())((*pG_XS55O_domainAddHash_BANG_))->prog->
fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,908468761L
));

3474

return fiClosMake(e0, C55_addLevel1)fiClosMakeFun(e0, (FiProg) (C55_addLevel1));

3475

}

3476

3477

static struct _FiProg tmp54_addLevel0 = {

3478

(FiFun) CF54_addLevel0,

3479

0L,

3480

0L,

3481

0L,

3482

0L

3483

};

3484

3485

3486

static FiWord

3487

CF55_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)

3488

{

3489

PFmt8 T3, T4, T5;

3490

FiWord *T0, *T1, *T2;

3491

PFmt34 l0;

3492

FiEnv e0;

3493

l0 = fi0New(struct Fmt34 , CENSUS_EnvLevel)((struct Fmt34 *) fi0Alloc(sizeof(struct Fmt34), (19)));

3494

e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);

3495

fiARRNEW_Word(T0, FiWord*, 3L)((T0) = (FiWord*) fiArrNew_Word(3L));

3496

fiARRNEW_Word(T1, FiWord*, 3L)((T1) = (FiWord*) fiArrNew_Word(3L));

3497

fiARRNEW_Word(T2, FiWord*, 3L)((T2) = (FiWord*) fiArrNew_Word(3L));

3498

l0->X3 = (FiWord) fiNil((Ptr) 0);

3499

l0->X2_You = fiClosMake(e0, C56_You)fiClosMakeFun(e0, (FiProg) (C56_You));

3500

fiProgHashCode(l0->X2_You->prog)((l0->X2_You->prog)->data) = 315577720L;

3501

l0->X4 = (FiWord) fiNil((Ptr) 0);

3502

l0->X1_Me = fiClosMake(e0, C59_Me)fiClosMakeFun(e0, (FiProg) (C59_Me));

3503

fiProgHashCode(l0->X1_Me->prog)((l0->X1_Me->prog)->data) = 51497348L;

3504

l0->X0_is = fiClosMake(e0, C62_is)fiClosMakeFun(e0, (FiProg) (C62_is));

3505

T3 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

3506

T3->X0_size = 3L;

3507

T3->X1_nsize = 3L;

3508

T3->X2_values = (FiWord) T0;

3509

T4 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

3510

T4->X0_size = 3L;

3511

T4->X1_nsize = 3L;

3512

T4->X2_values = (FiWord) T1;

3513

T5 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

3514

T5->X0_size = 3L;

3515

T5->X1_nsize = 3L;

3516

T5->X2_values = (FiWord) T2;

3517

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)
);

3518

T0[0L] = (FiWord) 315577720L;

3519

T1[0L] = (FiWord) 780749425L;

3520

T2[0L] = (FiWord) l0->X2_You;

3521

T0[1L] = (FiWord) 51497348L;

3522

T1[1L] = (FiWord) 687774895L;

3523

T2[1L] = (FiWord) l0->X1_Me;

3524

T0[2L] = (FiWord) 51506606L;

3525

T1[2L] = (FiWord) 4881371L;

3526

T2[2L] = (FiWord) l0->X0_is;

3527

return P0_domain;

3528

}

3529

3530

static struct _FiProg tmp55_addLevel1 = {

3531

(FiFun) CF55_addLevel1,

3532

0L,

3533

0L,

3534

0L,

3535

0L

3536

};

3537

3538

3539

static FiWord

3540

CF56_You(FiEnv e1, FiWord P0_X)

3541

{

3542

FiWord *T0, T2, T4, T6;

3543

FiBool T3, T5;

3544

PFmt5 T1;

3545

PFmt31 l0;

3546

FiEnv e0;

3547

PFmt34 l1;

3548

l0 = fi0New(struct Fmt31 , CENSUS_EnvLevel)((struct Fmt31 *) fi0Alloc(sizeof(struct Fmt31), (19)));

3549

e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);

3550

l1 = (PFmt34) fiEnvLevel(e1)((FiEnv) (e1)->level);

3551

l0->X0_X = P0_X;

3552

fiARRNEW_Word(T0, FiWord*, 1L)((T0) = (FiWord*) fiArrNew_Word(1L));

3553

T1 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));

3554

T1->X0_size = 1L;

3555

T1->X1_values = (FiWord*) T0;

3556

fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X3)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X3) == (FiPtr) 0));

3557

if (T5) goto L3;

3558

L1: T0[0L] = l0->X0_X;

3559

((void(*)(FiEnv , FiWord , FiWord , FiWord* , FiWord* ))

3560

fiRawCProg((*pG_759EG_rtCacheCheck))(((*pG_759EG_rtCacheCheck))->prog->fun))(((*

3561

pG_759EG_rtCacheCheck))->env, (FiWord) l1->X3, (FiWord) (

3562

FiWord) T1, &T2, &T4);

3563

T3 = (FiBool) T4;

3564

if (T3) goto L0;

3565

T6 = fiCCall2(FiWord, (*pG_8AMPD_rtSingleParamNameFn), "You", l0->((*((FiWord (*)())((*pG_8AMPD_rtSingleParamNameFn))->prog->
fun))(((*pG_8AMPD_rtSingleParamNameFn))->env,"You",l0->
X0_X))

3566

X0_X)((*((FiWord (*)())((*pG_8AMPD_rtSingleParamNameFn))->prog->
fun))(((*pG_8AMPD_rtSingleParamNameFn))->env,"You",l0->
X0_X));

3567

T2 = fiCCall3(FiWord, (*pG_GOVLL_categoryMake), fiClosMake(e0,((*((FiWord (*)())((*pG_GOVLL_categoryMake))->prog->fun
))(((*pG_GOVLL_categoryMake))->env,fiClosMakeFun(e0, (FiProg
) (C58_You)),fiClosMakeFun(e0, (FiProg) (C57_defhash0)),T6))

3568

C58_You), fiClosMake(e0, C57_defhash0), T6)((*((FiWord (*)())((*pG_GOVLL_categoryMake))->prog->fun
))(((*pG_GOVLL_categoryMake))->env,fiClosMakeFun(e0, (FiProg
) (C58_You)),fiClosMakeFun(e0, (FiProg) (C57_defhash0)),T6));

3569

T2 = fiCCall3(FiWord, (*pG_PV28S_rtCacheAdd), l1->X3, (FiWord)((*((FiWord (*)())((*pG_PV28S_rtCacheAdd))->prog->fun))
(((*pG_PV28S_rtCacheAdd))->env,l1->X3,(FiWord) T1,T2))

3570

T1, T2)((*((FiWord (*)())((*pG_PV28S_rtCacheAdd))->prog->fun))
(((*pG_PV28S_rtCacheAdd))->env,l1->X3,(FiWord) T1,T2));

3571

L0: return T2;

3572

L3: l1->X3 = fiCCall1(FiWord, (*pG_KAC1B_rtCacheExplicitMake), 15L)((*((FiWord (*)())((*pG_KAC1B_rtCacheExplicitMake))->prog->
fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));

3573

goto L1;

3574

}

3575

3576

static struct _FiProg tmp56_You = {

3577

(FiFun) CF56_You,

3578

0L,

3579

0L,

3580

0L,

3581

0L

3582

};

3583

3584

3585

static FiSInt

3586

CF57_defhash0(FiEnv e1)

3587

{

3588

FiSInt T0;

3589

PFmt31 l1;

3590

l1 = (PFmt31) fiEnvLevel(e1)((FiEnv) (e1)->level);

3591

fiSINT_HASHCOMBINE(T0, FiSInt, fiCCall1(FiSInt, (*((T0) = (FiSInt) fiSIntHashCombine(((*((FiSInt (*)())((* pG_LD0B5_domainHash_BANG_
))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env
,l1->X0_X)), 315577720L))

3592

pG_LD0B5_domainHash_BANG_), l1->X0_X), 315577720L)((T0) = (FiSInt) fiSIntHashCombine(((*((FiSInt (*)())((* pG_LD0B5_domainHash_BANG_
))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env
,l1->X0_X)), 315577720L));

3593

return T0;

3594

}

3595

3596

static struct _FiProg tmp57_defhash0 = {

3597

(FiFun) CF57_defhash0,

3598

0L,

3599

0L,

3600

0L,

3601

0L

3602

};

3603

3604

3605

static void

3606

CF58_You(FiEnv e1, FiWord P0_self, FiWord P1_dom)

3607

{

3608

FiSInt T6;

3609

PFmt8 T3, T4, T5;

3610

FiWord *T0, *T1, *T2;

3611

PFmt31 l1;

3612

l1 = (PFmt31) fiEnvLevel(e1)((FiEnv) (e1)->level);

3613

fiARRNEW_Word(T0, FiWord*, 1L)((T0) = (FiWord*) fiArrNew_Word(1L));

3614

fiARRNEW_Word(T1, FiWord*, 1L)((T1) = (FiWord*) fiArrNew_Word(1L));

3615

fiARRNEW_Word(T2, FiWord*, 1L)((T2) = (FiWord*) fiArrNew_Word(1L));

3616

T6 = fiCCall1(FiSInt, (*pG_LD0B5_domainHash_BANG_), l1->X0_X)((*((FiSInt (*)())((*pG_LD0B5_domainHash_BANG_))->prog->
fun))(((*pG_LD0B5_domainHash_BANG_))->env,l1->X0_X));

3617

T3 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

3618

T3->X0_size = 1L;

3619

T3->X1_nsize = 1L;

3620

T3->X2_values = (FiWord) T0;

3621

T4 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

3622

T4->X0_size = 1L;

3623

T4->X1_nsize = 1L;

3624

T4->X2_values = (FiWord) T1;

3625

T5 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

3626

T5->X0_size = 1L;

3627

T5->X1_nsize = 1L;

3628

T5->X2_values = (FiWord) T2;

3629

fiCCall4(void, (*pG_WXLY5_categoryAddExports), P0_self, T3, T4, T5)((*((void (*)())((*pG_WXLY5_categoryAddExports))->prog->
fun))(((*pG_WXLY5_categoryAddExports))->env,P0_self,T3,T4,
T5));

3630

T0[0L] = (FiWord) 51482908L;

3631

fiSINT_HASHCOMBINE(T1[0L], FiWord, T6, 315577720L)((T1[0L]) = (FiWord) fiSIntHashCombine(T6, 315577720L));

3632

T2[0L] = P1_dom;

3633

return ;

3634

}

3635

3636

static struct _FiProg tmp58_You = {

3637

(FiFun) CF58_You,

3638

0L,

3639

0L,

3640

0L,

3641

0L

3642

};

3643

3644

3645

static FiWord

3646

CF59_Me(FiEnv e1, FiWord P0_OW)

3647

{

3648

FiBool T3, T5;

3649

FiWord *T0, T2, T4;

3650

PFmt5 T1;

3651

PFmt33 l0;

3652

FiEnv e0;

3653

PFmt34 l1;

3654

l0 = fi0New(struct Fmt33 , CENSUS_EnvLevel)((struct Fmt33 *) fi0Alloc(sizeof(struct Fmt33), (19)));

3655

e0 = fiEnvPush(l0, e1)fiEnvPushFun((FiPtr) (l0), e1);

3656

l1 = (PFmt34) fiEnvLevel(e1)((FiEnv) (e1)->level);

3657

l0->X0_OW = P0_OW;

3658

fiARRNEW_Word(T0, FiWord*, 1L)((T0) = (FiWord*) fiArrNew_Word(1L));

3659

T1 = fi0RecNew(struct Fmt5 , CENSUS_Rec)((struct Fmt5 *) fi0RecAlloc(sizeof(struct Fmt5), ( 5)));

3660

T1->X0_size = 1L;

3661

T1->X1_values = (FiWord*) T0;

3662

fiPTR_IS_NIL(T5, FiBool, (FiPtr) l1->X4)((T5) = (FiBool)((FiPtr) ((FiPtr) l1->X4) == (FiPtr) 0));

3663

if (T5) goto L3;

3664

L1: T0[0L] = l0->X0_OW;

3665

((void(*)(FiEnv , FiWord , FiWord , FiWord* , FiWord* ))

3666

fiRawCProg((*pG_759EG_rtCacheCheck))(((*pG_759EG_rtCacheCheck))->prog->fun))(((*

3667

pG_759EG_rtCacheCheck))->env, (FiWord) l1->X4, (FiWord) (

3668

FiWord) T1, &T2, &T4);

3669

T3 = (FiBool) T4;

3670

if (T3) goto L0;

3671

T2 = fiCCall1(FiWord, (*pG_6L1ZC_domainMake), fiClosMake(e0,((*((FiWord (*)())((*pG_6L1ZC_domainMake))->prog->fun))
(((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) (
C60_addLevel0))))

3672

C60_addLevel0))((*((FiWord (*)())((*pG_6L1ZC_domainMake))->prog->fun))
(((*pG_6L1ZC_domainMake))->env,fiClosMakeFun(e0, (FiProg) (
C60_addLevel0))));

3673

T2 = fiCCall3(FiWord, (*pG_PV28S_rtCacheAdd), l1->X4, (FiWord)((*((FiWord (*)())((*pG_PV28S_rtCacheAdd))->prog->fun))
(((*pG_PV28S_rtCacheAdd))->env,l1->X4,(FiWord) T1,T2))

3674

T1, T2)((*((FiWord (*)())((*pG_PV28S_rtCacheAdd))->prog->fun))
(((*pG_PV28S_rtCacheAdd))->env,l1->X4,(FiWord) T1,T2));

3675

L0: return T2;

3676

L3: l1->X4 = fiCCall1(FiWord, (*pG_KAC1B_rtCacheExplicitMake), 15L)((*((FiWord (*)())((*pG_KAC1B_rtCacheExplicitMake))->prog->
fun))(((*pG_KAC1B_rtCacheExplicitMake))->env,15L));

3677

goto L1;

3678

}

3679

3680

static struct _FiProg tmp59_Me = {

3681

(FiFun) CF59_Me,

3682

0L,

3683

0L,

3684

0L,

3685

0L

3686

};

3687

3688

3689

static FiClos

3690

CF60_addLevel0(FiEnv e1, FiWord P0_domain)

3691

{

3692

FiSInt T1, T2;

3693

FiWord T0;

3694

FiEnv e2, e0;

3695

PFmt33 l1;

3696

PFmt34 l2;

3697

e0 = fiEnvPush(fiNil, e1)fiEnvPushFun((FiPtr) (((Ptr) 0)), e1);

3698

l1 = (PFmt33) fiEnvLevel(e1)((FiEnv) (e1)->level);

3699

e2 = fiEnvNext(e1)((FiEnv) (e1)->next);

3700

l2 = (PFmt34) fiEnvLevel(e2)((FiEnv) (e2)->level);

3701

T0 = fiCCall2(FiWord, (*pG_8AMPD_rtSingleParamNameFn), "Me", l1->((*((FiWord (*)())((*pG_8AMPD_rtSingleParamNameFn))->prog->
fun))(((*pG_8AMPD_rtSingleParamNameFn))->env,"Me",l1-> X0_OW
))

3702

X0_OW)((*((FiWord (*)())((*pG_8AMPD_rtSingleParamNameFn))->prog->
fun))(((*pG_8AMPD_rtSingleParamNameFn))->env,"Me",l1-> X0_OW
));

3703

fiCCall2(FiWord, (*pG_CSVBL_domainAddNameFn_BANG_), P0_domain, T0)((*((FiWord (*)())((*pG_CSVBL_domainAddNameFn_BANG_))->prog
->fun))(((*pG_CSVBL_domainAddNameFn_BANG_))->env,P0_domain
,T0));

3704

T2 = fiCCall1(FiSInt, (*pG_LD0B5_domainHash_BANG_), l1->X0_OW)((*((FiSInt (*)())((*pG_LD0B5_domainHash_BANG_))->prog->
fun))(((*pG_LD0B5_domainHash_BANG_))->env,l1->X0_OW));

3705

fiSINT_HASHCOMBINE(T1, FiSInt, T2, 51497348L)((T1) = (FiSInt) fiSIntHashCombine(T2, 51497348L));

3706

fiCCall2(FiWord, (*pG_XS55O_domainAddHash_BANG_), P0_domain, T1)((*((FiWord (*)())((*pG_XS55O_domainAddHash_BANG_))->prog->
fun))(((*pG_XS55O_domainAddHash_BANG_))->env,P0_domain,T1)
);

3707

return fiClosMake(e0, C61_addLevel1)fiClosMakeFun(e0, (FiProg) (C61_addLevel1));

3708

}

3709

3710

static struct _FiProg tmp60_addLevel0 = {

3711

(FiFun) CF60_addLevel0,

3712

0L,

3713

0L,

3714

0L,

3715

0L

3716

};

3717

3718

3719

static FiWord

3720

CF61_addLevel1(FiEnv e1, FiWord P0_domain, FiWord P1_hashcode)

3721

{

3722

FiWord *T0, *T1, *T2, T6, T7;

3723

PFmt8 T3, T4, T5;

3724

PFmt33 l2;

3725

FiEnv e3, e2;

3726

PFmt34 l3;

3727

e2 = fiEnvNext(e1)((FiEnv) (e1)->next);

3728

l2 = (PFmt33) fiEnvLevel(e2)((FiEnv) (e2)->level);

3729

e3 = fiEnvNext(e2)((FiEnv) (e2)->next);

3730

l3 = (PFmt34) fiEnvLevel(e3)((FiEnv) (e3)->level);

3731

fiARRNEW_Word(T0, FiWord*, 0L)((T0) = (FiWord*) fiArrNew_Word(0L));

3732

fiARRNEW_Word(T1, FiWord*, 0L)((T1) = (FiWord*) fiArrNew_Word(0L));

3733

fiARRNEW_Word(T2, FiWord*, 0L)((T2) = (FiWord*) fiArrNew_Word(0L));

3734

T6 = fiCCall1(FiWord, (*pG_IJHFC_domainMakeDispatch), P0_domain)((*((FiWord (*)())((*pG_IJHFC_domainMakeDispatch))->prog->
fun))(((*pG_IJHFC_domainMakeDispatch))->env,P0_domain));

3735

T3 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

3736

T3->X0_size = 0L;

3737

T3->X1_nsize = 0L;

3738

T3->X2_values = (FiWord) T0;

3739

T4 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

3740

T4->X0_size = 0L;

3741

T4->X1_nsize = 0L;

3742

T4->X2_values = (FiWord) T1;

3743

T5 = fi0RecNew(struct Fmt8 , CENSUS_Rec)((struct Fmt8 *) fi0RecAlloc(sizeof(struct Fmt8), ( 5)));

3744

T5->X0_size = 0L;

3745

T5->X1_nsize = 0L;

3746

T5->X2_values = (FiWord) T2;

3747

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)
);

3748

T7 = fiCCall1(FiWord, l3->X2_You, l2->X0_OW)((*((FiWord (*)())(l3->X2_You)->prog->fun))((l3->
X2_You)->env,l2->X0_OW));

3749

fiCCall3(FiWord, (*pG_V9SO_domainAddDefaults), P0_domain, T7, T6)((*((FiWord (*)())((*pG_V9SO_domainAddDefaults))->prog->
fun))(((*pG_V9SO_domainAddDefaults))->env,P0_domain,T7,T6)
);

3750

return P0_domain;

3751

}

3752

3753

static struct _FiProg tmp61_addLevel1 = {

3754

(FiFun) CF61_addLevel1,

3755

0L,

3756

0L,

3757

0L,

3758

0L

3759

};

3760

3761

3762

static FiWord

3763

CF62_is(FiEnv e1, FiWord P0_Tarzan, FiWord P1_Jayne)

3764

{

3765

FiSInt T1;

3766

FiWord T0;

3767

PFmt34 l1;

3768

l1 = (PFmt34) fiEnvLevel(e1)((FiEnv) (e1)->level);

3769

fiEnvEnsure(l1->X2_You->env)fiEnvEnsureFun(l1->X2_You->env);

3770

fiSINT_HASHCOMBINE(T1, FiSInt, fiCCall1(FiSInt, (*((T1) = (FiSInt) fiSIntHashCombine(((*((FiSInt (*)())((* pG_LD0B5_domainHash_BANG_
))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env
,P1_Jayne)), 315577720L))

3771

pG_LD0B5_domainHash_BANG_), P1_Jayne), 315577720L)((T1) = (FiSInt) fiSIntHashCombine(((*((FiSInt (*)())((* pG_LD0B5_domainHash_BANG_
))->prog->fun))(((* pG_LD0B5_domainHash_BANG_))->env
,P1_Jayne)), 315577720L));

3772

T0 = fiCCall1(FiWord, l1->X1_Me, P0_Tarzan)((*((FiWord (*)())(l1->X1_Me)->prog->fun))((l1->X1_Me
)->env,P0_Tarzan));

3773

return (FiWord) fiCCall3(FiBool, (*pG_RSCGM_domainTestExport), T0,((*((FiBool (*)())((*pG_RSCGM_domainTestExport))->prog->
fun))(((*pG_RSCGM_domainTestExport))->env,T0,51482908L,T1)
)

3774

51482908L, T1)((*((FiBool (*)())((*pG_RSCGM_domainTestExport))->prog->
fun))(((*pG_RSCGM_domainTestExport))->env,T0,51482908L,T1)
);

3775

}

3776

3777

static struct _FiProg tmp62_is = {

3778

(FiFun) CF62_is,

3779

0L,

3780

0L,

3781

0L,

3782

0L

3783

};

3784

3785

3786

static FiWord

3787

CF63_lang_MINUS_init(FiEnv e1, FiSInt P0_idx)

3788

{

3789

PFmt36 l1;

3790

l1 = (PFmt36) fiEnvLevel(e1)((FiEnv) (e1)->level);

3791

if (l1->X15) goto L0;

3792

l1->X15 = 1L;

3793

fiCCall0(void, (*pG_8KYHF_lang))((*((void (*)())((*pG_8KYHF_lang))->prog->fun))(((*pG_8KYHF_lang
))->env));

3794

L0: if (P0_idx != 3L) goto L1;

3795

return (FiWord) (*pG_KU40K_lang__Enumeration__79);

3796

L1: if (P0_idx != 2L) goto L2;

3797

return (FiWord) (*pG_VPDBC_lang__Union__79985624);

3798

L2: if (P0_idx != 1L) goto L3;

3799

return (FiWord) (*pG_S6I8I_lang__Type__394624008);

3800

L3: return (FiWord) (*pG_QLPQP_lang__Record__7998562);

3801

}

3802

3803

static struct _FiProg tmp63_lang_MINUS_init = {

3804

(FiFun) CF63_lang_MINUS_init,

3805

0L,

3806

0L,

3807

0L,

3808

0L

3809

};

3810

3811

3812

static FiWord

3813

CF64_tuple_MINUS_init(FiEnv e1, FiSInt P0_idx)

3814

{

3815

PFmt36 l1;

3816

l1 = (PFmt36) fiEnvLevel(e1)((FiEnv) (e1)->level);

3817

if (l1->X16) goto L0;

3818

l1->X16 = 1L;

3819

fiCCall0(void, (*pG_2WB5P_tuple))((*((void (*)())((*pG_2WB5P_tuple))->prog->fun))(((*pG_2WB5P_tuple
))->env));

3820

L0: return (FiWord) (*pG_W005B_tuple__Tuple__2178849);

3821

}

3822

3823

static struct _FiProg tmp64_tuple_MINUS_init = {

3824

(FiFun) CF64_tuple_MINUS_init,

3825

0L,

3826

0L,

3827

0L,

3828

0L

3829

};

3830

3831

3832

static FiWord

3833

CF65_lv_MINUS_init(FiEnv e1, FiSInt P0_idx)

3834

{

3835

PFmt36 l1;

3836

l1 = (PFmt36) fiEnvLevel(e1)((FiEnv) (e1)->level);

3837

if (l1->X17) goto L0;

3838

l1->X17 = 1L;

3839

fiCCall0(void, (*pG_UNXDG_lv))((*((void (*)())((*pG_UNXDG_lv))->prog->fun))(((*pG_UNXDG_lv
))->env));

3840

L0: return (FiWord) (*pG_CO3YC_lv__DomainName__09150);

3841

}

3842

3843

static struct _FiProg tmp65_lv_MINUS_init = {

3844

(FiFun) CF65_lv_MINUS_init,

3845

0L,

3846

0L,

3847

0L,

3848

0L

3849

};

3850

3851

3852

static FiWord

3853

CF66_foamcat_MINUS_init(FiEnv e1, FiSInt P0_idx)

3854

{

3855

PFmt36 l1;

3856

l1 = (PFmt36) fiEnvLevel(e1)((FiEnv) (e1)->level);

3857

if (l1->X18) goto L0;

3858

l1->X18 = 1L;

3859

fiCCall0(void, (*pG_H8TZ5_foamcat))((*((void (*)())((*pG_H8TZ5_foamcat))->prog->fun))(((*pG_H8TZ5_foamcat
))->env));

3860

L0: return (FiWord) (*pG_WJ80M_foamcat__BasicType__9);

3861

}

3862

3863

static struct _FiProg tmp66_foamcat_MINUS_init = {

3864

(FiFun) CF66_foamcat_MINUS_init,

3865

0L,

3866

0L,

3867

0L,

3868

0L

3869

};

3870

3871

extern int

3872

INIT__0_langx()

3873

{

3874

3875

extern int INIT__0_rtexns();

3876

extern int INIT__0_foamcat();

3877

extern int INIT__0_lv();

3878

extern int INIT__0_tuple();

3879

extern int INIT__0_lang();

3880

extern int INIT__0_runtime();

3881

static int initialized = 0;

3882

if (initialized)

3883

return 0L;

3884

else

3885

initialized = 1;

3886

C1_Record = &tmp1_Record;

3887

C2_addLevel0 = &tmp2_addLevel0;

3888

C3_addNameFn = &tmp3_addNameFn;

3889

C4_addLevel1 = &tmp4_addLevel1;

3890

C5__EQ_ = &tmp5__EQ_;

3891

C6__LT__LT_ = &tmp6__LT__LT_;

3892

C7__TILDE__EQ_ = &tmp7__TILDE__EQ_;

3893

C8__LT__LT_ = &tmp8__LT__LT_;

3894

C9__LT__LT_ = &tmp9__LT__LT_;

3895

C10_hash = &tmp10_hash;

3896

C11_case = &tmp11_case;

3897

C12_langx = &tmp12_langx;

3898

C13_extend0 = &tmp13_extend0;

3899

C14_Union = &tmp14_Union;

3900

C15_addLevel0 = &tmp15_addLevel0;

3901

C16_addNameFn = &tmp16_addNameFn;

3902

C17_addLevel1 = &tmp17_addLevel1;

3903

C18__EQ_ = &tmp18__EQ_;

3904

C19__LT__LT_ = &tmp19__LT__LT_;

3905

C20__TILDE__EQ_ = &tmp20__TILDE__EQ_;

3906

C21__LT__LT_ = &tmp21__LT__LT_;

3907

C22__LT__LT_ = &tmp22__LT__LT_;

3908

C23_hash = &tmp23_hash;

3909

C24_case = &tmp24_case;

3910

C25_langx = &tmp25_langx;

3911

C26_extend0 = &tmp26_extend0;

3912

C27_Enumeration = &tmp27_Enumeration;

3913

C28_addLevel0 = &tmp28_addLevel0;

3914

C29_addNameFn = &tmp29_addNameFn;

3915

C30_addLevel1 = &tmp30_addLevel1;

3916

C31__EQ_ = &tmp31__EQ_;

3917

C32__LT__LT_ = &tmp32__LT__LT_;

3918

C33__TILDE__EQ_ = &tmp33__TILDE__EQ_;

3919

C34__LT__LT_ = &tmp34__LT__LT_;

3920

C35__LT__LT_ = &tmp35__LT__LT_;

3921

C36_hash = &tmp36_hash;

3922

C37_case = &tmp37_case;

3923

C38_langx = &tmp38_langx;

3924

C39_extend0 = &tmp39_extend0;

3925

C40_addLevel0 = &tmp40_addLevel0;

3926

C41_addLevel1 = &tmp41_addLevel1;

3927

C42_type = &tmp42_type;

3928

C43_name = &tmp43_name;

3929

C44_args = &tmp44_args;

3930

C45_tuple = &tmp45_tuple;

3931

C46__LT__LT_ = &tmp46__LT__LT_;

3932

C47_new = &tmp47_new;

3933

C48_other = &tmp48_other;

3934

C49_combine = &tmp49_combine;

3935

C50_combine = &tmp50_combine;

3936

C51_noName = &tmp51_noName;

3937

C52_extend0 = &tmp52_extend0;

3938

C53_typeName = &tmp53_typeName;

3939

C54_addLevel0 = &tmp54_addLevel0;

3940

C55_addLevel1 = &tmp55_addLevel1;

3941

C56_You = &tmp56_You;

3942

C57_defhash0 = &tmp57_defhash0;

3943

C58_You = &tmp58_You;

3944

C59_Me = &tmp59_Me;

3945

C60_addLevel0 = &tmp60_addLevel0;

3946

C61_addLevel1 = &tmp61_addLevel1;

3947

C62_is = &tmp62_is;

3948

C63_lang_MINUS_init = &tmp63_lang_MINUS_init;

3949

C64_tuple_MINUS_init = &tmp64_tuple_MINUS_init;

3950

C65_lv_MINUS_init = &tmp65_lv_MINUS_init;

3951

C66_foamcat_MINUS_init = &tmp66_foamcat_MINUS_init;

3952

C0_langx = &tmp0_langx;

3953

fiExportGlobal("G_8NGJ8_langx", G_8NGJ8_langx)fiExportGlobalFun("G_8NGJ8_langx", (Ptr) &G_8NGJ8_langx, sizeof
(G_8NGJ8_langx));

3954

fiExportGlobal("G_UE3X2_langx__Union__08555762",fiExportGlobalFun("G_UE3X2_langx__Union__08555762", (Ptr) &
G_UE3X2_langx__Union__08555762, sizeof(G_UE3X2_langx__Union__08555762
))

3955

G_UE3X2_langx__Union__08555762)fiExportGlobalFun("G_UE3X2_langx__Union__08555762", (Ptr) &
G_UE3X2_langx__Union__08555762, sizeof(G_UE3X2_langx__Union__08555762
));

3956

fiExportGlobal("G_GI7P2_langx__DomainName__361",fiExportGlobalFun("G_GI7P2_langx__DomainName__361", (Ptr) &
G_GI7P2_langx__DomainName__361, sizeof(G_GI7P2_langx__DomainName__361
))

3957

G_GI7P2_langx__DomainName__361)fiExportGlobalFun("G_GI7P2_langx__DomainName__361", (Ptr) &
G_GI7P2_langx__DomainName__361, sizeof(G_GI7P2_langx__DomainName__361
));

3958

fiExportGlobal("G_9VFVN_langx__Record__0855576",fiExportGlobalFun("G_9VFVN_langx__Record__0855576", (Ptr) &
G_9VFVN_langx__Record__0855576, sizeof(G_9VFVN_langx__Record__0855576
))

3959

G_9VFVN_langx__Record__0855576)fiExportGlobalFun("G_9VFVN_langx__Record__0855576", (Ptr) &
G_9VFVN_langx__Record__0855576, sizeof(G_9VFVN_langx__Record__0855576
));

3960

fiExportGlobal("G_BVOVG_langx__Enumeration__08",fiExportGlobalFun("G_BVOVG_langx__Enumeration__08", (Ptr) &
G_BVOVG_langx__Enumeration__08, sizeof(G_BVOVG_langx__Enumeration__08
))

3961

G_BVOVG_langx__Enumeration__08)fiExportGlobalFun("G_BVOVG_langx__Enumeration__08", (Ptr) &
G_BVOVG_langx__Enumeration__08, sizeof(G_BVOVG_langx__Enumeration__08
));

3962

fiExportGlobal("G_QXYZH_langx__IsPackage__1933",fiExportGlobalFun("G_QXYZH_langx__IsPackage__1933", (Ptr) &
G_QXYZH_langx__IsPackage__1933, sizeof(G_QXYZH_langx__IsPackage__1933
))

3963

G_QXYZH_langx__IsPackage__1933)fiExportGlobalFun("G_QXYZH_langx__IsPackage__1933", (Ptr) &
G_QXYZH_langx__IsPackage__1933, sizeof(G_QXYZH_langx__IsPackage__1933
));

3964

fiExportGlobal("G_G681E_langx__typeName__77242",fiExportGlobalFun("G_G681E_langx__typeName__77242", (Ptr) &
G_G681E_langx__typeName__77242, sizeof(G_G681E_langx__typeName__77242
))

3965

G_G681E_langx__typeName__77242)fiExportGlobalFun("G_G681E_langx__typeName__77242", (Ptr) &
G_G681E_langx__typeName__77242, sizeof(G_G681E_langx__typeName__77242
));

3966

fiExportGlobal("G_LVQUZ_langx__Enumeration__79",fiExportGlobalFun("G_LVQUZ_langx__Enumeration__79", (Ptr) &
G_LVQUZ_langx__Enumeration__79, sizeof(G_LVQUZ_langx__Enumeration__79
))

3967

G_LVQUZ_langx__Enumeration__79)fiExportGlobalFun("G_LVQUZ_langx__Enumeration__79", (Ptr) &
G_LVQUZ_langx__Enumeration__79, sizeof(G_LVQUZ_langx__Enumeration__79
));

3968

fiExportGlobal("G_OU7TP_langx__Record__7982382",fiExportGlobalFun("G_OU7TP_langx__Record__7982382", (Ptr) &
G_OU7TP_langx__Record__7982382, sizeof(G_OU7TP_langx__Record__7982382
))

3969

G_OU7TP_langx__Record__7982382)fiExportGlobalFun("G_OU7TP_langx__Record__7982382", (Ptr) &
G_OU7TP_langx__Record__7982382, sizeof(G_OU7TP_langx__Record__7982382
));

3970

fiExportGlobal("G_IJ71Z_langx__DomainName__980",fiExportGlobalFun("G_IJ71Z_langx__DomainName__980", (Ptr) &
G_IJ71Z_langx__DomainName__980, sizeof(G_IJ71Z_langx__DomainName__980
))

3971

G_IJ71Z_langx__DomainName__980)fiExportGlobalFun("G_IJ71Z_langx__DomainName__980", (Ptr) &
G_IJ71Z_langx__DomainName__980, sizeof(G_IJ71Z_langx__DomainName__980
));

3972

fiExportGlobal("G_SEB2U_langx__Union__79823821",fiExportGlobalFun("G_SEB2U_langx__Union__79823821", (Ptr) &
G_SEB2U_langx__Union__79823821, sizeof(G_SEB2U_langx__Union__79823821
))

3973

G_SEB2U_langx__Union__79823821)fiExportGlobalFun("G_SEB2U_langx__Union__79823821", (Ptr) &
G_SEB2U_langx__Union__79823821, sizeof(G_SEB2U_langx__Union__79823821
));

3974

fiImportGlobal("G_NQYQM_noOperation", pG_NQYQM_noOperation)fiImportGlobalFun("G_NQYQM_noOperation", (Ptr *) &pG_NQYQM_noOperation
);

3975

fiImportGlobal("G_XIPRL_runtime", pG_XIPRL_runtime)fiImportGlobalFun("G_XIPRL_runtime", (Ptr *) &pG_XIPRL_runtime
);

3976

fiImportGlobal("G_KAC1B_rtCacheExplicitMake",fiImportGlobalFun("G_KAC1B_rtCacheExplicitMake", (Ptr *) &
pG_KAC1B_rtCacheExplicitMake)

3977

pG_KAC1B_rtCacheExplicitMake)fiImportGlobalFun("G_KAC1B_rtCacheExplicitMake", (Ptr *) &
pG_KAC1B_rtCacheExplicitMake);

3978

fiImportGlobal("G_759EG_rtCacheCheck", pG_759EG_rtCacheCheck)fiImportGlobalFun("G_759EG_rtCacheCheck", (Ptr *) &pG_759EG_rtCacheCheck
);

3979

fiImportGlobal("G_LD0B5_domainHash_BANG_", pG_LD0B5_domainHash_BANG_)fiImportGlobalFun("G_LD0B5_domainHash_BANG_", (Ptr *) &pG_LD0B5_domainHash_BANG_
);

3980

fiImportGlobal("G_FZP76_namePartFrString", pG_FZP76_namePartFrString)fiImportGlobalFun("G_FZP76_namePartFrString", (Ptr *) &pG_FZP76_namePartFrString
);

3981

fiImportGlobal("G_GJ87F_domainName", pG_GJ87F_domainName)fiImportGlobalFun("G_GJ87F_domainName", (Ptr *) &pG_GJ87F_domainName
);

3982

fiImportGlobal("G_9TG1R_namePartConcat", pG_9TG1R_namePartConcat)fiImportGlobalFun("G_9TG1R_namePartConcat", (Ptr *) &pG_9TG1R_namePartConcat
);

3983

fiImportGlobal("G_CSVBL_domainAddNameFn_BANG_",fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) &
pG_CSVBL_domainAddNameFn_BANG_)

3984

pG_CSVBL_domainAddNameFn_BANG_)fiImportGlobalFun("G_CSVBL_domainAddNameFn_BANG_", (Ptr *) &
pG_CSVBL_domainAddNameFn_BANG_);

3985

fiImportGlobal("G_XS55O_domainAddHash_BANG_",fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) &
pG_XS55O_domainAddHash_BANG_)

3986

pG_XS55O_domainAddHash_BANG_)fiImportGlobalFun("G_XS55O_domainAddHash_BANG_", (Ptr *) &
pG_XS55O_domainAddHash_BANG_);

3987

fiImportGlobal("G_PA5R2_domainAddExports_BANG_",fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) &
pG_PA5R2_domainAddExports)

3988

pG_PA5R2_domainAddExports)fiImportGlobalFun("G_PA5R2_domainAddExports_BANG_", (Ptr *) &
pG_PA5R2_domainAddExports);

3989

fiImportGlobal("G_IJHFC_domainMakeDispatch",fiImportGlobalFun("G_IJHFC_domainMakeDispatch", (Ptr *) &
pG_IJHFC_domainMakeDispatch)

3990

pG_IJHFC_domainMakeDispatch)fiImportGlobalFun("G_IJHFC_domainMakeDispatch", (Ptr *) &
pG_IJHFC_domainMakeDispatch);

3991

fiImportGlobal("G_WJ80M_foamcat__BasicType__90",fiImportGlobalFun("G_WJ80M_foamcat__BasicType__90", (Ptr *) &
pG_WJ80M_foamcat__BasicType__9)

3992

pG_WJ80M_foamcat__BasicType__9)fiImportGlobalFun("G_WJ80M_foamcat__BasicType__90", (Ptr *) &
pG_WJ80M_foamcat__BasicType__9);

3993

fiImportGlobal("G_NOX7X_rtLazyCatFrInit", pG_NOX7X_rtLazyCatFrInit)fiImportGlobalFun("G_NOX7X_rtLazyCatFrInit", (Ptr *) &pG_NOX7X_rtLazyCatFrInit
);

3994

fiImportGlobal("G_V9SO_domainAddDefaults_BANG_",fiImportGlobalFun("G_V9SO_domainAddDefaults_BANG_", (Ptr *) &
pG_V9SO_domainAddDefaults)

3995

pG_V9SO_domainAddDefaults)fiImportGlobalFun("G_V9SO_domainAddDefaults_BANG_", (Ptr *) &
pG_V9SO_domainAddDefaults);

3996

fiImportGlobal("G_KK8CX_rtLazyDomFrInit", pG_KK8CX_rtLazyDomFrInit)fiImportGlobalFun("G_KK8CX_rtLazyDomFrInit", (Ptr *) &pG_KK8CX_rtLazyDomFrInit
);

3997

fiImportGlobal("G_QRAZA_rtDelayedGetExport",fiImportGlobalFun("G_QRAZA_rtDelayedGetExport", (Ptr *) &
pG_QRAZA_rtDelayedGetExport)

3998

pG_QRAZA_rtDelayedGetExport)fiImportGlobalFun("G_QRAZA_rtDelayedGetExport", (Ptr *) &
pG_QRAZA_rtDelayedGetExport);

3999

fiImportGlobal("G_ZZZKG_stdGetWordRetWord0",fiImportGlobalFun("G_ZZZKG_stdGetWordRetWord0", (Ptr *) &
pG_ZZZKG_stdGetWordRetWord0)

4000

pG_ZZZKG_stdGetWordRetWord0)fiImportGlobalFun("G_ZZZKG_stdGetWordRetWord0", (Ptr *) &
pG_ZZZKG_stdGetWordRetWord0);

4001

fiImportGlobal("G_DLXW8_stdGetWordWordRetWord0",fiImportGlobalFun("G_DLXW8_stdGetWordWordRetWord0", (Ptr *) &
pG_DLXW8_stdGetWordWordRetWord)

4002

pG_DLXW8_stdGetWordWordRetWord)fiImportGlobalFun("G_DLXW8_stdGetWordWordRetWord0", (Ptr *) &
pG_DLXW8_stdGetWordWordRetWord);

4003

fiImportGlobal("G_6L1ZC_domainMake", pG_6L1ZC_domainMake)fiImportGlobalFun("G_6L1ZC_domainMake", (Ptr *) &pG_6L1ZC_domainMake
);

4004

fiImportGlobal("G_PV28S_rtCacheAdd", pG_PV28S_rtCacheAdd)fiImportGlobalFun("G_PV28S_rtCacheAdd", (Ptr *) &pG_PV28S_rtCacheAdd
);

4005

fiImportGlobal("G_QLPQP_lang__Record__79985624",fiImportGlobalFun("G_QLPQP_lang__Record__79985624", (Ptr *) &
pG_QLPQP_lang__Record__7998562)

4006

pG_QLPQP_lang__Record__7998562)fiImportGlobalFun("G_QLPQP_lang__Record__79985624", (Ptr *) &
pG_QLPQP_lang__Record__7998562);

4007

fiImportGlobal("G_RSHLY_rtDelayedInit_BANG_",fiImportGlobalFun("G_RSHLY_rtDelayedInit_BANG_", (Ptr *) &
pG_RSHLY_rtDelayedInit_BANG_)

4008

pG_RSHLY_rtDelayedInit_BANG_)fiImportGlobalFun("G_RSHLY_rtDelayedInit_BANG_", (Ptr *) &
pG_RSHLY_rtDelayedInit_BANG_);

4009

fiImportGlobal("G_G3BWN_extendFill_BANG_", pG_G3BWN_extendFill_BANG_)fiImportGlobalFun("G_G3BWN_extendFill_BANG_", (Ptr *) &pG_G3BWN_extendFill_BANG_
);

4010

fiImportGlobal("G_FZLG1_extendMake", pG_FZLG1_extendMake)fiImportGlobalFun("G_FZLG1_extendMake", (Ptr *) &pG_FZLG1_extendMake
);

4011

fiImportGlobal("G_S6I8I_lang__Type__394624008",fiImportGlobalFun("G_S6I8I_lang__Type__394624008", (Ptr *) &
pG_S6I8I_lang__Type__394624008)

4012

pG_S6I8I_lang__Type__394624008)fiImportGlobalFun("G_S6I8I_lang__Type__394624008", (Ptr *) &
pG_S6I8I_lang__Type__394624008);

4013

fiImportGlobal("G_W005B_tuple__Tuple__21788495",fiImportGlobalFun("G_W005B_tuple__Tuple__21788495", (Ptr *) &
pG_W005B_tuple__Tuple__2178849)

4014

pG_W005B_tuple__Tuple__2178849)fiImportGlobalFun("G_W005B_tuple__Tuple__21788495", (Ptr *) &
pG_W005B_tuple__Tuple__2178849);

4015

fiImportGlobal("G_RSCGM_domainTestExport_BANG_",fiImportGlobalFun("G_RSCGM_domainTestExport_BANG_", (Ptr *) &
pG_RSCGM_domainTestExport)

4016

pG_RSCGM_domainTestExport)fiImportGlobalFun("G_RSCGM_domainTestExport_BANG_", (Ptr *) &
pG_RSCGM_domainTestExport);

4017

fiImportGlobal("G_VPDBC_lang__Union__799856246",fiImportGlobalFun("G_VPDBC_lang__Union__799856246", (Ptr *) &
pG_VPDBC_lang__Union__79985624)

4018

pG_VPDBC_lang__Union__79985624)fiImportGlobalFun("G_VPDBC_lang__Union__799856246", (Ptr *) &
pG_VPDBC_lang__Union__79985624);

4019

fiImportGlobal("G_X9M4Q_stringHash", pG_X9M4Q_stringHash)fiImportGlobalFun("G_X9M4Q_stringHash", (Ptr *) &pG_X9M4Q_stringHash
);

4020

fiImportGlobal("G_KU40K_lang__Enumeration__799",fiImportGlobalFun("G_KU40K_lang__Enumeration__799", (Ptr *) &
pG_KU40K_lang__Enumeration__79)

4021

pG_KU40K_lang__Enumeration__79)fiImportGlobalFun("G_KU40K_lang__Enumeration__799", (Ptr *) &
pG_KU40K_lang__Enumeration__79);

4022

fiImportGlobal("G_Z2868_rtConstNameFn", pG_Z2868_rtConstNameFn)fiImportGlobalFun("G_Z2868_rtConstNameFn", (Ptr *) &pG_Z2868_rtConstNameFn
);

4023

fiImportGlobal("G_CO3YC_lv__DomainName__091505",fiImportGlobalFun("G_CO3YC_lv__DomainName__091505", (Ptr *) &
pG_CO3YC_lv__DomainName__09150)

4024

pG_CO3YC_lv__DomainName__09150)fiImportGlobalFun("G_CO3YC_lv__DomainName__091505", (Ptr *) &
pG_CO3YC_lv__DomainName__09150);

4025

fiImportGlobal("G_WXLY5_categoryAddExports",fiImportGlobalFun("G_WXLY5_categoryAddExports", (Ptr *) &
pG_WXLY5_categoryAddExports)

4026

pG_WXLY5_categoryAddExports)fiImportGlobalFun("G_WXLY5_categoryAddExports", (Ptr *) &
pG_WXLY5_categoryAddExports);

4027

fiImportGlobal("G_8AMPD_rtSingleParamNameFn",fiImportGlobalFun("G_8AMPD_rtSingleParamNameFn", (Ptr *) &
pG_8AMPD_rtSingleParamNameFn)

4028

pG_8AMPD_rtSingleParamNameFn)fiImportGlobalFun("G_8AMPD_rtSingleParamNameFn", (Ptr *) &
pG_8AMPD_rtSingleParamNameFn);

4029

fiImportGlobal("G_GOVLL_categoryMake", pG_GOVLL_categoryMake)fiImportGlobalFun("G_GOVLL_categoryMake", (Ptr *) &pG_GOVLL_categoryMake
);

4030

fiImportGlobal("G_822GM_rtAddStrings", pG_822GM_rtAddStrings)fiImportGlobalFun("G_822GM_rtAddStrings", (Ptr *) &pG_822GM_rtAddStrings
);

4031

fiImportGlobal("G_8KYHF_lang", pG_8KYHF_lang)fiImportGlobalFun("G_8KYHF_lang", (Ptr *) &pG_8KYHF_lang);

4032

fiImportGlobal("G_2WB5P_tuple", pG_2WB5P_tuple)fiImportGlobalFun("G_2WB5P_tuple", (Ptr *) &pG_2WB5P_tuple
);

4033

fiImportGlobal("G_UNXDG_lv", pG_UNXDG_lv)fiImportGlobalFun("G_UNXDG_lv", (Ptr *) &pG_UNXDG_lv);

4034

fiImportGlobal("G_H8TZ5_foamcat", pG_H8TZ5_foamcat)fiImportGlobalFun("G_H8TZ5_foamcat", (Ptr *) &pG_H8TZ5_foamcat
);

4035

if (fiFileInitializer) {

4036

fiFileInitializer("rtexns");

4037

fiFileInitializer("foamcat");

4038

fiFileInitializer("lv");

4039

fiFileInitializer("tuple");

4040

fiFileInitializer("lang");

4041

fiFileInitializer("runtime");

4042

}

4043

else {

4044

INIT__0_rtexns();

4045

INIT__0_foamcat();

4046

INIT__0_lv();

4047

INIT__0_tuple();

4048

INIT__0_lang();

4049

INIT__0_runtime();

4050

}

4051

/* "---------------------------" */

4052

return 0L;

4053

}

4054

4055

FiClos G_SEB2U_langx__Union__79823821;

4056

FiWord G_IJ71Z_langx__DomainName__980;

4057

FiClos G_OU7TP_langx__Record__7982382;

4058

FiClos G_LVQUZ_langx__Enumeration__79;

4059

FiClos G_G681E_langx__typeName__77242;

4060

FiWord G_QXYZH_langx__IsPackage__1933;

4061

FiClos G_BVOVG_langx__Enumeration__08;

4062

FiClos G_9VFVN_langx__Record__0855576;

4063

FiWord G_GI7P2_langx__DomainName__361;

4064

FiClos G_UE3X2_langx__Union__08555762;

4065

4066

static struct _FiClos tmpClos0_langx = {

4067

0L,

4068

(FiProg) &tmp0_langx

4069

};

4070

FiClos G_8NGJ8_langx = &tmpClos0_langx;

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

Bug Summary

Annotated Source Code