/* 5.sf */ /* Generated by #F $Id$ */ #ifdef PROFILE #define host host_module_5 #endif #define MODULE module_5 #define LOAD() module_3(); module_0(); extern void module_0(void); /* 0.sf */ extern void module_3(void); /* 3.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_begin_2Did_2Dsymbol; /* begin-id-symbol */ extern obj cx_exp_2D_3Efree_2Dlexvars; /* exp->free-lexvars */ extern obj cx_exp_2Dctype; /* exp-ctype */ extern obj cx_fprintf_2A; /* fprintf* */ extern obj cx_posq; /* posq */ extern obj cx_reduce_2Dleft; /* reduce-left */ extern obj cx_reset; /* reset */ extern obj cx_the_2Dhalt_2Dprim; /* the-halt-prim */ extern obj cx_timestamp; /* timestamp */ extern obj cx_typecheck_2Dprim_2Dctype; /* typecheck-prim-ctype */ extern obj cx_var_2Dreference_2Dcount; /* var-reference-count */ extern obj cx_var_2Dreferenced_2Din_2Dexp_3F; /* var-referenced-in-exp? */ extern obj cx_var_2Dunboxed_2Dctype_2Din_2Dexp; /* var-unboxed-ctype-in-exp */ extern obj cx_write_2F3; /* write/3 */ obj cx_cps_2Dconvert; /* cps-convert */ obj cx_lambda_2Dlift; /* lambda-lift */ obj cx_unbox_2Dvalues; /* unbox-values */ static obj cx__231979; /* constant #1979 */ static obj cx__2383; /* constant #83 */ static obj cx__2387; /* constant #87 */ static obj cx__2389; /* constant #89 */ static obj cx__239; /* constant #9 */ static obj cx__2393; /* constant #93 */ static obj cx_begin_2Dexp_3F_23203; /* constant begin-exp?#203 */ static obj cx_curry_2Dexp_231422; /* constant curry-exp#1422 */ static obj cx_intersectionq_231496; /* constant intersectionq#1496 */ static obj cx_setdiffq_231479; /* constant setdiffq#1479 */ static obj cx_unionq_231461; /* constant unionq#1461 */ /* helper functions */ /* let-exp?#141 */ static obj cxs_let_2Dexp_3F_23141(obj v143_exp) { if (bool_from_obj((isvector((v143_exp))) ? (((vectorlen((v143_exp))) == (+3)) ? obj_from_bool((vectorref((v143_exp), (+0))) == (mksymbol(internsym("app-exp")))) : obj_from_bool(0)) : obj_from_bool(0))) { { /* let */ obj v147_rator = (vectorref((v143_exp), (+1))); if (bool_from_obj((isvector((v147_rator))) ? (((vectorlen((v147_rator))) == (+3)) ? obj_from_bool((vectorref((v147_rator), (+0))) == (mksymbol(internsym("lambda-exp")))) : obj_from_bool(0)) : obj_from_bool(0))) { { /* let */ obj v2101_tmp; obj v2100_tmp; { /* length */ int n; obj l = (vectorref((v143_exp), (+2))); for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v2101_tmp = obj_from_fixnum(n); }; { /* length */ int n; obj l = (vectorref((v147_rator), (+1))); for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v2100_tmp = obj_from_fixnum(n); }; return obj_from_bool(fixnum_from_obj(v2100_tmp) == fixnum_from_obj(v2101_tmp)); } } else { return obj_from_bool(0); } } } else { return obj_from_bool(0); } } /* degenerate-let-exp->body#236 */ static obj cxs_degenerate_2Dlet_2Dexp_2D_3Ebody_23236(obj v238_exp) { return ((isnull((vectorref((v238_exp), (+2))))) ? (vectorref((vectorref((v238_exp), (+1))), (+2))) : (car((vectorref((v238_exp), (+2)))))); } /* null-let-exp?#262 */ static obj cxs_null_2Dlet_2Dexp_3F_23262(obj v264_exp) { if (bool_from_obj((isvector((v264_exp))) ? (((vectorlen((v264_exp))) == (+3)) ? obj_from_bool((vectorref((v264_exp), (+0))) == (mksymbol(internsym("app-exp")))) : obj_from_bool(0)) : obj_from_bool(0))) { if ((isnull((vectorref((v264_exp), (+2)))))) { { /* let */ obj v268_rator = (vectorref((v264_exp), (+1))); return (bool_from_obj((isvector((v268_rator))) ? (((vectorlen((v268_rator))) == (+3)) ? obj_from_bool((vectorref((v268_rator), (+0))) == (mksymbol(internsym("lambda-exp")))) : obj_from_bool(0)) : obj_from_bool(0)) ? obj_from_bool(isnull((vectorref((v268_rator), (+1))))) : obj_from_bool(0)); } } else { return obj_from_bool(0); } } else { return obj_from_bool(0); } } /* identity-lambda-exp?#308 */ static obj cxs_identity_2Dlambda_2Dexp_3F_23308(obj v310_exp) { if (bool_from_obj((isvector((v310_exp))) ? (((vectorlen((v310_exp))) == (+3)) ? obj_from_bool((vectorref((v310_exp), (+0))) == (mksymbol(internsym("lambda-exp")))) : obj_from_bool(0)) : obj_from_bool(0))) { { /* let */ obj v317_body = (vectorref((v310_exp), (+2))); obj v318_ids = (vectorref((v310_exp), (+1))); return ((ispair((v318_ids))) ? ((isnull((cdr((v318_ids))))) ? (bool_from_obj((isvector((v317_body))) ? (((vectorlen((v317_body))) == (+2)) ? obj_from_bool((vectorref((v317_body), (+0))) == (mksymbol(internsym("var-exp")))) : obj_from_bool(0)) : obj_from_bool(0)) ? obj_from_bool((car((v318_ids))) == (vectorref((v317_body), (+1)))) : obj_from_bool(0)) : obj_from_bool(0)) : obj_from_bool(0)); } } else { return obj_from_bool(0); } } /* identity-let-exp?#295 */ static obj cxs_identity_2Dlet_2Dexp_3F_23295(obj v297_exp) { if (bool_from_obj((isvector((v297_exp))) ? (((vectorlen((v297_exp))) == (+3)) ? obj_from_bool((vectorref((v297_exp), (+0))) == (mksymbol(internsym("app-exp")))) : obj_from_bool(0)) : obj_from_bool(0))) { if (bool_from_obj(cxs_identity_2Dlambda_2Dexp_3F_23308((vectorref((v297_exp), (+1)))))) { { /* let */ obj v301_rands = (vectorref((v297_exp), (+2))); return ((ispair((v301_rands))) ? obj_from_bool(isnull((cdr((v301_rands))))) : obj_from_bool(0)); } } else { return obj_from_bool(0); } } else { return obj_from_bool(0); } } /* degenerate-let-exp?#259 */ static obj cxs_degenerate_2Dlet_2Dexp_3F_23259(obj v261_exp) { { /* let */ obj v294_x = (cxs_null_2Dlet_2Dexp_3F_23262((v261_exp))); return (bool_from_obj(v294_x) ? (v294_x) : (cxs_identity_2Dlet_2Dexp_3F_23295((v261_exp)))); } } /* gvarassign-exp?#506 */ static obj cxs_gvarassign_2Dexp_3F_23506(obj v508_exp) { if (bool_from_obj((isvector((v508_exp))) ? (((vectorlen((v508_exp))) == (+3)) ? obj_from_bool((vectorref((v508_exp), (+0))) == (mksymbol(internsym("varassign-exp")))) : obj_from_bool(0)) : obj_from_bool(0))) { { /* let */ obj v514_id = (vectorref((v508_exp), (+1))); return obj_from_bool(fixnum_from_obj(car((cdr((cdr((v514_id))))))) < (+0)); } } else { return obj_from_bool(0); } } /* subsetq?#1598 */ static obj cxs_subsetq_3F_231598(obj v1601_s1, obj v1600_s2) { { /* letrec */ obj v1603_id; /* tail call */ v1603_id = (v1601_s1); goto s_loop; s_loop: if ((isnull((v1603_id)))) { return obj_from_bool(isnull((v1603_id))); } else { { /* let */ obj v2098_tmp; { /* memq */ obj x = (car((v1603_id))), l = (v1600_s2); for (; l != mknull(); l = cdr(l)) if (car(l) == x) break; v2098_tmp = (l == mknull() ? obj_from_bool(0) : l); }; if (bool_from_obj(v2098_tmp)) { { /* let */ obj v2099_tmp = (cdr((v1603_id))); /* tail call */ v1603_id = (v2099_tmp); goto s_loop; } } else { return obj_from_bool(0); } } } } } /* seteq?#1594 */ static obj cxs_seteq_3F_231594(obj v1597_s1, obj v1596_s2) { return (bool_from_obj(cxs_subsetq_3F_231598((v1597_s1), (v1596_s2))) ? (cxs_subsetq_3F_231598((v1596_s2), (v1597_s1))) : obj_from_bool(0)); } /* gc roots */ static obj *globv[] = { &cx__231979, &cx__2383, &cx__2387, &cx__2389, &cx__239, &cx__2393, }; static cxroot_t root = { sizeof(globv)/sizeof(obj *), globv, NULL }; /* entry points */ static obj host(obj); static obj cases[205] = { (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (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 52 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__239 = (hpushstr(0, newstring("ktrap()"))); { static char s[] = { 46, 10, 0 }; cx__2383 = (hpushstr(0, newstring(s))); } cx__2387 = (hpushstr(0, newstring("no clause matches ~s"))); cx__2389 = (hpushstr(0, newstring("Error: "))); cx__2393 = (hpushstr(0, newstring("Error in ~a: "))); { static obj c[] = { obj_from_case(1) }; cx_begin_2Dexp_3F_23203 = (obj)c; } { static obj c[] = { obj_from_case(3) }; cx_curry_2Dexp_231422 = (obj)c; } { static obj c[] = { obj_from_case(6) }; cx_unionq_231461 = (obj)c; } { static obj c[] = { obj_from_case(8) }; cx_setdiffq_231479 = (obj)c; } { static obj c[] = { obj_from_case(10) }; cx_intersectionq_231496 = (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("obj"))); { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); cx__231979 = (hendblk(3)); } { static obj c[] = { obj_from_case(12) }; cx_cps_2Dconvert = (obj)c; } { static obj c[] = { obj_from_case(95) }; cx_lambda_2Dlift = (obj)c; } { static obj c[] = { obj_from_case(161) }; cx_unbox_2Dvalues = (obj)c; } r[0] = obj_from_void(0); r[1+0] = r[0]; pc = 0; /* exit from module init */ r[1+1] = r[0]; r += 1; /* shift reg wnd */ rc = 2; goto jump; case 1: /* begin-exp?#203 k exp */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_begin_2Dexp_3F_23203: /* k exp */ if (bool_from_obj(cxs_let_2Dexp_3F_23141((r[1])))) { r[2] = (vectorref((r[1]), (+1))); r[2] = (vectorref((r[2]), (+1))); r[3] = (vectorref((r[1]), (+1))); r[3] = (vectorref((r[3]), (+2))); if ((ispair((r[2])))) { r[4] = (cdr((r[2]))); r[4] = obj_from_bool(isnull((r[4]))); if (bool_from_obj(r[4])) { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = obj_from_case(2); r[4] = (hendblk(1+1)); r[5+0] = (cx_var_2Dreferenced_2Din_2Dexp_3F); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = (car((r[2]))); r[5+3] = r[3]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } else { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = obj_from_bool(0); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 2: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ r[3+0] = r[2]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); r[3+2] = obj_from_bool(!bool_from_obj(r[1])); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 3: /* curry-exp#1422 k id ids rands */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_curry_2Dexp_231422: /* k id ids rands */ hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = r[2]; *--hp = r[0]; *--hp = obj_from_case(5); r[4] = (hendblk(4+1)); r[0] = r[4]; r[1] = r[2]; goto s_loop; s_loop: /* 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(4); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop; } case 4: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k id */ r[4] = (car((r[3]))); { /* vector */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = (mksymbol(internsym("var-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[4] = (hendblk(2+1)); } { /* 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 5: /* 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 ids id rands */ { fixnum_t v4785_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v4785_tmp = (n); } { /* append */ obj t, l, o, *p, *d; int c = (v4785_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); } } { /* vector */ hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[4]; *--hp = (mksymbol(internsym("var-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[7] = (hendblk(2+1)); } { /* vector */ hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[7]; *--hp = (mksymbol(internsym("app-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[7] = (hendblk(3+1)); } { /* vector */ hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[3]; *--hp = (mksymbol(internsym("lambda-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 6: /* unionq#1461 k s1 s2 */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_unionq_231461: s_unionq: /* k s1 s2 */ 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]))); { /* memq */ obj x = (r[3]), l = r[2]; for (; l != mknull(); l = cdr(l)) if (car(l) == x) break; r[3] = (l == mknull() ? obj_from_bool(0) : l); } if (bool_from_obj(r[3])) { r[3] = (cdr((r[1]))); /* r[0] */ r[1] = r[3]; /* r[2] */ goto s_unionq; } else { r[3] = (cdr((r[1]))); hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(7); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_unionq; } } case 7: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k s1 */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[1]; *--hp = (car((r[3]))); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 8: /* setdiffq#1479 k s1 s2 */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_setdiffq_231479: s_setdiffq: /* k s1 s2 */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[3] = (car((r[1]))); { /* memq */ obj x = (r[3]), l = r[2]; for (; l != mknull(); l = cdr(l)) if (car(l) == x) break; r[3] = (l == mknull() ? obj_from_bool(0) : l); } if (bool_from_obj(r[3])) { r[3] = (cdr((r[1]))); /* r[0] */ r[1] = r[3]; /* r[2] */ goto s_setdiffq; } else { r[3] = (cdr((r[1]))); hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(9); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_setdiffq; } } case 9: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k s1 */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[1]; *--hp = (car((r[3]))); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 10: /* intersectionq#1496 k s1 s2 */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_intersectionq_231496: s_intersectionq: /* k s1 s2 */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[3] = (car((r[1]))); { /* memq */ obj x = (r[3]), l = r[2]; for (; l != mknull(); l = cdr(l)) if (car(l) == x) break; r[3] = (l == mknull() ? obj_from_bool(0) : l); } if (bool_from_obj(r[3])) { r[3] = (cdr((r[1]))); hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(11); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_intersectionq; } else { r[3] = (cdr((r[1]))); /* r[0] */ r[1] = r[3]; /* r[2] */ goto s_intersectionq; } } case 11: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k s1 */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[1]; *--hp = (car((r[3]))); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 12: /* cps-convert k exp */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k exp */ hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(29); 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(13); r[2] = (hendblk(3+1)); r[3+0] = (cx_timestamp); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 2; goto jump; case 13: /* 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 cps exp k */ { /* 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("r"))); *--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)); } hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(14); r[6] = (hendblk(4+1)); r[0] = (cx_timestamp); pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; rreserve(MAX_HOSTREGS); rc = 2; 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+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r cps exp k r */ { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("ek"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("var"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = r[5]; *--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)); } { /* vector */ hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[5]; *--hp = (mksymbol(internsym("var-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[8] = (hendblk(2+1)); } { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = (mknull()); *--hp = r[8]; *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* vector */ hreserve(hbsz(4+1), 10); /* 10 live regs */ *--hp = r[9]; *--hp = (cx_the_2Dhalt_2Dprim); *--hp = (mksymbol(internsym("*?!-effect"))); *--hp = (mksymbol(internsym("primapp-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[8] = (hendblk(4+1)); } { /* vector */ hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = (mksymbol(internsym("lambda-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] = r[4]; r[2] = r[3]; r[3] = r[8]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 15: /* clo k exp inner */ assert(rc == 4); r += 1; /* shift reg. wnd */ s_cps_2Done: /* k exp inner */ hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(32); r[3] = (hendblk(0+1)); hreserve(hbsz(0+1), 4); /* 4 live regs */ *--hp = obj_from_case(29); r[4] = (hendblk(0+1)); hreserve(hbsz(5+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[1]; *--hp = r[3]; *--hp = r[4]; *--hp = obj_from_case(16); r[3] = (hendblk(5+1)); r[0] = r[3]; /* r[1] */ goto s_cps_2Dsimple_3F; 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+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r cps cps-simple exp inner k */ if (bool_from_obj(r[1])) { hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(17); r[7] = (hendblk(2+1)); r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[4]; *--hp = r[2]; *--hp = r[5]; *--hp = obj_from_case(18); r[7] = (hendblk(4+1)); r[0] = (cx_timestamp); pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; rreserve(MAX_HOSTREGS); rc = 2; goto jump; } case 17: /* 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 inner k */ r[4+0] = r[2]; 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 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+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r inner cps exp k */ { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("r"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("var"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(19); r[7] = (hendblk(4+1)); { /* vector */ hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("var-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[8] = (hendblk(2+1)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; r[2] = r[8]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 19: /* 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 cps exp k r */ hreserve(hbsz(5+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(20); 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 20: /* 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 cps exp k r r */ { /* 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 = (mksymbol(internsym("ek"))); *--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)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = (mknull()); *--hp = r[6]; *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* vector */ hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[5]; *--hp = r[8]; *--hp = (mksymbol(internsym("lambda-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[9] = (hendblk(3+1)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = r[3]; r[3] = r[9]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 21: /* clo k exps inner */ assert(rc == 4); r += 1; /* shift reg. wnd */ s_cps_2Dlist: /* k exps inner */ if ((isnull((r[1])))) { r[3+0] = r[2]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; r[3+2] = (mknull()); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[3] = (car((r[1]))); hreserve(hbsz(0+1), 4); /* 4 live regs */ *--hp = obj_from_case(32); r[4] = (hendblk(0+1)); hreserve(hbsz(0+1), 5); /* 5 live regs */ *--hp = obj_from_case(21); r[5] = (hendblk(0+1)); hreserve(hbsz(0+1), 6); /* 6 live regs */ *--hp = obj_from_case(29); r[6] = (hendblk(0+1)); hreserve(hbsz(6+1), 7); /* 7 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[4]; *--hp = r[5]; *--hp = r[6]; *--hp = obj_from_case(22); r[4] = (hendblk(6+1)); r[0] = r[4]; r[1] = r[3]; goto s_cps_2Dsimple_3F; } case 22: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+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 cps cps-list cps-simple inner exps k */ if (bool_from_obj(r[1])) { hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[5]; *--hp = r[6]; *--hp = r[4]; *--hp = obj_from_case(23); r[8] = (hendblk(3+1)); r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; r[2] = (cdr((r[6]))); r[3] = r[8]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[2]; *--hp = r[5]; *--hp = r[3]; *--hp = obj_from_case(25); r[8] = (hendblk(5+1)); r[0] = (cx_timestamp); pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; rreserve(MAX_HOSTREGS); rc = 2; goto jump; } case 23: /* clo k new-exps */ 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 new-exps cps-simple exps inner */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = r[4]; *--hp = obj_from_case(24); r[5] = (hendblk(3+1)); r[6+0] = r[2]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[5]; r[6+2] = (car((r[3]))); r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 24: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r inner k new-exps */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 25: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r cps-list inner cps exps k */ { /* 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 = (mksymbol(internsym("r"))); *--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[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(26); r[8] = (hendblk(4+1)); hreserve(hbsz(2+1), 9); /* 9 live regs */ *--hp = r[7]; *--hp = r[3]; *--hp = obj_from_case(28); r[9] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; r[2] = (cdr((r[5]))); r[3] = r[9]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 26: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r cps exps k r */ hreserve(hbsz(5+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(27); 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 27: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r cps exps k r r */ { /* 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 = (mksymbol(internsym("ek"))); *--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)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = (mknull()); *--hp = r[6]; *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* vector */ hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[5]; *--hp = r[8]; *--hp = (mksymbol(internsym("lambda-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[9] = (hendblk(3+1)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = (car((r[3]))); r[3] = r[9]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 28: /* clo k new-exps */ 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 new-exps inner r */ { /* vector */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = (mksymbol(internsym("var-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[4] = (hendblk(2+1)); } { /* 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] = r[0]; r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 29: /* clo k exp kexp */ assert(rc == 4); r += 1; /* shift reg. wnd */ s_cps: /* k exp kexp */ hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(32); r[3] = (hendblk(0+1)); hreserve(hbsz(0+1), 4); /* 4 live regs */ *--hp = obj_from_case(70); r[4] = (hendblk(0+1)); hreserve(hbsz(5+1), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; *--hp = r[3]; *--hp = r[4]; *--hp = obj_from_case(30); r[3] = (hendblk(5+1)); r[0] = r[3]; /* r[1] */ goto s_cps_2Dsimple_3F; case 30: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r cps-complex cps-simple exp k kexp */ if (bool_from_obj(r[1])) { hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(31); r[7] = (hendblk(2+1)); r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[4]; r[3] = r[6]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 31: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k kexp */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* vector */ hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = (cx__239); *--hp = (mksymbol(internsym("no-effect"))); *--hp = (mksymbol(internsym("primapp-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[5] = (hendblk(4+1)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* vector */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[3]; *--hp = (mksymbol(internsym("app-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[6] = (hendblk(3+1)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 32: /* clo k exp */ assert(rc == 3); r += 1; /* shift reg. wnd */ s_cps_2Dsimple: /* k exp */ hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(32); r[2] = (hendblk(0+1)); 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+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); r[3+2] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if (bool_from_obj(cxs_gvarassign_2Dexp_3F_23506((r[1])))) { r[3] = (vectorref((r[1]), (+1))); r[4] = (vectorref((r[1]), (+2))); hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[0]; *--hp = obj_from_case(33); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[4]; goto s_cps_2Dsimple; } 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]), (+1))); r[4] = (vectorref((r[1]), (+2))); r[5] = (vectorref((r[1]), (+3))); hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[0]; *--hp = r[3]; *--hp = r[2]; *--hp = r[4]; *--hp = obj_from_case(34); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[5]; goto s_cps_2Dsimple; } 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]), (+1))); r[4] = (vectorref((r[1]), (+2))); r[5] = (vectorref((r[1]), (+3))); r[6+0] = r[0]; r[6+1] = r[5]; r[6+2] = (mknull()); r[6+3] = (mknull()); r[6+4] = (mknull()); r[6+5] = r[2]; r[6+6] = r[4]; r[6+7] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v4475; } else { if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+3))) { r[3] = (vectorref((r[1]), (+0))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("lambda-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))); r[4] = (vectorref((r[1]), (+2))); hreserve(hbsz(0+1), 5); /* 5 live regs */ *--hp = obj_from_case(29); r[5] = (hendblk(0+1)); hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[3]; *--hp = r[0]; *--hp = r[4]; *--hp = r[5]; *--hp = obj_from_case(40); r[5] = (hendblk(4+1)); r[6+0] = (cx_timestamp); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[5]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 2; 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("fix-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))); r[4] = (vectorref((r[1]), (+2))); r[5] = (vectorref((r[1]), (+3))); hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[3]; *--hp = r[0]; *--hp = r[4]; *--hp = r[2]; *--hp = obj_from_case(42); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[5]; goto s_cps_2Dsimple; } else { if (bool_from_obj(cxs_degenerate_2Dlet_2Dexp_3F_23259((r[1])))) { r[3] = (cxs_degenerate_2Dlet_2Dexp_2D_3Ebody_23236((r[1]))); /* r[0] */ r[1] = r[3]; goto s_cps_2Dsimple; } else { hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = r[2]; *--hp = obj_from_case(46); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ goto gs_begin_2Dexp_3F_23203; } } } } } } } case 33: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k id */ { /* 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 34: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r then-exp cps-simple test-exp k */ hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(35); r[6] = (hendblk(4+1)); r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 35: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r cps-simple test-exp k r */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(36); r[6] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = r[3]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 36: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r 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 37: /* clo k rands ids vals exps */ assert(rc == 6); { obj* p = objptr_from_obj(r[0]); r[1+5] = p[1]; r[1+6] = p[2]; r[1+7] = p[3]; } r += 1; /* shift reg. wnd */ s_loop_v4475: /* k rands ids vals exps cps-simple prim effect */ if ((isnull((r[1])))) { { fixnum_t v4784_tmp; { /* length */ int n; obj l = r[4]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v4784_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v4784_tmp); hreserve(hbsz(3)*c, 8); /* 8 live regs */ l = r[4]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[8] = (o); } } { /* vector */ hreserve(hbsz(4+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[6]; *--hp = r[7]; *--hp = (mksymbol(internsym("primapp-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[8] = (hendblk(4+1)); } { /* vector */ hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[2]; *--hp = (mksymbol(internsym("lambda-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[9] = (hendblk(3+1)); } { /* vector */ hreserve(hbsz(3+1), 10); /* 10 live regs */ *--hp = r[3]; *--hp = r[9]; *--hp = (mksymbol(internsym("app-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[8] = (hendblk(3+1)); } /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[8]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(37); r[8] = (hendblk(3+1)); hreserve(hbsz(6+1), 9); /* 9 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[3]; *--hp = r[4]; *--hp = r[8]; *--hp = obj_from_case(38); r[8] = (hendblk(6+1)); r[9+0] = r[5]; pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[8]; r[9+2] = (car((r[1]))); r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 38: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek r loop exps vals ids rands k */ if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+2))) { r[8] = (vectorref((r[1]), (+0))); r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("var-exp")))); } else { r[8] = obj_from_bool(0); } } else { r[8] = obj_from_bool(0); } if (bool_from_obj(r[8])) { { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } r[9+0] = r[2]; pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[7]; r[9+2] = (cdr((r[6]))); r[9+3] = r[5]; r[9+4] = r[4]; r[9+5] = r[8]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; goto jump; } else { hreserve(hbsz(7+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(39); r[8] = (hendblk(7+1)); r[0] = (cx_timestamp); pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; rreserve(MAX_HOSTREGS); rc = 2; goto jump; } case 39: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek r loop exps vals r ids rands k */ { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = (mknull()); *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[9]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[9]; *--hp = (mksymbol(internsym("tmp"))); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[9]; *--hp = (mksymbol(internsym("var"))); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[6]; *--hp = r[9]; *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = r[4]; *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[11] = (hendblk(3)); } { /* vector */ hreserve(hbsz(2+1), 12); /* 12 live regs */ *--hp = r[9]; *--hp = (mksymbol(internsym("var-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[12] = (hendblk(2+1)); } { /* cons */ hreserve(hbsz(3), 13); /* 13 live regs */ *--hp = r[3]; *--hp = (r[12]); *--hp = obj_from_size(PAIR_BTAG); r[12] = (hendblk(3)); } r[13+0] = r[2]; pc = objptr_from_obj(r[13+0])[0]; r[13+1] = r[8]; r[13+2] = (cdr((r[7]))); r[13+3] = (r[10]); r[13+4] = (r[11]); r[13+5] = (r[12]); r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; 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+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r cps body k ids */ { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("k"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("var"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(41); r[7] = (hendblk(3+1)); { /* vector */ hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("var-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[8] = (hendblk(2+1)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; r[2] = r[3]; r[3] = r[8]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 41: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r k ids r */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* vector */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[5]; *--hp = (mksymbol(internsym("lambda-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[5] = (hendblk(3+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 42: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r cps-simple lams k ids */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(45); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[3]; /* r[2] */ goto s_loop_v4442; s_loop_v4442: /* k id cps-simple */ 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(43); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v4442; } case 43: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r cps-simple id k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(44); 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 44: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* 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 45: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r k r ids */ { /* vector */ hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = r[4]; *--hp = (mksymbol(internsym("fix-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 46: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r cps-simple k exp */ if (bool_from_obj(r[1])) { r[5] = (vectorref((r[4]), (+2))); r[5] = (car((r[5]))); r[6] = (vectorref((r[4]), (+1))); r[6] = (vectorref((r[6]), (+2))); hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[5]; *--hp = r[2]; *--hp = obj_from_case(47); r[7] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if (bool_from_obj(cxs_let_2Dexp_3F_23141((r[4])))) { r[5] = (vectorref((r[4]), (+1))); r[5] = (vectorref((r[5]), (+1))); r[6] = (vectorref((r[4]), (+2))); r[7] = (vectorref((r[4]), (+1))); r[7] = (vectorref((r[7]), (+2))); hreserve(hbsz(4+1), 8); /* 8 live regs */ *--hp = r[5]; *--hp = r[3]; *--hp = r[6]; *--hp = r[2]; *--hp = obj_from_case(50); r[8] = (hendblk(4+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; r[2] = r[7]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[5] = (cx__2Acurrent_2Derror_2Dport_2A); (void)(fputc('\n', oportdata((r[5])))); hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[3]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(54); r[6] = (hendblk(3+1)); if (bool_from_obj(mksymbol(internsym("variant-case")))) { { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("variant-case"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[0] = (cx_fprintf_2A); pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = r[5]; r[3] = (cx__2393); r[4] = r[7]; rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { r[0] = (cx_write_2F3); pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = (cx__2389); r[3] = obj_from_bool(1); r[4] = r[5]; rreserve(MAX_HOSTREGS); rc = 5; goto jump; } } } case 47: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r cps-simple exp1 k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(48); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[3]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 48: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(49); r[4] = (hendblk(3+1)); r[0] = (cx_timestamp); pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; rreserve(MAX_HOSTREGS); rc = 2; goto jump; case 49: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r k r r */ { /* 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 50: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r cps-simple rands k ids */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(53); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[3]; /* r[2] */ goto s_loop_v4391; s_loop_v4391: /* k id cps-simple */ 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(51); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v4391; } case 51: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r cps-simple id k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(52); 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 52: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* 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 53: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r k r ids */ { /* vector */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[4]; *--hp = (mksymbol(internsym("lambda-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[5] = (hendblk(3+1)); } { /* vector */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[5]; *--hp = (mksymbol(internsym("app-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[5] = (hendblk(3+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 54: /* 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(55); 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__2387); r[7+4] = r[6]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 55: /* 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(56); 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__2383); 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 56: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek . k */ r[0] = (cx_reset); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; rreserve(MAX_HOSTREGS); rc = 2; goto jump; case 57: /* clo k exp */ assert(rc == 3); r += 1; /* shift reg. wnd */ s_cps_2Dsimple_3F: /* k exp */ hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(57); r[2] = (hendblk(0+1)); 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[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(1); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if (bool_from_obj(cxs_gvarassign_2Dexp_3F_23506((r[1])))) { r[3] = (vectorref((r[1]), (+2))); /* r[0] */ r[1] = r[3]; goto s_cps_2Dsimple_3F; } 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]), (+1))); r[4] = (vectorref((r[1]), (+2))); r[5] = (vectorref((r[1]), (+3))); { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } /* r[0] */ r[1] = r[6]; /* r[2] */ goto s_loop_v4336; } 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]), (+3))); /* r[0] */ r[1] = r[3]; /* r[2] */ goto s_loop_v4325; } else { if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+3))) { r[3] = (vectorref((r[1]), (+0))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("lambda-exp")))); } else { r[3] = obj_from_bool(0); } } else { r[3] = obj_from_bool(0); } if (bool_from_obj(r[3])) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(1); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } 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("fix-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]), (+3))); /* r[0] */ r[1] = r[3]; goto s_cps_2Dsimple_3F; } else { if (bool_from_obj(cxs_degenerate_2Dlet_2Dexp_3F_23259((r[1])))) { r[3] = (cxs_degenerate_2Dlet_2Dexp_2D_3Ebody_23236((r[1]))); /* r[0] */ r[1] = r[3]; goto s_cps_2Dsimple_3F; } else { hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = r[2]; *--hp = obj_from_case(62); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ goto gs_begin_2Dexp_3F_23203; } } } } } } } case 58: /* 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_v4336: /* k id cps-simple? */ 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 { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(58); 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(59); r[3] = (hendblk(3+1)); r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = (car((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 59: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+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 60: /* 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_v4325: /* k id cps-simple? */ 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 { 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[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = (car((r[1]))); r += 4; /* shift reg wnd */ 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 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 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 cps-simple? k exp */ if (bool_from_obj(r[1])) { r[5] = (vectorref((r[4]), (+2))); r[5] = (car((r[5]))); r[6] = (vectorref((r[4]), (+1))); r[6] = (vectorref((r[6]), (+2))); hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[6]; *--hp = r[2]; *--hp = obj_from_case(63); r[7] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if (bool_from_obj(cxs_let_2Dexp_3F_23141((r[4])))) { r[5] = (vectorref((r[4]), (+2))); r[6] = (vectorref((r[4]), (+1))); r[6] = (vectorref((r[6]), (+2))); hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[6]; *--hp = r[2]; *--hp = obj_from_case(66); r[7] = (hendblk(3+1)); r[0] = r[7]; r[1] = r[5]; /* r[2] */ goto s_loop_v4304; } else { if ((isvector((r[4])))) { if (((vectorlen((r[4]))) == (+3))) { r[5] = (vectorref((r[4]), (+0))); r[5] = obj_from_bool((r[5]) == (mksymbol(internsym("app-exp")))); } else { r[5] = obj_from_bool(0); } } else { r[5] = obj_from_bool(0); } if (bool_from_obj(r[5])) { r[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; } else { if ((isvector((r[4])))) { if (((vectorlen((r[4]))) == (+3))) { r[5] = (vectorref((r[4]), (+0))); r[5] = obj_from_bool((r[5]) == (mksymbol(internsym("letcc-exp")))); } else { r[5] = obj_from_bool(0); } } else { r[5] = obj_from_bool(0); } if (bool_from_obj(r[5])) { r[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; } else { if ((isvector((r[4])))) { if (((vectorlen((r[4]))) == (+3))) { r[5] = (vectorref((r[4]), (+0))); r[5] = obj_from_bool((r[5]) == (mksymbol(internsym("withcc-exp")))); } else { r[5] = obj_from_bool(0); } } else { r[5] = obj_from_bool(0); } if (bool_from_obj(r[5])) { r[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; } else { r[5] = (cx__2Acurrent_2Derror_2Dport_2A); (void)(fputc('\n', oportdata((r[5])))); hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[3]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(67); r[6] = (hendblk(3+1)); if (bool_from_obj(mksymbol(internsym("variant-case")))) { { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("variant-case"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[0] = (cx_fprintf_2A); pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = r[5]; r[3] = (cx__2393); r[4] = r[7]; rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { r[0] = (cx_write_2F3); pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = (cx__2389); r[3] = obj_from_bool(1); r[4] = r[5]; rreserve(MAX_HOSTREGS); rc = 5; goto jump; } } } } } } case 63: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r cps-simple? exp2 k */ if (bool_from_obj(r[1])) { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = 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 64: /* 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_v4304: /* k id cps-simple? */ 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 { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(64); 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(65); r[3] = (hendblk(3+1)); r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = (car((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; 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 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 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; /* shift reg. wnd */ /* ek r cps-simple? body k */ if (bool_from_obj(r[1])) { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = 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 67: /* 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(68); 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__2387); r[7+4] = r[6]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 68: /* 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(69); 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__2383); 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 69: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek . k */ r[0] = (cx_reset); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; rreserve(MAX_HOSTREGS); rc = 2; goto jump; case 70: /* clo k exp kexp */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k exp kexp */ hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(29); r[3] = (hendblk(0+1)); hreserve(hbsz(0+1), 4); /* 4 live regs */ *--hp = obj_from_case(21); r[4] = (hendblk(0+1)); hreserve(hbsz(0+1), 5); /* 5 live regs */ *--hp = obj_from_case(15); r[5] = (hendblk(0+1)); if (bool_from_obj(cxs_gvarassign_2Dexp_3F_23506((r[1])))) { r[6] = (vectorref((r[1]), (+1))); r[7] = (vectorref((r[1]), (+2))); hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[2]; *--hp = obj_from_case(71); r[8] = (hendblk(2+1)); /* r[0] */ r[1] = r[7]; r[2] = r[8]; goto s_cps_2Done; } else { if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+4))) { r[6] = (vectorref((r[1]), (+0))); r[6] = obj_from_bool((r[6]) == (mksymbol(internsym("if-exp")))); } else { r[6] = obj_from_bool(0); } } else { r[6] = obj_from_bool(0); } if (bool_from_obj(r[6])) { r[6] = (vectorref((r[1]), (+1))); r[7] = (vectorref((r[1]), (+2))); r[8] = (vectorref((r[1]), (+3))); hreserve(hbsz(5+1), 9); /* 9 live regs */ *--hp = r[6]; *--hp = r[7]; *--hp = r[3]; *--hp = r[8]; *--hp = r[5]; *--hp = obj_from_case(72); r[9] = (hendblk(5+1)); if ((isvector((r[2])))) { if (((vectorlen((r[2]))) == (+2))) { r[10] = (vectorref((r[2]), (+0))); r[10] = obj_from_bool((r[10]) == (mksymbol(internsym("var-exp")))); } else { r[10] = obj_from_bool(0); } } else { r[10] = obj_from_bool(0); } if (bool_from_obj(r[10])) { r[10+0] = r[0]; r[10+1] = r[2]; r[10+2] = r[5]; r[10+3] = r[8]; r[10+4] = r[3]; r[10+5] = r[7]; r[10+6] = r[6]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v4233; } else { hreserve(hbsz(3+1), 10); /* 10 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = r[9]; *--hp = obj_from_case(76); r[10] = (hendblk(3+1)); r[11+0] = (cx_timestamp); pc = objptr_from_obj(r[11+0])[0]; r[11+1] = (r[10]); r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 2; goto jump; } } else { if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+4))) { r[6] = (vectorref((r[1]), (+0))); r[6] = obj_from_bool((r[6]) == (mksymbol(internsym("primapp-exp")))); } else { r[6] = obj_from_bool(0); } } else { r[6] = obj_from_bool(0); } if (bool_from_obj(r[6])) { r[6] = (vectorref((r[1]), (+1))); r[7] = (vectorref((r[1]), (+2))); r[8] = (vectorref((r[1]), (+3))); hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[6]; *--hp = r[7]; *--hp = r[2]; *--hp = obj_from_case(78); r[9] = (hendblk(3+1)); /* r[0] */ r[1] = r[8]; r[2] = r[9]; goto s_cps_2Dlist; } else { if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+4))) { r[6] = (vectorref((r[1]), (+0))); r[6] = obj_from_bool((r[6]) == (mksymbol(internsym("fix-exp")))); } else { r[6] = obj_from_bool(0); } } else { r[6] = obj_from_bool(0); } if (bool_from_obj(r[6])) { r[6] = (vectorref((r[1]), (+1))); r[7] = (vectorref((r[1]), (+2))); r[8] = (vectorref((r[1]), (+3))); hreserve(hbsz(0+1), 9); /* 9 live regs */ *--hp = obj_from_case(32); r[9] = (hendblk(0+1)); hreserve(hbsz(4+1), 10); /* 10 live regs */ *--hp = r[6]; *--hp = r[0]; *--hp = r[7]; *--hp = r[9]; *--hp = obj_from_case(79); r[9] = (hendblk(4+1)); r[0] = r[9]; r[1] = r[8]; /* r[2] */ goto s_cps; } else { if (bool_from_obj(cxs_degenerate_2Dlet_2Dexp_3F_23259((r[1])))) { r[6] = (cxs_degenerate_2Dlet_2Dexp_2D_3Ebody_23236((r[1]))); /* r[0] */ r[1] = r[6]; /* r[2] */ goto s_cps; } else { hreserve(hbsz(6+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = r[3]; *--hp = r[2]; *--hp = r[4]; *--hp = r[5]; *--hp = obj_from_case(83); r[6] = (hendblk(6+1)); r[0] = r[6]; /* r[1] */ goto gs_begin_2Dexp_3F_23203; } } } } } case 71: /* clo k val */ 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 val kexp id */ { /* 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)); } { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* vector */ hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = (cx__239); *--hp = (mksymbol(internsym("no-effect"))); *--hp = (mksymbol(internsym("primapp-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[5] = (hendblk(4+1)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* vector */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[2]; *--hp = (mksymbol(internsym("app-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[4] = (hendblk(3+1)); } r[5+0] = r[0]; 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 72: /* clo k kexp */ 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 */ s_l_v4233: /* k kexp cps-one else-exp cps then-exp test-exp */ hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(73); r[7] = (hendblk(4+1)); r[8+0] = r[2]; pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[0]; r[8+2] = r[6]; r[8+3] = r[7]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 73: /* clo k test */ 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 */ /* k test else-exp cps kexp then-exp */ hreserve(hbsz(5+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(74); r[6] = (hendblk(5+1)); r[7+0] = r[3]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[6]; r[7+2] = r[2]; r[7+3] = r[4]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; 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 cps kexp then-exp k test */ hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[1]; *--hp = r[5]; *--hp = obj_from_case(75); r[7] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; r[2] = r[4]; /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; 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; /* shift reg. wnd */ /* ek r k r test */ { /* vector */ hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = r[4]; *--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 76: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r xform k kexp */ { /* 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("k"))); *--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)); } hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(77); r[6] = (hendblk(3+1)); { /* vector */ hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[5]; *--hp = (mksymbol(internsym("var-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[7] = (hendblk(2+1)); } 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 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+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r k kexp r */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* vector */ hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[1]; *--hp = r[5]; *--hp = (mksymbol(internsym("lambda-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[7] = (hendblk(3+1)); } { /* vector */ hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[7]; *--hp = (mksymbol(internsym("app-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[7] = (hendblk(3+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 78: /* clo k args */ 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 args kexp prim effect */ { /* vector */ hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = r[4]; *--hp = (mksymbol(internsym("primapp-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[5] = (hendblk(4+1)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* vector */ hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = (cx__239); *--hp = (mksymbol(internsym("no-effect"))); *--hp = (mksymbol(internsym("primapp-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[6] = (hendblk(4+1)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[6]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* vector */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[2]; *--hp = (mksymbol(internsym("app-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[5] = (hendblk(3+1)); } r[6+0] = r[0]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = obj_from_ktrap(); r[6+2] = r[5]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 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 cps-simple lams k ids */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(82); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[3]; /* r[2] */ goto s_loop_v4193; s_loop_v4193: /* k id cps-simple */ 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(80); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v4193; } case 80: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r cps-simple id k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(81); 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 81: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r 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 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+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r k r ids */ { /* vector */ hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = r[4]; *--hp = (mksymbol(internsym("fix-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 83: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+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 cps-one cps-list kexp cps k exp */ if (bool_from_obj(r[1])) { r[8] = (vectorref((r[7]), (+2))); r[8] = (car((r[8]))); r[9] = (vectorref((r[7]), (+1))); r[9] = (vectorref((r[9]), (+2))); hreserve(hbsz(3+1), 10); /* 10 live regs */ *--hp = r[6]; *--hp = r[8]; *--hp = r[5]; *--hp = obj_from_case(84); r[10] = (hendblk(3+1)); r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); r[2] = r[9]; r[3] = r[4]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if (bool_from_obj(cxs_let_2Dexp_3F_23141((r[7])))) { r[8] = (vectorref((r[7]), (+1))); r[8] = (vectorref((r[8]), (+1))); r[9] = (vectorref((r[7]), (+1))); r[9] = (vectorref((r[9]), (+2))); hreserve(hbsz(4+1), 10); /* 10 live regs */ *--hp = r[8]; *--hp = r[9]; *--hp = r[4]; *--hp = r[5]; *--hp = obj_from_case(87); r[10] = (hendblk(4+1)); r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = (vectorref((r[7]), (+2))); r[3] = (r[10]); rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((isvector((r[7])))) { if (((vectorlen((r[7]))) == (+3))) { r[8] = (vectorref((r[7]), (+0))); r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("app-exp")))); } else { r[8] = obj_from_bool(0); } } else { r[8] = obj_from_bool(0); } if (bool_from_obj(r[8])) { r[8] = (vectorref((r[7]), (+1))); r[9] = (vectorref((r[7]), (+2))); { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[9]; *--hp = r[8]; *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } hreserve(hbsz(1+1), 11); /* 11 live regs */ *--hp = r[4]; *--hp = obj_from_case(89); r[11] = (hendblk(1+1)); r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = (r[10]); r[3] = (r[11]); rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((isvector((r[7])))) { if (((vectorlen((r[7]))) == (+3))) { r[8] = (vectorref((r[7]), (+0))); r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("letcc-exp")))); } else { r[8] = obj_from_bool(0); } } else { r[8] = obj_from_bool(0); } if (bool_from_obj(r[8])) { r[8] = (vectorref((r[7]), (+1))); r[9] = (vectorref((r[7]), (+2))); hreserve(hbsz(3+1), 10); /* 10 live regs */ *--hp = r[8]; *--hp = r[4]; *--hp = r[6]; *--hp = obj_from_case(90); r[10] = (hendblk(3+1)); { /* vector */ hreserve(hbsz(2+1), 11); /* 11 live regs */ *--hp = r[8]; *--hp = (mksymbol(internsym("var-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[11] = (hendblk(2+1)); } r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); r[2] = r[9]; r[3] = (r[11]); rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((isvector((r[7])))) { if (((vectorlen((r[7]))) == (+3))) { r[8] = (vectorref((r[7]), (+0))); r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("withcc-exp")))); } else { r[8] = obj_from_bool(0); } } else { r[8] = obj_from_bool(0); } if (bool_from_obj(r[8])) { r[8] = (vectorref((r[7]), (+2))); hreserve(hbsz(2+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[5]; *--hp = obj_from_case(91); r[9] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = (vectorref((r[7]), (+1))); r[3] = r[9]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[8] = (cx__2Acurrent_2Derror_2Dport_2A); (void)(fputc('\n', oportdata((r[8])))); hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[6]; *--hp = r[8]; *--hp = r[7]; *--hp = obj_from_case(92); r[9] = (hendblk(3+1)); if (bool_from_obj(mksymbol(internsym("variant-case")))) { { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("variant-case"))); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } r[0] = (cx_fprintf_2A); pc = objptr_from_obj(r[0])[0]; r[1] = r[9]; r[2] = r[8]; r[3] = (cx__2393); r[4] = (r[10]); rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { r[0] = (cx_write_2F3); pc = objptr_from_obj(r[0])[0]; r[1] = r[9]; r[2] = (cx__2389); r[3] = obj_from_bool(1); r[4] = r[8]; rreserve(MAX_HOSTREGS); rc = 5; goto jump; } } } } } } case 84: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r cps exp1 k */ r[5] = (cx_begin_2Did_2Dsymbol); hreserve(hbsz(5+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(85); 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 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+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r cps exp1 k r 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)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = (mknull()); *--hp = r[7]; *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } hreserve(hbsz(5+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(86); r[9] = (hendblk(5+1)); r[0] = (cx_timestamp); pc = objptr_from_obj(r[0])[0]; r[1] = r[9]; rreserve(MAX_HOSTREGS); rc = 2; goto jump; case 86: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r cps exp1 k r r */ { /* 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 = (mksymbol(internsym("ek"))); *--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)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[7]; *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* vector */ hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[5]; *--hp = r[8]; *--hp = (mksymbol(internsym("lambda-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[9] = (hendblk(3+1)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = r[3]; r[3] = r[9]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 87: /* clo k vals */ 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 */ /* k vals cps kexp body ids */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(88); r[6] = (hendblk(3+1)); r[7+0] = r[2]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[6]; r[7+2] = r[4]; r[7+3] = r[3]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 88: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r k vals ids */ { /* vector */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = (mksymbol(internsym("lambda-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[5] = (hendblk(3+1)); } { /* vector */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[3]; *--hp = r[5]; *--hp = (mksymbol(internsym("app-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[5] = (hendblk(3+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 89: /* clo k fn+args */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* k fn+args kexp */ r[3] = (cdr((r[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)); } r[4] = (car((r[1]))); { /* vector */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[4]; *--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 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; /* shift reg. wnd */ /* ek r k kexp id */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* vector */ hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[1]; *--hp = r[5]; *--hp = (mksymbol(internsym("lambda-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[7] = (hendblk(3+1)); } { /* vector */ hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[7]; *--hp = (mksymbol(internsym("app-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[7] = (hendblk(3+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 91: /* clo k kexp */ 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 kexp cps exp */ r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 92: /* 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(93); 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__2387); r[7+4] = r[6]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 93: /* 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(94); 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__2383); 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 94: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek . k */ r[0] = (cx_reset); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; rreserve(MAX_HOSTREGS); rc = 2; goto jump; case 95: /* lambda-lift k exp */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k exp */ hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(96); r[2] = (hendblk(0+1)); hreserve(hbsz(1), 3); /* 3 live regs */ *--hp = obj_from_void(0); r[3] = (hendblk(1)); hreserve(hbsz(1), 4); /* 4 live regs */ *--hp = obj_from_void(0); r[4] = (hendblk(1)); (void)(objptr_from_obj(r[3])[0] = (mknull())); (void)(objptr_from_obj(r[4])[0] = (mknull())); hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[0]; *--hp = obj_from_case(102); r[5] = (hendblk(3+1)); r[6+0] = r[5]; r[6+1] = r[1]; r[6+2] = r[4]; r[6+3] = r[3]; r[6+4] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_lift; case 96: /* clo k lam xvars tid */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k lam xvars tid */ r[4] = (vectorref((r[1]), (+1))); hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(99); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[4]; goto s_loop_v4076; s_loop_v4076: /* 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(97); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v4076; } 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 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(98); 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 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; /* shift reg. wnd */ /* ek r k r id */ r[5] = (cdr((r[4]))); r[5] = (car((r[5]))); { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* 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 = r[6]; *--hp = (mksymbol(internsym("var"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[6]; *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[7]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 99: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r xvars tid k */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_case(101); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[2]; goto s_loop_v4061; s_loop_v4061: /* 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(100); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v4061; } 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 id */ r[4] = (car((r[3]))); { /* vector */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = (mksymbol(internsym("var-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[4] = (hendblk(2+1)); } { /* 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 101: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r r tid k */ r[5+0] = r[4]; r[5+1] = r[3]; r[5+2] = r[2]; r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_curry_2Dexp_231422; case 102: /* 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 top-ids top-lams */ r[5] = (objptr_from_obj(r[4])[0]); r[6] = (objptr_from_obj(r[3])[0]); { /* vector */ hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[1]; *--hp = r[5]; *--hp = r[6]; *--hp = (mksymbol(internsym("fix-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 103: /* 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 */ s_lift: /* k exp top-lams top-ids curry-lam */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(123); r[5] = (hendblk(3+1)); hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(103); r[6] = (hendblk(3+1)); if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+2))) { r[7] = (vectorref((r[1]), (+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+0] = r[0]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = obj_from_ktrap(); r[7+2] = r[1]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if (bool_from_obj(cxs_gvarassign_2Dexp_3F_23506((r[1])))) { r[7] = (vectorref((r[1]), (+1))); r[8] = (vectorref((r[1]), (+2))); hreserve(hbsz(2+1), 9); /* 9 live regs */ *--hp = r[7]; *--hp = r[0]; *--hp = obj_from_case(104); r[9] = (hendblk(2+1)); r[0] = r[9]; r[1] = r[8]; /* r[2] */ /* r[3] */ /* r[4] */ goto s_lift; } else { if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+4))) { r[7] = (vectorref((r[1]), (+0))); r[7] = obj_from_bool((r[7]) == (mksymbol(internsym("if-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[1]), (+1))); r[8] = (vectorref((r[1]), (+2))); r[9] = (vectorref((r[1]), (+3))); hreserve(hbsz(4+1), 10); /* 10 live regs */ *--hp = r[0]; *--hp = r[7]; *--hp = r[6]; *--hp = r[8]; *--hp = obj_from_case(105); r[10] = (hendblk(4+1)); r[0] = (r[10]); r[1] = r[9]; /* r[2] */ /* r[3] */ /* r[4] */ goto s_lift; } else { if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+4))) { r[7] = (vectorref((r[1]), (+0))); r[7] = obj_from_bool((r[7]) == (mksymbol(internsym("primapp-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[1]), (+1))); r[8] = (vectorref((r[1]), (+2))); r[9] = (vectorref((r[1]), (+3))); hreserve(hbsz(3+1), 10); /* 10 live regs */ *--hp = r[7]; *--hp = r[8]; *--hp = r[0]; *--hp = obj_from_case(110); r[10] = (hendblk(3+1)); r[0] = (r[10]); r[1] = r[9]; r[2] = r[6]; goto s_loop_v3978; } else { if (bool_from_obj(cxs_let_2Dexp_3F_23141((r[1])))) { r[7] = (vectorref((r[1]), (+1))); r[7] = (vectorref((r[7]), (+1))); r[8] = (vectorref((r[1]), (+2))); r[9] = (vectorref((r[1]), (+1))); r[9] = (vectorref((r[9]), (+2))); hreserve(hbsz(4+1), 10); /* 10 live regs */ *--hp = r[7]; *--hp = r[0]; *--hp = r[8]; *--hp = r[6]; *--hp = obj_from_case(111); r[10] = (hendblk(4+1)); r[0] = (r[10]); r[1] = r[9]; /* r[2] */ /* r[3] */ /* r[4] */ goto s_lift; } else { if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+3))) { r[7] = (vectorref((r[1]), (+0))); r[7] = obj_from_bool((r[7]) == (mksymbol(internsym("app-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[1]), (+1))); r[8] = (vectorref((r[1]), (+2))); hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[0]; *--hp = r[7]; *--hp = r[6]; *--hp = obj_from_case(117); r[9] = (hendblk(3+1)); r[0] = r[9]; r[1] = r[8]; r[2] = r[6]; goto s_loop_v3926; } else { if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+3))) { r[7] = (vectorref((r[1]), (+0))); r[7] = obj_from_bool((r[7]) == (mksymbol(internsym("lambda-exp")))); } else { r[7] = obj_from_bool(0); } } else { r[7] = obj_from_bool(0); } if (bool_from_obj(r[7])) { hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[5]; *--hp = obj_from_case(119); r[7] = (hendblk(3+1)); r[8+0] = (cx_timestamp); pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[7]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 2; goto jump; } else { if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+4))) { r[7] = (vectorref((r[1]), (+0))); r[7] = obj_from_bool((r[7]) == (mksymbol(internsym("fix-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[1]), (+1))); r[8] = (vectorref((r[1]), (+2))); r[9] = (vectorref((r[1]), (+3))); r[10+0] = r[0]; r[10+1] = r[7]; r[10+2] = r[8]; r[10+3] = r[9]; r[10+4] = r[2]; r[10+5] = r[3]; r[10+6] = r[4]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_lift_2Dlams; } else { r[7] = (cx__2Acurrent_2Derror_2Dport_2A); (void)(fputc('\n', oportdata((r[7])))); hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[0]; *--hp = r[7]; *--hp = r[1]; *--hp = obj_from_case(120); r[8] = (hendblk(3+1)); if (bool_from_obj(mksymbol(internsym("variant-case")))) { { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("variant-case"))); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } r[0] = (cx_fprintf_2A); pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; r[2] = r[7]; r[3] = (cx__2393); r[4] = r[9]; rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { r[0] = (cx_write_2F3); pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; r[2] = (cx__2389); r[3] = obj_from_bool(1); r[4] = r[7]; rreserve(MAX_HOSTREGS); rc = 5; 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; /* shift reg. wnd */ /* ek r k id */ { /* 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 105: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r then-exp lift test-exp k */ hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(106); r[6] = (hendblk(4+1)); r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; 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+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r lift test-exp k r */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(107); r[6] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = r[3]; 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; /* 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; s_loop_v3978: /* k id lift */ 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(108); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v3978; } case 108: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r lift id k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(109); 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 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; /* 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 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+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r k prim effect */ { /* vector */ hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = r[4]; *--hp = (mksymbol(internsym("primapp-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 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 lift rands k ids */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(114); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[3]; /* r[2] */ goto s_loop_v3951; s_loop_v3951: /* k id lift */ 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(112); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v3951; } 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+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r lift id k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(113); 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 113: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k 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 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; /* shift reg. wnd */ /* ek r k r ids */ { /* vector */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[4]; *--hp = (mksymbol(internsym("lambda-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[5] = (hendblk(3+1)); } { /* vector */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[5]; *--hp = (mksymbol(internsym("app-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[5] = (hendblk(3+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; s_loop_v3926: /* k id lift */ 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(115); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v3926; } case 115: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r lift id k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(116); 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 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; /* 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 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; /* shift reg. wnd */ /* ek r lift rator k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(118); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[3]; rreserve(MAX_HOSTREGS); rc = 3; 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 */ { /* 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 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; /* shift reg. wnd */ /* ek r lift-lams exp k */ { /* 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("l"))); *--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)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* vector */ hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[5]; *--hp = (mksymbol(internsym("var-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[8] = (hendblk(2+1)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = r[6]; r[3] = r[7]; r[4] = r[8]; rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 120: /* 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(121); 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__2387); r[7+4] = r[6]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 121: /* 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(122); 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__2383); 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 122: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek . k */ r[0] = (cx_reset); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; rreserve(MAX_HOSTREGS); rc = 2; goto jump; case 123: /* clo k id* lam* body */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; r[1+5] = p[2]; r[1+6] = p[3]; } r += 1; /* shift reg. wnd */ s_lift_2Dlams: /* k id* lam* body top-lams top-ids curry-lam */ hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(103); r[7] = (hendblk(3+1)); hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(153); r[8] = (hendblk(3+1)); hreserve(hbsz(9+1), 9); /* 9 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = r[2]; *--hp = r[6]; *--hp = r[3]; *--hp = r[7]; *--hp = r[5]; *--hp = r[4]; *--hp = r[8]; *--hp = obj_from_case(126); r[7] = (hendblk(9+1)); r[0] = r[7]; r[1] = r[2]; goto s_loop_v3860; s_loop_v3860: /* k id */ if ((isnull((r[1])))) { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (mknull()); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[2] = (cdr((r[1]))); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(124); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v3860; } 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; /* shift reg. wnd */ /* ek r id k */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(125); r[4] = (hendblk(2+1)); r[0] = (cx_exp_2D_3Efree_2Dlexvars); pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = (car((r[2]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 125: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* 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 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+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek r lift-lam top-lams top-ids lift body curry-lam lam* k id* */ { /* length */ int n; obj l = (r[10]); for (n = 0; l != mknull(); ++n, l = cdr(l)) ; r[11] = obj_from_fixnum(n); } hreserve(hbsz(11+1), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(132); r[12] = (hendblk(11+1)); r[0] = (r[12]); /* r[1] */ r[2] = (r[10]); goto s_loop_v3816; s_loop_v3816: /* k id id* */ 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[1]; *--hp = r[0]; *--hp = r[2]; *--hp = obj_from_case(127); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v3816; } 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; /* shift reg. wnd */ /* ek r id* k id */ r[5] = (car((r[4]))); hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(128); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[5]; /* r[2] */ goto gs_intersectionq_231496; 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; /* shift reg. wnd */ /* ek r id* k r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(131); r[5] = (hendblk(2+1)); r[0] = r[5]; /* r[1] */ /* r[2] */ goto s_loop_v3827; s_loop_v3827: /* k id id* */ 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[1]; *--hp = r[0]; *--hp = r[2]; *--hp = obj_from_case(129); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v3827; } case 129: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r id* k id */ r[5] = (car((r[4]))); hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(130); r[6] = (hendblk(2+1)); r[7+0] = (cx_posq); pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[6]; r[7+2] = r[5]; r[7+3] = r[2]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 130: /* 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 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; /* 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 132: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; r[1+11] = p[10]; r[1+12] = p[11]; } r += 1; /* shift reg. wnd */ /* ek r r lift-lam top-lams top-ids lift body curry-lam lam* k id* n */ hreserve(hbsz(11+1), 13); /* 13 live regs */ *--hp = (r[12]); *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_case(135); r[13] = (hendblk(11+1)); r[0] = (r[13]); r[1] = r[2]; r[2] = (r[11]); goto s_loop_v3795; s_loop_v3795: /* k id id* */ 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_v3795; } 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 id* 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[5]; r[1] = (car((r[3]))); /* r[2] */ goto gs_setdiffq_231479; 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+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; r[1+11] = p[10]; r[1+12] = p[11]; } r += 1; /* shift reg. wnd */ /* ek r r lift-lam top-lams top-ids lift body curry-lam lam* k id* n */ hreserve(hbsz(10+1), 13); /* 13 live regs */ *--hp = (r[12]); *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(139); r[13] = (hendblk(10+1)); r[14+0] = (r[13]); r[14+1] = r[2]; r[14+2] = r[1]; r += 14; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v3764; s_loop_v3764: /* k id id */ if (((isnull((r[1]))) || (isnull((r[2]))))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[3] = (cdr((r[1]))); r[4] = (cdr((r[2]))); hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(136); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[3]; r[2] = r[4]; goto s_loop_v3764; } case 136: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r k id id */ r[5] = (car((r[4]))); r[6] = (car((r[3]))); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[6]; *--hp = obj_from_case(137); r[5] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } 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 137: /* clo k av */ 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 av lamcalls lamfovs */ hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = obj_from_case(138); r[4] = (hendblk(1+1)); r[5+0] = (cx_reduce_2Dleft); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[0]; r[5+2] = r[4]; r[5+3] = r[3]; r[5+4] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 138: /* clo k i a */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ /* k i a av */ r[4+0] = r[0]; r[4+1] = r[2]; r[4+2] = (vectorref((r[3]), fixnum_from_obj(r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_unionq_231461; case 139: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; r[1+11] = p[10]; } r += 1; /* shift reg. wnd */ /* ek r lift-lam top-lams top-ids lift body curry-lam lam* k id* n */ { fixnum_t v4783_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v4783_tmp = (n); } { /* list->vector */ obj l; int i, c = (v4783_tmp); hreserve(hbsz(c+1), 12); /* 12 live regs */ l = r[1]; /* gc-safe */ for (i = 0; i < c; ++i, l = cdr(l)) hp[i-c] = car(l); hp -= c; *--hp = obj_from_size(VECTOR_BTAG); r[12] = (hendblk(c+1)); } } { /* make-vector */ obj o; int i = 0, c = fixnum_from_obj(r[11]); hreserve(hbsz(c+1), 13); /* 13 live regs */ o = (mknull()); /* gc-safe */ while (i++ < c) *--hp = o; *--hp = obj_from_size(VECTOR_BTAG); r[13] = (hendblk(c+1)); } hreserve(hbsz(9+1), 14); /* 14 live regs */ *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(142); r[14] = (hendblk(9+1)); r[0] = (r[14]); r[1] = obj_from_fixnum(+0); r[2] = obj_from_bool(0); r[3] = (r[12]); r[4] = (r[13]); r[5] = (r[11]); goto s_loop_v3747; case 140: /* clo k i wrap? */ 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_v3747: /* k i wrap? r av n */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(140); r[6] = (hendblk(3+1)); if ((fixnum_from_obj(r[1]) == fixnum_from_obj(r[5]))) { if (bool_from_obj(r[2])) { /* r[0] */ r[1] = obj_from_fixnum(+0); r[2] = obj_from_bool(0); /* r[3] */ /* r[4] */ /* r[5] */ goto s_loop_v3747; } else { /* 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 { hreserve(hbsz(5+1), 7); /* 7 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = r[0]; *--hp = r[2]; *--hp = r[6]; *--hp = obj_from_case(141); r[7] = (hendblk(5+1)); r[8+0] = (vectorref((r[3]), fixnum_from_obj(r[1]))); pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[7]; r[8+2] = r[4]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } 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+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r loop wrap? k av i */ { const fixnum_t v4782_i = fixnum_from_obj(r[6]); r[7] = (vectorref((r[5]), (v4782_i))); if (bool_from_obj(cxs_seteq_3F_231594((r[1]), (r[7])))) { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = obj_from_fixnum((v4782_i) + (+1)); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { (void)(vectorref((r[5]), (v4782_i)) = (r[1])); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = obj_from_fixnum((v4782_i) + (+1)); r[3] = obj_from_bool(1); rreserve(MAX_HOSTREGS); rc = 4; 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+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek r lift-lam top-lams top-ids lift body curry-lam lam* k id* */ { /* vector->list */ obj v, l = mknull(); int c = (vectorlen((r[1]))); hreserve(hbsz(3)*c, 11); /* 11 live regs */ v = r[1]; /* gc-safe */ while (c-- > 0) { *--hp = l; *--hp = hblkref(v, 1+c); *--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); } r[11] = (l); } hreserve(hbsz(10+1), 12); /* 12 live regs */ *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = (r[11]); *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(145); r[12] = (hendblk(10+1)); r[0] = (r[12]); r[1] = (r[10]); goto s_loop_v3726; s_loop_v3726: /* 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(143); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v3726; } case 143: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k id */ r[4] = (car((r[3]))); r[5] = (cdr((r[4]))); r[5] = (car((r[5]))); hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(144); r[6] = (hendblk(3+1)); r[0] = (cx_timestamp); pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; rreserve(MAX_HOSTREGS); rc = 2; 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+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(1); *--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 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+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; r[1+11] = p[10]; } r += 1; /* shift reg. wnd */ /* ek r lift-lam top-lams top-ids lift body curry-lam r lam* k id* */ hreserve(hbsz(8+1), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[1]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(148); r[12] = (hendblk(8+1)); r[13+0] = (r[12]); r[13+1] = r[9]; r[13+2] = r[8]; r[13+3] = r[1]; r[13+4] = r[2]; r[13+5] = r[1]; r[13+6] = r[8]; r[13+7] = r[9]; r[13+8] = (r[11]); r[13+9] = r[3]; r[13+10] = r[4]; r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v3707; case 146: /* clo k id id id */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; r[1+5] = p[2]; r[1+6] = p[3]; r[1+7] = p[4]; r[1+8] = p[5]; r[1+9] = p[6]; r[1+10] = p[7]; } r += 1; /* shift reg. wnd */ s_loop_v3707: /* k id id id lift-lam r r lam* id* top-lams top-ids */ if (((isnull((r[1]))) || ((isnull((r[2]))) || (isnull((r[3])))))) { /* 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[11] = (car((r[1]))); r[12] = (car((r[2]))); r[13] = (car((r[3]))); hreserve(hbsz(7+1), 14); /* 14 live regs */ *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(146); r[14] = (hendblk(7+1)); hreserve(hbsz(8+1), 15); /* 15 live regs */ *--hp = (r[10]); *--hp = (r[13]); *--hp = r[9]; *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[3]; *--hp = (r[14]); *--hp = obj_from_case(147); r[14] = (hendblk(8+1)); r[15+0] = r[4]; pc = objptr_from_obj(r[15+0])[0]; r[15+1] = (r[14]); r[15+2] = (r[11]); r[15+3] = (r[12]); r[15+4] = r[8]; r[15+5] = r[7]; r[15+6] = r[6]; r[15+7] = r[5]; r += 15; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 8; 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+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ /* ek r loop id id id k top-lams tid top-ids */ r[10] = (objptr_from_obj(r[9])[0]); { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = r[8]; *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } (void)(objptr_from_obj(r[9])[0] = (r[10])); r[10] = (objptr_from_obj(r[7])[0]); { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } (void)(objptr_from_obj(r[7])[0] = (r[10])); r[10+0] = r[2]; pc = objptr_from_obj(r[10+0])[0]; r[10+1] = r[6]; r[10+2] = (cdr((r[5]))); r[10+3] = (cdr((r[4]))); r[10+4] = (cdr((r[3]))); r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 148: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ /* ek . lift body curry-lam r r lam* k id* */ hreserve(hbsz(6+1), 10); /* 10 live regs */ *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(149); r[10] = (hendblk(6+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); r[2] = 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+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 curry-lam r r lam* k id* */ hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[1]; *--hp = r[6]; *--hp = obj_from_case(152); r[8] = (hendblk(3+1)); r[9+0] = r[8]; r[9+1] = r[5]; r[9+2] = r[4]; r[9+3] = r[3]; r[9+4] = r[2]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v3678; s_loop_v3678: /* k id id id curry-lam */ if (((isnull((r[1]))) || ((isnull((r[2]))) || (isnull((r[3])))))) { /* 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[5] = (cdr((r[1]))); r[6] = (cdr((r[2]))); r[7] = (cdr((r[3]))); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[3]; *--hp = r[4]; *--hp = obj_from_case(150); r[8] = (hendblk(5+1)); r[0] = r[8]; r[1] = r[5]; r[2] = r[6]; r[3] = r[7]; /* r[4] */ goto s_loop_v3678; } case 150: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r curry-lam id id id k */ hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[1]; *--hp = r[6]; *--hp = obj_from_case(151); r[7] = (hendblk(2+1)); r[8+0] = r[2]; pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[7]; r[8+2] = (car((r[5]))); r[8+3] = (car((r[4]))); r[8+4] = (car((r[3]))); r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; 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 */ { /* 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 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; /* shift reg. wnd */ /* ek r k r id* */ { /* vector */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[4]; *--hp = (mksymbol(internsym("lambda-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[5] = (hendblk(3+1)); } { /* vector */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[5]; *--hp = (mksymbol(internsym("app-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[5] = (hendblk(3+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 153: /* clo k lam xvars id* lam* xvars* tid* */ assert(rc == 8); { obj* p = objptr_from_obj(r[0]); r[1+7] = p[1]; r[1+8] = p[2]; r[1+9] = p[3]; } r += 1; /* shift reg. wnd */ /* k lam xvars id* lam* xvars* tid* top-lams top-ids curry-lam */ if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+3))) { r[10] = (vectorref((r[1]), (+0))); r[10] = obj_from_bool((r[10]) == (mksymbol(internsym("lambda-exp")))); } else { r[10] = obj_from_bool(0); } } else { r[10] = obj_from_bool(0); } if (bool_from_obj(r[10])) { r[10] = (vectorref((r[1]), (+1))); r[11] = (vectorref((r[1]), (+2))); hreserve(hbsz(8+1), 12); /* 12 live regs */ *--hp = r[3]; *--hp = (r[10]); *--hp = r[2]; *--hp = r[0]; *--hp = r[4]; *--hp = r[5]; *--hp = r[6]; *--hp = r[9]; *--hp = obj_from_case(154); r[12] = (hendblk(8+1)); r[0] = (r[12]); r[1] = (r[11]); r[2] = r[7]; r[3] = r[8]; r[4] = r[9]; goto s_lift; } else { r[10] = (cx__2Acurrent_2Derror_2Dport_2A); (void)(fputc('\n', oportdata((r[10])))); hreserve(hbsz(3+1), 11); /* 11 live regs */ *--hp = r[0]; *--hp = (r[10]); *--hp = r[1]; *--hp = obj_from_case(158); r[11] = (hendblk(3+1)); if (bool_from_obj(mksymbol(internsym("variant-case")))) { { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("variant-case"))); *--hp = obj_from_size(PAIR_BTAG); r[12] = (hendblk(3)); } r[0] = (cx_fprintf_2A); pc = objptr_from_obj(r[0])[0]; r[1] = (r[11]); r[2] = (r[10]); r[3] = (cx__2393); r[4] = (r[12]); rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { r[0] = (cx_write_2F3); pc = objptr_from_obj(r[0])[0]; r[1] = (r[11]); r[2] = (cx__2389); r[3] = obj_from_bool(1); r[4] = (r[10]); rreserve(MAX_HOSTREGS); rc = 5; goto jump; } } case 154: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ /* ek r curry-lam tid* xvars* lam* k xvars ids id* */ hreserve(hbsz(5+1), 10); /* 10 live regs */ *--hp = r[9]; *--hp = r[1]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = obj_from_case(157); r[10] = (hendblk(5+1)); r[11+0] = (r[10]); r[11+1] = r[5]; r[11+2] = r[4]; r[11+3] = r[3]; r[11+4] = r[2]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v3618; s_loop_v3618: /* k id id id curry-lam */ if (((isnull((r[1]))) || ((isnull((r[2]))) || (isnull((r[3])))))) { /* 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[5] = (cdr((r[1]))); r[6] = (cdr((r[2]))); r[7] = (cdr((r[3]))); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[3]; *--hp = r[4]; *--hp = obj_from_case(155); r[8] = (hendblk(5+1)); r[0] = r[8]; r[1] = r[5]; r[2] = r[6]; r[3] = r[7]; /* r[4] */ goto s_loop_v3618; } 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+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r curry-lam id id id k */ hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[1]; *--hp = r[6]; *--hp = obj_from_case(156); r[7] = (hendblk(2+1)); r[8+0] = r[2]; pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[7]; r[8+2] = (car((r[5]))); r[8+3] = (car((r[4]))); r[8+4] = (car((r[3]))); r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; 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 */ { /* 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 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 k xvars ids r id* */ { /* vector */ hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[6]; *--hp = (mksymbol(internsym("lambda-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[7] = (hendblk(3+1)); } { /* vector */ hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[1]; *--hp = r[7]; *--hp = (mksymbol(internsym("app-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[7] = (hendblk(3+1)); } { fixnum_t v4781_tmp; { /* length */ int n; obj l = r[4]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v4781_tmp = (n); } { /* append */ obj t, l, o, *p, *d; int c = (v4781_tmp); hreserve(hbsz(3)*c, 8); /* 8 live regs */ l = r[4]; 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); } } { /* vector */ hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[7]; *--hp = r[8]; *--hp = (mksymbol(internsym("lambda-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 158: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . lam ep k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(159); 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__2387); r[7+4] = r[6]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 159: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . ep k */ hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_case(160); 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__2383); 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 160: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek . k */ r[0] = (cx_reset); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; rreserve(MAX_HOSTREGS); rc = 2; goto jump; case 161: /* unbox-values k exp */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k exp */ r[2+0] = r[0]; r[2+1] = r[1]; r[2+2] = (mknull()); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_unbox_2Dvals; case 162: /* clo k exp substs */ assert(rc == 4); r += 1; /* shift reg. wnd */ s_unbox_2Dvals: /* k exp substs */ hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(162); r[3] = (hendblk(0+1)); r[4+0] = r[0]; r[4+1] = r[1]; r[4+2] = r[3]; r[4+3] = r[2]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_uv; case 163: /* 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; /* shift reg. wnd */ s_uv: /* k exp unbox-vals substs */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(163); r[4] = (hendblk(2+1)); if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+2))) { r[5] = (vectorref((r[1]), (+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[1]), (+1))); { /* assq */ obj x = (r[5]), l = (r[3]), 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); } r[5] = (bool_from_obj(r[6]) ? (cdr((r[6]))) : (r[1])); r[6+0] = r[0]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = obj_from_ktrap(); r[6+2] = r[5]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if (bool_from_obj(cxs_gvarassign_2Dexp_3F_23506((r[1])))) { r[5] = (vectorref((r[1]), (+1))); r[6] = (vectorref((r[1]), (+2))); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[0]; *--hp = obj_from_case(164); r[7] = (hendblk(2+1)); r[0] = r[7]; r[1] = r[6]; /* r[2] */ /* r[3] */ goto s_uv; } else { if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+4))) { r[5] = (vectorref((r[1]), (+0))); r[5] = obj_from_bool((r[5]) == (mksymbol(internsym("if-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[1]), (+1))); r[6] = (vectorref((r[1]), (+2))); r[7] = (vectorref((r[1]), (+3))); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[0]; *--hp = r[5]; *--hp = r[4]; *--hp = r[6]; *--hp = r[7]; *--hp = obj_from_case(165); r[8] = (hendblk(5+1)); if ((isvector((r[5])))) { if (((vectorlen((r[5]))) == (+4))) { r[9] = (vectorref((r[5]), (+0))); r[9] = obj_from_bool((r[9]) == (mksymbol(internsym("primapp-exp")))); } else { r[9] = obj_from_bool(0); } } else { r[9] = obj_from_bool(0); } if (bool_from_obj(r[9])) { r[9] = (vectorref((r[5]), (+3))); { fixnum_t v4780_tmp; { /* length */ int n; obj l = r[9]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v4780_tmp = (n); } r[10] = obj_from_bool((v4780_tmp) == (+1)); } if (bool_from_obj(r[10])) { r[10] = (car((r[9]))); if ((isvector((r[10])))) { if (((vectorlen((r[10]))) == (+2))) { r[11] = (vectorref((r[10]), (+0))); r[11] = obj_from_bool((r[11]) == (mksymbol(internsym("var-exp")))); } else { r[11] = obj_from_bool(0); } } else { r[11] = obj_from_bool(0); } if (bool_from_obj(r[11])) { r[11] = (vectorref((r[10]), (+1))); hreserve(hbsz(8+1), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = r[8]; *--hp = r[5]; *--hp = r[4]; *--hp = r[6]; *--hp = r[3]; *--hp = r[2]; *--hp = r[7]; *--hp = obj_from_case(169); r[12] = (hendblk(8+1)); r[0] = (cx_var_2Dunboxed_2Dctype_2Din_2Dexp); pc = objptr_from_obj(r[0])[0]; r[1] = (r[12]); r[2] = (r[11]); r[3] = r[6]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[11+0] = obj_from_ktrap(); r[11+1] = obj_from_bool(0); r[11+2] = r[7]; r[11+3] = r[6]; r[11+4] = r[4]; r[11+5] = r[5]; r[11+6] = r[0]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v3544; } } else { r[10+0] = obj_from_ktrap(); r[10+1] = obj_from_bool(0); r[10+2] = r[7]; r[10+3] = r[6]; r[10+4] = r[4]; r[10+5] = r[5]; r[10+6] = r[0]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v3544; } } else { r[9+0] = obj_from_ktrap(); r[9+1] = obj_from_bool(0); r[9+2] = r[7]; r[9+3] = r[6]; r[9+4] = r[4]; r[9+5] = r[5]; r[9+6] = r[0]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v3544; } } else { if (bool_from_obj(cxs_degenerate_2Dlet_2Dexp_3F_23259((r[1])))) { r[5] = (cxs_degenerate_2Dlet_2Dexp_2D_3Ebody_23236((r[1]))); /* r[0] */ r[1] = r[5]; /* r[2] */ /* r[3] */ goto s_uv; } else { if (bool_from_obj(cxs_let_2Dexp_3F_23141((r[1])))) { r[5] = (vectorref((r[1]), (+1))); r[5] = (vectorref((r[5]), (+1))); r[6] = (vectorref((r[1]), (+2))); r[7] = (vectorref((r[1]), (+1))); r[7] = (vectorref((r[7]), (+2))); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[0]; *--hp = r[5]; *--hp = r[3]; *--hp = r[7]; *--hp = r[2]; *--hp = obj_from_case(178); r[8] = (hendblk(5+1)); r[0] = r[8]; r[1] = r[6]; r[2] = r[4]; goto s_loop_v3484; } else { if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+4))) { r[5] = (vectorref((r[1]), (+0))); r[5] = obj_from_bool((r[5]) == (mksymbol(internsym("primapp-exp")))); } else { r[5] = obj_from_bool(0); } } else { r[5] = obj_from_bool(0); } if (bool_from_obj(r[5])) { r[5] = (vectorref((r[1]), (+1))); r[6] = (vectorref((r[1]), (+2))); r[7] = (vectorref((r[1]), (+3))); hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[5]; *--hp = r[6]; *--hp = r[0]; *--hp = obj_from_case(187); r[8] = (hendblk(3+1)); r[0] = r[8]; r[1] = r[7]; r[2] = r[4]; goto s_loop_v3418; } else { if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+3))) { r[5] = (vectorref((r[1]), (+0))); r[5] = obj_from_bool((r[5]) == (mksymbol(internsym("app-exp")))); } else { r[5] = obj_from_bool(0); } } else { r[5] = obj_from_bool(0); } if (bool_from_obj(r[5])) { r[5] = (vectorref((r[1]), (+1))); r[6] = (vectorref((r[1]), (+2))); hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[0]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(190); r[7] = (hendblk(3+1)); r[0] = r[7]; r[1] = r[6]; r[2] = r[4]; goto s_loop_v3395; } else { if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+4))) { r[5] = (vectorref((r[1]), (+0))); r[5] = obj_from_bool((r[5]) == (mksymbol(internsym("fix-exp")))); } else { r[5] = obj_from_bool(0); } } else { r[5] = obj_from_bool(0); } if (bool_from_obj(r[5])) { r[5] = (vectorref((r[1]), (+1))); r[6] = (vectorref((r[1]), (+2))); r[7] = (vectorref((r[1]), (+3))); hreserve(hbsz(4+1), 8); /* 8 live regs */ *--hp = r[5]; *--hp = r[0]; *--hp = r[6]; *--hp = r[4]; *--hp = obj_from_case(192); r[8] = (hendblk(4+1)); r[0] = r[8]; r[1] = r[7]; /* r[2] */ /* r[3] */ goto s_uv; } else { if ((isvector((r[1])))) { if (((vectorlen((r[1]))) == (+3))) { r[5] = (vectorref((r[1]), (+0))); r[5] = obj_from_bool((r[5]) == (mksymbol(internsym("lambda-exp")))); } else { r[5] = obj_from_bool(0); } } else { r[5] = obj_from_bool(0); } if (bool_from_obj(r[5])) { r[5] = (vectorref((r[1]), (+1))); r[6] = (vectorref((r[1]), (+2))); r[7+0] = r[0]; r[7+1] = r[5]; r[7+2] = (mknull()); r[7+3] = (mknull()); r[7+4] = r[3]; r[7+5] = r[2]; r[7+6] = r[4]; r[7+7] = r[6]; r[7+8] = r[5]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v3313; } else { r[5] = (cx__2Acurrent_2Derror_2Dport_2A); (void)(fputc('\n', oportdata((r[5])))); hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[0]; *--hp = r[5]; *--hp = r[1]; *--hp = obj_from_case(202); r[6] = (hendblk(3+1)); if (bool_from_obj(mksymbol(internsym("variant-case")))) { { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("variant-case"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[0] = (cx_fprintf_2A); pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = r[5]; r[3] = (cx__2393); r[4] = r[7]; rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { r[0] = (cx_write_2F3); pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = (cx__2389); r[3] = obj_from_bool(1); r[4] = r[5]; rreserve(MAX_HOSTREGS); rc = 5; goto jump; } } } } } } } } } } case 164: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k id */ { /* 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 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+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ s_l_v3544: /* ek r else-exp then-exp uv test-exp k */ if (bool_from_obj(r[1])) { r[7+0] = r[6]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = obj_from_ktrap(); r[7+2] = r[1]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(166); r[7] = (hendblk(4+1)); r[0] = r[4]; pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } 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+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r then-exp uv test-exp k */ hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(167); r[6] = (hendblk(4+1)); r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; /* r[2] */ 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; /* shift reg. wnd */ /* ek r uv test-exp k r */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(168); r[6] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = r[3]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 168: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* 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 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+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ /* ek r else-exp unbox-vals substs then-exp uv test-exp k id */ if (bool_from_obj(r[1])) { r[10] = (ismember((r[1]), (cx__231979))); r[10] = obj_from_bool(!bool_from_obj(r[10])); if (bool_from_obj(r[10])) { hreserve(hbsz(9+1), 10); /* 10 live regs */ *--hp = r[1]; *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(170); r[10] = (hendblk(9+1)); r[0] = (cx_var_2Dreference_2Dcount); pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); r[2] = r[9]; r[3] = r[5]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[0] = r[8]; 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[8]; 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 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+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek r else-exp unbox-vals substs then-exp uv test-exp k id r */ if ((fixnum_from_obj(r[1]) > (+1))) { hreserve(hbsz(9+1), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(171); r[11] = (hendblk(9+1)); r[0] = (cx_typecheck_2Dprim_2Dctype); pc = objptr_from_obj(r[0])[0]; r[1] = (r[11]); r[2] = (vectorref((r[7]), (+2))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[0] = r[8]; 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 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+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek r else-exp unbox-vals substs then-exp uv test-exp k id r */ r[11] = obj_from_bool(isequal((r[10]), (r[1]))); if (bool_from_obj(r[11])) { hreserve(hbsz(8+1), 12); /* 12 live regs */ *--hp = r[9]; *--hp = (r[10]); *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(172); r[12] = (hendblk(8+1)); r[0] = r[6]; pc = objptr_from_obj(r[0])[0]; r[1] = (r[12]); /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[0] = r[8]; 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 172: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ /* ek r unbox-vals substs then-exp uv test-exp k r id */ r[10] = (cdr((r[9]))); r[10] = (car((r[10]))); hreserve(hbsz(10+1), 11); /* 11 live regs */ *--hp = r[8]; *--hp = (r[10]); *--hp = r[9]; *--hp = r[1]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(173); r[11] = (hendblk(10+1)); r[0] = (cx_timestamp); pc = objptr_from_obj(r[0])[0]; r[1] = (r[11]); rreserve(MAX_HOSTREGS); rc = 2; goto jump; 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+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; r[1+11] = p[10]; } r += 1; /* shift reg. wnd */ /* ek r unbox-vals substs then-exp uv test-exp k r id sym r */ { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = (mknull()); *--hp = (r[11]); *--hp = obj_from_size(PAIR_BTAG); r[12] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 13); /* 13 live regs */ *--hp = (r[12]); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[12] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 13); /* 13 live regs */ *--hp = (r[12]); *--hp = (r[10]); *--hp = obj_from_size(PAIR_BTAG); r[12] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 13); /* 13 live regs */ *--hp = (r[12]); *--hp = (mksymbol(internsym("var"))); *--hp = obj_from_size(PAIR_BTAG); r[12] = (hendblk(3)); } hreserve(hbsz(6+1), 13); /* 13 live regs */ *--hp = (r[12]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(174); r[13] = (hendblk(6+1)); { /* vector */ hreserve(hbsz(2+1), 14); /* 14 live regs */ *--hp = (r[12]); *--hp = (mksymbol(internsym("var-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[14] = (hendblk(2+1)); } { /* cons */ hreserve(hbsz(3), 15); /* 15 live regs */ *--hp = (r[14]); *--hp = r[9]; *--hp = obj_from_size(PAIR_BTAG); r[14] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 15); /* 15 live regs */ *--hp = r[3]; *--hp = (r[14]); *--hp = obj_from_size(PAIR_BTAG); r[14] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = (r[13]); r[2] = r[4]; r[3] = (r[14]); rreserve(MAX_HOSTREGS); rc = 4; 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+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 uv test-exp k r id r */ { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = (mknull()); *--hp = r[7]; *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* vector */ hreserve(hbsz(2+1), 9); /* 9 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("var-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[9] = (hendblk(2+1)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = (mknull()); *--hp = r[9]; *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* vector */ hreserve(hbsz(3+1), 10); /* 10 live regs */ *--hp = r[1]; *--hp = r[8]; *--hp = (mksymbol(internsym("lambda-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[10] = (hendblk(3+1)); } { /* vector */ hreserve(hbsz(3+1), 11); /* 11 live regs */ *--hp = r[9]; *--hp = (r[10]); *--hp = (mksymbol(internsym("app-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[10] = (hendblk(3+1)); } hreserve(hbsz(3+1), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(175); r[11] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = (r[11]); r[2] = r[3]; 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 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; s_loop_v3484: /* k id uv */ 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(176); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v3484; } case 176: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r uv id k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(177); 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 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; /* 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 178: /* 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 unbox-vals body substs ids k */ r[7+0] = r[6]; r[7+1] = r[5]; r[7+2] = r[1]; r[7+3] = (mknull()); r[7+4] = (mknull()); r[7+5] = r[4]; r[7+6] = r[2]; r[7+7] = r[3]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v3437; case 179: /* clo k in-ids in-rands out-ids out-rands substs */ assert(rc == 7); { obj* p = objptr_from_obj(r[0]); r[1+6] = p[1]; r[1+7] = p[2]; } r += 1; /* shift reg. wnd */ s_loop_v3437: /* k in-ids in-rands out-ids out-rands substs unbox-vals body */ if ((isnull((r[1])))) { hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[3]; *--hp = r[4]; *--hp = r[0]; *--hp = obj_from_case(180); r[8] = (hendblk(3+1)); r[9+0] = r[6]; pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[8]; r[9+2] = r[7]; r[9+3] = r[5]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[8] = (car((r[1]))); r[9] = (car((r[2]))); hreserve(hbsz(2+1), 10); /* 10 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = obj_from_case(179); r[10] = (hendblk(2+1)); hreserve(hbsz(9+1), 11); /* 11 live regs */ *--hp = r[8]; *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[3]; *--hp = r[9]; *--hp = r[4]; *--hp = r[5]; *--hp = (r[10]); *--hp = obj_from_case(181); r[10] = (hendblk(9+1)); r[11+0] = (cx_var_2Dunboxed_2Dctype_2Din_2Dexp); pc = objptr_from_obj(r[11+0])[0]; r[11+1] = (r[10]); r[11+2] = r[8]; r[11+3] = r[7]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 180: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r k out-rands out-ids */ { /* vector */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = (mksymbol(internsym("lambda-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[5] = (hendblk(3+1)); } { /* vector */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[3]; *--hp = r[5]; *--hp = (mksymbol(internsym("app-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[5] = (hendblk(3+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 181: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek r loop substs out-rands rand out-ids in-rands in-ids k id */ hreserve(hbsz(9+1), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(182); r[11] = (hendblk(9+1)); if (bool_from_obj(r[1])) { r[12] = (ismember((r[1]), (cx__231979))); r[12] = obj_from_bool(!bool_from_obj(r[12])); if (bool_from_obj(r[12])) { hreserve(hbsz(2+1), 12); /* 12 live regs */ *--hp = r[1]; *--hp = (r[11]); *--hp = obj_from_case(184); r[12] = (hendblk(2+1)); r[0] = (cx_exp_2Dctype); pc = objptr_from_obj(r[0])[0]; r[1] = (r[12]); r[2] = r[5]; r[3] = (mknull()); rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[0] = obj_from_ktrap(); r[1] = obj_from_bool(0); /* r[2] */ /* r[3] */ /* r[4] */ /* r[5] */ /* r[6] */ /* r[7] */ /* r[8] */ /* r[9] */ r[10] = (r[10]); goto s_l_v3447; } } else { r[0] = obj_from_ktrap(); r[1] = obj_from_bool(0); /* r[2] */ /* r[3] */ /* r[4] */ /* r[5] */ /* r[6] */ /* r[7] */ /* r[8] */ /* r[9] */ r[10] = (r[10]); goto s_l_v3447; } case 182: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ s_l_v3447: /* ek r loop substs out-rands rand out-ids in-rands in-ids k id */ if (bool_from_obj(r[1])) { r[11] = (cdr((r[10]))); r[11] = (car((r[11]))); hreserve(hbsz(11+1), 12); /* 12 live regs */ *--hp = r[1]; *--hp = (r[11]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = (r[10]); *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(183); r[12] = (hendblk(11+1)); r[0] = (cx_timestamp); pc = objptr_from_obj(r[0])[0]; r[1] = (r[12]); rreserve(MAX_HOSTREGS); rc = 2; goto jump; } else { { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = r[6]; *--hp = (r[10]); *--hp = obj_from_size(PAIR_BTAG); r[11] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = r[4]; *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[12] = (hendblk(3)); } r[13+0] = r[2]; pc = objptr_from_obj(r[13+0])[0]; r[13+1] = r[9]; r[13+2] = (cdr((r[8]))); r[13+3] = (cdr((r[7]))); r[13+4] = (r[11]); r[13+5] = (r[12]); r[13+6] = r[3]; r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 7; goto jump; } case 183: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; r[1+11] = p[10]; r[1+12] = p[11]; } r += 1; /* shift reg. wnd */ /* ek r loop substs id out-rands rand out-ids in-rands in-ids k sym r */ { /* cons */ hreserve(hbsz(3), 13); /* 13 live regs */ *--hp = (mknull()); *--hp = (r[12]); *--hp = obj_from_size(PAIR_BTAG); r[13] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 14); /* 14 live regs */ *--hp = (r[13]); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[13] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 14); /* 14 live regs */ *--hp = (r[13]); *--hp = (r[11]); *--hp = obj_from_size(PAIR_BTAG); r[13] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 14); /* 14 live regs */ *--hp = (r[13]); *--hp = (mksymbol(internsym("var"))); *--hp = obj_from_size(PAIR_BTAG); r[13] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 14); /* 14 live regs */ *--hp = r[7]; *--hp = (r[13]); *--hp = obj_from_size(PAIR_BTAG); r[14] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 15); /* 15 live regs */ *--hp = r[5]; *--hp = r[6]; *--hp = obj_from_size(PAIR_BTAG); r[15] = (hendblk(3)); } { /* vector */ hreserve(hbsz(2+1), 16); /* 16 live regs */ *--hp = (r[13]); *--hp = (mksymbol(internsym("var-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[16] = (hendblk(2+1)); } { /* cons */ hreserve(hbsz(3), 17); /* 17 live regs */ *--hp = (r[16]); *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[16] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 17); /* 17 live regs */ *--hp = r[3]; *--hp = (r[16]); *--hp = obj_from_size(PAIR_BTAG); r[16] = (hendblk(3)); } r[17+0] = r[2]; pc = objptr_from_obj(r[17+0])[0]; r[17+1] = (r[10]); r[17+2] = (cdr((r[9]))); r[17+3] = (cdr((r[8]))); r[17+4] = (r[14]); r[17+5] = (r[15]); r[17+6] = (r[16]); r += 17; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 7; goto jump; case 184: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ if (bool_from_obj(r[1])) { r[4] = (ismember((r[1]), (cx__231979))); r[4] = obj_from_bool(!bool_from_obj(r[4])); if (bool_from_obj(r[4])) { r[4] = ((strcmp(stringchars((r[3])), stringchars((r[1]))) == 0) ? (r[1]) : obj_from_bool(0)); } else { r[4] = obj_from_bool(0); } } else { r[4] = obj_from_bool(0); } 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; s_loop_v3418: /* k id uv */ 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(185); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v3418; } case 185: /* 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 uv id k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(186); 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 186: /* 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 187: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r k prim effect */ { /* vector */ hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = r[4]; *--hp = (mksymbol(internsym("primapp-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; s_loop_v3395: /* k id uv */ 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(188); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v3395; } case 188: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r uv id k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(189); 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 189: /* 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 190: /* 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 uv rator k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(191); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[3]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 191: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* 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 192: /* 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 uv lams k ids */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(195); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[3]; /* r[2] */ goto s_loop_v3362; s_loop_v3362: /* k id uv */ 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(193); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v3362; } case 193: /* 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 uv id k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(194); 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 194: /* 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 195: /* 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 ids */ { /* vector */ hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = r[4]; *--hp = (mksymbol(internsym("fix-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 196: /* clo k in-ids out-ids out-rands substs */ assert(rc == 6); { obj* p = objptr_from_obj(r[0]); r[1+5] = p[1]; r[1+6] = p[2]; r[1+7] = p[3]; r[1+8] = p[4]; } r += 1; /* shift reg. wnd */ s_loop_v3313: /* k in-ids out-ids out-rands substs unbox-vals uv body ids */ if ((isnull((r[1])))) { if ((isnull((r[2])))) { hreserve(hbsz(2+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[0]; *--hp = obj_from_case(197); r[9] = (hendblk(2+1)); r[10+0] = r[6]; pc = objptr_from_obj(r[10+0])[0]; r[10+1] = r[9]; r[10+2] = r[7]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(4+1), 9); /* 9 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = r[8]; *--hp = r[0]; *--hp = obj_from_case(198); r[9] = (hendblk(4+1)); r[10+0] = r[5]; pc = objptr_from_obj(r[10+0])[0]; r[10+1] = r[9]; r[10+2] = r[7]; r[10+3] = r[4]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } } else { r[9] = (car((r[1]))); hreserve(hbsz(4+1), 10); /* 10 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(196); r[10] = (hendblk(4+1)); hreserve(hbsz(7+1), 11); /* 11 live regs */ *--hp = r[9]; *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[3]; *--hp = r[4]; *--hp = (r[10]); *--hp = obj_from_case(199); r[10] = (hendblk(7+1)); hreserve(hbsz(3+1), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = r[9]; *--hp = r[7]; *--hp = obj_from_case(201); r[10] = (hendblk(3+1)); r[11+0] = (cx_var_2Dreference_2Dcount); pc = objptr_from_obj(r[11+0])[0]; r[11+1] = (r[10]); r[11+2] = r[9]; r[11+3] = r[7]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 197: /* 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 ids */ { /* 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 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+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r k ids out-rands out-ids */ { /* vector */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[5]; *--hp = (mksymbol(internsym("lambda-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[6] = (hendblk(3+1)); } { /* vector */ hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[4]; *--hp = r[6]; *--hp = (mksymbol(internsym("app-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[6] = (hendblk(3+1)); } { /* vector */ hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[3]; *--hp = (mksymbol(internsym("lambda-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[7] = (hendblk(3+1)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[7]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; 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+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek r loop substs out-rands out-ids in-ids k id */ if (bool_from_obj(r[1])) { r[9] = (cdr((r[8]))); r[9] = (car((r[9]))); hreserve(hbsz(9+1), 10); /* 10 live regs */ *--hp = r[1]; *--hp = r[9]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[8]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(200); r[10] = (hendblk(9+1)); r[0] = (cx_timestamp); pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); rreserve(MAX_HOSTREGS); rc = 2; goto jump; } else { r[9+0] = r[2]; pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[7]; r[9+2] = (cdr((r[6]))); r[9+3] = r[5]; r[9+4] = r[4]; r[9+5] = r[3]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; goto jump; } 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+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek r loop substs out-rands id out-ids in-ids k sym r */ { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = (mknull()); *--hp = (r[10]); *--hp = obj_from_size(PAIR_BTAG); r[11] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[11] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = r[9]; *--hp = obj_from_size(PAIR_BTAG); r[11] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = (mksymbol(internsym("var"))); *--hp = obj_from_size(PAIR_BTAG); r[11] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = r[6]; *--hp = (r[11]); *--hp = obj_from_size(PAIR_BTAG); r[12] = (hendblk(3)); } { /* vector */ hreserve(hbsz(2+1), 13); /* 13 live regs */ *--hp = r[5]; *--hp = (mksymbol(internsym("var-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[13] = (hendblk(2+1)); } { /* cons */ hreserve(hbsz(3), 14); /* 14 live regs */ *--hp = r[4]; *--hp = (r[13]); *--hp = obj_from_size(PAIR_BTAG); r[13] = (hendblk(3)); } { /* vector */ hreserve(hbsz(2+1), 14); /* 14 live regs */ *--hp = (r[11]); *--hp = (mksymbol(internsym("var-exp"))); *--hp = obj_from_size(VECTOR_BTAG); r[14] = (hendblk(2+1)); } { /* cons */ hreserve(hbsz(3), 15); /* 15 live regs */ *--hp = (r[14]); *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[14] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 15); /* 15 live regs */ *--hp = r[3]; *--hp = (r[14]); *--hp = obj_from_size(PAIR_BTAG); r[14] = (hendblk(3)); } r[15+0] = r[2]; pc = objptr_from_obj(r[15+0])[0]; r[15+1] = r[8]; r[15+2] = (cdr((r[7]))); r[15+3] = (r[12]); r[15+4] = (r[13]); r[15+5] = (r[14]); r += 15; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; goto jump; 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 body id k */ if ((fixnum_from_obj(r[1]) > (+1))) { r[5+0] = (cx_var_2Dunboxed_2Dctype_2Din_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; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; 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 202: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* 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(203); 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__2387); r[7+4] = r[6]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 203: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . ep k */ hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_case(204); 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__2383); 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 204: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* 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); } }