/* 1.sf */ /* Generated by #F $Id$ */ #ifdef PROFILE #define host host_module_1 #endif #define MODULE module_1 #define LOAD() module_0(); extern void module_0(void); /* 0.sf */ /* standard includes */ #include #include #include #include /* extra includes */ #include #include #include #include /* standard definitions */ typedef ptrdiff_t obj; /* pointers are this size, lower bit zero */ typedef ptrdiff_t cxoint_t; /* same thing, used as integer */ typedef struct { /* type descriptor */ const char *tname; /* name (debug) */ void (*free)(void*); /* deallocator */ } cxtype_t; #define notobjptr(o) (((char*)(o) - (char*)cxg_heap) & cxg_hmask) #define isobjptr(o) (!notobjptr(o)) #define notaptr(o) ((o) & 1) #define isaptr(o) (!notaptr(o)) #define obj_from_obj(o) (o) #define obj_from_objptr(p) ((obj)(p)) #define obj_from_size(n) (((cxoint_t)(n) << 1) | 1) #define objptr_from_objptr(p) (p) #define objptr_from_obj(o) ((obj*)(o)) #define size_from_obj(o) ((int)((o) >> 1)) #define obj_from_case(n) obj_from_objptr(cases+(n)) #define case_from_obj(o) (objptr_from_obj(o)-cases) #define obj_from_ktrap() obj_from_size(0x5D56F806) #define obj_from_void(v) ((void)(v), obj_from_size(0x6F56DF77)) #define bool_from_obj(o) (o) #define bool_from_bool(b) (b) #define bool_from_size(s) (s) #define void_from_void(v) (void)(v) #define void_from_obj(o) (void)(o) #define rreserve(m) if (r + (m) >= cxg_rend) r = cxm_rgc(r, m) #define hpushptr(p, pt, l) (hreserve(2, l), *--hp = (obj)(p), *--hp = (obj)(pt), (obj)(hp+1)) #define hbsz(s) ((s) + 1) /* 1 extra word to store block size */ #define hreserve(n, l) ((hp < cxg_heap + (n)) ? hp = cxm_hgc(r, r+(l), hp, n) : hp) #define hendblk(n) (*--hp = obj_from_size(n), (obj)(hp+1)) #define hblklen(p) size_from_obj(((obj*)(p))[-1]) #define hblkref(p, i) (((obj*)(p))[i]) typedef obj (*cxhost_t)(obj); typedef struct cxroot_tag { int globc; obj **globv; struct cxroot_tag *next; } cxroot_t; extern obj *cxg_heap; extern obj *cxg_hp; extern cxoint_t cxg_hmask; extern cxroot_t *cxg_rootp; extern obj *cxm_rgc(obj *regs, size_t needs); extern obj *cxm_hgc(obj *regs, obj *regp, obj *hp, size_t needs); extern obj *cxg_regs, *cxg_rend; extern void cxm_check(int x, char *msg); extern void *cxm_cknull(void *p, char *msg); extern int cxg_rc; extern char **cxg_argv; /* extra definitions */ /* basic object representation */ #define isimm(o, t) (((o) & 0xff) == (((t) << 1) | 1)) #ifdef NDEBUG #define getimmu(o, t) (int)(((o) >> 8) & 0xffffff) #define getimms(o, t) (int)(((((o) >> 8) & 0xffffff) ^ 0x800000) - 0x800000) #else extern int getimmu(obj o, int t); extern int getimms(obj o, int t); #endif #define mkimm(o, t) (obj)((((o) & 0xffffff) << 8) | ((t) << 1) | 1) #ifdef NDEBUG static int isnative(obj o, cxtype_t *tp) { return isobjptr(o) && objptr_from_obj(o)[-1] == (obj)tp; } #define getnative(o, t) ((void*)(*objptr_from_obj(o))) #else extern int isnative(obj o, cxtype_t *tp); extern void *getnative(obj o, cxtype_t *tp); #endif extern int istagged(obj o, int t); #ifdef NDEBUG #define cktagged(o, t) (o) #define taggedlen(o, t) (hblklen(o)-1) #define taggedref(o, t, i) (&hblkref(o, (i)+1)) #else extern obj cktagged(obj o, int t); extern int taggedlen(obj o, int t); extern obj* taggedref(obj o, int t, int i); #endif /* booleans */ #define TRUE_ITAG 0 typedef int bool_t; #define is_bool_obj(o) (!((o) & ~(obj)1)) #define is_bool_bool(b) ((void)(b), 1) #define void_from_bool(b) (void)(b) #define obj_from_bool(b) ((b) ? mkimm(0, TRUE_ITAG) : 0) /* fixnums */ #define FIXNUM_ITAG 1 typedef int fixnum_t; #define is_fixnum_obj(o) (isimm(o, FIXNUM_ITAG)) #define is_fixnum_fixnum(i) ((void)(i), 1) #define fixnum_from_obj(o) (getimms(o, FIXNUM_ITAG)) #define fixnum_from_fixnum(i) (i) #define void_from_fixnum(i) (void)(i) #define obj_from_fixnum(i) mkimm(i, FIXNUM_ITAG) #define FIXNUM_MIN -8388608 #define FIXNUM_MAX 8388607 /* flonums */ extern cxtype_t *FLONUM_NTAG; typedef double flonum_t; #define is_flonum_obj(o) (isnative(o, FLONUM_NTAG)) #define is_flonum_flonum(f) ((void)(f), 1) #define flonum_from_obj(o) (*(flonum_t*)getnative(o, FLONUM_NTAG)) #define flonum_from_flonum(l, f) (f) #define void_from_flonum(l, f) (void)(f) #define obj_from_flonum(l, f) hpushptr(dupflonum(f), FLONUM_NTAG, l) extern flonum_t *dupflonum(flonum_t f); /* characters */ #define CHAR_ITAG 2 typedef int char_t; #define is_char_obj(o) (isimm(o, CHAR_ITAG)) #define is_char_char(i) ((i), 1) #define char_from_obj(o) (getimms(o, CHAR_ITAG)) #define char_from_char(i) (i) #define void_from_char(i) (void)(i) #define obj_from_char(i) mkimm(i, CHAR_ITAG) /* strings */ extern cxtype_t *STRING_NTAG; #define isstring(o) (isnative(o, STRING_NTAG)) #define stringdata(o) ((int*)getnative(o, STRING_NTAG)) #define stringlen(o) (*stringdata(o)) #define stringchars(o) ((char*)(stringdata(o)+1)) #define hpushstr(l, s) hpushptr(s, STRING_NTAG, l) #ifdef NDEBUG #define stringref(o, i) (stringchars(o)+(i)) #else extern char* stringref(obj o, int i); #endif extern int *newstring(char *s); extern int *allocstring(int n, int c); extern int *substring(int *d, int from, int to); extern int *stringcat(int *d0, int *d1); extern int *dupstring(int *d); extern void stringfill(int *d, int c); extern int strcmp_ci(char *s1, char*s2); /* vectors */ #define VECTOR_BTAG 1 #define isvector(o) istagged(o, VECTOR_BTAG) #define vectorref(v, i) *taggedref(v, VECTOR_BTAG, i) #define vectorlen(v) taggedlen(v, VECTOR_BTAG) /* boxes */ #define BOX_BTAG 2 #define isbox(o) istagged(o, BOX_BTAG) #define boxref(o) *taggedref(o, BOX_BTAG, 0) /* null */ #define NULL_ITAG 3 #define mknull() mkimm(0, NULL_ITAG) #define isnull(o) ((o) == mkimm(0, NULL_ITAG)) /* pairs and lists */ #define PAIR_BTAG 3 #define ispair(o) istagged(o, PAIR_BTAG) #define car(o) *taggedref(o, PAIR_BTAG, 0) #define cdr(o) *taggedref(o, PAIR_BTAG, 1) extern int islist(obj l); /* symbols */ #define SYMBOL_ITAG 4 #define issymbol(o) (isimm(o, SYMBOL_ITAG)) #define mksymbol(i) mkimm(i, SYMBOL_ITAG) #define getsymbol(o) getimmu(o, SYMBOL_ITAG) extern char *symbolname(int sym); extern int internsym(char *name); /* eof */ #define EOF_ITAG 127 #define mkeof() mkimm(-1, EOF_ITAG) #define iseof(o) ((o) == mkimm(-1, EOF_ITAG)) /* input ports */ extern cxtype_t *IPORT_NTAG; #define isiport(o) (isnative(o, IPORT_NTAG)) #define iportdata(o) ((FILE*)getnative(o, IPORT_NTAG)) #define mkiport(l, fp) hpushptr(fp, IPORT_NTAG, l) /* output ports */ extern cxtype_t *OPORT_NTAG; #define isoport(o) (isnative(o, OPORT_NTAG)) #define oportdata(o) ((FILE*)getnative(o, OPORT_NTAG)) #define mkoport(l, fp) hpushptr(fp, OPORT_NTAG, l) extern int iseqv(obj x, obj y); extern obj ismemv(obj x, obj l); extern obj isassv(obj x, obj l); extern int isequal(obj x, obj y); extern obj ismember(obj x, obj l); extern obj isassoc(obj x, obj l); /* cx globals */ extern obj cx__2Acurrent_2Derror_2Dport_2A; /* *current-error-port* */ extern obj cx_fprintf_2A; /* fprintf* */ extern obj cx_reset; /* reset */ extern obj cx_string_2D_3Efixnum; /* string->fixnum */ extern obj cx_string_2D_3Eflonum; /* string->flonum */ extern obj cx_write_2F3; /* write/3 */ obj cx__2Acurrent_2Dreader_2A; /* *current-reader* */ obj cx__2Acurrent_2Dsexp_2Dconverter_2A; /* *current-sexp-converter* */ obj cx_char_2Ddelimiter_3F; /* char-delimiter? */ obj cx_char_2Ddigit_2Dvalue; /* char-digit-value */ obj cx_char_2Dexponent_2Dmarker_3F; /* char-exponent-marker? */ obj cx_char_2Dinitial_3F; /* char-initial? */ obj cx_char_2Dlist_2D_3Estring_2Ddatum; /* char-list->string-datum */ obj cx_char_2Dlist_2D_3Esymbol_2Ddatum; /* char-list->symbol-datum */ obj cx_char_2Dnumber_2Dinitial_3F; /* char-number-initial? */ obj cx_char_2Dsubsequent_3F; /* char-subsequent? */ obj cx_codepoint_2D8bit_3F; /* codepoint-8bit? */ obj cx_codepoint_2Dbyte_2Dwidth; /* codepoint-byte-width */ obj cx_current_2Dreader; /* current-reader */ obj cx_current_2Dsexp_2Dconverter; /* current-sexp-converter */ obj cx_datum_2D_3Ereader_2Dsexp; /* datum->reader-sexp */ obj cx_datum_2D_3Erhe_2Dsexp; /* datum->rhe-sexp */ obj cx_datum_2Dcomponents; /* datum-components */ obj cx_datum_2Dtype; /* datum-type */ obj cx_decimal_2Ddatum; /* decimal-datum */ obj cx_extend_2Dreader; /* extend-reader */ obj cx_fold_2Dmax_2Fbig; /* fold-max/big */ obj cx_icar; /* icar */ obj cx_icdr; /* icdr */ obj cx_initial_2Dreader; /* initial-reader */ obj cx_input_2Dcheck_2Ddelimited; /* input-check-delimited */ obj cx_input_2Ddelimited_2Dprefix; /* input-delimited-prefix */ obj cx_input_2Ddelimited_2Dprefix_2Dci; /* input-delimited-prefix-ci */ obj cx_input_2Ddelimited_3F; /* input-delimited? */ obj cx_input_2Dprefix; /* input-prefix */ obj cx_input_2Dprefix_2Dchars; /* input-prefix-chars */ obj cx_input_2Dprefix_2Dci; /* input-prefix-ci */ obj cx_input_2Dskip_2Dexpected_2Dprefix; /* input-skip-expected-prefix */ obj cx_integer_2Drepresentation_2Dtable; /* integer-representation-table */ obj cx_integer_2Drepresentation_2Dwidth; /* integer-representation-width */ obj cx_inull_3F; /* inull? */ obj cx_make_2Ddatum; /* make-datum */ obj cx_make_2Dinput; /* make-input */ obj cx_make_2Dverbatim_2Ddatum; /* make-verbatim-datum */ obj cx_mem_2Ddiff; /* mem-diff */ obj cx_param_2D_3Eprefix_2Dreader; /* param->prefix-reader */ obj cx_param_2D_3Ereader; /* param->reader */ obj cx_r_2Derror_2A; /* r-error* */ obj cx_read_2F1; /* read/1 */ obj cx_reader_2Dtemplate_2Dreplace; /* reader-template-replace */ obj cx_set_2Dcurrent_2Dreader_21; /* set-current-reader! */ obj cx_set_2Dcurrent_2Dsexp_2Dconverter_21; /* set-current-sexp-converter! */ obj cx_string_2Dposition; /* string-position */ obj cx_string_2Dsafe_2Dcodepoint_3F; /* string-safe-codepoint? */ obj cx_subread; /* subread */ obj cx_subread_2Dchar; /* subread-char */ obj cx_subread_2Dhex_2Dscalar_2Dvalue; /* subread-hex-scalar-value */ obj cx_subread_2Dhex_2Dvalue; /* subread-hex-value */ obj cx_subread_2Dnumber; /* subread-number */ obj cx_subread_2Dpairs_2Dto_2Dterminator; /* subread-pairs-to-terminator */ obj cx_subread_2Dstring; /* subread-string */ obj cx_subread_2Dstring_2Descape; /* subread-string-escape */ obj cx_subread_2Dstring_2Dhex_2Descape; /* subread-string-hex-escape */ obj cx_subread_2Dto_2Dterminator; /* subread-to-terminator */ obj cx_subread_2Dtop; /* subread-top */ static obj cx__2310; /* constant #10 */ static obj cx__231013; /* constant #1013 */ static obj cx__231015; /* constant #1015 */ static obj cx__231019; /* constant #1019 */ static obj cx__231021; /* constant #1021 */ static obj cx__231032; /* constant #1032 */ static obj cx__231034; /* constant #1034 */ static obj cx__231040; /* constant #1040 */ static obj cx__231066; /* constant #1066 */ static obj cx__231120; /* constant #1120 */ static obj cx__231122; /* constant #1122 */ static obj cx__231124; /* constant #1124 */ static obj cx__231126; /* constant #1126 */ static obj cx__231138; /* constant #1138 */ static obj cx__231149; /* constant #1149 */ static obj cx__231160; /* constant #1160 */ static obj cx__231187; /* constant #1187 */ static obj cx__231312; /* constant #1312 */ static obj cx__231343; /* constant #1343 */ static obj cx__231400; /* constant #1400 */ static obj cx__231417; /* constant #1417 */ static obj cx__231427; /* constant #1427 */ static obj cx__231430; /* constant #1430 */ static obj cx__231438; /* constant #1438 */ static obj cx__231464; /* constant #1464 */ static obj cx__231468; /* constant #1468 */ static obj cx__231485; /* constant #1485 */ static obj cx__231504; /* constant #1504 */ static obj cx__231512; /* constant #1512 */ static obj cx__231515; /* constant #1515 */ static obj cx__231520; /* constant #1520 */ static obj cx__231529; /* constant #1529 */ static obj cx__231538; /* constant #1538 */ static obj cx__231547; /* constant #1547 */ static obj cx__231556; /* constant #1556 */ static obj cx__231565; /* constant #1565 */ static obj cx__231574; /* constant #1574 */ static obj cx__231583; /* constant #1583 */ static obj cx__231592; /* constant #1592 */ static obj cx__23160; /* constant #160 */ static obj cx__231601; /* constant #1601 */ static obj cx__231610; /* constant #1610 */ static obj cx__231613; /* constant #1613 */ static obj cx__231614; /* constant #1614 */ static obj cx__231617; /* constant #1617 */ static obj cx__231627; /* constant #1627 */ static obj cx__231669; /* constant #1669 */ static obj cx__231674; /* constant #1674 */ static obj cx__231679; /* constant #1679 */ static obj cx__231681; /* constant #1681 */ static obj cx__231683; /* constant #1683 */ static obj cx__231685; /* constant #1685 */ static obj cx__231687; /* constant #1687 */ static obj cx__231689; /* constant #1689 */ static obj cx__231691; /* constant #1691 */ static obj cx__231693; /* constant #1693 */ static obj cx__231695; /* constant #1695 */ static obj cx__231697; /* constant #1697 */ static obj cx__231699; /* constant #1699 */ static obj cx__231701; /* constant #1701 */ static obj cx__231703; /* constant #1703 */ static obj cx__231705; /* constant #1705 */ static obj cx__231707; /* constant #1707 */ static obj cx__231709; /* constant #1709 */ static obj cx__231711; /* constant #1711 */ static obj cx__231713; /* constant #1713 */ static obj cx__231715; /* constant #1715 */ static obj cx__231717; /* constant #1717 */ static obj cx__231719; /* constant #1719 */ static obj cx__231721; /* constant #1721 */ static obj cx__231723; /* constant #1723 */ static obj cx__231725; /* constant #1725 */ static obj cx__231727; /* constant #1727 */ static obj cx__231729; /* constant #1729 */ static obj cx__231731; /* constant #1731 */ static obj cx__231733; /* constant #1733 */ static obj cx__231735; /* constant #1735 */ static obj cx__231737; /* constant #1737 */ static obj cx__231739; /* constant #1739 */ static obj cx__231741; /* constant #1741 */ static obj cx__231743; /* constant #1743 */ static obj cx__231745; /* constant #1745 */ static obj cx__231747; /* constant #1747 */ static obj cx__231749; /* constant #1749 */ static obj cx__231753; /* constant #1753 */ static obj cx__231757; /* constant #1757 */ static obj cx__231811; /* constant #1811 */ static obj cx__231820; /* constant #1820 */ static obj cx__231837; /* constant #1837 */ static obj cx__231849; /* constant #1849 */ static obj cx__231855; /* constant #1855 */ static obj cx__231878; /* constant #1878 */ static obj cx__231892; /* constant #1892 */ static obj cx__231924; /* constant #1924 */ static obj cx__231932; /* constant #1932 */ static obj cx__231939; /* constant #1939 */ static obj cx__232105; /* constant #2105 */ static obj cx__232125; /* constant #2125 */ static obj cx__232193; /* constant #2193 */ static obj cx__23227; /* constant #227 */ static obj cx__23284; /* constant #284 */ static obj cx__23315; /* constant #315 */ static obj cx__23338; /* constant #338 */ static obj cx__23341; /* constant #341 */ static obj cx__23344; /* constant #344 */ static obj cx__23348; /* constant #348 */ static obj cx__23355; /* constant #355 */ static obj cx__23397; /* constant #397 */ static obj cx__23404; /* constant #404 */ static obj cx__23416; /* constant #416 */ static obj cx__23556; /* constant #556 */ static obj cx__23560; /* constant #560 */ static obj cx__23567; /* constant #567 */ static obj cx__23604; /* constant #604 */ static obj cx__23607; /* constant #607 */ static obj cx__23628; /* constant #628 */ static obj cx__23671; /* constant #671 */ static obj cx__237; /* constant #7 */ static obj cx__2380; /* constant #80 */ /* helper functions */ /* string-position */ static obj cxs_string_2Dposition(obj v17_c, obj v16_str) { { /* letrec */ obj v21_pos; obj v20_end; { /* let */ obj v2789_tmp = obj_from_fixnum(stringlen((v16_str))); obj v2788_tmp = obj_from_fixnum(+0); /* tail call */ v21_pos = (v2788_tmp); v20_end = (v2789_tmp); goto s_lookup; } s_lookup: if ((fixnum_from_obj(v21_pos) < fixnum_from_obj(v20_end))) { if ((char_from_obj(v17_c) == (*(unsigned char*)stringref((v16_str), fixnum_from_obj(v21_pos))))) { return (v21_pos); } else { { /* let */ obj v2787_tmp = (v20_end); obj v2786_tmp = obj_from_fixnum((+1) + fixnum_from_obj(v21_pos)); /* tail call */ v21_pos = (v2786_tmp); v20_end = (v2787_tmp); goto s_lookup; } } } else { return obj_from_bool(0); } } } /* codepoint-byte-width */ static obj cxs_codepoint_2Dbyte_2Dwidth(obj v30_x) { return ((!(is_fixnum_obj(v30_x))) ? (mksymbol(internsym("big"))) : ((fixnum_from_obj(v30_x) <= (+255)) ? obj_from_fixnum(+8) : ((fixnum_from_obj(v30_x) <= (+65535)) ? obj_from_fixnum(+16) : ((fixnum_from_obj(v30_x) <= (+1114111)) ? obj_from_fixnum(+24) : obj_from_fixnum(+32))))); } /* string-safe-codepoint? */ static obj cxs_string_2Dsafe_2Dcodepoint_3F(obj v35_cp) { return ((fixnum_from_obj(v35_cp) <= ((fixnum_t)('~'))) ? ((fixnum_from_obj(v35_cp) >= ((fixnum_t)(' '))) ? ((!(fixnum_from_obj(v35_cp) == ((fixnum_t)(92)))) ? ((!(fixnum_from_obj(v35_cp) == ((fixnum_t)(39)))) ? ((!(fixnum_from_obj(v35_cp) == ((fixnum_t)(34)))) ? obj_from_bool(!(fixnum_from_obj(v35_cp) == ((fixnum_t)(36)))) : obj_from_bool(0)) : obj_from_bool(0)) : obj_from_bool(0)) : obj_from_bool(0)) : obj_from_bool(0)); } /* fold-max/big */ static obj cxs_fold_2Dmax_2Fbig(obj v54_base, obj v53_lst) { s_fold_2Dmax_2Fbig: if ((isnull((v53_lst)))) { return (v54_base); } else { { /* let */ obj v56_next = (car((v53_lst))); if ((!(is_fixnum_obj(v56_next)))) { return (v56_next); } else { { /* let */ obj v2785_tmp = (cdr((v53_lst))); obj v2784_tmp = (bool_from_obj(v54_base) ? (bool_from_obj(v56_next) ? ((fixnum_from_obj(v54_base) > fixnum_from_obj(v56_next)) ? (v54_base) : (v56_next)) : obj_from_bool(0)) : obj_from_bool(0)); /* tail call */ v54_base = (v2784_tmp); v53_lst = (v2785_tmp); goto s_fold_2Dmax_2Fbig; } } } } } /* char-delimiter? */ static obj cxs_char_2Ddelimiter_3F(obj v312_c) { return ((isspace(char_from_obj(v312_c))) ? obj_from_bool(isspace(char_from_obj(v312_c))) : (ismemv((v312_c), (cx__23315)))); } /* char-digit-value */ static obj cxs_char_2Ddigit_2Dvalue(obj v347_c, obj v346_radix) { { /* let */ obj v350_pos = (cxs_string_2Dposition(obj_from_char(tolower(char_from_obj(v347_c))), (cx__23348))); return (bool_from_obj((!bool_from_obj(v350_pos)) ? obj_from_bool(!bool_from_obj(v350_pos)) : obj_from_bool(fixnum_from_obj(v350_pos) >= fixnum_from_obj(v346_radix))) ? obj_from_bool(0) : (v350_pos)); } } /* codepoint-8bit? */ static obj cxs_codepoint_2D8bit_3F(obj v2210_x) { return ((is_fixnum_obj(v2210_x)) ? ((fixnum_from_obj(v2210_x) >= (+0)) ? obj_from_bool(fixnum_from_obj(v2210_x) <= (+255)) : obj_from_bool(0)) : obj_from_bool(0)); } /* gc roots */ static obj *globv[] = { &cx__2Acurrent_2Dreader_2A, &cx__2Acurrent_2Dsexp_2Dconverter_2A, &cx_integer_2Drepresentation_2Dtable, &cx__2310, &cx__231013, &cx__231015, &cx__231019, &cx__231021, &cx__231032, &cx__231034, &cx__231040, &cx__231066, &cx__231120, &cx__231122, &cx__231124, &cx__231126, &cx__231138, &cx__231149, &cx__231160, &cx__231187, &cx__231312, &cx__231343, &cx__231400, &cx__231417, &cx__231427, &cx__231430, &cx__231438, &cx__231464, &cx__231468, &cx__231485, &cx__231504, &cx__231512, &cx__231515, &cx__231520, &cx__231529, &cx__231538, &cx__231547, &cx__231556, &cx__231565, &cx__231574, &cx__231583, &cx__231592, &cx__23160, &cx__231601, &cx__231610, &cx__231613, &cx__231614, &cx__231617, &cx__231627, &cx__231669, &cx__231674, &cx__231679, &cx__231681, &cx__231683, &cx__231685, &cx__231687, &cx__231689, &cx__231691, &cx__231693, &cx__231695, &cx__231697, &cx__231699, &cx__231701, &cx__231703, &cx__231705, &cx__231707, &cx__231709, &cx__231711, &cx__231713, &cx__231715, &cx__231717, &cx__231719, &cx__231721, &cx__231723, &cx__231725, &cx__231727, &cx__231729, &cx__231731, &cx__231733, &cx__231735, &cx__231737, &cx__231739, &cx__231741, &cx__231743, &cx__231745, &cx__231747, &cx__231749, &cx__231753, &cx__231757, &cx__231811, &cx__231820, &cx__231837, &cx__231849, &cx__231855, &cx__231878, &cx__231892, &cx__231924, &cx__231932, &cx__231939, &cx__232105, &cx__232125, &cx__232193, &cx__23227, &cx__23284, &cx__23315, &cx__23338, &cx__23341, &cx__23344, &cx__23348, &cx__23355, &cx__23397, &cx__23404, &cx__23416, &cx__23556, &cx__23560, &cx__23567, &cx__23604, &cx__23607, &cx__23628, &cx__23671, &cx__237, &cx__2380, }; static cxroot_t root = { sizeof(globv)/sizeof(obj *), globv, NULL }; /* entry points */ static obj host(obj); static obj cases[384] = { (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (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 46 static obj host(obj pc) { register obj *r = cxg_regs; register obj *hp = cxg_hp; register int rc = cxg_rc; rreserve(MAX_HOSTREGS); jump: switch (case_from_obj(pc)) { case 0: /* load module */ { static char s[] = { 10, 0 }; cx__237 = (hpushstr(0, newstring(s))); } cx__2310 = (hpushstr(0, newstring("Reader error: "))); cx__2380 = (hpushstr(0, newstring("illegal datum inside #.() form"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = obj_from_fixnum(+24); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = obj_from_fixnum(+16); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); cx__23160 = (hendblk(3)); } cx__23227 = (hpushstr(0, newstring("illegal datum following #.: ~s"))); cx__23284 = (hpushstr(0, newstring("unexpected eof"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = obj_from_char('#'); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = obj_from_char(';'); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = obj_from_char(34); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = obj_from_char('}'); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = obj_from_char('{'); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = obj_from_char(']'); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = obj_from_char('['); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = obj_from_char(')'); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = obj_from_char('('); *--hp = obj_from_size(PAIR_BTAG); cx__23315 = (hendblk(3)); } { static char s[] = { 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 33, 36, 37, 38, 42, 47, 58, 60, 61, 62, 63, 94, 95, 126, 0 }; cx__23338 = (hpushstr(0, newstring(s))); } { static char s[] = { 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 33, 36, 37, 38, 42, 47, 58, 60, 61, 62, 63, 94, 95, 126, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 43, 45, 46, 64, 0 }; cx__23341 = (hpushstr(0, newstring(s))); } cx__23344 = (hpushstr(0, newstring("0123456789+-."))); cx__23348 = (hpushstr(0, newstring("0123456789abcdefghijklmnopqrstuvwxyz"))); cx__23355 = (hpushstr(0, newstring("esfdl"))); cx__23397 = (hpushstr(0, newstring("missing ~a"))); cx__23404 = (hpushstr(0, newstring("unexpected eof; missing ~a"))); cx__23416 = (hpushstr(0, newstring("missing input delimiter before ~a"))); cx__23556 = (hpushstr(0, newstring("unexpected terminator: ~a"))); cx__23560 = (hpushstr(0, newstring("invalid context for #!read"))); cx__23567 = (hpushstr(0, newstring("unexpected eof inside form"))); cx__23604 = (hpushstr(0, newstring("unexpected terminator: ~a (expected ~a)"))); cx__23607 = (hpushstr(0, newstring("malformed dotted pair syntax"))); cx__23628 = (hpushstr(0, newstring("unexpected eof in nested form"))); r[0] = (hpushstr(0, newstring("111111111111111111111111111111111111111111111111111111111111111"))); { /* 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("1000000000000000000000000000000000000000000000000000000000000000"))); { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = obj_from_fixnum(+64); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* 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("1111111111111111111111111111111111111111111111111111111"))); { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("10000000000000000000000000000000000000000000000000000000"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[1]; *--hp = obj_from_fixnum(+56); *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } r[1] = (hpushstr(1, newstring("11111111111111111111111111111111111111111111111"))); { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("100000000000000000000000000000000000000000000000"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[1]; *--hp = obj_from_fixnum(+48); *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } r[1] = (hpushstr(1, newstring("111111111111111111111111111111111111111"))); { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("1000000000000000000000000000000000000000"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[1]; *--hp = obj_from_fixnum(+40); *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } r[1] = (hpushstr(1, newstring("1111111111111111111111111111111"))); { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("10000000000000000000000000000000"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[1]; *--hp = obj_from_fixnum(+32); *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } r[1] = (hpushstr(1, newstring("11111111111111111111111"))); { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("100000000000000000000000"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[1]; *--hp = obj_from_fixnum(+24); *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } r[1] = (hpushstr(1, newstring("111111111111111"))); { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("1000000000000000"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[1]; *--hp = obj_from_fixnum(+16); *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } r[1] = (hpushstr(1, newstring("1111111"))); { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("10000000"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[1]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = obj_from_fixnum(+2); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* 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("777777777777777777777"))); { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("1000000000000000000000"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[1]; *--hp = obj_from_fixnum(+64); *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("1777777777777777777"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (hpushstr(3, newstring("2000000000000000000"))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_fixnum(+56); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("3777777777777777"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (hpushstr(3, newstring("4000000000000000"))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_fixnum(+48); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("7777777777777"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (hpushstr(3, newstring("10000000000000"))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_fixnum(+40); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("17777777777"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (hpushstr(3, newstring("20000000000"))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_fixnum(+32); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("37777777"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (hpushstr(3, newstring("40000000"))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_fixnum(+24); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("77777"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (hpushstr(3, newstring("100000"))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_fixnum(+16); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("177"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (hpushstr(3, newstring("200"))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[1]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } r[1] = (hpushstr(1, newstring("9223372036854775807"))); { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("9223372036854775808"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[1]; *--hp = obj_from_fixnum(+64); *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("36028797018963967"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (hpushstr(3, newstring("36028797018963968"))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_fixnum(+56); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("140737488355327"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (hpushstr(3, newstring("140737488355328"))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_fixnum(+48); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("549755813887"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (hpushstr(3, newstring("549755813888"))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_fixnum(+40); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("2147483647"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (hpushstr(3, newstring("2147483648"))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_fixnum(+32); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("8388607"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (hpushstr(3, newstring("8388608"))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_fixnum(+24); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("32767"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (hpushstr(3, newstring("32768"))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_fixnum(+16); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("127"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (hpushstr(3, newstring("128"))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[1]; *--hp = obj_from_fixnum(+10); *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } r[1] = (hpushstr(1, newstring("7fffffffffffffff"))); { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("8000000000000000"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[1]; *--hp = obj_from_fixnum(+64); *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("7fffffffffffff"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (hpushstr(3, newstring("80000000000000"))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_fixnum(+56); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("7fffffffffff"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (hpushstr(3, newstring("800000000000"))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_fixnum(+48); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("7fffffffff"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (hpushstr(3, newstring("8000000000"))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_fixnum(+40); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("7fffffff"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (hpushstr(3, newstring("80000000"))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_fixnum(+32); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("7fffff"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (hpushstr(3, newstring("800000"))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_fixnum(+24); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("7fff"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (hpushstr(3, newstring("8000"))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_fixnum(+16); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } r[2] = (hpushstr(2, newstring("7f"))); { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3] = (hpushstr(3, newstring("80"))); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[1]; *--hp = obj_from_fixnum(+16); *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); cx__23671 = (hendblk(3)); } cx__231013 = (hpushstr(0, newstring("+i"))); cx__231015 = (hpushstr(0, newstring("-i"))); cx__231019 = (hpushstr(0, newstring("@"))); cx__231021 = (hpushstr(0, newstring("i"))); cx__231032 = (hpushstr(0, newstring("+"))); cx__231034 = (hpushstr(0, newstring("-"))); cx__231040 = (hpushstr(0, newstring("0"))); cx__231066 = (hpushstr(0, newstring("1"))); cx__231120 = (hpushstr(0, newstring("-nan.0"))); cx__231122 = (hpushstr(0, newstring("+nan.0"))); cx__231124 = (hpushstr(0, newstring("-inf.0"))); cx__231126 = (hpushstr(0, newstring("+inf.0"))); cx__231138 = (hpushstr(0, newstring("-."))); cx__231149 = (hpushstr(0, newstring("+."))); cx__231160 = (hpushstr(0, newstring("."))); cx__231187 = (hpushstr(0, newstring("/"))); cx__231312 = (hpushstr(0, newstring("no digits in decimal fraction representation"))); cx__231343 = (hpushstr(0, newstring("no digits in integer representation"))); cx__231400 = (hpushstr(0, newstring("no digits in hex sequence"))); cx__231417 = (hpushstr(0, newstring("character hex scalar value too large: ~a"))); { static char s[] = { 109, 105, 115, 115, 105, 110, 103, 32, 59, 32, 97, 102, 116, 101, 114, 32, 115, 116, 114, 105, 110, 103, 32, 92, 120, 32, 101, 115, 99, 97, 112, 101, 32, 115, 101, 113, 117, 101, 110, 99, 101, 0 }; cx__231427 = (hpushstr(0, newstring(s))); } { static char s[] = { 117, 110, 101, 120, 112, 101, 99, 116, 101, 100, 32, 101, 111, 102, 32, 105, 110, 32, 115, 116, 114, 105, 110, 103, 32, 92, 120, 32, 101, 115, 99, 97, 112, 101, 32, 115, 101, 113, 117, 101, 110, 99, 101, 0 }; cx__231430 = (hpushstr(0, newstring(s))); } { static char s[] = { 117, 110, 115, 117, 112, 112, 111, 114, 116, 101, 100, 32, 115, 116, 114, 105, 110, 103, 32, 101, 115, 99, 97, 112, 101, 32, 115, 101, 113, 117, 101, 110, 99, 101, 32, 92, 126, 97, 0 }; cx__231438 = (hpushstr(0, newstring(s))); } cx__231464 = (hpushstr(0, newstring("unexpected eof in string escape sequence"))); { static char s[] = { 34, 0 }; cx__231468 = (hpushstr(0, newstring(s))); } cx__231485 = (hpushstr(0, newstring("unexpected eof in string"))); { static char s[] = { 105, 110, 118, 97, 108, 105, 100, 32, 99, 104, 97, 114, 32, 115, 121, 110, 116, 97, 120, 32, 35, 92, 126, 97, 0 }; cx__231504 = (hpushstr(0, newstring(s))); } cx__231512 = (hpushstr(0, newstring("delete"))); cx__231515 = (hpushstr(0, newstring(" "))); cx__231520 = (hpushstr(0, newstring("space"))); cx__231529 = (hpushstr(0, newstring("escape"))); cx__231538 = (hpushstr(0, newstring("return"))); cx__231547 = (hpushstr(0, newstring("page"))); cx__231556 = (hpushstr(0, newstring("vtab"))); cx__231565 = (hpushstr(0, newstring("linefeed"))); cx__231574 = (hpushstr(0, newstring("newline"))); cx__231583 = (hpushstr(0, newstring("tab"))); cx__231592 = (hpushstr(0, newstring("backspace"))); cx__231601 = (hpushstr(0, newstring("alarm"))); cx__231610 = (hpushstr(0, newstring("null"))); cx__231613 = (hpushstr(0, newstring("invalid char syntax (missing delimiter?)"))); cx__231614 = (hpushstr(0, newstring(""))); cx__231617 = (hpushstr(0, newstring("no delimiter after char syntax"))); cx__231627 = (hpushstr(0, newstring("no delimiter after hex char syntax"))); cx__231669 = (hpushstr(0, newstring("unexpected eof in char syntax"))); cx__231674 = (hpushstr(0, newstring("->"))); cx__231679 = (hpushstr(0, newstring("..."))); cx__231681 = (hpushstr(0, newstring("#t"))); cx__231683 = (hpushstr(0, newstring("#f"))); cx__231685 = (hpushstr(0, newstring("#i#b"))); cx__231687 = (hpushstr(0, newstring("#i#o"))); cx__231689 = (hpushstr(0, newstring("#i#d"))); cx__231691 = (hpushstr(0, newstring("#i#x"))); cx__231693 = (hpushstr(0, newstring("#e#b"))); cx__231695 = (hpushstr(0, newstring("#e#o"))); cx__231697 = (hpushstr(0, newstring("#e#d"))); cx__231699 = (hpushstr(0, newstring("#e#x"))); cx__231701 = (hpushstr(0, newstring("#b#i"))); cx__231703 = (hpushstr(0, newstring("#o#i"))); cx__231705 = (hpushstr(0, newstring("#d#i"))); cx__231707 = (hpushstr(0, newstring("#x#i"))); cx__231709 = (hpushstr(0, newstring("#b#e"))); cx__231711 = (hpushstr(0, newstring("#o#e"))); cx__231713 = (hpushstr(0, newstring("#d#e"))); cx__231715 = (hpushstr(0, newstring("#x#e"))); cx__231717 = (hpushstr(0, newstring("#i"))); cx__231719 = (hpushstr(0, newstring("#e"))); cx__231721 = (hpushstr(0, newstring("#b"))); cx__231723 = (hpushstr(0, newstring("#o"))); cx__231725 = (hpushstr(0, newstring("#d"))); cx__231727 = (hpushstr(0, newstring("#x"))); { static char s[] = { 35, 92, 0 }; cx__231729 = (hpushstr(0, newstring(s))); } cx__231731 = (hpushstr(0, newstring("#<<"))); { static char s[] = { 39, 0 }; cx__231733 = (hpushstr(0, newstring(s))); } cx__231735 = (hpushstr(0, newstring("#fload"))); cx__231737 = (hpushstr(0, newstring("#read"))); cx__231739 = (hpushstr(0, newstring("#;"))); cx__231741 = (hpushstr(0, newstring("#|"))); cx__231743 = (hpushstr(0, newstring("#("))); cx__231745 = (hpushstr(0, newstring("#&"))); cx__231747 = (hpushstr(0, newstring("#.("))); cx__231749 = (hpushstr(0, newstring("#"))); cx__231753 = (hpushstr(0, newstring("unexpected character: ~a"))); cx__231757 = (hpushstr(0, newstring("unexpected character after #: ~a"))); cx__231811 = (hpushstr(0, newstring("|#"))); cx__231820 = (hpushstr(0, newstring("unexpected eof in #||# comment"))); cx__231837 = (hpushstr(0, newstring("as"))); { static char s[] = { 109, 105, 115, 115, 105, 110, 103, 32, 39, 97, 115, 39, 32, 97, 102, 116, 101, 114, 32, 35, 114, 101, 97, 100, 0 }; cx__231849 = (hpushstr(0, newstring(s))); } cx__231855 = (hpushstr(0, newstring("unexpected eof after #read"))); cx__231878 = (hpushstr(0, newstring("load"))); cx__231892 = (hpushstr(0, newstring("quote"))); cx__231924 = (hpushstr(0, newstring("unexpected eof in #<<"))); cx__231932 = (hpushstr(0, newstring("no close tag after #<<"))); cx__231939 = (hpushstr(0, newstring("unexpected eof after #<<"))); cx__232105 = (hpushstr(0, newstring("invalid parameter in #read: ~a"))); cx__232125 = (hpushstr(0, newstring("("))); cx__232193 = (hpushstr(0, newstring("parsed-"))); { static obj c[] = { obj_from_case(1) }; cx_r_2Derror_2A = (obj)c; } { static obj c[] = { obj_from_case(5) }; cx_string_2Dposition = (obj)c; } { static obj c[] = { obj_from_case(6) }; cx_codepoint_2Dbyte_2Dwidth = (obj)c; } { static obj c[] = { obj_from_case(7) }; cx_string_2Dsafe_2Dcodepoint_3F = (obj)c; } { static obj c[] = { obj_from_case(8) }; cx_fold_2Dmax_2Fbig = (obj)c; } { static obj c[] = { obj_from_case(9) }; cx_make_2Ddatum = (obj)c; } { static obj c[] = { obj_from_case(10) }; cx_datum_2Dtype = (obj)c; } { static obj c[] = { obj_from_case(11) }; cx_datum_2Dcomponents = (obj)c; } { static obj c[] = { obj_from_case(12) }; cx_datum_2D_3Ereader_2Dsexp = (obj)c; } { static obj c[] = { obj_from_case(19) }; cx_make_2Dverbatim_2Ddatum = (obj)c; } { static obj c[] = { obj_from_case(21) }; cx_decimal_2Ddatum = (obj)c; } { static obj c[] = { obj_from_case(22) }; cx_make_2Dinput = (obj)c; } { static obj c[] = { obj_from_case(23) }; cx_inull_3F = (obj)c; } { static obj c[] = { obj_from_case(24) }; cx_icar = (obj)c; } { static obj c[] = { obj_from_case(25) }; cx_icdr = (obj)c; } { static obj c[] = { obj_from_case(27) }; cx_input_2Dprefix_2Dchars = (obj)c; } { static obj c[] = { obj_from_case(32) }; cx_char_2Ddelimiter_3F = (obj)c; } { static obj c[] = { obj_from_case(33) }; cx_char_2Dinitial_3F = (obj)c; } { static obj c[] = { obj_from_case(34) }; cx_char_2Dsubsequent_3F = (obj)c; } { static obj c[] = { obj_from_case(35) }; cx_char_2Dnumber_2Dinitial_3F = (obj)c; } { static obj c[] = { obj_from_case(36) }; cx_char_2Ddigit_2Dvalue = (obj)c; } { static obj c[] = { obj_from_case(37) }; cx_char_2Dexponent_2Dmarker_3F = (obj)c; } { static obj c[] = { obj_from_case(38) }; cx_input_2Dprefix = (obj)c; } { static obj c[] = { obj_from_case(42) }; cx_input_2Dprefix_2Dci = (obj)c; } { static obj c[] = { obj_from_case(46) }; cx_input_2Dskip_2Dexpected_2Dprefix = (obj)c; } { static obj c[] = { obj_from_case(50) }; cx_input_2Ddelimited_3F = (obj)c; } { static obj c[] = { obj_from_case(52) }; cx_input_2Dcheck_2Ddelimited = (obj)c; } { static obj c[] = { obj_from_case(55) }; cx_input_2Ddelimited_2Dprefix = (obj)c; } { static obj c[] = { obj_from_case(60) }; cx_input_2Ddelimited_2Dprefix_2Dci = (obj)c; } { static obj c[] = { obj_from_case(65) }; cx_char_2Dlist_2D_3Estring_2Ddatum = (obj)c; } { static obj c[] = { obj_from_case(71) }; cx_char_2Dlist_2D_3Esymbol_2Ddatum = (obj)c; } { static obj c[] = { obj_from_case(77) }; cx_subread = (obj)c; } { static obj c[] = { obj_from_case(80) }; cx_subread_2Dto_2Dterminator = (obj)c; } { static obj c[] = { obj_from_case(86) }; cx_subread_2Dpairs_2Dto_2Dterminator = (obj)c; } { static obj c[] = { obj_from_case(88) }; cx_subread_2Dtop = (obj)c; } cx_integer_2Drepresentation_2Dtable = (cx__23671); { static obj c[] = { obj_from_case(92) }; cx_integer_2Drepresentation_2Dwidth = (obj)c; } { static obj c[] = { obj_from_case(97) }; cx_subread_2Dnumber = (obj)c; } { static obj c[] = { obj_from_case(157) }; cx_subread_2Dhex_2Dvalue = (obj)c; } { static obj c[] = { obj_from_case(164) }; cx_subread_2Dhex_2Dscalar_2Dvalue = (obj)c; } { static obj c[] = { obj_from_case(167) }; cx_subread_2Dstring_2Dhex_2Descape = (obj)c; } { static obj c[] = { obj_from_case(171) }; cx_subread_2Dstring_2Descape = (obj)c; } { static obj c[] = { obj_from_case(174) }; cx_subread_2Dstring = (obj)c; } { static obj c[] = { obj_from_case(185) }; cx_subread_2Dchar = (obj)c; } { static obj c[] = { obj_from_case(202) }; cx_initial_2Dreader = (obj)c; } { static obj c[] = { obj_from_case(326) }; cx_mem_2Ddiff = (obj)c; } { static obj c[] = { obj_from_case(327) }; cx_reader_2Dtemplate_2Dreplace = (obj)c; } { static obj c[] = { obj_from_case(331) }; cx_param_2D_3Ereader = (obj)c; } { static obj c[] = { obj_from_case(336) }; cx_param_2D_3Eprefix_2Dreader = (obj)c; } { static obj c[] = { obj_from_case(344) }; cx_extend_2Dreader = (obj)c; } { static obj c[] = { obj_from_case(354) }; cx_codepoint_2D8bit_3F = (obj)c; } { static obj c[] = { obj_from_case(355) }; cx_datum_2D_3Erhe_2Dsexp = (obj)c; } cx__2Acurrent_2Dreader_2A = (cx_initial_2Dreader); { static obj c[] = { obj_from_case(374) }; cx_current_2Dreader = (obj)c; } { static obj c[] = { obj_from_case(375) }; cx_set_2Dcurrent_2Dreader_21 = (obj)c; } cx__2Acurrent_2Dsexp_2Dconverter_2A = (cx_datum_2D_3Erhe_2Dsexp); { static obj c[] = { obj_from_case(376) }; cx_current_2Dsexp_2Dconverter = (obj)c; } { static obj c[] = { obj_from_case(377) }; cx_set_2Dcurrent_2Dsexp_2Dconverter_21 = (obj)c; } { static obj c[] = { obj_from_case(378) }; cx_read_2F1 = (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: /* r-error* k i fmt args */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_r_2Derror_2A: /* k i fmt args */ r[4] = (cx__2Acurrent_2Derror_2Dport_2A); (void)(fputc('\n', oportdata((r[4])))); hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[4]; *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_case(2); r[5] = (hendblk(4+1)); r[6+0] = (cx_write_2F3); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[5]; r[6+2] = (cx__2310); r[6+3] = obj_from_bool(1); r[6+4] = r[4]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 2: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek . args fmt ep k */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(3); r[6] = (hendblk(2+1)); r[7+0] = (cx_fprintf_2A); 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+4] = r[2]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 3: /* 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(4); 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__237); 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 4: /* 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 5: /* string-position k c str */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k c str */ r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); r[3+2] = (cxs_string_2Dposition((r[1]), (r[2]))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 6: /* codepoint-byte-width k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (cxs_codepoint_2Dbyte_2Dwidth((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 7: /* string-safe-codepoint? k cp */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k cp */ r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (cxs_string_2Dsafe_2Dcodepoint_3F((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 8: /* fold-max/big k base lst */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k base lst */ r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); r[3+2] = (cxs_fold_2Dmax_2Fbig((r[1]), (r[2]))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 9: /* make-datum k t cc */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k t cc */ { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = r[0]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 10: /* datum-type k d */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k d */ r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (car((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 11: /* datum-components k d */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k d */ r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (cdr((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 12: /* datum->reader-sexp k i d */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_datum_2D_3Ereader_2Dsexp: /* k i d */ r[3+0] = r[0]; r[3+1] = r[2]; r[3+2] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_unwrap; case 13: /* clo k d */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ s_unwrap: /* k d i */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(13); r[3] = (hendblk(1+1)); if ((ispair((r[1])))) { r[4] = (car((r[1]))); r[4] = obj_from_bool((r[4]) == (mksymbol(internsym("string")))); if (bool_from_obj(r[4])) { r[4] = (cdr((r[1]))); r[4] = obj_from_bool(ispair((r[4]))); if (bool_from_obj(r[4])) { r[4] = (cdr((r[1]))); r[4] = (car((r[4]))); r[4] = obj_from_bool(isstring((r[4]))); if (bool_from_obj(r[4])) { r[4] = (cdr((r[1]))); r[4] = (cdr((r[4]))); r[4] = obj_from_bool(isnull((r[4]))); } else { r[4] = obj_from_bool(0); } } else { r[4] = obj_from_bool(0); } } else { r[4] = obj_from_bool(0); } } else { r[4] = obj_from_bool(0); } if (bool_from_obj(r[4])) { r[4] = (cdr((r[1]))); r[4] = (car((r[4]))); 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; } else { if ((ispair((r[1])))) { r[4] = (car((r[1]))); r[4] = obj_from_bool((r[4]) == (mksymbol(internsym("symbol")))); if (bool_from_obj(r[4])) { r[4] = (cdr((r[1]))); r[4] = obj_from_bool(ispair((r[4]))); if (bool_from_obj(r[4])) { r[4] = (cdr((r[1]))); r[4] = (car((r[4]))); r[4] = obj_from_bool(isstring((r[4]))); if (bool_from_obj(r[4])) { r[4] = (cdr((r[1]))); r[4] = (cdr((r[4]))); r[4] = obj_from_bool(isnull((r[4]))); } else { r[4] = obj_from_bool(0); } } else { r[4] = obj_from_bool(0); } } else { r[4] = obj_from_bool(0); } } else { r[4] = obj_from_bool(0); } if (bool_from_obj(r[4])) { r[4] = (cdr((r[1]))); r[4] = (car((r[4]))); r[4] = (mksymbol(internsym(stringchars((r[4]))))); 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; } else { if ((islist((r[1])))) { { fixnum_t v7666_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7666_tmp = (n); } r[4] = obj_from_bool((v7666_tmp) == (+5)); } if (bool_from_obj(r[4])) { r[4] = (car((r[1]))); r[4] = obj_from_bool((r[4]) == (mksymbol(internsym("integer")))); if (bool_from_obj(r[4])) { r[4] = (cdr((r[1]))); r[4] = (car((r[4]))); r[4] = (ismemv((r[4]), (cx__23160))); if (bool_from_obj(r[4])) { r[4] = (cdr((r[1]))); r[4] = (cdr((r[4]))); r[4] = (car((r[4]))); r[4] = obj_from_bool((r[4]) == (mksymbol(internsym("+")))); if (bool_from_obj(r[4])) { r[4] = (cdr((r[1]))); r[4] = (cdr((r[4]))); r[4] = (cdr((r[4]))); r[4] = (car((r[4]))); r[4] = obj_from_bool(isstring((r[4]))); if (bool_from_obj(r[4])) { r[4] = (cdr((r[1]))); r[4] = (cdr((r[4]))); r[5] = (cdr((r[4]))); r[5] = (cdr((r[5]))); r[4] = (car((r[5]))); r[4] = obj_from_bool(((r[4]) == obj_from_fixnum(+10)) || ((is_flonum_obj(r[4])) && (0))); } else { r[4] = obj_from_bool(0); } } else { r[4] = obj_from_bool(0); } } else { r[4] = obj_from_bool(0); } } else { r[4] = obj_from_bool(0); } } else { r[4] = obj_from_bool(0); } } else { r[4] = obj_from_bool(0); } if (bool_from_obj(r[4])) { hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(14); r[4] = (hendblk(2+1)); r[5] = (cdr((r[1]))); r[5] = (cdr((r[5]))); r[5] = (cdr((r[5]))); r[5] = (car((r[5]))); r[6+0] = (cx_string_2D_3Efixnum); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[4]; r[6+2] = r[5]; r[6+3] = obj_from_fixnum(+10); r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((ispair((r[1])))) { r[4] = (car((r[1]))); r[4] = obj_from_bool((r[4]) == (mksymbol(internsym("null")))); if (bool_from_obj(r[4])) { r[4] = (cdr((r[1]))); r[4] = obj_from_bool(isnull((r[4]))); } else { r[4] = obj_from_bool(0); } } else { r[4] = obj_from_bool(0); } if (bool_from_obj(r[4])) { /* 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 { if ((islist((r[1])))) { { fixnum_t v7665_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7665_tmp = (n); } r[4] = obj_from_bool((v7665_tmp) == (+3)); } if (bool_from_obj(r[4])) { r[4] = (car((r[1]))); r[4] = obj_from_bool((r[4]) == (mksymbol(internsym("pair")))); } else { r[4] = obj_from_bool(0); } } else { r[4] = obj_from_bool(0); } if (bool_from_obj(r[4])) { r[4] = (cdr((r[1]))); r[4] = (cdr((r[4]))); r[4] = (car((r[4]))); hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(15); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[4]; /* r[2] */ goto s_unwrap; } else { if ((ispair((r[1])))) { if ((islist((r[1])))) { r[4] = (car((r[1]))); r[4] = obj_from_bool((r[4]) == (mksymbol(internsym("list")))); } else { r[4] = obj_from_bool(0); } } else { r[4] = obj_from_bool(0); } if (bool_from_obj(r[4])) { r[4] = (cdr((r[1]))); /* r[0] */ r[1] = r[4]; r[2] = r[3]; goto s_loop; } else { /* r[0] */ r[1] = r[2]; r[2] = (cx__2380); r[3] = (mknull()); goto gs_r_2Derror_2A; } } } } } } case 14: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r d k */ if (bool_from_obj(r[1])) { r[4+0] = r[3]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[4] = (cdr((r[2]))); r[4] = (cdr((r[4]))); r[4] = (cdr((r[4]))); r[4] = (car((r[4]))); r[0] = (cx_string_2D_3Eflonum); pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 15: /* clo ek r */ assert(rc == 3); { 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 unwrap d k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(16); r[5] = (hendblk(2+1)); r[6] = (cdr((r[3]))); r[6] = (car((r[6]))); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 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; /* 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; s_loop: /* k id unwrap */ 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(17); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop; } 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+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r unwrap id k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(18); 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 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; /* 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 19: /* make-verbatim-datum k i d */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_make_2Dverbatim_2Ddatum: /* k i d */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(20); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ /* r[2] */ goto gs_datum_2D_3Ereader_2Dsexp; 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; /* shift reg. wnd */ /* ek r i k */ if (((isnull((r[1]))) || (!(ispair((r[1])))))) { { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[3]; r[5+1] = r[2]; r[5+2] = (cx__23227); r[5+3] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_r_2Derror_2A; } else { r[4] = (car((r[1]))); if ((!(issymbol((r[4]))))) { { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[6+0] = r[3]; r[6+1] = r[2]; r[6+2] = (cx__23227); r[6+3] = r[5]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_r_2Derror_2A; } else { r[5] = (cdr((r[1]))); { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[6+0] = r[3]; 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 21: /* decimal-datum k rept iint ifrac iexp */ assert(rc == 6); r += 1; /* shift reg. wnd */ /* k rept iint ifrac iexp */ r[5] = (cdr((r[4]))); r[6] = (cdr((r[5]))); r[6] = (cdr((r[6]))); r[5] = (car((r[6]))); { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[6] = (cdr((r[4]))); r[7] = (cdr((r[6]))); r[6] = (car((r[7]))); { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[6]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[6] = (cdr((r[3]))); r[7] = (cdr((r[6]))); r[7] = (cdr((r[7]))); r[6] = (car((r[7]))); { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[6]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[6] = (cdr((r[2]))); r[7] = (cdr((r[6]))); r[7] = (cdr((r[7]))); r[6] = (car((r[7]))); { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[6]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[6] = (cdr((r[2]))); r[7] = (cdr((r[6]))); r[6] = (car((r[7]))); { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[6]; *--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("decimal"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } 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 22: /* make-input k port */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_make_2Dinput: /* k port */ { FILE *p = iportdata((r[1])); int c = fgetc(p); ungetc(c, p); r[2] = (c == EOF ? mkeof() : obj_from_char(c)); } if ((iseof((r[2])))) { r[2] = (mknull()); } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } } r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); r[3+2] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 23: /* inull? k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = obj_from_bool(isnull((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 24: /* icar k i */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_icar: /* k i */ if ((ispair((r[1])))) { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (car((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[2+0] = r[0]; r[2+1] = r[1]; r[2+2] = (cx__23284); r[2+3] = (mknull()); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_r_2Derror_2A; } case 25: /* icdr k i */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_icdr: /* k i */ if ((ispair((r[1])))) { r[2] = (cdr((r[1]))); if ((isiport((r[2])))) { { int c = fgetc(iportdata((r[2]))); (void)(c == EOF ? mkeof() : obj_from_char(c)); } hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(26); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto gs_make_2Dinput; } else { /* 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[2+0] = r[0]; r[2+1] = r[1]; r[2+2] = (cx__23284); r[2+3] = (mknull()); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_r_2Derror_2A; } case 26: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k i */ (void)(cdr((r[3])) = (r[1])); r[4] = r[1]; r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 27: /* input-prefix-chars k i chars =? */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k i chars =? */ /* r[0] */ /* r[1] */ /* r[2] */ /* r[3] */ goto s_loop_v7426; case 28: /* clo k i l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v7426: /* k i l =? */ if ((isnull((r[2])))) { r[4+0] = r[0]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_case(28); r[4] = (hendblk(1+1)); hreserve(hbsz(5+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[4]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(29); r[4] = (hendblk(5+1)); r[0] = r[4]; /* r[1] */ goto gs_icar; } } case 29: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r =? i loop l k */ hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(30); r[7] = (hendblk(4+1)); r[8+0] = r[2]; pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[7]; r[8+2] = r[1]; r[8+3] = (car((r[5]))); r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; 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; /* shift reg. wnd */ /* ek r i loop l k */ if (bool_from_obj(r[1])) { hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(31); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[2]; goto gs_icdr; } else { r[0] = r[5]; 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 31: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r loop l k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[1]; r[5+3] = (cdr((r[3]))); r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 32: /* char-delimiter? k c */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k c */ r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (cxs_char_2Ddelimiter_3F((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 33: /* char-initial? k c */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k c */ r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (cxs_string_2Dposition((r[1]), (cx__23338))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 34: /* char-subsequent? k c */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k c */ r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (cxs_string_2Dposition((r[1]), (cx__23341))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 35: /* char-number-initial? k c */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k c */ r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (cxs_string_2Dposition((r[1]), (cx__23344))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 36: /* char-digit-value k c radix */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k c radix */ r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); r[3+2] = (cxs_char_2Ddigit_2Dvalue((r[1]), (r[2]))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 37: /* char-exponent-marker? k c */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k c */ r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (cxs_string_2Dposition(obj_from_char(tolower(char_from_obj(r[1]))), (cx__23355))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 38: /* input-prefix k i hstr */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_input_2Dprefix: /* k i hstr */ r[3+0] = r[0]; r[3+1] = r[1]; r[3+2] = obj_from_fixnum(+0); r[3+3] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v7361; case 39: /* clo k i ind */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v7361: /* k i ind hstr */ if ((fixnum_from_obj(r[2]) == (stringlen((r[3]))))) { r[4+0] = r[0]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_case(39); r[4] = (hendblk(1+1)); hreserve(hbsz(5+1), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = r[0]; *--hp = r[4]; *--hp = r[1]; *--hp = obj_from_case(40); r[4] = (hendblk(5+1)); r[0] = r[4]; /* r[1] */ goto gs_icar; } } 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+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r i loop k hstr ind */ r[7] = obj_from_bool(char_from_obj(r[1]) == (*(unsigned char*)stringref((r[5]), fixnum_from_obj(r[6])))); if (bool_from_obj(r[7])) { hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[4]; *--hp = r[6]; *--hp = r[3]; *--hp = obj_from_case(41); r[8] = (hendblk(3+1)); r[0] = r[8]; r[1] = r[2]; goto gs_icdr; } 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 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 loop ind k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[1]; r[5+3] = obj_from_fixnum(fixnum_from_obj(r[3]) + (+1)); r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 42: /* input-prefix-ci k i hstr */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_input_2Dprefix_2Dci: /* k i hstr */ r[3+0] = r[0]; r[3+1] = r[1]; r[3+2] = obj_from_fixnum(+0); r[3+3] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v7334; case 43: /* clo k i ind */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v7334: /* k i ind hstr */ if ((fixnum_from_obj(r[2]) == (stringlen((r[3]))))) { r[4+0] = r[0]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_case(43); r[4] = (hendblk(1+1)); hreserve(hbsz(5+1), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = r[0]; *--hp = r[4]; *--hp = r[1]; *--hp = obj_from_case(44); r[4] = (hendblk(5+1)); r[0] = r[4]; /* r[1] */ goto gs_icar; } } case 44: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r i loop k hstr ind */ r[7] = obj_from_bool(tolower(char_from_obj(r[1])) == tolower((*(unsigned char*)stringref((r[5]), fixnum_from_obj(r[6]))))); if (bool_from_obj(r[7])) { hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[4]; *--hp = r[6]; *--hp = r[3]; *--hp = obj_from_case(45); r[8] = (hendblk(3+1)); r[0] = r[8]; r[1] = r[2]; goto gs_icdr; } 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 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 loop ind k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[1]; r[5+3] = obj_from_fixnum(fixnum_from_obj(r[3]) + (+1)); r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 46: /* input-skip-expected-prefix k i hstr */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_input_2Dskip_2Dexpected_2Dprefix: /* k i hstr */ r[3+0] = r[0]; r[3+1] = r[1]; r[3+2] = obj_from_fixnum(+0); r[3+3] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v7307; case 47: /* clo k i ind */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v7307: /* k i ind hstr */ if ((fixnum_from_obj(r[2]) == (stringlen((r[3]))))) { r[4+0] = r[0]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if ((isnull((r[1])))) { { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } /* r[0] */ /* r[1] */ r[2] = (cx__23404); r[3] = r[4]; goto gs_r_2Derror_2A; } else { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_case(47); r[4] = (hendblk(1+1)); hreserve(hbsz(5+1), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = r[0]; *--hp = r[4]; *--hp = r[1]; *--hp = obj_from_case(48); r[4] = (hendblk(5+1)); r[0] = r[4]; /* r[1] */ goto gs_icar; } } 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+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r i loop k hstr ind */ r[7] = obj_from_bool(char_from_obj(r[1]) == (*(unsigned char*)stringref((r[5]), fixnum_from_obj(r[6])))); if (bool_from_obj(r[7])) { hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[4]; *--hp = r[6]; *--hp = r[3]; *--hp = obj_from_case(49); r[8] = (hendblk(3+1)); r[0] = r[8]; r[1] = r[2]; goto gs_icdr; } else { { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = (mknull()); *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } r[0] = r[4]; r[1] = r[2]; r[2] = (cx__23397); r[3] = r[8]; goto gs_r_2Derror_2A; } case 49: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r loop ind k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[1]; r[5+3] = obj_from_fixnum(fixnum_from_obj(r[3]) + (+1)); r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 50: /* input-delimited? k i */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_input_2Ddelimited_3F: /* k i */ if ((isnull((r[1])))) { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = obj_from_bool(isnull((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = obj_from_case(51); r[2] = (hendblk(1+1)); r[0] = r[2]; /* r[1] */ goto gs_icar; } case 51: /* 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] = (cxs_char_2Ddelimiter_3F((r[1]))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 52: /* input-check-delimited k i */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_input_2Dcheck_2Ddelimited: /* k i */ hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(53); r[2] = (hendblk(2+1)); r[0] = r[2]; /* r[1] */ goto gs_input_2Ddelimited_3F; case 53: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k i */ if (bool_from_obj(r[1])) { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[3]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_case(54); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = r[3]; goto gs_icar; } case 54: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r i k */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[0] = r[3]; r[1] = r[2]; r[2] = (cx__23416); r[3] = r[4]; goto gs_r_2Derror_2A; case 55: /* input-delimited-prefix k i hstr */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_input_2Ddelimited_2Dprefix: /* k i hstr */ r[3+0] = r[0]; r[3+1] = r[1]; r[3+2] = obj_from_fixnum(+0); r[3+3] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v7244; case 56: /* clo k i ind */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v7244: /* k i ind hstr */ if ((fixnum_from_obj(r[2]) == (stringlen((r[3]))))) { hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(57); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ goto gs_input_2Ddelimited_3F; } else { if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_case(56); r[4] = (hendblk(1+1)); hreserve(hbsz(5+1), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = r[0]; *--hp = r[4]; *--hp = r[1]; *--hp = obj_from_case(58); r[4] = (hendblk(5+1)); r[0] = r[4]; /* r[1] */ goto gs_icar; } } case 57: /* clo 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 i */ if (bool_from_obj(r[1])) { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[3]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 58: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r i loop k hstr ind */ r[7] = obj_from_bool(char_from_obj(r[1]) == (*(unsigned char*)stringref((r[5]), fixnum_from_obj(r[6])))); if (bool_from_obj(r[7])) { hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[4]; *--hp = r[6]; *--hp = r[3]; *--hp = obj_from_case(59); r[8] = (hendblk(3+1)); r[0] = r[8]; r[1] = r[2]; goto gs_icdr; } 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 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 ind k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[1]; r[5+3] = obj_from_fixnum(fixnum_from_obj(r[3]) + (+1)); r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 60: /* input-delimited-prefix-ci k i hstr */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_input_2Ddelimited_2Dprefix_2Dci: /* k i hstr */ r[3+0] = r[0]; r[3+1] = r[1]; r[3+2] = obj_from_fixnum(+0); r[3+3] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v7211; case 61: /* clo k i ind */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v7211: /* k i ind hstr */ if ((fixnum_from_obj(r[2]) == (stringlen((r[3]))))) { hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(62); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ goto gs_input_2Ddelimited_3F; } else { if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_case(61); r[4] = (hendblk(1+1)); hreserve(hbsz(5+1), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = r[0]; *--hp = r[4]; *--hp = r[1]; *--hp = obj_from_case(63); r[4] = (hendblk(5+1)); r[0] = r[4]; /* r[1] */ goto gs_icar; } } case 62: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k i */ if (bool_from_obj(r[1])) { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[3]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 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+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r i loop k hstr ind */ r[7] = obj_from_bool(tolower(char_from_obj(r[1])) == tolower((*(unsigned char*)stringref((r[5]), fixnum_from_obj(r[6]))))); if (bool_from_obj(r[7])) { hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[4]; *--hp = r[6]; *--hp = r[3]; *--hp = obj_from_case(64); r[8] = (hendblk(3+1)); r[0] = r[8]; r[1] = r[2]; goto gs_icdr; } 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 ek r */ assert(rc == 3); { 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 ind k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[1]; r[5+3] = obj_from_fixnum(fixnum_from_obj(r[3]) + (+1)); r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 65: /* char-list->string-datum k lst */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_char_2Dlist_2D_3Estring_2Ddatum: /* k lst */ hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(67); r[2] = (hendblk(2+1)); r[0] = r[2]; /* r[1] */ goto s_loop_v7194; s_loop_v7194: /* 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(66); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v7194; } case 66: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k id */ r[4] = (car((r[3]))); r[4] = obj_from_fixnum((fixnum_t)char_from_obj(r[4])); { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 67: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k lst */ hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(69); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ goto s_loop_v7179; s_loop_v7179: /* k id */ if ((isnull((r[1])))) { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (mknull()); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[2] = (cdr((r[1]))); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(68); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v7179; } case 68: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k id */ r[4] = (car((r[3]))); r[4] = (cxs_codepoint_2Dbyte_2Dwidth((r[4]))); { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 69: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r r k lst */ r[5] = (cxs_fold_2Dmax_2Fbig(obj_from_fixnum(+8), (r[1]))); hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[5]; *--hp = r[2]; *--hp = obj_from_case(70); r[6] = (hendblk(4+1)); if ((((r[5]) == obj_from_fixnum(+8)) || ((is_flonum_obj(r[5])) && (0)))) { r[0] = r[6]; r[1] = r[2]; goto s_loop_v7164; } else { r[7+0] = obj_from_ktrap(); r[7+1] = obj_from_bool(0); r[7+2] = r[2]; r[7+3] = r[5]; r[7+4] = r[3]; r[7+5] = r[4]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v7170; } case 70: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ s_l_v7170: /* ek r r r k lst */ if (bool_from_obj(r[1])) { { fixnum_t v7664_tmp; { /* length */ int n; obj l = r[5]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7664_tmp = (n); } { /* list->string */ int i, c = (v7664_tmp); obj o = hpushstr(6, allocstring(c, ' ')); /* 6 live regs */ obj l = r[5]; /* gc-safe */ unsigned char *s = (unsigned char *)stringchars(o); for (i = 0; i < c; ++i, l = cdr(l)) s[i] = char_from_obj(car(l)); r[6] = (o); } } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = r[6]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("string"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[0] = r[4]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("string"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[0] = r[4]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } s_loop_v7164: /* k id */ if ((isnull((r[1])))) { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = obj_from_bool(isnull((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[2] = (car((r[1]))); r[2] = (cxs_string_2Dsafe_2Dcodepoint_3F((r[2]))); if (bool_from_obj(r[2])) { r[2] = (cdr((r[1]))); /* r[0] */ r[1] = r[2]; goto s_loop_v7164; } 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 71: /* char-list->symbol-datum k lst */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_char_2Dlist_2D_3Esymbol_2Ddatum: /* k lst */ hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(73); r[2] = (hendblk(2+1)); r[0] = r[2]; /* r[1] */ goto s_loop_v7143; s_loop_v7143: /* 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(72); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v7143; } case 72: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k id */ r[4] = (car((r[3]))); r[4] = obj_from_fixnum((fixnum_t)char_from_obj(r[4])); { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[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 73: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k lst */ hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(75); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ goto s_loop_v7128; s_loop_v7128: /* 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(74); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v7128; } case 74: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k id */ r[4] = (car((r[3]))); r[4] = (cxs_codepoint_2Dbyte_2Dwidth((r[4]))); { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 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 r k lst */ r[5] = (cxs_fold_2Dmax_2Fbig(obj_from_fixnum(+8), (r[1]))); hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[5]; *--hp = r[2]; *--hp = obj_from_case(76); r[6] = (hendblk(4+1)); if ((((r[5]) == obj_from_fixnum(+8)) || ((is_flonum_obj(r[5])) && (0)))) { r[0] = r[6]; r[1] = r[2]; goto s_loop_v7113; } else { r[7+0] = obj_from_ktrap(); r[7+1] = obj_from_bool(0); r[7+2] = r[2]; r[7+3] = r[5]; r[7+4] = r[3]; r[7+5] = r[4]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v7119; } case 76: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ s_l_v7119: /* ek r r r k lst */ if (bool_from_obj(r[1])) { { fixnum_t v7663_tmp; { /* length */ int n; obj l = r[5]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7663_tmp = (n); } { /* list->string */ int i, c = (v7663_tmp); obj o = hpushstr(6, allocstring(c, ' ')); /* 6 live regs */ obj l = r[5]; /* gc-safe */ unsigned char *s = (unsigned char *)stringchars(o); for (i = 0; i < c; ++i, l = cdr(l)) s[i] = char_from_obj(car(l)); r[6] = (o); } } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = r[6]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("symbol"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[0] = r[4]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("symbol"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[0] = r[4]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } s_loop_v7113: /* k id */ if ((isnull((r[1])))) { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = obj_from_bool(isnull((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[2] = (car((r[1]))); r[2] = (cxs_string_2Dsafe_2Dcodepoint_3F((r[2]))); if (bool_from_obj(r[2])) { r[2] = (cdr((r[1]))); /* r[0] */ r[1] = r[2]; goto s_loop_v7113; } 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 77: /* subread k start-i r return */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_subread: /* k start-i r return */ r[4+0] = r[0]; r[4+1] = r[1]; r[4+2] = r[3]; r[4+3] = r[1]; r[4+4] = r[2]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v7086; case 78: /* clo k i */ assert(rc == 3); { 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_loop_v7086: /* k i return start-i r */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(78); r[5] = (hendblk(3+1)); hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[3]; *--hp = r[5]; *--hp = r[2]; *--hp = obj_from_case(79); r[5] = (hendblk(3+1)); r[6+0] = r[4]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[0]; r[6+2] = r[1]; r[6+3] = r[4]; r[6+4] = r[5]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 79: /* clo k d i */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; r[1+5] = p[3]; } r += 1; /* shift reg. wnd */ /* k d i return loop start-i */ r[6] = (car((r[1]))); r[6] = obj_from_bool((r[6]) == (mksymbol(internsym("eof")))); if (bool_from_obj(r[6])) { /* r[0] */ r[1] = r[5]; r[2] = (cx__23567); r[3] = (mknull()); goto gs_r_2Derror_2A; } else { r[6] = (car((r[1]))); r[6] = obj_from_bool((r[6]) == (mksymbol(internsym("atmosphere")))); if (bool_from_obj(r[6])) { r[6+0] = r[4]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[0]; r[6+2] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[6] = (car((r[1]))); r[6] = obj_from_bool((r[6]) == (mksymbol(internsym("read-as")))); if (bool_from_obj(r[6])) { /* r[0] */ r[1] = r[2]; r[2] = (cx__23560); r[3] = (mknull()); goto gs_r_2Derror_2A; } else { r[6] = (car((r[1]))); r[6] = obj_from_bool((r[6]) == (mksymbol(internsym("terminator")))); if (bool_from_obj(r[6])) { r[6] = (cdr((r[1]))); r[6] = (car((r[6]))); { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = r[6]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[7+0] = r[0]; r[7+1] = r[2]; r[7+2] = (cx__23556); r[7+3] = r[6]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_r_2Derror_2A; } else { r[6+0] = r[3]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[0]; r[6+2] = r[1]; r[6+3] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } } } } case 80: /* subread-to-terminator k start-i r tc dotted? rdefs? kons knil return */ assert(rc == 10); r += 1; /* shift reg. wnd */ gs_subread_2Dto_2Dterminator: /* k start-i r tc dotted? rdefs? kons knil return */ r[9+0] = r[0]; r[9+1] = r[1]; r[9+2] = r[2]; r[9+3] = obj_from_bool(0); r[9+4] = r[8]; r[9+5] = r[6]; r[9+6] = r[7]; r[9+7] = r[3]; r[9+8] = r[4]; r[9+9] = r[5]; r[9+10] = r[1]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v7027; case 81: /* clo k i r limit return */ assert(rc == 6); { obj* p = objptr_from_obj(r[0]); r[1+5] = p[1]; r[1+6] = p[2]; r[1+7] = p[3]; r[1+8] = p[4]; r[1+9] = p[5]; r[1+10] = p[6]; } r += 1; /* shift reg. wnd */ s_loop_v7027: /* k i r limit return kons knil tc dotted? rdefs? start-i */ hreserve(hbsz(6+1), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(81); r[11] = (hendblk(6+1)); hreserve(hbsz(10+1), 12); /* 12 live regs */ *--hp = (r[10]); *--hp = r[2]; *--hp = r[3]; *--hp = r[4]; *--hp = (r[11]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(82); r[11] = (hendblk(10+1)); r[12+0] = r[2]; pc = objptr_from_obj(r[12+0])[0]; r[12+1] = r[0]; r[12+2] = r[1]; r[12+3] = r[2]; r[12+4] = (r[11]); r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 82: /* clo k d i */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; r[1+5] = p[3]; r[1+6] = p[4]; r[1+7] = p[5]; r[1+8] = p[6]; r[1+9] = p[7]; r[1+10] = p[8]; r[1+11] = p[9]; r[1+12] = p[10]; } r += 1; /* shift reg. wnd */ /* k d i kons knil tc dotted? rdefs? loop return limit r start-i */ r[13] = (car((r[1]))); r[13] = obj_from_bool((r[13]) == (mksymbol(internsym("eof")))); if (bool_from_obj(r[13])) { /* r[0] */ r[1] = (r[12]); r[2] = (cx__23628); r[3] = (mknull()); goto gs_r_2Derror_2A; } else { r[13] = (car((r[1]))); r[13] = obj_from_bool((r[13]) == (mksymbol(internsym("atmosphere")))); if (bool_from_obj(r[13])) { r[13+0] = r[8]; pc = objptr_from_obj(r[13+0])[0]; r[13+1] = r[0]; r[13+2] = r[2]; r[13+3] = (r[11]); r[13+4] = (r[10]); r[13+5] = r[9]; r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; goto jump; } else { r[13] = (car((r[1]))); r[13] = obj_from_bool((r[13]) == (mksymbol(internsym("read-as")))); if (bool_from_obj(r[13])) { if ((!bool_from_obj(r[7]))) { /* r[0] */ r[1] = r[2]; r[2] = (cx__23560); r[3] = (mknull()); goto gs_r_2Derror_2A; } else { hreserve(hbsz(5+1), 13); /* 13 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = obj_from_case(83); r[13] = (hendblk(5+1)); r[14+0] = (r[13]); r[14+1] = (r[11]); r[14+2] = r[1]; r[14+3] = r[2]; r += 14; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_extend_2Dreader; } } else { r[13] = (car((r[1]))); r[13] = obj_from_bool((r[13]) == (mksymbol(internsym("terminator")))); if (bool_from_obj(r[13])) { if (bool_from_obj(r[6])) { r[13] = (cdr((r[1]))); r[13] = (car((r[13]))); r[13] = obj_from_bool(char_from_obj(r[13]) == ('.')); } else { r[13] = obj_from_bool(0); } } else { r[13] = obj_from_bool(0); } if (bool_from_obj(r[13])) { r[13+0] = r[8]; pc = objptr_from_obj(r[13+0])[0]; r[13+1] = r[0]; r[13+2] = r[2]; r[13+3] = (r[11]); r[13+4] = obj_from_fixnum(+1); r[13+5] = r[9]; r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; goto jump; } else { r[13] = (car((r[1]))); r[13] = obj_from_bool((r[13]) == (mksymbol(internsym("terminator")))); if (bool_from_obj(r[13])) { r[13] = (cdr((r[1]))); r[13] = (car((r[13]))); r[13] = obj_from_bool(char_from_obj(r[13]) == char_from_obj(r[5])); } else { r[13] = obj_from_bool(0); } if (bool_from_obj(r[13])) { if (((!bool_from_obj(r[10])) || (fixnum_from_obj(r[10]) == 0))) { r[13+0] = r[9]; pc = objptr_from_obj(r[13+0])[0]; r[13+1] = r[0]; r[13+2] = r[4]; r[13+3] = r[2]; r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { /* r[0] */ r[1] = r[2]; r[2] = (cx__23607); r[3] = (mknull()); goto gs_r_2Derror_2A; } } else { r[13] = (car((r[1]))); r[13] = obj_from_bool((r[13]) == (mksymbol(internsym("terminator")))); if (bool_from_obj(r[13])) { { /* cons */ hreserve(hbsz(3), 13); /* 13 live regs */ *--hp = (mknull()); *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[13] = (hendblk(3)); } r[14] = (cdr((r[1]))); r[14] = (car((r[14]))); { /* cons */ hreserve(hbsz(3), 15); /* 15 live regs */ *--hp = (r[13]); *--hp = (r[14]); *--hp = obj_from_size(PAIR_BTAG); r[13] = (hendblk(3)); } r[14+0] = r[0]; r[14+1] = r[2]; r[14+2] = (cx__23604); r[14+3] = (r[13]); r += 14; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_r_2Derror_2A; } else { hreserve(hbsz(4+1), 13); /* 13 live regs */ *--hp = r[9]; *--hp = (r[10]); *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(84); r[13] = (hendblk(4+1)); r[14+0] = r[8]; pc = objptr_from_obj(r[14+0])[0]; r[14+1] = r[0]; r[14+2] = r[2]; r[14+3] = (r[11]); r[14+4] = (bool_from_obj(r[10]) ? obj_from_fixnum(fixnum_from_obj(r[10]) - (+1)) : obj_from_bool(0)); r[14+5] = (r[13]); r += 14; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; 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; /* shift reg. wnd */ /* ek r loop return limit i k */ r[7+0] = r[2]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[6]; r[7+2] = r[5]; r[7+3] = r[1]; r[7+4] = r[4]; r[7+5] = r[3]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; goto jump; case 84: /* clo k d1 i1 */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ /* k d1 i1 kons d limit return */ if ((((r[5]) == obj_from_fixnum(+1)) || ((is_flonum_obj(r[5])) && (0)))) { r[7+0] = r[6]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[0]; r[7+2] = r[4]; r[7+3] = r[2]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[6]; *--hp = obj_from_case(85); r[7] = (hendblk(3+1)); r[8+0] = r[3]; pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[7]; r[8+2] = r[4]; r[8+3] = r[1]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 85: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r return i1 k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[1]; r[5+3] = r[3]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 86: /* subread-pairs-to-terminator k i r tc return */ assert(rc == 6); r += 1; /* shift reg. wnd */ gs_subread_2Dpairs_2Dto_2Dterminator: /* k i r tc return */ hreserve(hbsz(0+1), 5); /* 5 live regs */ *--hp = obj_from_case(87); r[5] = (hendblk(0+1)); { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("null"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[7+0] = r[0]; r[7+1] = r[1]; r[7+2] = r[2]; r[7+3] = r[3]; r[7+4] = obj_from_bool(1); r[7+5] = obj_from_bool(1); r[7+6] = r[5]; r[7+7] = r[6]; r[7+8] = r[4]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_subread_2Dto_2Dterminator; case 87: /* clo k d1 d2 */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k d1 d2 */ { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = (mksymbol(internsym("pair"))); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = r[0]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 88: /* subread-top k i r return */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_subread_2Dtop: /* k i r return */ /* r[0] */ /* r[1] */ /* r[2] */ /* r[3] */ goto s_loop_v6976; case 89: /* clo k i r */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v6976: /* k i r return */ hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_case(89); r[4] = (hendblk(1+1)); hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(90); r[4] = (hendblk(3+1)); r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[0]; r[5+2] = r[1]; r[5+3] = r[2]; r[5+4] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 90: /* clo k d i */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; r[1+5] = p[3]; } r += 1; /* shift reg. wnd */ /* k d i return loop r */ r[6] = (car((r[1]))); r[6] = obj_from_bool((r[6]) == (mksymbol(internsym("atmosphere")))); if (bool_from_obj(r[6])) { r[6+0] = r[4]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[0]; r[6+2] = r[2]; r[6+3] = r[5]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[6] = (car((r[1]))); r[6] = obj_from_bool((r[6]) == (mksymbol(internsym("read-as")))); if (bool_from_obj(r[6])) { hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[4]; *--hp = obj_from_case(91); r[6] = (hendblk(3+1)); r[7+0] = r[6]; r[7+1] = r[5]; r[7+2] = r[1]; r[7+3] = r[2]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_extend_2Dreader; } else { r[6] = (car((r[1]))); r[6] = obj_from_bool((r[6]) == (mksymbol(internsym("terminator")))); if (bool_from_obj(r[6])) { r[6] = (cdr((r[1]))); r[6] = (car((r[6]))); { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = r[6]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[7+0] = r[0]; r[7+1] = r[2]; r[7+2] = (cx__23556); r[7+3] = r[6]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_r_2Derror_2A; } else { r[6+0] = r[3]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[0]; r[6+2] = r[1]; r[6+3] = r[2]; r[6+4] = r[5]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; } } } case 91: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r loop i k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[3]; r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 92: /* integer-representation-width k sign s radix */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_integer_2Drepresentation_2Dwidth: /* k sign s radix */ { /* assq */ obj x = (r[3]), l = (cx_integer_2Drepresentation_2Dtable), p = mknull(); for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; } r[4] = (l == mknull() ? obj_from_bool(0) : p); } r[4] = (cdr((r[4]))); hreserve(hbsz(0+1), 5); /* 5 live regs */ *--hp = obj_from_case(93); r[5] = (hendblk(0+1)); r[6+0] = r[0]; r[6+1] = r[4]; r[6+2] = r[5]; r[6+3] = r[2]; r[6+4] = r[1]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v6941; case 93: /* clo k s1 s2 */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k s1 s2 */ 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(((stringlen((r[1]))) < (stringlen((r[2])))) ? (1) : (((stringlen((r[1]))) > (stringlen((r[2])))) ? (0) : (strcmp(stringchars((r[1])), stringchars((r[2]))) <= 0))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 94: /* clo k st */ assert(rc == 3); { 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_loop_v6941: /* k st s<=? s sign */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mksymbol(internsym("big"))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(94); r[5] = (hendblk(3+1)); hreserve(hbsz(6+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(95); r[5] = (hendblk(6+1)); if (((r[4]) == (mksymbol(internsym("-"))))) { r[6] = (car((r[1]))); r[6] = (cdr((r[6]))); r[6] = (car((r[6]))); r[7+0] = r[2]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[5]; r[7+2] = r[3]; r[7+3] = r[6]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(94); r[6] = (hendblk(3+1)); r[7+0] = obj_from_ktrap(); r[7+1] = obj_from_bool(0); r[7+2] = r[2]; r[7+3] = r[3]; r[7+4] = r[4]; r[7+5] = r[6]; r[7+6] = r[0]; r[7+7] = r[1]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v6943; } } case 95: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ s_l_v6943: /* ek r s<=? s sign loop k st */ if (bool_from_obj(r[1])) { r[8] = (car((r[7]))); r[8] = (car((r[8]))); r[0] = r[6]; 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(96); r[8] = (hendblk(3+1)); if (((r[4]) == (mksymbol(internsym("+"))))) { r[9] = (car((r[7]))); r[9] = (cdr((r[9]))); r[9] = (cdr((r[9]))); r[9] = (car((r[9]))); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; r[2] = r[3]; r[3] = r[9]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[0] = obj_from_ktrap(); r[1] = obj_from_bool(0); r[2] = r[5]; r[3] = r[6]; r[4] = r[7]; goto s_l_v6945; } } case 96: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ s_l_v6945: /* ek r loop k st */ if (bool_from_obj(r[1])) { r[5] = (car((r[4]))); r[5] = (car((r[5]))); r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; r[2] = (cdr((r[4]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 97: /* subread-number k i exactness radix return */ assert(rc == 6); r += 1; /* shift reg. wnd */ gs_subread_2Dnumber: /* k i exactness radix return */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(98); r[5] = (hendblk(2+1)); hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[3]; *--hp = obj_from_case(101); r[5] = (hendblk(2+1)); hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = obj_from_case(108); r[6] = (hendblk(1+1)); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[2]; *--hp = r[4]; *--hp = obj_from_case(145); r[7] = (hendblk(2+1)); hreserve(hbsz(1+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = obj_from_case(111); r[8] = (hendblk(1+1)); hreserve(hbsz(1+1), 9); /* 9 live regs */ *--hp = r[1]; *--hp = obj_from_case(100); r[9] = (hendblk(1+1)); hreserve(hbsz(2+1), 10); /* 10 live regs */ *--hp = r[8]; *--hp = r[9]; *--hp = obj_from_case(117); r[8] = (hendblk(2+1)); hreserve(hbsz(4+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[5]; *--hp = r[3]; *--hp = r[6]; *--hp = obj_from_case(129); r[8] = (hendblk(4+1)); hreserve(hbsz(4+1), 9); /* 9 live regs */ *--hp = r[0]; *--hp = r[7]; *--hp = r[1]; *--hp = r[8]; *--hp = obj_from_case(147); r[7] = (hendblk(4+1)); r[0] = r[7]; /* r[1] */ r[2] = (cx__231013); goto gs_input_2Ddelimited_2Dprefix; case 98: /* clo k sign digits */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; } r += 1; /* shift reg. wnd */ /* k sign digits radix i */ if ((isnull((r[2])))) { /* r[0] */ r[1] = r[4]; r[2] = (cx__231343); r[3] = (mknull()); goto gs_r_2Derror_2A; } else { { fixnum_t v7662_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7662_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v7662_tmp); hreserve(hbsz(3)*c, 5); /* 5 live regs */ l = r[2]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[5] = (o); } } r[6+0] = r[0]; r[6+1] = r[5]; r[6+2] = r[1]; r[6+3] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v6912; } s_loop_v6912: /* k dd sign radix */ if ((ispair((r[1])))) { r[4] = (cdr((r[1]))); r[4] = obj_from_bool(ispair((r[4]))); if (bool_from_obj(r[4])) { r[4] = (car((r[1]))); r[4] = obj_from_bool(char_from_obj(r[4]) == ('0')); } else { r[4] = obj_from_bool(0); } } else { r[4] = obj_from_bool(0); } if (bool_from_obj(r[4])) { r[4] = (cdr((r[1]))); /* r[0] */ r[1] = r[4]; /* r[2] */ /* r[3] */ goto s_loop_v6912; } else { { fixnum_t v7661_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7661_tmp = (n); } { /* list->string */ int i, c = (v7661_tmp); obj o = hpushstr(4, allocstring(c, ' ')); /* 4 live regs */ obj l = r[1]; /* gc-safe */ unsigned char *s = (unsigned char *)stringchars(o); for (i = 0; i < c; ++i, l = cdr(l)) s[i] = char_from_obj(car(l)); r[4] = (o); } } hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[4]; *--hp = r[2]; *--hp = r[0]; *--hp = obj_from_case(99); r[5] = (hendblk(4+1)); r[0] = r[5]; r[1] = r[2]; r[2] = r[4]; /* r[3] */ goto gs_integer_2Drepresentation_2Dwidth; } 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+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r k sign s radix */ { /* 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)); } { /* 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("integer"))); *--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 100: /* clo k digits */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* k digits i */ if ((isnull((r[1])))) { r[3+0] = r[0]; r[3+1] = r[2]; r[3+2] = (cx__231312); r[3+3] = (mknull()); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_r_2Derror_2A; } else { /* r[0] */ /* r[1] */ goto s_loop_v6901; } s_loop_v6901: /* k dd */ if ((ispair((r[1])))) { r[2] = (cdr((r[1]))); r[2] = obj_from_bool(ispair((r[2]))); if (bool_from_obj(r[2])) { r[2] = (car((r[1]))); r[2] = obj_from_bool(char_from_obj(r[2]) == ('0')); } else { r[2] = obj_from_bool(0); } } else { r[2] = obj_from_bool(0); } if (bool_from_obj(r[2])) { r[2] = (cdr((r[1]))); /* r[0] */ r[1] = r[2]; goto s_loop_v6901; } else { { fixnum_t v7659_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7659_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v7659_tmp); hreserve(hbsz(3)*c, 2); /* 2 live regs */ l = r[1]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[2] = (o); } } { fixnum_t v7660_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7660_tmp = (n); } { /* list->string */ int i, c = (v7660_tmp); obj o = hpushstr(3, allocstring(c, ' ')); /* 3 live regs */ obj l = r[2]; /* gc-safe */ unsigned char *s = (unsigned char *)stringchars(o); for (i = 0; i < c; ++i, l = cdr(l)) s[i] = char_from_obj(car(l)); r[2] = (o); } } { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("?"))); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = (mksymbol(internsym("?"))); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = (mksymbol(internsym("?"))); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = (mksymbol(internsym("integer"))); *--hp = obj_from_size(PAIR_BTAG); r[2] = (hendblk(3)); } r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); r[3+2] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 101: /* clo k i sign return */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; r[1+5] = p[2]; } r += 1; /* shift reg. wnd */ /* k i sign return radix integer-datum */ r[6+0] = r[0]; r[6+1] = r[1]; r[6+2] = (mknull()); r[6+3] = r[4]; r[6+4] = r[5]; r[6+5] = r[2]; r[6+6] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v6854; case 102: /* clo k i digits */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ s_loop_v6854: /* k i digits radix integer-datum sign return */ if ((isnull((r[1])))) { hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[6]; *--hp = obj_from_case(103); r[7] = (hendblk(3+1)); r[8+0] = r[4]; pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[7]; r[8+2] = r[5]; r[8+3] = r[2]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; 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(102); r[7] = (hendblk(4+1)); hreserve(hbsz(8+1), 8); /* 8 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = r[0]; *--hp = r[7]; *--hp = r[1]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(104); r[7] = (hendblk(8+1)); r[0] = r[7]; /* r[1] */ goto gs_icar; } case 103: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r return i k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[1]; r[5+3] = r[3]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 104: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ /* ek r integer-datum sign return i loop k digits radix */ r[10] = (cxs_char_2Ddigit_2Dvalue((r[1]), (r[9]))); if (bool_from_obj(r[10])) { hreserve(hbsz(4+1), 11); /* 11 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(105); r[11] = (hendblk(4+1)); r[0] = (r[11]); r[1] = r[5]; goto gs_icdr; } else { hreserve(hbsz(3+1), 11); /* 11 live regs */ *--hp = r[7]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(107); r[11] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = (r[11]); r[2] = r[3]; r[3] = r[8]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 105: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r i loop k digits */ hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(106); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; goto gs_icar; 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 loop r k digits */ { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = obj_from_char(tolower(char_from_obj(r[1]))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = r[3]; r[3] = r[6]; rreserve(MAX_HOSTREGS); rc = 4; 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 return i k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[1]; r[5+3] = r[3]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 108: /* clo k i return */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ /* k i return subread-uinteger */ hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_case(109); r[4] = (hendblk(4+1)); r[0] = r[4]; /* r[1] */ r[2] = (cx__231032); goto gs_input_2Dprefix; case 109: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r i subread-uinteger return k */ if (bool_from_obj(r[1])) { r[6+0] = r[3]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[5]; r[6+2] = r[1]; r[6+3] = (mksymbol(internsym("+"))); r[6+4] = (r[4]); r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(110); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; r[2] = (cx__231034); goto gs_input_2Dprefix; } 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+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r i subread-uinteger return k */ if (bool_from_obj(r[1])) { r[6+0] = r[3]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[5]; r[6+2] = r[1]; r[6+3] = (mksymbol(internsym("-"))); r[6+4] = (r[4]); r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; /* r[2] */ r[3] = (mksymbol(internsym("+"))); r[4] = (r[4]); rreserve(MAX_HOSTREGS); rc = 5; goto jump; } case 111: /* clo k d1 d2 i return */ assert(rc == 6); { obj* p = objptr_from_obj(r[0]); r[1+5] = p[1]; } r += 1; /* shift reg. wnd */ /* k d1 d2 i return subread-integer */ hreserve(hbsz(6+1), 6); /* 6 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[1]; *--hp = r[4]; *--hp = r[5]; *--hp = r[3]; *--hp = obj_from_case(112); r[6] = (hendblk(6+1)); if ((!(isnull((r[3]))))) { hreserve(hbsz(1+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = obj_from_case(116); r[7] = (hendblk(1+1)); r[0] = r[7]; r[1] = r[3]; goto gs_icar; } else { r[7+0] = obj_from_ktrap(); r[7+1] = obj_from_bool(0); r[7+2] = r[3]; r[7+3] = r[5]; r[7+4] = r[4]; r[7+5] = r[1]; r[7+6] = r[2]; r[7+7] = r[0]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v6797; } 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+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ s_l_v6797: /* ek r i subread-integer return d1 d2 k */ if (bool_from_obj(r[1])) { hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(113); r[8] = (hendblk(6+1)); r[0] = r[8]; r[1] = r[2]; goto gs_icar; } else { { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = (mknull()); *--hp = obj_from_fixnum(+10); *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = (cx__231040); *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = (mksymbol(internsym("+"))); *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = (mksymbol(internsym("integer"))); *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } r[9] = (cdr((r[8]))); r[10] = (cdr((r[9]))); r[10] = (cdr((r[10]))); r[9] = (car((r[10]))); { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = (mknull()); *--hp = r[9]; *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } r[10] = (cdr((r[8]))); r[11] = (cdr((r[10]))); r[10] = (car((r[11]))); { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = r[9]; *--hp = (r[10]); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } r[10] = (cdr((r[6]))); r[11] = (cdr((r[10]))); r[11] = (cdr((r[11]))); r[10] = (car((r[11]))); { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = r[9]; *--hp = (r[10]); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } r[10] = (cdr((r[5]))); r[11] = (cdr((r[10]))); r[11] = (cdr((r[11]))); r[10] = (car((r[11]))); { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = r[9]; *--hp = (r[10]); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } r[10] = (cdr((r[5]))); r[11] = (cdr((r[10]))); r[10] = (car((r[11]))); { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = r[9]; *--hp = (r[10]); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[9]; *--hp = (mksymbol(internsym("e"))); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[9]; *--hp = (mksymbol(internsym("decimal"))); *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } r[9+0] = r[4]; pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[7]; r[9+2] = r[8]; r[9+3] = r[2]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 113: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek r i subread-integer return d1 d2 k */ { /* string */ obj o = hpushstr(8, allocstring(1, ' ')); unsigned char *s = (unsigned char *)stringchars(o); *s++ = (tolower(char_from_obj(r[1]))); r[8] = (o); } r[9] = (mksymbol(internsym(stringchars((r[8]))))); hreserve(hbsz(6+1), 10); /* 10 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[9]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(114); r[10] = (hendblk(6+1)); r[0] = (r[10]); r[1] = r[2]; goto gs_icdr; case 114: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek r subread-integer return r d1 d2 k */ hreserve(hbsz(4+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(115); r[8] = (hendblk(4+1)); r[9+0] = r[2]; pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[7]; r[9+2] = r[1]; r[9+3] = r[8]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 115: /* clo k d3 i */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ /* k d3 i return r d1 d2 */ r[7] = (cdr((r[1]))); r[8] = (cdr((r[7]))); r[8] = (cdr((r[8]))); r[7] = (car((r[8]))); { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = (mknull()); *--hp = r[7]; *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[8] = (cdr((r[1]))); r[9] = (cdr((r[8]))); r[8] = (car((r[9]))); { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[7]; *--hp = r[8]; *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[8] = (cdr((r[6]))); r[9] = (cdr((r[8]))); r[9] = (cdr((r[9]))); r[8] = (car((r[9]))); { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[7]; *--hp = r[8]; *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[8] = (cdr((r[5]))); r[9] = (cdr((r[8]))); r[9] = (cdr((r[9]))); r[8] = (car((r[9]))); { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[7]; *--hp = r[8]; *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[8] = (cdr((r[5]))); r[9] = (cdr((r[8]))); r[8] = (car((r[9]))); { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[7]; *--hp = r[8]; *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (mksymbol(internsym("decimal"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[8+0] = r[3]; pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[0]; r[8+2] = r[7]; r[8+3] = r[2]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 116: /* 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] = (cxs_string_2Dposition(obj_from_char(tolower(char_from_obj(r[1]))), (cx__23355))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 117: /* clo k d1 i return */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; r[1+5] = p[2]; } r += 1; /* shift reg. wnd */ /* k d1 i return fraction-datum subread-decimal-suffix */ hreserve(hbsz(6+1), 6); /* 6 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[3]; *--hp = r[5]; *--hp = r[4]; *--hp = r[2]; *--hp = obj_from_case(118); r[6] = (hendblk(6+1)); r[0] = r[6]; r[1] = r[2]; r[2] = (cx__231160); goto gs_input_2Dprefix; 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+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 i fraction-datum subread-decimal-suffix return d1 k */ if (bool_from_obj(r[1])) { hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[1]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(119); r[8] = (hendblk(6+1)); if ((!(isnull((r[1]))))) { hreserve(hbsz(1+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = obj_from_case(126); r[9] = (hendblk(1+1)); r[0] = r[9]; /* r[1] */ goto gs_icar; } else { r[9+0] = obj_from_ktrap(); r[9+1] = obj_from_bool(0); r[9+2] = r[3]; r[9+3] = r[4]; r[9+4] = r[5]; r[9+5] = r[6]; r[9+6] = r[1]; r[9+7] = r[7]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v6734; } } else { hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[2]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(127); r[8] = (hendblk(5+1)); if ((!(isnull((r[2]))))) { hreserve(hbsz(1+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = obj_from_case(128); r[9] = (hendblk(1+1)); r[0] = r[9]; r[1] = r[2]; goto gs_icar; } else { r[9+0] = obj_from_ktrap(); r[9+1] = obj_from_bool(0); r[9+2] = r[4]; r[9+3] = r[5]; r[9+4] = r[2]; r[9+5] = r[6]; r[9+6] = r[7]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v6722; } } case 119: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ s_l_v6734: /* ek r fraction-datum subread-decimal-suffix return d1 r k */ if (bool_from_obj(r[1])) { r[8+0] = r[7]; r[8+1] = r[6]; r[8+2] = (mknull()); r[8+3] = r[2]; r[8+4] = r[3]; r[8+5] = r[4]; r[8+6] = r[5]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v6735; } else { { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = (mknull()); *--hp = obj_from_fixnum(+10); *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = (cx__231040); *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = (mksymbol(internsym("+"))); *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = (mksymbol(internsym("integer"))); *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } r[9+0] = r[3]; pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[7]; r[9+2] = r[5]; r[9+3] = r[8]; r[9+4] = r[6]; r[9+5] = r[4]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; goto jump; } case 120: /* clo k i digits */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ s_loop_v6735: /* k i digits fraction-datum subread-decimal-suffix return d1 */ if ((isnull((r[1])))) { hreserve(hbsz(5+1), 7); /* 7 live regs */ *--hp = r[0]; *--hp = r[6]; *--hp = r[1]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(121); r[7] = (hendblk(5+1)); r[8+0] = r[3]; pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[7]; r[8+2] = r[2]; r += 8; /* 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(120); r[7] = (hendblk(4+1)); hreserve(hbsz(8+1), 8); /* 8 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = r[7]; *--hp = r[1]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(122); r[7] = (hendblk(8+1)); r[0] = r[7]; /* r[1] */ goto gs_icar; } case 121: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r subread-decimal-suffix return i d1 k */ r[7+0] = r[2]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[6]; r[7+2] = r[5]; r[7+3] = r[1]; r[7+4] = r[4]; r[7+5] = r[3]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; goto jump; case 122: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ /* ek r fraction-datum subread-decimal-suffix return d1 i loop k digits */ r[10] = (cxs_char_2Ddigit_2Dvalue((r[1]), obj_from_fixnum(+10))); if (bool_from_obj(r[10])) { hreserve(hbsz(4+1), 11); /* 11 live regs */ *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = obj_from_case(123); r[11] = (hendblk(4+1)); r[0] = (r[11]); r[1] = r[6]; goto gs_icdr; } else { hreserve(hbsz(5+1), 11); /* 11 live regs */ *--hp = r[8]; *--hp = r[5]; *--hp = r[6]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(125); r[11] = (hendblk(5+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = (r[11]); r[2] = r[9]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 123: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r i loop k digits */ hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(124); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; goto gs_icar; case 124: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r loop r k digits */ { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = r[3]; r[3] = r[6]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 125: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r subread-decimal-suffix return i d1 k */ r[7+0] = r[2]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[6]; r[7+2] = r[5]; r[7+3] = r[1]; r[7+4] = r[4]; r[7+5] = r[3]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; goto jump; case 126: /* 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(isdigit(char_from_obj(r[1]))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 127: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ s_l_v6722: /* ek r subread-decimal-suffix return i d1 k */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = obj_from_fixnum(+10); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (cx__231040); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (mksymbol(internsym("+"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (mksymbol(internsym("integer"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[8+0] = r[2]; pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[6]; r[8+2] = r[5]; r[8+3] = r[7]; r[8+4] = r[4]; r[8+5] = r[3]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 6; goto jump; } else { r[0] = r[6]; 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; } case 128: /* 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] = (cxs_string_2Dposition(obj_from_char(tolower(char_from_obj(r[1]))), (cx__23355))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 129: /* clo k i return */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ /* k i return subread-integer radix subread-uinteger subread-decimal */ hreserve(hbsz(7+1), 7); /* 7 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[1]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(130); r[7] = (hendblk(7+1)); r[0] = r[7]; /* r[1] */ r[2] = (cx__231120); goto gs_input_2Ddelimited_2Dprefix; 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+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 subread-integer radix subread-uinteger subread-decimal i return k */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("-"))); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[9]; *--hp = (mksymbol(internsym("nan"))); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } r[10+0] = r[7]; pc = objptr_from_obj(r[10+0])[0]; r[10+1] = r[8]; r[10+2] = r[9]; r[10+3] = r[1]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(131); r[9] = (hendblk(7+1)); r[0] = r[9]; r[1] = r[6]; r[2] = (cx__231122); goto gs_input_2Ddelimited_2Dprefix; } case 131: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek r subread-integer radix subread-uinteger subread-decimal i return k */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("+"))); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[9]; *--hp = (mksymbol(internsym("nan"))); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } r[10+0] = r[7]; pc = objptr_from_obj(r[10+0])[0]; r[10+1] = r[8]; r[10+2] = r[9]; r[10+3] = r[1]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(132); r[9] = (hendblk(7+1)); r[0] = r[9]; r[1] = r[6]; r[2] = (cx__231124); goto gs_input_2Ddelimited_2Dprefix; } 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; /* shift reg. wnd */ /* ek r subread-integer radix subread-uinteger subread-decimal i return k */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("-"))); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[9]; *--hp = (mksymbol(internsym("inf"))); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } r[10+0] = r[7]; pc = objptr_from_obj(r[10+0])[0]; r[10+1] = r[8]; r[10+2] = r[9]; r[10+3] = r[1]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(133); r[9] = (hendblk(7+1)); r[0] = r[9]; r[1] = r[6]; r[2] = (cx__231126); goto gs_input_2Ddelimited_2Dprefix; } 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+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 subread-integer radix subread-uinteger subread-decimal i return k */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("+"))); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[9]; *--hp = (mksymbol(internsym("inf"))); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } r[10+0] = r[7]; pc = objptr_from_obj(r[10+0])[0]; r[10+1] = r[8]; r[10+2] = r[9]; r[10+3] = r[1]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[6]; *--hp = r[7]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(134); r[9] = (hendblk(7+1)); if ((fixnum_from_obj(r[3]) == (+10))) { r[0] = r[9]; r[1] = r[6]; r[2] = (cx__231160); goto gs_input_2Dprefix; } else { r[10+0] = obj_from_ktrap(); r[10+1] = obj_from_bool(0); r[10+2] = r[2]; r[10+3] = r[3]; r[10+4] = r[4]; r[10+5] = r[5]; r[10+6] = r[7]; r[10+7] = r[6]; r[10+8] = r[8]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v6620; } } case 134: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ s_l_v6620: /* ek r subread-integer radix subread-uinteger subread-decimal return i k */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = (mknull()); *--hp = obj_from_fixnum(+10); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[9]; *--hp = (cx__231040); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[9]; *--hp = (mksymbol(internsym("+"))); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[9]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[9]; *--hp = (mksymbol(internsym("integer"))); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; r[2] = r[9]; r[3] = r[7]; r[4] = r[6]; rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[6]; *--hp = r[5]; *--hp = r[7]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(135); r[9] = (hendblk(7+1)); if ((fixnum_from_obj(r[3]) == (+10))) { r[0] = r[9]; r[1] = r[7]; r[2] = (cx__231149); goto gs_input_2Dprefix; } else { r[10+0] = obj_from_ktrap(); r[10+1] = obj_from_bool(0); r[10+2] = r[2]; r[10+3] = r[3]; r[10+4] = r[4]; r[10+5] = r[7]; r[10+6] = r[5]; r[10+7] = r[6]; r[10+8] = r[8]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v6622; } } 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; /* shift reg. wnd */ s_l_v6622: /* ek r subread-integer radix subread-uinteger i subread-decimal return k */ if (bool_from_obj(r[1])) { hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = obj_from_case(136); r[9] = (hendblk(3+1)); r[0] = r[9]; r[1] = r[5]; goto gs_icdr; } else { hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(137); r[9] = (hendblk(7+1)); if ((fixnum_from_obj(r[3]) == (+10))) { r[0] = r[9]; r[1] = r[5]; r[2] = (cx__231138); goto gs_input_2Dprefix; } 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] */ goto s_l_v6624; } } 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 subread-decimal return k */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = obj_from_fixnum(+10); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = (cx__231040); *--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 = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = (mksymbol(internsym("integer"))); *--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] = r[4]; r[6+2] = r[5]; r[6+3] = r[1]; r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 137: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ s_l_v6624: /* ek r subread-integer radix subread-uinteger i subread-decimal return k */ if (bool_from_obj(r[1])) { hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = obj_from_case(138); r[9] = (hendblk(3+1)); r[0] = r[9]; r[1] = r[5]; goto gs_icdr; } else { hreserve(hbsz(4+1), 9); /* 9 live regs */ *--hp = r[7]; *--hp = r[4]; *--hp = r[6]; *--hp = r[3]; *--hp = obj_from_case(139); r[9] = (hendblk(4+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; r[2] = r[5]; r[3] = r[9]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 138: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r subread-decimal return k */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = obj_from_fixnum(+10); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = (cx__231040); *--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 = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = (mksymbol(internsym("integer"))); *--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] = r[4]; r[6+2] = r[5]; r[6+3] = r[1]; r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 139: /* clo k d1 i */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; r[1+5] = p[3]; r[1+6] = p[4]; } r += 1; /* shift reg. wnd */ /* k d1 i radix subread-decimal subread-uinteger return */ hreserve(hbsz(7+1), 7); /* 7 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[6]; *--hp = r[5]; *--hp = r[2]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(140); r[7] = (hendblk(7+1)); r[0] = r[7]; r[1] = r[2]; r[2] = (cx__231187); goto gs_input_2Dprefix; case 140: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+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 radix subread-decimal i subread-uinteger return d1 k */ if (bool_from_obj(r[1])) { hreserve(hbsz(2+1), 9); /* 9 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = obj_from_case(141); r[9] = (hendblk(2+1)); r[10+0] = r[5]; pc = objptr_from_obj(r[10+0])[0]; r[10+1] = r[8]; r[10+2] = r[1]; r[10+3] = (mksymbol(internsym("+"))); r[10+4] = (r[9]); r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { hreserve(hbsz(6+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[4]; *--hp = r[6]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(142); r[9] = (hendblk(6+1)); if ((fixnum_from_obj(r[2]) == (+10))) { if ((!(isnull((r[4]))))) { hreserve(hbsz(1+1), 10); /* 10 live regs */ *--hp = r[9]; *--hp = obj_from_case(144); r[10] = (hendblk(1+1)); r[0] = (r[10]); r[1] = r[4]; goto gs_icar; } else { r[10+0] = obj_from_ktrap(); r[10+1] = obj_from_bool(0); r[10+2] = r[2]; r[10+3] = r[3]; r[10+4] = r[6]; r[10+5] = r[4]; r[10+6] = r[7]; r[10+7] = r[8]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v6636; } } else { r[10+0] = obj_from_ktrap(); r[10+1] = obj_from_bool(0); r[10+2] = r[2]; r[10+3] = r[3]; r[10+4] = r[6]; r[10+5] = r[4]; r[10+6] = r[7]; r[10+7] = r[8]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v6636; } } case 141: /* clo k d2 i */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; } r += 1; /* shift reg. wnd */ /* k d2 i return d1 */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--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("ratio"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[6+0] = r[3]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[0]; r[6+2] = r[5]; r[6+3] = r[2]; r += 6; /* shift reg wnd */ 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; /* shift reg. wnd */ s_l_v6636: /* ek r radix subread-decimal return i d1 k */ if (bool_from_obj(r[1])) { r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; r[2] = r[6]; r[3] = r[5]; /* r[4] */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(143); r[8] = (hendblk(5+1)); if ((fixnum_from_obj(r[2]) == (+10))) { r[0] = r[8]; r[1] = r[5]; r[2] = (cx__231160); goto gs_input_2Dprefix; } else { r[0] = obj_from_ktrap(); r[1] = obj_from_bool(0); r[2] = r[3]; r[3] = r[4]; r[4] = r[5]; r[5] = r[6]; r[6] = r[7]; goto s_l_v6638; } } case 143: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ s_l_v6638: /* ek r subread-decimal return i d1 k */ if (bool_from_obj(r[1])) { r[7+0] = r[2]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[6]; r[7+2] = r[5]; r[7+3] = r[4]; r[7+4] = r[3]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = r[5]; r[3] = r[4]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 144: /* 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] = (cxs_string_2Dposition(obj_from_char(tolower(char_from_obj(r[1]))), (cx__23355))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 145: /* clo k d i */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; } r += 1; /* shift reg. wnd */ /* k d i return exactness */ hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[4]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(146); r[5] = (hendblk(4+1)); r[0] = r[5]; r[1] = r[2]; goto gs_input_2Dcheck_2Ddelimited; case 146: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r return d exactness k */ if (bool_from_obj(r[4])) { { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = r[3]; *--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)); } } else { r[6] = r[3]; } r[7+0] = r[2]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[5]; r[7+2] = r[6]; r[7+3] = r[1]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; 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; /* shift reg. wnd */ /* ek r subread-real-naninf i return k */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = obj_from_fixnum(+10); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = (cx__231066); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("+"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("integer"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = r[6]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = obj_from_fixnum(+10); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (cx__231066); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (mksymbol(internsym("-"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (mksymbol(internsym("integer"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[7]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("rectangular"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[7+0] = r[4]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[5]; r[7+2] = r[6]; r[7+3] = r[1]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(148); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231015); goto gs_input_2Ddelimited_2Dprefix; } case 148: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r subread-real-naninf i return k */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = obj_from_fixnum(+10); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = (cx__231066); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("-"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("integer"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = r[6]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = obj_from_fixnum(+10); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (cx__231040); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (mksymbol(internsym("+"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (mksymbol(internsym("integer"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[7]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("rectangular"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[7+0] = r[4]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[5]; r[7+2] = r[6]; r[7+3] = r[1]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[2]; *--hp = obj_from_case(149); r[6] = (hendblk(2+1)); r[7+0] = r[2]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[5]; r[7+2] = r[3]; r[7+3] = r[6]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 149: /* clo k d1 i */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; } r += 1; /* shift reg. wnd */ /* k d1 i subread-real-naninf return */ hreserve(hbsz(5+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(150); r[5] = (hendblk(5+1)); r[0] = r[5]; r[1] = r[2]; r[2] = (cx__231019); goto gs_input_2Dprefix; 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 i subread-real-naninf return d1 k */ if (bool_from_obj(r[1])) { hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(151); r[7] = (hendblk(2+1)); r[8+0] = r[3]; pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[6]; r[8+2] = r[1]; r[8+3] = r[7]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(5+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_case(152); r[7] = (hendblk(5+1)); r[0] = r[7]; r[1] = r[2]; r[2] = (cx__231021); goto gs_input_2Dprefix; } case 151: /* clo k d2 i */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; } r += 1; /* shift reg. wnd */ /* k d2 i return d1 */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--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("polar"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[6+0] = r[3]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[0]; r[6+2] = r[5]; r[6+3] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 152: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r subread-real-naninf i return d1 k */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = (mknull()); *--hp = obj_from_fixnum(+10); *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = (cx__231040); *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = (mksymbol(internsym("+"))); *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = (mksymbol(internsym("integer"))); *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[7]; *--hp = r[8]; *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (mksymbol(internsym("rectangular"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[8+0] = r[4]; pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[6]; r[8+2] = r[7]; r[8+3] = r[1]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(5+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[3]; *--hp = r[5]; *--hp = r[4]; *--hp = r[2]; *--hp = obj_from_case(153); r[7] = (hendblk(5+1)); r[0] = r[7]; r[1] = r[3]; r[2] = (cx__231032); goto gs_input_2Dprefix; } case 153: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r subread-real-naninf return d1 i k */ hreserve(hbsz(5+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(154); r[7] = (hendblk(5+1)); if (bool_from_obj(r[1])) { r[0] = obj_from_ktrap(); /* r[1] */ /* r[2] */ /* r[3] */ /* r[4] */ /* r[5] */ /* r[6] */ goto s_l_v6542; } else { r[0] = r[7]; r[1] = r[5]; r[2] = (cx__231034); goto gs_input_2Dprefix; } case 154: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ s_l_v6542: /* ek r subread-real-naninf return d1 i k */ if (bool_from_obj(r[1])) { hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(155); r[7] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = r[5]; r[3] = r[7]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = r[4]; r[3] = r[5]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 155: /* clo k d2 i */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; } r += 1; /* shift reg. wnd */ /* k d2 i return d1 */ hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(156); r[5] = (hendblk(4+1)); r[0] = r[5]; r[1] = r[2]; r[2] = (cx__231021); goto gs_input_2Dskip_2Dexpected_2Dprefix; 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+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r return d1 d2 k */ { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--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)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("rectangular"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[7+0] = r[2]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[5]; r[7+2] = r[6]; r[7+3] = r[1]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 157: /* subread-hex-value k i return */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_subread_2Dhex_2Dvalue: /* k i return */ r[3+0] = r[0]; r[3+1] = r[1]; r[3+2] = (mknull()); r[3+3] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v6479; case 158: /* clo k i digits */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v6479: /* k i digits return */ hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_case(158); r[4] = (hendblk(1+1)); hreserve(hbsz(5+1), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = r[4]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(159); r[4] = (hendblk(5+1)); if ((!(isnull((r[1]))))) { hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = obj_from_case(163); r[5] = (hendblk(1+1)); r[0] = r[5]; /* r[1] */ goto gs_icar; } else { hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = obj_from_case(158); r[5] = (hendblk(1+1)); r[6+0] = obj_from_ktrap(); r[6+1] = obj_from_bool(0); r[6+2] = r[3]; r[6+3] = r[1]; r[6+4] = r[5]; r[6+5] = r[0]; r[6+6] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v6487; } case 159: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ s_l_v6487: /* ek r return i loop k digits */ if (bool_from_obj(r[1])) { hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(160); r[7] = (hendblk(4+1)); r[0] = r[7]; r[1] = r[3]; goto gs_icdr; } else { if ((isnull((r[6])))) { r[0] = r[5]; r[1] = r[3]; r[2] = (cx__231400); r[3] = (mknull()); goto gs_r_2Derror_2A; } else { { fixnum_t v7658_tmp; { /* length */ int n; obj l = r[6]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7658_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v7658_tmp); hreserve(hbsz(3)*c, 7); /* 7 live regs */ l = r[6]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[7] = (o); } } r[0] = r[5]; r[1] = r[7]; /* r[2] */ /* r[3] */ goto s_loop_v6488; } } case 160: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r i loop k digits */ hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(161); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; goto gs_icar; case 161: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r loop r k digits */ { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = obj_from_char(tolower(char_from_obj(r[1]))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = r[3]; r[3] = r[6]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; s_loop_v6488: /* k dd return i */ if ((ispair((r[1])))) { r[4] = (cdr((r[1]))); r[4] = obj_from_bool(ispair((r[4]))); if (bool_from_obj(r[4])) { r[4] = (car((r[1]))); r[4] = obj_from_bool(char_from_obj(r[4]) == ('0')); } else { r[4] = obj_from_bool(0); } } else { r[4] = obj_from_bool(0); } if (bool_from_obj(r[4])) { r[4] = (cdr((r[1]))); /* r[0] */ r[1] = r[4]; /* r[2] */ /* r[3] */ goto s_loop_v6488; } else { { fixnum_t v7657_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7657_tmp = (n); } { /* list->string */ int i, c = (v7657_tmp); obj o = hpushstr(4, allocstring(c, ' ')); /* 4 live regs */ obj l = r[1]; /* gc-safe */ unsigned char *s = (unsigned char *)stringchars(o); for (i = 0; i < c; ++i, l = cdr(l)) s[i] = char_from_obj(car(l)); r[4] = (o); } } hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(162); r[5] = (hendblk(4+1)); r[0] = r[5]; r[1] = (mksymbol(internsym("+"))); r[2] = (r[4]); r[3] = obj_from_fixnum(+16); goto gs_integer_2Drepresentation_2Dwidth; } case 162: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r return i s k */ r[6+0] = r[2]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[5]; r[6+2] = r[1]; r[6+3] = r[4]; r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 163: /* 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] = (cxs_char_2Ddigit_2Dvalue((r[1]), obj_from_fixnum(+16))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 164: /* subread-hex-scalar-value k i return */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_subread_2Dhex_2Dscalar_2Dvalue: /* k i return */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(165); r[3] = (hendblk(1+1)); /* r[0] */ /* r[1] */ r[2] = r[3]; goto gs_subread_2Dhex_2Dvalue; case 165: /* clo k w s i */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; } r += 1; /* shift reg. wnd */ /* k w s i return */ r[5] = obj_from_bool(!(is_fixnum_obj(r[1]))); r[5] = (bool_from_obj(r[5]) ? (r[5]) : obj_from_bool(fixnum_from_obj(r[1]) > (+24))); if (bool_from_obj(r[5])) { { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[6+0] = r[0]; r[6+1] = r[3]; r[6+2] = (cx__231417); r[6+3] = r[5]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_r_2Derror_2A; } else { hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[3]; *--hp = r[4]; *--hp = obj_from_case(166); r[5] = (hendblk(3+1)); r[6+0] = (cx_string_2D_3Efixnum); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[5]; r[6+2] = r[2]; r[6+3] = obj_from_fixnum(+16); r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; 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; /* shift reg. wnd */ /* ek r return i k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[1]; r[5+3] = r[3]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 167: /* subread-string-hex-escape k i return */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_subread_2Dstring_2Dhex_2Descape: /* k i return */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(168); r[3] = (hendblk(1+1)); /* r[0] */ /* r[1] */ r[2] = r[3]; goto gs_subread_2Dhex_2Dscalar_2Dvalue; case 168: /* clo k cp i */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ /* k cp i return */ if ((isnull((r[2])))) { /* r[0] */ r[1] = r[2]; r[2] = (cx__231430); r[3] = (mknull()); goto gs_r_2Derror_2A; } else { hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(169); r[4] = (hendblk(4+1)); r[0] = r[4]; r[1] = r[2]; goto gs_icar; } 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; /* shift reg. wnd */ /* ek r i return cp k */ if ((char_from_obj(r[1]) == (';'))) { hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(170); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[2]; goto gs_icdr; } else { r[0] = r[5]; r[1] = r[2]; r[2] = (cx__231427); r[3] = (mknull()); goto gs_r_2Derror_2A; } 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; /* shift reg. wnd */ /* ek r return cp k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[3]; r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 171: /* subread-string-escape k i return */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_subread_2Dstring_2Descape: /* k i return */ if ((isnull((r[1])))) { r[3+0] = r[0]; r[3+1] = r[1]; r[3+2] = (cx__231464); r[3+3] = (mknull()); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_r_2Derror_2A; } else { hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(172); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ goto gs_icdr; } 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; /* shift reg. wnd */ /* ek r i return k */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(173); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[2]; goto gs_icar; case 173: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r return r k */ if ((char_from_obj(r[1]) == (92))) { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = obj_from_fixnum((fixnum_t)(92)); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((char_from_obj(r[1]) == (34))) { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = obj_from_fixnum((fixnum_t)(34)); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((char_from_obj(r[1]) == ('|'))) { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = obj_from_fixnum((fixnum_t)('|')); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((char_from_obj(r[1]) == ('a'))) { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = obj_from_fixnum(+7); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((char_from_obj(r[1]) == ('b'))) { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = obj_from_fixnum(+8); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((char_from_obj(r[1]) == ('t'))) { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = obj_from_fixnum(+9); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((char_from_obj(r[1]) == ('n'))) { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = obj_from_fixnum(+10); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((char_from_obj(r[1]) == ('v'))) { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = obj_from_fixnum(+11); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((char_from_obj(r[1]) == ('f'))) { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = obj_from_fixnum(+12); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((char_from_obj(r[1]) == ('r'))) { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = obj_from_fixnum(+13); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((char_from_obj(r[1]) == ('x'))) { r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto gs_subread_2Dstring_2Dhex_2Descape; } else { { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[6+0] = r[4]; r[6+1] = r[3]; r[6+2] = (cx__231438); r[6+3] = r[5]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_r_2Derror_2A; } } } } } } } } } } } case 174: /* subread-string k i return */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_subread_2Dstring: /* k i return */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = obj_from_case(175); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ r[2] = (cx__231468); goto gs_input_2Dskip_2Dexpected_2Dprefix; 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; /* shift reg. wnd */ /* ek r return k */ r[4+0] = r[3]; r[4+1] = r[1]; r[4+2] = (mknull()); r[4+3] = r[2]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v6338; case 176: /* clo k i lst */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v6338: /* k i lst return */ if ((isnull((r[1])))) { /* r[0] */ /* r[1] */ r[2] = (cx__231485); r[3] = (mknull()); goto gs_r_2Derror_2A; } else { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_case(176); r[4] = (hendblk(1+1)); hreserve(hbsz(5+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[3]; *--hp = r[1]; *--hp = r[2]; *--hp = r[4]; *--hp = obj_from_case(177); r[4] = (hendblk(5+1)); r[0] = r[4]; /* r[1] */ goto gs_icar; } case 177: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r loop lst i return k */ if ((char_from_obj(r[1]) == (34))) { hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(178); r[7] = (hendblk(3+1)); { fixnum_t v7656_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7656_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v7656_tmp); hreserve(hbsz(3)*c, 8); /* 8 live regs */ l = r[3]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[8] = (o); } } r[0] = r[7]; r[1] = r[8]; goto gs_char_2Dlist_2D_3Estring_2Ddatum; } else { hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[3]; *--hp = r[2]; *--hp = r[4]; *--hp = obj_from_case(180); r[7] = (hendblk(4+1)); r[0] = r[7]; r[1] = r[4]; goto gs_icar; } 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; /* shift reg. wnd */ /* ek r i return k */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(179); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[2]; goto gs_icdr; case 179: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r return r k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[3]; r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 180: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r i loop lst k */ if ((char_from_obj(r[1]) == (92))) { hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(181); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[2]; goto gs_icdr; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[5]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(183); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; goto gs_icdr; } 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; /* shift reg. wnd */ /* ek r loop lst k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(182); r[5] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ r[2] = r[5]; goto gs_subread_2Dstring_2Descape; case 182: /* clo k cp i */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; } r += 1; /* shift reg. wnd */ /* k cp i loop lst */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = obj_from_char((char_t)fixnum_from_obj(r[1])); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[6+0] = r[3]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[0]; r[6+2] = r[2]; r[6+3] = r[5]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; 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; /* shift reg. wnd */ /* ek r i loop k lst */ hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(184); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; goto gs_icar; case 184: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r loop r k lst */ { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = r[3]; r[3] = r[6]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 185: /* subread-char k i return */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_subread_2Dchar: /* k i return */ if ((isnull((r[1])))) { r[3+0] = r[0]; r[3+1] = r[1]; r[3+2] = (cx__231669); r[3+3] = (mknull()); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_r_2Derror_2A; } else { hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(186); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ goto gs_icdr; } 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+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r i return k */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(187); r[5] = (hendblk(3+1)); r[0] = r[5]; /* r[1] */ goto gs_input_2Ddelimited_3F; 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 i return k */ if (bool_from_obj(r[1])) { hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(188); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[2]; goto gs_icar; } else { hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(192); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[2]; goto gs_icar; } 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 i return k */ r[5] = obj_from_fixnum((fixnum_t)char_from_obj(r[1])); r[6] = (cxs_codepoint_2Dbyte_2Dwidth((r[5]))); if (bool_from_obj((((r[6]) == obj_from_fixnum(+8)) || ((is_flonum_obj(r[6])) && (0))) ? (cxs_string_2Dsafe_2Dcodepoint_3F((r[5]))) : obj_from_bool(0))) { hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(189); r[7] = (hendblk(3+1)); r[0] = r[7]; r[1] = r[2]; goto gs_icar; } else { hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[4]; *--hp = r[5]; *--hp = r[6]; *--hp = r[3]; *--hp = obj_from_case(191); r[7] = (hendblk(4+1)); r[0] = r[7]; r[1] = r[2]; goto gs_icdr; } 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+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r i return k */ { /* string */ obj o = hpushstr(5, allocstring(1, ' ')); unsigned char *s = (unsigned char *)stringchars(o); *s++ = char_from_obj(r[1]); r[5] = (o); } { /* 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 = (mksymbol(internsym("char"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[4]; *--hp = r[7]; *--hp = r[3]; *--hp = obj_from_case(190); r[8] = (hendblk(3+1)); r[0] = r[8]; r[1] = r[2]; goto gs_icdr; 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 return r k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[3]; r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 191: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r return bits cp k */ { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--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)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("char"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[7+0] = r[2]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[5]; r[7+2] = r[6]; r[7+3] = r[1]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; 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; /* shift reg. wnd */ /* ek r i return k */ if ((char_from_obj(r[1]) == ('x'))) { hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(193); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[2]; goto gs_icdr; } else { r[0] = r[4]; r[1] = r[2]; r[2] = (mknull()); /* r[3] */ goto s_loop_v6235; } 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; /* shift reg. wnd */ /* ek r return k */ hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = obj_from_case(194); r[4] = (hendblk(1+1)); r[0] = r[3]; /* r[1] */ r[2] = r[4]; goto gs_subread_2Dhex_2Dscalar_2Dvalue; case 194: /* clo k cp i */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ /* k cp i return */ hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_case(195); r[4] = (hendblk(4+1)); r[0] = r[4]; r[1] = r[2]; goto gs_input_2Ddelimited_3F; 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+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r return i k cp */ if (bool_from_obj(r[1])) { r[6] = (cxs_codepoint_2Dbyte_2Dwidth((r[5]))); if (bool_from_obj((((r[6]) == obj_from_fixnum(+8)) || ((is_flonum_obj(r[6])) && (0))) ? (cxs_string_2Dsafe_2Dcodepoint_3F((r[5]))) : obj_from_bool(0))) { { /* string */ obj o = hpushstr(7, allocstring(1, ' ')); unsigned char *s = (unsigned char *)stringchars(o); *s++ = ((char_t)fixnum_from_obj(r[5])); r[7] = (o); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = (mknull()); *--hp = r[7]; *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (mksymbol(internsym("char"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = r[7]; /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { { /* 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)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (mksymbol(internsym("char"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = r[7]; /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } } else { r[0] = r[4]; r[1] = r[3]; r[2] = (cx__231627); r[3] = (mknull()); goto gs_r_2Derror_2A; } case 196: /* clo k i lst */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v6235: /* k i lst return */ hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_case(196); r[4] = (hendblk(1+1)); hreserve(hbsz(5+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[3]; *--hp = r[4]; *--hp = obj_from_case(197); r[4] = (hendblk(5+1)); if ((isnull((r[1])))) { hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = obj_from_case(196); r[5] = (hendblk(1+1)); r[6+0] = obj_from_ktrap(); r[6+1] = obj_from_bool(isnull((r[1]))); r[6+2] = r[5]; r[6+3] = r[3]; r[6+4] = r[2]; r[6+5] = r[1]; r[6+6] = r[0]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v6243; } else { hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = obj_from_case(201); r[5] = (hendblk(1+1)); r[0] = r[5]; /* r[1] */ goto gs_icar; } 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+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ s_l_v6243: /* ek r loop return lst i k */ if (bool_from_obj(r[1])) { hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(198); r[7] = (hendblk(4+1)); r[0] = r[7]; r[1] = r[5]; goto gs_input_2Ddelimited_3F; } else { hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[4]; *--hp = r[6]; *--hp = r[2]; *--hp = r[5]; *--hp = obj_from_case(199); r[7] = (hendblk(4+1)); r[0] = r[7]; r[1] = r[5]; goto gs_icdr; } 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 return lst i k */ if ((!bool_from_obj(r[1]))) { r[0] = r[5]; r[1] = r[4]; r[2] = (cx__231617); r[3] = (mknull()); goto gs_r_2Derror_2A; } else { { fixnum_t v7654_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7654_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v7654_tmp); hreserve(hbsz(3)*c, 6); /* 6 live regs */ l = r[3]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[6] = (o); } } { fixnum_t v7655_tmp; { /* length */ int n; obj l = r[6]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7655_tmp = (n); } { /* list->string */ int i, c = (v7655_tmp); obj o = hpushstr(7, allocstring(c, ' ')); /* 7 live regs */ obj l = r[6]; /* gc-safe */ unsigned char *s = (unsigned char *)stringchars(o); for (i = 0; i < c; ++i, l = cdr(l)) s[i] = char_from_obj(car(l)); r[6] = (o); } } if ((strcmp(stringchars((r[6])), stringchars((cx__231614))) == 0)) { r[0] = r[5]; r[1] = r[4]; r[2] = (cx__231613); r[3] = (mknull()); goto gs_r_2Derror_2A; } else { if ((strcmp(stringchars((r[6])), stringchars((cx__231610))) == 0)) { { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = obj_from_fixnum(+0); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (mksymbol(internsym("char"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[7]; r[3] = r[4]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((strcmp(stringchars((r[6])), stringchars((cx__231601))) == 0)) { { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = obj_from_fixnum(+7); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (mksymbol(internsym("char"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[7]; r[3] = r[4]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((strcmp(stringchars((r[6])), stringchars((cx__231592))) == 0)) { { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (mksymbol(internsym("char"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[7]; r[3] = r[4]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((strcmp(stringchars((r[6])), stringchars((cx__231583))) == 0)) { { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = obj_from_fixnum(+9); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (mksymbol(internsym("char"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[7]; r[3] = r[4]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((strcmp(stringchars((r[6])), stringchars((cx__231574))) == 0)) { { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = obj_from_fixnum(+10); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (mksymbol(internsym("char"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[7]; r[3] = r[4]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((strcmp(stringchars((r[6])), stringchars((cx__231565))) == 0)) { { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = obj_from_fixnum(+10); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (mksymbol(internsym("char"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[7]; r[3] = r[4]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((strcmp(stringchars((r[6])), stringchars((cx__231556))) == 0)) { { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = obj_from_fixnum(+11); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (mksymbol(internsym("char"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[7]; r[3] = r[4]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((strcmp(stringchars((r[6])), stringchars((cx__231547))) == 0)) { { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = obj_from_fixnum(+12); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (mksymbol(internsym("char"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[7]; r[3] = r[4]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((strcmp(stringchars((r[6])), stringchars((cx__231538))) == 0)) { { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = obj_from_fixnum(+13); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (mksymbol(internsym("char"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[7]; r[3] = r[4]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((strcmp(stringchars((r[6])), stringchars((cx__231529))) == 0)) { { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = obj_from_fixnum(+27); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (mksymbol(internsym("char"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[7]; r[3] = r[4]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((strcmp(stringchars((r[6])), stringchars((cx__231520))) == 0)) { { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = (cx__231515); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (mksymbol(internsym("char"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[7]; r[3] = r[4]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((strcmp(stringchars((r[6])), stringchars((cx__231512))) == 0)) { { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = obj_from_fixnum(+127); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = obj_from_fixnum(+8); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = (mksymbol(internsym("char"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[7]; r[3] = r[4]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = r[6]; *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[0] = r[5]; r[1] = r[4]; r[2] = (cx__231504); r[3] = r[7]; goto gs_r_2Derror_2A; } } } } } } } } } } } } } } 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; /* shift reg. wnd */ /* ek r i loop k lst */ hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(200); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; goto gs_icar; case 200: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r loop r k lst */ { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = r[3]; r[3] = r[6]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 201: /* 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(!(isalpha(char_from_obj(r[1])))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 202: /* initial-reader k i r return */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k i r return */ if ((isnull((r[1])))) { { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("eof"))); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[3]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[0]; r[5+2] = r[4]; r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[3]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(203); r[4] = (hendblk(4+1)); r[0] = r[4]; /* r[1] */ goto gs_icar; } case 203: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if ((isspace(char_from_obj(r[1])))) { hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(204); r[6] = (hendblk(2+1)); r[0] = r[6]; r[1] = r[3]; goto gs_icdr; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(208); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; goto gs_icar; } case 204: /* clo 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 return k */ r[0] = r[3]; /* r[1] */ /* r[2] */ goto s_loop_v6194; case 205: /* clo k i */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v6194: /* k i return */ if ((isnull((r[1])))) { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("eof"))); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(205); r[3] = (hendblk(1+1)); hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_case(206); r[3] = (hendblk(4+1)); r[0] = r[3]; /* r[1] */ goto gs_icar; } case 206: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r loop return i k */ if ((!(isspace(char_from_obj(r[1]))))) { { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("atmosphere"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[6]; r[3] = r[4]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[2]; *--hp = obj_from_case(207); r[6] = (hendblk(2+1)); r[0] = r[6]; r[1] = r[4]; goto gs_icdr; } case 207: /* clo 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 loop 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 208: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if ((char_from_obj(r[1]) == (';'))) { hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(209); r[6] = (hendblk(2+1)); r[0] = r[6]; r[1] = r[3]; goto gs_icdr; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(214); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; goto gs_icar; } case 209: /* clo 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 return k */ r[0] = r[3]; /* r[1] */ /* r[2] */ goto s_loop_v6161; case 210: /* clo k i */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v6161: /* k i return */ if ((isnull((r[1])))) { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("eof"))); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(210); r[3] = (hendblk(1+1)); hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(211); r[3] = (hendblk(4+1)); r[0] = r[3]; /* r[1] */ goto gs_icar; } case 211: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r loop i return k */ if ((char_from_obj(r[1]) == (10))) { hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(212); r[6] = (hendblk(2+1)); r[0] = r[6]; r[1] = r[3]; goto gs_icdr; } else { hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[2]; *--hp = obj_from_case(213); r[6] = (hendblk(2+1)); r[0] = r[6]; r[1] = r[3]; goto gs_icdr; } case 212: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r return k */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("atmosphere"))); *--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[3]; r[5+2] = r[4]; r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 213: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r loop 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 214: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r r i return k */ r[6] = (cxs_string_2Dposition((r[1]), (cx__23338))); if (bool_from_obj(r[6])) { hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(215); r[7] = (hendblk(3+1)); r[0] = r[7]; r[1] = r[3]; goto gs_icdr; } else { hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(223); r[7] = (hendblk(4+1)); r[0] = r[7]; r[1] = r[3]; r[2] = (cx__231674); goto gs_input_2Dprefix_2Dci; } case 215: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r i return k */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(216); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[2]; goto gs_icar; case 216: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r return r k */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[6+0] = r[4]; r[6+1] = r[3]; r[6+2] = r[5]; r[6+3] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v6110; case 217: /* clo k i lst */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v6110: /* k i lst return */ hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_case(217); r[4] = (hendblk(1+1)); hreserve(hbsz(5+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[3]; *--hp = r[2]; *--hp = r[4]; *--hp = obj_from_case(218); r[4] = (hendblk(5+1)); if ((isnull((r[1])))) { hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = obj_from_case(217); r[5] = (hendblk(1+1)); r[6+0] = obj_from_ktrap(); r[6+1] = obj_from_bool(isnull((r[1]))); r[6+2] = r[5]; r[6+3] = r[2]; r[6+4] = r[3]; r[6+5] = r[1]; r[6+6] = r[0]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v6118; } else { hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = obj_from_case(222); r[5] = (hendblk(1+1)); r[0] = r[5]; /* r[1] */ goto gs_icar; } case 218: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ s_l_v6118: /* ek r loop lst return i k */ if (bool_from_obj(r[1])) { hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(219); r[7] = (hendblk(3+1)); { fixnum_t v7653_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7653_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v7653_tmp); hreserve(hbsz(3)*c, 8); /* 8 live regs */ l = r[3]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[8] = (o); } } r[0] = r[7]; r[1] = r[8]; goto gs_char_2Dlist_2D_3Esymbol_2Ddatum; } else { hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[6]; *--hp = r[2]; *--hp = r[5]; *--hp = obj_from_case(220); r[7] = (hendblk(4+1)); r[0] = r[7]; r[1] = r[5]; goto gs_icdr; } case 219: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r return i k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[1]; r[5+3] = r[3]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 220: /* clo ek r */ assert(rc == 3); { 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 i loop k lst */ hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(221); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; goto gs_icar; case 221: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r loop r k lst */ { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = r[3]; r[3] = r[6]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 222: /* 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] = (cxs_string_2Dposition((r[1]), (cx__23341))); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(!bool_from_obj(r[3])); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 223: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r r i return k */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = obj_from_char('-'); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = obj_from_char('>'); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[0] = r[5]; /* r[1] */ r[2] = r[6]; r[3] = r[4]; goto s_loop_v6065; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(230); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231160); goto gs_input_2Ddelimited_2Dprefix; } case 224: /* clo k i lst */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v6065: /* k i lst return */ hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_case(224); r[4] = (hendblk(1+1)); hreserve(hbsz(5+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[3]; *--hp = r[2]; *--hp = r[4]; *--hp = obj_from_case(225); r[4] = (hendblk(5+1)); if ((isnull((r[1])))) { hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = obj_from_case(224); r[5] = (hendblk(1+1)); r[6+0] = obj_from_ktrap(); r[6+1] = obj_from_bool(isnull((r[1]))); r[6+2] = r[5]; r[6+3] = r[2]; r[6+4] = r[3]; r[6+5] = r[1]; r[6+6] = r[0]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v6073; } else { hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = obj_from_case(229); r[5] = (hendblk(1+1)); r[0] = r[5]; /* r[1] */ goto gs_icar; } case 225: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ s_l_v6073: /* ek r loop lst return i k */ if (bool_from_obj(r[1])) { hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(226); r[7] = (hendblk(3+1)); { fixnum_t v7652_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7652_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v7652_tmp); hreserve(hbsz(3)*c, 8); /* 8 live regs */ l = r[3]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[8] = (o); } } r[0] = r[7]; r[1] = r[8]; goto gs_char_2Dlist_2D_3Esymbol_2Ddatum; } else { hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[6]; *--hp = r[2]; *--hp = r[5]; *--hp = obj_from_case(227); r[7] = (hendblk(4+1)); r[0] = r[7]; r[1] = r[5]; goto gs_icdr; } case 226: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r return i k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[1]; r[5+3] = r[3]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 227: /* clo ek r */ assert(rc == 3); { 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 i loop k lst */ hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(228); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; goto gs_icar; case 228: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r loop r k lst */ { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = r[3]; r[3] = r[6]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 229: /* 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] = (cxs_string_2Dposition((r[1]), (cx__23341))); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(!bool_from_obj(r[3])); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 230: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = obj_from_char('.'); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("terminator"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[7+0] = r[4]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[5]; r[7+2] = r[6]; r[7+3] = r[1]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(231); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231032); goto gs_input_2Ddelimited_2Dprefix; } case 231: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r r i return k */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = (cx__231032); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("symbol"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[7+0] = r[4]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[5]; r[7+2] = r[6]; r[7+3] = r[1]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(232); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231034); goto gs_input_2Ddelimited_2Dprefix; } case 232: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r r i return k */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = (cx__231034); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("symbol"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[7+0] = r[4]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[5]; r[7+2] = r[6]; r[7+3] = r[1]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(233); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231679); goto gs_input_2Ddelimited_2Dprefix; } case 233: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r r i return k */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = (cx__231679); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("symbol"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[7+0] = r[4]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[5]; r[7+2] = r[6]; r[7+3] = r[1]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(234); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231681); goto gs_input_2Ddelimited_2Dprefix_2Dci; } case 234: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = obj_from_fixnum(+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("boolean"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[7+0] = r[4]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[5]; r[7+2] = r[6]; r[7+3] = r[1]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(235); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231683); goto gs_input_2Ddelimited_2Dprefix_2Dci; } case 235: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = obj_from_fixnum(+0); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = (mksymbol(internsym("boolean"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[7+0] = r[4]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[5]; r[7+2] = r[6]; r[7+3] = r[1]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(236); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231685); goto gs_input_2Dprefix_2Dci; } case 236: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = (mksymbol(internsym("inexact"))); r[3] = obj_from_fixnum(+2); r[4] = (r[4]); goto gs_subread_2Dnumber; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(237); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231687); goto gs_input_2Dprefix_2Dci; } case 237: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = (mksymbol(internsym("inexact"))); r[3] = obj_from_fixnum(+8); r[4] = (r[4]); goto gs_subread_2Dnumber; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(238); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231689); goto gs_input_2Dprefix_2Dci; } case 238: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r r i return k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = (mksymbol(internsym("inexact"))); r[3] = obj_from_fixnum(+10); r[4] = (r[4]); goto gs_subread_2Dnumber; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(239); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231691); goto gs_input_2Dprefix_2Dci; } case 239: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = (mksymbol(internsym("inexact"))); r[3] = obj_from_fixnum(+16); r[4] = (r[4]); goto gs_subread_2Dnumber; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(240); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231693); goto gs_input_2Dprefix_2Dci; } case 240: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = (mksymbol(internsym("exact"))); r[3] = obj_from_fixnum(+2); r[4] = (r[4]); goto gs_subread_2Dnumber; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(241); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231695); goto gs_input_2Dprefix_2Dci; } case 241: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = (mksymbol(internsym("exact"))); r[3] = obj_from_fixnum(+8); r[4] = (r[4]); goto gs_subread_2Dnumber; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(242); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231697); goto gs_input_2Dprefix_2Dci; } case 242: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = (mksymbol(internsym("exact"))); r[3] = obj_from_fixnum(+10); r[4] = (r[4]); goto gs_subread_2Dnumber; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(243); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231699); goto gs_input_2Dprefix_2Dci; } case 243: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = (mksymbol(internsym("exact"))); r[3] = obj_from_fixnum(+16); r[4] = (r[4]); goto gs_subread_2Dnumber; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(244); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231701); goto gs_input_2Dprefix_2Dci; } case 244: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = (mksymbol(internsym("inexact"))); r[3] = obj_from_fixnum(+2); r[4] = (r[4]); goto gs_subread_2Dnumber; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(245); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231703); goto gs_input_2Dprefix_2Dci; } case 245: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = (mksymbol(internsym("inexact"))); r[3] = obj_from_fixnum(+8); r[4] = (r[4]); goto gs_subread_2Dnumber; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(246); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231705); goto gs_input_2Dprefix_2Dci; } case 246: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = (mksymbol(internsym("inexact"))); r[3] = obj_from_fixnum(+10); r[4] = (r[4]); goto gs_subread_2Dnumber; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(247); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231707); goto gs_input_2Dprefix_2Dci; } case 247: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = (mksymbol(internsym("inexact"))); r[3] = obj_from_fixnum(+16); r[4] = (r[4]); goto gs_subread_2Dnumber; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(248); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231709); goto gs_input_2Dprefix_2Dci; } case 248: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = (mksymbol(internsym("exact"))); r[3] = obj_from_fixnum(+2); r[4] = (r[4]); goto gs_subread_2Dnumber; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(249); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231711); goto gs_input_2Dprefix_2Dci; } case 249: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = (mksymbol(internsym("exact"))); r[3] = obj_from_fixnum(+8); r[4] = (r[4]); goto gs_subread_2Dnumber; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(250); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231713); goto gs_input_2Dprefix_2Dci; } case 250: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = (mksymbol(internsym("exact"))); r[3] = obj_from_fixnum(+10); r[4] = (r[4]); goto gs_subread_2Dnumber; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(251); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231715); goto gs_input_2Dprefix_2Dci; } case 251: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = (mksymbol(internsym("exact"))); r[3] = obj_from_fixnum(+16); r[4] = (r[4]); goto gs_subread_2Dnumber; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(252); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231717); goto gs_input_2Dprefix_2Dci; } case 252: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = (mksymbol(internsym("inexact"))); r[3] = obj_from_fixnum(+10); r[4] = (r[4]); goto gs_subread_2Dnumber; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(253); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231719); goto gs_input_2Dprefix_2Dci; } case 253: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = (mksymbol(internsym("exact"))); r[3] = obj_from_fixnum(+10); r[4] = (r[4]); goto gs_subread_2Dnumber; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(254); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231721); goto gs_input_2Dprefix_2Dci; } case 254: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = obj_from_bool(0); r[3] = obj_from_fixnum(+2); /* r[4] */ goto gs_subread_2Dnumber; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(255); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231723); goto gs_input_2Dprefix_2Dci; } case 255: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = obj_from_bool(0); r[3] = obj_from_fixnum(+8); /* r[4] */ goto gs_subread_2Dnumber; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(256); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231725); goto gs_input_2Dprefix_2Dci; } case 256: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = obj_from_bool(0); r[3] = obj_from_fixnum(+10); /* r[4] */ goto gs_subread_2Dnumber; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(257); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; r[2] = (cx__231727); goto gs_input_2Dprefix_2Dci; } case 257: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = obj_from_bool(0); r[3] = obj_from_fixnum(+16); /* r[4] */ goto gs_subread_2Dnumber; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[3]; *--hp = r[4]; *--hp = r[2]; *--hp = obj_from_case(258); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; goto gs_icar; } case 258: /* clo ek r */ assert(rc == 3); { 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 r return i k */ r[6] = (cxs_string_2Dposition((r[1]), (cx__23344))); if (bool_from_obj(r[6])) { r[7+0] = r[5]; r[7+1] = r[4]; r[7+2] = obj_from_bool(0); r[7+3] = obj_from_fixnum(+10); r[7+4] = r[3]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_subread_2Dnumber; } else { hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[3]; *--hp = r[4]; *--hp = r[2]; *--hp = obj_from_case(259); r[7] = (hendblk(4+1)); r[0] = r[7]; r[1] = r[4]; r[2] = (cx__231729); goto gs_input_2Dprefix; } case 259: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = r[4]; goto gs_subread_2Dchar; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[3]; *--hp = r[4]; *--hp = r[2]; *--hp = obj_from_case(260); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; goto gs_icar; } case 260: /* clo ek r */ assert(rc == 3); { 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 r return i k */ if ((char_from_obj(r[1]) == (34))) { r[0] = r[5]; r[1] = r[4]; r[2] = r[3]; goto gs_subread_2Dstring; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[3]; *--hp = r[2]; *--hp = r[4]; *--hp = obj_from_case(261); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[4]; r[2] = (cx__231731); goto gs_input_2Dprefix; } case 261: /* clo ek r */ assert(rc == 3); { 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 i r return k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = (mknull()); r[3] = r[4]; goto s_loop_v5861; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[3]; *--hp = r[4]; *--hp = r[2]; *--hp = obj_from_case(274); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; r[2] = (cx__231733); goto gs_input_2Dprefix; } case 262: /* clo k i lst */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v5861: /* k i lst return */ if ((isnull((r[1])))) { /* r[0] */ /* r[1] */ r[2] = (cx__231939); r[3] = (mknull()); goto gs_r_2Derror_2A; } else { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_case(262); r[4] = (hendblk(1+1)); hreserve(hbsz(5+1), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = r[4]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(263); r[4] = (hendblk(5+1)); r[0] = r[4]; /* r[1] */ goto gs_icar; } case 263: /* clo ek r */ assert(rc == 3); { 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 return i loop k lst */ if ((!(char_from_obj(r[1]) == (10)))) { hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(264); r[7] = (hendblk(4+1)); r[0] = r[7]; r[1] = r[3]; goto gs_icdr; } else { if ((isnull((r[6])))) { r[0] = r[5]; r[1] = r[3]; r[2] = (cx__231932); r[3] = (mknull()); goto gs_r_2Derror_2A; } else { hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[6]; *--hp = r[2]; *--hp = obj_from_case(266); r[7] = (hendblk(3+1)); r[0] = r[7]; r[1] = r[3]; goto gs_icdr; } } case 264: /* clo ek r */ assert(rc == 3); { 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 i loop k lst */ hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(265); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; goto gs_icar; case 265: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r loop r k lst */ { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = r[3]; r[3] = r[6]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 266: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r return lst k */ r[5+0] = r[4]; r[5+1] = r[1]; r[5+2] = (mknull()); r[5+3] = (mknull()); r[5+4] = r[2]; r[5+5] = r[3]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v5866; case 267: /* clo k i lst res */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; r[1+5] = p[2]; } r += 1; /* shift reg. wnd */ s_loop_v5866: /* k i lst res return lst */ if ((isnull((r[1])))) { if ((isequal((r[2]), (r[5])))) { hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(268); r[6] = (hendblk(3+1)); { fixnum_t v7651_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7651_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v7651_tmp); hreserve(hbsz(3)*c, 7); /* 7 live regs */ l = r[3]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[7] = (o); } } r[0] = r[6]; r[1] = r[7]; goto gs_char_2Dlist_2D_3Estring_2Ddatum; } else { /* r[0] */ /* r[1] */ r[2] = (cx__231924); r[3] = (mknull()); goto gs_r_2Derror_2A; } } else { hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(267); r[6] = (hendblk(2+1)); hreserve(hbsz(7+1), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; *--hp = r[6]; *--hp = obj_from_case(269); r[6] = (hendblk(7+1)); r[0] = r[6]; /* r[1] */ goto gs_icar; } case 268: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r return i k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[1]; r[5+3] = r[3]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 269: /* clo ek r */ assert(rc == 3); { 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 res return i k lst lst */ if ((char_from_obj(r[1]) == (10))) { if ((isequal((r[7]), (r[8])))) { hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(270); r[9] = (hendblk(3+1)); { fixnum_t v7650_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7650_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v7650_tmp); hreserve(hbsz(3)*c, 10); /* 10 live regs */ l = r[3]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[10] = (o); } } r[0] = r[9]; r[1] = (r[10]); goto gs_char_2Dlist_2D_3Estring_2Ddatum; } else { hreserve(hbsz(4+1), 9); /* 9 live regs */ *--hp = r[6]; *--hp = r[3]; *--hp = r[7]; *--hp = r[2]; *--hp = obj_from_case(271); r[9] = (hendblk(4+1)); r[0] = r[9]; r[1] = r[5]; goto gs_icdr; } } else { hreserve(hbsz(5+1), 9); /* 9 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[3]; *--hp = r[2]; *--hp = r[5]; *--hp = obj_from_case(272); r[9] = (hendblk(5+1)); r[0] = r[9]; r[1] = r[5]; goto gs_icdr; } case 270: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r return i k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[1]; r[5+3] = r[3]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 271: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r loop lst res k */ if ((isnull((r[4])))) { r[6] = r[3]; } else { { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[4]; *--hp = obj_from_char(10); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { fixnum_t v7649_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7649_tmp = (n); } { /* append */ obj t, l, o, *p, *d; int c = (v7649_tmp); hreserve(hbsz(3)*c, 7); /* 7 live regs */ l = r[3]; t = r[6]; /* gc-safe */ o = t; p = &o; for (; l != mknull(); l = cdr(l)) { *--hp = t; d = hp; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); *p = hendblk(3); p = d; } r[6] = (o); } } } r[7+0] = r[2]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[5]; r[7+2] = r[1]; r[7+3] = (mknull()); r[7+4] = r[6]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 272: /* clo ek r */ assert(rc == 3); { 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 i loop res k lst */ hreserve(hbsz(5+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(273); r[7] = (hendblk(5+1)); r[0] = r[7]; r[1] = r[2]; goto gs_icar; case 273: /* clo ek r */ assert(rc == 3); { 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 res r k lst */ { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[8+0] = r[2]; pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[5]; r[8+2] = r[4]; r[8+3] = r[7]; r[8+4] = r[3]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 274: /* clo ek r */ assert(rc == 3); { 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 i return r k */ if (bool_from_obj(r[1])) { hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[3]; *--hp = obj_from_case(275); r[6] = (hendblk(1+1)); r[0] = r[5]; /* r[1] */ r[2] = r[4]; r[3] = r[6]; goto gs_subread; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(276); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; r[2] = (cx__231735); goto gs_input_2Ddelimited_2Dprefix; } case 275: /* clo k d i */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ /* k d i return */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = (cx__231892); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = (mksymbol(internsym("symbol"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = (mksymbol(internsym("list"))); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[3]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[0]; r[5+2] = r[4]; r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 276: /* clo ek r */ assert(rc == 3); { 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 i return r k */ if (bool_from_obj(r[1])) { hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[3]; *--hp = obj_from_case(277); r[6] = (hendblk(1+1)); r[0] = r[5]; /* r[1] */ r[2] = r[4]; r[3] = r[6]; goto gs_subread; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(278); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; r[2] = (cx__231737); goto gs_input_2Ddelimited_2Dprefix; } case 277: /* clo k d i */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ /* k d i return */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = (cx__231878); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = (mksymbol(internsym("symbol"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = (mksymbol(internsym("list"))); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[3]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[0]; r[5+2] = r[4]; r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 278: /* clo ek r */ assert(rc == 3); { 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 i return r k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = r[3]; r[3] = r[4]; goto s_loop_v5730; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(296); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; r[2] = (cx__231739); goto gs_input_2Dprefix; } case 279: /* clo k i */ 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_loop_v5730: /* k i return r */ if ((isnull((r[1])))) { /* r[0] */ /* r[1] */ r[2] = (cx__231855); r[3] = (mknull()); goto gs_r_2Derror_2A; } else { hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(279); r[4] = (hendblk(2+1)); hreserve(hbsz(5+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[4]; *--hp = r[1]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(280); r[4] = (hendblk(5+1)); r[0] = r[4]; /* r[1] */ goto gs_icar; } case 280: /* clo ek r */ assert(rc == 3); { 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 return r i loop k */ if ((char_from_obj(r[1]) == (' '))) { hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(281); r[7] = (hendblk(2+1)); r[0] = r[7]; r[1] = r[4]; goto gs_icdr; } else { hreserve(hbsz(5+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(282); r[7] = (hendblk(5+1)); r[0] = r[7]; r[1] = r[4]; goto gs_icar; } case 281: /* clo 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 loop 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 282: /* clo ek r */ assert(rc == 3); { 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 return r i loop k */ if ((char_from_obj(r[1]) == (9))) { hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(283); r[7] = (hendblk(2+1)); r[0] = r[7]; r[1] = r[4]; goto gs_icdr; } else { r[7+0] = r[6]; r[7+1] = r[4]; r[7+2] = (mknull()); r[7+3] = r[2]; r[7+4] = r[3]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v5735; } case 283: /* clo 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 loop 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 284: /* clo k i lst */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; } r += 1; /* shift reg. wnd */ s_loop_v5735: /* k i lst return r */ if ((isnull((r[1])))) { /* r[0] */ /* r[1] */ r[2] = (cx__231855); r[3] = (mknull()); goto gs_r_2Derror_2A; } else { hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(284); r[5] = (hendblk(2+1)); hreserve(hbsz(6+1), 6); /* 6 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = r[5]; *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(285); r[5] = (hendblk(6+1)); r[0] = r[5]; /* r[1] */ goto gs_icar; } case 285: /* clo ek r */ assert(rc == 3); { 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 return r i loop k lst */ if ((!(isspace(char_from_obj(r[1]))))) { hreserve(hbsz(4+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(286); r[8] = (hendblk(4+1)); r[0] = r[8]; r[1] = r[4]; goto gs_icdr; } else { r[8+0] = r[6]; r[8+1] = r[4]; r[8+2] = r[2]; r[8+3] = r[7]; r[8+4] = r[3]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v5738; } case 286: /* clo ek r */ assert(rc == 3); { 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 i loop k lst */ hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(287); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; goto gs_icar; case 287: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r loop r k lst */ { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = r[3]; r[3] = r[6]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 288: /* clo k i */ assert(rc == 3); { 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_loop_v5738: /* k i return lst r */ if ((isnull((r[1])))) { /* r[0] */ /* r[1] */ r[2] = (cx__231855); r[3] = (mknull()); goto gs_r_2Derror_2A; } else { hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(288); r[5] = (hendblk(3+1)); hreserve(hbsz(6+1), 6); /* 6 live regs */ *--hp = r[0]; *--hp = r[5]; *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(289); r[5] = (hendblk(6+1)); r[0] = r[5]; /* r[1] */ goto gs_icar; } case 289: /* clo ek r */ assert(rc == 3); { 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 return lst r i loop k */ if ((char_from_obj(r[1]) == (' '))) { hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = obj_from_case(290); r[8] = (hendblk(2+1)); r[0] = r[8]; r[1] = r[5]; goto gs_icdr; } else { hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(291); r[8] = (hendblk(6+1)); r[0] = r[8]; r[1] = r[5]; goto gs_icar; } case 290: /* clo 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 loop 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 291: /* clo ek r */ assert(rc == 3); { 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 return lst r i loop k */ if ((char_from_obj(r[1]) == (9))) { hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = obj_from_case(292); r[8] = (hendblk(2+1)); r[0] = r[8]; r[1] = r[5]; goto gs_icdr; } else { hreserve(hbsz(4+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(293); r[8] = (hendblk(4+1)); r[0] = r[8]; r[1] = r[5]; r[2] = (cx__231837); goto gs_input_2Dskip_2Dexpected_2Dprefix; } case 292: /* clo 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 loop 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 293: /* clo ek r */ assert(rc == 3); { 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 return lst r k */ 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(294); r[6] = (hendblk(5+1)); r[0] = r[6]; /* r[1] */ goto gs_input_2Ddelimited_3F; case 294: /* clo ek r */ assert(rc == 3); { 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 return lst r r k */ if ((!bool_from_obj(r[1]))) { r[0] = r[6]; r[1] = r[5]; r[2] = (cx__231849); r[3] = (mknull()); goto gs_r_2Derror_2A; } else { hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(295); r[7] = (hendblk(2+1)); r[8+0] = r[6]; r[8+1] = r[5]; r[8+2] = r[4]; r[8+3] = r[7]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_subread; } case 295: /* clo k d i */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; } r += 1; /* shift reg. wnd */ /* k d i return lst */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { fixnum_t v7648_tmp; { /* length */ int n; obj l = r[4]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7648_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v7648_tmp); hreserve(hbsz(3)*c, 6); /* 6 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[6] = (o); } } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[6]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = (mksymbol(internsym("read-as"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[6+0] = r[3]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[0]; r[6+2] = r[5]; r[6+3] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 296: /* clo ek r */ assert(rc == 3); { 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 i return r k */ if (bool_from_obj(r[1])) { hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[3]; *--hp = obj_from_case(297); r[6] = (hendblk(1+1)); r[0] = r[5]; /* r[1] */ r[2] = r[4]; r[3] = r[6]; goto gs_subread; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[3]; *--hp = r[2]; *--hp = r[4]; *--hp = obj_from_case(298); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; r[2] = (cx__231741); goto gs_input_2Dprefix; } case 297: /* clo k d i */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ /* k d i return */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("atmosphere"))); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[3]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[0]; r[5+2] = r[4]; r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 298: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if (bool_from_obj(r[1])) { r[0] = r[5]; /* r[1] */ r[2] = r[4]; goto s_loop_v5681; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(304); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; goto gs_icar; } case 299: /* clo k i return */ assert(rc == 4); r += 1; /* shift reg. wnd */ s_loop_v5681: /* k i return */ if ((isnull((r[1])))) { r[3+0] = r[0]; r[3+1] = r[1]; r[3+2] = (cx__231820); r[3+3] = (mknull()); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_r_2Derror_2A; } else { hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(299); r[3] = (hendblk(0+1)); hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_case(300); r[3] = (hendblk(4+1)); r[0] = r[3]; /* r[1] */ r[2] = (cx__231811); goto gs_input_2Dprefix; } case 300: /* clo ek r */ assert(rc == 3); { 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 i loop return k */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("atmosphere"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[7+0] = r[4]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[5]; r[7+2] = r[6]; r[7+3] = r[1]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(301); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; r[2] = (cx__231741); goto gs_input_2Dprefix; } case 301: /* clo ek r */ assert(rc == 3); { 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 i loop return k */ if (bool_from_obj(r[1])) { hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(302); r[6] = (hendblk(2+1)); r[7+0] = r[3]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[5]; r[7+2] = r[1]; r[7+3] = r[6]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(303); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[2]; goto gs_icdr; } case 302: /* clo k a i */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; } r += 1; /* shift reg. wnd */ /* k a i loop return */ r[5+0] = r[3]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[0]; r[5+2] = r[2]; r[5+3] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 303: /* clo ek r */ assert(rc == 3); { 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 return k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[1]; r[5+3] = r[3]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 304: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if ((char_from_obj(r[1]) == (')'))) { hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(305); r[6] = (hendblk(2+1)); r[0] = r[6]; r[1] = r[3]; goto gs_icdr; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(306); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; goto gs_icar; } case 305: /* clo 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 return k */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = obj_from_char(')'); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = (mksymbol(internsym("terminator"))); *--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[3]; r[5+2] = r[4]; r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 306: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if ((char_from_obj(r[1]) == (']'))) { hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(307); r[6] = (hendblk(2+1)); r[0] = r[6]; r[1] = r[3]; goto gs_icdr; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(308); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; goto gs_icar; } case 307: /* clo 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 return k */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = obj_from_char(']'); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = (mksymbol(internsym("terminator"))); *--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[3]; r[5+2] = r[4]; r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 308: /* clo ek r */ assert(rc == 3); { 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 r i return k */ if ((char_from_obj(r[1]) == ('}'))) { hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(309); r[6] = (hendblk(2+1)); r[0] = r[6]; r[1] = r[3]; goto gs_icdr; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[2]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(310); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[3]; goto gs_icar; } case 309: /* clo 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 return k */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = obj_from_char('}'); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = (mksymbol(internsym("terminator"))); *--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[3]; r[5+2] = r[4]; r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 310: /* clo ek r */ assert(rc == 3); { 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 i return r k */ if ((char_from_obj(r[1]) == ('('))) { hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(311); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[2]; goto gs_icdr; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(312); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; goto gs_icar; } case 311: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r return r k */ r[5+0] = r[4]; r[5+1] = r[1]; r[5+2] = r[3]; r[5+3] = obj_from_char(')'); r[5+4] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_subread_2Dpairs_2Dto_2Dterminator; case 312: /* clo ek r */ assert(rc == 3); { 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 i return r k */ if ((char_from_obj(r[1]) == ('['))) { hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(313); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[2]; goto gs_icdr; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(314); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; r[2] = (cx__231743); goto gs_input_2Dprefix; } case 313: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r return r k */ r[5+0] = r[4]; r[5+1] = r[1]; r[5+2] = r[3]; r[5+3] = obj_from_char(']'); r[5+4] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_subread_2Dpairs_2Dto_2Dterminator; case 314: /* clo ek r */ assert(rc == 3); { 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 i return r k */ if (bool_from_obj(r[1])) { hreserve(hbsz(0+1), 6); /* 6 live regs */ *--hp = obj_from_case(315); r[6] = (hendblk(0+1)); hreserve(hbsz(1+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = obj_from_case(316); r[7] = (hendblk(1+1)); r[8+0] = r[5]; r[8+1] = r[1]; r[8+2] = r[4]; r[8+3] = obj_from_char(')'); r[8+4] = obj_from_bool(0); r[8+5] = obj_from_bool(1); r[8+6] = r[6]; r[8+7] = (mknull()); r[8+8] = r[7]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_subread_2Dto_2Dterminator; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(317); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; r[2] = (cx__231745); goto gs_input_2Dprefix; } case 315: /* clo k a d */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k a d */ { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = r[0]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 316: /* clo k l i */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ /* k l i return */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[1]; *--hp = (mksymbol(internsym("vector"))); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[3]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[0]; r[5+2] = r[4]; r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 317: /* clo ek r */ assert(rc == 3); { 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 i return r k */ if (bool_from_obj(r[1])) { hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[3]; *--hp = obj_from_case(318); r[6] = (hendblk(1+1)); r[0] = r[5]; /* r[1] */ r[2] = r[4]; r[3] = r[6]; goto gs_subread; } else { hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(319); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; r[2] = (cx__231747); goto gs_input_2Dprefix; } case 318: /* clo k d i */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ /* k d i return */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = (mksymbol(internsym("box"))); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[3]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[0]; r[5+2] = r[4]; r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 319: /* clo ek r */ assert(rc == 3); { 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 i return r k */ if (bool_from_obj(r[1])) { hreserve(hbsz(0+1), 6); /* 6 live regs */ *--hp = obj_from_case(320); r[6] = (hendblk(0+1)); { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("null"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } hreserve(hbsz(1+1), 8); /* 8 live regs */ *--hp = r[3]; *--hp = obj_from_case(321); r[8] = (hendblk(1+1)); r[9+0] = r[5]; r[9+1] = r[1]; r[9+2] = r[4]; r[9+3] = obj_from_char(')'); r[9+4] = obj_from_bool(1); r[9+5] = obj_from_bool(0); r[9+6] = r[6]; r[9+7] = r[7]; r[9+8] = r[8]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_subread_2Dto_2Dterminator; } else { hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[2]; *--hp = obj_from_case(323); r[6] = (hendblk(2+1)); r[0] = r[6]; r[1] = r[2]; r[2] = (cx__231749); goto gs_input_2Dprefix; } case 320: /* clo k d1 d2 */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k d1 d2 */ { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = (mksymbol(internsym("pair"))); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = r[0]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 321: /* clo k l i */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ /* k l i return */ hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_case(322); r[4] = (hendblk(3+1)); r[5+0] = r[4]; r[5+1] = r[2]; r[5+2] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_make_2Dverbatim_2Ddatum; case 322: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r return i k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[1]; r[5+3] = r[3]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 323: /* clo 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 i k */ if (bool_from_obj(r[1])) { hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_case(324); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ goto gs_icar; } else { hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(325); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = r[2]; goto gs_icar; } case 324: /* clo 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 r k */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[0] = r[3]; r[1] = r[2]; r[2] = (cx__231757); r[3] = r[4]; goto gs_r_2Derror_2A; case 325: /* clo 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 i k */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[0] = r[3]; r[1] = r[2]; r[2] = (cx__231753); r[3] = r[4]; goto gs_r_2Derror_2A; case 326: /* mem-diff k lst suffix */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_mem_2Ddiff: /* k lst suffix */ r[3+0] = r[0]; r[3+1] = r[1]; r[3+2] = (mknull()); r[3+3] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v5442; s_loop_v5442: /* k lst prefix suffix */ if (((r[1]) == (r[3]))) { { fixnum_t v7647_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7647_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v7647_tmp); hreserve(hbsz(3)*c, 4); /* 4 live regs */ l = r[2]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[4] = (o); } } /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[4] = (cdr((r[1]))); r[5] = (car((r[1]))); { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[2]; *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } /* r[0] */ r[1] = r[4]; r[2] = r[5]; /* r[3] */ goto s_loop_v5442; } case 327: /* reader-template-replace k i templ-d sym psym var d */ assert(rc == 8); r += 1; /* shift reg. wnd */ gs_reader_2Dtemplate_2Dreplace: /* k i templ-d sym psym var d */ r[7+0] = r[0]; r[7+1] = r[2]; r[7+2] = r[1]; r[7+3] = r[3]; r[7+4] = r[4]; r[7+5] = r[6]; r[7+6] = r[5]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v5409; case 328: /* clo k td */ assert(rc == 3); { 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_loop_v5409: /* k td i sym psym d var */ hreserve(hbsz(5+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(328); r[7] = (hendblk(5+1)); if ((isequal((r[1]), (r[6])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if (((r[1]) == (r[4]))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if (((r[1]) == (r[3]))) { /* r[0] */ r[1] = r[2]; r[2] = r[5]; goto gs_datum_2D_3Ereader_2Dsexp; } else { if ((ispair((r[1])))) { r[8] = (cdr((r[1]))); hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[7]; *--hp = obj_from_case(329); r[9] = (hendblk(3+1)); r[0] = r[9]; r[1] = r[8]; /* r[2] */ /* r[3] */ /* r[4] */ /* r[5] */ /* r[6] */ goto s_loop_v5409; } else { r[8+0] = r[0]; pc = objptr_from_obj(r[8+0])[0]; r[8+1] = obj_from_ktrap(); r[8+2] = r[1]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } } } case 329: /* clo ek r */ assert(rc == 3); { 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 td k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(330); 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 330: /* clo 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 331: /* param->reader k sym i */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_param_2D_3Ereader: /* k sym i */ if ((((r[1]) == (mksymbol(internsym("")))) && (1))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (cx_subread); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if ((((r[1]) == (mksymbol(internsym("")))) && (1))) { hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(332); r[3] = (hendblk(0+1)); /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[3]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if ((((r[1]) == (mksymbol(internsym("")))) && (1))) { hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(335); r[3] = (hendblk(0+1)); /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[3]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = r[0]; r[4+1] = r[2]; r[4+2] = (cx__232105); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_r_2Derror_2A; } } } case 332: /* clo k i r return */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k i r return */ hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_case(333); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = (cx__232125); goto gs_input_2Dskip_2Dexpected_2Dprefix; case 333: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r return r k */ hreserve(hbsz(0+1), 5); /* 5 live regs */ *--hp = obj_from_case(334); r[5] = (hendblk(0+1)); { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("null"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[7+0] = r[4]; r[7+1] = r[1]; r[7+2] = r[3]; r[7+3] = obj_from_char(')'); r[7+4] = obj_from_bool(1); r[7+5] = obj_from_bool(1); r[7+6] = r[5]; r[7+7] = r[6]; r[7+8] = r[2]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_subread_2Dto_2Dterminator; case 334: /* clo k d1 d2 */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k d1 d2 */ { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = (mksymbol(internsym("pair"))); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = r[0]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 335: /* clo k i r return */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k i r return */ /* r[0] */ /* r[1] */ r[2] = r[3]; goto gs_subread_2Dstring; case 336: /* param->prefix-reader k pfx sym i */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_param_2D_3Eprefix_2Dreader: /* k pfx sym i */ if ((((r[2]) == (mksymbol(internsym("")))) && (1))) { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = obj_from_case(337); r[4] = (hendblk(1+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; } else { if ((((r[2]) == (mksymbol(internsym("")))) && (1))) { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = obj_from_case(338); r[4] = (hendblk(1+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; } else { if ((((r[2]) == (mksymbol(internsym("")))) && (1))) { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = obj_from_case(341); r[4] = (hendblk(1+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; } else { { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[0]; r[5+1] = r[3]; r[5+2] = (cx__232105); r[5+3] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_r_2Derror_2A; } } } case 337: /* clo k i */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* k i pfx */ /* r[0] */ /* r[1] */ /* r[2] */ goto gs_input_2Dprefix; case 338: /* clo k i */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* k i pfx */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = obj_from_case(339); r[3] = (hendblk(1+1)); r[0] = r[3]; /* r[1] */ /* r[2] */ goto gs_input_2Dprefix; case 339: /* 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 */ if (bool_from_obj(r[1])) { if ((!(isnull((r[1]))))) { hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(340); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ goto gs_icar; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 340: /* clo 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 ((char_from_obj(r[1]) == ('('))) { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[3]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 341: /* clo k i */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* k i pfx */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = obj_from_case(342); r[3] = (hendblk(1+1)); r[0] = r[3]; /* r[1] */ /* r[2] */ goto gs_input_2Dprefix; case 342: /* 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 */ if (bool_from_obj(r[1])) { if ((!(isnull((r[1]))))) { hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(343); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ goto gs_icar; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 343: /* clo 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 ((char_from_obj(r[1]) == (34))) { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[3]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 344: /* extend-reader k reader read-as-datum i */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_extend_2Dreader: /* k reader read-as-datum i */ r[4] = (cdr((r[2]))); r[4] = (car((r[4]))); r[5] = (cdr((r[2]))); r[5] = (cdr((r[5]))); r[5] = (car((r[5]))); r[6] = (ismemv(obj_from_char('<'), (r[4]))); if (bool_from_obj(r[6])) { hreserve(hbsz(5+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[1]; *--hp = r[0]; *--hp = r[3]; *--hp = obj_from_case(345); r[7] = (hendblk(5+1)); r[0] = r[7]; r[1] = r[4]; r[2] = r[6]; goto gs_mem_2Ddiff; } else { { fixnum_t v7646_tmp; { /* length */ int n; obj l = r[4]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7646_tmp = (n); } { /* list->string */ int i, c = (v7646_tmp); obj o = hpushstr(7, allocstring(c, ' ')); /* 7 live regs */ obj l = r[4]; /* gc-safe */ unsigned char *s = (unsigned char *)stringchars(o); for (i = 0; i < c; ++i, l = cdr(l)) s[i] = char_from_obj(car(l)); r[7] = (o); } } hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = r[7]; *--hp = obj_from_case(352); r[7] = (hendblk(3+1)); r[8+0] = r[0]; 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 345: /* clo ek r */ assert(rc == 3); { 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 i k reader templ-d tmp */ { fixnum_t v7644_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7644_tmp = (n); } { /* list->string */ int i, c = (v7644_tmp); obj o = hpushstr(7, allocstring(c, ' ')); /* 7 live regs */ obj l = r[1]; /* gc-safe */ unsigned char *s = (unsigned char *)stringchars(o); for (i = 0; i < c; ++i, l = cdr(l)) s[i] = char_from_obj(car(l)); r[7] = (o); } } { fixnum_t v7645_tmp; { /* length */ int n; obj l = r[6]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7645_tmp = (n); } { /* list->string */ int i, c = (v7645_tmp); obj o = hpushstr(8, allocstring(c, ' ')); /* 8 live regs */ obj l = r[6]; /* gc-safe */ unsigned char *s = (unsigned char *)stringchars(o); for (i = 0; i < c; ++i, l = cdr(l)) s[i] = char_from_obj(car(l)); r[8] = (o); } } r[9] = (mksymbol(internsym(stringchars((r[8]))))); hreserve(hbsz(7+1), 10); /* 10 live regs */ *--hp = r[8]; *--hp = r[5]; *--hp = r[9]; *--hp = r[4]; *--hp = r[3]; *--hp = r[7]; *--hp = r[2]; *--hp = obj_from_case(346); r[10] = (hendblk(7+1)); r[0] = (r[10]); r[1] = r[9]; /* r[2] */ goto gs_param_2D_3Ereader; case 346: /* clo ek r */ assert(rc == 3); { 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 i r k reader sym templ-d str */ hreserve(hbsz(6+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[1]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(347); r[9] = (hendblk(6+1)); r[10+0] = r[9]; r[10+1] = r[3]; r[10+2] = r[6]; r[10+3] = r[2]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_param_2D_3Eprefix_2Dreader; case 347: /* clo ek r */ assert(rc == 3); { 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 k reader r sym templ-d str */ { /* string-append */ int *d = stringcat(stringdata((cx__232193)), stringdata((r[7]))); r[8] = (hpushstr(8, d)); } r[8] = (mksymbol(internsym(stringchars((r[8]))))); { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = (mknull()); *--hp = r[7]; *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[9]; *--hp = (mksymbol(internsym("symbol"))); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } hreserve(hbsz(7+1), 10); /* 10 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[8]; *--hp = r[9]; *--hp = r[4]; *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_case(348); r[8] = (hendblk(7+1)); r[9+0] = r[2]; pc = objptr_from_obj(r[9+0])[0]; r[9+1] = obj_from_ktrap(); r[9+2] = r[8]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 348: /* clo k i r return */ 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 */ /* k i r return r reader r var psym sym templ-d */ hreserve(hbsz(10+1), 11); /* 11 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[1]; *--hp = r[5]; *--hp = obj_from_case(349); r[11] = (hendblk(10+1)); r[12+0] = r[4]; pc = objptr_from_obj(r[12+0])[0]; r[12+1] = (r[11]); r[12+2] = r[1]; r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 349: /* clo ek r */ assert(rc == 3); { 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 reader i r var psym sym templ-d return r k */ if (bool_from_obj(r[1])) { hreserve(hbsz(5+1), 12); /* 12 live regs */ *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(350); r[12] = (hendblk(5+1)); r[13+0] = r[4]; pc = objptr_from_obj(r[13+0])[0]; r[13+1] = (r[11]); r[13+2] = r[1]; r[13+3] = (r[10]); r[13+4] = (r[12]); r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = (r[11]); r[2] = r[3]; r[3] = (r[10]); r[4] = r[9]; rreserve(MAX_HOSTREGS); rc = 5; goto jump; } case 350: /* clo k d i */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; r[1+5] = p[3]; r[1+6] = p[4]; r[1+7] = p[5]; } r += 1; /* shift reg. wnd */ /* k d i var psym sym templ-d return */ hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[7]; *--hp = obj_from_case(351); r[8] = (hendblk(3+1)); r[9+0] = r[8]; r[9+1] = r[2]; r[9+2] = r[6]; r[9+3] = r[5]; r[9+4] = r[4]; r[9+5] = r[3]; r[9+6] = r[1]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_reader_2Dtemplate_2Dreplace; case 351: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r return i k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[1]; r[5+3] = r[3]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 352: /* clo k i r return */ 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 */ /* k i r return pfx reader templ-d */ hreserve(hbsz(6+1), 7); /* 7 live regs */ *--hp = r[0]; *--hp = r[6]; *--hp = r[3]; *--hp = r[1]; *--hp = r[2]; *--hp = r[5]; *--hp = obj_from_case(353); r[7] = (hendblk(6+1)); r[0] = r[7]; /* r[1] */ r[2] = r[4]; goto gs_input_2Ddelimited_2Dprefix; case 353: /* clo ek r */ assert(rc == 3); { 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 reader r i return templ-d k */ if (bool_from_obj(r[1])) { r[8+0] = r[5]; pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[7]; r[8+2] = r[6]; r[8+3] = r[1]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; r[2] = r[4]; /* r[3] */ r[4] = r[5]; rreserve(MAX_HOSTREGS); rc = 5; goto jump; } case 354: /* codepoint-8bit? k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (cxs_codepoint_2D8bit_3F((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 355: /* datum->rhe-sexp k d */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k d */ hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(356); r[2] = (hendblk(0+1)); r[3+0] = r[0]; r[3+1] = r[1]; r[3+2] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_sexp; case 356: /* clo k d */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k d */ hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[1]; *--hp = obj_from_case(357); r[2] = (hendblk(1+1)); r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); r[3+2] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 357: /* clo k */ assert(rc == 2); { obj* p = objptr_from_obj(r[0]); r[1+1] = p[1]; } r += 1; /* shift reg. wnd */ /* k d */ r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = r[1]; r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 358: /* clo k d */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ s_sexp: /* k d sexp-other */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(358); r[3] = (hendblk(1+1)); if ((ispair((r[1])))) { r[4] = (cdr((r[1]))); r[4] = obj_from_bool(islist((r[4]))); } else { r[4] = obj_from_bool(0); } if (bool_from_obj(r[4])) { { fixnum_t v7642_l; r[4] = (car((r[1]))); r[5] = (cdr((r[1]))); { /* length */ int n; obj l = r[5]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7642_l = (n); } if ((((r[4]) == (mksymbol(internsym("eof")))) && ((v7642_l) == (+0)))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mkeof()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if ((((r[4]) == (mksymbol(internsym("null")))) && ((v7642_l) == (+0)))) { /* 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 { if ((((r[4]) == (mksymbol(internsym("pair")))) && ((v7642_l) == (+2)))) { r[5] = (cdr((r[1]))); r[5] = (cdr((r[5]))); r[5] = (car((r[5]))); hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(359); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[5]; /* r[2] */ goto s_sexp; } else { if (((r[4]) == (mksymbol(internsym("list"))))) { r[5] = (cdr((r[1]))); /* r[0] */ r[1] = r[5]; r[2] = r[3]; goto s_loop_v5186; } else { if ((((r[4]) == (mksymbol(internsym("boolean")))) && ((v7642_l) == (+1)))) { r[5] = (cdr((r[1]))); r[6] = (car((r[5]))); if ((((r[6]) == obj_from_fixnum(+0)) || ((is_flonum_obj(r[6])) && (0)))) { /* 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 { if ((((r[6]) == obj_from_fixnum(+1)) || ((is_flonum_obj(r[6])) && (0)))) { /* 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 { r[7+0] = r[2]; pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[0]; r[7+2] = r[1]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } } else { if ((((r[4]) == (mksymbol(internsym("integer")))) && ((v7642_l) == (+4)))) { r[5] = (cdr((r[1]))); r[6] = (cdr((r[5]))); r[7] = (car((r[5]))); r[8] = (cdr((r[6]))); r[9] = (car((r[6]))); r[10] = (cdr((r[8]))); r[11] = (car((r[8]))); r[12] = (car((r[10]))); hreserve(hbsz(4+1), 13); /* 13 live regs */ *--hp = r[9]; *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(363); r[13] = (hendblk(4+1)); if (bool_from_obj(ismemv((r[7]), (cx__23160)))) { if ((isstring((r[11])))) { if ((is_fixnum_obj(r[12]))) { r[0] = (cx_string_2D_3Efixnum); pc = objptr_from_obj(r[0])[0]; r[1] = (r[13]); r[2] = (r[11]); r[3] = (r[12]); rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[14+0] = obj_from_ktrap(); r[14+1] = obj_from_bool(0); r[14+2] = r[2]; r[14+3] = r[1]; r[14+4] = r[0]; r[14+5] = r[9]; r += 14; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v5181; } } else { r[14+0] = obj_from_ktrap(); r[14+1] = obj_from_bool(0); r[14+2] = r[2]; r[14+3] = r[1]; r[14+4] = r[0]; r[14+5] = r[9]; r += 14; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v5181; } } else { r[14+0] = obj_from_ktrap(); r[14+1] = obj_from_bool(0); r[14+2] = r[2]; r[14+3] = r[1]; r[14+4] = r[0]; r[14+5] = r[9]; r += 14; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v5181; } } else { if ((((r[4]) == (mksymbol(internsym("string")))) && ((v7642_l) >= (+1)))) { r[5] = (cdr((r[1]))); r[5] = (car((r[5]))); r[5] = obj_from_bool(isstring((r[5]))); if (bool_from_obj(r[5])) { r[5] = (cdr((r[1]))); r[5] = (cdr((r[5]))); r[5] = obj_from_bool(isnull((r[5]))); } else { r[5] = obj_from_bool(0); } if (bool_from_obj(r[5])) { r[5] = (cdr((r[1]))); r[5] = (car((r[5]))); 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 { hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(364); r[5] = (hendblk(3+1)); r[6] = (cdr((r[1]))); r[6] = (car((r[6]))); r[6] = obj_from_bool(((r[6]) == obj_from_fixnum(+8)) || ((is_flonum_obj(r[6])) && (0))); if (bool_from_obj(r[6])) { r[6] = (cdr((r[1]))); r[6] = (cdr((r[6]))); r[0] = r[5]; r[1] = r[6]; goto s_loop_v5152; } else { r[6+0] = obj_from_ktrap(); r[6+1] = obj_from_bool(0); r[6+2] = r[2]; r[6+3] = r[1]; r[6+4] = r[0]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v5158; } } } else { if ((((r[4]) == (mksymbol(internsym("char")))) && (((v7642_l) == (+1)) || ((v7642_l) == (+2))))) { r[5] = (cdr((r[1]))); r[5] = (car((r[5]))); r[5] = obj_from_bool(isstring((r[5]))); if (bool_from_obj(r[5])) { { fixnum_t v7643_tmp; r[5] = (cdr((r[1]))); r[5] = (car((r[5]))); v7643_tmp = (stringlen((r[5]))); r[5] = obj_from_bool((+1) == (v7643_tmp)); } if (bool_from_obj(r[5])) { r[5] = (cdr((r[1]))); r[5] = (cdr((r[5]))); r[5] = obj_from_bool(isnull((r[5]))); } else { r[5] = obj_from_bool(0); } } else { r[5] = obj_from_bool(0); } if (bool_from_obj(r[5])) { r[5] = (cdr((r[1]))); r[5] = (car((r[5]))); r[5] = obj_from_char(*(unsigned char*)stringref((r[5]), (+0))); 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 { r[5] = (cdr((r[1]))); r[5] = (car((r[5]))); r[5] = obj_from_bool(((r[5]) == obj_from_fixnum(+8)) || ((is_flonum_obj(r[5])) && (0))); if (bool_from_obj(r[5])) { r[5] = (cdr((r[1]))); r[5] = (cdr((r[5]))); r[5] = obj_from_bool(ispair((r[5]))); if (bool_from_obj(r[5])) { r[5] = (cdr((r[1]))); r[5] = (cdr((r[5]))); r[5] = (car((r[5]))); r[5] = (cxs_codepoint_2D8bit_3F((r[5]))); } else { r[5] = obj_from_bool(0); } } else { r[5] = obj_from_bool(0); } if (bool_from_obj(r[5])) { r[5] = (cdr((r[1]))); r[5] = (cdr((r[5]))); r[5] = (car((r[5]))); r[5] = obj_from_char((char_t)fixnum_from_obj(r[5])); 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 { r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[0]; r[5+2] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } } else { if ((((r[4]) == (mksymbol(internsym("symbol")))) && ((v7642_l) >= (+1)))) { r[5] = (cdr((r[1]))); r[5] = (car((r[5]))); r[5] = obj_from_bool(isstring((r[5]))); if (bool_from_obj(r[5])) { r[5] = (cdr((r[1]))); r[5] = (cdr((r[5]))); r[5] = obj_from_bool(isnull((r[5]))); } else { r[5] = obj_from_bool(0); } if (bool_from_obj(r[5])) { r[5] = (cdr((r[1]))); r[5] = (car((r[5]))); r[5] = (mksymbol(internsym(stringchars((r[5]))))); 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 { hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(367); r[5] = (hendblk(3+1)); r[6] = (cdr((r[1]))); r[6] = (car((r[6]))); r[6] = obj_from_bool(((r[6]) == obj_from_fixnum(+8)) || ((is_flonum_obj(r[6])) && (0))); if (bool_from_obj(r[6])) { r[6] = (cdr((r[1]))); r[6] = (cdr((r[6]))); r[0] = r[5]; r[1] = r[6]; goto s_loop_v5124; } else { r[6+0] = obj_from_ktrap(); r[6+1] = obj_from_bool(0); r[6+2] = r[2]; r[6+3] = r[1]; r[6+4] = r[0]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v5130; } } } else { if (((r[4]) == (mksymbol(internsym("vector"))))) { r[5] = (cdr((r[1]))); hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[0]; *--hp = obj_from_case(372); r[6] = (hendblk(1+1)); r[0] = r[6]; r[1] = r[5]; r[2] = r[3]; goto s_loop_v5107; } else { if ((((r[4]) == (mksymbol(internsym("box")))) && ((v7642_l) == (+1)))) { r[5] = (cdr((r[1]))); r[5] = (car((r[5]))); hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[0]; *--hp = obj_from_case(373); r[6] = (hendblk(1+1)); r[0] = r[6]; r[1] = r[5]; /* r[2] */ goto s_sexp; } else { r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[0]; r[5+2] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } } } } } } } } } } } } else { r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 359: /* clo ek r */ assert(rc == 3); { 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 sexp d k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(360); r[5] = (hendblk(2+1)); r[6] = (cdr((r[3]))); r[6] = (car((r[6]))); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 360: /* clo 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; s_loop_v5186: /* k id sexp */ 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(361); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v5186; } case 361: /* clo ek r */ assert(rc == 3); { 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 sexp id k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(362); 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 362: /* clo 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 363: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ s_l_v5181: /* ek r sexp-other d k sign */ if (bool_from_obj(r[1])) { r[6+0] = r[4]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = obj_from_ktrap(); r[6+2] = obj_from_fixnum(fixnum_from_obj(r[1]) * (((r[5]) == (mksymbol(internsym("-")))) ? (-1) : (+1))); r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = r[3]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 364: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ s_l_v5158: /* ek r sexp-other d k */ if (bool_from_obj(r[1])) { r[5] = (cdr((r[3]))); r[5] = (cdr((r[5]))); hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = obj_from_case(366); r[6] = (hendblk(1+1)); r[0] = r[6]; r[1] = r[5]; goto s_loop_v5165; } else { 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; } s_loop_v5165: /* 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(365); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v5165; } case 365: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k id */ r[4] = (car((r[3]))); r[4] = obj_from_char((char_t)fixnum_from_obj(r[4])); { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[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 366: /* 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 */ { fixnum_t v7641_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7641_tmp = (n); } { /* list->string */ int i, c = (v7641_tmp); obj o = hpushstr(3, allocstring(c, ' ')); /* 3 live regs */ obj l = r[1]; /* gc-safe */ unsigned char *s = (unsigned char *)stringchars(o); for (i = 0; i < c; ++i, l = cdr(l)) s[i] = char_from_obj(car(l)); r[3] = (o); } } r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; s_loop_v5152: /* k id */ if ((isnull((r[1])))) { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = obj_from_bool(isnull((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[2] = (car((r[1]))); r[2] = (cxs_codepoint_2D8bit_3F((r[2]))); if (bool_from_obj(r[2])) { r[2] = (cdr((r[1]))); /* r[0] */ r[1] = r[2]; goto s_loop_v5152; } 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 367: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ s_l_v5130: /* ek r sexp-other d k */ if (bool_from_obj(r[1])) { r[5] = (cdr((r[3]))); r[5] = (cdr((r[5]))); hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = obj_from_case(369); r[6] = (hendblk(1+1)); r[0] = r[6]; r[1] = r[5]; goto s_loop_v5137; } else { 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; } s_loop_v5137: /* 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(368); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v5137; } case 368: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k id */ r[4] = (car((r[3]))); r[4] = obj_from_char((char_t)fixnum_from_obj(r[4])); { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[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 369: /* 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 */ { fixnum_t v7640_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7640_tmp = (n); } { /* list->string */ int i, c = (v7640_tmp); obj o = hpushstr(3, allocstring(c, ' ')); /* 3 live regs */ obj l = r[1]; /* gc-safe */ unsigned char *s = (unsigned char *)stringchars(o); for (i = 0; i < c; ++i, l = cdr(l)) s[i] = char_from_obj(car(l)); r[3] = (o); } } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mksymbol(internsym(stringchars((r[3]))))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; s_loop_v5124: /* k id */ if ((isnull((r[1])))) { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = obj_from_bool(isnull((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[2] = (car((r[1]))); r[2] = (cxs_codepoint_2D8bit_3F((r[2]))); if (bool_from_obj(r[2])) { r[2] = (cdr((r[1]))); /* r[0] */ r[1] = r[2]; goto s_loop_v5124; } 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; } } s_loop_v5107: /* k id sexp */ 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(370); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v5107; } case 370: /* clo ek r */ assert(rc == 3); { 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 sexp id k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(371); 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 371: /* clo 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 372: /* 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 */ { fixnum_t v7639_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v7639_tmp = (n); } { /* list->vector */ obj l; int i, c = (v7639_tmp); hreserve(hbsz(c+1), 3); /* 3 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[3] = (hendblk(c+1)); } } r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 373: /* 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 */ { /* box */ hreserve(hbsz(2), 3); /* 3 live regs */ *--hp = r[1]; *--hp = obj_from_size(BOX_BTAG); r[3] = (hendblk(2)); } r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 374: /* current-reader k */ assert(rc == 2); r += 1; /* shift reg. wnd */ gs_current_2Dreader: /* k */ r[1+0] = r[0]; pc = objptr_from_obj(r[1+0])[0]; r[1+1] = obj_from_ktrap(); r[1+2] = (cx__2Acurrent_2Dreader_2A); r += 1; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 375: /* set-current-reader! k fn */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_set_2Dcurrent_2Dreader_21: /* k fn */ cx__2Acurrent_2Dreader_2A = r[1]; r[2] = obj_from_void(0); r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); r[3+2] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 376: /* current-sexp-converter k */ assert(rc == 2); r += 1; /* shift reg. wnd */ gs_current_2Dsexp_2Dconverter: /* k */ r[1+0] = r[0]; pc = objptr_from_obj(r[1+0])[0]; r[1+1] = obj_from_ktrap(); r[1+2] = (cx__2Acurrent_2Dsexp_2Dconverter_2A); r += 1; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 377: /* set-current-sexp-converter! k fn */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k fn */ cx__2Acurrent_2Dsexp_2Dconverter_2A = r[1]; r[2] = obj_from_void(0); r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); r[3+2] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 378: /* read/1 k port */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k port */ hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = obj_from_case(379); r[2] = (hendblk(1+1)); r[0] = r[2]; /* r[1] */ goto gs_make_2Dinput; case 379: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(380); r[3] = (hendblk(2+1)); r[0] = r[3]; goto gs_current_2Dreader; case 380: /* clo 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 r k */ hreserve(hbsz(0+1), 4); /* 4 live regs */ *--hp = obj_from_case(381); r[4] = (hendblk(0+1)); r[5+0] = r[3]; r[5+1] = r[2]; r[5+2] = r[1]; r[5+3] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_subread_2Dtop; case 381: /* clo k d i r */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k d i r */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(382); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = r[3]; goto gs_set_2Dcurrent_2Dreader_21; case 382: /* 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 . d k */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(383); r[4] = (hendblk(2+1)); r[0] = r[4]; goto gs_current_2Dsexp_2Dconverter; case 383: /* clo 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 d k */ r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; default: /* inter-host call */ cxg_hp = hp; cxm_rgc(r, MAX_HOSTREGS); cxg_rc = rc; return pc; } } /* module load */ void MODULE(void) { obj pc; if (!root.next) { root.next = cxg_rootp; cxg_rootp = &root; LOAD(); pc = obj_from_case(0); cxg_rc = 0; while (pc) pc = (*(cxhost_t*)pc)(pc); assert(cxg_rc == 2); } }