/* c.sf */ /* Generated by #F $Id$ */ #ifdef PROFILE #define host host_module_c #endif #define MODULE module_c #define LOAD() module_7(); module_6(); module_5(); module_4(); module_3(); module_2(); module_1(); module_0(); extern void module_0(void); /* 0.sf */ extern void module_1(void); /* 1.sf */ extern void module_2(void); /* 2.sf */ extern void module_3(void); /* 3.sf */ extern void module_4(void); /* 4.sf */ extern void module_5(void); /* 5.sf */ extern void module_6(void); /* 6.sf */ extern void module_7(void); /* 7.sf */ /* standard includes */ #include #include #include #include /* extra includes */ #include #include #include #include /* standard definitions */ typedef ptrdiff_t obj; /* pointers are this size, lower bit zero */ typedef ptrdiff_t cxoint_t; /* same thing, used as integer */ typedef struct { /* type descriptor */ const char *tname; /* name (debug) */ void (*free)(void*); /* deallocator */ } cxtype_t; #define notobjptr(o) (((char*)(o) - (char*)cxg_heap) & cxg_hmask) #define isobjptr(o) (!notobjptr(o)) #define notaptr(o) ((o) & 1) #define isaptr(o) (!notaptr(o)) #define obj_from_obj(o) (o) #define obj_from_objptr(p) ((obj)(p)) #define obj_from_size(n) (((cxoint_t)(n) << 1) | 1) #define objptr_from_objptr(p) (p) #define objptr_from_obj(o) ((obj*)(o)) #define size_from_obj(o) ((int)((o) >> 1)) #define obj_from_case(n) obj_from_objptr(cases+(n)) #define case_from_obj(o) (objptr_from_obj(o)-cases) #define obj_from_ktrap() obj_from_size(0x5D56F806) #define obj_from_void(v) ((void)(v), obj_from_size(0x6F56DF77)) #define bool_from_obj(o) (o) #define bool_from_bool(b) (b) #define bool_from_size(s) (s) #define void_from_void(v) (void)(v) #define void_from_obj(o) (void)(o) #define rreserve(m) if (r + (m) >= cxg_rend) r = cxm_rgc(r, m) #define hpushptr(p, pt, l) (hreserve(2, l), *--hp = (obj)(p), *--hp = (obj)(pt), (obj)(hp+1)) #define hbsz(s) ((s) + 1) /* 1 extra word to store block size */ #define hreserve(n, l) ((hp < cxg_heap + (n)) ? hp = cxm_hgc(r, r+(l), hp, n) : hp) #define hendblk(n) (*--hp = obj_from_size(n), (obj)(hp+1)) #define hblklen(p) size_from_obj(((obj*)(p))[-1]) #define hblkref(p, i) (((obj*)(p))[i]) typedef obj (*cxhost_t)(obj); typedef struct cxroot_tag { int globc; obj **globv; struct cxroot_tag *next; } cxroot_t; extern obj *cxg_heap; extern obj *cxg_hp; extern cxoint_t cxg_hmask; extern cxroot_t *cxg_rootp; extern obj *cxm_rgc(obj *regs, size_t needs); extern obj *cxm_hgc(obj *regs, obj *regp, obj *hp, size_t needs); extern obj *cxg_regs, *cxg_rend; extern void cxm_check(int x, char *msg); extern void *cxm_cknull(void *p, char *msg); extern int cxg_rc; extern char **cxg_argv; /* extra definitions */ /* basic object representation */ #define isimm(o, t) (((o) & 0xff) == (((t) << 1) | 1)) #ifdef NDEBUG #define getimmu(o, t) (int)(((o) >> 8) & 0xffffff) #define getimms(o, t) (int)(((((o) >> 8) & 0xffffff) ^ 0x800000) - 0x800000) #else extern int getimmu(obj o, int t); extern int getimms(obj o, int t); #endif #define mkimm(o, t) (obj)((((o) & 0xffffff) << 8) | ((t) << 1) | 1) #ifdef NDEBUG static int isnative(obj o, cxtype_t *tp) { return isobjptr(o) && objptr_from_obj(o)[-1] == (obj)tp; } #define getnative(o, t) ((void*)(*objptr_from_obj(o))) #else extern int isnative(obj o, cxtype_t *tp); extern void *getnative(obj o, cxtype_t *tp); #endif extern int istagged(obj o, int t); #ifdef NDEBUG #define cktagged(o, t) (o) #define taggedlen(o, t) (hblklen(o)-1) #define taggedref(o, t, i) (&hblkref(o, (i)+1)) #else extern obj cktagged(obj o, int t); extern int taggedlen(obj o, int t); extern obj* taggedref(obj o, int t, int i); #endif /* booleans */ #define TRUE_ITAG 0 typedef int bool_t; #define is_bool_obj(o) (!((o) & ~(obj)1)) #define is_bool_bool(b) ((void)(b), 1) #define void_from_bool(b) (void)(b) #define obj_from_bool(b) ((b) ? mkimm(0, TRUE_ITAG) : 0) /* fixnums */ #define FIXNUM_ITAG 1 typedef int fixnum_t; #define is_fixnum_obj(o) (isimm(o, FIXNUM_ITAG)) #define is_fixnum_fixnum(i) ((void)(i), 1) #define fixnum_from_obj(o) (getimms(o, FIXNUM_ITAG)) #define fixnum_from_fixnum(i) (i) #define void_from_fixnum(i) (void)(i) #define obj_from_fixnum(i) mkimm(i, FIXNUM_ITAG) #define FIXNUM_MIN -8388608 #define FIXNUM_MAX 8388607 /* flonums */ extern cxtype_t *FLONUM_NTAG; typedef double flonum_t; #define is_flonum_obj(o) (isnative(o, FLONUM_NTAG)) #define is_flonum_flonum(f) ((void)(f), 1) #define flonum_from_obj(o) (*(flonum_t*)getnative(o, FLONUM_NTAG)) #define flonum_from_flonum(l, f) (f) #define void_from_flonum(l, f) (void)(f) #define obj_from_flonum(l, f) hpushptr(dupflonum(f), FLONUM_NTAG, l) extern flonum_t *dupflonum(flonum_t f); /* characters */ #define CHAR_ITAG 2 typedef int char_t; #define is_char_obj(o) (isimm(o, CHAR_ITAG)) #define is_char_char(i) ((i), 1) #define char_from_obj(o) (getimms(o, CHAR_ITAG)) #define char_from_char(i) (i) #define void_from_char(i) (void)(i) #define obj_from_char(i) mkimm(i, CHAR_ITAG) /* strings */ extern cxtype_t *STRING_NTAG; #define isstring(o) (isnative(o, STRING_NTAG)) #define stringdata(o) ((int*)getnative(o, STRING_NTAG)) #define stringlen(o) (*stringdata(o)) #define stringchars(o) ((char*)(stringdata(o)+1)) #define hpushstr(l, s) hpushptr(s, STRING_NTAG, l) #ifdef NDEBUG #define stringref(o, i) (stringchars(o)+(i)) #else extern char* stringref(obj o, int i); #endif extern int *newstring(char *s); extern int *allocstring(int n, int c); extern int *substring(int *d, int from, int to); extern int *stringcat(int *d0, int *d1); extern int *dupstring(int *d); extern void stringfill(int *d, int c); extern int strcmp_ci(char *s1, char*s2); /* vectors */ #define VECTOR_BTAG 1 #define isvector(o) istagged(o, VECTOR_BTAG) #define vectorref(v, i) *taggedref(v, VECTOR_BTAG, i) #define vectorlen(v) taggedlen(v, VECTOR_BTAG) /* boxes */ #define BOX_BTAG 2 #define isbox(o) istagged(o, BOX_BTAG) #define boxref(o) *taggedref(o, BOX_BTAG, 0) /* null */ #define NULL_ITAG 3 #define mknull() mkimm(0, NULL_ITAG) #define isnull(o) ((o) == mkimm(0, NULL_ITAG)) /* pairs and lists */ #define PAIR_BTAG 3 #define ispair(o) istagged(o, PAIR_BTAG) #define car(o) *taggedref(o, PAIR_BTAG, 0) #define cdr(o) *taggedref(o, PAIR_BTAG, 1) extern int islist(obj l); /* symbols */ #define SYMBOL_ITAG 4 #define issymbol(o) (isimm(o, SYMBOL_ITAG)) #define mksymbol(i) mkimm(i, SYMBOL_ITAG) #define getsymbol(o) getimmu(o, SYMBOL_ITAG) extern char *symbolname(int sym); extern int internsym(char *name); /* eof */ #define EOF_ITAG 127 #define mkeof() mkimm(-1, EOF_ITAG) #define iseof(o) ((o) == mkimm(-1, EOF_ITAG)) /* input ports */ extern cxtype_t *IPORT_NTAG; #define isiport(o) (isnative(o, IPORT_NTAG)) #define iportdata(o) ((FILE*)getnative(o, IPORT_NTAG)) #define mkiport(l, fp) hpushptr(fp, IPORT_NTAG, l) /* output ports */ extern cxtype_t *OPORT_NTAG; #define isoport(o) (isnative(o, OPORT_NTAG)) #define oportdata(o) ((FILE*)getnative(o, OPORT_NTAG)) #define mkoport(l, fp) hpushptr(fp, OPORT_NTAG, l) extern int iseqv(obj x, obj y); extern obj ismemv(obj x, obj l); extern obj isassv(obj x, obj l); extern int isequal(obj x, obj y); extern obj ismember(obj x, obj l); extern obj isassoc(obj x, obj l); /* cx globals */ extern obj cx__2Acurrent_2Derror_2Dport_2A; /* *current-error-port* */ extern obj cx__2Acurrent_2Dinput_2Dport_2A; /* *current-input-port* */ extern obj cx__2Acurrent_2Doutput_2Dport_2A; /* *current-output-port* */ extern obj cx_analyze_2Dglobals; /* analyze-globals */ extern obj cx_beta_2Dsubstitute; /* beta-substitute */ extern obj cx_box_2Dexp_3F; /* box-exp? */ extern obj cx_boxref_2Dexp_3F; /* boxref-exp? */ extern obj cx_boxset_2Dexp_3F; /* boxset-exp? */ extern obj cx_c_2Derror_2A; /* c-error* */ extern obj cx_c_2Dmangle; /* c-mangle */ extern obj cx_code_2Dgenerate; /* code-generate */ extern obj cx_code_2Dhost_2Depilogue; /* code-host-epilogue */ extern obj cx_code_2Dhost_2Dprologue; /* code-host-prologue */ extern obj cx_code_2Dmain; /* code-main */ extern obj cx_code_2Dmodule; /* code-module */ extern obj cx_code_2Druntime; /* code-runtime */ extern obj cx_code_2Dstandard_2Ddefinitions; /* code-standard-definitions */ extern obj cx_code_2Dstandard_2Dincludes; /* code-standard-includes */ extern obj cx_constant_2Dfold; /* constant-fold */ extern obj cx_cps_2Dconvert; /* cps-convert */ extern obj cx_display_2Dtext; /* display-text */ extern obj cx_exp_2D_3Efree_2Dvars; /* exp->free-vars */ extern obj cx_exp_2Dvinfo; /* exp-vinfo */ extern obj cx_expand_2Dtop_2Dlevel_2Dforms_21; /* expand-top-level-forms! */ extern obj cx_file_2Dexpand_2Dtop_2Dlevel_2Dforms_21; /* file-expand-top-level-forms! */ extern obj cx_fix_2Dletrecs; /* fix-letrecs */ extern obj cx_fprintf_2A; /* fprintf* */ extern obj cx_id_2D_3Euname; /* id->uname */ extern obj cx_labelapp_2Dexp_3F; /* labelapp-exp? */ extern obj cx_lambda_2Dlift; /* lambda-lift */ extern obj cx_letrec_2A_2Dexp_2D_3Ebody; /* letrec*-exp->body */ extern obj cx_letrec_2A_2Dexp_2D_3Erands; /* letrec*-exp->rands */ extern obj cx_letrec_2A_2Dexp_3F; /* letrec*-exp? */ extern obj cx_letrec_2Dexp_3F; /* letrec-exp? */ extern obj cx_null_2Dmstore; /* null-mstore */ extern obj cx_parse_2Dprogram; /* parse-program */ extern obj cx_path_2Dstrip_2Ddirectory; /* path-strip-directory */ extern obj cx_path_2Dstrip_2Dextension; /* path-strip-extension */ extern obj cx_read_2F1; /* read/1 */ extern obj cx_remove_2Dassignments; /* remove-assignments */ extern obj cx_reset; /* reset */ extern obj cx_reset_2Dtimestamps; /* reset-timestamps */ extern obj cx_sexp_2Dmatch_3F; /* sexp-match? */ extern obj cx_stack_2Dfunctions_2Dcode_2Dgenerate; /* stack-functions-code-generate */ extern obj cx_unbox_2Dvalues; /* unbox-values */ extern obj cx_var_2Dreferenced_2Din_2Dexp_3F; /* var-referenced-in-exp? */ extern obj cx_var_2Duses_2Din_2Dexp; /* var-uses-in-exp */ extern obj cx_with_2Doutput_2Dto_2Dfile; /* with-output-to-file */ extern obj cx_write_2F3; /* write/3 */ obj cx__2Ashowlog_2A; /* *showlog* */ obj cx__2Asilent_2A; /* *silent* */ obj cx__2Awarnings_2A; /* *warnings* */ obj cx_call_2Dwith_2Dinput_2Dfile_2F_2D; /* call-with-input-file/- */ obj cx_clear_2Dmemoizations; /* clear-memoizations */ obj cx_compile_2Dfile; /* compile-file */ obj cx_display_2Dmodule; /* display-module */ obj cx_main; /* main */ obj cx_maybe_2Dlog; /* maybe-log */ obj cx_maybe_2Dpp_2Dsource; /* maybe-pp-source */ obj cx_maybe_2Dpp_2Dtext; /* maybe-pp-text */ obj cx_parse_2Dfile; /* parse-file */ obj cx_source; /* source */ static obj cx__231014; /* constant #1014 */ static obj cx__231031; /* constant #1031 */ static obj cx__231037; /* constant #1037 */ static obj cx__231045; /* constant #1045 */ static obj cx__231069; /* constant #1069 */ static obj cx__231077; /* constant #1077 */ static obj cx__231082; /* constant #1082 */ static obj cx__231090; /* constant #1090 */ static obj cx__231098; /* constant #1098 */ static obj cx__231111; /* constant #1111 */ static obj cx__231114; /* constant #1114 */ static obj cx__231164; /* constant #1164 */ static obj cx__231177; /* constant #1177 */ static obj cx__231184; /* constant #1184 */ static obj cx__231187; /* constant #1187 */ static obj cx__231194; /* constant #1194 */ static obj cx__231197; /* constant #1197 */ static obj cx__231200; /* constant #1200 */ static obj cx__231207; /* constant #1207 */ static obj cx__231238; /* constant #1238 */ static obj cx__231329; /* constant #1329 */ static obj cx__231340; /* constant #1340 */ static obj cx__231344; /* constant #1344 */ static obj cx__231347; /* constant #1347 */ static obj cx__231348; /* constant #1348 */ static obj cx__231352; /* constant #1352 */ static obj cx__231353; /* constant #1353 */ static obj cx__231357; /* constant #1357 */ static obj cx__231358; /* constant #1358 */ static obj cx__231362; /* constant #1362 */ static obj cx__231363; /* constant #1363 */ static obj cx__231367; /* constant #1367 */ static obj cx__231368; /* constant #1368 */ static obj cx__231372; /* constant #1372 */ static obj cx__231373; /* constant #1373 */ static obj cx__231377; /* constant #1377 */ static obj cx__231378; /* constant #1378 */ static obj cx__231382; /* constant #1382 */ static obj cx__231384; /* constant #1384 */ static obj cx__231386; /* constant #1386 */ static obj cx__231390; /* constant #1390 */ static obj cx__231391; /* constant #1391 */ static obj cx__231395; /* constant #1395 */ static obj cx__231396; /* constant #1396 */ static obj cx__231400; /* constant #1400 */ static obj cx__231401; /* constant #1401 */ static obj cx__231422; /* constant #1422 */ static obj cx__231424; /* constant #1424 */ static obj cx__231429; /* constant #1429 */ static obj cx__231432; /* constant #1432 */ static obj cx__231433; /* constant #1433 */ static obj cx__231434; /* constant #1434 */ static obj cx__231445; /* constant #1445 */ static obj cx__231448; /* constant #1448 */ static obj cx__231459; /* constant #1459 */ static obj cx__231463; /* constant #1463 */ static obj cx__231464; /* constant #1464 */ static obj cx__231468; /* constant #1468 */ static obj cx__231534; /* constant #1534 */ static obj cx__231535; /* constant #1535 */ static obj cx__231545; /* constant #1545 */ static obj cx__231549; /* constant #1549 */ static obj cx__231555; /* constant #1555 */ static obj cx__231564; /* constant #1564 */ static obj cx__231570; /* constant #1570 */ static obj cx__231576; /* constant #1576 */ static obj cx__231582; /* constant #1582 */ static obj cx__2316; /* constant #16 */ static obj cx__2317; /* constant #17 */ static obj cx__23250; /* constant #250 */ static obj cx__23593; /* constant #593 */ static obj cx__23596; /* constant #596 */ static obj cx__23598; /* constant #598 */ static obj cx__23602; /* constant #602 */ static obj cx__23882; /* constant #882 */ static obj cx__23911; /* constant #911 */ static obj cx__23941; /* constant #941 */ static obj cx__23947; /* constant #947 */ static obj cx__23955; /* constant #955 */ static obj cx__23960; /* constant #960 */ static obj cx__23965; /* constant #965 */ static obj cx__23973; /* constant #973 */ static obj cx__23978; /* constant #978 */ static obj cx__23995; /* constant #995 */ static obj cx_begin_2Dexp_3F_2358; /* constant begin-exp?#58 */ static obj cx_curry_2Dexp_3F_23481; /* constant curry-exp?#481 */ static obj cx_setdiffq_231214; /* constant setdiffq#1214 */ /* helper functions */ /* let-exp?#88 */ static obj cxs_let_2Dexp_3F_2388(obj v90_exp) { if (bool_from_obj((isvector((v90_exp))) ? (((vectorlen((v90_exp))) == (+3)) ? obj_from_bool((vectorref((v90_exp), (+0))) == (mksymbol(internsym("app-exp")))) : obj_from_bool(0)) : obj_from_bool(0))) { { /* let */ obj v94_rator = (vectorref((v90_exp), (+1))); if (bool_from_obj((isvector((v94_rator))) ? (((vectorlen((v94_rator))) == (+3)) ? obj_from_bool((vectorref((v94_rator), (+0))) == (mksymbol(internsym("lambda-exp")))) : obj_from_bool(0)) : obj_from_bool(0))) { { /* let */ obj v1777_tmp; obj v1776_tmp; { /* length */ int n; obj l = (vectorref((v90_exp), (+2))); for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v1777_tmp = obj_from_fixnum(n); }; { /* length */ int n; obj l = (vectorref((v94_rator), (+1))); for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v1776_tmp = obj_from_fixnum(n); }; return obj_from_bool(fixnum_from_obj(v1776_tmp) == fixnum_from_obj(v1777_tmp)); } } else { return obj_from_bool(0); } } } else { return obj_from_bool(0); } } /* degenerate-let-exp->body#125 */ static obj cxs_degenerate_2Dlet_2Dexp_2D_3Ebody_23125(obj v127_exp) { return ((isnull((vectorref((v127_exp), (+2))))) ? (vectorref((vectorref((v127_exp), (+1))), (+2))) : (car((vectorref((v127_exp), (+2)))))); } /* null-let-exp?#151 */ static obj cxs_null_2Dlet_2Dexp_3F_23151(obj v153_exp) { if (bool_from_obj((isvector((v153_exp))) ? (((vectorlen((v153_exp))) == (+3)) ? obj_from_bool((vectorref((v153_exp), (+0))) == (mksymbol(internsym("app-exp")))) : obj_from_bool(0)) : obj_from_bool(0))) { if ((isnull((vectorref((v153_exp), (+2)))))) { { /* let */ obj v157_rator = (vectorref((v153_exp), (+1))); return (bool_from_obj((isvector((v157_rator))) ? (((vectorlen((v157_rator))) == (+3)) ? obj_from_bool((vectorref((v157_rator), (+0))) == (mksymbol(internsym("lambda-exp")))) : obj_from_bool(0)) : obj_from_bool(0)) ? obj_from_bool(isnull((vectorref((v157_rator), (+1))))) : obj_from_bool(0)); } } else { return obj_from_bool(0); } } else { return obj_from_bool(0); } } /* identity-lambda-exp?#197 */ static obj cxs_identity_2Dlambda_2Dexp_3F_23197(obj v199_exp) { if (bool_from_obj((isvector((v199_exp))) ? (((vectorlen((v199_exp))) == (+3)) ? obj_from_bool((vectorref((v199_exp), (+0))) == (mksymbol(internsym("lambda-exp")))) : obj_from_bool(0)) : obj_from_bool(0))) { { /* let */ obj v206_body = (vectorref((v199_exp), (+2))); obj v207_ids = (vectorref((v199_exp), (+1))); return ((ispair((v207_ids))) ? ((isnull((cdr((v207_ids))))) ? (bool_from_obj((isvector((v206_body))) ? (((vectorlen((v206_body))) == (+2)) ? obj_from_bool((vectorref((v206_body), (+0))) == (mksymbol(internsym("var-exp")))) : obj_from_bool(0)) : obj_from_bool(0)) ? obj_from_bool((car((v207_ids))) == (vectorref((v206_body), (+1)))) : obj_from_bool(0)) : obj_from_bool(0)) : obj_from_bool(0)); } } else { return obj_from_bool(0); } } /* identity-let-exp?#184 */ static obj cxs_identity_2Dlet_2Dexp_3F_23184(obj v186_exp) { if (bool_from_obj((isvector((v186_exp))) ? (((vectorlen((v186_exp))) == (+3)) ? obj_from_bool((vectorref((v186_exp), (+0))) == (mksymbol(internsym("app-exp")))) : obj_from_bool(0)) : obj_from_bool(0))) { if (bool_from_obj(cxs_identity_2Dlambda_2Dexp_3F_23197((vectorref((v186_exp), (+1)))))) { { /* let */ obj v190_rands = (vectorref((v186_exp), (+2))); return ((ispair((v190_rands))) ? obj_from_bool(isnull((cdr((v190_rands))))) : obj_from_bool(0)); } } else { return obj_from_bool(0); } } else { return obj_from_bool(0); } } /* degenerate-let-exp?#148 */ static obj cxs_degenerate_2Dlet_2Dexp_3F_23148(obj v150_exp) { { /* let */ obj v183_x = (cxs_null_2Dlet_2Dexp_3F_23151((v150_exp))); return (bool_from_obj(v183_x) ? (v183_x) : (cxs_identity_2Dlet_2Dexp_3F_23184((v150_exp)))); } } /* void-exp?#879 */ static obj cxs_void_2Dexp_3F_23879(obj v881_exp) { return (bool_from_obj((isvector((v881_exp))) ? (((vectorlen((v881_exp))) == (+4)) ? obj_from_bool((vectorref((v881_exp), (+0))) == (mksymbol(internsym("primapp-exp")))) : obj_from_bool(0)) : obj_from_bool(0)) ? obj_from_bool(isequal((vectorref((v881_exp), (+2))), (cx__23882))) : obj_from_bool(0)); } /* gc roots */ static obj *globv[] = { &cx__2Ashowlog_2A, &cx__2Asilent_2A, &cx__2Awarnings_2A, &cx__231014, &cx__231031, &cx__231037, &cx__231045, &cx__231069, &cx__231077, &cx__231082, &cx__231090, &cx__231098, &cx__231111, &cx__231114, &cx__231164, &cx__231177, &cx__231184, &cx__231187, &cx__231194, &cx__231197, &cx__231200, &cx__231207, &cx__231238, &cx__231329, &cx__231340, &cx__231344, &cx__231347, &cx__231348, &cx__231352, &cx__231353, &cx__231357, &cx__231358, &cx__231362, &cx__231363, &cx__231367, &cx__231368, &cx__231372, &cx__231373, &cx__231377, &cx__231378, &cx__231382, &cx__231384, &cx__231386, &cx__231390, &cx__231391, &cx__231395, &cx__231396, &cx__231400, &cx__231401, &cx__231422, &cx__231424, &cx__231429, &cx__231432, &cx__231433, &cx__231434, &cx__231445, &cx__231448, &cx__231459, &cx__231463, &cx__231464, &cx__231468, &cx__231534, &cx__231535, &cx__231545, &cx__231549, &cx__231555, &cx__231564, &cx__231570, &cx__231576, &cx__231582, &cx__2316, &cx__2317, &cx__23250, &cx__23593, &cx__23596, &cx__23598, &cx__23602, &cx__23882, &cx__23911, &cx__23941, &cx__23947, &cx__23955, &cx__23960, &cx__23965, &cx__23973, &cx__23978, &cx__23995, }; static cxroot_t root = { sizeof(globv)/sizeof(obj *), globv, NULL }; /* entry points */ static obj host(obj); static obj cases[240] = { (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, }; /* host procedure */ #define MAX_HOSTREGS 56 static obj host(obj pc) { register obj *r = cxg_regs; register obj *hp = cxg_hp; register int rc = cxg_rc; rreserve(MAX_HOSTREGS); jump: switch (case_from_obj(pc)) { case 0: /* load module */ { static char s[] = { 58, 10, 0 }; cx__2316 = (hpushstr(0, newstring(s))); } cx__2317 = (hpushstr(0, newstring("-------------------------- "))); { static obj c[] = { obj_from_case(1) }; cx_begin_2Dexp_3F_2358 = (obj)c; } cx__23250 = (hpushstr(0, newstring("unknown exp"))); { static obj c[] = { obj_from_case(3) }; cx_curry_2Dexp_3F_23481 = (obj)c; } { static char s[] = { 46, 10, 0 }; cx__23593 = (hpushstr(0, newstring(s))); } cx__23596 = (hpushstr(0, newstring("no clause matches ~s"))); cx__23598 = (hpushstr(0, newstring("Error: "))); cx__23602 = (hpushstr(0, newstring("Error in ~a: "))); cx__23882 = (hpushstr(0, newstring("void(0)"))); cx__23911 = (hpushstr(0, newstring("-"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym(""))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("%definition"))); *--hp = obj_from_size(PAIR_BTAG); cx__23941 = (hendblk(3)); } { static char s[] = { 34, 10, 0 }; cx__23947 = (hpushstr(0, newstring(s))); } { static char s[] = { 35, 105, 110, 99, 108, 117, 100, 101, 32, 34, 0 }; cx__23955 = (hpushstr(0, newstring(s))); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym(""))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("%include"))); *--hp = obj_from_size(PAIR_BTAG); cx__23960 = (hendblk(3)); } { static char s[] = { 10, 0 }; cx__23965 = (hpushstr(0, newstring(s))); } cx__23973 = (hpushstr(0, newstring("#include "))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym(""))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("%include"))); *--hp = obj_from_size(PAIR_BTAG); cx__23978 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("*"))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("*"))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("define"))); *--hp = obj_from_size(PAIR_BTAG); cx__23995 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym(""))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("load"))); *--hp = obj_from_size(PAIR_BTAG); cx__231014 = (hendblk(3)); } cx__231031 = (hpushstr(0, newstring(" visiting ~a~%"))); cx__231037 = (hpushstr(0, newstring(" already visited: ~a~%"))); cx__231045 = (hpushstr(0, newstring("module_"))); { static char s[] = { 32, 42, 47, 10, 0 }; cx__231069 = (hpushstr(0, newstring(s))); } cx__231077 = (hpushstr(0, newstring("(void); /* "))); cx__231082 = (hpushstr(0, newstring("extern void "))); cx__231090 = (hpushstr(0, newstring("load should precede definitions and expressions"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym(""))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("%localdef"))); *--hp = obj_from_size(PAIR_BTAG); cx__231098 = (hendblk(3)); } cx__231111 = (hpushstr(0, newstring("%% section(s) should precede definitions and expressions"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mksymbol(internsym("*"))); *--hp = (mksymbol(internsym("%%"))); *--hp = obj_from_size(PAIR_BTAG); cx__231114 = (hendblk(3)); } cx__231164 = (hpushstr(0, newstring("(); "))); cx__231177 = (hpushstr(0, newstring("#define LOAD() "))); cx__231184 = (hpushstr(0, newstring("#define MODULE "))); { static char s[] = { 35, 101, 110, 100, 105, 102, 10, 0 }; cx__231187 = (hpushstr(0, newstring(s))); } cx__231194 = (hpushstr(0, newstring("#define host host_"))); { static char s[] = { 35, 105, 102, 100, 101, 102, 32, 80, 82, 79, 70, 73, 76, 69, 10, 0 }; cx__231197 = (hpushstr(0, newstring(s))); } { static char s[] = { 47, 42, 32, 71, 101, 110, 101, 114, 97, 116, 101, 100, 32, 98, 121, 32, 35, 70, 32, 36, 73, 100, 36, 32, 42, 47, 10, 0 }; cx__231200 = (hpushstr(0, newstring(s))); } cx__231207 = (hpushstr(0, newstring("/* "))); { static obj c[] = { obj_from_case(5) }; cx_setdiffq_231214 = (obj)c; } cx__231238 = (hpushstr(0, newstring(" warning: blind reference to ~a~%"))); cx__231329 = (hpushstr(0, newstring(".c"))); { static char s[] = { 32, 119, 114, 10, 0 }; cx__231340 = (hpushstr(0, newstring(s))); } cx__231344 = (hpushstr(0, newstring("C CODE"))); cx__231347 = (hpushstr(0, newstring(" cg"))); cx__231348 = (hpushstr(0, newstring("EXP AFTER VALUE UNBOXING"))); cx__231352 = (hpushstr(0, newstring(" uv"))); cx__231353 = (hpushstr(0, newstring("EXP AFTER LABEL CONVERSION"))); cx__231357 = (hpushstr(0, newstring(" b3"))); cx__231358 = (hpushstr(0, newstring("EXP AFTER LAMBDA LIFTING"))); cx__231362 = (hpushstr(0, newstring(" ll"))); cx__231363 = (hpushstr(0, newstring("EXP AFTER POST-CPS BETA"))); cx__231367 = (hpushstr(0, newstring(" b2"))); cx__231368 = (hpushstr(0, newstring("EXP AFTER CPS-CONVERSION"))); cx__231372 = (hpushstr(0, newstring(" cps"))); cx__231373 = (hpushstr(0, newstring("EXP AFTER BETA-SUBSTITUTION"))); cx__231377 = (hpushstr(0, newstring(" b1"))); cx__231378 = (hpushstr(0, newstring("EXP AFTER CONSTANT-FOLDING"))); cx__231382 = (hpushstr(0, newstring(" cf"))); cx__231384 = (hpushstr(0, newstring(" scg"))); cx__231386 = (hpushstr(0, newstring("EXP ANALYSIS OF GLOBALS"))); cx__231390 = (hpushstr(0, newstring(" ag"))); cx__231391 = (hpushstr(0, newstring("EXP AFTER BOXING"))); cx__231395 = (hpushstr(0, newstring(" ra"))); cx__231396 = (hpushstr(0, newstring("EXP AFTER LETREC FIXING"))); cx__231400 = (hpushstr(0, newstring(" fl"))); cx__231401 = (hpushstr(0, newstring("EXP"))); { static char s[] = { 10, 47, 42, 32, 111, 115, 32, 101, 110, 116, 114, 121, 32, 112, 111, 105, 110, 116, 32, 42, 47, 0 }; cx__231422 = (hpushstr(0, newstring(s))); } { static char s[] = { 10, 47, 42, 32, 98, 97, 115, 105, 99, 32, 114, 117, 110, 116, 105, 109, 101, 32, 42, 47, 0 }; cx__231424 = (hpushstr(0, newstring(s))); } { static char s[] = { 10, 47, 42, 32, 109, 111, 100, 117, 108, 101, 32, 108, 111, 97, 100, 32, 42, 47, 0 }; cx__231429 = (hpushstr(0, newstring(s))); } { static char s[] = { 10, 47, 42, 32, 104, 111, 115, 116, 32, 112, 114, 111, 99, 101, 100, 117, 114, 101, 32, 42, 47, 10, 0 }; cx__231432 = (hpushstr(0, newstring(s))); } { static char s[] = { 47, 42, 32, 101, 110, 116, 114, 121, 32, 112, 111, 105, 110, 116, 115, 32, 42, 47, 10, 0 }; cx__231433 = (hpushstr(0, newstring(s))); } { static char s[] = { 47, 42, 32, 103, 99, 32, 114, 111, 111, 116, 115, 32, 42, 47, 10, 0 }; cx__231434 = (hpushstr(0, newstring(s))); } { static char s[] = { 47, 42, 32, 104, 101, 108, 112, 101, 114, 32, 102, 117, 110, 99, 116, 105, 111, 110, 115, 32, 42, 47, 10, 0 }; cx__231445 = (hpushstr(0, newstring(s))); } { static char s[] = { 10, 47, 42, 32, 99, 120, 32, 103, 108, 111, 98, 97, 108, 115, 32, 42, 47, 10, 0 }; cx__231448 = (hpushstr(0, newstring(s))); } { static char s[] = { 10, 47, 42, 32, 101, 120, 116, 114, 97, 32, 100, 101, 102, 105, 110, 105, 116, 105, 111, 110, 115, 32, 42, 47, 10, 0 }; cx__231459 = (hpushstr(0, newstring(s))); } { static char s[] = { 10, 47, 42, 32, 115, 116, 97, 110, 100, 97, 114, 100, 32, 100, 101, 102, 105, 110, 105, 116, 105, 111, 110, 115, 32, 42, 47, 10, 0 }; cx__231463 = (hpushstr(0, newstring(s))); } { static char s[] = { 47, 42, 32, 101, 120, 116, 114, 97, 32, 105, 110, 99, 108, 117, 100, 101, 115, 32, 42, 47, 10, 0 }; cx__231464 = (hpushstr(0, newstring(s))); } { static char s[] = { 10, 47, 42, 32, 115, 116, 97, 110, 100, 97, 114, 100, 32, 105, 110, 99, 108, 117, 100, 101, 115, 32, 42, 47, 10, 0 }; cx__231468 = (hpushstr(0, newstring(s))); } cx__231534 = (hpushstr(0, newstring("Usage: sfc [-vWd] file ...~%"))); { static char s[] = { 115, 102, 99, 32, 98, 117, 105, 108, 100, 32, 36, 73, 100, 36, 126, 37, 0 }; cx__231535 = (hpushstr(0, newstring(s))); } cx__231545 = (hpushstr(0, newstring(" writing ~a~%"))); cx__231549 = (hpushstr(0, newstring("compiling ~a:~%"))); cx__231555 = (hpushstr(0, newstring("cannot open input file ~a~%"))); cx__231564 = (hpushstr(0, newstring("--help"))); cx__231570 = (hpushstr(0, newstring("-d"))); cx__231576 = (hpushstr(0, newstring("-W"))); cx__231582 = (hpushstr(0, newstring("-v"))); { static obj c[] = { obj_from_case(7) }; cx_clear_2Dmemoizations = (obj)c; } cx__2Asilent_2A = obj_from_bool(1); cx__2Ashowlog_2A = obj_from_bool(0); cx__2Awarnings_2A = obj_from_bool(0); { static obj c[] = { obj_from_case(10) }; cx_maybe_2Dpp_2Dsource = (obj)c; } { static obj c[] = { obj_from_case(15) }; cx_maybe_2Dpp_2Dtext = (obj)c; } { static obj c[] = { obj_from_case(19) }; cx_maybe_2Dlog = (obj)c; } { static obj c[] = { obj_from_case(21) }; cx_source = (obj)c; } { static obj c[] = { obj_from_case(95) }; cx_call_2Dwith_2Dinput_2Dfile_2F_2D = (obj)c; } { static obj c[] = { obj_from_case(97) }; cx_parse_2Dfile = (obj)c; } { static obj c[] = { obj_from_case(140) }; cx_compile_2Dfile = (obj)c; } { static obj c[] = { obj_from_case(194) }; cx_display_2Dmodule = (obj)c; } { static obj c[] = { obj_from_case(229) }; cx_main = (obj)c; } r[0] = obj_from_void(0); r[1+0] = r[0]; pc = 0; /* exit from module init */ r[1+1] = r[0]; r += 1; /* shift reg wnd */ rc = 2; goto jump; case 1: /* begin-exp?#58 k exp */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_begin_2Dexp_3F_2358: /* k exp */ if (bool_from_obj(cxs_let_2Dexp_3F_2388((r[1])))) { r[2] = (vectorref((r[1]), (+1))); r[2] = (vectorref((r[2]), (+1))); r[3] = (vectorref((r[1]), (+1))); r[3] = (vectorref((r[3]), (+2))); if ((ispair((r[2])))) { r[4] = (cdr((r[2]))); r[4] = obj_from_bool(isnull((r[4]))); if (bool_from_obj(r[4])) { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = obj_from_case(2); r[4] = (hendblk(1+1)); r[5+0] = (cx_var_2Dreferenced_2Din_2Dexp_3F); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = (car((r[2]))); r[5+3] = r[3]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } else { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = obj_from_bool(0); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 2: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ r[3+0] = r[2]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); r[3+2] = obj_from_bool(!bool_from_obj(r[1])); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 3: /* curry-exp?#481 k exp */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_curry_2Dexp_3F_23481: /* k exp */ if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+3))) { r[2] = (vectorref((r[1]), (+0))); r[2] = obj_from_bool((r[2]) == (mksymbol(internsym("lambda-exp")))); } else { r[2] = obj_from_bool(0); } } else { r[2] = obj_from_bool(0); } if (bool_from_obj(r[2])) { r[2] = (vectorref((r[1]), (+1))); r[3] = (vectorref((r[1]), (+2))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[0]; *--hp = r[2]; *--hp = obj_from_case(4); r[4] = (hendblk(3+1)); r[5+0] = (cx_labelapp_2Dexp_3F); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[3]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = obj_from_bool(0); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 4: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r ids k body */ if (bool_from_obj(r[1])) { r[5] = (vectorref((r[4]), (+2))); r[0] = r[3]; r[1] = r[2]; r[2] = r[5]; goto s_loop; } else { r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } s_loop: /* k ids rands */ if ((isnull((r[1])))) { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); r[3+2] = obj_from_bool(isnull((r[1]))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if ((ispair((r[2])))) { r[3] = (car((r[2]))); if ((isvector((r[3])))) { if (((vectorlen((r[3]))) == (+2))) { r[4] = (vectorref((r[3]), (+0))); r[3] = obj_from_bool((r[4]) == (mksymbol(internsym("var-exp")))); } else { r[3] = obj_from_bool(0); } } else { r[3] = obj_from_bool(0); } if (bool_from_obj(r[3])) { r[3] = (car((r[2]))); r[3] = (vectorref((r[3]), (+1))); r[4] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (r[4])); if (bool_from_obj(r[3])) { r[3] = (cdr((r[1]))); r[4] = (cdr((r[2]))); /* r[0] */ r[1] = r[3]; r[2] = r[4]; goto s_loop; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } case 5: /* setdiffq#1214 k s1 s2 */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_setdiffq_231214: s_setdiffq: /* k s1 s2 */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[3] = (car((r[1]))); { /* memq */ obj x = (r[3]), l = r[2]; for (; l != mknull(); l = cdr(l)) if (car(l) == x) break; r[3] = (l == mknull() ? obj_from_bool(0) : l); } if (bool_from_obj(r[3])) { r[3] = (cdr((r[1]))); /* r[0] */ r[1] = r[3]; /* r[2] */ goto s_setdiffq; } else { r[3] = (cdr((r[1]))); hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(6); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_setdiffq; } } case 6: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k s1 */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[1]; *--hp = (car((r[3]))); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 7: /* clear-memoizations k */ assert(rc == 2); r += 1; /* shift reg. wnd */ gs_clear_2Dmemoizations: /* k */ hreserve(hbsz(1+1), 1); /* 1 live regs */ *--hp = r[0]; *--hp = obj_from_case(8); r[1] = (hendblk(1+1)); r[2+0] = (cx_exp_2Dvinfo); pc = objptr_from_obj(r[2+0])[0]; r[2+1] = r[1]; r[2+2] = obj_from_bool(0); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 8: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek . k */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(9); r[3] = (hendblk(1+1)); r[4+0] = (cx_var_2Duses_2Din_2Dexp); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = obj_from_bool(0); r[4+3] = obj_from_bool(0); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 9: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek . k */ r[0] = (cx_exp_2D_3Efree_2Dvars); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 10: /* maybe-pp-source k msg exp */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_maybe_2Dpp_2Dsource: /* k msg exp */ if ((!bool_from_obj(cx__2Asilent_2A))) { r[3] = (cx__2Acurrent_2Derror_2Dport_2A); hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(11); r[4] = (hendblk(4+1)); r[5+0] = (cx_write_2F3); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = (cx__2317); r[5+3] = obj_from_bool(1); r[5+4] = r[3]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 11: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek . msg exp ep k */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(12); r[6] = (hendblk(3+1)); r[0] = (cx_write_2F3); pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; /* r[2] */ r[3] = obj_from_bool(1); /* r[4] */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 12: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . exp ep k */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(13); r[5] = (hendblk(3+1)); r[6+0] = (cx_write_2F3); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[5]; r[6+2] = (cx__2316); r[6+3] = obj_from_bool(1); r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 13: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . exp ep k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(14); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[2]; goto gs_source; case 14: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r ep k */ r[4+0] = (cx_write_2F3); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = r[1]; r[4+3] = obj_from_bool(0); r[4+4] = r[2]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 15: /* maybe-pp-text k msg text */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_maybe_2Dpp_2Dtext: /* k msg text */ if ((!bool_from_obj(cx__2Asilent_2A))) { r[3] = (cx__2Acurrent_2Derror_2Dport_2A); hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_case(16); r[4] = (hendblk(4+1)); r[5+0] = (cx_write_2F3); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = (cx__2317); r[5+3] = obj_from_bool(1); r[5+4] = r[3]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 16: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek . msg ep text k */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(17); r[6] = (hendblk(3+1)); r[7+0] = (cx_write_2F3); pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[6]; r[7+2] = r[2]; r[7+3] = obj_from_bool(1); r[7+4] = r[3]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 17: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . ep text k */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(18); r[5] = (hendblk(3+1)); r[6+0] = (cx_write_2F3); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[5]; r[6+2] = (cx__2316); r[6+3] = obj_from_bool(1); r[6+4] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 18: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . ep text k */ r[5+0] = (cx_display_2Dtext); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[3]; r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 19: /* maybe-log k msg */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_maybe_2Dlog: /* k msg */ if (bool_from_obj(cx__2Ashowlog_2A)) { r[2] = (cx__2Acurrent_2Derror_2Dport_2A); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = obj_from_case(20); r[3] = (hendblk(2+1)); r[4+0] = (cx_write_2F3); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = r[1]; r[4+3] = obj_from_bool(1); r[4+4] = r[2]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = obj_from_void(0); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 20: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k ep */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(fflush(oportdata((r[3])))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 21: /* source k exp */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_source: /* k exp */ if (bool_from_obj(cxs_void_2Dexp_3F_23879((r[1])))) { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (mksymbol(internsym("%%void"))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+2))) { r[2] = (vectorref((r[1]), (+0))); r[2] = obj_from_bool((r[2]) == (mksymbol(internsym("var-exp")))); } else { r[2] = obj_from_bool(0); } } else { r[2] = obj_from_bool(0); } if (bool_from_obj(r[2])) { r[2] = (vectorref((r[1]), (+1))); r[3+0] = (cx_id_2D_3Euname); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; r[3+2] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+3))) { r[2] = (vectorref((r[1]), (+0))); r[2] = obj_from_bool((r[2]) == (mksymbol(internsym("varassign-exp")))); } else { r[2] = obj_from_bool(0); } } else { r[2] = obj_from_bool(0); } if (bool_from_obj(r[2])) { r[2] = (vectorref((r[1]), (+1))); r[3] = (vectorref((r[1]), (+2))); hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = obj_from_case(22); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = r[3]; goto gs_source; } else { if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+4))) { r[2] = (vectorref((r[1]), (+0))); r[2] = obj_from_bool((r[2]) == (mksymbol(internsym("if-exp")))); } else { r[2] = obj_from_bool(0); } } else { r[2] = obj_from_bool(0); } if (bool_from_obj(r[2])) { r[2] = (vectorref((r[1]), (+1))); r[3] = (vectorref((r[1]), (+2))); r[4] = (vectorref((r[1]), (+3))); hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_case(24); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[4]; goto gs_source; } else { if (bool_from_obj(cxs_degenerate_2Dlet_2Dexp_3F_23148((r[1])))) { /* r[0] */ r[1] = (cxs_degenerate_2Dlet_2Dexp_2D_3Ebody_23125((r[1]))); goto gs_source; } else { hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(90); r[2] = (hendblk(0+1)); hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = r[2]; *--hp = obj_from_case(27); r[2] = (hendblk(3+1)); r[3+0] = (cx_letrec_2Dexp_3F); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[2]; r[3+2] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } } } } case 22: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r id k */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(23); r[5] = (hendblk(2+1)); r[0] = (cx_id_2D_3Euname); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 23: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = (mksymbol(internsym("set!"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 24: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r then-exp test-exp k */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(25); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[2]; goto gs_source; case 25: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r test-exp k r */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[3]; *--hp = obj_from_case(26); r[6] = (hendblk(2+1)); r[0] = r[6]; r[1] = r[2]; goto gs_source; case 26: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = (mksymbol(internsym("if"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 27: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r source-body k exp */ if (bool_from_obj(r[1])) { r[5] = (vectorref((r[4]), (+1))); r[5] = (vectorref((r[5]), (+1))); r[6] = (vectorref((r[4]), (+1))); r[6] = (vectorref((r[6]), (+2))); r[7] = (vectorref((r[6]), (+2))); r[6] = (car((r[7]))); r[6] = (vectorref((r[6]), (+2))); r[7] = (vectorref((r[4]), (+1))); r[7] = (vectorref((r[7]), (+2))); r[8] = (vectorref((r[7]), (+1))); r[7] = (vectorref((r[8]), (+2))); hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[3]; *--hp = r[5]; *--hp = r[6]; *--hp = obj_from_case(28); r[8] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; r[2] = r[7]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(33); r[5] = (hendblk(3+1)); r[0] = (cx_letrec_2A_2Dexp_3F); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 28: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r rands ids k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(32); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto s_loop_v4367; s_loop_v4367: /* k id id */ if (((isnull((r[1]))) || (isnull((r[2]))))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[3] = (cdr((r[1]))); r[4] = (cdr((r[2]))); hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = r[0]; *--hp = obj_from_case(29); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[3]; r[2] = r[4]; goto s_loop_v4367; } case 29: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r k id id */ r[5] = (car((r[4]))); r[6] = (car((r[3]))); hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = r[5]; *--hp = obj_from_case(30); r[7] = (hendblk(3+1)); r[0] = r[7]; r[1] = r[6]; goto gs_source; case 30: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r id k r */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(31); r[6] = (hendblk(3+1)); r[0] = (cx_id_2D_3Euname); pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 31: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r k r r */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[3]; *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 32: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* list* */ obj p; hreserve(hbsz(3)*3, 4); /* 4 live regs */ p = r[3]; /* gc-safe */ *--hp = p; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); p = hendblk(3); *--hp = p; *--hp = (mksymbol(internsym("letrec"))); *--hp = obj_from_size(PAIR_BTAG); p = hendblk(3); r[4] = (p); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 33: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r source-body k exp */ if (bool_from_obj(r[1])) { hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(34); r[5] = (hendblk(3+1)); r[0] = (cx_letrec_2A_2Dexp_2D_3Ebody); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(41); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[4]; goto gs_begin_2Dexp_3F_2358; } case 34: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r source-body k exp */ hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(35); r[5] = (hendblk(4+1)); r[0] = (cx_letrec_2A_2Dexp_2D_3Erands); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 35: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r source-body r k exp */ r[6] = (vectorref((r[5]), (+1))); r[6] = (vectorref((r[6]), (+1))); hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[4]; *--hp = r[6]; *--hp = r[1]; *--hp = obj_from_case(36); r[7] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; r[2] = r[3]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 36: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r r ids k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(40); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto s_loop_v4318; s_loop_v4318: /* k id id */ if (((isnull((r[1]))) || (isnull((r[2]))))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[3] = (cdr((r[1]))); r[4] = (cdr((r[2]))); hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = r[0]; *--hp = obj_from_case(37); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[3]; r[2] = r[4]; goto s_loop_v4318; } case 37: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r k id id */ r[5] = (car((r[4]))); r[6] = (car((r[3]))); hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = r[5]; *--hp = obj_from_case(38); r[7] = (hendblk(3+1)); r[0] = r[7]; r[1] = r[6]; goto gs_source; case 38: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r id k r */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(39); r[6] = (hendblk(3+1)); r[0] = (cx_id_2D_3Euname); pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 39: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r k r r */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[3]; *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 40: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* list* */ obj p; hreserve(hbsz(3)*3, 4); /* 4 live regs */ p = r[3]; /* gc-safe */ *--hp = p; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); p = hendblk(3); *--hp = p; *--hp = (mksymbol(internsym("letrec*"))); *--hp = obj_from_size(PAIR_BTAG); p = hendblk(3); r[4] = (p); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 41: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r source-body k exp */ if (bool_from_obj(r[1])) { r[5] = (vectorref((r[4]), (+2))); r[5] = (car((r[5]))); r[6] = (vectorref((r[4]), (+1))); r[6] = (vectorref((r[6]), (+2))); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[5]; *--hp = obj_from_case(42); r[7] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if (bool_from_obj(cxs_let_2Dexp_3F_2388((r[4])))) { r[5] = (vectorref((r[4]), (+1))); r[5] = (vectorref((r[5]), (+1))); r[6] = (vectorref((r[4]), (+2))); r[7] = (vectorref((r[4]), (+1))); r[7] = (vectorref((r[7]), (+2))); hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[3]; *--hp = r[5]; *--hp = r[6]; *--hp = obj_from_case(44); r[8] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; r[2] = r[7]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if ((isvector((r[4])))) { if (((vectorlen((r[4]))) == (+4))) { r[5] = (vectorref((r[4]), (+0))); r[5] = obj_from_bool((r[5]) == (mksymbol(internsym("fix-exp")))); } else { r[5] = obj_from_bool(0); } } else { r[5] = obj_from_bool(0); } if (bool_from_obj(r[5])) { r[5] = (vectorref((r[4]), (+1))); r[6] = (vectorref((r[4]), (+2))); r[7] = (vectorref((r[4]), (+3))); hreserve(hbsz(4+1), 8); /* 8 live regs */ *--hp = r[3]; *--hp = r[5]; *--hp = r[6]; *--hp = r[2]; *--hp = obj_from_case(49); r[8] = (hendblk(4+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; r[2] = r[7]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if ((isvector((r[4])))) { if (((vectorlen((r[4]))) == (+3))) { r[5] = (vectorref((r[4]), (+0))); r[5] = obj_from_bool((r[5]) == (mksymbol(internsym("app-exp")))); } else { r[5] = obj_from_bool(0); } } else { r[5] = obj_from_bool(0); } if (bool_from_obj(r[5])) { r[5] = (vectorref((r[4]), (+1))); r[6] = (vectorref((r[4]), (+2))); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[5]; *--hp = obj_from_case(62); r[7] = (hendblk(2+1)); r[0] = r[7]; r[1] = r[6]; goto s_loop_v4158; } else { hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(64); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[4]; goto gs_curry_2Dexp_3F_23481; } } } } case 42: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r exp1 k */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(43); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = r[2]; goto gs_source; case 43: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* list* */ obj p; hreserve(hbsz(3)*3, 4); /* 4 live regs */ p = r[3]; /* gc-safe */ *--hp = p; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); p = hendblk(3); *--hp = p; *--hp = (mksymbol(internsym("begin"))); *--hp = obj_from_size(PAIR_BTAG); p = hendblk(3); r[4] = (p); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 44: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r rands ids k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(48); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto s_loop_v4261; s_loop_v4261: /* k id id */ if (((isnull((r[1]))) || (isnull((r[2]))))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[3] = (cdr((r[1]))); r[4] = (cdr((r[2]))); hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = r[0]; *--hp = obj_from_case(45); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[3]; r[2] = r[4]; goto s_loop_v4261; } case 45: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r k id id */ r[5] = (car((r[4]))); r[6] = (car((r[3]))); hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = r[5]; *--hp = obj_from_case(46); r[7] = (hendblk(3+1)); r[0] = r[7]; r[1] = r[6]; goto gs_source; case 46: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r id k r */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(47); r[6] = (hendblk(3+1)); r[0] = (cx_id_2D_3Euname); pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 47: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r k r r */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[3]; *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 48: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* list* */ obj p; hreserve(hbsz(3)*3, 4); /* 4 live regs */ p = r[3]; /* gc-safe */ *--hp = p; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); p = hendblk(3); *--hp = p; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); p = hendblk(3); r[4] = (p); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 49: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r source-body lams ids k */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[5]; *--hp = obj_from_case(59); r[6] = (hendblk(2+1)); r[7+0] = r[6]; r[7+1] = r[4]; r[7+2] = r[3]; r[7+3] = r[2]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v4183; s_loop_v4183: /* k id id source-body */ if (((isnull((r[1]))) || (isnull((r[2]))))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[4] = (cdr((r[1]))); r[5] = (cdr((r[2]))); hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = r[0]; *--hp = r[3]; *--hp = obj_from_case(50); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[4]; r[2] = r[5]; /* r[3] */ goto s_loop_v4183; } case 50: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r source-body k id id */ r[6] = (car((r[5]))); r[7] = (car((r[4]))); hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(51); r[8] = (hendblk(2+1)); if ((isvector((r[7])))) { if (((vectorlen((r[7]))) == (+3))) { r[9] = (vectorref((r[7]), (+0))); r[9] = obj_from_bool((r[9]) == (mksymbol(internsym("lambda-exp")))); } else { r[9] = obj_from_bool(0); } } else { r[9] = obj_from_bool(0); } if (bool_from_obj(r[9])) { r[9] = (vectorref((r[7]), (+1))); r[10] = (vectorref((r[7]), (+2))); hreserve(hbsz(3+1), 11); /* 11 live regs */ *--hp = r[8]; *--hp = r[6]; *--hp = r[9]; *--hp = obj_from_case(52); r[11] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = (r[11]); r[2] = (r[10]); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[9] = (cx__2Acurrent_2Derror_2Dport_2A); (void)(fputc('\n', oportdata((r[9])))); hreserve(hbsz(3+1), 10); /* 10 live regs */ *--hp = r[8]; *--hp = r[9]; *--hp = r[7]; *--hp = obj_from_case(56); r[10] = (hendblk(3+1)); if (bool_from_obj(mksymbol(internsym("variant-case")))) { { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("variant-case"))); *--hp = obj_from_size(PAIR_BTAG); r[11] = (hendblk(3)); } r[0] = (cx_fprintf_2A); pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); r[2] = r[9]; r[3] = (cx__23602); r[4] = (r[11]); rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { r[0] = (cx_write_2F3); pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); r[2] = (cx__23598); r[3] = obj_from_bool(1); r[4] = r[9]; rreserve(MAX_HOSTREGS); rc = 5; goto jump; } } case 51: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 52: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r ids id k */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(55); r[6] = (hendblk(2+1)); r[0] = r[6]; r[1] = r[5]; goto s_loop_v4212; s_loop_v4212: /* k id */ if ((isnull((r[1])))) { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (mknull()); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[2] = (cdr((r[1]))); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(53); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v4212; } case 53: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r id k */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(54); r[4] = (hendblk(2+1)); r[0] = (cx_id_2D_3Euname); pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = (car((r[2]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 54: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 55: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* list* */ obj p; hreserve(hbsz(3)*3, 4); /* 4 live regs */ p = r[3]; /* gc-safe */ *--hp = p; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); p = hendblk(3); *--hp = p; *--hp = (mksymbol(internsym("define"))); *--hp = obj_from_size(PAIR_BTAG); p = hendblk(3); r[4] = (p); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 56: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . lam ep k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(57); r[5] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[7+0] = (cx_fprintf_2A); pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[5]; r[7+2] = r[3]; r[7+3] = (cx__23596); r[7+4] = r[6]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 57: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . ep k */ hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_case(58); r[4] = (hendblk(1+1)); r[5+0] = (cx_write_2F3); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = (cx__23593); r[5+3] = obj_from_bool(1); r[5+4] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 58: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek . k */ r[0] = (cx_reset); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; rreserve(MAX_HOSTREGS); rc = 2; goto jump; case 59: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { fixnum_t v4577_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v4577_tmp = (n); } { /* append */ obj t, l, o, *p, *d; int c = (v4577_tmp); hreserve(hbsz(3)*c, 4); /* 4 live regs */ l = r[1]; t = r[3]; /* gc-safe */ o = t; p = &o; for (; l != mknull(); l = cdr(l)) { *--hp = t; d = hp; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); *p = hendblk(3); p = d; } r[4] = (o); } } { /* list* */ obj p; hreserve(hbsz(3)*3, 5); /* 5 live regs */ p = r[4]; /* gc-safe */ *--hp = p; *--hp = (mknull()); *--hp = obj_from_size(PAIR_BTAG); p = hendblk(3); *--hp = p; *--hp = (mksymbol(internsym("let"))); *--hp = obj_from_size(PAIR_BTAG); p = hendblk(3); r[5] = (p); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; s_loop_v4158: /* k id */ if ((isnull((r[1])))) { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (mknull()); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[2] = (cdr((r[1]))); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(60); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v4158; } case 60: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r id k */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(61); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (car((r[2]))); goto gs_source; case 61: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 62: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r rator k */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(63); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = r[2]; goto gs_source; case 63: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 64: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r source-body k exp */ if (bool_from_obj(r[1])) { r[5] = (vectorref((r[4]), (+2))); r[5] = (vectorref((r[5]), (+1))); r[5] = (vectorref((r[5]), (+1))); r[6] = (vectorref((r[4]), (+1))); { fixnum_t v4576_tmp; r[7] = (vectorref((r[4]), (+2))); r[7] = (vectorref((r[7]), (+2))); r[8] = (vectorref((r[4]), (+1))); { /* length */ int n; obj l = r[8]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v4576_tmp = (n); } { /* list-tail */ obj l = r[7]; int c = (v4576_tmp); while (c-- > 0) l = cdr(l); r[7] = (l); } } hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[3]; *--hp = r[5]; *--hp = r[6]; *--hp = obj_from_case(67); r[8] = (hendblk(3+1)); r[0] = r[8]; r[1] = r[7]; goto s_loop_v4125; } else { if ((isvector((r[4])))) { if (((vectorlen((r[4]))) == (+3))) { r[5] = (vectorref((r[4]), (+0))); r[5] = obj_from_bool((r[5]) == (mksymbol(internsym("lambda-exp")))); } else { r[5] = obj_from_bool(0); } } else { r[5] = obj_from_bool(0); } if (bool_from_obj(r[5])) { r[5] = (vectorref((r[4]), (+1))); r[6] = (vectorref((r[4]), (+2))); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[5]; *--hp = obj_from_case(72); r[7] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(76); r[5] = (hendblk(3+1)); r[0] = (cx_box_2Dexp_3F); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } s_loop_v4125: /* k id */ if ((isnull((r[1])))) { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (mknull()); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[2] = (cdr((r[1]))); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(65); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v4125; } case 65: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r id k */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(66); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (car((r[2]))); goto gs_source; case 66: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 67: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r ids id k */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(70); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[2]; goto s_loop_v4104; s_loop_v4104: /* k id */ if ((isnull((r[1])))) { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (mknull()); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[2] = (cdr((r[1]))); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(68); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v4104; } case 68: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r id k */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(69); r[4] = (hendblk(2+1)); r[0] = (cx_id_2D_3Euname); pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = (car((r[2]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 69: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 70: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r id k r */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(71); r[5] = (hendblk(3+1)); r[0] = (cx_id_2D_3Euname); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 71: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r k r r */ { /* list* */ obj p; hreserve(hbsz(3)*4, 5); /* 5 live regs */ p = r[3]; /* gc-safe */ *--hp = p; *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); p = hendblk(3); *--hp = p; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); p = hendblk(3); *--hp = p; *--hp = (mksymbol(internsym("%%curry"))); *--hp = obj_from_size(PAIR_BTAG); p = hendblk(3); r[5] = (p); } r[6+0] = r[2]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = obj_from_ktrap(); r[6+2] = r[5]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 72: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r ids k */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(75); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = r[2]; goto s_loop_v4069; s_loop_v4069: /* k id */ if ((isnull((r[1])))) { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (mknull()); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[2] = (cdr((r[1]))); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(73); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v4069; } case 73: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r id k */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(74); r[4] = (hendblk(2+1)); r[0] = (cx_id_2D_3Euname); pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = (car((r[2]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 74: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 75: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* list* */ obj p; hreserve(hbsz(3)*3, 4); /* 4 live regs */ p = r[3]; /* gc-safe */ *--hp = p; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); p = hendblk(3); *--hp = p; *--hp = (mksymbol(internsym("lambda"))); *--hp = obj_from_size(PAIR_BTAG); p = hendblk(3); r[4] = (p); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 76: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r source-body k exp */ if (bool_from_obj(r[1])) { r[5] = (vectorref((r[4]), (+3))); r[5] = (car((r[5]))); hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[3]; *--hp = obj_from_case(77); r[6] = (hendblk(1+1)); r[0] = r[6]; r[1] = r[5]; goto gs_source; } else { hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(78); r[5] = (hendblk(3+1)); r[0] = (cx_boxref_2Dexp_3F); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 77: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = (mksymbol(internsym("%%box"))); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 78: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r source-body k exp */ if (bool_from_obj(r[1])) { r[5] = (vectorref((r[4]), (+3))); r[5] = (car((r[5]))); hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[3]; *--hp = obj_from_case(79); r[6] = (hendblk(1+1)); r[0] = r[6]; r[1] = r[5]; goto gs_source; } else { hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(80); r[5] = (hendblk(3+1)); r[0] = (cx_boxset_2Dexp_3F); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 79: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = (mksymbol(internsym("%%box-ref"))); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 80: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r source-body k exp */ if (bool_from_obj(r[1])) { r[5] = (vectorref((r[4]), (+3))); r[5] = (car((r[5]))); r[6] = (vectorref((r[4]), (+3))); r[7] = (cdr((r[6]))); r[6] = (car((r[7]))); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[5]; *--hp = obj_from_case(81); r[7] = (hendblk(2+1)); r[0] = r[7]; r[1] = r[6]; goto gs_source; } else { if ((isvector((r[4])))) { if (((vectorlen((r[4]))) == (+4))) { r[5] = (vectorref((r[4]), (+0))); r[5] = obj_from_bool((r[5]) == (mksymbol(internsym("primapp-exp")))); } else { r[5] = obj_from_bool(0); } } else { r[5] = obj_from_bool(0); } if (bool_from_obj(r[5])) { r[5] = (vectorref((r[4]), (+1))); r[6] = (vectorref((r[4]), (+2))); r[7] = (vectorref((r[4]), (+3))); hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[5]; *--hp = r[6]; *--hp = r[3]; *--hp = obj_from_case(85); r[8] = (hendblk(3+1)); r[0] = r[8]; r[1] = r[7]; goto s_loop_v4008; } else { if ((isvector((r[4])))) { if (((vectorlen((r[4]))) == (+3))) { r[5] = (vectorref((r[4]), (+0))); r[5] = obj_from_bool((r[5]) == (mksymbol(internsym("letcc-exp")))); } else { r[5] = obj_from_bool(0); } } else { r[5] = obj_from_bool(0); } if (bool_from_obj(r[5])) { r[5] = (vectorref((r[4]), (+1))); r[6] = (vectorref((r[4]), (+2))); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[5]; *--hp = obj_from_case(86); r[7] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if ((isvector((r[4])))) { if (((vectorlen((r[4]))) == (+3))) { r[5] = (vectorref((r[4]), (+0))); r[5] = obj_from_bool((r[5]) == (mksymbol(internsym("withcc-exp")))); } else { r[5] = obj_from_bool(0); } } else { r[5] = obj_from_bool(0); } if (bool_from_obj(r[5])) { r[5] = (vectorref((r[4]), (+1))); r[6] = (vectorref((r[4]), (+2))); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[5]; *--hp = obj_from_case(88); r[7] = (hendblk(2+1)); r[0] = r[7]; r[1] = r[6]; goto gs_source; } else { { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[0] = (cx_c_2Derror_2A); pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; r[2] = (cx__23250); r[3] = r[5]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } } } } case 81: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r box k */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(82); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[2]; goto gs_source; case 82: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = (mksymbol(internsym("%%box-set!"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; s_loop_v4008: /* k id */ if ((isnull((r[1])))) { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (mknull()); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[2] = (cdr((r[1]))); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(83); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v4008; } case 83: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r id k */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(84); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (car((r[2]))); goto gs_source; case 84: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 85: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r k prim effect */ { /* list* */ obj p; hreserve(hbsz(3)*3, 5); /* 5 live regs */ p = r[1]; /* gc-safe */ *--hp = p; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); p = hendblk(3); *--hp = p; *--hp = ((((r[4]) == (mksymbol(internsym("no-effect")))) && (1)) ? (mksymbol(internsym("%prim"))) : ((((r[4]) == (mksymbol(internsym("*-effect")))) && (1)) ? (mksymbol(internsym("%prim*"))) : ((((r[4]) == (mksymbol(internsym("?-effect")))) && (1)) ? (mksymbol(internsym("%prim?"))) : ((((r[4]) == (mksymbol(internsym("!-effect")))) && (1)) ? (mksymbol(internsym("%prim!"))) : ((((r[4]) == (mksymbol(internsym("?!-effect")))) && (1)) ? (mksymbol(internsym("%prim?!"))) : ((((r[4]) == (mksymbol(internsym("*?-effect")))) && (1)) ? (mksymbol(internsym("%prim*?"))) : ((((r[4]) == (mksymbol(internsym("*!-effect")))) && (1)) ? (mksymbol(internsym("%prim*!"))) : (mksymbol(internsym("%prim*?!")))))))))); *--hp = obj_from_size(PAIR_BTAG); p = hendblk(3); r[5] = (p); } r[6+0] = r[2]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = obj_from_ktrap(); r[6+2] = r[5]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 86: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r id k */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(87); r[4] = (hendblk(2+1)); r[0] = (cx_id_2D_3Euname); pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 87: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* list* */ obj p; hreserve(hbsz(3)*3, 4); /* 4 live regs */ p = r[3]; /* gc-safe */ *--hp = p; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); p = hendblk(3); *--hp = p; *--hp = (mksymbol(internsym("letcc"))); *--hp = obj_from_size(PAIR_BTAG); p = hendblk(3); r[4] = (p); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 88: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r cont-exp k */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(89); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[2]; goto gs_source; case 89: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = (mksymbol(internsym("withcc"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 90: /* clo k exp */ assert(rc == 3); r += 1; /* shift reg. wnd */ s_source_2Dbody: /* k exp */ hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(90); r[2] = (hendblk(0+1)); if (bool_from_obj(cxs_degenerate_2Dlet_2Dexp_3F_23148((r[1])))) { r[3] = (cxs_degenerate_2Dlet_2Dexp_2D_3Ebody_23125((r[1]))); /* r[0] */ r[1] = r[3]; goto s_source_2Dbody; } else { hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = r[2]; *--hp = obj_from_case(91); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ goto gs_begin_2Dexp_3F_2358; } case 91: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r source-body k exp */ if (bool_from_obj(r[1])) { r[5] = (vectorref((r[4]), (+2))); r[5] = (car((r[5]))); r[6] = (vectorref((r[4]), (+1))); r[6] = (vectorref((r[6]), (+2))); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[5]; *--hp = obj_from_case(92); r[7] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = obj_from_case(94); r[5] = (hendblk(1+1)); r[0] = r[5]; r[1] = r[4]; goto gs_source; } case 92: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r exp1 k */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(93); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = r[2]; goto gs_source; case 93: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 94: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 95: /* call-with-input-file/- k filename proc */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_call_2Dwith_2Dinput_2Dfile_2F_2D: /* k filename proc */ if ((strcmp(stringchars((r[1])), stringchars((cx__23911))) == 0)) { r[3+0] = r[2]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; r[3+2] = (cx__2Acurrent_2Dinput_2Dport_2A); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[3] = (mkiport(3, cxm_cknull(fopen(stringchars((r[1])), "r"), "fopen"))); hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[0]; *--hp = obj_from_case(96); r[4] = (hendblk(2+1)); r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[3]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 96: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k p */ (void)(fclose(iportdata((r[3])))); r[4] = r[1]; r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 97: /* parse-file k filename */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_parse_2Dfile: /* k filename */ hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(98); r[2] = (hendblk(0+1)); hreserve(hbsz(1), 3); /* 3 live regs */ *--hp = obj_from_void(0); r[3] = (hendblk(1)); hreserve(hbsz(1), 4); /* 4 live regs */ *--hp = obj_from_void(0); r[4] = (hendblk(1)); hreserve(hbsz(1), 5); /* 5 live regs */ *--hp = obj_from_void(0); r[5] = (hendblk(1)); hreserve(hbsz(1), 6); /* 6 live regs */ *--hp = obj_from_void(0); r[6] = (hendblk(1)); hreserve(hbsz(5+1), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[6]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(128); r[7] = (hendblk(5+1)); hreserve(hbsz(8+1), 8); /* 8 live regs */ *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; *--hp = r[6]; *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[7]; *--hp = obj_from_case(101); r[7] = (hendblk(8+1)); r[8+0] = (cx_null_2Dmstore); pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[7]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 2; goto jump; case 98: /* clo k filename */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k filename */ hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = obj_from_case(99); r[2] = (hendblk(1+1)); r[3+0] = (cx_path_2Dstrip_2Ddirectory); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[2]; r[3+2] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 99: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(100); r[3] = (hendblk(1+1)); r[4+0] = (cx_path_2Dstrip_2Dextension); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 100: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ r[3+0] = (cx_c_2Dmangle); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[2]; r[3+2] = r[1]; r[3+3] = (cx__231045); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 101: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ /* ek r module-add-load! module-name filename k module-known-defs module-visits module-loads mstore */ (void)(objptr_from_obj(r[9])[0] = (r[1])); (void)(objptr_from_obj(r[8])[0] = (mknull())); (void)(objptr_from_obj(r[7])[0] = (mknull())); (void)(objptr_from_obj(r[6])[0] = (mknull())); hreserve(hbsz(6+1), 10); /* 10 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[8]; *--hp = r[6]; *--hp = r[9]; *--hp = r[2]; *--hp = obj_from_case(102); r[10] = (hendblk(6+1)); r[0] = r[5]; r[1] = r[4]; r[2] = (r[10]); goto gs_call_2Dwith_2Dinput_2Dfile_2F_2D; case 102: /* clo k port */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* k port module-add-load! mstore module-known-defs module-loads module-name filename */ r[8+0] = r[0]; r[8+1] = (mknull()); r[8+2] = (mknull()); r[8+3] = (mknull()); r[8+4] = (mknull()); r[8+5] = r[1]; r[8+6] = r[2]; r[8+7] = r[3]; r[8+8] = r[4]; r[8+9] = r[5]; r[8+10] = r[6]; r[8+11] = r[7]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v3724; case 103: /* clo k specs incs defs forms */ assert(rc == 6); { obj* p = objptr_from_obj(r[0]); r[1+5] = p[1]; r[1+6] = p[2]; r[1+7] = p[3]; r[1+8] = p[4]; r[1+9] = p[5]; r[1+10] = p[6]; r[1+11] = p[7]; } r += 1; /* shift reg. wnd */ s_loop_v3724: /* k specs incs defs forms port module-add-load! mstore module-known-defs module-loads module-name filename */ hreserve(hbsz(7+1), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(103); r[12] = (hendblk(7+1)); hreserve(hbsz(12+1), 13); /* 13 live regs */ *--hp = r[0]; *--hp = (r[11]); *--hp = r[1]; *--hp = r[3]; *--hp = r[2]; *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[4]; *--hp = r[7]; *--hp = (r[12]); *--hp = r[6]; *--hp = obj_from_case(104); r[12] = (hendblk(12+1)); r[13+0] = (cx_read_2F1); pc = objptr_from_obj(r[13+0])[0]; r[13+1] = (r[12]); r[13+2] = r[5]; r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 104: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; r[1+11] = p[10]; r[1+12] = p[11]; r[1+13] = p[12]; } r += 1; /* shift reg. wnd */ /* ek r module-add-load! loop mstore forms module-known-defs module-loads module-name incs defs specs filename k */ if ((iseof((r[1])))) { hreserve(hbsz(8+1), 14); /* 14 live regs */ *--hp = (r[13]); *--hp = (r[12]); *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = obj_from_case(105); r[14] = (hendblk(8+1)); { fixnum_t v4575_tmp; { /* length */ int n; obj l = r[5]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v4575_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v4575_tmp); hreserve(hbsz(3)*c, 15); /* 15 live regs */ l = r[5]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[15] = (o); } } r[0] = (cx_expand_2Dtop_2Dlevel_2Dforms_21); pc = objptr_from_obj(r[0])[0]; r[1] = (r[14]); r[2] = (r[15]); r[3] = (objptr_from_obj(r[4])[0]); rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(8+1), 14); /* 14 live regs */ *--hp = (r[13]); *--hp = (r[11]); *--hp = r[1]; *--hp = r[9]; *--hp = (r[10]); *--hp = r[5]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(119); r[14] = (hendblk(8+1)); r[15+0] = (cx_sexp_2Dmatch_3F); pc = objptr_from_obj(r[15+0])[0]; r[15+1] = (r[14]); r[15+2] = (cx__23978); r[15+3] = r[1]; r += 15; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 105: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ /* ek r module-known-defs module-loads module-name incs defs specs filename k */ hreserve(hbsz(9+1), 10); /* 10 live regs */ *--hp = r[9]; *--hp = r[1]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(109); r[10] = (hendblk(9+1)); r[0] = (r[10]); /* r[1] */ /* r[2] */ goto s_loop_v3853; case 106: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v3853: /* k id module-known-defs */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[3] = (car((r[1]))); hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = obj_from_case(106); r[4] = (hendblk(1+1)); hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(107); r[4] = (hendblk(3+1)); hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = r[4]; *--hp = obj_from_case(108); r[4] = (hendblk(3+1)); r[5+0] = (cx_sexp_2Dmatch_3F); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = (cx__23995); r[5+3] = r[3]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 107: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . loop id k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = (cdr((r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 108: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r k module-known-defs s */ if (bool_from_obj(r[1])) { r[5] = (cdr((r[4]))); r[5] = (car((r[5]))); r[6] = (objptr_from_obj(r[3])[0]); { /* memq */ obj x = (r[5]), l = r[6]; for (; l != mknull(); l = cdr(l)) if (car(l) == x) break; r[7] = (l == mknull() ? obj_from_bool(0) : l); } if (bool_from_obj(r[7])) { r[5] = r[6]; } else { { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } } r[5] = (objptr_from_obj(r[3])[0] = (r[5])); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 109: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek . module-known-defs module-loads module-name incs defs specs filename r k */ hreserve(hbsz(7+1), 11); /* 11 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(110); r[11] = (hendblk(7+1)); r[12+0] = (cx_parse_2Dprogram); pc = objptr_from_obj(r[12+0])[0]; r[12+1] = (r[10]); r[12+2] = r[9]; r[12+3] = (r[11]); r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 110: /* clo k exp module-known-refs */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; r[1+5] = p[3]; r[1+6] = p[4]; r[1+7] = p[5]; r[1+8] = p[6]; r[1+9] = p[7]; } r += 1; /* shift reg. wnd */ /* k exp module-known-refs module-known-defs module-loads module-name incs defs specs filename */ hreserve(hbsz(8+1), 10); /* 10 live regs */ *--hp = r[9]; *--hp = r[8]; *--hp = r[1]; *--hp = r[7]; *--hp = r[6]; *--hp = r[0]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(111); r[10] = (hendblk(8+1)); r[0] = (r[10]); r[1] = r[2]; r[2] = (objptr_from_obj(r[3])[0]); goto gs_setdiffq_231214; case 111: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ /* ek r module-loads module-name k incs defs exp specs filename */ hreserve(hbsz(8+1), 10); /* 10 live regs */ *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(112); r[10] = (hendblk(8+1)); if ((bool_from_obj(cx__2Awarnings_2A) && (!(isnull((r[1])))))) { r[0] = (r[10]); /* r[1] */ goto s_loop_v3793; } else { r[0] = obj_from_ktrap(); r[1] = obj_from_void(0); /* r[2] */ /* r[3] */ /* r[4] */ /* r[5] */ /* r[6] */ /* r[7] */ /* r[8] */ /* r[9] */ goto s_l_v3805; } case 112: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ s_l_v3805: /* ek . module-loads module-name k incs defs exp specs filename */ r[10] = (objptr_from_obj(r[2])[0]); hreserve(hbsz(7+1), 11); /* 11 live regs */ *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(114); r[11] = (hendblk(7+1)); r[0] = (r[11]); r[1] = (r[10]); goto s_loop_v3824; s_loop_v3824: /* k id */ if ((isnull((r[1])))) { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (mknull()); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[2] = (cdr((r[1]))); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(113); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v3824; } case 113: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k id */ r[4] = (car((r[3]))); { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = (cx__231164); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 114: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek r module-name k incs defs exp specs filename */ { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = (mknull()); *--hp = (cx__23965); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[9]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[9]; *--hp = (cx__231177); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = (cx__23965); *--hp = obj_from_size(PAIR_BTAG); r[11] = (hendblk(3)); } hreserve(hbsz(8+1), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(115); r[12] = (hendblk(8+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = (r[12]); r[2] = r[8]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 115: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ /* ek r module-name k incs defs exp specs filename r */ { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[9]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = (cx__231184); *--hp = obj_from_size(PAIR_BTAG); r[11] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = (cx__231187); *--hp = obj_from_size(PAIR_BTAG); r[12] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 13); /* 13 live regs */ *--hp = (r[12]); *--hp = (cx__23965); *--hp = obj_from_size(PAIR_BTAG); r[13] = (hendblk(3)); } hreserve(hbsz(7+1), 14); /* 14 live regs */ *--hp = (r[13]); *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(116); r[14] = (hendblk(7+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = (r[14]); r[2] = r[8]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 116: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek r k incs defs exp specs filename r */ { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[9]; *--hp = (cx__231194); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = (cx__231197); *--hp = obj_from_size(PAIR_BTAG); r[11] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = (cx__231200); *--hp = obj_from_size(PAIR_BTAG); r[12] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 13); /* 13 live regs */ *--hp = (r[12]); *--hp = (cx__231069); *--hp = obj_from_size(PAIR_BTAG); r[13] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 14); /* 14 live regs */ *--hp = (r[13]); *--hp = r[7]; *--hp = obj_from_size(PAIR_BTAG); r[14] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 15); /* 15 live regs */ *--hp = (r[14]); *--hp = (cx__231207); *--hp = obj_from_size(PAIR_BTAG); r[15] = (hendblk(3)); } { fixnum_t v4572_tmp; { /* length */ int n; obj l = r[6]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v4572_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v4572_tmp); hreserve(hbsz(3)*c, 16); /* 16 live regs */ l = r[6]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[16] = (o); } } { /* cons */ hreserve(hbsz(3), 17); /* 17 live regs */ *--hp = (r[16]); *--hp = (r[15]); *--hp = obj_from_size(PAIR_BTAG); r[16] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 17); /* 17 live regs */ *--hp = (mknull()); *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[17] = (hendblk(3)); } { fixnum_t v4573_tmp; { /* length */ int n; obj l = r[4]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v4573_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v4573_tmp); hreserve(hbsz(3)*c, 18); /* 18 live regs */ l = r[4]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[18] = (o); } } { /* cons */ hreserve(hbsz(3), 19); /* 19 live regs */ *--hp = (r[17]); *--hp = (r[18]); *--hp = obj_from_size(PAIR_BTAG); r[17] = (hendblk(3)); } { fixnum_t v4574_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v4574_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v4574_tmp); hreserve(hbsz(3)*c, 18); /* 18 live regs */ l = r[3]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[18] = (o); } } { /* cons */ hreserve(hbsz(3), 19); /* 19 live regs */ *--hp = (r[17]); *--hp = (r[18]); *--hp = obj_from_size(PAIR_BTAG); r[17] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 18); /* 18 live regs */ *--hp = (r[17]); *--hp = (r[16]); *--hp = obj_from_size(PAIR_BTAG); r[17] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (r[17]); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 117: /* clo k id */ assert(rc == 3); r += 1; /* shift reg. wnd */ s_loop_v3793: /* k id */ if ((isnull((r[1])))) { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[2] = (car((r[1]))); hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(117); r[3] = (hendblk(0+1)); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(118); r[3] = (hendblk(3+1)); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = (cx_fprintf_2A); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[3]; r[5+2] = (cx__2Acurrent_2Doutput_2Dport_2A); r[5+3] = (cx__231238); r[5+4] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; } case 118: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . loop id k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = (cdr((r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 119: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ /* ek r module-add-load! loop forms defs incs r specs k */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = (mknull()); *--hp = (cx__23965); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } r[11] = (cdr((r[7]))); r[11] = (car((r[11]))); { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = (r[10]); *--hp = (r[11]); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = (cx__23973); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = r[6]; *--hp = (r[10]); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } r[11+0] = r[3]; pc = objptr_from_obj(r[11+0])[0]; r[11+1] = r[9]; r[11+2] = r[8]; r[11+3] = (r[10]); r[11+4] = r[5]; r[11+5] = r[4]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; goto jump; } else { hreserve(hbsz(8+1), 10); /* 10 live regs */ *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(120); r[10] = (hendblk(8+1)); r[0] = (cx_sexp_2Dmatch_3F); pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); r[2] = (cx__23960); r[3] = r[7]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 120: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ /* ek r module-add-load! loop forms defs incs r specs k */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = (mknull()); *--hp = (cx__23947); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } r[11] = (cdr((r[7]))); r[11] = (car((r[11]))); { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = (r[10]); *--hp = (r[11]); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = (cx__23955); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = r[6]; *--hp = (r[10]); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } r[11+0] = r[3]; pc = objptr_from_obj(r[11+0])[0]; r[11+1] = r[9]; r[11+2] = r[8]; r[11+3] = (r[10]); r[11+4] = r[5]; r[11+5] = r[4]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; goto jump; } else { hreserve(hbsz(8+1), 10); /* 10 live regs */ *--hp = r[9]; *--hp = r[7]; *--hp = r[8]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(121); r[10] = (hendblk(8+1)); r[0] = (cx_sexp_2Dmatch_3F); pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); r[2] = (cx__231114); r[3] = r[7]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 121: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ /* ek r module-add-load! loop forms defs incs specs r k */ if (bool_from_obj(r[1])) { hreserve(hbsz(7+1), 10); /* 10 live regs */ *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(122); r[10] = (hendblk(7+1)); if ((ispair((r[4])))) { r[0] = (cx_c_2Derror_2A); pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); r[2] = (cx__231111); r[3] = (mknull()); rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[0] = obj_from_ktrap(); r[1] = obj_from_void(0); r[2] = r[3]; r[3] = r[4]; r[4] = r[5]; r[5] = r[6]; r[6] = r[7]; r[7] = r[8]; r[8] = r[9]; goto s_l_v3768; } } else { hreserve(hbsz(8+1), 10); /* 10 live regs */ *--hp = r[9]; *--hp = r[7]; *--hp = r[6]; *--hp = r[8]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(123); r[10] = (hendblk(8+1)); r[0] = (cx_sexp_2Dmatch_3F); pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); r[2] = (cx__23941); r[3] = r[8]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 122: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ s_l_v3768: /* ek . loop forms defs incs specs r k */ r[9] = (cdr((r[7]))); { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[6]; *--hp = r[9]; *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } r[10+0] = r[2]; pc = objptr_from_obj(r[10+0])[0]; r[10+1] = r[8]; r[10+2] = r[9]; r[10+3] = r[5]; r[10+4] = r[4]; r[10+5] = r[3]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; goto jump; case 123: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ /* ek r module-add-load! loop forms defs r incs specs k */ if (bool_from_obj(r[1])) { r[10] = (cdr((r[6]))); r[10] = (car((r[10]))); { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = r[5]; *--hp = (r[10]); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } r[11+0] = r[3]; pc = objptr_from_obj(r[11+0])[0]; r[11+1] = r[9]; r[11+2] = r[8]; r[11+3] = r[7]; r[11+4] = (r[10]); r[11+5] = r[4]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; goto jump; } else { hreserve(hbsz(8+1), 10); /* 10 live regs */ *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(124); r[10] = (hendblk(8+1)); r[0] = (cx_sexp_2Dmatch_3F); pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); r[2] = (cx__231098); r[3] = r[6]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 124: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ /* ek r module-add-load! loop forms defs r incs specs k */ if (bool_from_obj(r[1])) { r[10] = (cdr((r[6]))); r[10] = (car((r[10]))); { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = r[5]; *--hp = (r[10]); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } r[11+0] = r[3]; pc = objptr_from_obj(r[11+0])[0]; r[11+1] = r[9]; r[11+2] = r[8]; r[11+3] = r[7]; r[11+4] = (r[10]); r[11+5] = r[4]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; goto jump; } else { hreserve(hbsz(8+1), 10); /* 10 live regs */ *--hp = r[9]; *--hp = r[6]; *--hp = r[8]; *--hp = r[7]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(125); r[10] = (hendblk(8+1)); r[0] = (cx_sexp_2Dmatch_3F); pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); r[2] = (cx__231014); r[3] = r[6]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 125: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ /* ek r module-add-load! loop forms defs incs specs r k */ if (bool_from_obj(r[1])) { hreserve(hbsz(8+1), 10); /* 10 live regs */ *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(126); r[10] = (hendblk(8+1)); if ((ispair((r[4])))) { r[0] = (cx_c_2Derror_2A); pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); r[2] = (cx__231090); r[3] = (mknull()); rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[0] = obj_from_ktrap(); r[1] = obj_from_void(0); /* r[2] */ /* r[3] */ /* r[4] */ /* r[5] */ /* r[6] */ /* r[7] */ /* r[8] */ /* r[9] */ goto s_l_v3740; } } else { { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[4]; *--hp = r[8]; *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } r[11+0] = r[3]; pc = objptr_from_obj(r[11+0])[0]; r[11+1] = r[9]; r[11+2] = r[7]; r[11+3] = r[6]; r[11+4] = r[5]; r[11+5] = (r[10]); r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; goto jump; } case 126: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ s_l_v3740: /* ek . module-add-load! loop forms defs incs specs r k */ r[10] = (cdr((r[8]))); r[10] = (car((r[10]))); hreserve(hbsz(6+1), 11); /* 11 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(127); r[11] = (hendblk(6+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[9]; r[2] = (r[10]); r[3] = (r[11]); rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 127: /* clo k name xincs xdefs */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; r[1+5] = p[2]; r[1+6] = p[3]; r[1+7] = p[4]; r[1+8] = p[5]; r[1+9] = p[6]; } r += 1; /* shift reg. wnd */ /* k name xincs xdefs loop forms defs incs specs r */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = (mknull()); *--hp = (cx__231069); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } r[11] = (cdr((r[9]))); r[11] = (car((r[11]))); { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = (r[10]); *--hp = (r[11]); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = (cx__231077); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = (cx__231082); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = r[8]; *--hp = (r[10]); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } } else { r[10] = r[8]; } { fixnum_t v4571_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v4571_tmp = (n); } { /* append */ obj t, l, o, *p, *d; int c = (v4571_tmp); hreserve(hbsz(3)*c, 11); /* 11 live regs */ l = r[2]; t = r[7]; /* gc-safe */ o = t; p = &o; for (; l != mknull(); l = cdr(l)) { *--hp = t; d = hp; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); *p = hendblk(3); p = d; } r[11] = (o); } } { fixnum_t v4570_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v4570_tmp = (n); } { /* append */ obj t, l, o, *p, *d; int c = (v4570_tmp); hreserve(hbsz(3)*c, 12); /* 12 live regs */ l = r[3]; t = r[6]; /* gc-safe */ o = t; p = &o; for (; l != mknull(); l = cdr(l)) { *--hp = t; d = hp; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); *p = hendblk(3); p = d; } r[12] = (o); } } r[13+0] = r[4]; pc = objptr_from_obj(r[13+0])[0]; r[13+1] = r[0]; r[13+2] = (r[10]); r[13+3] = (r[11]); r[13+4] = (r[12]); r[13+5] = r[5]; r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; goto jump; case 128: /* clo k str return */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; r[1+5] = p[3]; r[1+6] = p[4]; r[1+7] = p[5]; } r += 1; /* shift reg. wnd */ /* k str return module-name mstore module-known-defs module-loads module-visits */ hreserve(hbsz(1), 8); /* 8 live regs */ *--hp = obj_from_void(0); r[8] = (hendblk(1)); hreserve(hbsz(5+1), 9); /* 9 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(128); r[9] = (hendblk(5+1)); hreserve(hbsz(9+1), 10); /* 10 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[0]; *--hp = r[2]; *--hp = r[1]; *--hp = r[6]; *--hp = r[9]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(129); r[9] = (hendblk(9+1)); r[10+0] = r[3]; pc = objptr_from_obj(r[10+0])[0]; r[10+1] = r[9]; r[10+2] = r[1]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 129: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek r mstore module-known-defs module-add-load! module-loads str return k module-visits load-name */ (void)(objptr_from_obj(r[10])[0] = (r[1])); r[11] = (objptr_from_obj(r[10])[0]); r[12] = (objptr_from_obj(r[9])[0]); r[11] = (ismember((r[11]), (r[12]))); if (bool_from_obj(r[11])) { hreserve(hbsz(2+1), 11); /* 11 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = obj_from_case(130); r[11] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = (mknull()); *--hp = r[6]; *--hp = obj_from_size(PAIR_BTAG); r[12] = (hendblk(3)); } r[0] = (cx_fprintf_2A); pc = objptr_from_obj(r[0])[0]; r[1] = (r[11]); r[2] = (cx__2Acurrent_2Doutput_2Dport_2A); r[3] = (cx__231037); r[4] = (r[12]); rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { hreserve(hbsz(9+1), 11); /* 11 live regs */ *--hp = r[9]; *--hp = (r[10]); *--hp = r[8]; *--hp = r[5]; *--hp = r[7]; *--hp = r[4]; *--hp = r[3]; *--hp = r[6]; *--hp = r[2]; *--hp = obj_from_case(131); r[11] = (hendblk(9+1)); if (bool_from_obj(cx__2Ashowlog_2A)) { { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = (mknull()); *--hp = r[6]; *--hp = obj_from_size(PAIR_BTAG); r[12] = (hendblk(3)); } r[0] = (cx_fprintf_2A); pc = objptr_from_obj(r[0])[0]; r[1] = (r[11]); r[2] = (cx__2Acurrent_2Doutput_2Dport_2A); r[3] = (cx__231031); r[4] = (r[12]); rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { r[12+0] = obj_from_ktrap(); r[12+1] = obj_from_void(0); r[12+2] = r[2]; r[12+3] = r[6]; r[12+4] = r[3]; r[12+5] = r[4]; r[12+6] = r[7]; r[12+7] = r[5]; r[12+8] = r[8]; r[12+9] = (r[10]); r[12+10] = r[9]; r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v3645; } } case 130: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . return k */ r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = obj_from_bool(0); r[4+3] = (mknull()); r[4+4] = (mknull()); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 131: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ s_l_v3645: /* ek . mstore str module-known-defs module-add-load! return module-loads k load-name module-visits */ r[11] = (objptr_from_obj(r[10])[0]); r[12] = (objptr_from_obj(r[9])[0]); { /* cons */ hreserve(hbsz(3), 13); /* 13 live regs */ *--hp = (r[11]); *--hp = (r[12]); *--hp = obj_from_size(PAIR_BTAG); r[11] = (hendblk(3)); } (void)(objptr_from_obj(r[10])[0] = (r[11])); hreserve(hbsz(6+1), 11); /* 11 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[9]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(132); r[11] = (hendblk(6+1)); r[12+0] = (cx_file_2Dexpand_2Dtop_2Dlevel_2Dforms_21); pc = objptr_from_obj(r[12+0])[0]; r[12+1] = (r[11]); r[12+2] = r[3]; r[12+3] = (objptr_from_obj(r[2])[0]); r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 132: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek r module-known-defs module-add-load! return load-name module-loads k */ r[8+0] = r[7]; r[8+1] = r[1]; r[8+2] = (mknull()); r[8+3] = (mknull()); r[8+4] = (mknull()); r[8+5] = r[2]; r[8+6] = r[3]; r[8+7] = r[4]; r[8+8] = r[5]; r[8+9] = r[6]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v3648; case 133: /* clo k forms incs defs sdefs */ assert(rc == 6); { obj* p = objptr_from_obj(r[0]); r[1+5] = p[1]; r[1+6] = p[2]; r[1+7] = p[3]; r[1+8] = p[4]; r[1+9] = p[5]; } r += 1; /* shift reg. wnd */ s_loop_v3648: /* k forms incs defs sdefs module-known-defs module-add-load! return load-name module-loads */ if ((isnull((r[1])))) { if ((isnull((r[4])))) { r[10] = obj_from_bool(0); } else { r[10] = (objptr_from_obj(r[9])[0]); r[11] = (objptr_from_obj(r[8])[0]); { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = (r[10]); *--hp = (r[11]); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } (void)(objptr_from_obj(r[9])[0] = (r[10])); r[10] = (objptr_from_obj(r[8])[0]); } r[11+0] = r[7]; pc = objptr_from_obj(r[11+0])[0]; r[11+1] = r[0]; r[11+2] = (r[10]); r[11+3] = r[2]; r[11+4] = r[3]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { r[10] = (car((r[1]))); r[11] = (cdr((r[1]))); hreserve(hbsz(5+1), 12); /* 12 live regs */ *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(133); r[12] = (hendblk(5+1)); hreserve(hbsz(9+1), 13); /* 13 live regs */ *--hp = r[0]; *--hp = (r[10]); *--hp = (r[11]); *--hp = r[2]; *--hp = r[3]; *--hp = r[4]; *--hp = (r[12]); *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(134); r[12] = (hendblk(9+1)); r[13+0] = (cx_sexp_2Dmatch_3F); pc = objptr_from_obj(r[13+0])[0]; r[13+1] = (r[12]); r[13+2] = (cx__231014); r[13+3] = (r[10]); r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 134: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek r module-known-defs module-add-load! loop sdefs defs incs forms s k */ if (bool_from_obj(r[1])) { r[11] = (cdr((r[9]))); r[11] = (car((r[11]))); hreserve(hbsz(5+1), 12); /* 12 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(135); r[12] = (hendblk(5+1)); r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); r[2] = (r[11]); r[3] = (r[12]); rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(8+1), 11); /* 11 live regs */ *--hp = r[9]; *--hp = r[2]; *--hp = (r[10]); *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(136); r[11] = (hendblk(8+1)); r[0] = (cx_sexp_2Dmatch_3F); pc = objptr_from_obj(r[0])[0]; r[1] = (r[11]); r[2] = (cx__23995); r[3] = r[9]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 135: /* clo k name xincs xdefs */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; r[1+5] = p[2]; r[1+6] = p[3]; r[1+7] = p[4]; r[1+8] = p[5]; } r += 1; /* shift reg. wnd */ /* k name xincs xdefs loop sdefs defs incs forms */ { fixnum_t v4569_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v4569_tmp = (n); } { /* append */ obj t, l, o, *p, *d; int c = (v4569_tmp); hreserve(hbsz(3)*c, 9); /* 9 live regs */ l = r[2]; t = r[7]; /* gc-safe */ o = t; p = &o; for (; l != mknull(); l = cdr(l)) { *--hp = t; d = hp; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); *p = hendblk(3); p = d; } r[9] = (o); } } { fixnum_t v4568_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v4568_tmp = (n); } { /* append */ obj t, l, o, *p, *d; int c = (v4568_tmp); hreserve(hbsz(3)*c, 10); /* 10 live regs */ l = r[3]; t = r[6]; /* gc-safe */ o = t; p = &o; for (; l != mknull(); l = cdr(l)) { *--hp = t; d = hp; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); *p = hendblk(3); p = d; } r[10] = (o); } } r[11+0] = r[4]; pc = objptr_from_obj(r[11+0])[0]; r[11+1] = r[0]; r[11+2] = r[8]; r[11+3] = r[9]; r[11+4] = (r[10]); r[11+5] = r[5]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; goto jump; case 136: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ /* ek r loop sdefs defs incs forms k module-known-defs s */ if (bool_from_obj(r[1])) { r[10] = (cdr((r[9]))); r[10] = (car((r[10]))); r[11] = (objptr_from_obj(r[8])[0]); { /* memq */ obj x = (r[10]), l = (r[11]); for (; l != mknull(); l = cdr(l)) if (car(l) == x) break; r[12] = (l == mknull() ? obj_from_bool(0) : l); } if (bool_from_obj(r[12])) { r[10] = (r[11]); } else { { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = (r[10]); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } } (void)(objptr_from_obj(r[8])[0] = (r[10])); { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[3]; *--hp = r[9]; *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } r[11+0] = r[2]; pc = objptr_from_obj(r[11+0])[0]; r[11+1] = r[7]; r[11+2] = r[6]; r[11+3] = r[5]; r[11+4] = r[4]; r[11+5] = (r[10]); r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; goto jump; } else { hreserve(hbsz(7+1), 10); /* 10 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[9]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(137); r[10] = (hendblk(7+1)); r[0] = (cx_sexp_2Dmatch_3F); pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); r[2] = (cx__23978); r[3] = r[9]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 137: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek r loop sdefs defs incs s forms k */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = (mknull()); *--hp = (cx__23965); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } r[10] = (cdr((r[6]))); r[10] = (car((r[10]))); { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = r[9]; *--hp = (r[10]); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[9]; *--hp = (cx__23973); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[5]; *--hp = r[9]; *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } r[10+0] = r[2]; pc = objptr_from_obj(r[10+0])[0]; r[10+1] = r[8]; r[10+2] = r[7]; r[10+3] = r[9]; r[10+4] = r[4]; r[10+5] = r[3]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; goto jump; } else { hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(138); r[9] = (hendblk(7+1)); r[0] = (cx_sexp_2Dmatch_3F); pc = objptr_from_obj(r[0])[0]; r[1] = r[9]; r[2] = (cx__23960); r[3] = r[6]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 138: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek r loop sdefs defs incs s forms k */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = (mknull()); *--hp = (cx__23947); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } r[10] = (cdr((r[6]))); r[10] = (car((r[10]))); { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = r[9]; *--hp = (r[10]); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[9]; *--hp = (cx__23955); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[5]; *--hp = r[9]; *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } r[10+0] = r[2]; pc = objptr_from_obj(r[10+0])[0]; r[10+1] = r[8]; r[10+2] = r[7]; r[10+3] = r[9]; r[10+4] = r[4]; r[10+5] = r[3]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; goto jump; } else { hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[5]; *--hp = r[6]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(139); r[9] = (hendblk(7+1)); r[0] = (cx_sexp_2Dmatch_3F); pc = objptr_from_obj(r[0])[0]; r[1] = r[9]; r[2] = (cx__23941); r[3] = r[6]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 139: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek r loop sdefs defs s incs forms k */ if (bool_from_obj(r[1])) { r[9] = (cdr((r[5]))); r[9] = (car((r[9]))); { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[4]; *--hp = r[9]; *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } r[10+0] = r[2]; pc = objptr_from_obj(r[10+0])[0]; r[10+1] = r[8]; r[10+2] = r[7]; r[10+3] = r[6]; r[10+4] = r[9]; r[10+5] = r[3]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; goto jump; } else { r[9+0] = r[2]; pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[8]; r[9+2] = r[7]; r[9+3] = r[6]; r[9+4] = r[4]; r[9+5] = r[3]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; goto jump; } case 140: /* compile-file k filename */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_compile_2Dfile: /* k filename */ hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(141); r[2] = (hendblk(2+1)); r[3+0] = (cx_reset_2Dtimestamps); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 2; goto jump; case 141: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k filename */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(142); r[4] = (hendblk(2+1)); r[0] = r[4]; goto gs_clear_2Dmemoizations; case 142: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k filename */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(143); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = r[3]; goto gs_parse_2Dfile; case 143: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k filename */ r[4] = (car((r[1]))); r[5] = (cdr((r[1]))); r[5] = (car((r[5]))); r[6] = (cdr((r[1]))); r[6] = (cdr((r[6]))); r[6] = (car((r[6]))); r[7] = (cdr((r[1]))); r[7] = (cdr((r[7]))); r[7] = (cdr((r[7]))); r[7] = (car((r[7]))); hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = r[4]; *--hp = r[5]; *--hp = r[6]; *--hp = r[7]; *--hp = obj_from_case(144); r[8] = (hendblk(6+1)); r[0] = r[8]; r[1] = (cx__231401); r[2] = r[7]; goto gs_maybe_2Dpp_2Dsource; case 144: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek . exp defs incs specs k filename */ hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(145); r[8] = (hendblk(6+1)); r[0] = r[8]; r[1] = (cx__231400); goto gs_maybe_2Dlog; case 145: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek . exp defs incs specs k filename */ hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(146); r[8] = (hendblk(5+1)); r[0] = (cx_fix_2Dletrecs); pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 146: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r defs incs specs k filename */ hreserve(hbsz(6+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(147); r[7] = (hendblk(6+1)); r[8+0] = r[7]; r[8+1] = (cx__231396); r[8+2] = r[1]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_maybe_2Dpp_2Dsource; case 147: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek . r defs incs specs k filename */ hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(148); r[8] = (hendblk(6+1)); r[0] = r[8]; goto gs_clear_2Dmemoizations; case 148: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek . r defs incs specs k filename */ hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(149); r[8] = (hendblk(6+1)); r[0] = r[8]; r[1] = (cx__231395); goto gs_maybe_2Dlog; case 149: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek . r defs incs specs k filename */ hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(150); r[8] = (hendblk(5+1)); r[0] = (cx_remove_2Dassignments); pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 150: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r defs incs specs k filename */ hreserve(hbsz(6+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(151); r[7] = (hendblk(6+1)); r[8+0] = r[7]; r[8+1] = (cx__231391); r[8+2] = r[1]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_maybe_2Dpp_2Dsource; case 151: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek . r defs incs specs k filename */ hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(152); r[8] = (hendblk(6+1)); r[0] = r[8]; goto gs_clear_2Dmemoizations; case 152: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek . r defs incs specs k filename */ hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(153); r[8] = (hendblk(6+1)); r[0] = r[8]; r[1] = (cx__231390); goto gs_maybe_2Dlog; case 153: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek . r defs incs specs k filename */ hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(154); r[8] = (hendblk(5+1)); r[0] = (cx_analyze_2Dglobals); pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 154: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r defs incs specs k filename */ hreserve(hbsz(6+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(155); r[7] = (hendblk(6+1)); r[8+0] = r[7]; r[8+1] = (cx__231386); r[8+2] = (car((r[1]))); r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_maybe_2Dpp_2Dsource; case 155: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek . r defs incs specs k filename */ hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(156); r[8] = (hendblk(6+1)); r[0] = r[8]; goto gs_clear_2Dmemoizations; case 156: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek . r defs incs specs k filename */ hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(157); r[8] = (hendblk(6+1)); r[0] = r[8]; r[1] = (cx__231384); goto gs_maybe_2Dlog; case 157: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek . r defs incs specs k filename */ hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(158); r[8] = (hendblk(6+1)); r[0] = (cx_stack_2Dfunctions_2Dcode_2Dgenerate); pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; r[2] = (cdr((r[2]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 158: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek r r defs incs specs k filename */ hreserve(hbsz(7+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(159); r[8] = (hendblk(7+1)); r[0] = r[8]; r[1] = (cx__231382); goto gs_maybe_2Dlog; case 159: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . r r defs incs specs k filename */ hreserve(hbsz(6+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(160); r[9] = (hendblk(6+1)); r[0] = (cx_constant_2Dfold); pc = objptr_from_obj(r[0])[0]; r[1] = r[9]; r[2] = (car((r[2]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 160: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek r r defs incs specs k filename */ hreserve(hbsz(7+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(161); r[8] = (hendblk(7+1)); r[9+0] = r[8]; r[9+1] = (cx__231378); r[9+2] = r[1]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_maybe_2Dpp_2Dsource; case 161: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . r r defs incs specs k filename */ hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(162); r[9] = (hendblk(7+1)); r[0] = r[9]; goto gs_clear_2Dmemoizations; case 162: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . r r defs incs specs k filename */ hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(163); r[9] = (hendblk(7+1)); r[0] = r[9]; r[1] = (cx__231377); goto gs_maybe_2Dlog; case 163: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . r r defs incs specs k filename */ hreserve(hbsz(6+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(164); r[9] = (hendblk(6+1)); r[0] = (cx_beta_2Dsubstitute); pc = objptr_from_obj(r[0])[0]; r[1] = r[9]; /* r[2] */ r[3] = obj_from_bool(0); r[4] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 164: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek r r defs incs specs k filename */ hreserve(hbsz(7+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(165); r[8] = (hendblk(7+1)); r[9+0] = r[8]; r[9+1] = (cx__231373); r[9+2] = r[1]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_maybe_2Dpp_2Dsource; case 165: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . r r defs incs specs k filename */ hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(166); r[9] = (hendblk(7+1)); r[0] = r[9]; goto gs_clear_2Dmemoizations; case 166: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . r r defs incs specs k filename */ hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(167); r[9] = (hendblk(7+1)); r[0] = r[9]; r[1] = (cx__231372); goto gs_maybe_2Dlog; case 167: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . r r defs incs specs k filename */ hreserve(hbsz(6+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(168); r[9] = (hendblk(6+1)); r[0] = (cx_cps_2Dconvert); pc = objptr_from_obj(r[0])[0]; r[1] = r[9]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 168: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek r r defs incs specs k filename */ hreserve(hbsz(7+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(169); r[8] = (hendblk(7+1)); r[9+0] = r[8]; r[9+1] = (cx__231368); r[9+2] = r[1]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_maybe_2Dpp_2Dsource; case 169: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . r r defs incs specs k filename */ hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(170); r[9] = (hendblk(7+1)); r[0] = r[9]; goto gs_clear_2Dmemoizations; case 170: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . r r defs incs specs k filename */ hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(171); r[9] = (hendblk(7+1)); r[0] = r[9]; r[1] = (cx__231367); goto gs_maybe_2Dlog; case 171: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . r r defs incs specs k filename */ hreserve(hbsz(6+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(172); r[9] = (hendblk(6+1)); r[0] = (cx_beta_2Dsubstitute); pc = objptr_from_obj(r[0])[0]; r[1] = r[9]; /* r[2] */ r[3] = obj_from_bool(1); r[4] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 172: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek r r defs incs specs k filename */ hreserve(hbsz(7+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(173); r[8] = (hendblk(7+1)); r[9+0] = r[8]; r[9+1] = (cx__231363); r[9+2] = r[1]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_maybe_2Dpp_2Dsource; case 173: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . r r defs incs specs k filename */ hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(174); r[9] = (hendblk(7+1)); r[0] = r[9]; goto gs_clear_2Dmemoizations; case 174: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . r r defs incs specs k filename */ hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(175); r[9] = (hendblk(7+1)); r[0] = r[9]; r[1] = (cx__231362); goto gs_maybe_2Dlog; case 175: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . r r defs incs specs k filename */ hreserve(hbsz(6+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(176); r[9] = (hendblk(6+1)); r[0] = (cx_lambda_2Dlift); pc = objptr_from_obj(r[0])[0]; r[1] = r[9]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 176: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek r r defs incs specs k filename */ hreserve(hbsz(7+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(177); r[8] = (hendblk(7+1)); r[9+0] = r[8]; r[9+1] = (cx__231358); r[9+2] = r[1]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_maybe_2Dpp_2Dsource; case 177: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . r r defs incs specs k filename */ hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(178); r[9] = (hendblk(7+1)); r[0] = r[9]; goto gs_clear_2Dmemoizations; case 178: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . r r defs incs specs k filename */ hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(179); r[9] = (hendblk(7+1)); r[0] = r[9]; r[1] = (cx__231357); goto gs_maybe_2Dlog; case 179: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . r r defs incs specs k filename */ hreserve(hbsz(6+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(180); r[9] = (hendblk(6+1)); r[0] = (cx_beta_2Dsubstitute); pc = objptr_from_obj(r[0])[0]; r[1] = r[9]; /* r[2] */ r[3] = obj_from_bool(1); r[4] = obj_from_bool(1); rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 180: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek r r defs incs specs k filename */ hreserve(hbsz(7+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(181); r[8] = (hendblk(7+1)); r[9+0] = r[8]; r[9+1] = (cx__231353); r[9+2] = r[1]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_maybe_2Dpp_2Dsource; case 181: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . r r defs incs specs k filename */ hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(182); r[9] = (hendblk(7+1)); r[0] = r[9]; goto gs_clear_2Dmemoizations; case 182: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . r r defs incs specs k filename */ hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(183); r[9] = (hendblk(7+1)); r[0] = r[9]; r[1] = (cx__231352); goto gs_maybe_2Dlog; case 183: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . r r defs incs specs k filename */ hreserve(hbsz(6+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(184); r[9] = (hendblk(6+1)); r[0] = (cx_unbox_2Dvalues); pc = objptr_from_obj(r[0])[0]; r[1] = r[9]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 184: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek r r defs incs specs k filename */ hreserve(hbsz(7+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(185); r[8] = (hendblk(7+1)); r[9+0] = r[8]; r[9+1] = (cx__231348); r[9+2] = r[1]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_maybe_2Dpp_2Dsource; case 185: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . r r defs incs specs k filename */ hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(186); r[9] = (hendblk(7+1)); r[0] = r[9]; goto gs_clear_2Dmemoizations; case 186: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . r r defs incs specs k filename */ hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(187); r[9] = (hendblk(7+1)); r[0] = r[9]; r[1] = (cx__231347); goto gs_maybe_2Dlog; case 187: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . r r defs incs specs k filename */ hreserve(hbsz(6+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(188); r[9] = (hendblk(6+1)); r[0] = (cx_code_2Dgenerate); pc = objptr_from_obj(r[0])[0]; r[1] = r[9]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 188: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek r r defs incs specs k filename */ hreserve(hbsz(7+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(189); r[8] = (hendblk(7+1)); r[9] = (cdr((r[1]))); r[9] = (car((r[9]))); r[10+0] = r[8]; r[10+1] = (cx__231344); r[10+2] = r[9]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_maybe_2Dpp_2Dtext; case 189: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . r r defs incs specs k filename */ hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(190); r[9] = (hendblk(7+1)); r[0] = r[9]; r[1] = (cx__231340); goto gs_maybe_2Dlog; case 190: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . r r defs incs specs k filename */ if ((strcmp(stringchars((r[8])), stringchars((cx__23911))) == 0)) { r[9+0] = r[7]; r[9+1] = r[6]; r[9+2] = r[5]; r[9+3] = r[4]; r[9+4] = r[3]; r[9+5] = r[2]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_display_2Dmodule; } else { hreserve(hbsz(6+1), 9); /* 9 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(191); r[9] = (hendblk(6+1)); r[0] = (cx_path_2Dstrip_2Dextension); pc = objptr_from_obj(r[0])[0]; r[1] = r[9]; r[2] = r[8]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 191: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek r r r defs incs specs k */ { /* string-append */ int *d = stringcat(stringdata((r[1])), stringdata((cx__231329))); r[8] = (hpushstr(8, d)); } { /* delete-file */ int res = remove(stringchars((r[8]))); (void)(res == 0); } hreserve(hbsz(2+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = obj_from_case(192); r[9] = (hendblk(2+1)); hreserve(hbsz(5+1), 10); /* 10 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(193); r[10] = (hendblk(5+1)); r[11+0] = (cx_with_2Doutput_2Dto_2Dfile); pc = objptr_from_obj(r[11+0])[0]; r[11+1] = r[9]; r[11+2] = r[8]; r[11+3] = (r[10]); r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 192: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k r */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[3]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 193: /* clo k */ assert(rc == 2); { obj* p = objptr_from_obj(r[0]); r[1+1] = p[1]; r[1+2] = p[2]; r[1+3] = p[3]; r[1+4] = p[4]; r[1+5] = p[5]; } r += 1; /* shift reg. wnd */ /* k r r defs incs specs */ r[6+0] = r[0]; r[6+1] = r[5]; r[6+2] = r[4]; r[6+3] = r[3]; r[6+4] = r[2]; r[6+5] = r[1]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_display_2Dmodule; case 194: /* display-module k specs incs defs sfcs module-code */ assert(rc == 7); r += 1; /* shift reg. wnd */ gs_display_2Dmodule: /* k specs incs defs sfcs module-code */ r[6] = (car((r[5]))); r[7] = (cdr((r[5]))); r[7] = (car((r[7]))); r[8] = (cdr((r[5]))); r[8] = (cdr((r[8]))); r[8] = (car((r[8]))); r[9] = (cdr((r[5]))); r[9] = (cdr((r[9]))); r[9] = (cdr((r[9]))); r[9] = (car((r[9]))); { /* list-ref */ obj l = r[5]; int c = (+4); while (c-- > 0) l = cdr(l); r[10] = (car(l)); } { /* list-ref */ obj l = r[5]; int c = (+5); while (c-- > 0) l = cdr(l); r[11] = (car(l)); } hreserve(hbsz(0+1), 12); /* 12 live regs */ *--hp = obj_from_case(195); r[12] = (hendblk(0+1)); hreserve(hbsz(11+1), 13); /* 13 live regs */ *--hp = r[6]; *--hp = r[0]; *--hp = (r[11]); *--hp = r[7]; *--hp = (r[10]); *--hp = r[9]; *--hp = r[4]; *--hp = (r[12]); *--hp = r[8]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(196); r[12] = (hendblk(11+1)); r[13+0] = (cx_display_2Dtext); pc = objptr_from_obj(r[13+0])[0]; r[13+1] = (r[12]); r[13+2] = r[1]; r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 195: /* clo k s */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k s */ { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = (mknull()); *--hp = (cx__23965); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); r[3+2] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 196: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; r[1+11] = p[10]; r[1+12] = p[11]; } r += 1; /* shift reg. wnd */ /* ek . incs defs globals add-nl sfcs roots cases liveregs code k main? */ hreserve(hbsz(11+1), 13); /* 13 live regs */ *--hp = (r[12]); *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(197); r[13] = (hendblk(11+1)); r[0] = (cx_display_2Dtext); pc = objptr_from_obj(r[0])[0]; r[1] = (r[13]); r[2] = (cx__231468); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 197: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; r[1+11] = p[10]; r[1+12] = p[11]; } r += 1; /* shift reg. wnd */ /* ek . incs defs globals add-nl sfcs roots cases liveregs code k main? */ hreserve(hbsz(11+1), 13); /* 13 live regs */ *--hp = (r[12]); *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(198); r[13] = (hendblk(11+1)); r[0] = (cx_display_2Dtext); pc = objptr_from_obj(r[0])[0]; r[1] = (r[13]); r[2] = (cx_code_2Dstandard_2Dincludes); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 198: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; r[1+11] = p[10]; r[1+12] = p[11]; } r += 1; /* shift reg. wnd */ /* ek . incs defs globals add-nl sfcs roots cases liveregs code k main? */ hreserve(hbsz(10+1), 13); /* 13 live regs */ *--hp = (r[12]); *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(199); r[13] = (hendblk(10+1)); if ((ispair((r[2])))) { hreserve(hbsz(2+1), 14); /* 14 live regs */ *--hp = (r[13]); *--hp = r[2]; *--hp = obj_from_case(228); r[14] = (hendblk(2+1)); r[0] = (cx_display_2Dtext); pc = objptr_from_obj(r[0])[0]; r[1] = (r[14]); r[2] = (cx__231464); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[0] = obj_from_ktrap(); r[1] = obj_from_void(0); r[2] = r[3]; r[3] = r[4]; r[4] = r[5]; r[5] = r[6]; r[6] = r[7]; r[7] = r[8]; r[8] = r[9]; r[9] = (r[10]); r[10] = (r[11]); r[11] = (r[12]); goto s_l_v3104; } case 199: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; r[1+11] = p[10]; } r += 1; /* shift reg. wnd */ s_l_v3104: /* ek . defs globals add-nl sfcs roots cases liveregs code k main? */ hreserve(hbsz(10+1), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(200); r[12] = (hendblk(10+1)); r[0] = (cx_display_2Dtext); pc = objptr_from_obj(r[0])[0]; r[1] = (r[12]); r[2] = (cx__231463); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 200: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; r[1+11] = p[10]; } r += 1; /* shift reg. wnd */ /* ek . defs globals add-nl sfcs roots cases liveregs code k main? */ hreserve(hbsz(10+1), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(201); r[12] = (hendblk(10+1)); r[0] = (cx_display_2Dtext); pc = objptr_from_obj(r[0])[0]; r[1] = (r[12]); r[2] = (cx_code_2Dstandard_2Ddefinitions); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 201: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; r[1+11] = p[10]; } r += 1; /* shift reg. wnd */ /* ek . defs globals add-nl sfcs roots cases liveregs code k main? */ hreserve(hbsz(9+1), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(202); r[12] = (hendblk(9+1)); if ((ispair((r[2])))) { hreserve(hbsz(3+1), 13); /* 13 live regs */ *--hp = (r[12]); *--hp = r[2]; *--hp = r[4]; *--hp = obj_from_case(224); r[13] = (hendblk(3+1)); r[0] = (cx_display_2Dtext); pc = objptr_from_obj(r[0])[0]; r[1] = (r[13]); r[2] = (cx__231459); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[0] = obj_from_ktrap(); r[1] = obj_from_void(0); r[2] = r[3]; r[3] = r[4]; r[4] = r[5]; r[5] = r[6]; r[6] = r[7]; r[7] = r[8]; r[8] = r[9]; r[9] = (r[10]); r[10] = (r[11]); goto s_l_v3139; } case 202: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ s_l_v3139: /* ek . globals add-nl sfcs roots cases liveregs code k main? */ hreserve(hbsz(9+1), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(203); r[11] = (hendblk(9+1)); r[0] = (cx_display_2Dtext); pc = objptr_from_obj(r[0])[0]; r[1] = (r[11]); r[2] = (cx__231448); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 203: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek . globals add-nl sfcs roots cases liveregs code k main? */ hreserve(hbsz(8+1), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(204); r[11] = (hendblk(8+1)); r[0] = (cx_display_2Dtext); pc = objptr_from_obj(r[0])[0]; r[1] = (r[11]); /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 204: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ /* ek . add-nl sfcs roots cases liveregs code k main? */ hreserve(hbsz(6+1), 10); /* 10 live regs */ *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(205); r[10] = (hendblk(6+1)); if ((ispair((r[3])))) { hreserve(hbsz(3+1), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(220); r[11] = (hendblk(3+1)); r[0] = (cx_display_2Dtext); pc = objptr_from_obj(r[0])[0]; r[1] = (r[11]); r[2] = (cx__231445); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[0] = obj_from_ktrap(); r[1] = obj_from_void(0); r[2] = r[4]; r[3] = r[5]; r[4] = r[6]; r[5] = r[7]; r[6] = r[8]; r[7] = r[9]; goto s_l_v3174; } case 205: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ s_l_v3174: /* ek . roots cases liveregs code k main? */ hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(206); r[8] = (hendblk(6+1)); r[0] = (cx_display_2Dtext); pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; r[2] = (cx__231434); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 206: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek . roots cases liveregs code k main? */ hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(207); r[8] = (hendblk(5+1)); r[0] = (cx_display_2Dtext); pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 207: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek . cases liveregs code k main? */ hreserve(hbsz(5+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(208); r[7] = (hendblk(5+1)); r[0] = (cx_display_2Dtext); pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; r[2] = (cx__231433); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 208: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek . cases liveregs code k main? */ hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(209); r[7] = (hendblk(4+1)); r[0] = (cx_display_2Dtext); pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 209: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek . liveregs code k main? */ hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(210); r[6] = (hendblk(4+1)); r[0] = (cx_display_2Dtext); pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = (cx__231432); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 210: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek . liveregs code k main? */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(211); r[6] = (hendblk(3+1)); r[0] = (cx_display_2Dtext); pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 211: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . code k main? */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(212); r[5] = (hendblk(3+1)); r[0] = (cx_display_2Dtext); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = (cx_code_2Dhost_2Dprologue); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 212: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . code k main? */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(213); r[5] = (hendblk(2+1)); r[0] = (cx_display_2Dtext); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 213: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k main? */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(214); r[4] = (hendblk(2+1)); r[0] = (cx_display_2Dtext); pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = (cx_code_2Dhost_2Depilogue); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 214: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k main? */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(215); r[4] = (hendblk(2+1)); r[0] = (cx_display_2Dtext); pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = (cx__231429); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 215: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k main? */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(216); r[4] = (hendblk(2+1)); r[0] = (cx_display_2Dtext); pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = (cx_code_2Dmodule); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 216: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k main? */ if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = obj_from_case(217); r[4] = (hendblk(1+1)); r[0] = (cx_display_2Dtext); pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = (cx__231424); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 217: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek . k */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(218); r[3] = (hendblk(1+1)); r[0] = (cx_display_2Dtext); pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; r[2] = (cx_code_2Druntime); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 218: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek . k */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(219); r[3] = (hendblk(1+1)); r[0] = (cx_display_2Dtext); pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; r[2] = (cx__231422); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 219: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek . k */ r[0] = (cx_display_2Dtext); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; r[2] = (cx_code_2Dmain); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 220: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . add-nl sfcs k */ hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = obj_from_case(223); r[5] = (hendblk(1+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto s_loop_v3152; s_loop_v3152: /* k id add-nl */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(221); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v3152; } case 221: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r add-nl id k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(222); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = (car((r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 222: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 223: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ r[3+0] = (cx_display_2Dtext); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[2]; r[3+2] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 224: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . add-nl defs k */ hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = obj_from_case(227); r[5] = (hendblk(1+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto s_loop_v3117; s_loop_v3117: /* k id add-nl */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(225); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v3117; } case 225: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r add-nl id k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(226); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = (car((r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 226: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 227: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ r[3+0] = (cx_display_2Dtext); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[2]; r[3+2] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 228: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . incs k */ r[0] = (cx_display_2Dtext); pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 229: /* main k argv */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k argv */ hreserve(hbsz(1), 2); /* 2 live regs */ *--hp = obj_from_void(0); r[2] = (hendblk(1)); hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(230); r[3] = (hendblk(0+1)); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = r[3]; *--hp = obj_from_case(233); r[3] = (hendblk(3+1)); r[4+0] = r[3]; r[4+1] = (mknull()); r[4+2] = obj_from_fixnum(0); r[4+3] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v3062; case 230: /* clo k */ assert(rc == 2); r += 1; /* shift reg. wnd */ /* k */ hreserve(hbsz(1+1), 1); /* 1 live regs */ *--hp = r[0]; *--hp = obj_from_case(231); r[1] = (hendblk(1+1)); r[2+0] = (cx_fprintf_2A); pc = objptr_from_obj(r[2+0])[0]; r[2+1] = r[1]; r[2+2] = (cx__2Acurrent_2Doutput_2Dport_2A); r[2+3] = (cx__231535); r[2+4] = (mknull()); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 231: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek . k */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(232); r[3] = (hendblk(1+1)); r[4+0] = (cx_fprintf_2A); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = (cx__2Acurrent_2Doutput_2Dport_2A); r[4+3] = (cx__231534); r[4+4] = (mknull()); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 232: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek . k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(1); rreserve(MAX_HOSTREGS); rc = 3; goto jump; s_loop_v3062: /* k r i argv */ { const fixnum_t v4567_i = fixnum_from_obj(r[2]); { /* argv-ref */ int i = (v4567_i); char *s = ((char **)((r[3])))[i]; if (s) r[4] = (hpushstr(4, newstring(s))); else r[4] = obj_from_bool(0); } if (bool_from_obj(r[4])) { { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } /* r[0] */ r[1] = r[5]; r[2] = obj_from_fixnum((v4567_i) + (1)); /* r[3] */ goto s_loop_v3062; } else { { /* reverse! */ obj t, v = mknull(), l = r[1]; while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t; r[5] = (v); } r[6+0] = r[0]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = obj_from_ktrap(); r[6+2] = r[5]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } case 233: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r about k args */ r[5] = (cdr((r[1]))); (void)(objptr_from_obj(r[4])[0] = (r[5])); r[6] = (objptr_from_obj(r[4])[0]); r[6] = obj_from_bool(isnull((r[6]))); if (bool_from_obj(r[6])) { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; rreserve(MAX_HOSTREGS); rc = 2; goto jump; } else { r[6] = (objptr_from_obj(r[4])[0]); r[0] = r[3]; r[1] = r[6]; /* r[2] */ goto s_loop_v3023; } case 234: /* clo k args */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v3023: /* k args about */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(234); r[3] = (hendblk(1+1)); if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[4] = (car((r[1]))); r[4] = obj_from_bool(strcmp(stringchars((r[4])), stringchars((cx__231582))) == 0); if (bool_from_obj(r[4])) { cx__2Ashowlog_2A = obj_from_bool(1); r[4] = (cdr((r[1]))); /* r[0] */ r[1] = r[4]; /* r[2] */ goto s_loop_v3023; } else { r[4] = (car((r[1]))); r[4] = obj_from_bool(strcmp(stringchars((r[4])), stringchars((cx__231576))) == 0); if (bool_from_obj(r[4])) { cx__2Awarnings_2A = obj_from_bool(1); r[4] = (cdr((r[1]))); /* r[0] */ r[1] = r[4]; /* r[2] */ goto s_loop_v3023; } else { r[4] = (car((r[1]))); r[4] = obj_from_bool(strcmp(stringchars((r[4])), stringchars((cx__231570))) == 0); if (bool_from_obj(r[4])) { cx__2Asilent_2A = obj_from_bool(0); r[4] = (cdr((r[1]))); /* r[0] */ r[1] = r[4]; /* r[2] */ goto s_loop_v3023; } else { r[4] = (car((r[1]))); r[4] = obj_from_bool(strcmp(stringchars((r[4])), stringchars((cx__231564))) == 0); if (bool_from_obj(r[4])) { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = obj_from_case(235); r[4] = (hendblk(1+1)); r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 2; goto jump; } else { r[4] = (car((r[1]))); r[4] = obj_from_bool(strcmp(stringchars((r[4])), stringchars((cx__23911))) == 0); if (bool_from_obj(r[4])) { /* r[0] */ r[1] = (cx__23911); goto gs_compile_2Dfile; } else { { bool_t v4566_tmp; r[4] = (car((r[1]))); { /* file-exists? */ FILE *f = fopen(stringchars((r[4])), "r"); if (f != NULL) fclose(f); v4566_tmp = (f != NULL); } r[4] = obj_from_bool(!(v4566_tmp)); } if (bool_from_obj(r[4])) { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = obj_from_case(236); r[4] = (hendblk(1+1)); r[5] = (car((r[1]))); { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[6+0] = (cx_fprintf_2A); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[4]; r[6+2] = (cx__2Acurrent_2Doutput_2Dport_2A); r[6+3] = (cx__231555); r[6+4] = r[5]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(237); r[4] = (hendblk(3+1)); if (bool_from_obj(cx__2Ashowlog_2A)) { r[5] = (car((r[1]))); { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[6+0] = (cx_fprintf_2A); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[4]; r[6+2] = (cx__2Acurrent_2Doutput_2Dport_2A); r[6+3] = (cx__231549); r[6+4] = r[5]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { r[5+0] = obj_from_ktrap(); r[5+1] = obj_from_void(0); r[5+2] = r[3]; r[5+3] = r[1]; r[5+4] = r[0]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v3025; } } } } } } } } case 235: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek . k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 236: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek . k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(1); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 237: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ s_l_v3025: /* ek . loop args k */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(238); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = (car((r[3]))); goto gs_compile_2Dfile; case 238: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r loop args k */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(239); r[5] = (hendblk(3+1)); if (bool_from_obj(cx__2Ashowlog_2A)) { { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[7+0] = (cx_fprintf_2A); pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[5]; r[7+2] = (cx__2Acurrent_2Doutput_2Dport_2A); r[7+3] = (cx__231545); r[7+4] = r[6]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { r[0] = obj_from_ktrap(); r[1] = obj_from_void(0); /* r[2] */ /* r[3] */ /* r[4] */ goto s_l_v3029; } case 239: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ s_l_v3029: /* ek . loop args k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = (cdr((r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; default: /* inter-host call */ cxg_hp = hp; cxm_rgc(r, MAX_HOSTREGS); cxg_rc = rc; return pc; } } /* module load */ void MODULE(void) { obj pc; if (!root.next) { root.next = cxg_rootp; cxg_rootp = &root; LOAD(); pc = obj_from_case(0); cxg_rc = 0; while (pc) pc = (*(cxhost_t*)pc)(pc); assert(cxg_rc == 2); } } /* basic runtime */ #define HEAP_SIZE 131072 /* 2^17 */ #define REGS_SIZE 4092 obj *cxg_heap = NULL; cxoint_t cxg_hmask = 0; obj *cxg_hp = NULL; static cxroot_t cxg_root = { 0, NULL, NULL }; cxroot_t *cxg_rootp = &cxg_root; obj *cxg_regs = NULL, *cxg_rend = NULL; int cxg_rc = 0; char **cxg_argv = NULL; static obj *cxg_heap2 = NULL; static size_t cxg_hsize = 0; static cxoint_t cxg_hmask2 = 0; static int cxg_gccount = 0, cxg_bumpcount = 0; static obj *toheap2(obj* p, obj *hp, obj *h1, cxoint_t m1, obj *h2, cxoint_t m2) { obj o = *p, *op, fo, *fop; if (((char*)(o) - (char*)h1) & m1) return hp; fo = (op = objptr_from_obj(o))[-1]; assert(fo); if (notaptr(fo)) { fop = op + size_from_obj(fo); while (fop >= op) *--hp = *--fop; *p = *fop = obj_from_objptr(hp+1); } else if (((char*)(fo) - (char*)h2) & m2) { *--hp = *op--; *--hp = *op; *p = *op = obj_from_objptr(hp+1); } else *p = fo; return hp; } static void finalize(obj *hp1, obj *he1, obj *h2, cxoint_t m2) { while (hp1 < he1) { obj fo = *hp1++; assert(fo); if (notaptr(fo)) hp1 += size_from_obj(fo); else if (((char*)(fo) - (char*)h2) & m2) ((cxtype_t*)fo)->free((void*)*hp1++); else if (notaptr(fo = objptr_from_obj(fo)[-1])) hp1 += size_from_obj(fo); else ++hp1; } assert(hp1 == he1); } static obj *relocate(cxroot_t *pr, obj *regs, obj *regp, obj *he2, obj *he1, obj *hp, obj *h1, cxoint_t m1, obj *h2, cxoint_t m2) { obj *p, *hp1 = hp; hp = he2; for (p = regs; p < regp; ++p) hp = toheap2(p, hp, h1, m1, h2, m2); for (; pr; pr = pr->next) { obj **pp = pr->globv; int c = pr->globc; while (c-- > 0) hp = toheap2(*pp++, hp, h1, m1, h2, m2); } for (p = he2; p > hp; --p) hp = toheap2(p-1, hp, h1, m1, h2, m2); if (he1) finalize(hp1, he1, h2, m2); return hp; } obj *cxm_hgc(obj *regs, obj *regp, obj *hp, size_t needs) { obj *h1 = cxg_heap, *h2 = cxg_heap2; cxoint_t m1 = cxg_hmask, m2 = cxg_hmask2; size_t hs = cxg_hsize; cxroot_t *pr = cxg_rootp; obj *h = h1, *he1 = h1 + hs, *he2 = h2 + hs; ++cxg_gccount; if (h1) hp = relocate(pr, regs, regp, he2, he1, hp, h1, m1, h2, m2), needs += (h2 + hs - hp)*2; /* make heap half empty */ else hp = h2 + hs; if (hs < needs) { size_t s = HEAP_SIZE; while (s < needs) s *= 2; m2 = 1 | ~(s*sizeof(obj)-1); if (!(h = realloc(h1, s*sizeof(obj)))) { perror("alloc[h]"); exit(2); } h1 = h2; h2 = h; he2 = h2 + s; he1 = 0; /* no finalize flag */ if (h1) hp = relocate(pr, regs, regp, he2, he1, hp, h1, m1, h2, m2); else hp = h2 + s; if (!(h = realloc(h1, s*sizeof(obj)))) { perror("alloc[h]"); exit(2); } hs = s; m1 = m2; ++cxg_bumpcount; } h1 = h2; h2 = h; cxg_heap = h1; cxg_hmask = m1; cxg_heap2 = h2; cxg_hmask2 = m2; cxg_hsize = hs; return cxg_hp = hp; } obj *cxm_rgc(obj *regs, size_t needs) { obj *p = cxg_regs; assert(needs > 0); if (!p || cxg_rend < p + needs) { size_t roff = regs ? regs - p : 0; if (!(p = realloc(p, needs*sizeof(obj)))) { perror("alloc[r]"); exit(2); } cxg_regs = p; cxg_rend = p + needs; regs = p + roff; } if (regs && regs > p) while (needs--) *p++ = *regs++; return cxg_regs; } void cxm_check(int x, char *msg) { if (!x) { perror(msg); exit(2); } } void *cxm_cknull(void *p, char *msg) { cxm_check(p != NULL, msg); return p; } /* os entry point */ int main(int argc, char **argv) { int res; obj pc; obj retcl[1] = { 0 }; cxm_rgc(NULL, REGS_SIZE); cxg_argv = argv; MODULE(); cxg_regs[0] = cx_main; cxg_regs[1] = (obj)retcl; cxg_regs[2] = (obj)argv; cxg_rc = 3; pc = objptr_from_obj(cx_main)[0]; while (pc) pc = (*(cxhost_t*)pc)(pc); assert(cxg_rc == 3); res = (cxg_regs[2] != 0); /* fprintf(stderr, "%d collections, %d reallocs\n", cxg_gccount, cxg_bumpcount); */ return res; }