/* 3.sf */ /* Generated by #F $Id$ */ #ifdef PROFILE #define host host_module_3 #endif #define MODULE module_3 #define LOAD() module_0(); extern void module_0(void); /* 0.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_c_2Dargref_2Dctype; /* c-argref-ctype */ extern obj cx_c_2Dundecorate_2Dalvar; /* c-undecorate-alvar */ extern obj cx_fixnum_2D_3Estring; /* fixnum->string */ extern obj cx_flonum_2D_3Estring; /* flonum->string */ extern obj cx_fprintf_2A; /* fprintf* */ extern obj cx_letrec_2Dexp; /* letrec-exp */ extern obj cx_prim_2Dctype; /* prim-ctype */ extern obj cx_reset; /* reset */ extern obj cx_symbol_2A; /* symbol* */ extern obj cx_timestamp; /* timestamp */ extern obj cx_write_2F3; /* write/3 */ obj cx__2Amemoization_2Dlimit_2A; /* *memoization-limit* */ obj cx__2Amemoization_2Doptsz_2A; /* *memoization-optsz* */ obj cx__3Cid_3E_3F; /* ? */ obj cx__3Cliteral_3E_3F; /* ? */ obj cx_begin_2Did_2Dsymbol; /* begin-id-symbol */ obj cx_c_2Derror_2A; /* c-error* */ obj cx_exp_2D_3Efree_2Dlexvars; /* exp->free-lexvars */ obj cx_exp_2D_3Efree_2Dvars; /* exp->free-vars */ obj cx_exp_2Dctype; /* exp-ctype */ obj cx_exp_2Dvinfo; /* exp-vinfo */ obj cx_id_2D_3Euname; /* id->uname */ obj cx_id_3C_3F; /* idstring */ obj cx_string_2Dforest_2Dlength; /* string-forest-length */ obj cx_string_2Dforest_3F; /* string-forest? */ obj cx_symbol_2A; /* symbol* */ obj cx_the_2Dhalt_2Dprim; /* the-halt-prim */ obj cx_timestamp; /* timestamp */ obj cx_var_2Dassigned_2Din_2Dexp_3F; /* var-assigned-in-exp? */ obj cx_var_2Dassignment_2Dcount; /* var-assignment-count */ obj cx_var_2Donly_2Dapplied_2Din_2Dexp_3F; /* var-only-applied-in-exp? */ obj cx_var_2Dreference_2Dcount; /* var-reference-count */ obj cx_var_2Dreferenced_2Din_2Dexp_3F; /* var-referenced-in-exp? */ obj cx_var_2Dunboxed_2Dctype_2Din_2Dexp; /* var-unboxed-ctype-in-exp */ obj cx_var_2Duse_2Dunboxed_2Dctype; /* var-use-unboxed-ctype */ obj cx_var_2Duses_2Din_2Dexp; /* var-uses-in-exp */ static obj cx__231011; /* constant #1011 */ static obj cx__231040; /* constant #1040 */ static obj cx__231069; /* constant #1069 */ static obj cx__231097; /* constant #1097 */ static obj cx__231108; /* constant #1108 */ static obj cx__231109; /* constant #1109 */ static obj cx__231126; /* constant #1126 */ static obj cx__231131; /* constant #1131 */ static obj cx__231146; /* constant #1146 */ static obj cx__231171; /* constant #1171 */ static obj cx__2312; /* constant #12 */ static obj cx__231241; /* constant #1241 */ static obj cx__231281; /* constant #1281 */ static obj cx__231303; /* constant #1303 */ static obj cx__231320; /* constant #1320 */ static obj cx__231338; /* constant #1338 */ static obj cx__231360; /* constant #1360 */ static obj cx__231406; /* constant #1406 */ static obj cx__231409; /* constant #1409 */ static obj cx__231411; /* constant #1411 */ static obj cx__231415; /* constant #1415 */ static obj cx__23170; /* constant #170 */ static obj cx__231755; /* constant #1755 */ static obj cx__23184; /* constant #184 */ static obj cx__2319; /* constant #19 */ static obj cx__23204; /* constant #204 */ static obj cx__23240; /* constant #240 */ static obj cx__23337; /* constant #337 */ static obj cx__23420; /* constant #420 */ static obj cx__23744; /* constant #744 */ static obj cx__23779; /* constant #779 */ static obj cx__23785; /* constant #785 */ static obj cx__23811; /* constant #811 */ static obj cx__23834; /* constant #834 */ static obj cx__23852; /* constant #852 */ static obj cx__23868; /* constant #868 */ static obj cx__23895; /* constant #895 */ static obj cx__23924; /* constant #924 */ static obj cx__23953; /* constant #953 */ static obj cx__23982; /* constant #982 */ static obj cx_keep_231452; /* constant keep#1452 */ /* helper functions */ /* global-id-constant?#248 */ static obj cxs_global_2Did_2Dconstant_3F_23248(obj v250_id) { return ((fixnum_from_obj(car((cdr((cdr((v250_id))))))) < (+0)) ? (car((cdr((cdr((cdr((v250_id))))))))) : obj_from_bool(0)); } /* global-id-private-constant?#267 */ static obj cxs_global_2Did_2Dprivate_2Dconstant_3F_23267(obj v269_id) { return ((fixnum_from_obj(car((cdr((cdr((v269_id))))))) < (+0)) ? obj_from_bool((car((cdr((cdr((cdr((v269_id))))))))) == (mksymbol(internsym("private")))) : obj_from_bool(0)); } /* label-id?#305 */ static obj cxs_label_2Did_3F_23305(obj v307_id) { return ((!(fixnum_from_obj(car((cdr((cdr((v307_id))))))) < (+0))) ? obj_from_bool((car((cdr((cdr((cdr((v307_id))))))))) == obj_from_bool(1)) : obj_from_bool(0)); } /* lookupicate#647 */ static obj cxs_lookupicate_23647(obj v650_sym, obj v649_env) { s_lookupicate_23647: if ((isnull((v649_env)))) { return obj_from_bool(0); } else { { /* let */ obj v2142_tmp; { /* let */ obj v2145_tmp; { /* let */ obj v654_x = (car((v649_env))); v2145_tmp = (car((cdr((v654_x))))); } v2142_tmp = obj_from_bool((v2145_tmp) == (v650_sym)); } if (bool_from_obj(v2142_tmp)) { return (car((v649_env))); } else { { /* let */ obj v2144_tmp = (cdr((v649_env))); obj v2143_tmp = (v650_sym); /* tail call */ v650_sym = (v2143_tmp); v649_env = (v2144_tmp); goto s_lookupicate_23647; } } } } } /* let-exp?#1874 */ static obj cxs_let_2Dexp_3F_231874(obj v1876_exp) { if (bool_from_obj((isvector((v1876_exp))) ? (((vectorlen((v1876_exp))) == (+3)) ? obj_from_bool((vectorref((v1876_exp), (+0))) == (mksymbol(internsym("app-exp")))) : obj_from_bool(0)) : obj_from_bool(0))) { { /* let */ obj v1880_rator = (vectorref((v1876_exp), (+1))); if (bool_from_obj((isvector((v1880_rator))) ? (((vectorlen((v1880_rator))) == (+3)) ? obj_from_bool((vectorref((v1880_rator), (+0))) == (mksymbol(internsym("lambda-exp")))) : obj_from_bool(0)) : obj_from_bool(0))) { { /* let */ obj v2141_tmp; obj v2140_tmp; { /* length */ int n; obj l = (vectorref((v1876_exp), (+2))); for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v2141_tmp = obj_from_fixnum(n); }; { /* length */ int n; obj l = (vectorref((v1880_rator), (+1))); for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v2140_tmp = obj_from_fixnum(n); }; return obj_from_bool(fixnum_from_obj(v2140_tmp) == fixnum_from_obj(v2141_tmp)); } } else { return obj_from_bool(0); } } } else { return obj_from_bool(0); } } /* posq */ static obj cxs_posq(obj v71_x, obj v70_lst) { { /* letrec */ obj v74_lst; obj v73_i; { /* let */ obj v2139_tmp = obj_from_fixnum(+0); obj v2138_tmp = (v70_lst); /* tail call */ v74_lst = (v2138_tmp); v73_i = (v2139_tmp); goto s_loop; } s_loop: if ((isnull((v74_lst)))) { return obj_from_bool(0); } else { if (((car((v74_lst))) == (v71_x))) { return (v73_i); } else { { /* let */ obj v2137_tmp = obj_from_fixnum(fixnum_from_obj(v73_i) + (+1)); obj v2136_tmp = (cdr((v74_lst))); /* tail call */ v74_lst = (v2136_tmp); v73_i = (v2137_tmp); goto s_loop; } } } } } /* labelapp-exp? */ static obj cxs_labelapp_2Dexp_3F(obj v298_exp) { if (bool_from_obj((isvector((v298_exp))) ? (((vectorlen((v298_exp))) == (+3)) ? obj_from_bool((vectorref((v298_exp), (+0))) == (mksymbol(internsym("app-exp")))) : obj_from_bool(0)) : obj_from_bool(0))) { { /* let */ obj v2135_tmp; { /* let */ obj v322_object = (vectorref((v298_exp), (+1))); v2135_tmp = ((isvector((v322_object))) ? (((vectorlen((v322_object))) == (+2)) ? obj_from_bool((vectorref((v322_object), (+0))) == (mksymbol(internsym("var-exp")))) : obj_from_bool(0)) : obj_from_bool(0)); } return (bool_from_obj(v2135_tmp) ? (cxs_label_2Did_3F_23305((vectorref((vectorref((v298_exp), (+1))), (+1))))) : obj_from_bool(0)); } } else { return obj_from_bool(0); } } /* ? */ static obj cxs__3Cliteral_3E_3F(obj v464_x) { return ((is_fixnum_obj(v464_x)) ? obj_from_bool(is_fixnum_obj(v464_x)) : obj_from_bool(is_bool_obj(v464_x))); } /* string-forest-length */ static obj cxs_string_2Dforest_2Dlength(obj v497_x) { if ((isstring((v497_x)))) { return obj_from_fixnum(stringlen((v497_x))); } else { if ((isnull((v497_x)))) { return obj_from_fixnum(+0); } else { if ((ispair((v497_x)))) { return obj_from_fixnum(fixnum_from_obj(cxs_string_2Dforest_2Dlength((car((v497_x))))) + fixnum_from_obj(cxs_string_2Dforest_2Dlength((cdr((v497_x)))))); } else { { /* letrec */ obj v502_i; obj v501_sum; { /* let */ obj v2134_tmp = obj_from_fixnum(+0); obj v2133_tmp = obj_from_fixnum(+0); /* tail call */ v502_i = (v2133_tmp); v501_sum = (v2134_tmp); goto s_loop; } s_loop: if ((fixnum_from_obj(v502_i) < (vectorlen((v497_x))))) { { /* let */ obj v2132_tmp = obj_from_fixnum(fixnum_from_obj(v501_sum) + fixnum_from_obj(cxs_string_2Dforest_2Dlength((vectorref((v497_x), fixnum_from_obj(v502_i)))))); obj v2131_tmp = obj_from_fixnum(fixnum_from_obj(v502_i) + (+1)); /* tail call */ v502_i = (v2131_tmp); v501_sum = (v2132_tmp); goto s_loop; } } else { return (v501_sum); } } } } } } /* var-use-unboxed-ctype */ static obj cxs_var_2Duse_2Dunboxed_2Dctype(obj v1750_vu) { { /* let */ obj v1754_prt = (vectorref((v1750_vu), (+3))); return ((isstring((v1754_prt))) ? ((!bool_from_obj(ismember((v1754_prt), (cx__231755)))) ? (v1754_prt) : obj_from_bool(0)) : obj_from_bool(0)); } } /* gc roots */ static obj *globv[] = { &cx__2Amemoization_2Dlimit_2A, &cx__2Amemoization_2Doptsz_2A, &cx_begin_2Did_2Dsymbol, &cx_exp_2D_3Efree_2Dlexvars, &cx_exp_2D_3Efree_2Dvars, &cx_exp_2Dvinfo, &cx_keywords, &cx_last_2Did_2Dtimestamp, &cx_the_2Dhalt_2Dprim, &cx_var_2Duses_2Din_2Dexp, &cx__231011, &cx__231040, &cx__231069, &cx__231097, &cx__231108, &cx__231109, &cx__231126, &cx__231131, &cx__231146, &cx__231171, &cx__2312, &cx__231241, &cx__231281, &cx__231303, &cx__231320, &cx__231338, &cx__231360, &cx__231406, &cx__231409, &cx__231411, &cx__231415, &cx__23170, &cx__231755, &cx__23184, &cx__2319, &cx__23204, &cx__23240, &cx__23337, &cx__23420, &cx__23744, &cx__23779, &cx__23785, &cx__23811, &cx__23834, &cx__23852, &cx__23868, &cx__23895, &cx__23924, &cx__23953, &cx__23982, }; static cxroot_t root = { sizeof(globv)/sizeof(obj *), globv, NULL }; /* entry points */ static obj host(obj); static obj cases[236] = { (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 36 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 */ cx__2312 = (hpushstr(0, newstring(" "))); cx__2319 = (hpushstr(0, newstring("Compiler error: "))); cx__23170 = (hpushstr(0, newstring("."))); cx__23184 = (hpushstr(0, newstring(":"))); cx__23204 = (hpushstr(0, newstring("::"))); { static char s[] = { 36, 0 }; cx__23240 = (hpushstr(0, newstring(s))); } { static char s[] = { 114, 91, 36, 108, 105, 118, 101, 43, 48, 93, 32, 61, 32, 114, 91, 48, 93, 59, 10, 32, 32, 32, 32, 112, 99, 32, 61, 32, 48, 59, 32, 47, 42, 32, 101, 120, 105, 116, 32, 102, 114, 111, 109, 32, 109, 111, 100, 117, 108, 101, 32, 105, 110, 105, 116, 32, 42, 47, 10, 32, 32, 32, 32, 114, 91, 36, 108, 105, 118, 101, 43, 49, 93, 32, 61, 32, 111, 98, 106, 95, 102, 114, 111, 109, 95, 36, 97, 114, 103, 59, 10, 32, 32, 32, 32, 114, 32, 43, 61, 32, 36, 108, 105, 118, 101, 59, 32, 47, 42, 32, 115, 104, 105, 102, 116, 32, 114, 101, 103, 32, 119, 110, 100, 32, 42, 47, 10, 32, 32, 32, 32, 114, 99, 32, 61, 32, 50, 59, 10, 32, 32, 32, 32, 103, 111, 116, 111, 32, 106, 117, 109, 112, 59, 0 }; cx__23337 = (hpushstr(0, newstring(s))); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("%localdef"))); *--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); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("%prim*?!"))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("%prim*"))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("%prim?!"))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("%prim"))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("%const"))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("%quote"))); *--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); 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("%include"))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("withcc"))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("letcc"))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("letrec"))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("lambda"))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("if"))); *--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); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("begin"))); *--hp = obj_from_size(PAIR_BTAG); cx__23420 = (hendblk(3)); } cx__23744 = (hpushstr(0, newstring("#"))); cx__23779 = (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 = (mknull()); *--hp = (mksymbol(internsym("*"))); *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[1]; *--hp = (mksymbol(internsym(""))); *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("letrec"))); *--hp = obj_from_size(PAIR_BTAG); cx__23785 = (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__23811 = (hendblk(3)); } cx__23834 = (hpushstr(0, newstring("void(0)"))); cx__23852 = (hpushstr(0, newstring("syntax error in expression"))); { /* 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("*"))); *--hp = obj_from_size(PAIR_BTAG); cx__23868 = (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(""))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("%prim*?!"))); *--hp = obj_from_size(PAIR_BTAG); cx__23895 = (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(""))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("%prim*!"))); *--hp = obj_from_size(PAIR_BTAG); cx__23924 = (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(""))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("%prim*?"))); *--hp = obj_from_size(PAIR_BTAG); cx__23953 = (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(""))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("%prim?!"))); *--hp = obj_from_size(PAIR_BTAG); cx__23982 = (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(""))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("%prim!"))); *--hp = obj_from_size(PAIR_BTAG); cx__231011 = (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(""))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("%prim?"))); *--hp = obj_from_size(PAIR_BTAG); cx__231040 = (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(""))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("%prim*"))); *--hp = obj_from_size(PAIR_BTAG); cx__231069 = (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(""))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("%prim"))); *--hp = obj_from_size(PAIR_BTAG); cx__231097 = (hendblk(3)); } cx__231108 = (hpushstr(0, newstring("unsupported constant syntax"))); { /* 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("%const"))); *--hp = obj_from_size(PAIR_BTAG); cx__231109 = (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("%prim"))); *--hp = obj_from_size(PAIR_BTAG); cx__231126 = (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("%quote"))); *--hp = obj_from_size(PAIR_BTAG); cx__231131 = (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("withcc"))); *--hp = obj_from_size(PAIR_BTAG); cx__231146 = (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("letcc"))); *--hp = obj_from_size(PAIR_BTAG); cx__231171 = (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 = (mknull()); *--hp = (mksymbol(internsym("..."))); *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("*"))); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = (mksymbol(internsym(""))); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("letrec"))); *--hp = obj_from_size(PAIR_BTAG); cx__231241 = (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 = (mknull()); *--hp = (mksymbol(internsym("..."))); *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[1]; *--hp = (mksymbol(internsym(""))); *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("lambda"))); *--hp = obj_from_size(PAIR_BTAG); cx__231281 = (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("begin"))); *--hp = obj_from_size(PAIR_BTAG); cx__231303 = (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("set!"))); *--hp = obj_from_size(PAIR_BTAG); cx__231320 = (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("if"))); *--hp = obj_from_size(PAIR_BTAG); cx__231338 = (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("*"))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("if"))); *--hp = obj_from_size(PAIR_BTAG); cx__231360 = (hendblk(3)); } { static char s[] = { 46, 10, 0 }; cx__231406 = (hpushstr(0, newstring(s))); } cx__231409 = (hpushstr(0, newstring("no clause matches ~s"))); cx__231411 = (hpushstr(0, newstring("Error: "))); cx__231415 = (hpushstr(0, newstring("Error in ~a: "))); { static obj c[] = { obj_from_case(1) }; cx_keep_231452 = (obj)c; } r[0] = (hpushstr(0, newstring("void"))); { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = (mknull()); *--hp = r[0]; *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } r[1] = (hpushstr(1, newstring("objptr"))); { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } r[1] = (hpushstr(1, newstring("obj"))); { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); cx__231755 = (hendblk(3)); } { static obj c[] = { obj_from_case(4) }; cx_c_2Derror_2A = (obj)c; } { static obj c[] = { obj_from_case(11) }; cx_reduce_2Dright = (obj)c; } { static obj c[] = { obj_from_case(13) }; cx_reduce_2Dleft = (obj)c; } { static obj c[] = { obj_from_case(15) }; cx_reduce_2Dright_2Fsingular_2Didentity = (obj)c; } { static obj c[] = { obj_from_case(17) }; cx_reduce_2Dright_2Fright_2Dseed = (obj)c; } { static obj c[] = { obj_from_case(19) }; cx_posq = (obj)c; } { static obj c[] = { obj_from_case(20) }; cx_string_2Dappend_2A = (obj)c; } { static obj c[] = { obj_from_case(23) }; cx_symbol_2A = (obj)c; } { static obj c[] = { obj_from_case(28) }; cx_id_3C_3F = (obj)c; } cx_last_2Did_2Dtimestamp = obj_from_fixnum(+0); { static obj c[] = { obj_from_case(29) }; cx_reset_2Dtimestamps = (obj)c; } { static obj c[] = { obj_from_case(30) }; cx_timestamp = (obj)c; } { static obj c[] = { obj_from_case(31) }; cx_id_2D_3Euname = (obj)c; } hreserve(hbsz(0+1), 0); /* 0 live regs */ *--hp = obj_from_case(32); r[0] = (hendblk(0+1)); { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = (mknull()); *--hp = (cx__23170); *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2+0] = r[0]; r[2+1] = r[1]; r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_symbol_2A; case 1: /* keep#1452 k f lst */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_keep_231452: /* k f lst */ if ((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 { hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(1); r[3] = (hendblk(0+1)); hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(2); r[3] = (hendblk(4+1)); r[4+0] = r[1]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = (car((r[2]))); r += 4; /* 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+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r keep f k lst */ if (bool_from_obj(r[1])) { hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(3); r[6] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = r[3]; r[3] = (cdr((r[5]))); rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = r[3]; r[3] = (cdr((r[5]))); rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 3: /* 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 lst */ { /* 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 4: /* c-error* k reason args */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_c_2Derror_2A: /* k reason args */ r[3] = (cx__2Acurrent_2Derror_2Dport_2A); (void)(fputc('\n', oportdata((r[3])))); hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[0]; *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(5); 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__2319); r[5+3] = obj_from_bool(1); r[5+4] = r[3]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 5: /* 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 . reason args k ep */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(6); 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] = r[5]; rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 6: /* 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 . args k ep */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(10); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[2]; r[2] = r[4]; goto s_loop; case 7: /* 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: /* k id ep */ 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(7); r[4] = (hendblk(1+1)); hreserve(hbsz(5+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(8); r[4] = (hendblk(5+1)); r[5+0] = (cx_write_2F3); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = (cx__2312); 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 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+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek . ep arg loop id k */ hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(9); r[7] = (hendblk(3+1)); r[8+0] = (cx_write_2F3); pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[7]; r[8+2] = r[3]; r[8+3] = obj_from_bool(0); r[8+4] = r[2]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; 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+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 10: /* 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 */ (void)(fputc('\n', oportdata((r[3])))); r[0] = (cx_reset); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; rreserve(MAX_HOSTREGS); rc = 2; goto jump; case 11: /* reduce-right k f base lst */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_reduce_2Dright: /* k f base lst */ if ((isnull((r[3])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_case(12); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ /* r[2] */ r[3] = (cdr((r[3]))); goto gs_reduce_2Dright; } case 12: /* 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 f lst k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = (car((r[3]))); r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 13: /* reduce-left k f base lst */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_reduce_2Dleft: /* k f base lst */ if ((isnull((r[3])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(14); r[4] = (hendblk(3+1)); r[5+0] = r[1]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = (car((r[3]))); r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } 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+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r lst f k */ r[5+0] = r[4]; r[5+1] = r[3]; r[5+2] = r[1]; r[5+3] = (cdr((r[2]))); r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_reduce_2Dleft; case 15: /* reduce-right/singular-identity k f base lst */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_reduce_2Dright_2Fsingular_2Didentity: /* k f base lst */ if ((isnull((r[3])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[4+0] = r[0]; r[4+1] = r[3]; r[4+2] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v5181; } s_loop_v5181: /* k lst f */ r[3] = (cdr((r[1]))); r[3] = obj_from_bool(isnull((r[3]))); if (bool_from_obj(r[3])) { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); r[3+2] = (car((r[1]))); r += 3; /* shift reg wnd */ 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(16); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v5181; } case 16: /* 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 f lst k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = (car((r[3]))); r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 17: /* reduce-right/right-seed k f base lst */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k f base lst */ if ((isnull((r[3])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[4+0] = r[0]; r[4+1] = r[3]; r[4+2] = r[1]; r[4+3] = r[2]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v5160; } s_loop_v5160: /* k lst f base */ r[4] = (cdr((r[1]))); r[4] = obj_from_bool(isnull((r[4]))); if (bool_from_obj(r[4])) { r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = (car((r[1]))); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[4] = (cdr((r[1]))); hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(18); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[4]; /* r[2] */ /* r[3] */ goto s_loop_v5160; } case 18: /* 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 f lst k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = (car((r[3]))); r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 19: /* posq k x lst */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x lst */ r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); r[3+2] = (cxs_posq((r[1]), (r[2]))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 20: /* string-append* k lst */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_string_2Dappend_2A: /* k lst */ hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(21); r[2] = (hendblk(2+1)); r[3+0] = r[2]; r[3+1] = r[1]; r[3+2] = obj_from_fixnum(+0); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v5139; s_loop_v5139: /* k lst len */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[3] = (cdr((r[1]))); { fixnum_t v5310_tmp; r[4] = (car((r[1]))); v5310_tmp = (stringlen((r[4]))); r[4] = obj_from_fixnum(fixnum_from_obj(r[2]) + (v5310_tmp)); } /* r[0] */ r[1] = r[3]; r[2] = r[4]; goto s_loop_v5139; } case 21: /* 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 lst k */ r[4] = (hpushstr(4, allocstring(fixnum_from_obj(r[1]), '?'))); r[0] = r[3]; r[1] = r[2]; r[2] = obj_from_fixnum(+0); r[3] = r[4]; goto s_copy; case 22: /* clo k lst pos */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ s_copy: /* k lst pos r */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[3]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[4] = (car((r[1]))); hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = obj_from_case(22); r[5] = (hendblk(1+1)); r[6+0] = r[0]; r[6+1] = obj_from_fixnum(+0); r[6+2] = r[3]; r[6+3] = r[4]; r[6+4] = r[5]; r[6+5] = r[1]; r[6+6] = r[2]; r[6+7] = obj_from_fixnum(fixnum_from_obj(r[2]) + (stringlen((r[4])))); r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v5124; } s_loop_v5124: /* k i r s copy lst pos endpos */ { const fixnum_t v5308_i = fixnum_from_obj(r[1]); if (((fixnum_from_obj(r[6]) + (v5308_i)) == fixnum_from_obj(r[7]))) { r[8+0] = r[4]; pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[0]; r[8+2] = (cdr((r[5]))); r[8+3] = r[7]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { { const char_t v5309_tmp = (*(unsigned char*)stringref((r[3]), (v5308_i))); (void)(*stringref((r[2]), (fixnum_from_obj(r[6]) + (v5308_i))) = (v5309_tmp)); } /* r[0] */ r[1] = obj_from_fixnum((v5308_i) + (+1)); /* r[2] */ /* r[3] */ /* r[4] */ /* r[5] */ /* r[6] */ /* r[7] */ goto s_loop_v5124; } } case 23: /* symbol* k args */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_symbol_2A: /* k args */ hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = obj_from_case(26); r[2] = (hendblk(1+1)); r[0] = r[2]; /* r[1] */ goto s_loop_v5098; s_loop_v5098: /* 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(24); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v5098; } 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; /* shift reg. wnd */ /* ek r k id */ r[4] = (car((r[3]))); hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(25); r[5] = (hendblk(2+1)); if ((issymbol((r[4])))) { r[6] = (hpushstr(6, newstring(symbolname(getsymbol((r[4])))))); r[7+0] = obj_from_ktrap(); r[7+1] = r[6]; r[7+2] = r[2]; r[7+3] = r[1]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v5102; } else { if (((is_fixnum_obj(r[4])) || (is_flonum_obj(r[4])))) { if ((is_fixnum_obj(r[4]))) { r[0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[4]; r[3] = obj_from_fixnum(+10); rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[0] = (cx_flonum_2D_3Estring); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } else { r[6+0] = obj_from_ktrap(); r[6+1] = r[4]; r[6+2] = r[2]; r[6+3] = r[1]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v5102; } } 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; /* shift reg. wnd */ s_l_v5102: /* 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 26: /* 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(27); r[3] = (hendblk(1+1)); r[0] = r[3]; /* r[1] */ goto gs_string_2Dappend_2A; case 27: /* 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] = (mksymbol(internsym(stringchars((r[1]))))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 28: /* iduname k id */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k id */ if (bool_from_obj(cxs_global_2Did_2Dprivate_2Dconstant_3F_23267((r[1])))) { r[2] = (cdr((r[1]))); r[2] = (car((r[2]))); 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; } else { if (bool_from_obj(cxs_global_2Did_2Dconstant_3F_23248((r[1])))) { { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = (mknull()); *--hp = (cx__23240); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (cdr((r[1]))); r[3] = (car((r[3]))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } /* r[0] */ r[1] = r[2]; goto gs_symbol_2A; } else { r[2] = (cdr((r[1]))); r[2] = (cdr((r[2]))); r[2] = (car((r[2]))); r[2] = obj_from_bool(fixnum_from_obj(r[2]) < (+0)); if (bool_from_obj(r[2])) { r[2] = (cdr((r[1]))); r[2] = (car((r[2]))); 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; } else { r[2] = (cdr((r[1]))); r[2] = (cdr((r[2]))); r[2] = (cdr((r[2]))); r[2] = (car((r[2]))); r[2] = obj_from_bool(isstring((r[2]))); if (bool_from_obj(r[2])) { r[2] = (cdr((r[1]))); r[2] = (cdr((r[2]))); r[2] = (cdr((r[2]))); r[2] = (car((r[2]))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = (cx__23204); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (cdr((r[1]))); r[3] = (cdr((r[3]))); r[3] = (car((r[3]))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = (cx__23170); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (cdr((r[1]))); r[3] = (car((r[3]))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } /* r[0] */ r[1] = r[2]; goto gs_symbol_2A; } else { r[2] = (cdr((r[1]))); r[2] = (cdr((r[2]))); r[2] = (cdr((r[2]))); r[2] = (car((r[2]))); if (bool_from_obj(r[2])) { r[2] = (cdr((r[1]))); r[2] = (cdr((r[2]))); r[2] = (car((r[2]))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = (cx__23184); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (cdr((r[1]))); r[3] = (car((r[3]))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } /* r[0] */ r[1] = r[2]; goto gs_symbol_2A; } else { r[2] = (cdr((r[1]))); r[2] = (cdr((r[2]))); r[2] = (car((r[2]))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = (cx__23170); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (cdr((r[1]))); r[3] = (car((r[3]))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } /* r[0] */ r[1] = r[2]; goto gs_symbol_2A; } } } } } case 32: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ cx_begin_2Did_2Dsymbol = r[1]; { static obj c[] = { obj_from_case(33) }; cx_labelapp_2Dexp = (obj)c; } { static obj c[] = { obj_from_case(34) }; cx_labelapp_2Dexp_3F = (obj)c; } cx_the_2Dhalt_2Dprim = (cx__23337); cx__2Amemoization_2Doptsz_2A = obj_from_fixnum(+500); cx__2Amemoization_2Dlimit_2A = obj_from_fixnum(+1000); { static obj c[] = { obj_from_case(35) }; cx_memoizate_2Dexp_2Dattribute = (obj)c; } { static obj c[] = { obj_from_case(38) }; cx_memoizate_2Dvar_2Dattribute = (obj)c; } cx_keywords = (cx__23420); { static obj c[] = { obj_from_case(42) }; cx__3Cid_3E_3F = (obj)c; } { static obj c[] = { obj_from_case(43) }; cx__3Cliteral_3E_3F = (obj)c; } { static obj c[] = { obj_from_case(44) }; cx_string_2Dforest_3F = (obj)c; } { static obj c[] = { obj_from_case(50) }; cx_string_2Dforest_2Dlength = (obj)c; } { static obj c[] = { obj_from_case(51) }; cx_string_2Dforest_2D_3Estring = (obj)c; } { static obj c[] = { obj_from_case(57) }; cx_sexp_2Dmatch_3F = (obj)c; } { static obj c[] = { obj_from_case(63) }; cx_parse_2Dprogram = (obj)c; } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(179); r[2] = (hendblk(0+1)); hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(211); r[3] = (hendblk(0+1)); r[0] = r[2]; r[1] = r[3]; goto gs_memoizate_2Dexp_2Dattribute; case 33: /* labelapp-exp k id rands */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k id rands */ { /* vector */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = (mksymbol(internsym("var-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[3] = (hendblk(2+1)); } { /* vector */ hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = (mksymbol(internsym("app-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[3] = (hendblk(3+1)); } r[4+0] = r[0]; 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 34: /* labelapp-exp? k exp */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k exp */ r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (cxs_labelapp_2Dexp_3F((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 35: /* memoizate-exp-attribute k fn */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_memoizate_2Dexp_2Dattribute: /* k fn */ hreserve(hbsz(1), 2); /* 2 live regs */ *--hp = obj_from_void(0); r[2] = (hendblk(1)); hreserve(hbsz(1), 3); /* 3 live regs */ *--hp = obj_from_void(0); r[3] = (hendblk(1)); (void)(objptr_from_obj(r[2])[0] = (mknull())); (void)(objptr_from_obj(r[3])[0] = obj_from_fixnum(+0)); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_case(36); r[2] = (hendblk(3+1)); 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 36: /* clo k exp */ 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 */ /* k exp fn mlen memo */ if ((!bool_from_obj(r[1]))) { (void)(objptr_from_obj(r[4])[0] = (mknull())); r[5] = (objptr_from_obj(r[3])[0] = obj_from_fixnum(+0)); /* r[0] */ 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[5] = (objptr_from_obj(r[4])[0]); { /* assq */ obj x = (r[1]), l = (r[5]), p = mknull(); for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; } r[5] = (l == mknull() ? obj_from_bool(0) : p); } if (bool_from_obj(r[5])) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (cdr((r[5]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[1]; *--hp = r[3]; *--hp = r[0]; *--hp = obj_from_case(37); r[6] = (hendblk(4+1)); r[7+0] = r[2]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[6]; r[7+2] = r[1]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } 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+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r k mlen exp memo */ r[6] = (objptr_from_obj(r[5])[0]); { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[7]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } (void)(objptr_from_obj(r[5])[0] = (r[6])); r[6] = (objptr_from_obj(r[3])[0]); r[6] = obj_from_fixnum(fixnum_from_obj(r[6]) + (+1)); (void)(objptr_from_obj(r[3])[0] = (r[6])); r[6] = (objptr_from_obj(r[3])[0]); r[6] = obj_from_bool(fixnum_from_obj(r[6]) > (+1000)); if (bool_from_obj(r[6])) { r[6] = (objptr_from_obj(r[5])[0]); { /* list-tail */ obj l = r[6]; int c = (+500); while (c-- > 0) l = cdr(l); r[6] = (l); } (void)(cdr((r[6])) = (mknull())); r[6] = (objptr_from_obj(r[5])[0]); { /* length */ int n; obj l = r[6]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; r[6] = obj_from_fixnum(n); } (void)(objptr_from_obj(r[3])[0] = (r[6])); } else { } r[6] = r[1]; r[7+0] = r[2]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = obj_from_ktrap(); r[7+2] = r[6]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 38: /* memoizate-var-attribute k fn */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_memoizate_2Dvar_2Dattribute: /* k fn */ hreserve(hbsz(1), 2); /* 2 live regs */ *--hp = obj_from_void(0); r[2] = (hendblk(1)); hreserve(hbsz(1), 3); /* 3 live regs */ *--hp = obj_from_void(0); r[3] = (hendblk(1)); (void)(objptr_from_obj(r[2])[0] = (mknull())); (void)(objptr_from_obj(r[3])[0] = obj_from_fixnum(+0)); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_case(39); r[2] = (hendblk(3+1)); 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 39: /* clo k id exp */ 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; /* shift reg. wnd */ /* k id exp fn mlen memo */ if ((!bool_from_obj(r[1]))) { (void)(objptr_from_obj(r[5])[0] = (mknull())); r[6] = (objptr_from_obj(r[4])[0] = obj_from_fixnum(+0)); /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[6] = (objptr_from_obj(r[5])[0]); { /* assq */ obj x = (r[2]), l = (r[6]), p = mknull(); for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; } r[6] = (l == mknull() ? obj_from_bool(0) : p); } if (bool_from_obj(r[6])) { r[7] = (cdr((r[6]))); { /* assq */ obj x = (r[1]), l = (r[7]), p = mknull(); for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; } r[7] = (l == mknull() ? obj_from_bool(0) : p); } if (bool_from_obj(r[7])) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (cdr((r[7]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(40); r[8] = (hendblk(3+1)); r[9+0] = r[3]; pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[8]; r[9+2] = r[1]; r[9+3] = r[2]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } } else { hreserve(hbsz(5+1), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = r[2]; *--hp = r[4]; *--hp = r[0]; *--hp = obj_from_case(41); r[7] = (hendblk(5+1)); r[8+0] = r[3]; pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[7]; r[8+2] = r[1]; r[8+3] = r[2]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; 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+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r k id tmp */ r[5] = (cdr((r[4]))); { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[6]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } (void)(cdr((r[4])) = (r[5])); r[5] = r[1]; 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 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+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r k mlen exp id memo */ r[7] = (objptr_from_obj(r[6])[0]); { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[1]; *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = (mknull()); *--hp = r[8]; *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[7]; *--hp = r[8]; *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } (void)(objptr_from_obj(r[6])[0] = (r[7])); r[7] = (objptr_from_obj(r[3])[0]); r[7] = obj_from_fixnum(fixnum_from_obj(r[7]) + (+1)); (void)(objptr_from_obj(r[3])[0] = (r[7])); r[7] = (objptr_from_obj(r[3])[0]); r[7] = obj_from_bool(fixnum_from_obj(r[7]) > (+1000)); if (bool_from_obj(r[7])) { r[7] = (objptr_from_obj(r[6])[0]); { /* list-tail */ obj l = r[7]; int c = (+500); while (c-- > 0) l = cdr(l); r[7] = (l); } (void)(cdr((r[7])) = (mknull())); r[7] = (objptr_from_obj(r[6])[0]); { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; r[7] = obj_from_fixnum(n); } (void)(objptr_from_obj(r[3])[0] = (r[7])); } else { } r[7] = r[1]; r[8+0] = r[2]; pc = objptr_from_obj(r[8+0])[0]; r[8+1] = obj_from_ktrap(); r[8+2] = r[7]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 42: /* ? k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs__3Cid_3E_3F: /* k x */ if ((issymbol((r[1])))) { { /* memq */ obj x = (r[1]), l = (cx_keywords); for (; l != mknull(); l = cdr(l)) if (car(l) == x) break; r[2] = (l == mknull() ? obj_from_bool(0) : l); } r[2] = obj_from_bool(!bool_from_obj(r[2])); } else { r[2] = obj_from_bool(0); } 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 43: /* ? k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (cxs__3Cliteral_3E_3F((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 44: /* string-forest? k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_string_2Dforest_3F: /* k x */ if ((isstring((r[1])))) { 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(isstring((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(45); r[2] = (hendblk(2+1)); if ((islist((r[1])))) { r[0] = r[2]; /* r[1] */ goto s_loop_v4956; } else { r[3+0] = obj_from_ktrap(); r[3+1] = obj_from_bool(0); r[3+2] = r[1]; r[3+3] = r[0]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v4968; } } 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; /* shift reg. wnd */ s_l_v4968: /* ek r x k */ if (bool_from_obj(r[1])) { r[4+0] = r[3]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if ((isvector((r[2])))) { { /* vector->list */ obj v, l = mknull(); int c = (vectorlen((r[2]))); hreserve(hbsz(3)*c, 4); /* 4 live regs */ v = r[2]; /* gc-safe */ while (c-- > 0) { *--hp = l; *--hp = hblkref(v, 1+c); *--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); } r[4] = (l); } r[0] = r[3]; r[1] = r[4]; goto s_loop_v4969; } 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; } } case 46: /* clo k id */ assert(rc == 3); r += 1; /* shift reg. wnd */ s_loop_v4969: /* 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] = obj_from_bool(isnull((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(46); r[2] = (hendblk(0+1)); hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(47); r[2] = (hendblk(3+1)); r[0] = r[2]; r[1] = (car((r[1]))); goto gs_string_2Dforest_3F; } 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 loop id k */ if (bool_from_obj(r[1])) { 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; } else { r[0] = r[4]; 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 48: /* clo k id */ assert(rc == 3); r += 1; /* shift reg. wnd */ s_loop_v4956: /* 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] = obj_from_bool(isnull((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(48); r[2] = (hendblk(0+1)); hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(49); r[2] = (hendblk(3+1)); r[0] = r[2]; r[1] = (car((r[1]))); goto gs_string_2Dforest_3F; } 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; /* shift reg. wnd */ /* ek r loop id k */ if (bool_from_obj(r[1])) { 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; } else { r[0] = r[4]; 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 50: /* string-forest-length k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (cxs_string_2Dforest_2Dlength((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 51: /* string-forest->string k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_string_2Dforest_2D_3Estring: /* k x */ hreserve(hbsz(1), 2); /* 2 live regs */ *--hp = obj_from_void(0); r[2] = (hendblk(1)); r[3] = (cxs_string_2Dforest_2Dlength((r[1]))); r[3] = (hpushstr(4, allocstring(fixnum_from_obj(r[3]), '?'))); (void)(objptr_from_obj(r[2])[0] = (r[3])); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = obj_from_case(52); r[3] = (hendblk(2+1)); r[4+0] = r[3]; r[4+1] = r[1]; r[4+2] = obj_from_fixnum(+0); r[4+3] = r[2]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_copy_v4907; case 52: /* 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 str */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (objptr_from_obj(r[3])[0]); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 53: /* clo k x pos */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ s_copy_v4907: /* k x pos str */ hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_case(53); r[4] = (hendblk(1+1)); if ((isstring((r[1])))) { r[5+0] = r[0]; r[5+1] = obj_from_fixnum(+0); r[5+2] = r[1]; r[5+3] = r[3]; r[5+4] = r[2]; r[5+5] = obj_from_fixnum(fixnum_from_obj(r[2]) + (stringlen((r[1])))); r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v4927; } else { if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if ((ispair((r[1])))) { r[5] = (car((r[1]))); hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(54); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[5]; /* r[2] */ /* r[3] */ goto s_copy_v4907; } else { r[5+0] = r[0]; r[5+1] = obj_from_fixnum(+0); r[5+2] = r[2]; r[5+3] = r[4]; r[5+4] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v4908; } } } s_loop_v4927: /* k i x str pos endpos */ { const fixnum_t v5306_i = fixnum_from_obj(r[1]); if (((fixnum_from_obj(r[4]) + (v5306_i)) == fixnum_from_obj(r[5]))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { { const char_t v5307_tmp = (*(unsigned char*)stringref((r[2]), (v5306_i))); r[6] = (objptr_from_obj(r[3])[0]); (void)(*stringref((r[6]), (fixnum_from_obj(r[4]) + (v5306_i))) = (v5307_tmp)); } /* r[0] */ r[1] = obj_from_fixnum((v5306_i) + (+1)); /* r[2] */ /* r[3] */ /* r[4] */ /* r[5] */ goto s_loop_v4927; } } 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+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r copy x k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = (cdr((r[3]))); r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 55: /* clo k i pos */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; } r += 1; /* shift reg. wnd */ s_loop_v4908: /* k i pos copy x */ if ((fixnum_from_obj(r[1]) < (vectorlen((r[4]))))) { hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(55); r[5] = (hendblk(2+1)); hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[5]; *--hp = obj_from_case(56); r[5] = (hendblk(3+1)); r[6+0] = r[3]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[5]; r[6+2] = (vectorref((r[4]), fixnum_from_obj(r[1]))); r[6+3] = r[2]; r += 6; /* 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] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 56: /* 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 i k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = obj_from_fixnum(fixnum_from_obj(r[3]) + (+1)); r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 57: /* sexp-match? k pat x */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_sexp_2Dmatch_3F: /* k pat x */ if (((r[1]) == (mksymbol(internsym("*"))))) { 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((r[1]) == (mksymbol(internsym("*")))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(58); r[3] = (hendblk(3+1)); if (((r[1]) == (mksymbol(internsym(""))))) { r[0] = r[3]; r[1] = r[2]; goto gs__3Cid_3E_3F; } else { r[4+0] = obj_from_ktrap(); r[4+1] = obj_from_bool(0); r[4+2] = r[2]; r[4+3] = r[1]; r[4+4] = r[0]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v4871; } } case 58: /* 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 */ s_l_v4871: /* ek r x pat k */ if (bool_from_obj(r[1])) { r[5+0] = r[4]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[5] = obj_from_bool(((r[3]) == (mksymbol(internsym("")))) && (issymbol((r[2])))); if (bool_from_obj(r[5])) { r[0] = r[4]; 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[6] = obj_from_bool(((r[3]) == (mksymbol(internsym("")))) && (isstring((r[2])))); if (bool_from_obj(r[6])) { r[0] = r[4]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[7] = (((r[3]) == (mksymbol(internsym("")))) ? (cxs__3Cliteral_3E_3F((r[2]))) : obj_from_bool(0)); if (bool_from_obj(r[7])) { r[0] = r[4]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[7]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(59); r[8] = (hendblk(3+1)); if (((r[3]) == (mksymbol(internsym(""))))) { r[0] = r[8]; r[1] = r[2]; goto gs_string_2Dforest_3F; } else { r[0] = obj_from_ktrap(); r[1] = obj_from_bool(0); /* r[2] */ /* r[3] */ /* r[4] */ goto s_l_v4873; } } } } } 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+4] = p[3]; } r += 1; /* shift reg. wnd */ s_l_v4873: /* ek r x pat k */ if (bool_from_obj(r[1])) { r[5+0] = r[4]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if (((r[2]) == (r[3]))) { r[0] = r[4]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool((r[2]) == (r[3])); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if ((ispair((r[3])))) { r[5] = (car((r[3]))); r[5] = obj_from_bool((r[5]) == (mksymbol(internsym("...")))); if (bool_from_obj(r[5])) { r[5] = (cdr((r[3]))); r[5] = obj_from_bool(ispair((r[5]))); if (bool_from_obj(r[5])) { r[5] = (cdr((r[3]))); r[5] = (cdr((r[5]))); r[5] = obj_from_bool(isnull((r[5]))); } else { r[5] = obj_from_bool(0); } } else { r[5] = obj_from_bool(0); } if (bool_from_obj(r[5])) { r[5] = (cdr((r[3]))); r[5] = (car((r[5]))); r[5] = obj_from_bool((r[2]) == (r[5])); r[0] = r[4]; 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[5] = (cdr((r[3]))); r[5] = obj_from_bool(ispair((r[5]))); if (bool_from_obj(r[5])) { r[5] = (cdr((r[3]))); r[5] = (car((r[5]))); r[5] = obj_from_bool((r[5]) == (mksymbol(internsym("...")))); if (bool_from_obj(r[5])) { r[5] = (cdr((r[3]))); r[5] = (cdr((r[5]))); r[5] = obj_from_bool(isnull((r[5]))); } else { r[5] = obj_from_bool(0); } } else { r[5] = obj_from_bool(0); } if (bool_from_obj(r[5])) { r[5] = (car((r[3]))); if (((r[5]) == (mksymbol(internsym("*"))))) { r[0] = r[4]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(islist((r[2]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[0] = r[4]; r[1] = r[2]; r[2] = r[5]; goto s_loop_v4880; } } else { if ((ispair((r[2])))) { hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(62); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = (car((r[3]))); r[2] = (car((r[2]))); goto gs_sexp_2Dmatch_3F; } else { r[0] = r[4]; 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] = r[4]; 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 60: /* clo k lst */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v4880: /* k lst pat */ 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[1])))) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(60); r[3] = (hendblk(1+1)); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(61); r[3] = (hendblk(3+1)); r[4+0] = r[3]; r[4+1] = r[2]; r[4+2] = (car((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_sexp_2Dmatch_3F; } 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 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+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r loop lst k */ if (bool_from_obj(r[1])) { 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; } else { r[0] = r[4]; 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 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+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r x pat k */ if (bool_from_obj(r[1])) { r[0] = r[4]; r[1] = (cdr((r[3]))); r[2] = (cdr((r[2]))); goto gs_sexp_2Dmatch_3F; } else { r[0] = r[4]; 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 63: /* parse-program k lst return */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k lst return */ 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+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = obj_from_case(64); r[5] = (hendblk(1+1)); (void)(objptr_from_obj(r[3])[0] = (mknull())); (void)(objptr_from_obj(r[4])[0] = (mknull())); hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(66); r[6] = (hendblk(4+1)); r[0] = r[6]; /* r[1] */ r[2] = (mknull()); /* r[3] */ r[4] = r[5]; goto s_pprog; case 64: /* clo k sym e */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ /* k sym e global-e */ r[4] = (cxs_lookupicate_23647((r[1]), (r[2]))); if (bool_from_obj(r[4])) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[5] = (objptr_from_obj(r[3])[0]); r[5] = (cxs_lookupicate_23647((r[1]), (r[5]))); if (bool_from_obj(r[5])) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = r[0]; *--hp = obj_from_case(65); r[6] = (hendblk(3+1)); r[7+0] = (cx_timestamp); pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[6]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 2; goto jump; } } 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+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r k global-e sym */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = obj_from_fixnum(-fixnum_from_obj(r[1])); *--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[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = (mksymbol(internsym("var"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[6] = (objptr_from_obj(r[3])[0]); { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } (void)(objptr_from_obj(r[3])[0] = (r[6])); r[6] = r[5]; 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 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+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r lifted-const-alist global-e return k */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(67); r[6] = (hendblk(3+1)); hreserve(hbsz(0+1), 7); /* 7 live regs */ *--hp = obj_from_case(70); r[7] = (hendblk(0+1)); r[8+0] = r[6]; r[8+1] = r[7]; r[8+2] = r[1]; r[8+3] = (objptr_from_obj(r[2])[0]); r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_reduce_2Dleft; 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 global-e return k */ r[5] = (objptr_from_obj(r[2])[0]); hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(69); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[5]; goto s_loop_v4821; s_loop_v4821: /* 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(68); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v4821; } 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 k id */ r[4] = (car((r[3]))); r[5] = (cdr((r[4]))); r[4] = (car((r[5]))); { /* 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 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+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r return r k */ 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+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 70: /* clo k c&exp&id exp */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k c&exp&id exp */ r[3] = (cdr((r[1]))); r[3] = (car((r[3]))); r[4] = (cdr((r[1]))); r[4] = (cdr((r[4]))); r[4] = (car((r[4]))); { /* vector */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[4]; *--hp = (mksymbol(internsym("varassign-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[3] = (hendblk(3+1)); } hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = r[0]; *--hp = obj_from_case(71); r[4] = (hendblk(3+1)); r[5+0] = (cx_timestamp); 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; 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 exp1 exp */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = (mksymbol(internsym("_"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = (mksymbol(internsym("var"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* vector */ hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[4]; *--hp = r[6]; *--hp = (mksymbol(internsym("lambda-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[7] = (hendblk(3+1)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = (mknull()); *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* vector */ hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = (mksymbol(internsym("app-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[8] = (hendblk(3+1)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[8]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 72: /* clo k c */ 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 */ /* k c lifted-const-alist make-id */ r[4] = (objptr_from_obj(r[2])[0]); r[4] = (isassoc((r[1]), (r[4]))); if (bool_from_obj(r[4])) { r[5] = (cdr((r[4]))); r[5] = (cdr((r[5]))); r[5] = (car((r[5]))); /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(86); r[5] = (hendblk(2+1)); hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[2]; *--hp = r[1]; *--hp = r[0]; *--hp = r[5]; *--hp = obj_from_case(73); r[5] = (hendblk(4+1)); hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = obj_from_case(77); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = (cx__23785); r[6+2] = r[1]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_sexp_2Dmatch_3F; } 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+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r psexp k c lifted-const-alist */ hreserve(hbsz(5+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(74); r[6] = (hendblk(5+1)); r[0] = (cx_timestamp); pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; rreserve(MAX_HOSTREGS); rc = 2; 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+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r r psexp k c lifted-const-alist */ hreserve(hbsz(5+1), 7); /* 7 live regs */ *--hp = r[1]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(75); r[7] = (hendblk(5+1)); { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = (cx__23744); *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } r[9+0] = (cx_symbol_2A); pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[7]; r[9+2] = r[8]; r += 9; /* 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+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r psexp k c lifted-const-alist r */ { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("private"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = obj_from_fixnum(-fixnum_from_obj(r[6])); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (mksymbol(internsym("var"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } hreserve(hbsz(4+1), 8); /* 8 live regs */ *--hp = r[5]; *--hp = r[7]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(76); r[8] = (hendblk(4+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; r[2] = r[4]; r[3] = (mknull()); rreserve(MAX_HOSTREGS); rc = 4; 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+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r k c r lifted-const-alist */ r[6] = (objptr_from_obj(r[5])[0]); { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[7]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } (void)(objptr_from_obj(r[5])[0] = (r[6])); r[6] = r[4]; r[7+0] = r[2]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = obj_from_ktrap(); r[7+2] = r[6]; r += 7; /* shift reg wnd */ 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+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r c k */ if (bool_from_obj(r[1])) { r[4] = (cdr((r[2]))); r[4] = (cdr((r[4]))); r[4] = (car((r[4]))); r[0] = (cx_c_2Dundecorate_2Dalvar); pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (cx__23779); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } s_pprog: /* k prog e lifted-const-alist make-id */ hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = obj_from_case(83); r[5] = (hendblk(1+1)); hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(86); r[6] = (hendblk(2+1)); r[7+0] = r[5]; r[7+1] = r[1]; r[7+2] = (mknull()); r[7+3] = r[6]; r[7+4] = r[4]; r[7+5] = r[2]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v4720; case 78: /* clo k prog exps */ 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; /* shift reg. wnd */ s_loop_v4720: /* k prog exps psexp make-id e */ if ((isnull((r[1])))) { { fixnum_t v5305_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v5305_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v5305_tmp); hreserve(hbsz(3)*c, 6); /* 6 live regs */ l = r[2]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[6] = (o); } } /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[6] = (car((r[1]))); hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(78); r[7] = (hendblk(3+1)); hreserve(hbsz(4+1), 8); /* 8 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[7]; *--hp = obj_from_case(79); r[7] = (hendblk(4+1)); 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(80); r[7] = (hendblk(5+1)); r[0] = r[7]; r[1] = (cx__23811); r[2] = r[6]; goto gs_sexp_2Dmatch_3F; } case 79: /* 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 loop exps prog k */ { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[7+0] = r[2]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[5]; r[7+2] = (cdr((r[4]))); r[7+3] = r[6]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; 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+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r psexp make-id e x k */ if (bool_from_obj(r[1])) { hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(81); r[7] = (hendblk(4+1)); r[8] = (cdr((r[5]))); r[8] = (cdr((r[8]))); r[8] = (car((r[8]))); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; r[2] = r[8]; r[3] = r[4]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = r[5]; r[3] = r[4]; 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+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r make-id e x k */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[5]; *--hp = obj_from_case(82); r[6] = (hendblk(2+1)); r[7] = (cdr((r[4]))); r[7] = (car((r[7]))); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = r[7]; /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; 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 */ { /* vector */ hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = (mksymbol(internsym("varassign-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[4] = (hendblk(3+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 83: /* 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(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(84); r[3] = (hendblk(0+1)); { /* vector */ hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = (cx__23834); *--hp = (mksymbol(internsym("no-effect"))); *--hp = (mksymbol(internsym("primapp-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[4] = (hendblk(4+1)); } r[5+0] = r[2]; r[5+1] = r[3]; r[5+2] = r[4]; r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_reduce_2Dright; case 84: /* clo k exp1 exp2 */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k exp1 exp2 */ hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(85); r[3] = (hendblk(3+1)); r[4+0] = (cx_timestamp); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 2; 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 exp1 exp2 */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = (mksymbol(internsym("_"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = (mksymbol(internsym("var"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* vector */ hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[4]; *--hp = r[6]; *--hp = (mksymbol(internsym("lambda-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[7] = (hendblk(3+1)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = (mknull()); *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* vector */ hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = (mksymbol(internsym("app-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[8] = (hendblk(3+1)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[8]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 86: /* clo k x e */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; } r += 1; /* shift reg. wnd */ /* k x e lifted-const-alist make-id */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(72); r[5] = (hendblk(2+1)); hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(86); r[6] = (hendblk(2+1)); r[7+0] = r[0]; r[7+1] = r[1]; r[7+2] = r[5]; r[7+3] = r[6]; r[7+4] = r[4]; r[7+5] = r[2]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_p; case 87: /* clo k x */ 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 */ s_p: /* k x liftc psexp make-id e */ hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(87); r[6] = (hendblk(4+1)); hreserve(hbsz(7+1), 7); /* 7 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(88); r[6] = (hendblk(7+1)); r[7+0] = r[6]; r[7+1] = (cx__231360); r[7+2] = r[1]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_sexp_2Dmatch_3F; 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+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 liftc psexp make-id e p x k */ if (bool_from_obj(r[1])) { hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = obj_from_case(89); r[9] = (hendblk(3+1)); r[10] = (cdr((r[7]))); r[10] = (cdr((r[10]))); r[10] = (cdr((r[10]))); r[10] = (car((r[10]))); r[0] = r[6]; pc = objptr_from_obj(r[0])[0]; r[1] = r[9]; r[2] = (r[10]); rreserve(MAX_HOSTREGS); rc = 3; 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(92); r[9] = (hendblk(7+1)); r[0] = r[9]; r[1] = (cx__231338); r[2] = r[7]; goto gs_sexp_2Dmatch_3F; } 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+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r p x k */ hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(90); r[5] = (hendblk(4+1)); r[6] = (cdr((r[3]))); r[6] = (cdr((r[6]))); r[6] = (car((r[6]))); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 90: /* 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 p x k r */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(91); r[6] = (hendblk(3+1)); r[7] = (cdr((r[3]))); r[7] = (car((r[7]))); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = r[7]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; 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 k r r */ { /* vector */ hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[4]; *--hp = r[1]; *--hp = (mksymbol(internsym("if-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[5] = (hendblk(4+1)); } 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 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+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 liftc psexp make-id e p x k */ if (bool_from_obj(r[1])) { hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = obj_from_case(93); r[9] = (hendblk(3+1)); r[10] = (cdr((r[7]))); r[10] = (cdr((r[10]))); r[10] = (car((r[10]))); r[0] = r[6]; pc = objptr_from_obj(r[0])[0]; r[1] = r[9]; r[2] = (r[10]); rreserve(MAX_HOSTREGS); rc = 3; 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(95); r[9] = (hendblk(7+1)); r[0] = r[9]; r[1] = (cx__231320); r[2] = r[7]; goto gs_sexp_2Dmatch_3F; } 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+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r p x k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(94); r[5] = (hendblk(2+1)); r[6] = (cdr((r[3]))); r[6] = (car((r[6]))); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[6]; 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+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* vector */ hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = (cx__23834); *--hp = (mksymbol(internsym("no-effect"))); *--hp = (mksymbol(internsym("primapp-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[4] = (hendblk(4+1)); } { /* vector */ hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[1]; *--hp = (mksymbol(internsym("if-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[4] = (hendblk(4+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 95: /* 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 liftc psexp make-id e p x k */ if (bool_from_obj(r[1])) { hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = obj_from_case(96); r[9] = (hendblk(3+1)); r[10] = (cdr((r[7]))); r[10] = (car((r[10]))); r[0] = r[4]; pc = objptr_from_obj(r[0])[0]; r[1] = r[9]; r[2] = (r[10]); r[3] = r[5]; rreserve(MAX_HOSTREGS); rc = 4; 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[3]; *--hp = r[2]; *--hp = r[4]; *--hp = obj_from_case(98); r[9] = (hendblk(7+1)); r[0] = r[9]; r[1] = (cx__231303); r[2] = r[7]; goto gs_sexp_2Dmatch_3F; } 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+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r p x k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(97); r[5] = (hendblk(2+1)); r[6] = (cdr((r[3]))); r[6] = (cdr((r[6]))); r[6] = (car((r[6]))); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 97: /* 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 */ { /* vector */ hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = (mksymbol(internsym("varassign-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[4] = (hendblk(3+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 98: /* 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 make-id liftc psexp e p x k */ if (bool_from_obj(r[1])) { r[9] = (cdr((r[7]))); hreserve(hbsz(1+1), 10); /* 10 live regs */ *--hp = r[8]; *--hp = obj_from_case(101); r[10] = (hendblk(1+1)); r[0] = (r[10]); r[1] = r[9]; r[2] = r[6]; goto s_loop_v4613; } else { hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[5]; *--hp = r[4]; *--hp = r[6]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(104); r[9] = (hendblk(7+1)); r[0] = r[9]; r[1] = (cx__231281); r[2] = r[7]; goto gs_sexp_2Dmatch_3F; } s_loop_v4613: /* k id p */ 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(99); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v4613; } case 99: /* 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 p id k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(100); 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 100: /* 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 101: /* 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(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(102); r[3] = (hendblk(0+1)); { /* vector */ hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = (cx__23834); *--hp = (mksymbol(internsym("no-effect"))); *--hp = (mksymbol(internsym("primapp-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[4] = (hendblk(4+1)); } r[5+0] = r[2]; r[5+1] = r[3]; r[5+2] = r[4]; r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_reduce_2Dright_2Fsingular_2Didentity; case 102: /* clo k exp1 exp2 */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k exp1 exp2 */ hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(103); r[3] = (hendblk(3+1)); r[4+0] = (cx_timestamp); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 2; goto jump; case 103: /* 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 exp1 exp2 */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = (mksymbol(internsym("_"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = (mksymbol(internsym("var"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* vector */ hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[4]; *--hp = r[6]; *--hp = (mksymbol(internsym("lambda-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[7] = (hendblk(3+1)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = (mknull()); *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* vector */ hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = (mksymbol(internsym("app-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[8] = (hendblk(3+1)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[8]; 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; /* shift reg. wnd */ /* ek r make-id liftc p psexp e x k */ if (bool_from_obj(r[1])) { r[9] = (cdr((r[7]))); r[9] = (car((r[9]))); hreserve(hbsz(4+1), 10); /* 10 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(107); r[10] = (hendblk(4+1)); r[0] = (r[10]); r[1] = r[9]; goto s_loop_v4572; } else { hreserve(hbsz(7+1), 9); /* 9 live regs */ *--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(109); r[9] = (hendblk(7+1)); r[0] = r[9]; r[1] = (cx__231241); r[2] = r[7]; goto gs_sexp_2Dmatch_3F; } s_loop_v4572: /* 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(105); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v4572; } 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; /* shift reg. wnd */ /* ek r k id */ r[4] = (car((r[3]))); hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(106); r[5] = (hendblk(3+1)); r[0] = (cx_timestamp); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; rreserve(MAX_HOSTREGS); rc = 2; goto jump; case 106: /* 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 sym */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--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[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = (mksymbol(internsym("var"))); *--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 107: /* 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 psexp e x k */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[5]; *--hp = obj_from_case(108); r[6] = (hendblk(2+1)); r[7] = (cdr((r[4]))); r[7] = (cdr((r[7]))); r[7] = (car((r[7]))); { fixnum_t v5304_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v5304_tmp = (n); } { /* append */ obj t, l, o, *p, *d; int c = (v5304_tmp); hreserve(hbsz(3)*c, 8); /* 8 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[8] = (o); } } r[9+0] = r[2]; pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[6]; r[9+2] = r[7]; r[9+3] = r[8]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; 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; /* shift reg. wnd */ /* ek r k r */ { /* vector */ hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = (mksymbol(internsym("lambda-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[4] = (hendblk(3+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 109: /* 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 make-id liftc p psexp x k e */ if (bool_from_obj(r[1])) { r[9] = (cdr((r[6]))); r[9] = (car((r[9]))); hreserve(hbsz(4+1), 10); /* 10 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(111); r[10] = (hendblk(4+1)); r[0] = (r[10]); r[1] = r[9]; goto s_loop_v4545; } else { hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[6]; *--hp = r[7]; *--hp = r[8]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(121); r[9] = (hendblk(7+1)); r[0] = r[9]; r[1] = (cx__231171); r[2] = r[6]; goto gs_sexp_2Dmatch_3F; } s_loop_v4545: /* 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(110); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v4545; } case 110: /* 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]))); r[4] = (car((r[4]))); { /* 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 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; /* shift reg. wnd */ /* ek r psexp x k e */ hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(114); r[6] = (hendblk(4+1)); r[0] = r[6]; /* r[1] */ goto s_loop_v4524; s_loop_v4524: /* 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(112); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v4524; } case 112: /* 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]))); hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(113); r[5] = (hendblk(3+1)); r[0] = (cx_timestamp); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; rreserve(MAX_HOSTREGS); rc = 2; goto jump; 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+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r k r sym */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--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[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = (mksymbol(internsym("var"))); *--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 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; /* shift reg. wnd */ /* ek r psexp x k e */ { fixnum_t v5303_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v5303_tmp = (n); } { /* append */ obj t, l, o, *p, *d; int c = (v5303_tmp); hreserve(hbsz(3)*c, 6); /* 6 live regs */ l = r[1]; t = r[5]; /* 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[6] = (o); } } r[7] = (cdr((r[3]))); r[7] = (car((r[7]))); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[4]; *--hp = r[1]; *--hp = r[3]; *--hp = r[6]; *--hp = r[2]; *--hp = obj_from_case(116); r[8] = (hendblk(5+1)); r[0] = r[8]; r[1] = r[7]; goto s_loop_v4509; s_loop_v4509: /* 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(115); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v4509; } 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; /* shift reg. wnd */ /* ek r k id */ r[4] = (car((r[3]))); r[5] = (cdr((r[4]))); r[4] = (car((r[5]))); { /* 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 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; /* shift reg. wnd */ /* ek r psexp e+ x r k */ 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(119); r[7] = (hendblk(5+1)); r[0] = r[7]; /* r[1] */ /* r[2] */ /* r[3] */ goto s_loop_v4488; s_loop_v4488: /* k id psexp e+ */ 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[4] = (cdr((r[1]))); hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(117); r[5] = (hendblk(4+1)); r[0] = r[5]; r[1] = r[4]; /* r[2] */ /* r[3] */ goto s_loop_v4488; } case 117: /* 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 psexp e+ id k */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[5]; *--hp = obj_from_case(118); r[6] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = (car((r[4]))); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 118: /* 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 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; /* shift reg. wnd */ /* ek r psexp e+ x r k */ hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[1]; *--hp = obj_from_case(120); r[7] = (hendblk(3+1)); r[8] = (cdr((r[4]))); r[8] = (cdr((r[8]))); r[8] = (car((r[8]))); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; r[2] = r[8]; /* r[3] */ 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; /* shift reg. wnd */ /* ek r r r k */ r[5+0] = (cx_letrec_2Dexp); 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+4] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; 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; /* shift reg. wnd */ /* ek r make-id liftc p psexp e k x */ if (bool_from_obj(r[1])) { r[9] = (cdr((r[8]))); r[9] = (car((r[9]))); hreserve(hbsz(5+1), 10); /* 10 live regs */ *--hp = r[9]; *--hp = r[7]; *--hp = r[8]; *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(122); r[10] = (hendblk(5+1)); r[0] = (cx_timestamp); pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); rreserve(MAX_HOSTREGS); rc = 2; goto jump; } else { hreserve(hbsz(6+1), 9); /* 9 live regs */ *--hp = r[7]; *--hp = r[8]; *--hp = r[4]; *--hp = r[3]; *--hp = r[6]; *--hp = r[2]; *--hp = obj_from_case(124); r[9] = (hendblk(6+1)); r[0] = r[9]; r[1] = (cx__231146); r[2] = r[8]; goto gs_sexp_2Dmatch_3F; } case 122: /* 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 psexp e x k sym */ { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (mksymbol(internsym("var"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[5]; *--hp = obj_from_case(123); r[8] = (hendblk(2+1)); r[9] = (cdr((r[4]))); r[9] = (cdr((r[9]))); r[9] = (car((r[9]))); { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = (mknull()); *--hp = r[7]; *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } { fixnum_t v5302_tmp; { /* length */ int n; obj l = (r[10]); for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v5302_tmp = (n); } { /* append */ obj t, l, o, *p, *d; int c = (v5302_tmp); hreserve(hbsz(3)*c, 11); /* 11 live regs */ l = (r[10]); 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[10] = (o); } } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; r[2] = r[9]; r[3] = (r[10]); rreserve(MAX_HOSTREGS); rc = 4; 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; /* shift reg. wnd */ /* ek r k r */ { /* vector */ hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = (mksymbol(internsym("letcc-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[4] = (hendblk(3+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 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; /* shift reg. wnd */ /* ek r make-id e liftc p x k */ if (bool_from_obj(r[1])) { hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(125); r[8] = (hendblk(3+1)); r[9] = (cdr((r[6]))); r[9] = (cdr((r[9]))); r[9] = (car((r[9]))); r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; r[2] = r[9]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[7]; *--hp = r[4]; *--hp = r[5]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(127); r[8] = (hendblk(6+1)); r[0] = r[8]; r[1] = (cx__231131); r[2] = r[6]; goto gs_sexp_2Dmatch_3F; } 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; /* shift reg. wnd */ /* ek r p x k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(126); r[5] = (hendblk(2+1)); r[6] = (cdr((r[3]))); r[6] = (car((r[6]))); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 126: /* 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 */ { /* vector */ hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = (mksymbol(internsym("withcc-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[4] = (hendblk(3+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 127: /* 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 make-id e p liftc k x */ if (bool_from_obj(r[1])) { r[8] = (cdr((r[7]))); r[8] = (car((r[8]))); hreserve(hbsz(4+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(128); r[9] = (hendblk(4+1)); r[0] = r[9]; r[1] = (cx__231126); r[2] = r[8]; goto gs_sexp_2Dmatch_3F; } else { hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[7]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(131); r[8] = (hendblk(5+1)); r[0] = r[8]; r[1] = (cx__231109); r[2] = r[7]; goto gs_sexp_2Dmatch_3F; } case 128: /* 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 p liftc k c */ if (bool_from_obj(r[1])) { r[6] = (cdr((r[5]))); r[6] = (car((r[6]))); r[6] = obj_from_bool(isvector((r[6]))); if (bool_from_obj(r[6])) { hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = obj_from_case(129); r[6] = (hendblk(1+1)); r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; 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] = r[4]; r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } else { hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = obj_from_case(130); r[6] = (hendblk(1+1)); r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = r[5]; 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; /* shift reg. wnd */ /* ek r k */ { /* vector */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = (mksymbol(internsym("var-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[3] = (hendblk(2+1)); } 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 130: /* 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 */ { /* vector */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = (mksymbol(internsym("var-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[3] = (hendblk(2+1)); } 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 131: /* 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 make-id e p x k */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[0] = r[6]; r[1] = (cx__231108); r[2] = r[7]; goto gs_c_2Derror_2A; } else { 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(132); r[7] = (hendblk(5+1)); r[0] = r[7]; r[1] = (cx__231097); r[2] = r[5]; goto gs_sexp_2Dmatch_3F; } 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; /* shift reg. wnd */ /* ek r make-id e p x k */ if (bool_from_obj(r[1])) { r[7] = (cdr((r[5]))); r[7] = (cdr((r[7]))); hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(135); r[8] = (hendblk(2+1)); r[0] = r[8]; r[1] = r[7]; r[2] = r[4]; goto s_loop_v4391; } else { 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(137); r[7] = (hendblk(5+1)); r[0] = r[7]; r[1] = (cx__231069); r[2] = r[5]; goto gs_sexp_2Dmatch_3F; } s_loop_v4391: /* k id p */ 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(133); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v4391; } case 133: /* 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 p id k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(134); 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 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; /* 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 135: /* 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 x k */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(136); r[4] = (hendblk(2+1)); r[5] = (cdr((r[2]))); r[5] = (car((r[5]))); r[0] = r[4]; r[1] = r[5]; goto gs_string_2Dforest_2D_3Estring; 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; /* shift reg. wnd */ /* ek r k r */ { /* vector */ hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = (mksymbol(internsym("no-effect"))); *--hp = (mksymbol(internsym("primapp-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[4] = (hendblk(4+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 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; /* shift reg. wnd */ /* ek r make-id e p x k */ if (bool_from_obj(r[1])) { r[7] = (cdr((r[5]))); r[7] = (cdr((r[7]))); hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(140); r[8] = (hendblk(2+1)); r[0] = r[8]; r[1] = r[7]; r[2] = r[4]; goto s_loop_v4358; } else { 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(142); r[7] = (hendblk(5+1)); r[0] = r[7]; r[1] = (cx__231040); r[2] = r[5]; goto gs_sexp_2Dmatch_3F; } s_loop_v4358: /* k id p */ 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(138); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v4358; } 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; /* shift reg. wnd */ /* ek r p id k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(139); 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 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; /* 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 140: /* 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 x k */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(141); r[4] = (hendblk(2+1)); r[5] = (cdr((r[2]))); r[5] = (car((r[5]))); r[0] = r[4]; r[1] = r[5]; goto gs_string_2Dforest_2D_3Estring; case 141: /* 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 */ { /* vector */ hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = (mksymbol(internsym("*-effect"))); *--hp = (mksymbol(internsym("primapp-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[4] = (hendblk(4+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 142: /* 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 make-id e p x k */ if (bool_from_obj(r[1])) { r[7] = (cdr((r[5]))); r[7] = (cdr((r[7]))); hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(145); r[8] = (hendblk(2+1)); r[0] = r[8]; r[1] = r[7]; r[2] = r[4]; goto s_loop_v4325; } else { 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(147); r[7] = (hendblk(5+1)); r[0] = r[7]; r[1] = (cx__231011); r[2] = r[5]; goto gs_sexp_2Dmatch_3F; } s_loop_v4325: /* k id p */ 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(143); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v4325; } 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+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r p id k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(144); 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 144: /* 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 145: /* 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 x k */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(146); r[4] = (hendblk(2+1)); r[5] = (cdr((r[2]))); r[5] = (car((r[5]))); r[0] = r[4]; r[1] = r[5]; goto gs_string_2Dforest_2D_3Estring; 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; /* shift reg. wnd */ /* ek r k r */ { /* vector */ hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = (mksymbol(internsym("?-effect"))); *--hp = (mksymbol(internsym("primapp-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[4] = (hendblk(4+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 147: /* 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 make-id e p x k */ if (bool_from_obj(r[1])) { r[7] = (cdr((r[5]))); r[7] = (cdr((r[7]))); hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(150); r[8] = (hendblk(2+1)); r[0] = r[8]; r[1] = r[7]; r[2] = r[4]; goto s_loop_v4292; } else { 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(152); r[7] = (hendblk(5+1)); r[0] = r[7]; r[1] = (cx__23982); r[2] = r[5]; goto gs_sexp_2Dmatch_3F; } s_loop_v4292: /* k id p */ 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(148); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v4292; } case 148: /* 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 p id k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(149); 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 149: /* 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 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; /* shift reg. wnd */ /* ek r x k */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(151); r[4] = (hendblk(2+1)); r[5] = (cdr((r[2]))); r[5] = (car((r[5]))); r[0] = r[4]; r[1] = r[5]; goto gs_string_2Dforest_2D_3Estring; case 151: /* 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 */ { /* vector */ hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = (mksymbol(internsym("!-effect"))); *--hp = (mksymbol(internsym("primapp-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[4] = (hendblk(4+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 152: /* 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 make-id e p x k */ if (bool_from_obj(r[1])) { r[7] = (cdr((r[5]))); r[7] = (cdr((r[7]))); hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(155); r[8] = (hendblk(2+1)); r[0] = r[8]; r[1] = r[7]; r[2] = r[4]; goto s_loop_v4259; } else { 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(157); r[7] = (hendblk(5+1)); r[0] = r[7]; r[1] = (cx__23953); r[2] = r[5]; goto gs_sexp_2Dmatch_3F; } s_loop_v4259: /* k id p */ 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(153); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v4259; } case 153: /* 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 p id k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(154); 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 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; /* 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 155: /* 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 x k */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(156); r[4] = (hendblk(2+1)); r[5] = (cdr((r[2]))); r[5] = (car((r[5]))); r[0] = r[4]; r[1] = r[5]; goto gs_string_2Dforest_2D_3Estring; case 156: /* 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 */ { /* vector */ hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = (mksymbol(internsym("?!-effect"))); *--hp = (mksymbol(internsym("primapp-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[4] = (hendblk(4+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 157: /* 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 make-id e p x k */ if (bool_from_obj(r[1])) { r[7] = (cdr((r[5]))); r[7] = (cdr((r[7]))); hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(160); r[8] = (hendblk(2+1)); r[0] = r[8]; r[1] = r[7]; r[2] = r[4]; goto s_loop_v4226; } else { 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(162); r[7] = (hendblk(5+1)); r[0] = r[7]; r[1] = (cx__23924); r[2] = r[5]; goto gs_sexp_2Dmatch_3F; } s_loop_v4226: /* k id p */ 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(158); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v4226; } 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; /* shift reg. wnd */ /* ek r p id k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(159); 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 159: /* 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 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; /* shift reg. wnd */ /* ek r x k */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(161); r[4] = (hendblk(2+1)); r[5] = (cdr((r[2]))); r[5] = (car((r[5]))); r[0] = r[4]; r[1] = r[5]; goto gs_string_2Dforest_2D_3Estring; case 161: /* 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 */ { /* vector */ hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = (mksymbol(internsym("*?-effect"))); *--hp = (mksymbol(internsym("primapp-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[4] = (hendblk(4+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 162: /* 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 make-id e p x k */ if (bool_from_obj(r[1])) { r[7] = (cdr((r[5]))); r[7] = (cdr((r[7]))); hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(165); r[8] = (hendblk(2+1)); r[0] = r[8]; r[1] = r[7]; r[2] = r[4]; goto s_loop_v4193; } else { 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(167); r[7] = (hendblk(5+1)); r[0] = r[7]; r[1] = (cx__23895); r[2] = r[5]; goto gs_sexp_2Dmatch_3F; } s_loop_v4193: /* k id p */ 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(163); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v4193; } case 163: /* 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 p id k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(164); 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 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; /* 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 165: /* 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 x k */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(166); r[4] = (hendblk(2+1)); r[5] = (cdr((r[2]))); r[5] = (car((r[5]))); r[0] = r[4]; r[1] = r[5]; goto gs_string_2Dforest_2D_3Estring; case 166: /* 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 */ { /* vector */ hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = (mksymbol(internsym("*!-effect"))); *--hp = (mksymbol(internsym("primapp-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[4] = (hendblk(4+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 167: /* 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 make-id e p x k */ if (bool_from_obj(r[1])) { r[7] = (cdr((r[5]))); r[7] = (cdr((r[7]))); hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(170); r[8] = (hendblk(2+1)); r[0] = r[8]; r[1] = r[7]; r[2] = r[4]; goto s_loop_v4160; } else { 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(172); r[7] = (hendblk(5+1)); r[0] = r[7]; r[1] = (cx__23868); r[2] = r[5]; goto gs_sexp_2Dmatch_3F; } s_loop_v4160: /* k id p */ 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(168); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v4160; } 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; /* shift reg. wnd */ /* ek r p id k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(169); 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 169: /* 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 170: /* 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 x k */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(171); r[4] = (hendblk(2+1)); r[5] = (cdr((r[2]))); r[5] = (car((r[5]))); r[0] = r[4]; r[1] = r[5]; goto gs_string_2Dforest_2D_3Estring; case 171: /* 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 */ { /* vector */ hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = (mksymbol(internsym("*?!-effect"))); *--hp = (mksymbol(internsym("primapp-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[4] = (hendblk(4+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 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; /* shift reg. wnd */ /* ek r make-id e p x k */ if (bool_from_obj(r[1])) { r[7] = (cdr((r[5]))); hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(175); r[8] = (hendblk(3+1)); r[0] = r[8]; r[1] = r[7]; r[2] = r[4]; goto s_loop_v4127; } else { hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(177); r[7] = (hendblk(4+1)); r[0] = r[7]; r[1] = (mksymbol(internsym(""))); r[2] = (r[5]); goto gs_sexp_2Dmatch_3F; } s_loop_v4127: /* k id p */ 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(173); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v4127; } case 173: /* 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 p id k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(174); 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 174: /* 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 175: /* 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 p x k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(176); 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 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; /* shift reg. wnd */ /* ek r k r */ { /* vector */ hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = (mksymbol(internsym("app-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[4] = (hendblk(3+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 177: /* 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 make-id e x k */ if (bool_from_obj(r[1])) { hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = obj_from_case(178); r[6] = (hendblk(1+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = r[4]; /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[0] = r[5]; r[1] = (cx__23852); r[2] = r[6]; goto gs_c_2Derror_2A; } case 178: /* 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 */ { /* vector */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = (mksymbol(internsym("var-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[3] = (hendblk(2+1)); } 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 179: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ cx_exp_2Dvinfo = r[1]; hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(180); r[2] = (hendblk(0+1)); hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(209); r[3] = (hendblk(0+1)); r[0] = r[2]; r[1] = r[3]; goto gs_memoizate_2Dvar_2Dattribute; case 180: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ cx_var_2Duses_2Din_2Dexp = r[1]; { static obj c[] = { obj_from_case(181) }; cx_var_2Dreferenced_2Din_2Dexp_3F = (obj)c; } { static obj c[] = { obj_from_case(183) }; cx_var_2Dassigned_2Din_2Dexp_3F = (obj)c; } { static obj c[] = { obj_from_case(185) }; cx_var_2Dreference_2Dcount = (obj)c; } { static obj c[] = { obj_from_case(187) }; cx_var_2Dassignment_2Dcount = (obj)c; } { static obj c[] = { obj_from_case(190) }; cx_var_2Donly_2Dapplied_2Din_2Dexp_3F = (obj)c; } { static obj c[] = { obj_from_case(192) }; cx_var_2Duse_2Dunboxed_2Dctype = (obj)c; } { static obj c[] = { obj_from_case(193) }; cx_var_2Dunboxed_2Dctype_2Din_2Dexp = (obj)c; } hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(195); r[2] = (hendblk(0+1)); hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(206); r[3] = (hendblk(0+1)); r[0] = r[2]; r[1] = r[3]; goto gs_memoizate_2Dexp_2Dattribute; case 181: /* var-referenced-in-exp? k id exp */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k id exp */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = obj_from_case(182); 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] = r[1]; r[4+3] = r[2]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 182: /* 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(ispair((r[1]))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 183: /* var-assigned-in-exp? k id exp */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k id exp */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = obj_from_case(184); 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] = r[1]; r[4+3] = r[2]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 184: /* 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[0] = r[2]; /* r[1] */ goto s_loop_v4022; s_loop_v4022: /* k id */ if ((!(isnull((r[1]))))) { r[2] = (car((r[1]))); r[2] = (vectorref((r[2]), (+1))); if (bool_from_obj(r[2])) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[3] = (cdr((r[1]))); /* r[0] */ r[1] = r[3]; goto s_loop_v4022; } } 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 185: /* var-reference-count k id exp */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k id exp */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = obj_from_case(186); 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] = r[1]; r[4+3] = r[2]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 186: /* 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 */ { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; r[3] = obj_from_fixnum(n); } 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 187: /* var-assignment-count k id exp */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k id exp */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = obj_from_case(188); 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] = r[1]; r[4+3] = r[2]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 188: /* 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(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(189); r[3] = (hendblk(0+1)); r[4+0] = r[2]; r[4+1] = r[3]; r[4+2] = obj_from_fixnum(+0); r[4+3] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_reduce_2Dleft; case 189: /* clo k vu n */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k vu n */ r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); r[3+2] = (bool_from_obj(vectorref((r[1]), (+1))) ? obj_from_fixnum(fixnum_from_obj(r[2]) + (+1)) : (r[2])); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 190: /* var-only-applied-in-exp? k id exp */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k id exp */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = obj_from_case(191); 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] = r[1]; r[4+3] = r[2]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 191: /* 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[0] = r[2]; /* r[1] */ goto s_loop_v3967; s_loop_v3967: /* 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] = obj_from_bool(isnull((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[2] = (car((r[1]))); r[2] = (vectorref((r[2]), (+2))); if (bool_from_obj(r[2])) { r[2] = (cdr((r[1]))); /* r[0] */ r[1] = r[2]; goto s_loop_v3967; } 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 192: /* var-use-unboxed-ctype k vu */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k vu */ r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (cxs_var_2Duse_2Dunboxed_2Dctype((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 193: /* var-unboxed-ctype-in-exp k id exp */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k id exp */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = obj_from_case(194); 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] = r[1]; r[4+3] = r[2]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 194: /* 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[0] = r[2]; /* r[1] */ r[2] = obj_from_bool(0); goto s_loop_v3940; s_loop_v3940: /* k vu* ctype */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[3] = (car((r[1]))); r[3] = (cxs_var_2Duse_2Dunboxed_2Dctype((r[3]))); if (bool_from_obj(r[3])) { if (((!bool_from_obj(r[2])) || (strcmp(stringchars((r[3])), stringchars((r[2]))) == 0))) { r[4] = (cdr((r[1]))); /* r[0] */ r[1] = r[4]; r[2] = r[3]; goto s_loop_v3940; } 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 195: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ cx_exp_2D_3Efree_2Dvars = r[1]; hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(196); r[2] = (hendblk(0+1)); hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(203); r[3] = (hendblk(0+1)); r[0] = r[2]; r[1] = r[3]; goto gs_memoizate_2Dexp_2Dattribute; case 196: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ cx_exp_2D_3Efree_2Dlexvars = r[1]; { static obj c[] = { obj_from_case(197) }; cx_exp_2Dctype = (obj)c; } r[2] = obj_from_void(0); r[3+0] = r[0]; pc = 0; /* exit from module init */ r[3+1] = r[2]; r += 3; /* shift reg wnd */ rc = 2; goto jump; case 197: /* exp-ctype k exp env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_exp_2Dctype: /* k exp env */ if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+2))) { r[3] = (vectorref((r[1]), (+0))); r[3] = obj_from_bool((r[3]) == (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] = (vectorref((r[1]), (+1))); { /* assq */ obj x = (r[3]), l = (r[2]), p = mknull(); for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; } r[4] = (l == mknull() ? obj_from_bool(0) : p); } r[3] = (bool_from_obj(r[4]) ? (cdr((r[4]))) : obj_from_bool(0)); r[4+0] = r[0]; 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; } else { if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+4))) { r[3] = (vectorref((r[1]), (+0))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("if-exp")))); } else { r[3] = obj_from_bool(0); } } else { r[3] = obj_from_bool(0); } if (bool_from_obj(r[3])) { 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[3]; *--hp = r[2]; *--hp = obj_from_case(198); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[4]; /* r[2] */ goto gs_exp_2Dctype; } else { if (bool_from_obj(cxs_let_2Dexp_3F_231874((r[1])))) { r[3] = (vectorref((r[1]), (+1))); r[3] = (vectorref((r[3]), (+1))); r[4] = (vectorref((r[1]), (+2))); r[5] = (vectorref((r[1]), (+1))); r[5] = (vectorref((r[5]), (+2))); hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = r[5]; *--hp = obj_from_case(202); r[6] = (hendblk(3+1)); r[7+0] = r[6]; r[7+1] = r[3]; r[7+2] = r[4]; r[7+3] = r[2]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v3891; } else { if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+4))) { r[3] = (vectorref((r[1]), (+0))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("primapp-exp")))); } else { r[3] = obj_from_bool(0); } } else { r[3] = obj_from_bool(0); } if (bool_from_obj(r[3])) { r[3] = (vectorref((r[1]), (+2))); r[4+0] = (cx_prim_2Dctype); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r += 4; /* shift reg wnd */ 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 198: /* 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 env then-exp k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(199); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto gs_exp_2Dctype; case 199: /* 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 */ r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = (bool_from_obj(r[1]) ? (bool_from_obj(r[3]) ? ((strcmp(stringchars((r[1])), stringchars((r[3]))) == 0) ? (r[1]) : obj_from_bool(0)) : obj_from_bool(0)) : obj_from_bool(0)); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; s_loop_v3891: /* k id id env */ 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(200); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[4]; r[2] = r[5]; /* r[3] */ goto s_loop_v3891; } case 200: /* 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 env k id id */ r[6] = (car((r[5]))); r[7] = (car((r[4]))); hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(201); r[8] = (hendblk(3+1)); r[0] = r[8]; r[1] = r[7]; /* r[2] */ goto gs_exp_2Dctype; case 201: /* 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 id */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--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 202: /* 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 body k env */ { fixnum_t v5301_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v5301_tmp = (n); } { /* append */ obj t, l, o, *p, *d; int c = (v5301_tmp); hreserve(hbsz(3)*c, 5); /* 5 live regs */ l = r[1]; t = r[4]; /* 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[5] = (o); } } r[0] = r[3]; r[1] = r[2]; r[2] = r[5]; goto gs_exp_2Dctype; case 203: /* clo k exp */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k exp */ hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = obj_from_case(204); r[2] = (hendblk(1+1)); r[3+0] = (cx_exp_2Dvinfo); 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 204: /* 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(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(205); r[3] = (hendblk(0+1)); r[4+0] = r[2]; r[4+1] = r[3]; r[4+2] = (mknull()); r[4+3] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_reduce_2Dleft; case 205: /* clo k id&vu res */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k id&vu res */ r[3] = (car((r[1]))); r[4] = (cdr((r[3]))); r[4] = (cdr((r[4]))); r[4] = (car((r[4]))); r[3] = obj_from_bool(fixnum_from_obj(r[4]) < (+0)); if (bool_from_obj(r[3])) { r[3] = r[2]; } 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[4] = (l == mknull() ? obj_from_bool(0) : l); } if (bool_from_obj(r[4])) { r[3] = r[2]; } else { { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } } } r[4+0] = r[0]; 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 206: /* clo k exp */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k exp */ hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = obj_from_case(207); r[2] = (hendblk(1+1)); r[3+0] = (cx_exp_2Dvinfo); 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 207: /* 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(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(208); r[3] = (hendblk(0+1)); r[4+0] = r[2]; r[4+1] = r[3]; r[4+2] = (mknull()); r[4+3] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_reduce_2Dleft; case 208: /* clo k id&vu res */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k id&vu res */ 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[4] = (l == mknull() ? obj_from_bool(0) : l); } if (bool_from_obj(r[4])) { r[3] = r[2]; } else { { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } } r[4+0] = r[0]; 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 209: /* clo k id exp */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k id exp */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(210); r[3] = (hendblk(2+1)); r[4+0] = (cx_exp_2Dvinfo); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = r[2]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 210: /* 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 */ r[4+0] = r[3]; r[4+1] = r[1]; r[4+2] = (mknull()); r[4+3] = r[2]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v3820; s_loop_v3820: /* k vinfo uses id */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[4] = (car((r[1]))); r[4] = (car((r[4]))); r[4] = obj_from_bool((r[3]) == (r[4])); if (bool_from_obj(r[4])) { r[4] = (cdr((r[1]))); r[5] = (car((r[1]))); r[5] = (cdr((r[5]))); { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[2]; *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } /* r[0] */ r[1] = r[4]; r[2] = r[5]; /* r[3] */ goto s_loop_v3820; } else { r[4] = (cdr((r[1]))); /* r[0] */ r[1] = r[4]; /* r[2] */ /* r[3] */ goto s_loop_v3820; } } case 211: /* clo k exp */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k exp */ 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))); { /* vector */ hreserve(hbsz(4+1), 3); /* 3 live regs */ *--hp = obj_from_bool(0); *--hp = obj_from_bool(0); *--hp = obj_from_bool(0); *--hp = (mksymbol(internsym("var-use"))); *--hp = obj_from_size(VECTOR_BTAG); r[3] = (hendblk(4+1)); } { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = r[3]; *--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; } 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[2]; *--hp = r[0]; *--hp = obj_from_case(212); r[4] = (hendblk(2+1)); r[5+0] = (cx_exp_2Dvinfo); 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 { 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(213); r[5] = (hendblk(3+1)); r[6+0] = (cx_exp_2Dvinfo); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[5]; r[6+2] = r[4]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } 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("primapp-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]), (+2))); r[3] = (vectorref((r[1]), (+3))); r[4+0] = r[0]; r[4+1] = r[3]; r[4+2] = obj_from_fixnum(+0); r[4+3] = (mknull()); r[4+4] = r[2]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v3765; } 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("app-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[3]; *--hp = obj_from_case(219); r[4] = (hendblk(2+1)); if ((isvector((r[2])))) { if (((vectorlen((r[2]))) == (+2))) { r[5] = (vectorref((r[2]), (+0))); r[5] = obj_from_bool((r[5]) == (mksymbol(internsym("var-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[2]), (+1))); { /* vector */ hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = obj_from_bool(0); *--hp = obj_from_bool(1); *--hp = obj_from_bool(0); *--hp = (mksymbol(internsym("var-use"))); *--hp = obj_from_size(VECTOR_BTAG); r[6] = (hendblk(4+1)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = r[6]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[6+0] = obj_from_ktrap(); r[6+1] = r[5]; r[6+2] = r[3]; r[6+3] = r[0]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v3746; } else { r[0] = (cx_exp_2Dvinfo); pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; /* r[2] */ 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("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(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = obj_from_case(222); r[4] = (hendblk(2+1)); r[5+0] = (cx_exp_2Dvinfo); 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 { if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+4))) { r[2] = (vectorref((r[1]), (+0))); r[2] = obj_from_bool((r[2]) == (mksymbol(internsym("fix-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(224); r[5] = (hendblk(3+1)); r[6+0] = (cx_exp_2Dvinfo); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[5]; r[6+2] = r[4]; r += 6; /* 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("letcc-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(229); r[4] = (hendblk(2+1)); r[5+0] = (cx_exp_2Dvinfo); 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 { if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+3))) { r[2] = (vectorref((r[1]), (+0))); r[2] = obj_from_bool((r[2]) == (mksymbol(internsym("withcc-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(231); r[4] = (hendblk(2+1)); r[5+0] = (cx_exp_2Dvinfo); 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] = (cx__2Acurrent_2Derror_2Dport_2A); (void)(fputc('\n', oportdata((r[2])))); hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(233); r[3] = (hendblk(3+1)); if (bool_from_obj(mksymbol(internsym("variant-case")))) { { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("variant-case"))); *--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] = r[2]; r[5+3] = (cx__231415); r[5+4] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { r[4+0] = (cx_write_2F3); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = (cx__231411); r[4+3] = obj_from_bool(1); r[4+4] = r[2]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; } } } } } } } } } } case 212: /* 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 */ { /* vector */ hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = obj_from_bool(0); *--hp = obj_from_bool(0); *--hp = obj_from_bool(1); *--hp = (mksymbol(internsym("var-use"))); *--hp = obj_from_size(VECTOR_BTAG); r[4] = (hendblk(4+1)); } { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--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 213: /* 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 */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(214); r[5] = (hendblk(3+1)); r[0] = (cx_exp_2Dvinfo); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 214: /* 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 */ { fixnum_t v5300_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v5300_tmp = (n); } { /* append */ obj t, l, o, *p, *d; int c = (v5300_tmp); hreserve(hbsz(3)*c, 5); /* 5 live regs */ l = r[1]; t = r[4]; /* 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[5] = (o); } } hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[3]; *--hp = obj_from_case(215); r[6] = (hendblk(2+1)); r[0] = (cx_exp_2Dvinfo); pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 215: /* 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 v5299_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v5299_tmp = (n); } { /* append */ obj t, l, o, *p, *d; int c = (v5299_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); } } 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 216: /* clo k rands n vi */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v3765: /* k rands n vi prim */ hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = obj_from_case(216); r[5] = (hendblk(1+1)); if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[3]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[6] = (car((r[1]))); if ((isvector((r[6])))) { if (((vectorlen((r[6]))) == (+2))) { r[7] = (vectorref((r[6]), (+0))); r[7] = obj_from_bool((r[7]) == (mksymbol(internsym("var-exp")))); } else { r[7] = obj_from_bool(0); } } else { r[7] = obj_from_bool(0); } if (bool_from_obj(r[7])) { r[7] = (vectorref((r[6]), (+1))); hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[3]; *--hp = r[5]; *--hp = obj_from_case(217); r[8] = (hendblk(6+1)); r[9+0] = (cx_c_2Dargref_2Dctype); pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[8]; r[9+2] = r[4]; r[9+3] = r[2]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(5+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[5]; *--hp = obj_from_case(218); r[7] = (hendblk(5+1)); r[8+0] = (cx_exp_2Dvinfo); pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[7]; r[8+2] = r[6]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } case 217: /* 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 loop vi n rands k id */ { /* vector */ hreserve(hbsz(4+1), 8); /* 8 live regs */ *--hp = r[1]; *--hp = obj_from_bool(0); *--hp = obj_from_bool(0); *--hp = (mksymbol(internsym("var-use"))); *--hp = obj_from_size(VECTOR_BTAG); r[8] = (hendblk(4+1)); } { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* 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[6]; r[11+2] = (cdr((r[5]))); r[11+3] = obj_from_fixnum(fixnum_from_obj(r[4]) + (+1)); r[11+4] = (r[10]); r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 218: /* 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 loop n rands k vi */ { fixnum_t v5298_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v5298_tmp = (n); } { /* append */ obj t, l, o, *p, *d; int c = (v5298_tmp); hreserve(hbsz(3)*c, 7); /* 7 live regs */ l = r[1]; 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[7] = (o); } } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = (cdr((r[4]))); r[3] = obj_from_fixnum(fixnum_from_obj(r[3]) + (+1)); r[4] = r[7]; rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 219: /* 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 */ s_l_v3746: /* ek r rands k */ hreserve(hbsz(0+1), 4); /* 4 live regs */ *--hp = obj_from_case(220); r[4] = (hendblk(0+1)); r[5+0] = r[3]; r[5+1] = r[4]; r[5+2] = r[1]; r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_reduce_2Dright; case 220: /* clo k exp vi */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k exp vi */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = obj_from_case(221); r[3] = (hendblk(2+1)); r[4+0] = (cx_exp_2Dvinfo); 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 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; /* shift reg. wnd */ /* ek r k vi */ { fixnum_t v5297_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v5297_tmp = (n); } { /* append */ obj t, l, o, *p, *d; int c = (v5297_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); } } 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 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 ids k */ hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = obj_from_case(223); r[4] = (hendblk(1+1)); r[5+0] = r[3]; r[5+1] = r[4]; r[5+2] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_keep_231452; case 223: /* clo k id&vu */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* k id&vu ids */ 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); } r[3] = obj_from_bool(!bool_from_obj(r[3])); r[4+0] = r[0]; 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 224: /* 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 lams ids k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(225); r[5] = (hendblk(2+1)); hreserve(hbsz(0+1), 6); /* 6 live regs */ *--hp = obj_from_case(227); r[6] = (hendblk(0+1)); r[7+0] = r[5]; r[7+1] = r[6]; r[7+2] = r[1]; r[7+3] = r[2]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_reduce_2Dright; 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; /* shift reg. wnd */ /* ek r ids k */ hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = obj_from_case(226); r[4] = (hendblk(1+1)); r[5+0] = r[3]; r[5+1] = r[4]; r[5+2] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_keep_231452; case 226: /* clo k id&vu */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* k id&vu ids */ 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); } r[3] = obj_from_bool(!bool_from_obj(r[3])); r[4+0] = r[0]; 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 227: /* clo k exp vi */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k exp vi */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = obj_from_case(228); r[3] = (hendblk(2+1)); r[4+0] = (cx_exp_2Dvinfo); 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 228: /* 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 vi */ { fixnum_t v5296_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v5296_tmp = (n); } { /* append */ obj t, l, o, *p, *d; int c = (v5296_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); } } 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 229: /* 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(1+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = obj_from_case(230); r[4] = (hendblk(1+1)); r[5+0] = r[3]; r[5+1] = r[4]; r[5+2] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_keep_231452; case 230: /* clo k id&vu */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* k id&vu id */ { bool_t v5295_tmp; r[3] = (car((r[1]))); v5295_tmp = ((r[3]) == (r[2])); r[3] = obj_from_bool(!(v5295_tmp)); } r[4+0] = r[0]; 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 231: /* 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 */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(232); r[4] = (hendblk(2+1)); r[0] = (cx_exp_2Dvinfo); pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 232: /* 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 v5294_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v5294_tmp = (n); } { /* append */ obj t, l, o, *p, *d; int c = (v5294_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); } } 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 233: /* 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(234); 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__231409); r[7+4] = r[6]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 234: /* 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(235); 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__231406); 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 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] = (cx_reset); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; rreserve(MAX_HOSTREGS); rc = 2; 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); } }