/* k.sf */ /* Generated by #F $Id$ */ #ifdef PROFILE #define host host_module_k #endif #define MODULE module_k #define LOAD() module_n(); extern void module_n(void); /* n.sf */ /* standard includes */ #include #include #include #include /* extra includes */ #include #include #include #include #include /* standard definitions */ #ifdef NAN_BOXING #include typedef int64_t obj; /* pointers are this size, higher 16 bits and lower bit zero */ typedef int64_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) (((cxoint_t)(o) - (cxoint_t)cxg_heap) & cxg_hmask) #define isobjptr(o) (!notobjptr(o)) #define notaptr(o) ((o) & 0xffff000000000001ULL) #define isaptr(o) (!notaptr(o)) #else 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)) #endif #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 */ #ifdef NAN_BOXING #define isim0(o) (((o) & 0xffffffff00000003ULL) == 3) /* 30 bits of payload */ #define isimm(o, t) (((o) & 0xffffffff000000ffULL) == (((t) << 2) | 1)) /* 24 */ #ifdef NDEBUG #define getim0s(o) (long)(((((int32_t)(o) >> 2) & 0x3fffffff) ^ 0x20000000) - 0x20000000) #define getimmu(o, t) (long)(((o) >> 8) & 0xffffff) #else extern long getim0s(obj o); extern long getimmu(obj o, int t); #endif #define mkim0(v) ((obj)((((v) & 0x000000003fffffffULL) << 2) | 3)) #define mkimm(v, t) ((obj)((((v) & 0x0000000000ffffffULL) << 8) | ((t) << 2) | 1)) #else #define isim0(o) (((o) & 3) == 3) #define isimm(o, t) (((o) & 0xff) == (((t) << 2) | 1)) #ifdef NDEBUG #define getim0s(o) (long)(((((int)(o) >> 2) & 0x3fffffff) ^ 0x20000000) - 0x20000000) #define getimmu(o, t) (long)(((o) >> 8) & 0xffffff) #else extern long getim0s(obj o); extern long getimmu(obj o, int t); #endif #define mkim0(o) (obj)((((o) & 0x3fffffff) << 2) | 3) #define mkimm(o, t) (obj)((((o) & 0xffffff) << 8) | ((t) << 2) | 1) #define FLONUMS_BOXED #endif #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 extern int istyped(obj o); #ifdef NDEBUG #define cktyped(o, t) (o) #define typedtype(o) (&hblkref(o, 0)) #define typedlen(o) (hblklen(o)-1) #define typedref(o, i) (&hblkref(o, (i)+1)) #else extern obj cktyped(obj o); extern obj* typedtype(obj o); extern int typedlen(obj o); extern obj* typedref(obj o, 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) /* void */ #define VOID_ITAG 1 #define mkvoid() mkimm(0, VOID_ITAG) #define isvoid(o) ((o) == mkimm(0, VOID_ITAG)) #undef obj_from_void #define obj_from_void(v) ((void)(v), mkimm(0, VOID_ITAG)) /* unit */ #define obj_from_unit() (obj_from_size(0x6DF6F577)) /* numbers */ #define FIXNUM_BIT 30 #define FIXNUM_MIN -536870912 #define FIXNUM_MAX 536870911 #ifdef NDEBUG #define fxneg(x) (-(x)) #define fxabs(x) (labs(x)) #define fxadd(x, y) ((x) + (y)) #define fxsub(x, y) ((x) - (y)) #define fxmul(x, y) ((x) * (y)) /* exact integer division */ #define fxdiv(x, y) ((x) / (y)) /* truncated division (common/C99) */ #define fxquo(x, y) ((x) / (y)) #define fxrem(x, y) ((x) % (y)) /* floor division */ static long fxmqu(long x, long y) { long q = x / y; return ((x < 0 && y > 0) || (x > 0 && y < 0)) ? q - 1 : q; } static long fxmlo(long x, long y) { long r = x % y; return ((r < 0 && y > 0) || (r > 0 && y < 0)) ? r + y : r; } /* euclidean division */ static long fxeuq(long x, long y) { long q = x / y, r = x % y; return (r < 0) ? ((y > 0) ? q - 1 : q + 1) : q; } static long fxeur(long x, long y) { long r = x % y; return (r < 0) ? ((y > 0) ? r + y : r - y) : r; } static long fxgcd(long x, long y) { long a = labs(x), b = labs(y), c; while (b) c = a%b, a = b, b = c; return a; } #define fxasl(x, y) ((x) << (y)) #define fxasr(x, y) ((x) >> (y)) #define fxflo(f) ((long)(f)) #else extern long fxneg(long x); extern long fxabs(long x); extern long fxadd(long x, long y); extern long fxsub(long x, long y); extern long fxmul(long x, long y); extern long fxdiv(long x, long y); extern long fxquo(long x, long y); extern long fxrem(long x, long y); extern long fxmqu(long x, long y); extern long fxmlo(long x, long y); extern long fxeuq(long x, long y); extern long fxeur(long x, long y); extern long fxgcd(long x, long y); extern long fxasl(long x, long y); extern long fxasr(long x, long y); extern long fxflo(double f); #endif static int flisint(double f) { return f > -HUGE_VAL && f < HUGE_VAL && f == floor(f); } extern long fxpow(long x, long y); extern long fxsqrt(long x); extern int fxifdv(long x, long y, long *pi, double *pd); extern double flquo(double x, double y); extern double flrem(double x, double y); extern double flmqu(double x, double y); extern double flmlo(double x, double y); extern double flgcd(double x, double y); extern double flround(double x); extern int strtofxfl(char *s, int radix, long *pl, double *pd); /* fixnums */ typedef long fixnum_t; #define is_fixnum_obj(o) (isim0(o)) #define is_fixnum_fixnum(i) ((void)(i), 1) #define is_bool_fixnum(i) ((void)(i), 0) #define is_fixnum_bool(i) ((void)(i), 0) #define fixnum_from_obj(o) (getim0s(o)) #define fixnum_from_fixnum(i) (i) #define fixnum_from_flonum(l,x) ((fixnum_t)(x)) #define bool_from_fixnum(i) ((void)(i), 1) #define void_from_fixnum(i) (void)(i) #define obj_from_fixnum(i) mkim0((fixnum_t)(i)) /* flonums */ #ifndef FLONUMS_BOXED typedef double flonum_t; #define is_flonum_obj(o) (((o) & 0xffff000000000000ULL) != 0ULL) #define is_flonum_flonum(f) ((void)(f), 1) #define is_flonum_bool(f) ((void)(f), 0) #define is_bool_flonum(f) ((void)(f), 0) #define is_fixnum_flonum(i) ((void)(i), 0) #define is_flonum_fixnum(i) ((void)(i), 0) #define flonum_from_flonum(l, f) (f) #define flonum_from_fixnum(x) ((flonum_t)(x)) #define bool_from_flonum(f) ((void)(f), 0) #define void_from_flonum(l, f) (void)(f) union iod { cxoint_t i; double d; }; static double flonum_from_obj(obj o) { union iod u; assert(is_flonum_obj(o)); u.i = ~o; return u.d; } static obj obj_from_flonum(int rc, double d) { union iod u; u.d = d; assert(is_flonum_obj(~u.i)); return ~u.i; } #else /* FLONUMS_BOXED */ 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 is_flonum_bool(f) ((void)(f), 0) #define is_bool_flonum(f) ((void)(f), 0) #define is_fixnum_flonum(i) ((void)(i), 0) #define is_flonum_fixnum(i) ((void)(i), 0) #define flonum_from_obj(o) (*(flonum_t*)getnative(o, FLONUM_NTAG)) #define flonum_from_flonum(l, f) (f) #define flonum_from_fixnum(x) ((flonum_t)(x)) #define bool_from_flonum(f) ((void)(f), 0) #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); #endif /* characters */ #define CHAR_ITAG 2 typedef int char_t; #define ischar(o) (isimm(o, CHAR_ITAG)) #define is_char_obj(o) (isimm(o, CHAR_ITAG)) #define is_char_char(i) ((void)(i), 1) #define is_char_bool(i) ((void)(i), 0) #define is_bool_char(i) ((void)(i), 0) #define is_char_fixnum(i) ((void)(i), 0) #define is_fixnum_char(i) ((void)(i), 0) #define is_char_flonum(i) ((void)(i), 0) #define is_flonum_char(i) ((void)(i), 0) #define char_from_obj(o) ((int)getimmu(o, CHAR_ITAG)) #define char_from_char(i) (i) #define bool_from_char(i) ((void)(i), 1) #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 sdatachars(d) ((char*)((d)+1)) #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 *newstringn(char *s, int n); 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) /* bytevectors */ extern cxtype_t *BYTEVECTOR_NTAG; #define isbytevector(o) (isnative(o, BYTEVECTOR_NTAG)) #define bytevectordata(o) ((int*)getnative(o, BYTEVECTOR_NTAG)) #define bvdatabytes(d) ((unsigned char*)((d)+1)) #define bytevectorlen(o) (*bytevectordata(o)) #define bytevectorbytes(o) (bvdatabytes(bytevectordata(o))) #define hpushu8v(l, s) hpushptr(s, BYTEVECTOR_NTAG, l) static int is_byte_obj(obj o) { return (obj_from_fixnum(0) <= o && o <= obj_from_fixnum(255)); } #define byte_from_obj(o) byte_from_fixnum(fixnum_from_obj(o)) #ifdef NDEBUG #define byte_from_fixnum(n) ((unsigned char)(n)) #else static unsigned char byte_from_fixnum(int n) { assert(0 <= n && n <= 255); return n; } #endif #define byte_from_obj(o) byte_from_fixnum(fixnum_from_obj(o)) #ifdef NDEBUG #define bytevectorref(o, i) (bytevectorbytes(o)+(i)) #else extern unsigned char* bytevectorref(obj o, int i); #endif extern int *newbytevector(unsigned char *s, int n); extern int *makebytevector(int n, int c); extern int *allocbytevector(int n); extern int *dupbytevector(int *d); extern int bytevectoreq(int *d0, int *d1); extern int *subbytevector(int *d, int from, int to); /* 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); /* records */ #define isrecord(o) istyped(o) #define recordrtd(r) *typedtype(r) #define recordlen(r) typedlen(r) #define recordref(r, i) *typedref(r, i) /* procedures */ extern int isprocedure(obj o); extern int procedurelen(obj o); extern obj* procedureref(obj o, int i); /* apply and dotted lambda list */ extern obj appcases[]; /* eof */ #define EOF_ITAG 7 #define mkeof() mkimm(0, EOF_ITAG) #define iseof(o) ((o) == mkimm(0, EOF_ITAG)) /* input ports */ typedef struct { /* extends cxtype_t */ const char *tname; void (*free)(void*); int (*close)(void*); int (*getch)(void*); int (*ungetch)(int, void*); } cxtype_iport_t; extern cxtype_t *IPORT_CLOSED_NTAG; extern cxtype_t *IPORT_FILE_NTAG; extern cxtype_t *IPORT_STRING_NTAG; extern cxtype_t *IPORT_BYTEVECTOR_NTAG; static cxtype_iport_t *iportvt(obj o) { cxtype_t *pt; if (!isobjptr(o)) return NULL; pt = (cxtype_t*)objptr_from_obj(o)[-1]; if (pt != IPORT_CLOSED_NTAG && pt != IPORT_FILE_NTAG && pt != IPORT_STRING_NTAG && pt != IPORT_BYTEVECTOR_NTAG) return NULL; else return (cxtype_iport_t*)pt; } #define ckiportvt(o) ((cxtype_iport_t*)cxm_cknull(iportvt(o), "iportvt")) #define isiport(o) (iportvt(o) != NULL) #define iportdata(o) ((void*)(*objptr_from_obj(o))) static int iportgetc(obj o) { cxtype_iport_t *vt = iportvt(o); void *pp = iportdata(o); assert(vt); return vt->getch(pp); } static int iportpeekc(obj o) { cxtype_iport_t *vt = iportvt(o); void *pp = iportdata(o); int c; assert(vt); c = vt->getch(pp); if (c != EOF) vt->ungetch(c, pp); return c; } /* closed input ports */ #define mkiport_file(l, fp) hpushptr(fp, IPORT_FILE_NTAG, l) /* string input ports */ typedef struct { char *p; void *base; } sifile_t; extern sifile_t *sialloc(char *p, void *base); #define mkiport_string(l, fp) hpushptr(fp, IPORT_STRING_NTAG, l) /* bytevector input ports */ typedef struct { unsigned char *p, *e; void *base; } bvifile_t; extern bvifile_t *bvialloc(unsigned char *p, unsigned char *e, void *base); #define mkiport_bytevector(l, fp) hpushptr(fp, IPORT_BYTEVECTOR_NTAG, l) /* output ports */ typedef struct { /* extends cxtype_t */ const char *tname; void (*free)(void*); int (*close)(void*); int (*putch)(int, void*); int (*flush)(void*); } cxtype_oport_t; extern cxtype_t *OPORT_CLOSED_NTAG; extern cxtype_t *OPORT_FILE_NTAG; extern cxtype_t *OPORT_STRING_NTAG; extern cxtype_t *OPORT_BYTEVECTOR_NTAG; static cxtype_oport_t *oportvt(obj o) { cxtype_t *pt; if (!isobjptr(o)) return NULL; pt = (cxtype_t*)objptr_from_obj(o)[-1]; if (pt != OPORT_CLOSED_NTAG && pt != OPORT_FILE_NTAG && pt != OPORT_STRING_NTAG && pt != OPORT_BYTEVECTOR_NTAG) return NULL; else return (cxtype_oport_t*)pt; } #define ckoportvt(o) ((cxtype_oport_t*)cxm_cknull(oportvt(o), "oportvt")) #define isoport(o) (oportvt(o) != NULL) #define oportdata(o) ((void*)(*objptr_from_obj(o))) static void oportputc(int c, obj o) { cxtype_oport_t *vt = oportvt(o); void *pp = oportdata(o); assert(vt); vt->putch(c, pp); } static void oportputs(char *s, obj o) { cxtype_oport_t *vt = oportvt(o); void *pp = oportdata(o); assert(vt); while (*s) vt->putch(*s++, pp); } static void oportwrite(char *s, int n, obj o) { cxtype_oport_t *vt = oportvt(o); void *pp = oportdata(o); assert(vt); while (n-- > 0) vt->putch(*s++, pp); } static void oportflush(obj o) { cxtype_oport_t *vt = oportvt(o); void *pp = oportdata(o); assert(vt); vt->flush(pp); } /* closed output ports */ #define mkoport_file(l, fp) hpushptr(fp, OPORT_FILE_NTAG, l) /* string output ports */ typedef struct cbuf_tag { char *buf; char *fill; char *end; } cbuf_t; extern cbuf_t* newcb(void); extern void freecb(cbuf_t* pcb); extern int cbputc(int c, cbuf_t* pcb); extern size_t cblen(cbuf_t* pcb); extern char* cbdata(cbuf_t* pcb); #define mkoport_string(l, fp) hpushptr(fp, OPORT_STRING_NTAG, l) /* bytevector output ports */ #define mkoport_bytevector(l, fp) hpushptr(fp, OPORT_BYTEVECTOR_NTAG, l) extern int iscircular(obj x); 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); /* S-expression writers */ extern void oportputsimple(obj x, obj p, int disp); extern void oportputcircular(obj x, obj p, int disp); extern void oportputshared(obj x, obj p, int disp); #include "i.h" /* cx globals */ extern obj cx__25append; /* %append */ extern obj cx__25read; /* %read */ extern obj cx__25residual_2Dcadr; /* %residual-cadr */ extern obj cx__25residual_2Dcdr; /* %residual-cdr */ extern obj cx__25residual_2Dcons; /* %residual-cons */ extern obj cx__25residual_2Dlist; /* %residual-list */ extern obj cx__25residual_2Dmap; /* %residual-map */ extern obj cx__2Acurrent_2Derror_2Dport_2A; /* *current-error-port* */ extern obj cx__2Acurrent_2Dinput_2Dport_2A; /* *current-input-port* */ extern obj cx__2Acurrent_2Doutput_2Dport_2A; /* *current-output-port* */ extern obj cx_apply; /* apply */ extern obj cx_call_2Dwith_2Dcurrent_2Dcontinuation; /* call-with-current-continuation */ extern obj cx_close_2Dinput_2Dport; /* close-input-port */ extern obj cx_command_2Dline; /* command-line */ extern obj cx_error; /* error */ extern obj cx_file_2Derror; /* file-error */ extern obj cx_fixnum_2D_3Estring; /* fixnum->string */ extern obj cx_flonum_2D_3Estring; /* flonum->string */ extern obj cx_list_2D_3Estring; /* list->string */ extern obj cx_list_2D_3Evector; /* list->vector */ extern obj cx_string_2D_3Elist; /* string->list */ extern obj cx_vector_2D_3Elist; /* vector->list */ extern obj cx_write_2Dserialized_2Dsexp; /* write-serialized-sexp */ obj cx__25residual_2Dlocation_2Dset_2Dval_21; /* %residual-location-set-val! */ obj cx__25residual_2Dlocation_2Dval; /* %residual-location-val */ obj cx__25residual_2Dmake_2Dlocation; /* %residual-make-location */ obj cx__25residual_2Dtty_2Dport_3F; /* %residual-tty-port? */ obj cx__25residual_2Dval_2Dcore_3F; /* %residual-val-core? */ obj cx__2Acurrent_2Derror_2A; /* *current-error* */ obj cx__2Acurrent_2Dinput_2A; /* *current-input* */ obj cx__2Acurrent_2Doutput_2A; /* *current-output* */ obj cx__2Adynamic_2Dstate_2A; /* *dynamic-state* */ obj cx__2Aglobals_2A; /* *globals* */ obj cx__2Ahide_2Drefs_2A; /* *hide-refs* */ obj cx__2Areset_2A; /* *reset* */ obj cx__2Atop_2Dtransformer_2Denv_2A; /* *top-transformer-env* */ obj cx__2Atransformers_2A; /* *transformers* */ obj cx__2Averbose_2A; /* *verbose* */ obj cx_add_2Dlocation; /* add-location */ obj cx_add_2Dvar; /* add-var */ obj cx_andmap; /* andmap */ obj cx_benchmark_2Dfile; /* benchmark-file */ obj cx_c_2Derror; /* c-error */ obj cx_callmv_2Dadapter_2Dclosure; /* callmv-adapter-closure */ obj cx_codegen; /* codegen */ obj cx_compile_2Dto_2Dstring; /* compile-to-string */ obj cx_continuation_2Dadapter_2Dcode; /* continuation-adapter-code */ obj cx_debug_2Drepl; /* debug-repl */ obj cx_decode; /* decode */ obj cx_decode_2Dsexp; /* decode-sexp */ obj cx_display_2Dcode; /* display-code */ obj cx_error_2A; /* error* */ obj cx_evaluate; /* evaluate */ obj cx_execute; /* execute */ obj cx_execute_2Dthunk_2Dclosure; /* execute-thunk-closure */ obj cx_extend_2Dxenv; /* extend-xenv */ obj cx_find_2Dfree; /* find-free */ obj cx_find_2Dfree_2A; /* find-free* */ obj cx_find_2Dsets; /* find-sets */ obj cx_find_2Dsets_2A; /* find-sets* */ obj cx_flatten_2Didslist; /* flatten-idslist */ obj cx_gensym; /* gensym */ obj cx_id_2D_3Esym; /* id->sym */ obj cx_id_3F; /* id? */ obj cx_idslist_2Dreq_2Dcount; /* idslist-req-count */ obj cx_idslist_3F; /* idslist? */ obj cx_initialize_2Dmodules; /* initialize-modules */ obj cx_install_2Dglobal_2Dlambdas; /* install-global-lambdas */ obj cx_install_2Dtransformer_21; /* install-transformer! */ obj cx_integrable_2Dargc_2Dmatch_3F; /* integrable-argc-match? */ obj cx_integrable_2Dcode; /* integrable-code */ obj cx_integrable_2Dglobal; /* integrable-global */ obj cx_integrable_2Dtype; /* integrable-type */ obj cx_integrable_3F; /* integrable? */ obj cx_list_2Ddiff; /* list-diff */ obj cx_list1_2B_3F; /* list1+? */ obj cx_list1_3F; /* list1? */ obj cx_list2_2B_3F; /* list2+? */ obj cx_list2_3F; /* list2? */ obj cx_location_2Dspecial_3F; /* location-special? */ obj cx_lookup_2Dintegrable; /* lookup-integrable */ obj cx_main; /* main */ obj cx_make_2Dclosure; /* make-closure */ obj cx_module_2Dname; /* module-name */ obj cx_new_2Did; /* new-id */ obj cx_normalize_2Darity; /* normalize-arity */ obj cx_old_2Dden; /* old-den */ obj cx_old_2Dsym; /* old-sym */ obj cx_pair_2A; /* pair* */ obj cx_path_2Dstrip_2Ddirectory; /* path-strip-directory */ obj cx_path_2Dstrip_2Dextension; /* path-strip-extension */ obj cx_posq; /* posq */ obj cx_process_2Dalias; /* process-alias */ obj cx_process_2Dcommand; /* process-command */ obj cx_process_2Ddefine; /* process-define */ obj cx_process_2Dfile; /* process-file */ obj cx_process_2Dsyntax; /* process-syntax */ obj cx_process_2Dtop_2Dform; /* process-top-form */ obj cx_repl_2Deval; /* repl-eval */ obj cx_repl_2Deval_2Dtop_2Dform; /* repl-eval-top-form */ obj cx_repl_2Dfile; /* repl-file */ obj cx_repl_2Dfrom_2Dport; /* repl-from-port */ obj cx_repl_2Dread; /* repl-read */ obj cx_run_2Dtests; /* run-tests */ obj cx_scan_2Dtop_2Dform; /* scan-top-form */ obj cx_service_2Drepl; /* service-repl */ obj cx_set_2Dcons; /* set-cons */ obj cx_set_2Dintersect; /* set-intersect */ obj cx_set_2Dmember_3F; /* set-member? */ obj cx_set_2Dminus; /* set-minus */ obj cx_set_2Dunion; /* set-union */ obj cx_syntax_2Dmatch_3F; /* syntax-match? */ obj cx_syntax_2Drules_2A; /* syntax-rules* */ obj cx_tcode_2Drepl; /* tcode-repl */ obj cx_test1; /* test1 */ obj cx_test2; /* test2 */ obj cx_test3; /* test3 */ obj cx_test4; /* test4 */ obj cx_test5; /* test5 */ obj cx_top_2Dtransformer_2Denv; /* top-transformer-env */ obj cx_transform; /* transform */ obj cx_write_2Dserialized_2Darg; /* write-serialized-arg */ obj cx_write_2Dserialized_2Dbyte; /* write-serialized-byte */ obj cx_write_2Dserialized_2Dchar; /* write-serialized-char */ obj cx_write_2Dserialized_2Delement; /* write-serialized-element */ obj cx_write_2Dserialized_2Dsexp; /* write-serialized-sexp */ obj cx_write_2Dserialized_2Dsize; /* write-serialized-size */ obj cx_x_2Derror; /* x-error */ obj cx_xform; /* xform */ obj cx_xform_2Dbegin; /* xform-begin */ obj cx_xform_2Dbody; /* xform-body */ obj cx_xform_2Dcall; /* xform-call */ obj cx_xform_2Ddefine; /* xform-define */ obj cx_xform_2Ddefine_2Dsyntax; /* xform-define-syntax */ obj cx_xform_2Dif; /* xform-if */ obj cx_xform_2Dintegrable; /* xform-integrable */ obj cx_xform_2Dlabels; /* xform-labels */ obj cx_xform_2Dlambda; /* xform-lambda */ obj cx_xform_2Dlambda_2A; /* xform-lambda* */ obj cx_xform_2Dletcc; /* xform-letcc */ obj cx_xform_2Dquote; /* xform-quote */ obj cx_xform_2Dref; /* xform-ref */ obj cx_xform_2Dset_21; /* xform-set! */ obj cx_xform_2Dset_26; /* xform-set& */ obj cx_xform_2Dsexp_2D_3Edatum; /* xform-sexp->datum */ obj cx_xform_2Dsyntax_2Derror; /* xform-syntax-error */ obj cx_xform_2Dsyntax_2Dlambda; /* xform-syntax-lambda */ obj cx_xform_2Dsyntax_2Dlength; /* xform-syntax-length */ obj cx_xform_2Dsyntax_2Drules; /* xform-syntax-rules */ obj cx_xform_2Dwithcc; /* xform-withcc */ static obj cx__231051; /* constant #1051 */ static obj cx__231063; /* constant #1063 */ static obj cx__231135; /* constant #1135 */ static obj cx__231249; /* constant #1249 */ static obj cx__231257; /* constant #1257 */ static obj cx__231283; /* constant #1283 */ static obj cx__231303; /* constant #1303 */ static obj cx__231328; /* constant #1328 */ static obj cx__231785; /* constant #1785 */ static obj cx__231819; /* constant #1819 */ static obj cx__231854; /* constant #1854 */ static obj cx__231950; /* constant #1950 */ static obj cx__231971; /* constant #1971 */ static obj cx__232315; /* constant #2315 */ static obj cx__232622; /* constant #2622 */ static obj cx__232787; /* constant #2787 */ static obj cx__232925; /* constant #2925 */ static obj cx__232930; /* constant #2930 */ static obj cx__232934; /* constant #2934 */ static obj cx__232958; /* constant #2958 */ static obj cx__232959; /* constant #2959 */ static obj cx__232968; /* constant #2968 */ static obj cx__232969; /* constant #2969 */ static obj cx__232980; /* constant #2980 */ static obj cx__233003; /* constant #3003 */ static obj cx__233064; /* constant #3064 */ static obj cx__233068; /* constant #3068 */ static obj cx__233189; /* constant #3189 */ static obj cx__233225; /* constant #3225 */ static obj cx__233233; /* constant #3233 */ static obj cx__233234; /* constant #3234 */ static obj cx__233235; /* constant #3235 */ static obj cx__233236; /* constant #3236 */ static obj cx__233237; /* constant #3237 */ static obj cx__233260; /* constant #3260 */ static obj cx__233264; /* constant #3264 */ static obj cx__23334; /* constant #334 */ static obj cx__233534; /* constant #3534 */ static obj cx__233736; /* constant #3736 */ static obj cx__234138; /* constant #4138 */ static obj cx__234268; /* constant #4268 */ static obj cx__23428; /* constant #428 */ static obj cx__23441; /* constant #441 */ static obj cx__23450; /* constant #450 */ static obj cx__23460; /* constant #460 */ static obj cx__234678; /* constant #4678 */ static obj cx__23470; /* constant #470 */ static obj cx__234702; /* constant #4702 */ static obj cx__234703; /* constant #4703 */ static obj cx__234759; /* constant #4759 */ static obj cx__234766; /* constant #4766 */ static obj cx__234773; /* constant #4773 */ static obj cx__234775; /* constant #4775 */ static obj cx__23483; /* constant #483 */ static obj cx__234831; /* constant #4831 */ static obj cx__234863; /* constant #4863 */ static obj cx__234868; /* constant #4868 */ static obj cx__234869; /* constant #4869 */ static obj cx__234882; /* constant #4882 */ static obj cx__234888; /* constant #4888 */ static obj cx__234903; /* constant #4903 */ static obj cx__234909; /* constant #4909 */ static obj cx__234928; /* constant #4928 */ static obj cx__234932; /* constant #4932 */ static obj cx__234935; /* constant #4935 */ static obj cx__234941; /* constant #4941 */ static obj cx__234949; /* constant #4949 */ static obj cx__234957; /* constant #4957 */ static obj cx__23496; /* constant #496 */ static obj cx__23502; /* constant #502 */ static obj cx__23517; /* constant #517 */ static obj cx__23535; /* constant #535 */ static obj cx__23545; /* constant #545 */ static obj cx__23566; /* constant #566 */ static obj cx__23826; /* constant #826 */ static obj cx__23869; /* constant #869 */ static obj cx__23871; /* constant #871 */ static obj cx__23910; /* constant #910 */ static obj cx__23926; /* constant #926 */ static obj cx__23969; /* constant #969 */ static obj cx__23976; /* constant #976 */ static obj cx__2398; /* constant #98 */ static obj cx__23989; /* constant #989 */ /* helper functions */ /* set-member? */ static obj cxs_set_2Dmember_3F(obj v2_x, obj v1_s) { s_set_2Dmember_3F: if ((isnull((v1_s)))) { return obj_from_bool(0); } else { if (((v2_x) == (car((v1_s))))) { return obj_from_bool(1); } else { { /* let */ obj v5394_tmp = (cdr((v1_s))); obj v5393_tmp = (v2_x); /* tail call */ v2_x = (v5393_tmp); v1_s = (v5394_tmp); goto s_set_2Dmember_3F; } } } } /* syntax-match? */ static obj cxs_syntax_2Dmatch_3F(obj v41_pat, obj v40_exp) { s_syntax_2Dmatch_3F: if (((v41_pat) == (mksymbol(internsym("*"))))) { return obj_from_bool((v41_pat) == (mksymbol(internsym("*")))); } else { { /* let */ obj v48_x = obj_from_bool(isequal((v40_exp), (v41_pat))); if (bool_from_obj(v48_x)) { return (v48_x); } else { if ((ispair((v41_pat)))) { { /* let */ obj v5387_tmp; { /* let */ obj v5391_tmp; { /* let */ obj v5392_tmp; { static obj o = 0; static char s[] = { 36, 0 }; v5392_tmp = (o ? o : (o = mksymbol(internsym(s)))); }; v5391_tmp = obj_from_bool((car((v41_pat))) == (v5392_tmp)); } v5387_tmp = (bool_from_obj(v5391_tmp) ? ((ispair((cdr((v41_pat))))) ? obj_from_bool(isnull((cdr((cdr((v41_pat))))))) : obj_from_bool(0)) : obj_from_bool(0)); } if (bool_from_obj(v5387_tmp)) { return obj_from_bool((v40_exp) == (car((cdr((v41_pat)))))); } else { if (bool_from_obj((ispair((cdr((v41_pat))))) ? (((car((cdr((v41_pat))))) == (mksymbol(internsym("...")))) ? obj_from_bool(isnull((cdr((cdr((v41_pat))))))) : obj_from_bool(0)) : obj_from_bool(0))) { { /* let */ obj v56_pat = (car((v41_pat))); { /* letrec */ obj v58_lst; /* tail call */ v58_lst = (v40_exp); goto s_f; s_f: if ((isnull((v58_lst)))) { return obj_from_bool(isnull((v58_lst))); } else { if ((ispair((v58_lst)))) { if (bool_from_obj(cxs_syntax_2Dmatch_3F((v56_pat), (car((v58_lst)))))) { { /* let */ obj v5390_tmp = (cdr((v58_lst))); /* tail call */ v58_lst = (v5390_tmp); goto s_f; } } else { return obj_from_bool(0); } } else { return obj_from_bool(0); } } } } } else { if ((ispair((v40_exp)))) { if (bool_from_obj(cxs_syntax_2Dmatch_3F((car((v41_pat))), (car((v40_exp)))))) { { /* let */ obj v5389_tmp = (cdr((v40_exp))); obj v5388_tmp = (cdr((v41_pat))); /* tail call */ v41_pat = (v5388_tmp); v40_exp = (v5389_tmp); goto s_syntax_2Dmatch_3F; } } else { return obj_from_bool(0); } } else { return obj_from_bool(0); } } } } } else { return obj_from_bool(0); } } } } } /* posq */ static obj cxs_posq(obj v117_x, obj v116_l) { { /* letrec */ obj v120_l; obj v119_n; { /* let */ obj v5386_tmp = obj_from_fixnum(+0); obj v5385_tmp = (v116_l); /* tail call */ v120_l = (v5385_tmp); v119_n = (v5386_tmp); goto s_loop; } s_loop: if ((isnull((v120_l)))) { return obj_from_bool(0); } else { if (((v117_x) == (car((v120_l))))) { return (v119_n); } else { { /* let */ obj v5384_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v119_n), (+1))); obj v5383_tmp = (cdr((v120_l))); /* tail call */ v120_l = (v5383_tmp); v119_n = (v5384_tmp); goto s_loop; } } } } } /* list1? */ static obj cxs_list1_3F(obj v163_x) { return ((ispair((v163_x))) ? obj_from_bool(isnull((cdr((v163_x))))) : obj_from_bool(0)); } /* list1+? */ static obj cxs_list1_2B_3F(obj v168_x) { return ((ispair((v168_x))) ? obj_from_bool(islist((cdr((v168_x))))) : obj_from_bool(0)); } /* list2? */ static obj cxs_list2_3F(obj v173_x) { return ((ispair((v173_x))) ? (cxs_list1_3F((cdr((v173_x))))) : obj_from_bool(0)); } /* list2+? */ static obj cxs_list2_2B_3F(obj v177_x) { return ((ispair((v177_x))) ? (cxs_list1_2B_3F((cdr((v177_x))))) : obj_from_bool(0)); } /* idslist-req-count */ static obj cxs_idslist_2Dreq_2Dcount(obj v237_ilist) { return ((ispair((v237_ilist))) ? obj_from_fixnum(fxadd((+1), fixnum_from_obj(cxs_idslist_2Dreq_2Dcount((cdr((v237_ilist))))))) : obj_from_fixnum(+0)); } /* id? */ static obj cxs_id_3F(obj v275_x) { return ((issymbol((v275_x))) ? obj_from_bool(issymbol((v275_x))) : obj_from_bool(isprocedure((v275_x)))); } /* gc roots */ static obj *globv[] = { &cx__2Acurrent_2Derror_2A, &cx__2Acurrent_2Dinput_2A, &cx__2Acurrent_2Doutput_2A, &cx__2Adynamic_2Dstate_2A, &cx__2Aglobals_2A, &cx__2Ahide_2Drefs_2A, &cx__2Areset_2A, &cx__2Atop_2Dtransformer_2Denv_2A, &cx__2Atransformers_2A, &cx__2Averbose_2A, &cx_c_2Derror, &cx_callmv_2Dadapter_2Dclosure, &cx_continuation_2Dadapter_2Dcode, &cx_decode, &cx_decode_2Dsexp, &cx_execute_2Dthunk_2Dclosure, &cx_gensym, &cx_initialize_2Dmodules, &cx_install_2Dglobal_2Dlambdas, &cx_integrable_2Dcode, &cx_integrable_2Dglobal, &cx_integrable_2Dtype, &cx_integrable_3F, &cx_lookup_2Dintegrable, &cx_make_2Dclosure, &cx_pair_2A, &cx_test1, &cx_test2, &cx_test3, &cx_test4, &cx_test5, &cx_transform, &cx_x_2Derror, &cx__231051, &cx__231063, &cx__231135, &cx__231249, &cx__231257, &cx__231283, &cx__231303, &cx__231328, &cx__231785, &cx__231819, &cx__231854, &cx__231950, &cx__231971, &cx__232315, &cx__232622, &cx__232787, &cx__232925, &cx__232930, &cx__232934, &cx__232958, &cx__232959, &cx__232968, &cx__232969, &cx__232980, &cx__233003, &cx__233064, &cx__233068, &cx__233189, &cx__233225, &cx__233233, &cx__233234, &cx__233235, &cx__233236, &cx__233237, &cx__233260, &cx__233264, &cx__23334, &cx__233534, &cx__233736, &cx__234138, &cx__234268, &cx__23428, &cx__23441, &cx__23450, &cx__23460, &cx__234678, &cx__23470, &cx__234702, &cx__234703, &cx__234759, &cx__234766, &cx__234773, &cx__234775, &cx__23483, &cx__234831, &cx__234863, &cx__234868, &cx__234869, &cx__234882, &cx__234888, &cx__234903, &cx__234909, &cx__234928, &cx__234932, &cx__234935, &cx__234941, &cx__234949, &cx__234957, &cx__23496, &cx__23502, &cx__23517, &cx__23535, &cx__23545, &cx__23566, &cx__23826, &cx__23869, &cx__23871, &cx__23910, &cx__23926, &cx__23969, &cx__23976, &cx__2398, &cx__23989, }; static cxroot_t root = { sizeof(globv)/sizeof(obj *), globv, NULL }; /* entry points */ static obj host(obj); static obj cases[588] = { (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, (obj)host, }; /* host procedure */ #define MAX_HOSTREGS 52 static obj host(obj pc) { register obj *r = cxg_regs; register obj *hp = cxg_hp; register int rc = cxg_rc; rreserve(MAX_HOSTREGS); jump: switch (case_from_obj(pc)) { case 0: /* load module */ cx__2398 = (hpushstr(0, newstring("#"))); cx__23334 = (hpushstr(0, newstring("transformer: "))); cx__23428 = (hpushstr(0, newstring("improper use of syntax form"))); cx__23441 = (hpushstr(0, newstring("improper use of ..."))); cx__23450 = (hpushstr(0, newstring("improper quote form"))); cx__23460 = (hpushstr(0, newstring("improper set! form"))); cx__23470 = (hpushstr(0, newstring("set! to non-identifier form"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("begin"))); *--hp = obj_from_size(PAIR_BTAG); cx__23483 = (hendblk(3)); } cx__23496 = (hpushstr(0, newstring("improper set& form"))); cx__23502 = (hpushstr(0, newstring("set& of a non-variable"))); cx__23517 = (hpushstr(0, newstring("improper if form"))); cx__23535 = (hpushstr(0, newstring("malformed if form"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("begin"))); *--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); cx__23545 = (hendblk(3)); } cx__23566 = (hpushstr(0, newstring("improper application"))); cx__23826 = (hpushstr(0, newstring("improper lambda body"))); cx__23869 = (hpushstr(0, newstring("improper lambda* form"))); cx__23871 = (hpushstr(0, newstring("improper lambda* clause"))); cx__23910 = (hpushstr(0, newstring("improper letcc form"))); cx__23926 = (hpushstr(0, newstring("improper withcc form"))); cx__23969 = (hpushstr(0, newstring("improper define-syntax form"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("undefined"))); *--hp = obj_from_size(PAIR_BTAG); cx__23976 = (hendblk(3)); } cx__23989 = (hpushstr(0, newstring("improper define form"))); cx__231051 = (hpushstr(0, newstring("improper begin form"))); cx__231063 = (hpushstr(0, newstring("improper body form"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("begin"))); *--hp = obj_from_size(PAIR_BTAG); cx__231135 = (hendblk(3)); } cx__231249 = (hpushstr(0, newstring("improper syntax-lambda body"))); cx__231257 = (hpushstr(0, newstring("invalif syntax-lambda application"))); cx__231283 = (hpushstr(0, newstring("improper syntax-rules form"))); cx__231303 = (hpushstr(0, newstring("improper syntax-length form"))); cx__231328 = (hpushstr(0, newstring("improper syntax-error form"))); cx__231785 = (hpushstr(0, newstring("invalid syntax"))); cx__231819 = (hpushstr(0, newstring("compiler: "))); cx__231854 = (hpushstr(0, newstring("cannot encode literal"))); cx__231950 = (hpushstr(0, newstring("0123456789"))); cx__231971 = (hpushstr(0, newstring("misplaced define form"))); cx__232315 = (hpushstr(0, newstring("unsupported integrable type"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("lambda"))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("ref"))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("quote"))); *--hp = obj_from_size(PAIR_BTAG); cx__232622 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("begin"))); *--hp = obj_from_size(PAIR_BTAG); cx__232787 = (hendblk(3)); } { static char s[] = { 34, 10, 0 }; cx__232925 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 32, 34, 0 }; cx__232930 = (hpushstr(0, newstring(s))); } { static char s[] = { 34, 44, 0 }; cx__232934 = (hpushstr(0, newstring(s))); } { static char s[] = { 34, 44, 10, 0 }; cx__232958 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 32, 34, 83, 34, 44, 32, 34, 0 }; cx__232959 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 34, 0 }; cx__232968 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 32, 34, 65, 34, 44, 32, 34, 0 }; cx__232969 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 32, 34, 67, 34, 44, 32, 48, 44, 10, 0 }; cx__232980 = (hpushstr(0, newstring(s))); } { static char s[] = { 32, 32, 34, 80, 34, 44, 32, 34, 0 }; cx__233003 = (hpushstr(0, newstring(s))); } cx__233064 = (hpushstr(0, newstring("r"))); cx__233068 = (hpushstr(0, newstring("cannot open input file"))); { /* 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(92); *--hp = obj_from_size(PAIR_BTAG); cx__233189 = (hendblk(3)); } { static char s[] = { 10, 32, 32, 48, 44, 32, 48, 44, 32, 48, 10, 125, 59, 10, 0 }; cx__233225 = (hpushstr(0, newstring(s))); } cx__233233 = (hpushstr(0, newstring("_code[] = {"))); cx__233234 = (hpushstr(0, newstring("char *"))); cx__233235 = (hpushstr(0, newstring(" */"))); cx__233236 = (hpushstr(0, newstring(".c -- generated via skint -c "))); cx__233237 = (hpushstr(0, newstring("/* "))); cx__233260 = (hpushstr(0, newstring("K5"))); { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("string"))); cx__234766 = (hpushstr(0, newstring("COMPILE-TO-STRING =>"))); cx__234773 = (hpushstr(0, newstring("unexpected transformed output"))); cx__234775 = (hpushstr(0, newstring("TRANSFORM =>"))); { static char s[] = { 10, 115, 101, 114, 118, 105, 99, 101, 62, 32, 0 }; cx__234831 = (hpushstr(0, newstring(s))); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("main"))); *--hp = obj_from_size(PAIR_BTAG); cx__234863 = (hendblk(3)); } cx__234868 = (hpushstr(0, newstring("unexpected benchmark file format"))); r[0] = (hpushstr(0, newstring("libl.sf"))); { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = (mknull()); *--hp = r[0]; *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = (mksymbol(internsym("load"))); *--hp = obj_from_size(PAIR_BTAG); cx__234869 = (hendblk(3)); } { static char s[] = { 36, 123, 64, 40, 121, 52, 58, 114, 101, 112, 108, 41, 91, 48, 48, 125, 0 }; cx__234882 = (hpushstr(0, newstring(s))); } { static char s[] = { 73, 110, 118, 97, 108, 105, 100, 32, 99, 111, 109, 109, 97, 110, 100, 46, 32, 32, 84, 121, 112, 101, 32, 63, 32, 102, 111, 114, 32, 111, 112, 116, 105, 111, 110, 115, 46, 10, 0 }; cx__234888 = (hpushstr(0, newstring(s))); } { static char s[] = { 10, 84, 121, 112, 101, 32, 114, 32, 116, 111, 32, 103, 101, 116, 32, 98, 97, 99, 107, 32, 116, 111, 32, 114, 101, 112, 108, 10, 32, 32, 32, 32, 32, 97, 32, 116, 111, 32, 97, 98, 111, 114, 116, 32, 115, 99, 104, 101, 109, 101, 10, 32, 32, 32, 32, 32, 115, 32, 116, 111, 32, 114, 117, 110, 32, 115, 101, 114, 118, 105, 99, 101, 32, 114, 101, 112, 108, 10, 0 }; cx__234903 = (hpushstr(0, newstring(s))); } { static char s[] = { 10, 100, 101, 98, 117, 103, 62, 32, 0 }; cx__234909 = (hpushstr(0, newstring(s))); } r[0] = (hpushstr(0, newstring("-i"))); { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = (mknull()); *--hp = r[0]; *--hp = obj_from_size(PAIR_BTAG); cx__234928 = (hendblk(3)); } r[0] = (hpushstr(0, newstring("-v"))); { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = (mknull()); *--hp = r[0]; *--hp = obj_from_size(PAIR_BTAG); cx__234932 = (hendblk(3)); } r[0] = (hpushstr(0, newstring("-t"))); { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = (mknull()); *--hp = r[0]; *--hp = obj_from_size(PAIR_BTAG); cx__234935 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("*"))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } r[1] = (hpushstr(1, newstring("-b"))); { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); cx__234941 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("*"))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } r[1] = (hpushstr(1, newstring("-l"))); { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); cx__234949 = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("*"))); *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } r[1] = (hpushstr(1, newstring("-c"))); { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); cx__234957 = (hendblk(3)); } { static obj c[] = { obj_from_case(1) }; cx_set_2Dmember_3F = (obj)c; } { static obj c[] = { obj_from_case(2) }; cx_set_2Dcons = (obj)c; } { static obj c[] = { obj_from_case(3) }; cx_set_2Dunion = (obj)c; } { static obj c[] = { obj_from_case(5) }; cx_set_2Dminus = (obj)c; } { static obj c[] = { obj_from_case(7) }; cx_set_2Dintersect = (obj)c; } { static obj c[] = { obj_from_case(9) }; cx_syntax_2Dmatch_3F = (obj)c; } hreserve(hbsz(1), 0); /* 0 live regs */ *--hp = obj_from_fixnum(+0); r[0] = (hendblk(1)); hreserve(hbsz(1+1), 1); /* 1 live regs */ *--hp = r[0]; *--hp = obj_from_case(10); r[1] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[1]; *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); cx_gensym = (hendblk(3)); } { static obj c[] = { obj_from_case(13) }; cx_posq = (obj)c; } { static obj c[] = { obj_from_case(14) }; cx_list_2Ddiff = (obj)c; } hreserve(hbsz(0+1), 0); /* 0 live regs */ *--hp = obj_from_case(16); r[0] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = obj_from_fixnum(+1); *--hp = obj_from_objptr(appcases+1); cx_pair_2A = (hendblk(3)); } { static obj c[] = { obj_from_case(18) }; cx_andmap = (obj)c; } { static obj c[] = { obj_from_case(20) }; cx_list1_3F = (obj)c; } { static obj c[] = { obj_from_case(21) }; cx_list1_2B_3F = (obj)c; } { static obj c[] = { obj_from_case(22) }; cx_list2_3F = (obj)c; } { static obj c[] = { obj_from_case(23) }; cx_list2_2B_3F = (obj)c; } { /* define integrable? */ static obj c[] = { obj_from_objptr(vmcases+8) }; cx_integrable_3F = obj_from_objptr(c); } { /* define lookup-integrable */ static obj c[] = { obj_from_objptr(vmcases+9) }; cx_lookup_2Dintegrable = obj_from_objptr(c); } { /* define integrable-type */ static obj c[] = { obj_from_objptr(vmcases+10) }; cx_integrable_2Dtype = obj_from_objptr(c); } { /* define integrable-global */ static obj c[] = { obj_from_objptr(vmcases+11) }; cx_integrable_2Dglobal = obj_from_objptr(c); } { /* define integrable-code */ static obj c[] = { obj_from_objptr(vmcases+12) }; cx_integrable_2Dcode = obj_from_objptr(c); } { static obj c[] = { obj_from_case(24) }; cx_idslist_3F = (obj)c; } { static obj c[] = { obj_from_case(25) }; cx_normalize_2Darity = (obj)c; } { static obj c[] = { obj_from_case(26) }; cx_flatten_2Didslist = (obj)c; } { static obj c[] = { obj_from_case(27) }; cx_idslist_2Dreq_2Dcount = (obj)c; } { static obj c[] = { obj_from_case(28) }; cx__25residual_2Dval_2Dcore_3F = (obj)c; } { static obj c[] = { obj_from_case(29) }; cx__25residual_2Dmake_2Dlocation = (obj)c; } { static obj c[] = { obj_from_case(30) }; cx__25residual_2Dlocation_2Dval = (obj)c; } { static obj c[] = { obj_from_case(31) }; cx__25residual_2Dlocation_2Dset_2Dval_21 = (obj)c; } { static obj c[] = { obj_from_case(32) }; cx_location_2Dspecial_3F = (obj)c; } { static obj c[] = { obj_from_case(33) }; cx_new_2Did = (obj)c; } { static obj c[] = { obj_from_case(35) }; cx_old_2Dsym = (obj)c; } { static obj c[] = { obj_from_case(37) }; cx_old_2Dden = (obj)c; } { static obj c[] = { obj_from_case(39) }; cx_id_3F = (obj)c; } { static obj c[] = { obj_from_case(40) }; cx_id_2D_3Esym = (obj)c; } { static obj c[] = { obj_from_case(42) }; cx_extend_2Dxenv = (obj)c; } { static obj c[] = { obj_from_case(44) }; cx_add_2Dlocation = (obj)c; } { static obj c[] = { obj_from_case(45) }; cx_add_2Dvar = (obj)c; } { static obj c[] = { obj_from_case(46) }; cx_xform_2Dsexp_2D_3Edatum = (obj)c; } hreserve(hbsz(0+1), 0); /* 0 live regs */ *--hp = obj_from_case(54); r[0] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = obj_from_fixnum(+1); *--hp = obj_from_objptr(appcases+1); cx_x_2Derror = (hendblk(3)); } { static obj c[] = { obj_from_case(55) }; cx_xform = (obj)c; } { static obj c[] = { obj_from_case(63) }; cx_xform_2Dref = (obj)c; } { static obj c[] = { obj_from_case(65) }; cx_xform_2Dquote = (obj)c; } { static obj c[] = { obj_from_case(67) }; cx_xform_2Dset_21 = (obj)c; } { static obj c[] = { obj_from_case(70) }; cx_xform_2Dset_26 = (obj)c; } { static obj c[] = { obj_from_case(72) }; cx_xform_2Dif = (obj)c; } { static obj c[] = { obj_from_case(77) }; cx_xform_2Dcall = (obj)c; } { static obj c[] = { obj_from_case(81) }; cx_integrable_2Dargc_2Dmatch_3F = (obj)c; } { static obj c[] = { obj_from_case(82) }; cx_xform_2Dintegrable = (obj)c; } { static obj c[] = { obj_from_case(89) }; cx_xform_2Dlambda = (obj)c; } { static obj c[] = { obj_from_case(101) }; cx_xform_2Dlambda_2A = (obj)c; } { static obj c[] = { obj_from_case(108) }; cx_xform_2Dletcc = (obj)c; } { static obj c[] = { obj_from_case(113) }; cx_xform_2Dwithcc = (obj)c; } { static obj c[] = { obj_from_case(116) }; cx_xform_2Dbody = (obj)c; } { static obj c[] = { obj_from_case(130) }; cx_xform_2Dlabels = (obj)c; } { static obj c[] = { obj_from_case(142) }; cx_xform_2Dbegin = (obj)c; } { static obj c[] = { obj_from_case(146) }; cx_xform_2Ddefine = (obj)c; } { static obj c[] = { obj_from_case(152) }; cx_xform_2Ddefine_2Dsyntax = (obj)c; } { static obj c[] = { obj_from_case(155) }; cx_xform_2Dsyntax_2Dlambda = (obj)c; } { static obj c[] = { obj_from_case(163) }; cx_xform_2Dsyntax_2Drules = (obj)c; } { static obj c[] = { obj_from_case(168) }; cx_xform_2Dsyntax_2Dlength = (obj)c; } { static obj c[] = { obj_from_case(169) }; cx_xform_2Dsyntax_2Derror = (obj)c; } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mksymbol(internsym("_"))); *--hp = (mksymbol(internsym("_"))); *--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)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = (mksymbol(internsym("..."))); *--hp = (mksymbol(internsym("..."))); *--hp = obj_from_size(PAIR_BTAG); r[1] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[0] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = (mksymbol(internsym("export"))); *--hp = (mksymbol(internsym("export"))); *--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 = (mksymbol(internsym("import"))); *--hp = (mksymbol(internsym("import"))); *--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 = (mksymbol(internsym("program"))); *--hp = (mksymbol(internsym("program"))); *--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 = (mksymbol(internsym("define-library"))); *--hp = (mksymbol(internsym("define-library"))); *--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 = (mksymbol(internsym("syntax-error"))); *--hp = (mksymbol(internsym("syntax-error"))); *--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 = (mksymbol(internsym("syntax-length"))); *--hp = (mksymbol(internsym("syntax-length"))); *--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 = (mksymbol(internsym("syntax-rules"))); *--hp = (mksymbol(internsym("syntax-rules"))); *--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 = (mksymbol(internsym("syntax-lambda"))); *--hp = (mksymbol(internsym("syntax-lambda"))); *--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 = (mksymbol(internsym("define-syntax"))); *--hp = (mksymbol(internsym("define-syntax"))); *--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 = (mksymbol(internsym("define"))); *--hp = (mksymbol(internsym("define"))); *--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 = (mksymbol(internsym("begin"))); *--hp = (mksymbol(internsym("begin"))); *--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 = (mksymbol(internsym("body"))); *--hp = (mksymbol(internsym("body"))); *--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 = (mksymbol(internsym("withcc"))); *--hp = (mksymbol(internsym("withcc"))); *--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 = (mksymbol(internsym("letcc"))); *--hp = (mksymbol(internsym("letcc"))); *--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 = (mksymbol(internsym("lambda*"))); *--hp = (mksymbol(internsym("lambda*"))); *--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 = (mksymbol(internsym("lambda"))); *--hp = (mksymbol(internsym("lambda"))); *--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 = (mksymbol(internsym("if"))); *--hp = (mksymbol(internsym("if"))); *--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 = (mksymbol(internsym("set&"))); *--hp = (mksymbol(internsym("set&"))); *--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 = (mksymbol(internsym("set!"))); *--hp = (mksymbol(internsym("set!"))); *--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 = (mksymbol(internsym("quote"))); *--hp = (mksymbol(internsym("quote"))); *--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 = (mksymbol(internsym("syntax-quote"))); *--hp = (mksymbol(internsym("syntax-quote"))); *--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__2Atransformers_2A = (hendblk(3)); } cx__2Atop_2Dtransformer_2Denv_2A = obj_from_bool(0); { static obj c[] = { obj_from_case(173) }; cx_top_2Dtransformer_2Denv = (obj)c; } { static obj c[] = { obj_from_case(181) }; cx_install_2Dtransformer_21 = (obj)c; } hreserve(hbsz(0+1), 0); /* 0 live regs */ *--hp = obj_from_case(183); r[0] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = obj_from_fixnum(+2); *--hp = obj_from_objptr(appcases+1); cx_transform = (hendblk(3)); } { static obj c[] = { obj_from_case(184) }; cx_syntax_2Drules_2A = (obj)c; } { /* make-vector */ obj o; int i = 0, c = (+991); hreserve(hbsz(c+1), 0); /* 0 live regs */ o = (mknull()); /* gc-safe */ while (i++ < c) *--hp = o; *--hp = obj_from_size(VECTOR_BTAG); cx__2Aglobals_2A = (hendblk(c+1)); } { /* cons */ hreserve(hbsz(3), 0); /* 0 live regs */ *--hp = (mknull()); *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); cx__2Adynamic_2Dstate_2A = (hendblk(3)); } cx__2Acurrent_2Dinput_2A = obj_from_bool(0); cx__2Acurrent_2Doutput_2A = obj_from_bool(0); cx__2Acurrent_2Derror_2A = obj_from_bool(0); hreserve(hbsz(0+1), 0); /* 0 live regs */ *--hp = obj_from_case(245); r[0] = (hendblk(0+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 1); /* 1 live regs */ *--hp = r[0]; *--hp = obj_from_fixnum(+1); *--hp = obj_from_objptr(appcases+1); cx_c_2Derror = (hendblk(3)); } { static obj c[] = { obj_from_case(246) }; cx_write_2Dserialized_2Dchar = (obj)c; } { static obj c[] = { obj_from_case(248) }; cx_write_2Dserialized_2Dbyte = (obj)c; } { static obj c[] = { obj_from_case(250) }; cx_write_2Dserialized_2Dsize = (obj)c; } { static obj c[] = { obj_from_case(252) }; cx_write_2Dserialized_2Delement = (obj)c; } { static obj c[] = { obj_from_case(254) }; cx_write_2Dserialized_2Dsexp = (obj)c; } { static obj c[] = { obj_from_case(274) }; cx_write_2Dserialized_2Darg = (obj)c; } { static obj c[] = { obj_from_case(276) }; cx_find_2Dfree_2A = (obj)c; } { static obj c[] = { obj_from_case(279) }; cx_find_2Dfree = (obj)c; } { static obj c[] = { obj_from_case(308) }; cx_find_2Dsets_2A = (obj)c; } { static obj c[] = { obj_from_case(311) }; cx_find_2Dsets = (obj)c; } { static obj c[] = { obj_from_case(340) }; cx_codegen = (obj)c; } { static obj c[] = { obj_from_case(454) }; cx_compile_2Dto_2Dstring = (obj)c; } { /* define execute-thunk-closure */ static obj c[] = { obj_from_objptr(vmcases+0) }; cx_execute_2Dthunk_2Dclosure = obj_from_objptr(c); } { /* define make-closure */ static obj c[] = { obj_from_objptr(vmcases+1) }; cx_make_2Dclosure = obj_from_objptr(c); } { static obj c[] = { obj_from_case(457) }; cx_execute = (obj)c; } { /* define decode-sexp */ static obj c[] = { obj_from_objptr(vmcases+2) }; cx_decode_2Dsexp = obj_from_objptr(c); } { /* define decode */ static obj c[] = { obj_from_objptr(vmcases+3) }; cx_decode = obj_from_objptr(c); } { static obj c[] = { obj_from_case(459) }; cx_evaluate = (obj)c; } cx__2Ahide_2Drefs_2A = (mknull()); { static obj c[] = { obj_from_case(464) }; cx_display_2Dcode = (obj)c; } { static obj c[] = { obj_from_case(465) }; cx_process_2Dsyntax = (obj)c; } { static obj c[] = { obj_from_case(468) }; cx_process_2Dalias = (obj)c; } { static obj c[] = { obj_from_case(469) }; cx_process_2Dcommand = (obj)c; } { static obj c[] = { obj_from_case(473) }; cx_process_2Ddefine = (obj)c; } { static obj c[] = { obj_from_case(480) }; cx_scan_2Dtop_2Dform = (obj)c; } { static obj c[] = { obj_from_case(493) }; cx_process_2Dtop_2Dform = (obj)c; } { static obj c[] = { obj_from_case(517) }; cx_path_2Dstrip_2Ddirectory = (obj)c; } { static obj c[] = { obj_from_case(519) }; cx_path_2Dstrip_2Dextension = (obj)c; } { static obj c[] = { obj_from_case(521) }; cx_module_2Dname = (obj)c; } { static obj c[] = { obj_from_case(523) }; cx_process_2Dfile = (obj)c; } cx_continuation_2Dadapter_2Dcode = obj_from_bool(0); { /* define decode */ static obj c[] = { obj_from_objptr(vmcases+3) }; r[0] = obj_from_objptr(c); } hreserve(hbsz(0+1), 1); /* 1 live regs */ *--hp = obj_from_case(532); r[1] = (hendblk(0+1)); r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = r[1]; r[2+2] = (cx__233260); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 1: /* set-member? k x s */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x s */ r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); r[3+2] = (cxs_set_2Dmember_3F((r[1]), (r[2]))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 2: /* set-cons k x s */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_set_2Dcons: /* k x s */ if (bool_from_obj(cxs_set_2Dmember_3F((r[1]), (r[2])))) { r[3] = r[2]; } else { { /* 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 3: /* set-union k s1 s2 */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_set_2Dunion: /* k s1 s2 */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(4); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = (car((r[1]))); /* r[2] */ goto gs_set_2Dcons; } case 4: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r s1 k */ r[4+0] = r[3]; r[4+1] = (cdr((r[2]))); r[4+2] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; case 5: /* set-minus k s1 s2 */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_set_2Dminus: /* k s1 s2 */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[3] = (car((r[1]))); r[3] = (cxs_set_2Dmember_3F((r[3]), (r[2]))); if (bool_from_obj(r[3])) { /* r[0] */ r[1] = (cdr((r[1]))); /* r[2] */ goto gs_set_2Dminus; } else { hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(6); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = (cdr((r[1]))); /* r[2] */ goto gs_set_2Dminus; } } case 6: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k s1 */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[1]; *--hp = (car((r[3]))); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 7: /* set-intersect k s1 s2 */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_set_2Dintersect: /* k s1 s2 */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[3] = (car((r[1]))); r[3] = (cxs_set_2Dmember_3F((r[3]), (r[2]))); if (bool_from_obj(r[3])) { hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(8); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = (cdr((r[1]))); /* r[2] */ goto gs_set_2Dintersect; } else { /* r[0] */ r[1] = (cdr((r[1]))); /* r[2] */ goto gs_set_2Dintersect; } } case 8: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k s1 */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[1]; *--hp = (car((r[3]))); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 9: /* syntax-match? k pat exp */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k pat exp */ r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); r[3+2] = (cxs_syntax_2Dmatch_3F((r[1]), (r[2]))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 10: /* clo k args */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* k args gsc */ r[3] = (objptr_from_obj(r[2])[0]); r[3] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1))); (void)(objptr_from_obj(r[2])[0] = (r[3])); if ((isnull((r[1])))) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = obj_from_case(11); r[3] = (hendblk(1+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = (objptr_from_obj(r[2])[0]); r[4+3] = obj_from_fixnum(+10); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool(issymbol((r[3]))); if (bool_from_obj(r[3])) { hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(12); r[3] = (hendblk(2+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = (objptr_from_obj(r[2])[0]); r[4+3] = obj_from_fixnum(+10); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (objptr_from_obj(r[2])[0] = obj_from_fixnum(+0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } case 11: /* 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 */ { /* string-append */ int *d = stringcat(stringdata((cx__2398)), stringdata((r[1]))); r[3] = (hpushstr(3, d)); } 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; case 12: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k args */ { /* string-append */ int *d = stringcat(stringdata((cx__2398)), stringdata((r[1]))); r[4] = (hpushstr(4, d)); } r[5] = (car((r[3]))); r[5] = (hpushstr(6, newstring(symbolname(getsymbol((r[5])))))); { /* string-append */ int *d = stringcat(stringdata((r[5])), stringdata((r[4]))); r[5] = (hpushstr(6, d)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mksymbol(internsym(stringchars((r[5]))))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 13: /* posq k x l */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x l */ r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); r[3+2] = (cxs_posq((r[1]), (r[2]))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 14: /* list-diff k l t */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_list_2Ddiff: /* k l t */ if (((isnull((r[1]))) || ((r[1]) == (r[2])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(15); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = (cdr((r[1]))); /* r[2] */ goto gs_list_2Ddiff; } 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; /* shift reg. wnd */ /* ek r k l */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[1]; *--hp = (car((r[3]))); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 16: /* clo k x more */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x more */ /* r[0] */ /* r[1] */ /* r[2] */ goto s_loop; s_loop: /* k x rest */ if ((isnull((r[2])))) { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); r[3+2] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[3] = (car((r[2]))); r[4] = (cdr((r[2]))); hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(17); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; r[2] = r[4]; 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; /* shift reg. wnd */ /* ek r k x */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 18: /* andmap k p l */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_andmap: /* k p l */ if ((ispair((r[2])))) { hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(19); r[3] = (hendblk(3+1)); r[4+0] = r[1]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = (car((r[2]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { /* 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; } case 19: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r l p k */ if (bool_from_obj(r[1])) { r[0] = r[4]; r[1] = r[3]; r[2] = (cdr((r[2]))); goto gs_andmap; } 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 20: /* list1? 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_list1_3F((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 21: /* list1+? 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_list1_2B_3F((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 22: /* list2? 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_list2_3F((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 23: /* list2+? 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_list2_2B_3F((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 24: /* idslist? k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_idslist_3F: /* k x */ 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(1); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if ((ispair((r[1])))) { r[2] = (car((r[1]))); r[2] = (cxs_id_3F((r[2]))); if (bool_from_obj(r[2])) { /* r[0] */ r[1] = (cdr((r[1]))); goto gs_idslist_3F; } 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; } } else { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (cxs_id_3F((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } case 25: /* normalize-arity k arity */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_normalize_2Darity: /* k arity */ if (bool_from_obj(cxs_list2_3F((r[1])))) { r[2] = (car((r[1]))); r[2] = obj_from_bool(is_fixnum_obj(r[2])); if (bool_from_obj(r[2])) { r[2] = (cdr((r[1]))); r[2] = (car((r[2]))); r[2] = obj_from_bool(is_bool_obj(r[2])); } else { r[2] = obj_from_bool(0); } } else { r[2] = obj_from_bool(0); } if (bool_from_obj(r[2])) { 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; } else { r[2+0] = r[0]; r[2+1] = obj_from_fixnum(+0); r[2+2] = r[1]; r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v14098; } s_loop_v14098: /* k cnt l */ if ((ispair((r[2])))) { r[3] = (cdr((r[2]))); /* r[0] */ r[1] = obj_from_fixnum(fxadd((+1), fixnum_from_obj(r[1]))); r[2] = r[3]; goto s_loop_v14098; } else { if ((isnull((r[2])))) { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = obj_from_bool(0); *--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)); } } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = obj_from_bool(1); *--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)); } } 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 26: /* flatten-idslist k ilist */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_flatten_2Didslist: /* k ilist */ if ((islist((r[1])))) { 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; } else { r[2+0] = r[0]; r[2+1] = r[1]; r[2+2] = (mknull()); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v14085; } s_loop_v14085: /* k l r */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); r[4] = (car((r[1]))); { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } /* r[0] */ r[1] = r[3]; r[2] = r[4]; goto s_loop_v14085; } else { if ((isnull((r[1])))) { { /* reverse! */ obj t, v = mknull(), l = r[2]; while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t; r[3] = (v); } } else { { /* reverse! */ obj t, v = mknull(), l = r[2]; while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t; r[3] = (v); } { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--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 27: /* idslist-req-count k ilist */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k ilist */ r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (cxs_idslist_2Dreq_2Dcount((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 28: /* %residual-val-core? k val */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k val */ 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(ispair((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 29: /* %residual-make-location k v */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k v */ { /* box */ hreserve(hbsz(2), 2); /* 2 live regs */ *--hp = r[1]; *--hp = obj_from_size(BOX_BTAG); r[2] = (hendblk(2)); } r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); r[3+2] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 30: /* %residual-location-val k l */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k l */ r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (boxref((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 31: /* %residual-location-set-val! k l v */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k l v */ r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); r[3+2] = obj_from_void(boxref((r[1])) = (r[2])); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 32: /* location-special? k l */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k l */ { bool_t v14359_tmp; r[2] = (boxref((r[1]))); v14359_tmp = (ispair((r[2]))); r[2] = obj_from_bool(!(v14359_tmp)); } 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 33: /* new-id k sym den */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_new_2Did: /* k sym den */ hreserve(hbsz(1), 3); /* 3 live regs */ *--hp = obj_from_void(0); r[3] = (hendblk(1)); { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } (void)(objptr_from_obj(r[3])[0] = (r[4])); hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_case(34); r[3] = (hendblk(1+1)); r[4+0] = r[0]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 34: /* clo k */ assert(rc == 2); { obj* p = objptr_from_obj(r[0]); r[1+1] = p[1]; } r += 1; /* shift reg. wnd */ /* k p */ r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = (objptr_from_obj(r[1])[0]); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 35: /* old-sym k id */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k id */ hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = obj_from_case(36); r[2] = (hendblk(1+1)); r[3+0] = r[1]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 2; goto jump; case 36: /* 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] = (car((r[1]))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 37: /* old-den k id */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k id */ hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = obj_from_case(38); r[2] = (hendblk(1+1)); r[3+0] = r[1]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 2; goto jump; case 38: /* 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] = (cdr((r[1]))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 39: /* id? 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_id_3F((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 40: /* id->sym k id */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_id_2D_3Esym: /* k id */ if ((issymbol((r[1])))) { 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; } else { hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = obj_from_case(41); r[2] = (hendblk(1+1)); r[3+0] = r[1]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 2; goto jump; } case 41: /* 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] = (car((r[1]))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 42: /* extend-xenv k env id bnd */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_extend_2Dxenv: /* k env id bnd */ hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_case(43); r[4] = (hendblk(3+1)); r[5+0] = r[0]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 43: /* 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 */ /* k i env bnd id */ if (((r[4]) == (r[1]))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[3]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[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; } case 44: /* add-location k key val env */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_add_2Dlocation: /* k key val env */ { /* box */ hreserve(hbsz(2), 4); /* 4 live regs */ *--hp = r[2]; *--hp = obj_from_size(BOX_BTAG); r[4] = (hendblk(2)); } r[5+0] = r[0]; r[5+1] = r[3]; r[5+2] = r[1]; r[5+3] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_extend_2Dxenv; case 45: /* add-var k var val env */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_add_2Dvar: /* k var val env */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = (mksymbol(internsym("ref"))); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* box */ hreserve(hbsz(2), 5); /* 5 live regs */ *--hp = r[4]; *--hp = obj_from_size(BOX_BTAG); r[4] = (hendblk(2)); } r[5+0] = r[0]; r[5+1] = r[3]; r[5+2] = r[1]; r[5+3] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_extend_2Dxenv; case 46: /* xform-sexp->datum k sexp */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_xform_2Dsexp_2D_3Edatum: /* k sexp */ /* r[0] */ /* r[1] */ goto s_conv; case 47: /* clo k sexp */ assert(rc == 3); r += 1; /* shift reg. wnd */ s_conv: /* k sexp */ hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(47); r[2] = (hendblk(0+1)); if (bool_from_obj(cxs_id_3F((r[1])))) { /* r[0] */ /* r[1] */ goto gs_id_2D_3Esym; } else { if ((ispair((r[1])))) { 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(48); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; goto s_conv; } else { if ((isvector((r[1])))) { hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = obj_from_case(50); r[3] = (hendblk(2+1)); r[4+0] = (cx_vector_2D_3Elist); 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; } else { r[3+0] = r[0]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); r[3+2] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } } 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; /* shift reg. wnd */ /* ek r conv sexp k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(49); 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 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; /* 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 50: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r conv k */ hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_case(53); r[4] = (hendblk(1+1)); r[0] = r[4]; /* r[1] */ /* r[2] */ goto s_loop_v13914; s_loop_v13914: /* k l conv */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(51); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v13914; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 51: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r conv l k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(52); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = (car((r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 52: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 53: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ r[3+0] = (cx_list_2D_3Evector); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[2]; r[3+2] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 54: /* clo k msg args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k msg args */ { /* string-append */ int *d = stringcat(stringdata((cx__23334)), stringdata((r[1]))); r[3] = (hpushstr(3, d)); } /* r[0] */ r[1] = r[3]; /* r[2] */ goto gs_error_2A; case 55: /* xform k appos? sexp env */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_xform: /* k appos? sexp env */ if (bool_from_obj(cxs_id_3F((r[2])))) { hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(56); r[4] = (hendblk(4+1)); r[0] = r[4]; r[1] = r[2]; r[2] = r[3]; goto gs_xform_2Dref; } else { if ((!(ispair((r[2]))))) { { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } /* r[0] */ r[1] = r[4]; r[2] = r[3]; goto gs_xform_2Dquote; } else { r[4] = (car((r[2]))); r[5] = (cdr((r[2]))); hreserve(hbsz(5+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[0]; *--hp = r[3]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(60); r[6] = (hendblk(5+1)); r[0] = r[6]; r[1] = obj_from_bool(1); r[2] = r[4]; /* r[3] */ goto gs_xform; } } case 56: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r sexp env k appos? */ if (bool_from_obj(r[5])) { r[6+0] = r[4]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = obj_from_ktrap(); r[6+2] = r[1]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { { /* define integrable? */ static obj c[] = { obj_from_objptr(vmcases+8) }; r[6] = obj_from_objptr(c); } hreserve(hbsz(5+1), 7); /* 7 live regs */ *--hp = r[4]; *--hp = r[1]; *--hp = r[5]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(57); r[7] = (hendblk(5+1)); r[8+0] = r[6]; pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[7]; r[8+2] = r[1]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } 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+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r sexp env appos? r k */ if (bool_from_obj(r[1])) { { /* define integrable-global */ static obj c[] = { obj_from_objptr(vmcases+11) }; r[7] = obj_from_objptr(c); } hreserve(hbsz(1+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = obj_from_case(58); r[8] = (hendblk(1+1)); r[0] = r[7]; pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if ((isprocedure((r[5])))) { hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(59); r[7] = (hendblk(3+1)); r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; /* r[2] */ /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((!(ispair((r[5]))))) { r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = (cx__23428); r[3] = r[5]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[0] = r[6]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[5]; 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; /* shift reg. wnd */ /* ek r k */ { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = (mksymbol(internsym("ref"))); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 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 env appos? k */ r[5+0] = r[4]; r[5+1] = r[3]; r[5+2] = r[1]; r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_xform; case 60: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r sexp appos? env k tail */ if ((((r[1]) == (mksymbol(internsym("syntax-quote")))) && (1))) { r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (car((r[6]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if ((((r[1]) == (mksymbol(internsym("quote")))) && (1))) { r[0] = r[5]; r[1] = r[6]; r[2] = r[4]; goto gs_xform_2Dquote; } else { if ((((r[1]) == (mksymbol(internsym("set!")))) && (1))) { r[0] = r[5]; r[1] = r[6]; r[2] = r[4]; goto gs_xform_2Dset_21; } else { if ((((r[1]) == (mksymbol(internsym("set&")))) && (1))) { r[0] = r[5]; r[1] = r[6]; r[2] = r[4]; goto gs_xform_2Dset_26; } else { if ((((r[1]) == (mksymbol(internsym("if")))) && (1))) { r[0] = r[5]; r[1] = r[6]; r[2] = r[4]; goto gs_xform_2Dif; } else { if ((((r[1]) == (mksymbol(internsym("lambda")))) && (1))) { r[0] = r[5]; r[1] = r[6]; r[2] = r[4]; goto gs_xform_2Dlambda; } else { if ((((r[1]) == (mksymbol(internsym("lambda*")))) && (1))) { r[0] = r[5]; r[1] = r[6]; r[2] = r[4]; goto gs_xform_2Dlambda_2A; } else { if ((((r[1]) == (mksymbol(internsym("letcc")))) && (1))) { r[0] = r[5]; r[1] = r[6]; r[2] = r[4]; goto gs_xform_2Dletcc; } else { if ((((r[1]) == (mksymbol(internsym("withcc")))) && (1))) { r[0] = r[5]; r[1] = r[6]; r[2] = r[4]; goto gs_xform_2Dwithcc; } else { if ((((r[1]) == (mksymbol(internsym("body")))) && (1))) { r[0] = r[5]; r[1] = r[6]; r[2] = r[4]; goto gs_xform_2Dbody; } else { if ((((r[1]) == (mksymbol(internsym("begin")))) && (1))) { r[0] = r[5]; r[1] = r[6]; r[2] = r[4]; goto gs_xform_2Dbegin; } else { if ((((r[1]) == (mksymbol(internsym("define")))) && (1))) { r[0] = r[5]; r[1] = r[6]; r[2] = r[4]; goto gs_xform_2Ddefine; } else { if ((((r[1]) == (mksymbol(internsym("define-syntax")))) && (1))) { r[0] = r[5]; r[1] = r[6]; r[2] = r[4]; goto gs_xform_2Ddefine_2Dsyntax; } else { if ((((r[1]) == (mksymbol(internsym("syntax-lambda")))) && (1))) { r[0] = r[5]; r[1] = r[6]; r[2] = r[4]; goto gs_xform_2Dsyntax_2Dlambda; } else { if ((((r[1]) == (mksymbol(internsym("syntax-rules")))) && (1))) { r[0] = r[5]; r[1] = r[6]; r[2] = r[4]; goto gs_xform_2Dsyntax_2Drules; } else { if ((((r[1]) == (mksymbol(internsym("syntax-length")))) && (1))) { r[0] = r[5]; r[1] = r[6]; r[2] = r[4]; goto gs_xform_2Dsyntax_2Dlength; } else { if ((((r[1]) == (mksymbol(internsym("syntax-error")))) && (1))) { r[0] = r[5]; r[1] = r[6]; r[2] = r[4]; goto gs_xform_2Dsyntax_2Derror; } else { { /* define integrable? */ static obj c[] = { obj_from_objptr(vmcases+8) }; r[7] = obj_from_objptr(c); } hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = r[6]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(61); r[8] = (hendblk(6+1)); r[9+0] = r[7]; pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[8]; r[9+2] = r[1]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } } } } } } } } } } } } } } } } case 61: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek r sexp appos? env tail r k */ if (bool_from_obj(r[1])) { r[0] = r[7]; r[1] = r[6]; r[2] = r[5]; r[3] = r[4]; goto gs_xform_2Dintegrable; } else { if ((isprocedure((r[6])))) { hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[3]; *--hp = r[4]; *--hp = obj_from_case(62); r[8] = (hendblk(3+1)); r[0] = r[6]; pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; /* r[2] */ r[3] = r[4]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[0] = r[7]; r[1] = r[6]; r[2] = r[5]; r[3] = r[4]; goto gs_xform_2Dcall; } } case 62: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r env appos? k */ r[5+0] = r[4]; r[5+1] = r[3]; r[5+2] = r[1]; r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_xform; case 63: /* xform-ref k id env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dref: /* k id env */ hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = obj_from_case(64); r[3] = (hendblk(1+1)); 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 64: /* 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] = (boxref((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("...")))); if (bool_from_obj(r[3])) { r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; r[2] = (cx__23441); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[3+0] = r[2]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = obj_from_ktrap(); r[3+2] = (boxref((r[1]))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 65: /* xform-quote k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dquote: /* k tail env */ if (bool_from_obj(cxs_list1_3F((r[1])))) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = obj_from_case(66); r[3] = (hendblk(1+1)); r[0] = r[3]; r[1] = (car((r[1]))); goto gs_xform_2Dsexp_2D_3Edatum; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = (mksymbol(internsym("quote"))); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = (cx__23450); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 66: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = (mksymbol(internsym("quote"))); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 67: /* xform-set! k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dset_21: /* k tail env */ if (bool_from_obj(cxs_list2_3F((r[1])))) { r[3] = (car((r[1]))); r[3] = (cxs_id_3F((r[3]))); } else { r[3] = obj_from_bool(0); } if (bool_from_obj(r[3])) { hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(68); r[3] = (hendblk(3+1)); r[4] = (cdr((r[1]))); r[4] = (car((r[4]))); r[5+0] = r[3]; r[5+1] = obj_from_bool(0); r[5+2] = r[4]; r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_xform; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = (mksymbol(internsym("set!"))); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = (cx__23460); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } 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+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r env tail k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(69); 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 69: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { bool_t v14358_tmp; r[4] = (boxref((r[1]))); v14358_tmp = (ispair((r[4]))); r[4] = obj_from_bool(!(v14358_tmp)); } if (bool_from_obj(r[4])) { (void)(boxref((r[1])) = (r[3])); r[4] = (cx__23483); 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; } else { r[4] = (boxref((r[1]))); r[5] = (car((r[4]))); r[5] = obj_from_bool((r[5]) == (mksymbol(internsym("ref")))); if (bool_from_obj(r[5])) { { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[6] = (cdr((r[4]))); r[6] = (car((r[6]))); { /* 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("set!"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; r[2] = (cx__23470); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } case 70: /* xform-set& k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dset_26: /* k tail env */ if (bool_from_obj(cxs_list1_3F((r[1])))) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = obj_from_case(71); r[3] = (hendblk(1+1)); r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = (car((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = (mksymbol(internsym("set&"))); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = (cx__23496); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 71: /* 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 */ { bool_t v14357_tmp; r[3] = (boxref((r[1]))); v14357_tmp = (ispair((r[3]))); r[3] = obj_from_bool(!(v14357_tmp)); } if (bool_from_obj(r[3])) { r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; r[2] = (cx__23502); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[3] = (boxref((r[1]))); r[4] = (car((r[3]))); r[4] = obj_from_bool((r[4]) == (mksymbol(internsym("ref")))); if (bool_from_obj(r[4])) { r[4] = (cdr((r[3]))); r[4] = (car((r[4]))); { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = (mksymbol(internsym("set&"))); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; r[2] = (cx__23502); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } case 72: /* xform-if k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dif: /* k tail env */ if ((islist((r[1])))) { hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(75); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ /* r[2] */ goto s_loop_v13758; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = (mksymbol(internsym("if"))); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = (cx__23517); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } s_loop_v13758: /* k l env */ if ((ispair((r[1])))) { 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(73); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v13758; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); 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+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r env l k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(74); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = obj_from_bool(0); r[6+2] = (car((r[3]))); r[6+3] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_xform; case 74: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 75: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r tail k */ { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; r[4] = obj_from_fixnum(n); } if (((((r[4]) == obj_from_fixnum(+2)) && ((r[4]) == obj_from_fixnum(+2))) && (1))) { hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = obj_from_case(76); r[5] = (hendblk(1+1)); r[6+0] = (cx__25append); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[5]; r[6+2] = r[1]; r[6+3] = (cx__23545); r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if (((((r[4]) == obj_from_fixnum(+3)) && ((r[4]) == obj_from_fixnum(+3))) && (1))) { { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[1]; *--hp = (mksymbol(internsym("if"))); *--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; } else { { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[2]; *--hp = (mksymbol(internsym("if"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[6+0] = (cx_x_2Derror); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[3]; r[6+2] = (cx__23535); r[6+3] = r[5]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } } case 76: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = (mksymbol(internsym("if"))); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 77: /* xform-call k xexp tail env */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_xform_2Dcall: /* k xexp tail env */ if ((islist((r[2])))) { hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(80); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = r[2]; r[2] = r[3]; goto s_loop_v13719; } else { { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = (cx_x_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[0]; r[5+2] = (cx__23566); r[5+3] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } s_loop_v13719: /* k l env */ if ((ispair((r[1])))) { 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(78); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v13719; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 78: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r env l k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(79); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = obj_from_bool(0); r[6+2] = (car((r[3]))); r[6+3] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_xform; case 79: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* 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 80: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k xexp */ if ((isnull((r[1])))) { r[4] = (car((r[3]))); r[4] = obj_from_bool((r[4]) == (mksymbol(internsym("lambda")))); if (bool_from_obj(r[4])) { r[4] = (cdr((r[3]))); r[4] = (car((r[4]))); 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[4] = (cdr((r[3]))); r[4] = (cdr((r[4]))); r[4] = (car((r[4]))); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[4+0] = (cx_pair_2A); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[2]; r[4+2] = (mksymbol(internsym("call"))); r[4+3] = (r[3]); r[4+4] = (r[1]); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; } case 81: /* integrable-argc-match? k igt n */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_integrable_2Dargc_2Dmatch_3F: /* k igt n */ if (((((r[1]) == obj_from_char('0')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) == (+0)); } else { { const flonum_t v14356_tmp = ((flonum_t)(+0)); r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14356_tmp)); } } } else { if (((((r[1]) == obj_from_char('1')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) == (+1)); } else { { const flonum_t v14355_tmp = ((flonum_t)(+1)); r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14355_tmp)); } } } else { if (((((r[1]) == obj_from_char('2')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) == (+2)); } else { { const flonum_t v14354_tmp = ((flonum_t)(+2)); r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14354_tmp)); } } } else { if (((((r[1]) == obj_from_char('3')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) == (+3)); } else { { const flonum_t v14353_tmp = ((flonum_t)(+3)); r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14353_tmp)); } } } else { if (((((r[1]) == obj_from_char('p')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) >= (+0)); } else { { const flonum_t v14352_tmp = ((flonum_t)(+0)); r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14352_tmp)); } } } else { if (((((r[1]) == obj_from_char('m')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) >= (+1)); } else { { const flonum_t v14351_tmp = ((flonum_t)(+1)); r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14351_tmp)); } } } else { if (((((r[1]) == obj_from_char('c')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) >= (+2)); } else { { const flonum_t v14350_tmp = ((flonum_t)(+2)); r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14350_tmp)); } } } else { if (((((r[1]) == obj_from_char('x')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) >= (+1)); } else { { const flonum_t v14349_tmp = ((flonum_t)(+1)); r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14349_tmp)); } } } else { if (((((r[1]) == obj_from_char('u')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool((+0) <= fixnum_from_obj(r[2])); } else { { const flonum_t v14348_tmp = ((flonum_t)(+0)); r[3] = obj_from_bool((v14348_tmp) <= flonum_from_obj(r[2])); } } if (bool_from_obj(r[3])) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) <= (+1)); } else { { const flonum_t v14347_tmp = ((flonum_t)(+1)); r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14347_tmp)); } } } else { r[3] = obj_from_bool(0); } } else { if (((((r[1]) == obj_from_char('b')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool((+1) <= fixnum_from_obj(r[2])); } else { { const flonum_t v14346_tmp = ((flonum_t)(+1)); r[3] = obj_from_bool((v14346_tmp) <= flonum_from_obj(r[2])); } } if (bool_from_obj(r[3])) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) <= (+2)); } else { { const flonum_t v14345_tmp = ((flonum_t)(+2)); r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14345_tmp)); } } } else { r[3] = obj_from_bool(0); } } else { if (((((r[1]) == obj_from_char('t')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool((+2) <= fixnum_from_obj(r[2])); } else { { const flonum_t v14344_tmp = ((flonum_t)(+2)); r[3] = obj_from_bool((v14344_tmp) <= flonum_from_obj(r[2])); } } if (bool_from_obj(r[3])) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) <= (+3)); } else { { const flonum_t v14343_tmp = ((flonum_t)(+3)); r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14343_tmp)); } } } else { r[3] = obj_from_bool(0); } } else { if (((((r[1]) == obj_from_char('#')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((is_fixnum_obj(r[2]))) { r[3] = obj_from_bool(fixnum_from_obj(r[2]) >= (+0)); } else { { const flonum_t v14342_tmp = ((flonum_t)(+0)); r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14342_tmp)); } } } else { r[3] = obj_from_bool(((((r[1]) == obj_from_char('@')) || ((is_flonum_obj(r[1])) && (0))) && (1)) && (0)); } } } } } } } } } } } } r[4+0] = r[0]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 82: /* xform-integrable k ig tail env */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_xform_2Dintegrable: /* k ig tail env */ { /* define integrable-type */ static obj c[] = { obj_from_objptr(vmcases+10) }; r[4] = obj_from_objptr(c); } hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_case(83); r[5] = (hendblk(4+1)); r[6+0] = r[4]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[5]; r[6+2] = r[1]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 83: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r env tail k ig */ hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(84); r[6] = (hendblk(4+1)); { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; r[7] = obj_from_fixnum(n); } r[0] = r[6]; /* r[1] */ r[2] = r[7]; goto gs_integrable_2Dargc_2Dmatch_3F; case 84: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r env tail k ig */ if (bool_from_obj(r[1])) { hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(87); r[6] = (hendblk(2+1)); r[0] = r[6]; r[1] = r[3]; /* r[2] */ goto s_loop_v13670; } else { { /* define integrable-global */ static obj c[] = { obj_from_objptr(vmcases+11) }; r[6] = obj_from_objptr(c); } hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(88); r[7] = (hendblk(3+1)); r[0] = r[6]; pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } s_loop_v13670: /* k l env */ if ((ispair((r[1])))) { 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(85); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v13670; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 85: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r env l k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(86); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = obj_from_bool(0); r[6+2] = (car((r[3]))); r[6+3] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_xform; case 86: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r 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 87: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k ig */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = (mksymbol(internsym("integrable"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 88: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r env tail k */ { /* 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 = (mksymbol(internsym("ref"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[7+0] = r[4]; r[7+1] = r[6]; r[7+2] = r[3]; r[7+3] = r[2]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_xform_2Dcall; case 89: /* xform-lambda k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dlambda: /* k tail env */ hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(90); r[3] = (hendblk(3+1)); if (bool_from_obj(cxs_list1_2B_3F((r[1])))) { r[0] = r[3]; r[1] = (car((r[1]))); goto gs_idslist_3F; } else { r[4+0] = obj_from_ktrap(); r[4+1] = obj_from_bool(0); r[4+2] = r[2]; r[4+3] = r[1]; r[4+4] = r[0]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v13578; } case 90: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ s_l_v13578: /* ek r env tail k */ if (bool_from_obj(r[1])) { r[5] = (car((r[3]))); r[6+0] = r[4]; r[6+1] = r[5]; r[6+2] = r[2]; r[6+3] = (mknull()); r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v13579; } else { { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[3]; *--hp = (mksymbol(internsym("lambda"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = (cx__23826); r[3] = r[5]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 91: /* clo k vars ienv ipars */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v13579: /* k vars ienv ipars tail */ if ((ispair((r[1])))) { r[5] = (car((r[1]))); hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = obj_from_case(91); r[6] = (hendblk(1+1)); hreserve(hbsz(6+1), 7); /* 7 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[3]; *--hp = r[6]; *--hp = r[5]; *--hp = r[2]; *--hp = obj_from_case(92); r[6] = (hendblk(6+1)); r[0] = r[6]; r[1] = r[5]; goto gs_id_2D_3Esym; } else { if ((isnull((r[1])))) { hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[0]; *--hp = obj_from_case(95); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (cdr((r[4]))); /* r[2] */ goto gs_xform_2Dbody; } else { hreserve(hbsz(5+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[3]; *--hp = r[4]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(96); r[5] = (hendblk(5+1)); r[0] = r[5]; /* r[1] */ goto gs_id_2D_3Esym; } } case 92: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek r ienv var loop ipars vars k */ 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(93); r[8] = (hendblk(6+1)); r[9+0] = (cx_gensym); pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[8]; r[9+2] = r[1]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 93: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek r ienv var loop ipars vars k */ hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[1]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(94); r[8] = (hendblk(5+1)); r[9+0] = r[8]; r[9+1] = r[3]; r[9+2] = r[1]; r[9+3] = r[2]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_add_2Dvar; case 94: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r loop ipars r vars k */ { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[4]; *--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] = (cdr((r[5]))); r[8+3] = r[1]; r[8+4] = r[7]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 95: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k ipars */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { fixnum_t v14341_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14341_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14341_tmp); hreserve(hbsz(3)*c, 5); /* 5 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[5] = (o); } } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = (mksymbol(internsym("lambda"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 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+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r ienv vars tail ipars 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(97); r[7] = (hendblk(5+1)); r[8+0] = (cx_gensym); pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[7]; r[8+2] = r[1]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 97: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r ienv vars tail ipars k */ hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(98); r[7] = (hendblk(4+1)); r[8+0] = r[7]; r[8+1] = r[3]; r[8+2] = r[1]; r[8+3] = r[2]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_add_2Dvar; case 98: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r tail r ipars k */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(99); r[6] = (hendblk(3+1)); r[7+0] = r[6]; r[7+1] = (cdr((r[2]))); r[7+2] = r[1]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_xform_2Dbody; case 99: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r r ipars k */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(100); r[6] = (hendblk(2+1)); { fixnum_t v14340_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14340_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14340_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[8+0] = (cx__25append); pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[6]; r[8+2] = r[7]; r[8+3] = r[2]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 100: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = (mksymbol(internsym("lambda"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 101: /* xform-lambda* k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dlambda_2A: /* k tail env */ if ((islist((r[1])))) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = obj_from_case(107); r[3] = (hendblk(1+1)); r[0] = r[3]; /* r[1] */ /* r[2] */ goto s_loop_v13534; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = (mksymbol(internsym("lambda*"))); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = (cx__23869); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } s_loop_v13534: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = r[2]; *--hp = obj_from_case(102); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v13534; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 102: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r env k l */ r[5] = (car((r[4]))); hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(103); r[6] = (hendblk(2+1)); hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[2]; *--hp = obj_from_case(104); r[6] = (hendblk(3+1)); if (bool_from_obj(cxs_list2_3F((r[5])))) { r[7] = (car((r[5]))); r[7] = (cxs_list2_3F((r[7]))); if (bool_from_obj(r[7])) { r[7] = (car((r[5]))); r[7] = (car((r[7]))); r[7] = obj_from_bool(is_fixnum_obj(r[7])); if (bool_from_obj(r[7])) { r[7] = (car((r[5]))); r[7] = (cdr((r[7]))); r[7] = (car((r[7]))); r[7] = obj_from_bool(is_bool_obj(r[7])); } else { r[7] = obj_from_bool(0); } } else { r[7] = obj_from_bool(0); } if (bool_from_obj(r[7])) { hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(103); r[8] = (hendblk(2+1)); r[9+0] = obj_from_ktrap(); r[9+1] = r[7]; r[9+2] = r[2]; r[9+3] = r[5]; r[9+4] = r[8]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v13538; } else { r[0] = r[6]; r[1] = (car((r[5]))); goto gs_idslist_3F; } } else { hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(103); r[7] = (hendblk(2+1)); r[8+0] = obj_from_ktrap(); r[8+1] = obj_from_bool(0); r[8+2] = r[2]; r[8+3] = r[5]; r[8+4] = r[7]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v13538; } 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; /* 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 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; /* shift reg. wnd */ s_l_v13538: /* ek r env aexp k */ if (bool_from_obj(r[1])) { hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(105); r[5] = (hendblk(2+1)); r[6] = (cdr((r[3]))); r[6] = (car((r[6]))); r[7+0] = r[5]; r[7+1] = obj_from_bool(0); r[7+2] = r[6]; r[7+3] = r[2]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_xform; } else { r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = (cx__23871); /* r[3] */ 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; /* shift reg. wnd */ /* ek r aexp k */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(106); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (car((r[2]))); goto gs_normalize_2Darity; 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; /* 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 107: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = (mksymbol(internsym("lambda*"))); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 108: /* xform-letcc k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dletcc: /* k tail env */ if (bool_from_obj(cxs_list2_2B_3F((r[1])))) { r[3] = (car((r[1]))); r[3] = (cxs_id_3F((r[3]))); } else { r[3] = obj_from_bool(0); } if (bool_from_obj(r[3])) { r[3] = (car((r[1]))); hreserve(hbsz(4+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(109); r[4] = (hendblk(4+1)); r[0] = r[4]; r[1] = r[3]; goto gs_id_2D_3Esym; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = (mksymbol(internsym("letcc"))); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = (cx__23910); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 109: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r env var tail k */ 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[7+0] = (cx_gensym); pc = objptr_from_obj(r[7+0])[0]; r[7+1] = r[6]; r[7+2] = r[1]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 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 env var tail k */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(111); r[6] = (hendblk(3+1)); r[7+0] = r[6]; r[7+1] = r[3]; r[7+2] = r[1]; r[7+3] = r[2]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_add_2Dvar; case 111: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r tail k r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(112); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = (cdr((r[2]))); r[6+2] = r[1]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_xform_2Dbody; case 112: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* 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 = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = (mksymbol(internsym("letcc"))); *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 113: /* xform-withcc k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dwithcc: /* k tail env */ if (bool_from_obj(cxs_list2_2B_3F((r[1])))) { hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(114); r[3] = (hendblk(3+1)); r[0] = r[3]; r[1] = (cdr((r[1]))); /* r[2] */ goto gs_xform_2Dbody; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = (mksymbol(internsym("withcc"))); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = (cx__23926); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 114: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r env tail k */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(115); r[6] = (hendblk(2+1)); r[7+0] = r[6]; r[7+1] = obj_from_bool(0); r[7+2] = (car((r[3]))); r[7+3] = r[2]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_xform; case 115: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = (mksymbol(internsym("withcc"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 116: /* xform-body k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dbody: /* k tail env */ if ((isnull((r[1])))) { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = (mksymbol(internsym("begin"))); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } /* 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 (bool_from_obj(cxs_list1_3F((r[1])))) { r[3+0] = r[0]; r[3+1] = obj_from_bool(0); r[3+2] = (car((r[1]))); r[3+3] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_xform; } else { { const bool_t v14339_tmp = (islist((r[1]))); r[3] = obj_from_bool(!(v14339_tmp)); } if (bool_from_obj(r[3])) { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = (mksymbol(internsym("body"))); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = (cx__231063); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3+0] = r[0]; r[3+1] = r[2]; r[3+2] = (mknull()); r[3+3] = (mknull()); r[3+4] = (mknull()); r[3+5] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v13383; } } } case 117: /* clo k env ids inits nids body */ assert(rc == 7); r += 1; /* shift reg. wnd */ s_loop_v13383: /* k env ids inits nids body */ if ((ispair((r[5])))) { r[6] = (car((r[5]))); r[6] = obj_from_bool(ispair((r[6]))); } else { r[6] = obj_from_bool(0); } if (bool_from_obj(r[6])) { r[6] = (car((r[5]))); r[7] = (cdr((r[5]))); r[8] = (car((r[6]))); r[9] = (cdr((r[6]))); hreserve(hbsz(0+1), 10); /* 10 live regs */ *--hp = obj_from_case(117); r[10] = (hendblk(0+1)); hreserve(hbsz(10+1), 11); /* 11 live regs */ *--hp = r[9]; *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[3]; *--hp = r[4]; *--hp = (r[10]); *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(118); r[10] = (hendblk(10+1)); r[11+0] = (r[10]); r[11+1] = obj_from_bool(1); r[11+2] = r[8]; r[11+3] = r[1]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_xform; } else { { fixnum_t v14338_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14338_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14338_tmp); hreserve(hbsz(3)*c, 6); /* 6 live regs */ l = r[2]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[6] = (o); } } { fixnum_t v14337_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14337_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14337_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); } } { fixnum_t v14336_tmp; { /* length */ int n; obj l = r[4]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14336_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14336_tmp); hreserve(hbsz(3)*c, 8); /* 8 live regs */ l = r[4]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[8] = (o); } } r[9+0] = r[0]; r[9+1] = r[6]; r[9+2] = r[7]; r[9+3] = r[8]; r[9+4] = r[5]; r[9+5] = r[1]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_xform_2Dlabels; } 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+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 body first rest loop nids inits ids env k tail */ if ((((r[1]) == (mksymbol(internsym("begin")))) && (1))) { if ((islist((r[11])))) { hreserve(hbsz(6+1), 12); /* 12 live regs */ *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(119); r[12] = (hendblk(6+1)); r[0] = (cx__25append); pc = objptr_from_obj(r[0])[0]; r[1] = (r[12]); r[2] = (r[11]); r[3] = r[4]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); r[2] = (cx__231051); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } } else { if ((((r[1]) == (mksymbol(internsym("define")))) && (1))) { if (bool_from_obj(cxs_list2_3F((r[11])))) { r[12] = (car((r[11]))); r[12] = obj_from_bool(isnull((r[12]))); } else { r[12] = obj_from_bool(0); } if (bool_from_obj(r[12])) { r[12] = (cdr((r[11]))); r[12] = (car((r[12]))); { /* cons */ hreserve(hbsz(3), 13); /* 13 live regs */ *--hp = r[8]; *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[13] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 14); /* 14 live regs */ *--hp = r[7]; *--hp = (r[12]); *--hp = obj_from_size(PAIR_BTAG); r[14] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 15); /* 15 live regs */ *--hp = r[6]; *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[15] = (hendblk(3)); } r[16+0] = r[5]; pc = objptr_from_obj(r[16+0])[0]; r[16+1] = (r[10]); r[16+2] = r[9]; r[16+3] = (r[13]); r[16+4] = (r[14]); r[16+5] = (r[15]); r[16+6] = r[4]; r += 16; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 7; goto jump; } else { if (bool_from_obj(cxs_list2_3F((r[11])))) { r[12] = (car((r[11]))); r[12] = (cxs_id_3F((r[12]))); } else { r[12] = obj_from_bool(0); } if (bool_from_obj(r[12])) { r[12] = (car((r[11]))); r[13] = (cdr((r[11]))); r[13] = (car((r[13]))); hreserve(hbsz(9+1), 14); /* 14 live regs */ *--hp = (r[10]); *--hp = (r[12]); *--hp = r[8]; *--hp = (r[13]); *--hp = r[7]; *--hp = r[6]; *--hp = r[4]; *--hp = r[5]; *--hp = r[9]; *--hp = obj_from_case(120); r[14] = (hendblk(9+1)); r[0] = (r[14]); r[1] = (r[12]); goto gs_id_2D_3Esym; } else { hreserve(hbsz(9+1), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = (r[10]); *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[4]; *--hp = r[5]; *--hp = r[9]; *--hp = r[3]; *--hp = obj_from_case(123); r[12] = (hendblk(9+1)); if (bool_from_obj(cxs_list2_2B_3F((r[11])))) { r[13] = (car((r[11]))); r[13] = obj_from_bool(ispair((r[13]))); if (bool_from_obj(r[13])) { r[13] = (car((r[11]))); r[13] = (car((r[13]))); r[13] = (cxs_id_3F((r[13]))); if (bool_from_obj(r[13])) { r[13] = (car((r[11]))); r[13] = (cdr((r[13]))); r[0] = (r[12]); r[1] = (r[13]); goto gs_idslist_3F; } else { r[13+0] = obj_from_ktrap(); r[13+1] = obj_from_bool(0); r[13+2] = r[3]; r[13+3] = r[9]; r[13+4] = r[5]; r[13+5] = r[4]; r[13+6] = r[6]; r[13+7] = r[7]; r[13+8] = r[8]; r[13+9] = (r[10]); r[13+10] = (r[11]); r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v13399; } } else { r[13+0] = obj_from_ktrap(); r[13+1] = obj_from_bool(0); r[13+2] = r[3]; r[13+3] = r[9]; r[13+4] = r[5]; r[13+5] = r[4]; r[13+6] = r[6]; r[13+7] = r[7]; r[13+8] = r[8]; r[13+9] = (r[10]); r[13+10] = (r[11]); r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v13399; } } else { r[13+0] = obj_from_ktrap(); r[13+1] = obj_from_bool(0); r[13+2] = r[3]; r[13+3] = r[9]; r[13+4] = r[5]; r[13+5] = r[4]; r[13+6] = r[6]; r[13+7] = r[7]; r[13+8] = r[8]; r[13+9] = (r[10]); r[13+10] = (r[11]); r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v13399; } } } } else { if ((((r[1]) == (mksymbol(internsym("define-syntax")))) && (1))) { if (bool_from_obj(cxs_list2_3F((r[11])))) { r[12] = (car((r[11]))); r[12] = (cxs_id_3F((r[12]))); } else { r[12] = obj_from_bool(0); } if (bool_from_obj(r[12])) { r[12] = (car((r[11]))); r[13] = (cdr((r[11]))); r[13] = (car((r[13]))); hreserve(hbsz(8+1), 14); /* 14 live regs */ *--hp = (r[10]); *--hp = (r[12]); *--hp = r[8]; *--hp = (r[13]); *--hp = r[7]; *--hp = r[6]; *--hp = r[4]; *--hp = r[5]; *--hp = obj_from_case(128); r[14] = (hendblk(8+1)); r[0] = (r[14]); r[1] = (r[12]); r[2] = (cx__23976); r[3] = r[9]; goto gs_add_2Dlocation; } else { r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); r[2] = (cx__23969); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } } else { if ((isprocedure((r[1])))) { hreserve(hbsz(7+1), 12); /* 12 live regs */ *--hp = r[4]; *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = obj_from_case(129); r[12] = (hendblk(7+1)); r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; r[1] = (r[12]); r[2] = r[3]; r[3] = r[9]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { { fixnum_t v14335_tmp; { /* length */ int n; obj l = r[8]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14335_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14335_tmp); hreserve(hbsz(3)*c, 12); /* 12 live regs */ l = r[8]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[12] = (o); } } { fixnum_t v14334_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14334_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14334_tmp); hreserve(hbsz(3)*c, 13); /* 13 live regs */ l = r[7]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[13] = (o); } } { fixnum_t v14333_tmp; { /* length */ int n; obj l = r[6]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14333_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14333_tmp); hreserve(hbsz(3)*c, 14); /* 14 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[14] = (o); } } r[15+0] = (r[10]); r[15+1] = (r[12]); r[15+2] = (r[13]); r[15+3] = (r[14]); r[15+4] = r[2]; r[15+5] = r[9]; r += 15; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_xform_2Dlabels; } } } } 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 */ /* ek r loop nids inits ids env k */ r[8+0] = r[2]; pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[7]; r[8+2] = r[6]; r[8+3] = r[5]; r[8+4] = r[4]; r[8+5] = r[3]; r[8+6] = r[1]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 7; goto jump; case 120: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek r env loop rest nids inits init ids id k */ hreserve(hbsz(9+1), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(121); r[11] = (hendblk(9+1)); r[12+0] = (cx_gensym); 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 121: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek r env loop rest nids inits init ids id k */ hreserve(hbsz(9+1), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[1]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(122); r[11] = (hendblk(9+1)); r[12+0] = (r[11]); r[12+1] = r[9]; r[12+2] = r[1]; r[12+3] = r[2]; r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_add_2Dvar; 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+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek r loop rest nids r inits init ids id k */ { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = r[8]; *--hp = r[9]; *--hp = obj_from_size(PAIR_BTAG); r[11] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = r[6]; *--hp = r[7]; *--hp = obj_from_size(PAIR_BTAG); r[12] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 13); /* 13 live regs */ *--hp = r[4]; *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[13] = (hendblk(3)); } r[14+0] = r[2]; pc = objptr_from_obj(r[14+0])[0]; r[14+1] = (r[10]); r[14+2] = r[1]; r[14+3] = (r[11]); r[14+4] = (r[12]); r[14+5] = (r[13]); r[14+6] = r[3]; r += 14; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 7; goto jump; case 123: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ s_l_v13399: /* ek r first env loop rest nids inits ids k tail */ if (bool_from_obj(r[1])) { r[11] = (car((r[10]))); r[11] = (car((r[11]))); hreserve(hbsz(9+1), 12); /* 12 live regs */ *--hp = (r[10]); *--hp = r[9]; *--hp = (r[11]); *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(124); r[12] = (hendblk(9+1)); { /* box */ hreserve(hbsz(2), 13); /* 13 live regs */ *--hp = (mksymbol(internsym("lambda"))); *--hp = obj_from_size(BOX_BTAG); r[13] = (hendblk(2)); } r[0] = (r[12]); r[1] = (mksymbol(internsym("lambda"))); r[2] = (r[13]); goto gs_new_2Did; } else { r[11+0] = (cx_x_2Derror); pc = objptr_from_obj(r[11+0])[0]; r[11+1] = r[9]; r[11+2] = (cx__23989); r[11+3] = r[2]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 124: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek r env loop rest nids inits ids id k tail */ r[11] = (cdr((r[10]))); r[12] = (car((r[10]))); r[12] = (cdr((r[12]))); { /* cons */ hreserve(hbsz(3), 13); /* 13 live regs */ *--hp = (r[11]); *--hp = (r[12]); *--hp = obj_from_size(PAIR_BTAG); r[11] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[11] = (hendblk(3)); } hreserve(hbsz(9+1), 12); /* 12 live regs */ *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = (r[11]); *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(125); r[12] = (hendblk(9+1)); r[0] = (r[12]); r[1] = r[8]; goto gs_id_2D_3Esym; case 125: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek r env loop rest nids inits init ids id k */ hreserve(hbsz(9+1), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(126); r[11] = (hendblk(9+1)); r[12+0] = (cx_gensym); 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 126: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek r env loop rest nids inits init ids id k */ hreserve(hbsz(9+1), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[1]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(127); r[11] = (hendblk(9+1)); r[12+0] = (r[11]); r[12+1] = r[9]; r[12+2] = r[1]; r[12+3] = r[2]; r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_add_2Dvar; case 127: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek r loop rest nids r inits init ids id k */ { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = r[8]; *--hp = r[9]; *--hp = obj_from_size(PAIR_BTAG); r[11] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = r[6]; *--hp = r[7]; *--hp = obj_from_size(PAIR_BTAG); r[12] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 13); /* 13 live regs */ *--hp = r[4]; *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[13] = (hendblk(3)); } r[14+0] = r[2]; pc = objptr_from_obj(r[14+0])[0]; r[14+1] = (r[10]); r[14+2] = r[1]; r[14+3] = (r[11]); r[14+4] = (r[12]); r[14+5] = (r[13]); r[14+6] = r[3]; r += 14; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 7; goto jump; case 128: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ /* ek r loop rest nids inits init ids id k */ { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[7]; *--hp = r[8]; *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = r[5]; *--hp = r[6]; *--hp = obj_from_size(PAIR_BTAG); r[11] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = r[4]; *--hp = obj_from_bool(1); *--hp = obj_from_size(PAIR_BTAG); r[12] = (hendblk(3)); } r[13+0] = r[2]; pc = objptr_from_obj(r[13+0])[0]; r[13+1] = r[9]; r[13+2] = r[1]; r[13+3] = (r[10]); r[13+4] = (r[11]); r[13+5] = (r[12]); r[13+6] = r[3]; r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 7; goto jump; case 129: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek r loop nids inits ids env k rest */ { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } r[10+0] = r[2]; pc = objptr_from_obj(r[10+0])[0]; r[10+1] = r[7]; r[10+2] = r[6]; r[10+3] = r[5]; r[10+4] = r[4]; r[10+5] = r[3]; r[10+6] = r[9]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 7; goto jump; case 130: /* xform-labels k ids inits nids body env */ assert(rc == 7); r += 1; /* shift reg. wnd */ gs_xform_2Dlabels: /* k ids inits nids body env */ r[6+0] = r[0]; r[6+1] = r[1]; r[6+2] = r[2]; r[6+3] = r[3]; r[6+4] = (mknull()); r[6+5] = (mknull()); r[6+6] = r[5]; r[6+7] = r[4]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v13286; case 131: /* clo k ids inits nids sets lids */ assert(rc == 7); { obj* p = objptr_from_obj(r[0]); r[1+6] = p[1]; r[1+7] = p[2]; } r += 1; /* shift reg. wnd */ s_loop_v13286: /* k ids inits nids sets lids env body */ hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = obj_from_case(131); r[8] = (hendblk(2+1)); if ((isnull((r[1])))) { hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[5]; *--hp = r[0]; *--hp = r[4]; *--hp = obj_from_case(134); r[9] = (hendblk(3+1)); r[0] = r[9]; r[1] = r[7]; r[2] = r[6]; goto s_loop_v13340; } else { r[9] = (car((r[1]))); r[9] = obj_from_bool(!bool_from_obj(r[9])); if (bool_from_obj(r[9])) { hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[4]; *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[3]; *--hp = r[5]; *--hp = r[8]; *--hp = obj_from_case(138); r[9] = (hendblk(7+1)); r[0] = r[9]; r[1] = obj_from_bool(0); r[2] = (car((r[2]))); r[3] = r[6]; goto gs_xform; } else { r[9] = (car((r[3]))); r[9] = obj_from_bool(issymbol((r[9]))); if (bool_from_obj(r[9])) { hreserve(hbsz(7+1), 9); /* 9 live regs */ *--hp = r[4]; *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[3]; *--hp = r[5]; *--hp = r[8]; *--hp = obj_from_case(139); r[9] = (hendblk(7+1)); r[10] = (car((r[2]))); { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = (mknull()); *--hp = (r[10]); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } r[11] = (car((r[1]))); { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = (r[10]); *--hp = (r[11]); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } r[0] = r[9]; r[1] = (r[10]); r[2] = r[6]; goto gs_xform_2Dset_21; } else { hreserve(hbsz(8+1), 9); /* 9 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; *--hp = r[8]; *--hp = r[6]; *--hp = obj_from_case(140); r[9] = (hendblk(8+1)); r[10+0] = r[6]; pc = objptr_from_obj(r[10+0])[0]; r[10+1] = r[9]; r[10+2] = (car((r[1]))); r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } } s_loop_v13340: /* k l env */ if ((ispair((r[1])))) { 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(132); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v13340; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 132: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r env l k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(133); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = obj_from_bool(0); r[6+2] = (car((r[3]))); r[6+3] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_xform; 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; /* 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 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; /* shift reg. wnd */ /* ek r sets k lids */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(135); r[5] = (hendblk(2+1)); { fixnum_t v14332_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14332_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14332_tmp); hreserve(hbsz(3)*c, 6); /* 6 live regs */ l = r[2]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[6] = (o); } } r[7+0] = (cx__25append); 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 135: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k lids */ if (bool_from_obj(cxs_list1_3F((r[1])))) { r[4] = (car((r[1]))); } else { { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[1]; *--hp = (mksymbol(internsym("begin"))); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } } if ((isnull((r[3])))) { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(137); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[3]; goto s_loop_v13321; } s_loop_v13321: /* k l */ if ((ispair((r[1])))) { r[2] = (cdr((r[1]))); hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = obj_from_case(136); r[3] = (hendblk(1+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v13321; } else { 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; } case 136: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = (cx__231135); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 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; /* shift reg. wnd */ /* ek r lids xexp k */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { fixnum_t v14331_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14331_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14331_tmp); hreserve(hbsz(3)*c, 6); /* 6 live regs */ l = r[2]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[6] = (o); } } { /* 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("lambda"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[6+0] = (cx_pair_2A); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[4]; r[6+2] = (mksymbol(internsym("call"))); r[6+3] = (r[5]); r[6+4] = (r[1]); r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 138: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek r loop lids nids inits ids k sets */ { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } r[10+0] = r[2]; pc = objptr_from_obj(r[10+0])[0]; r[10+1] = r[7]; r[10+2] = (cdr((r[6]))); r[10+3] = (cdr((r[5]))); r[10+4] = (cdr((r[4]))); r[10+5] = r[9]; r[10+6] = r[3]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 7; goto jump; case 139: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek r loop lids nids inits ids k sets */ { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } r[10] = (car((r[4]))); { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = r[3]; *--hp = (r[10]); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } r[11+0] = r[2]; pc = objptr_from_obj(r[11+0])[0]; r[11+1] = r[7]; r[11+2] = (cdr((r[6]))); r[11+3] = (cdr((r[5]))); r[11+4] = (cdr((r[4]))); r[11+5] = r[9]; r[11+6] = (r[10]); r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 7; goto jump; case 140: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+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 env loop lids sets nids inits ids k */ hreserve(hbsz(8+1), 10); /* 10 live regs */ *--hp = r[1]; *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(141); r[10] = (hendblk(8+1)); r[11+0] = (r[10]); r[11+1] = obj_from_bool(1); r[11+2] = (car((r[7]))); r[11+3] = r[2]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_xform; case 141: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ /* ek r loop lids sets nids inits ids k r */ (void)(boxref((r[9])) = (r[1])); r[10+0] = r[2]; pc = objptr_from_obj(r[10+0])[0]; r[10+1] = r[8]; r[10+2] = (cdr((r[7]))); r[10+3] = (cdr((r[6]))); r[10+4] = (cdr((r[5]))); r[10+5] = r[4]; r[10+6] = r[3]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 7; goto jump; case 142: /* xform-begin k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dbegin: /* k tail env */ if ((islist((r[1])))) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = obj_from_case(145); r[3] = (hendblk(1+1)); r[0] = r[3]; /* r[1] */ /* r[2] */ goto s_loop_v13261; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = (mksymbol(internsym("begin!"))); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = (cx__231051); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } s_loop_v13261: /* k l env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(143); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v13261; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 143: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r env l k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(144); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = obj_from_bool(0); r[6+2] = (car((r[3]))); r[6+3] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_xform; case 144: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 145: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); r[3] = obj_from_bool(isnull((r[3]))); } else { r[3] = obj_from_bool(0); } if (bool_from_obj(r[3])) { r[3] = (car((r[1]))); } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = (mksymbol(internsym("begin"))); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } } r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 146: /* xform-define k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Ddefine: /* k tail env */ if (bool_from_obj(cxs_list2_3F((r[1])))) { r[3] = (car((r[1]))); r[3] = obj_from_bool(isnull((r[3]))); } else { r[3] = obj_from_bool(0); } if (bool_from_obj(r[3])) { r[3] = (cdr((r[1]))); r[3] = (car((r[3]))); r[4+0] = r[0]; r[4+1] = obj_from_bool(0); r[4+2] = r[3]; r[4+3] = r[2]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_xform; } else { if (bool_from_obj(cxs_list2_3F((r[1])))) { r[3] = (car((r[1]))); r[3] = (cxs_id_3F((r[3]))); } else { r[3] = obj_from_bool(0); } if (bool_from_obj(r[3])) { hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(147); r[3] = (hendblk(2+1)); r[4] = (cdr((r[1]))); r[4] = (car((r[4]))); r[5+0] = r[3]; r[5+1] = obj_from_bool(0); r[5+2] = r[4]; r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_xform; } else { hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(149); r[3] = (hendblk(3+1)); if (bool_from_obj(cxs_list2_2B_3F((r[1])))) { r[4] = (car((r[1]))); r[4] = obj_from_bool(ispair((r[4]))); if (bool_from_obj(r[4])) { r[4] = (car((r[1]))); r[4] = (car((r[4]))); r[4] = (cxs_id_3F((r[4]))); if (bool_from_obj(r[4])) { r[4] = (car((r[1]))); r[4] = (cdr((r[4]))); r[0] = r[3]; r[1] = r[4]; goto gs_idslist_3F; } else { r[4+0] = obj_from_ktrap(); r[4+1] = obj_from_bool(0); r[4+2] = r[2]; r[4+3] = r[1]; r[4+4] = r[0]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v13218; } } else { r[4+0] = obj_from_ktrap(); r[4+1] = obj_from_bool(0); r[4+2] = r[2]; r[4+3] = r[1]; r[4+4] = r[0]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v13218; } } else { r[4+0] = obj_from_ktrap(); r[4+1] = obj_from_bool(0); r[4+2] = r[2]; r[4+3] = r[1]; r[4+4] = r[0]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v13218; } } } 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; /* shift reg. wnd */ /* ek r tail k */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(148); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (car((r[2]))); goto gs_id_2D_3Esym; 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; /* shift reg. wnd */ /* ek r k r */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = (mksymbol(internsym("define"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 149: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ s_l_v13218: /* ek r env tail k */ if (bool_from_obj(r[1])) { hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(150); r[5] = (hendblk(2+1)); r[6] = (cdr((r[3]))); r[7] = (car((r[3]))); r[7] = (cdr((r[7]))); { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[7]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[0] = r[5]; r[1] = r[6]; /* r[2] */ goto gs_xform_2Dlambda; } else { { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[3]; *--hp = (mksymbol(internsym("define"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = (cx__23989); r[3] = r[5]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 150: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r tail k */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(151); r[5] = (hendblk(2+1)); r[6] = (car((r[2]))); r[6] = (car((r[6]))); r[0] = r[5]; r[1] = r[6]; goto gs_id_2D_3Esym; case 151: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = (mksymbol(internsym("define"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 152: /* xform-define-syntax k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Ddefine_2Dsyntax: /* k tail env */ if (bool_from_obj(cxs_list2_3F((r[1])))) { r[3] = (car((r[1]))); r[3] = (cxs_id_3F((r[3]))); } else { r[3] = obj_from_bool(0); } if (bool_from_obj(r[3])) { hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(153); r[3] = (hendblk(2+1)); r[4] = (cdr((r[1]))); r[4] = (car((r[4]))); r[5+0] = r[3]; r[5+1] = obj_from_bool(1); r[5+2] = r[4]; r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_xform; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = (mksymbol(internsym("define-syntax"))); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = (cx__23969); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } 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; /* shift reg. wnd */ /* ek r tail k */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(154); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (car((r[2]))); goto gs_id_2D_3Esym; case 154: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = (mksymbol(internsym("define-syntax"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 155: /* xform-syntax-lambda k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dsyntax_2Dlambda: /* k tail env */ hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = r[0]; *--hp = obj_from_case(156); r[3] = (hendblk(3+1)); if (bool_from_obj(cxs_list2_2B_3F((r[1])))) { hreserve(hbsz(0+1), 4); /* 4 live regs */ *--hp = obj_from_case(162); r[4] = (hendblk(0+1)); r[5+0] = r[3]; r[5+1] = r[4]; r[5+2] = (car((r[1]))); r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_andmap; } else { r[4+0] = obj_from_ktrap(); r[4+1] = obj_from_bool(0); r[4+2] = r[0]; r[4+3] = r[2]; r[4+4] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v13149; } 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; /* shift reg. wnd */ s_l_v13149: /* ek r k env tail */ if (bool_from_obj(r[1])) { r[5] = (car((r[4]))); r[6] = (cdr((r[4]))); hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[3]; *--hp = r[6]; *--hp = obj_from_case(157); r[5] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = (mksymbol(internsym("syntax-lambda"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; r[2] = (cx__231249); r[3] = r[5]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 157: /* clo k use useenv */ 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 use useenv forms env vars */ if (bool_from_obj(cxs_list1_2B_3F((r[1])))) { { fixnum_t v14330_tmp; { fixnum_t v14329_tmp; { /* length */ int n; obj l = r[5]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14330_tmp = (n); } r[6] = (cdr((r[1]))); { /* length */ int n; obj l = r[6]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14329_tmp = (n); } r[6] = obj_from_bool((v14330_tmp) == (v14329_tmp)); } } } else { r[6] = obj_from_bool(0); } if (bool_from_obj(r[6])) { r[6] = (cdr((r[1]))); r[7+0] = r[0]; r[7+1] = r[5]; r[7+2] = r[6]; r[7+3] = r[4]; r[7+4] = r[2]; r[7+5] = r[3]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v13152; } else { r[6+0] = (cx_x_2Derror); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[0]; r[6+2] = (cx__231257); r[6+3] = r[1]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 158: /* clo k vars exps env */ 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_v13152: /* k vars exps env useenv forms */ if ((isnull((r[1])))) { hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[0]; *--hp = obj_from_case(159); r[6] = (hendblk(1+1)); r[0] = r[6]; r[1] = r[5]; r[2] = r[3]; goto gs_xform_2Dbody; } else { hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(158); r[6] = (hendblk(2+1)); hreserve(hbsz(5+1), 7); /* 7 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[6]; *--hp = r[3]; *--hp = obj_from_case(160); r[6] = (hendblk(5+1)); r[0] = r[6]; r[1] = obj_from_bool(1); r[2] = (car((r[2]))); r[3] = r[4]; goto gs_xform; } case 159: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = (mksymbol(internsym("syntax-quote"))); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 160: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r env loop exps vars 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(161); r[7] = (hendblk(4+1)); r[8+0] = r[7]; r[8+1] = (car((r[5]))); r[8+2] = r[1]; r[8+3] = r[2]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_add_2Dlocation; 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 exps vars k */ r[6+0] = r[2]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[5]; r[6+2] = (cdr((r[4]))); r[6+3] = (cdr((r[3]))); r[6+4] = r[1]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 162: /* clo 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_id_3F((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 163: /* xform-syntax-rules k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dsyntax_2Drules: /* k tail env */ hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(164); r[3] = (hendblk(3+1)); if (bool_from_obj(cxs_list2_2B_3F((r[1])))) { r[4] = (car((r[1]))); r[4] = (cxs_id_3F((r[4]))); if (bool_from_obj(r[4])) { hreserve(hbsz(0+1), 4); /* 4 live regs */ *--hp = obj_from_case(167); r[4] = (hendblk(0+1)); r[5] = (cdr((r[1]))); r[5] = (car((r[5]))); r[6+0] = r[3]; r[6+1] = r[4]; r[6+2] = r[5]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_andmap; } else { r[4+0] = obj_from_ktrap(); r[4+1] = obj_from_bool(0); r[4+2] = r[1]; r[4+3] = r[2]; r[4+4] = r[0]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v13117; } } else { r[4+0] = obj_from_ktrap(); r[4+1] = obj_from_bool(0); r[4+2] = r[1]; r[4+3] = r[2]; r[4+4] = r[0]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v13117; } case 164: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ s_l_v13117: /* ek r tail env k */ if (bool_from_obj(r[1])) { r[5] = (cdr((r[2]))); r[5] = (car((r[5]))); r[6] = (cdr((r[2]))); r[6] = (cdr((r[6]))); r[7+0] = r[4]; r[7+1] = r[3]; r[7+2] = (car((r[2]))); r[7+3] = r[5]; r[7+4] = r[6]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_syntax_2Drules_2A; } else { hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(165); r[5] = (hendblk(3+1)); if (bool_from_obj(cxs_list1_2B_3F((r[2])))) { hreserve(hbsz(0+1), 6); /* 6 live regs */ *--hp = obj_from_case(166); r[6] = (hendblk(0+1)); r[0] = r[5]; r[1] = r[6]; r[2] = (car((r[2]))); goto gs_andmap; } else { r[0] = obj_from_ktrap(); r[1] = obj_from_bool(0); /* r[2] */ /* r[3] */ /* r[4] */ goto s_l_v13125; } } case 165: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ s_l_v13125: /* ek r tail env k */ if (bool_from_obj(r[1])) { r[5+0] = r[4]; r[5+1] = r[3]; r[5+2] = obj_from_bool(0); r[5+3] = (car((r[2]))); r[5+4] = (cdr((r[2]))); r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_syntax_2Drules_2A; } else { { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[2]; *--hp = (mksymbol(internsym("syntax-rules"))); *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[6+0] = (cx_x_2Derror); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[4]; r[6+2] = (cx__231283); r[6+3] = r[5]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 166: /* clo 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_id_3F((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 167: /* clo 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_id_3F((r[1]))); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 168: /* xform-syntax-length k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dsyntax_2Dlength: /* k tail env */ if (bool_from_obj(cxs_list1_3F((r[1])))) { r[3] = (car((r[1]))); r[3] = obj_from_bool(islist((r[3]))); } else { r[3] = obj_from_bool(0); } if (bool_from_obj(r[3])) { r[3] = (car((r[1]))); { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; r[3] = obj_from_fixnum(n); } { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = (mksymbol(internsym("quote"))); *--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; } else { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = r[1]; *--hp = (mksymbol(internsym("syntax-length"))); *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = (cx__231303); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 169: /* xform-syntax-error k tail env */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_xform_2Dsyntax_2Derror: /* k tail env */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(172); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ goto s_loop_v13077; s_loop_v13077: /* k l */ if ((ispair((r[1])))) { r[2] = (cdr((r[1]))); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(170); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v13077; } else { 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; } case 170: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r l k */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(171); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (car((r[2]))); goto gs_xform_2Dsexp_2D_3Edatum; case 171: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* 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 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; /* shift reg. wnd */ /* ek r tail k */ if (bool_from_obj(cxs_list1_2B_3F((r[1])))) { r[4] = (car((r[1]))); r[4] = obj_from_bool(isstring((r[4]))); } else { r[4] = obj_from_bool(0); } if (bool_from_obj(r[4])) { r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = (cx_x_2Derror); r[4+3] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[2]; *--hp = (mksymbol(internsym("syntax-error"))); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = (cx_x_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[3]; r[5+2] = (cx__231328); r[5+3] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 173: /* top-transformer-env k id */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_top_2Dtransformer_2Denv: /* k id */ hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(174); r[2] = (hendblk(2+1)); if (bool_from_obj(cx__2Atop_2Dtransformer_2Denv_2A)) { r[3+0] = obj_from_ktrap(); r[3+1] = ((0) ? obj_from_bool(0) : obj_from_void(0)); r[3+2] = r[0]; r[3+3] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v13048; } else { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(180); r[3] = (hendblk(1+1)); r[0] = r[3]; r[1] = (cx__2Atransformers_2A); goto s_loop_v13024; } case 174: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ s_l_v13048: /* ek . k id */ if ((isprocedure((r[3])))) { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = obj_from_case(175); r[4] = (hendblk(1+1)); r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; rreserve(MAX_HOSTREGS); rc = 2; goto jump; } else { { /* assq */ obj x = (r[3]), l = (cx__2Atop_2Dtransformer_2Denv_2A), 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); } if (bool_from_obj(r[4])) { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (cdr((r[4]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { { /* define lookup-integrable */ static obj c[] = { obj_from_objptr(vmcases+9) }; r[5] = obj_from_objptr(c); } hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(176); r[6] = (hendblk(2+1)); r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = r[3]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } case 175: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* 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] = (cdr((r[1]))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 176: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k id */ if (bool_from_obj(r[1])) { r[4] = r[1]; } else { { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = (mknull()); *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[4]; *--hp = (mksymbol(internsym("ref"))); *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } } { /* box */ hreserve(hbsz(2), 5); /* 5 live regs */ *--hp = r[4]; *--hp = obj_from_size(BOX_BTAG); r[5] = (hendblk(2)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = (cx__2Atop_2Dtransformer_2Denv_2A); *--hp = r[6]; *--hp = obj_from_size(PAIR_BTAG); cx__2Atop_2Dtransformer_2Denv_2A = (hendblk(3)); } r[6] = r[5]; r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; s_loop_v13024: /* k l */ if ((ispair((r[1])))) { r[2] = (cdr((r[1]))); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(177); r[3] = (hendblk(2+1)); r[0] = r[3]; r[1] = r[2]; goto s_loop_v13024; } else { 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; } case 177: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k l */ r[4] = (car((r[3]))); r[5] = (cdr((r[4]))); hreserve(hbsz(1), 6); /* 6 live regs */ *--hp = r[5]; r[6] = (hendblk(1)); hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[4]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(178); r[7] = (hendblk(4+1)); r[8] = (objptr_from_obj(r[6])[0]); r[8] = obj_from_bool(ispair((r[8]))); if (bool_from_obj(r[8])) { r[8] = (objptr_from_obj(r[6])[0]); r[8] = (car((r[8]))); r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("syntax-rules")))); } else { r[8] = obj_from_bool(0); } if (bool_from_obj(r[8])) { hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[7]; *--hp = obj_from_case(179); r[8] = (hendblk(2+1)); r[9] = (objptr_from_obj(r[6])[0]); r[10] = (cdr((r[9]))); r[9] = (car((r[10]))); r[9] = (cxs_id_3F((r[9]))); if (bool_from_obj(r[9])) { r[9] = (objptr_from_obj(r[6])[0]); r[10] = (cdr((r[9]))); r[9] = (car((r[10]))); r[10] = (objptr_from_obj(r[6])[0]); r[11] = (cdr((r[10]))); r[11] = (cdr((r[11]))); r[10] = (car((r[11]))); r[11] = (objptr_from_obj(r[6])[0]); r[12] = (cdr((r[11]))); r[12] = (cdr((r[12]))); r[11] = (cdr((r[12]))); r[0] = r[8]; r[1] = (cx_top_2Dtransformer_2Denv); r[2] = r[9]; r[3] = (r[10]); r[4] = (r[11]); goto gs_syntax_2Drules_2A; } else { r[9] = (objptr_from_obj(r[6])[0]); r[10] = (cdr((r[9]))); r[9] = (car((r[10]))); r[10] = (objptr_from_obj(r[6])[0]); r[11] = (cdr((r[10]))); r[10] = (cdr((r[11]))); r[0] = r[8]; r[1] = (cx_top_2Dtransformer_2Denv); r[2] = obj_from_bool(0); r[3] = r[9]; r[4] = (r[10]); goto gs_syntax_2Drules_2A; } } else { r[8+0] = obj_from_ktrap(); r[8+1] = obj_from_void(0); r[8+2] = r[2]; r[8+3] = r[1]; r[8+4] = r[4]; r[8+5] = r[6]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v13034; } case 178: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ s_l_v13034: /* ek . k r bnd v */ r[6] = (objptr_from_obj(r[5])[0]); { /* box */ hreserve(hbsz(2), 7); /* 7 live regs */ *--hp = r[6]; *--hp = obj_from_size(BOX_BTAG); r[6] = (hendblk(2)); } r[7] = (car((r[4]))); { /* 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[3]; *--hp = r[6]; *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[7]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 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; /* shift reg. wnd */ /* ek r k v */ r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = (objptr_from_obj(r[3])[0] = (r[1])); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 180: /* 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 */ cx__2Atop_2Dtransformer_2Denv_2A = r[1]; r[3] = obj_from_void(0); 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 181: /* install-transformer! k s t */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k s t */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = obj_from_case(182); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ goto gs_top_2Dtransformer_2Denv; case 182: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k t */ r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = obj_from_void(boxref((r[1])) = (r[3])); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 183: /* clo k appos? sexp optenv */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k appos? sexp optenv */ /* r[0] */ /* r[1] */ /* r[2] */ r[3] = ((isnull((r[3]))) ? (cx_top_2Dtransformer_2Denv) : (car((r[3])))); goto gs_xform; case 184: /* syntax-rules* k mac-env ellipsis pat-literals rules */ assert(rc == 6); r += 1; /* shift reg. wnd */ gs_syntax_2Drules_2A: /* k mac-env ellipsis pat-literals rules */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(186); r[5] = (hendblk(2+1)); hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = obj_from_case(188); r[6] = (hendblk(1+1)); hreserve(hbsz(1+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = obj_from_case(185); r[7] = (hendblk(1+1)); hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[4]; *--hp = r[6]; *--hp = r[5]; *--hp = r[7]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(195); r[5] = (hendblk(6+1)); r[6+0] = r[0]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = obj_from_ktrap(); r[6+2] = r[5]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 185: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* k id pat-literals */ { /* memq */ obj x = (r[1]), l = r[2]; for (; l != mknull(); l = cdr(l)) if (car(l) == x) break; r[3] = (l == mknull() ? obj_from_bool(0) : l); } r[3] = obj_from_bool(!bool_from_obj(r[3])); r[4+0] = r[0]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 186: /* clo k x */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* k x mac-env ellipsis */ if ((ispair((r[1])))) { r[4] = (car((r[1]))); if (bool_from_obj(r[3])) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool((r[4]) == (r[3])); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if (bool_from_obj(cxs_id_3F((r[4])))) { hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = obj_from_case(187); r[5] = (hendblk(1+1)); r[6+0] = r[2]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[5]; r[6+2] = r[4]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 187: /* 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] = (boxref((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("...")))); 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 188: /* clo k x include-scalars pred? */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; } r += 1; /* shift reg. wnd */ /* k x include-scalars pred? ellipsis-pair? */ r[5+0] = r[0]; r[5+1] = r[1]; r[5+2] = r[2]; r[5+3] = (mknull()); r[5+4] = r[4]; r[5+5] = r[3]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_collect; case 189: /* clo k x inc l */ 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_collect: /* k x inc l ellipsis-pair? pred? */ hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(189); r[6] = (hendblk(2+1)); if (bool_from_obj(cxs_id_3F((r[1])))) { hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = r[0]; *--hp = obj_from_case(190); r[7] = (hendblk(3+1)); if (bool_from_obj(r[2])) { r[8+0] = r[5]; pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[7]; r[8+2] = r[1]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[8+0] = obj_from_ktrap(); r[8+1] = obj_from_bool(0); r[8+2] = r[0]; r[8+3] = r[3]; r[8+4] = r[1]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v12943; } } else { if ((isvector((r[1])))) { hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; *--hp = r[6]; *--hp = obj_from_case(191); r[7] = (hendblk(4+1)); r[8+0] = (cx_vector_2D_3Elist); pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[7]; r[8+2] = r[1]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if ((ispair((r[1])))) { hreserve(hbsz(5+1), 7); /* 7 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[6]; *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_case(192); r[7] = (hendblk(5+1)); r[8+0] = r[4]; pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[7]; r[8+2] = (cdr((r[1]))); r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[3]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } } case 190: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ s_l_v12943: /* ek r k l x */ if (bool_from_obj(r[1])) { { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[3]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 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 collect l inc 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 192: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r l inc collect x 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(193); r[7] = (hendblk(3+1)); r[8] = (cdr((r[5]))); r[8] = (cdr((r[8]))); 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[3]; r[9+4] = r[2]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[3]; *--hp = r[4]; *--hp = obj_from_case(194); r[7] = (hendblk(4+1)); r[8+0] = r[4]; pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[7]; r[8+2] = (cdr((r[5]))); r[8+3] = r[3]; r[8+4] = r[2]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; } case 193: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r collect x k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = (car((r[3]))); r[5+3] = obj_from_bool(1); r[5+4] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 194: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r collect inc x k */ r[6+0] = r[2]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[5]; r[6+2] = (car((r[4]))); r[6+3] = r[3]; r[6+4] = r[1]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 195: /* clo k use use-env */ 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; /* shift reg. wnd */ /* k use use-env pat-literals mac-env not-pat-literal? ellipsis-pair? list-ids rules */ r[9+0] = r[0]; r[9+1] = r[8]; r[9+2] = r[2]; r[9+3] = r[3]; r[9+4] = r[1]; r[9+5] = r[4]; r[9+6] = r[5]; r[9+7] = r[6]; r[9+8] = r[7]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v12593; case 196: /* clo k rules */ assert(rc == 3); { obj* p = objptr_from_obj(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_loop_v12593: /* k rules use-env pat-literals use mac-env not-pat-literal? ellipsis-pair? list-ids */ 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(196); r[9] = (hendblk(7+1)); hreserve(hbsz(10+1), 10); /* 10 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[9]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(197); r[9] = (hendblk(10+1)); if ((isnull((r[1])))) { r[0] = (cx_x_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[9]; r[2] = (cx__231785); r[3] = r[4]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(7+1), 10); /* 10 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(196); r[10] = (hendblk(7+1)); r[11+0] = obj_from_ktrap(); r[11+1] = obj_from_void(0); r[11+2] = r[2]; r[11+3] = r[3]; r[11+4] = r[4]; r[11+5] = (r[10]); r[11+6] = r[5]; r[11+7] = r[6]; r[11+8] = r[7]; r[11+9] = r[8]; r[11+10] = r[0]; r[11+11] = r[1]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v12595; } case 197: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; r[1+11] = p[10]; } r += 1; /* shift reg. wnd */ s_l_v12595: /* ek . use-env pat-literals use loop mac-env not-pat-literal? ellipsis-pair? list-ids k rules */ r[12] = (car((r[11]))); r[13] = (car((r[12]))); r[14] = (cdr((r[12]))); r[14] = (car((r[14]))); hreserve(hbsz(9+1), 15); /* 15 live regs */ *--hp = (r[10]); *--hp = (r[14]); *--hp = r[9]; *--hp = r[8]; *--hp = (r[13]); *--hp = r[7]; *--hp = r[6]; *--hp = (r[11]); *--hp = r[5]; *--hp = obj_from_case(198); r[15] = (hendblk(9+1)); hreserve(hbsz(8+1), 16); /* 16 live regs */ *--hp = (r[13]); *--hp = r[4]; *--hp = r[3]; *--hp = r[6]; *--hp = r[2]; *--hp = r[7]; *--hp = r[9]; *--hp = r[8]; *--hp = obj_from_case(224); r[16] = (hendblk(8+1)); r[0] = (cx_call_2Dwith_2Dcurrent_2Dcontinuation); pc = objptr_from_obj(r[0])[0]; r[1] = (r[15]); r[2] = (r[16]); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 198: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek r loop rules mac-env not-pat-literal? pat ellipsis-pair? list-ids tmpl k */ if (bool_from_obj(r[1])) { hreserve(hbsz(1), 11); /* 11 live regs */ *--hp = obj_from_void(0); r[11] = (hendblk(1)); hreserve(hbsz(1), 12); /* 12 live regs */ *--hp = obj_from_void(0); r[12] = (hendblk(1)); hreserve(hbsz(10+1), 13); /* 13 live regs */ *--hp = (r[12]); *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; *--hp = r[1]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(199); r[13] = (hendblk(10+1)); hreserve(hbsz(1+1), 14); /* 14 live regs */ *--hp = r[1]; *--hp = obj_from_case(223); r[14] = (hendblk(1+1)); r[15+0] = r[8]; pc = objptr_from_obj(r[15+0])[0]; r[15+1] = (r[13]); r[15+2] = r[9]; r[15+3] = obj_from_bool(1); r[15+4] = (r[14]); r += 15; /* 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[10]); r[2] = (cdr((r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 199: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; r[1+11] = p[10]; } r += 1; /* shift reg. wnd */ /* ek r mac-env not-pat-literal? pat ellipsis-pair? list-ids r tmpl k ellipsis-vars new-literals */ hreserve(hbsz(9+1), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(204); r[12] = (hendblk(9+1)); r[0] = (r[12]); /* r[1] */ /* r[2] */ goto s_loop_v12864; s_loop_v12864: /* k l mac-env */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = r[2]; *--hp = obj_from_case(200); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v12864; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 200: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r mac-env k l */ r[5] = (car((r[4]))); hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(201); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[5]; goto gs_id_2D_3Esym; case 201: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r mac-env k r id */ hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_case(202); r[6] = (hendblk(4+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = r[5]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 202: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r r k r id */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(203); r[6] = (hendblk(3+1)); r[7+0] = r[6]; r[7+1] = r[2]; r[7+2] = r[1]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_new_2Did; 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; /* shift reg. wnd */ /* ek r k r id */ { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[3]; *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[6] = (hendblk(3)); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 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+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek r not-pat-literal? pat ellipsis-pair? list-ids r tmpl k ellipsis-vars new-literals */ hreserve(hbsz(8+1), 11); /* 11 live regs */ *--hp = r[1]; *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(205); r[11] = (hendblk(8+1)); r[12+0] = r[5]; pc = objptr_from_obj(r[12+0])[0]; r[12+1] = (r[11]); r[12+2] = r[3]; r[12+3] = obj_from_bool(0); r[12+4] = r[2]; r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 205: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(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 ellipsis-pair? list-ids r tmpl k ellipsis-vars new-literals r */ (void)(objptr_from_obj(r[8])[0] = (r[9])); (void)(objptr_from_obj(r[7])[0] = (r[1])); r[10+0] = r[6]; r[10+1] = r[5]; r[10+2] = r[4]; r[10+3] = r[2]; r[10+4] = r[3]; r[10+5] = r[7]; r[10+6] = r[8]; r[10+7] = r[4]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_expand; case 206: /* clo k tmpl bindings */ 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 */ s_expand: /* k tmpl bindings ellipsis-pair? list-ids ellipsis-vars new-literals r */ 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(206); r[8] = (hendblk(5+1)); r[9+0] = r[0]; r[9+1] = r[1]; r[9+2] = r[3]; r[9+3] = r[4]; r[9+4] = r[5]; r[9+5] = r[8]; r[9+6] = r[6]; r[9+7] = r[7]; r[9+8] = r[2]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_expand_2Dpart; case 207: /* clo k tmpl */ assert(rc == 3); { obj* p = objptr_from_obj(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_expand_2Dpart: /* k tmpl ellipsis-pair? list-ids ellipsis-vars expand new-literals r bindings */ 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(207); r[9] = (hendblk(7+1)); if (bool_from_obj(cxs_id_3F((r[1])))) { { /* assq */ obj x = (r[1]), l = (r[8]), p = mknull(); for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; } r[10] = (l == mknull() ? obj_from_bool(0) : p); } if (bool_from_obj(r[10])) { r[10] = (r[10]); } else { { /* assq */ obj x = (r[1]), l = (r[7]), p = mknull(); for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; } r[11] = (l == mknull() ? obj_from_bool(0) : p); } if (bool_from_obj(r[11])) { r[10] = (r[11]); } else { r[12] = (objptr_from_obj(r[6])[0]); { /* assq */ obj x = (r[1]), l = (r[12]), p = mknull(); for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; } r[10] = (l == mknull() ? obj_from_bool(0) : p); } } } r[10] = (cdr((r[10]))); r[11+0] = r[0]; pc = objptr_from_obj(r[11+0])[0]; r[11+1] = obj_from_ktrap(); r[11+2] = (r[10]); r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if ((isvector((r[1])))) { hreserve(hbsz(2+1), 10); /* 10 live regs */ *--hp = r[0]; *--hp = r[9]; *--hp = obj_from_case(208); r[10] = (hendblk(2+1)); r[11+0] = (cx_vector_2D_3Elist); pc = objptr_from_obj(r[11+0])[0]; r[11+1] = (r[10]); r[11+2] = r[1]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(7+1), 10); /* 10 live regs */ *--hp = r[1]; *--hp = r[5]; *--hp = r[0]; *--hp = r[9]; *--hp = r[8]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(210); r[10] = (hendblk(7+1)); if ((ispair((r[1])))) { r[11+0] = r[2]; pc = objptr_from_obj(r[11+0])[0]; r[11+1] = (r[10]); r[11+2] = (cdr((r[1]))); r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[11+0] = obj_from_ktrap(); r[11+1] = obj_from_bool(0); r[11+2] = r[3]; r[11+3] = r[4]; r[11+4] = r[8]; r[11+5] = r[9]; r[11+6] = r[0]; r[11+7] = r[5]; r[11+8] = r[1]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v12752; } } } 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; /* shift reg. wnd */ /* ek r expand-part k */ hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_case(209); r[4] = (hendblk(1+1)); r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 209: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ r[3+0] = (cx_list_2D_3Evector); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[2]; r[3+2] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 210: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+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_v12752: /* ek r list-ids ellipsis-vars bindings expand-part k expand tmpl */ if (bool_from_obj(r[1])) { hreserve(hbsz(5+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(211); r[9] = (hendblk(5+1)); hreserve(hbsz(1+1), 10); /* 10 live regs */ *--hp = r[3]; *--hp = obj_from_case(220); r[10] = (hendblk(1+1)); r[11+0] = r[2]; pc = objptr_from_obj(r[11+0])[0]; r[11+1] = r[9]; r[11+2] = (car((r[8]))); r[11+3] = obj_from_bool(1); r[11+4] = (r[10]); r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { if ((ispair((r[8])))) { hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[6]; *--hp = r[8]; *--hp = r[5]; *--hp = obj_from_case(221); r[9] = (hendblk(3+1)); r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; r[1] = r[9]; r[2] = (cdr((r[8]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { 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; } } 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+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r bindings expand-part k expand tmpl */ hreserve(hbsz(1), 7); /* 7 live regs */ *--hp = obj_from_void(0); r[7] = (hendblk(1)); hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[1]; *--hp = obj_from_case(212); r[8] = (hendblk(3+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); r[8] = (hendblk(3)); } (void)(objptr_from_obj(r[7])[0] = (r[8])); if ((isnull((r[1])))) { hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[4]; *--hp = r[6]; *--hp = r[3]; *--hp = obj_from_case(214); r[8] = (hendblk(3+1)); r[9] = (cdr((r[6]))); r[9] = (cdr((r[9]))); r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; r[2] = r[9]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(4+1), 8); /* 8 live regs */ *--hp = r[4]; *--hp = r[6]; *--hp = r[3]; *--hp = r[7]; *--hp = obj_from_case(217); r[8] = (hendblk(4+1)); r[0] = r[8]; /* r[1] */ /* r[2] */ goto s_loop_v12791; } case 212: /* clo k vals */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* k vals r expand tmpl */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(213); r[5] = (hendblk(3+1)); r[6+0] = (cx__25residual_2Dmap); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[5]; r[6+2] = (cx__25residual_2Dcons); r[6+3] = r[2]; r[6+4] = r[1]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 213: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r expand tmpl k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = (car((r[3]))); r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 214: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r expand-part tmpl k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(215); 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 215: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* 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_v12791: /* k l bindings */ if ((ispair((r[1])))) { r[3] = (cdr((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = r[0]; *--hp = obj_from_case(216); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v12791; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } 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 k bindings l */ r[5] = (car((r[4]))); { /* assq */ obj x = (r[5]), l = (r[3]), p = mknull(); for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; } r[6] = (l == mknull() ? obj_from_bool(0) : p); } r[5] = (cdr((r[6]))); { /* cons */ hreserve(hbsz(3), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[6+0] = r[2]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = obj_from_ktrap(); r[6+2] = r[5]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 217: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r expand-using-vals expand-part tmpl k */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(218); r[6] = (hendblk(3+1)); r[7] = (objptr_from_obj(r[2])[0]); { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[1]; *--hp = r[7]; *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[8+0] = (cx_apply); pc = objptr_from_obj(r[8+0])[0]; r[8+1] = r[6]; r[8+2] = (cx__25residual_2Dmap); r[8+3] = r[7]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 218: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r expand-part tmpl k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; *--hp = obj_from_case(219); r[5] = (hendblk(2+1)); r[6] = (cdr((r[3]))); r[6] = (cdr((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 219: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r r k */ r[4+0] = (cx__25append); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = r[2]; r[4+3] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 220: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* k id ellipsis-vars */ r[3] = (objptr_from_obj(r[2])[0]); { /* memq */ obj x = (r[1]), l = r[3]; for (; l != mknull(); l = cdr(l)) if (car(l) == x) break; r[3] = (l == mknull() ? obj_from_bool(0) : l); } 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 221: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r expand-part tmpl k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(222); r[5] = (hendblk(2+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = (car((r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 222: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ { /* cons */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 223: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* k id r */ { /* assq */ obj x = (r[1]), l = (r[2]), p = mknull(); for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; } r[3] = (l == mknull() ? obj_from_bool(0) : p); } r[3] = obj_from_bool(!bool_from_obj(r[3])); r[4+0] = r[0]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 224: /* clo k return */ assert(rc == 3); { obj* p = objptr_from_obj(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 */ /* k return ellipsis-pair? list-ids not-pat-literal? use-env mac-env pat-literals use pat */ r[10+0] = r[0]; r[10+1] = r[9]; r[10+2] = r[8]; r[10+3] = (mknull()); r[10+4] = r[2]; r[10+5] = r[3]; r[10+6] = r[4]; r[10+7] = r[5]; r[10+8] = r[6]; r[10+9] = r[7]; r[10+10] = r[1]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_match; case 225: /* clo k pat sexp bindings */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; r[1+5] = p[2]; r[1+6] = p[3]; r[1+7] = p[4]; r[1+8] = p[5]; r[1+9] = p[6]; r[1+10] = p[7]; } r += 1; /* shift reg. wnd */ s_match: /* k pat sexp bindings ellipsis-pair? list-ids not-pat-literal? use-env mac-env pat-literals return */ hreserve(hbsz(7+1), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(225); r[11] = (hendblk(7+1)); hreserve(hbsz(2+1), 12); /* 12 live regs */ *--hp = r[3]; *--hp = (r[10]); *--hp = obj_from_case(226); r[12] = (hendblk(2+1)); if (bool_from_obj(cxs_id_3F((r[1])))) { { /* memq */ obj x = (r[1]), l = r[9]; for (; l != mknull(); l = cdr(l)) if (car(l) == x) break; r[13] = (l == mknull() ? obj_from_bool(0) : l); } if (bool_from_obj(r[13])) { if (bool_from_obj(cxs_id_3F((r[2])))) { hreserve(hbsz(4+1), 13); /* 13 live regs */ *--hp = r[0]; *--hp = (r[12]); *--hp = r[1]; *--hp = r[8]; *--hp = obj_from_case(227); r[13] = (hendblk(4+1)); r[14+0] = r[7]; pc = objptr_from_obj(r[14+0])[0]; r[14+1] = (r[13]); r[14+2] = r[2]; r += 14; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { /* r[0] */ r[1] = obj_from_bool(0); r[2] = (r[10]); /* r[3] */ goto s_l_v12718; } } else { { /* cons */ hreserve(hbsz(3), 13); /* 13 live regs */ *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[13] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 14); /* 14 live regs */ *--hp = r[3]; *--hp = (r[13]); *--hp = obj_from_size(PAIR_BTAG); r[13] = (hendblk(3)); } r[14+0] = r[0]; pc = objptr_from_obj(r[14+0])[0]; r[14+1] = obj_from_ktrap(); r[14+2] = (r[13]); r += 14; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } else { if ((isvector((r[1])))) { hreserve(hbsz(5+1), 13); /* 13 live regs */ *--hp = r[0]; *--hp = r[3]; *--hp = (r[11]); *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(229); r[13] = (hendblk(5+1)); if ((isvector((r[2])))) { r[14+0] = obj_from_ktrap(); r[14+1] = obj_from_bool(isvector((r[2]))); r[14+2] = r[1]; r[14+3] = r[2]; r[14+4] = (r[11]); r[14+5] = r[3]; r[14+6] = r[0]; r += 14; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v12688; } else { r[0] = (r[10]); pc = objptr_from_obj(r[0])[0]; r[1] = (r[13]); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } else { if ((!(ispair((r[1]))))) { r[13] = obj_from_bool(isequal((r[1]), (r[2]))); /* r[0] */ r[1] = (r[13]); r[2] = (r[10]); /* r[3] */ goto s_l_v12718; } else { hreserve(hbsz(8+1), 13); /* 13 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = r[0]; *--hp = r[3]; *--hp = (r[11]); *--hp = r[6]; *--hp = r[5]; *--hp = (r[10]); *--hp = obj_from_case(232); r[13] = (hendblk(8+1)); r[14+0] = r[4]; pc = objptr_from_obj(r[14+0])[0]; r[14+1] = (r[13]); r[14+2] = (cdr((r[1]))); r += 14; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } } case 226: /* clo k condition */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ s_l_v12718: /* k condition return bindings */ if (bool_from_obj(r[1])) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[3]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = obj_from_bool(0); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 227: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r mac-env pat continue-if k */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(228); r[6] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = r[3]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 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; /* shift reg. wnd */ /* ek r continue-if r k */ r[5+0] = r[2]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = obj_from_bool((r[3]) == (r[1])); r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 229: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ s_l_v12688: /* ek . pat sexp match bindings 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(230); r[7] = (hendblk(4+1)); r[0] = (cx_vector_2D_3Elist); pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; /* r[2] */ 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 sexp match bindings k */ hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(231); r[6] = (hendblk(4+1)); r[0] = (cx_vector_2D_3Elist); pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 231: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r match bindings r k */ r[6+0] = r[2]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[5]; r[6+2] = r[4]; r[6+3] = r[1]; r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 232: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+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 return list-ids not-pat-literal? match bindings k sexp pat */ if (bool_from_obj(r[1])) { r[10] = (cdr((r[9]))); r[10] = (cdr((r[10]))); { /* length */ int n; obj l = (r[10]); for (n = 0; l != mknull(); ++n, l = cdr(l)) ; r[10] = obj_from_fixnum(n); } hreserve(hbsz(9+1), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = r[8]; *--hp = r[7]; *--hp = r[9]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(233); r[11] = (hendblk(9+1)); if ((islist((r[8])))) { { /* length */ int n; obj l = r[8]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; r[12] = obj_from_fixnum(n); } r[13+0] = obj_from_ktrap(); r[13+1] = (r[12]); r[13+2] = r[2]; r[13+3] = r[3]; r[13+4] = r[4]; r[13+5] = r[5]; r[13+6] = r[6]; r[13+7] = r[9]; r[13+8] = r[7]; r[13+9] = r[8]; r[13+10] = (r[10]); r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v12608; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = (r[11]); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } else { if ((ispair((r[8])))) { hreserve(hbsz(4+1), 10); /* 10 live regs */ *--hp = r[7]; *--hp = r[9]; *--hp = r[8]; *--hp = r[5]; *--hp = obj_from_case(244); r[10] = (hendblk(4+1)); r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); r[2] = (cdr((r[9]))); r[3] = (cdr((r[8]))); r[4] = r[6]; rreserve(MAX_HOSTREGS); rc = 5; goto jump; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } case 233: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ s_l_v12608: /* ek r return list-ids not-pat-literal? match bindings pat k sexp tail-len */ hreserve(hbsz(9+1), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = r[1]; *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(234); r[11] = (hendblk(9+1)); if (((fxsub(fixnum_from_obj(r[1]), fixnum_from_obj(r[10]))) < 0)) { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = (r[11]); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[12+0] = obj_from_ktrap(); r[12+1] = obj_from_void(0); r[12+2] = r[3]; r[12+3] = r[4]; r[12+4] = r[5]; r[12+5] = r[6]; r[12+6] = r[7]; r[12+7] = r[8]; r[12+8] = r[9]; r[12+9] = r[1]; r[12+10] = (r[10]); r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v12610; } case 234: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ s_l_v12610: /* ek . list-ids not-pat-literal? match bindings pat k sexp r tail-len */ { const fixnum_t v14326_tail_2Dlen = fixnum_from_obj(r[10]); { /* list-tail */ obj l = r[8]; int c = (fxsub(fixnum_from_obj(r[9]), (v14326_tail_2Dlen))); while (c-- > 0) l = cdr(l); r[11] = (l); } { fixnum_t v14327_tmp; { /* length */ int n; obj l = r[8]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14327_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14327_tmp); hreserve(hbsz(3)*c, 12); /* 12 live regs */ l = r[8]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[12] = (o); } } { /* list-tail */ obj l = (r[12]); int c = (v14326_tail_2Dlen); while (c-- > 0) l = cdr(l); r[12] = (l); } { fixnum_t v14328_tmp; { /* length */ int n; obj l = (r[12]); for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14328_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14328_tmp); hreserve(hbsz(3)*c, 13); /* 13 live regs */ l = (r[12]); /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[12] = (o); } } hreserve(hbsz(6+1), 13); /* 13 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = (r[11]); *--hp = r[5]; *--hp = r[4]; *--hp = (r[12]); *--hp = obj_from_case(235); r[13] = (hendblk(6+1)); r[14+0] = r[2]; pc = objptr_from_obj(r[14+0])[0]; r[14+1] = (r[13]); r[14+2] = (car((r[6]))); r[14+3] = obj_from_bool(1); r[14+4] = r[3]; r += 14; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; } 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+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek r seq match bindings r pat k */ hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[1]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(241); r[8] = (hendblk(6+1)); r[0] = r[8]; r[1] = r[2]; r[2] = r[3]; r[3] = r[6]; goto s_loop_v12631; s_loop_v12631: /* k l match pat */ if ((ispair((r[1])))) { r[4] = (cdr((r[1]))); hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(236); r[5] = (hendblk(4+1)); r[0] = r[5]; r[1] = r[4]; /* r[2] */ /* r[3] */ goto s_loop_v12631; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } 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 match pat k l */ r[6] = (car((r[5]))); r[7] = (cx__25residual_2Dcdr); hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = r[7]; *--hp = obj_from_case(237); r[8] = (hendblk(3+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; r[2] = (car((r[3]))); r[3] = r[6]; r[4] = (mknull()); rreserve(MAX_HOSTREGS); rc = 5; goto jump; 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; /* shift reg. wnd */ /* ek r f k r */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(240); r[5] = (hendblk(2+1)); r[0] = r[5]; /* r[1] */ /* r[2] */ goto s_loop_v12642; s_loop_v12642: /* k l f */ if ((ispair((r[1])))) { 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(238); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v12642; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 238: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r f l k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(239); 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 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; /* 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 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; /* 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 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+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek r match bindings r pat k r */ { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[1]; *--hp = r[7]; *--hp = obj_from_size(PAIR_BTAG); r[8] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = (cx__25residual_2Dlist); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } hreserve(hbsz(5+1), 10); /* 10 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(242); r[10] = (hendblk(5+1)); r[0] = (cx_apply); pc = objptr_from_obj(r[0])[0]; r[1] = (r[10]); r[2] = (cx__25residual_2Dmap); r[3] = r[9]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; 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+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r match bindings r pat k */ hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[1]; *--hp = obj_from_case(243); r[7] = (hendblk(2+1)); r[8] = (cdr((r[5]))); r[8] = (cdr((r[8]))); r[9+0] = r[2]; pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[7]; r[9+2] = r[8]; r[9+3] = r[4]; r[9+4] = r[3]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; 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; /* shift reg. wnd */ /* ek r r k */ r[4+0] = (cx__25append); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = r[2]; r[4+3] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; 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 match sexp pat k */ r[6+0] = r[2]; pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[5]; r[6+2] = (car((r[4]))); r[6+3] = (car((r[3]))); r[6+4] = r[1]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 5; goto jump; case 245: /* clo k msg args */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k msg args */ { /* string-append */ int *d = stringcat(stringdata((cx__231819)), stringdata((r[1]))); r[3] = (hpushstr(3, d)); } /* r[0] */ r[1] = r[3]; /* r[2] */ goto gs_error_2A; case 246: /* write-serialized-char k x port */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_write_2Dserialized_2Dchar: /* k x port */ { const char_t v14325_x = char_from_obj(r[1]); if ((((v14325_x) == ('%')) || (((v14325_x) == (34)) || (((v14325_x) == (92)) || (((v14325_x) < (' ')) || ((v14325_x) > ('~'))))))) { (void)(oportputc(('%'), (r[2]))); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = obj_from_case(247); r[3] = (hendblk(2+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = obj_from_fixnum((fixnum_t)(v14325_x)); r[4+3] = obj_from_fixnum(+16); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(oportputc((v14325_x), (r[2]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } 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; /* shift reg. wnd */ /* ek r k port */ (void)(((stringlen((r[1]))) == (+1)) ? (void)(oportputc(('0'), (r[3]))) : (void)(0)); r[4] = obj_from_void(oportputs(stringchars((r[1])), (r[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 248: /* write-serialized-byte k x port */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_write_2Dserialized_2Dbyte: /* k x port */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = obj_from_case(249); r[3] = (hendblk(2+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = r[1]; r[4+3] = obj_from_fixnum(+16); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; 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; /* shift reg. wnd */ /* ek r k port */ (void)(((stringlen((r[1]))) == (+1)) ? (void)(oportputc(('0'), (r[3]))) : (void)(0)); r[4] = obj_from_void(oportputs(stringchars((r[1])), (r[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 250: /* write-serialized-size k n port */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k n port */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = obj_from_case(251); r[3] = (hendblk(2+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = r[1]; r[4+3] = obj_from_fixnum(+10); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; 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; /* shift reg. wnd */ /* ek r k port */ (void)(oportputs(stringchars((r[1])), (r[3]))); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(oportputc((':'), (r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 252: /* write-serialized-element k x port */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k x port */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = obj_from_case(253); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ /* r[2] */ goto gs_write_2Dserialized_2Dsexp; case 253: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k port */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(oportputc((';'), (r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 254: /* write-serialized-sexp k x port */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_write_2Dserialized_2Dsexp: /* k x port */ if (((r[1]) == obj_from_bool(0))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(oportputc(('f'), (r[2]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if (((r[1]) == obj_from_bool(1))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(oportputc(('t'), (r[2]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if (((r[1]) == (mknull()))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(oportputc(('n'), (r[2]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if ((is_char_obj(r[1]))) { (void)(oportputc(('c'), (r[2]))); /* r[0] */ /* r[1] */ /* r[2] */ goto gs_write_2Dserialized_2Dchar; } else { if (((is_fixnum_obj(r[1])) || (is_flonum_obj(r[1])))) { (void)(oportputc(((is_fixnum_obj(r[1])) ? ('i') : ('j')), (r[2]))); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = obj_from_case(255); r[3] = (hendblk(2+1)); if ((is_fixnum_obj(r[1]))) { r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = r[1]; r[4+3] = obj_from_fixnum(+10); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[4+0] = (cx_flonum_2D_3Estring); 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; } } else { if ((islist((r[1])))) { (void)(oportputc(('l'), (r[2]))); { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; r[3] = obj_from_fixnum(n); } hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(256); r[4] = (hendblk(3+1)); r[5+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[3]; r[5+3] = obj_from_fixnum(+10); r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((ispair((r[1])))) { (void)(oportputc(('p'), (r[2]))); r[3] = (car((r[1]))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(259); r[4] = (hendblk(3+1)); r[5+0] = (cx_write_2Dserialized_2Dsexp); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[3]; r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((isvector((r[1])))) { (void)(oportputc(('v'), (r[2]))); hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(261); r[3] = (hendblk(3+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = obj_from_fixnum(vectorlen((r[1]))); r[4+3] = obj_from_fixnum(+10); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((isstring((r[1])))) { (void)(oportputc(('s'), (r[2]))); hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(264); r[3] = (hendblk(3+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = obj_from_fixnum(stringlen((r[1]))); r[4+3] = obj_from_fixnum(+10); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((isbytevector((r[1])))) { (void)(oportputc(('b'), (r[2]))); hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(267); r[3] = (hendblk(3+1)); r[4+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = obj_from_fixnum(bytevectorlen((r[1]))); r[4+3] = obj_from_fixnum(+10); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((issymbol((r[1])))) { (void)(oportputc(('y'), (r[2]))); r[3] = (hpushstr(3, newstring(symbolname(getsymbol((r[1])))))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = r[3]; *--hp = obj_from_case(270); r[4] = (hendblk(3+1)); r[5+0] = (cx_fixnum_2D_3Estring); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = obj_from_fixnum(stringlen((r[3]))); r[5+3] = obj_from_fixnum(+10); r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((isbox((r[1])))) { (void)(oportputc(('z'), (r[2]))); r[3] = (boxref((r[1]))); hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = obj_from_case(273); r[4] = (hendblk(2+1)); r[5+0] = (cx_write_2Dserialized_2Dsexp); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[3]; r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3+0] = (cx_c_2Derror); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; r[3+2] = (cx__231854); r[3+3] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } } } } } } } } } } } } 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; /* shift reg. wnd */ /* ek r k port */ r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = obj_from_void(oportputs(stringchars((r[1])), (r[3]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; 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; /* shift reg. wnd */ /* ek r x k port */ (void)(oportputs(stringchars((r[1])), (r[4]))); (void)(oportputc((':'), (r[4]))); r[0] = r[3]; r[1] = r[2]; r[2] = r[4]; goto s_loop_v12498; case 257: /* clo k x */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v12498: /* k x port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[3] = (car((r[1]))); hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = obj_from_case(257); r[4] = (hendblk(1+1)); hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(258); r[4] = (hendblk(4+1)); r[5+0] = (cx_write_2Dserialized_2Dsexp); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = r[3]; r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 258: /* 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 . loop x k port */ (void)(oportputc((';'), (r[5]))); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = (cdr((r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 259: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . k x port */ (void)(oportputc((';'), (r[4]))); r[5] = (cdr((r[3]))); hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[2]; *--hp = obj_from_case(260); r[6] = (hendblk(2+1)); r[0] = (cx_write_2Dserialized_2Dsexp); 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 260: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k port */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(oportputc((';'), (r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; 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; /* shift reg. wnd */ /* ek r x k port */ (void)(oportputs(stringchars((r[1])), (r[4]))); (void)(oportputc((':'), (r[4]))); r[5+0] = r[3]; r[5+1] = obj_from_fixnum(+0); r[5+2] = r[4]; r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v12469; case 262: /* 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_v12469: /* k i port x */ if ((fixnum_from_obj(r[1]) == (vectorlen((r[3]))))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[4] = (vectorref((r[3]), fixnum_from_obj(r[1]))); hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(262); r[5] = (hendblk(2+1)); hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; *--hp = r[5]; *--hp = obj_from_case(263); r[5] = (hendblk(4+1)); r[6+0] = (cx_write_2Dserialized_2Dsexp); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[5]; r[6+2] = r[4]; r[6+3] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 263: /* 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 . loop i k port */ (void)(oportputc((';'), (r[5]))); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; 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; /* shift reg. wnd */ /* ek r x k port */ (void)(oportputs(stringchars((r[1])), (r[4]))); (void)(oportputc((':'), (r[4]))); r[5+0] = r[3]; r[5+1] = obj_from_fixnum(+0); r[5+2] = r[4]; r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v12452; case 265: /* 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_v12452: /* k i port x */ if ((fixnum_from_obj(r[1]) == (stringlen((r[3]))))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(265); r[4] = (hendblk(2+1)); hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(266); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = obj_from_char(*(unsigned char*)stringref((r[3]), fixnum_from_obj(r[1]))); /* r[2] */ goto gs_write_2Dserialized_2Dchar; } case 266: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . loop i k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 267: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r x k port */ (void)(oportputs(stringchars((r[1])), (r[4]))); (void)(oportputc((':'), (r[4]))); r[5+0] = r[3]; r[5+1] = obj_from_fixnum(+0); r[5+2] = r[4]; r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v12435; case 268: /* 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_v12435: /* k i port x */ if ((fixnum_from_obj(r[1]) == (bytevectorlen((r[3]))))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(268); r[4] = (hendblk(2+1)); hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(269); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = obj_from_fixnum(*bytevectorref((r[3]), fixnum_from_obj(r[1]))); /* r[2] */ goto gs_write_2Dserialized_2Dbyte; } case 269: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . loop i k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; 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 x k port */ (void)(oportputs(stringchars((r[1])), (r[4]))); (void)(oportputc((':'), (r[4]))); r[5+0] = r[3]; r[5+1] = obj_from_fixnum(+0); r[5+2] = r[4]; r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v12418; case 271: /* 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_v12418: /* k i port x */ if ((fixnum_from_obj(r[1]) == (stringlen((r[3]))))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(271); r[4] = (hendblk(2+1)); hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(272); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = obj_from_char(*(unsigned char*)stringref((r[3]), fixnum_from_obj(r[1]))); /* r[2] */ goto gs_write_2Dserialized_2Dchar; } case 272: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . loop i k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 273: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k port */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(oportputc((';'), (r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 274: /* write-serialized-arg k arg port */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_write_2Dserialized_2Darg: /* k arg port */ if (((is_fixnum_obj(r[1])) || (is_flonum_obj(r[1])))) { if ((is_fixnum_obj(r[1]))) { { const fixnum_t v14324_arg = fixnum_from_obj(r[1]); r[3] = obj_from_bool(((+0) <= (v14324_arg)) && ((v14324_arg) <= (+9))); } } else { r[3] = obj_from_bool(0); } } else { r[3] = obj_from_bool(0); } if (bool_from_obj(r[3])) { { const char_t v14323_tmp = (*(unsigned char*)stringref((cx__231950), fixnum_from_obj(r[1]))); r[3] = obj_from_void(oportputc((v14323_tmp), (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[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { (void)(oportputc(('('), (r[2]))); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = obj_from_case(275); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ /* r[2] */ goto gs_write_2Dserialized_2Dsexp; } case 275: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k port */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(oportputc((')'), (r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 276: /* find-free* k x* b */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_find_2Dfree_2A: /* k x* b */ 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 { hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(277); r[3] = (hendblk(3+1)); r[0] = r[3]; r[1] = (car((r[1]))); /* r[2] */ goto gs_find_2Dfree; } case 277: /* clo ek r */ assert(rc == 3); { 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 b x* k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; *--hp = obj_from_case(278); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (cdr((r[3]))); /* r[2] */ goto gs_find_2Dfree_2A; 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; /* shift reg. wnd */ /* ek r r k */ r[4+0] = r[3]; r[4+1] = r[2]; r[4+2] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; case 279: /* find-free k x b */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_find_2Dfree: /* k x b */ r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("quote")))); if (bool_from_obj(r[3])) { hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(280); r[3] = (hendblk(0+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("ref")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(281); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("set!")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(282); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("set&")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(284); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("lambda")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(285); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("lambda*")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(288); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); r[3] = (hendblk(3)); } r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("letcc")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(292); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("withcc")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(294); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("if")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(297); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("begin")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(302); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); r[3] = (hendblk(3)); } r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("integrable")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(303); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_fixnum(+1); *--hp = obj_from_objptr(appcases+1); r[3] = (hendblk(3)); } r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("call")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(304); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_fixnum(+1); *--hp = obj_from_objptr(appcases+1); r[3] = (hendblk(3)); } r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("define")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = obj_from_case(307); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); r[3] = (hendblk(3)); } r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mksymbol(internsym("record-case-miss"))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } } } } } } } } } } } } case 280: /* clo k obj */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k obj */ 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; case 281: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* k id b */ if (bool_from_obj(cxs_set_2Dmember_3F((r[1]), (r[2])))) { r[3] = (mknull()); } 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]; 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 282: /* clo k id exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ /* k id exp b */ hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_case(283); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[2]; r[2] = r[3]; goto gs_find_2Dfree; 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+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r id b k */ if (bool_from_obj(cxs_set_2Dmember_3F((r[2]), (r[3])))) { r[5] = (mknull()); } else { { /* 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[4]; r[6+1] = r[5]; r[6+2] = r[1]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; case 284: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* k id b */ if (bool_from_obj(cxs_set_2Dmember_3F((r[1]), (r[2])))) { r[3] = (mknull()); } 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]; 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 285: /* clo k idsi exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ /* k idsi exp b */ hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_case(286); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ goto gs_flatten_2Didslist; 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; /* shift reg. wnd */ /* ek r b exp k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(287); r[5] = (hendblk(2+1)); r[0] = r[5]; /* r[1] */ /* r[2] */ goto gs_set_2Dunion; 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; /* shift reg. wnd */ /* ek r exp k */ r[4+0] = r[3]; r[4+1] = r[2]; r[4+2] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_find_2Dfree; case 288: /* clo k clauses */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* k clauses b */ r[3] = (cx__25residual_2Dcadr); hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = obj_from_case(291); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; goto s_loop_v12295; s_loop_v12295: /* k l f */ if ((ispair((r[1])))) { 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(289); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v12295; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } 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; /* shift reg. wnd */ /* ek r f l k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(290); 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 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 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 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; /* shift reg. wnd */ /* ek r b k */ r[0] = r[3]; /* r[1] */ /* r[2] */ goto gs_find_2Dfree_2A; case 292: /* clo k kid exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ /* k kid exp b */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = obj_from_case(293); r[4] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } r[0] = r[4]; r[1] = r[5]; r[2] = r[3]; goto gs_set_2Dunion; 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; /* shift reg. wnd */ /* ek r exp k */ r[4+0] = r[3]; r[4+1] = r[2]; r[4+2] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_find_2Dfree; case 294: /* clo k kexp exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ /* k kexp exp b */ hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_case(295); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; goto gs_find_2Dfree; case 295: /* clo ek r */ assert(rc == 3); { 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 b exp k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; *--hp = obj_from_case(296); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dfree; 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; /* shift reg. wnd */ /* ek r r k */ r[4+0] = r[3]; r[4+1] = r[2]; r[4+2] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; case 297: /* clo k test then else */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; } r += 1; /* shift reg. wnd */ /* k test then else b */ hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[3]; *--hp = r[4]; *--hp = r[2]; *--hp = obj_from_case(298); r[5] = (hendblk(4+1)); r[0] = r[5]; /* r[1] */ r[2] = r[4]; goto gs_find_2Dfree; 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 then b else k */ hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(299); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; r[2] = r[3]; goto gs_find_2Dfree; case 299: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(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 b else r k */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[1]; *--hp = obj_from_case(300); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dfree; 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; /* shift reg. wnd */ /* ek r r r k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(301); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; r[6+2] = r[1]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; 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; /* shift reg. wnd */ /* ek r r k */ r[4+0] = r[3]; r[4+1] = r[2]; r[4+2] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; case 302: /* clo k exps */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* k exps b */ /* r[0] */ /* r[1] */ /* r[2] */ goto gs_find_2Dfree_2A; case 303: /* clo k ig args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ /* k ig args b */ /* r[0] */ r[1] = r[2]; r[2] = r[3]; goto gs_find_2Dfree_2A; case 304: /* clo k exp args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ /* k exp args b */ hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_case(305); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; goto gs_find_2Dfree; 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+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r b args k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; *--hp = obj_from_case(306); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dfree_2A; 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; /* shift reg. wnd */ /* ek r r k */ r[4+0] = r[3]; r[4+1] = r[2]; r[4+2] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; case 307: /* clo k tail */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* k tail x */ r[3+0] = (cx_c_2Derror); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; r[3+2] = (cx__231971); r[3+3] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 308: /* find-sets* k x* v */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_find_2Dsets_2A: /* k x* v */ 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 { hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(309); r[3] = (hendblk(3+1)); r[0] = r[3]; r[1] = (car((r[1]))); /* r[2] */ goto gs_find_2Dsets; } 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+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r v x* k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; *--hp = obj_from_case(310); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = (cdr((r[3]))); /* r[2] */ goto gs_find_2Dsets_2A; 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; /* shift reg. wnd */ /* ek r r k */ r[4+0] = r[3]; r[4+1] = r[2]; r[4+2] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; case 311: /* find-sets k x v */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_find_2Dsets: /* k x v */ r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("quote")))); if (bool_from_obj(r[3])) { hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(312); r[3] = (hendblk(0+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("ref")))); if (bool_from_obj(r[3])) { hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(313); r[3] = (hendblk(0+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("set!")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(314); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("set&")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(316); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("lambda")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(317); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("lambda*")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(320); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); r[3] = (hendblk(3)); } r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("letcc")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(324); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("withcc")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(326); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("begin")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(329); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); r[3] = (hendblk(3)); } r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("if")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(330); r[3] = (hendblk(1+1)); r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("integrable")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(335); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_fixnum(+1); *--hp = obj_from_objptr(appcases+1); r[3] = (hendblk(3)); } r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("call")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(336); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_fixnum(+1); *--hp = obj_from_objptr(appcases+1); r[3] = (hendblk(3)); } r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("define")))); if (bool_from_obj(r[3])) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = obj_from_case(339); r[3] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); r[3] = (hendblk(3)); } r[4+0] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = r[3]; r[4+3] = (cdr((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mksymbol(internsym("record-case-miss"))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } } } } } } } } } } } } case 312: /* clo k obj */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k obj */ 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; case 313: /* clo k id */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k id */ 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; case 314: /* clo k id x */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ /* k id x v */ hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_case(315); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[2]; r[2] = r[3]; goto gs_find_2Dsets; case 315: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r id v k */ if (bool_from_obj(cxs_set_2Dmember_3F((r[2]), (r[3])))) { { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[5] = (hendblk(3)); } } else { r[5] = (mknull()); } r[6+0] = r[4]; r[6+1] = r[5]; r[6+2] = r[1]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; case 316: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* k id v */ if (bool_from_obj(cxs_set_2Dmember_3F((r[1]), (r[2])))) { { /* cons */ hreserve(hbsz(3), 3); /* 3 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[3] = (hendblk(3)); } } else { r[3] = (mknull()); } 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 317: /* clo k idsi exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ /* k idsi exp v */ hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_case(318); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ goto gs_flatten_2Didslist; case 318: /* clo ek r */ assert(rc == 3); { 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 v exp k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(319); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; r[6+2] = r[1]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_set_2Dminus; 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; /* shift reg. wnd */ /* ek r exp k */ r[4+0] = r[3]; r[4+1] = r[2]; r[4+2] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_find_2Dsets; case 320: /* clo k clauses */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* k clauses v */ r[3] = (cx__25residual_2Dcadr); hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = obj_from_case(323); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; goto s_loop_v12078; s_loop_v12078: /* k l f */ if ((ispair((r[1])))) { 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(321); r[4] = (hendblk(3+1)); r[0] = r[4]; r[1] = r[3]; /* r[2] */ goto s_loop_v12078; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mknull()); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 321: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r f l k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = obj_from_case(322); 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 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; /* 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 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 v k */ r[0] = r[3]; /* r[1] */ /* r[2] */ goto gs_find_2Dsets_2A; case 324: /* clo k kid exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ /* k kid exp v */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = obj_from_case(325); r[4] = (hendblk(2+1)); { /* 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; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_set_2Dminus; 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 exp k */ r[4+0] = r[3]; r[4+1] = r[2]; r[4+2] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_find_2Dsets; case 326: /* clo k kexp exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ /* k kexp exp v */ hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_case(327); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; goto gs_find_2Dsets; case 327: /* clo ek r */ assert(rc == 3); { 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 v exp k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; *--hp = obj_from_case(328); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dsets; case 328: /* clo 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 */ r[4+0] = r[3]; r[4+1] = r[2]; r[4+2] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; case 329: /* clo k exps */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* k exps v */ /* r[0] */ /* r[1] */ /* r[2] */ goto gs_find_2Dsets_2A; case 330: /* clo k test then else */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; } r += 1; /* shift reg. wnd */ /* k test then else v */ hreserve(hbsz(4+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[3]; *--hp = r[4]; *--hp = r[2]; *--hp = obj_from_case(331); r[5] = (hendblk(4+1)); r[0] = r[5]; /* r[1] */ r[2] = r[4]; goto gs_find_2Dsets; case 331: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* ek r then v else k */ hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(332); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[2]; r[2] = r[3]; goto gs_find_2Dsets; case 332: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(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 v else r k */ hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[1]; *--hp = obj_from_case(333); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dsets; 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 r r k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(334); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; r[6+2] = r[1]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; case 334: /* clo 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 */ r[4+0] = r[3]; r[4+1] = r[2]; r[4+2] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; case 335: /* clo k ig args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ /* k ig args v */ /* r[0] */ r[1] = r[2]; r[2] = r[3]; goto gs_find_2Dsets_2A; case 336: /* clo k exp args */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ /* k exp args v */ hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_case(337); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = r[3]; goto gs_find_2Dsets; case 337: /* clo ek r */ assert(rc == 3); { 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 v args k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[1]; *--hp = obj_from_case(338); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[3]; /* r[2] */ goto gs_find_2Dsets_2A; case 338: /* clo 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 */ r[4+0] = r[3]; r[4+1] = r[2]; r[4+2] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; case 339: /* clo k tail */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* k tail x */ r[3+0] = (cx_c_2Derror); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; r[3+2] = (cx__231971); r[3+3] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 340: /* codegen k x l f s g k port */ assert(rc == 9); r += 1; /* shift reg. wnd */ gs_codegen: /* k x l f s g k port */ r[8] = (car((r[1]))); r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("quote")))); if (bool_from_obj(r[8])) { hreserve(hbsz(2+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[7]; *--hp = obj_from_case(341); r[8] = (hendblk(2+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[0]; r[9+2] = r[8]; r[9+3] = (cdr((r[1]))); r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[8] = (car((r[1]))); r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("ref")))); if (bool_from_obj(r[8])) { hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[2]; *--hp = r[6]; *--hp = r[7]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(343); r[8] = (hendblk(5+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[0]; r[9+2] = r[8]; r[9+3] = (cdr((r[1]))); r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[8] = (car((r[1]))); r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("set!")))); if (bool_from_obj(r[8])) { hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[2]; *--hp = r[6]; *--hp = r[7]; *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; *--hp = obj_from_case(347); r[8] = (hendblk(6+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[0]; r[9+2] = r[8]; r[9+3] = (cdr((r[1]))); r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[8] = (car((r[1]))); r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("set&")))); if (bool_from_obj(r[8])) { hreserve(hbsz(4+1), 8); /* 8 live regs */ *--hp = r[2]; *--hp = r[6]; *--hp = r[7]; *--hp = r[3]; *--hp = obj_from_case(350); r[8] = (hendblk(4+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[0]; r[9+2] = r[8]; r[9+3] = (cdr((r[1]))); r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[8] = (car((r[1]))); r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("begin")))); if (bool_from_obj(r[8])) { hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[7]; *--hp = r[2]; *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; *--hp = obj_from_case(352); r[8] = (hendblk(6+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); r[8] = (hendblk(3)); } r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[0]; r[9+2] = r[8]; r[9+3] = (cdr((r[1]))); r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[8] = (car((r[1]))); r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("if")))); if (bool_from_obj(r[8])) { hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[2]; *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; *--hp = obj_from_case(356); r[8] = (hendblk(6+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[0]; r[9+2] = r[8]; r[9+3] = (cdr((r[1]))); r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[8] = (car((r[1]))); r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("lambda")))); if (bool_from_obj(r[8])) { hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_case(360); r[8] = (hendblk(6+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[0]; r[9+2] = r[8]; r[9+3] = (cdr((r[1]))); r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[8] = (car((r[1]))); r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("lambda*")))); if (bool_from_obj(r[8])) { hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[2]; *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; *--hp = obj_from_case(376); r[8] = (hendblk(6+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); r[8] = (hendblk(3)); } r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[0]; r[9+2] = r[8]; r[9+3] = (cdr((r[1]))); r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[8] = (car((r[1]))); r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("letcc")))); if (bool_from_obj(r[8])) { hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[7]; *--hp = r[2]; *--hp = r[3]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(385); r[8] = (hendblk(6+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[0]; r[9+2] = r[8]; r[9+3] = (cdr((r[1]))); r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[8] = (car((r[1]))); r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("withcc")))); if (bool_from_obj(r[8])) { hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[2]; *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; *--hp = obj_from_case(392); r[8] = (hendblk(5+1)); r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[0]; r[9+2] = r[8]; r[9+3] = (cdr((r[1]))); r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[8] = (car((r[1]))); r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("integrable")))); if (bool_from_obj(r[8])) { hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[7]; *--hp = r[2]; *--hp = r[3]; *--hp = r[4]; *--hp = r[5]; *--hp = obj_from_case(397); r[8] = (hendblk(6+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = obj_from_fixnum(+1); *--hp = obj_from_objptr(appcases+1); r[8] = (hendblk(3)); } r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[0]; r[9+2] = r[8]; r[9+3] = (cdr((r[1]))); r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[8] = (car((r[1]))); r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("call")))); if (bool_from_obj(r[8])) { hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[3]; *--hp = r[5]; *--hp = r[7]; *--hp = r[2]; *--hp = r[4]; *--hp = obj_from_case(432); r[8] = (hendblk(6+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = obj_from_fixnum(+1); *--hp = obj_from_objptr(appcases+1); r[8] = (hendblk(3)); } r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[0]; r[9+2] = r[8]; r[9+3] = (cdr((r[1]))); r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[8] = (car((r[1]))); r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("define")))); if (bool_from_obj(r[8])) { hreserve(hbsz(1+1), 8); /* 8 live regs */ *--hp = r[1]; *--hp = obj_from_case(453); r[8] = (hendblk(1+1)); { /* make-improper-lambda */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = r[8]; *--hp = obj_from_fixnum(+0); *--hp = obj_from_objptr(appcases+1); r[8] = (hendblk(3)); } r[9+0] = (cx_apply); pc = objptr_from_obj(r[9+0])[0]; r[9+1] = r[0]; r[9+2] = r[8]; r[9+3] = (cdr((r[1]))); r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (mksymbol(internsym("record-case-miss"))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } } } } } } } } } } } } case 341: /* clo k obj */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* k obj port k */ hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = r[0]; *--hp = obj_from_case(342); r[4] = (hendblk(3+1)); if (((((r[1]) == obj_from_bool(1)) || ((is_flonum_obj(r[1])) && (0))) && (1))) { r[5] = obj_from_void(oportputc(('t'), (r[2]))); r[6+0] = obj_from_ktrap(); r[6+1] = r[5]; r[6+2] = r[0]; r[6+3] = r[2]; r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v11935; } else { if (((((r[1]) == obj_from_bool(0)) || ((is_flonum_obj(r[1])) && (0))) && (1))) { r[5] = obj_from_void(oportputc(('f'), (r[2]))); r[6+0] = obj_from_ktrap(); r[6+1] = r[5]; r[6+2] = r[0]; r[6+3] = r[2]; r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v11935; } else { if (((((r[1]) == (mknull())) || ((is_flonum_obj(r[1])) && ((is_flonum_obj(mknull())) && (flonum_from_obj(r[1]) == flonum_from_obj(mknull()))))) && (1))) { r[5] = obj_from_void(oportputc(('n'), (r[2]))); r[6+0] = obj_from_ktrap(); r[6+1] = r[5]; r[6+2] = r[0]; r[6+3] = r[2]; r[6+4] = r[3]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v11935; } else { (void)(oportputc((39), (r[2]))); r[0] = r[4]; /* r[1] */ /* r[2] */ goto gs_write_2Dserialized_2Darg; } } } case 342: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ s_l_v11935: /* ek . k port k */ if (bool_from_obj(r[4])) { (void)(oportputc((']'), (r[3]))); r[0] = r[2]; r[1] = r[4]; r[2] = r[3]; goto gs_write_2Dserialized_2Darg; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 343: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(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 */ /* k id f s port k l */ r[7] = (cxs_posq((r[1]), (r[6]))); hreserve(hbsz(3+1), 8); /* 8 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[0]; *--hp = obj_from_case(344); r[8] = (hendblk(3+1)); if (bool_from_obj(r[7])) { (void)(oportputc(('.'), (r[4]))); hreserve(hbsz(4+1), 9); /* 9 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = r[4]; *--hp = r[8]; *--hp = obj_from_case(345); r[9] = (hendblk(4+1)); r[0] = r[9]; r[1] = r[7]; r[2] = r[4]; goto gs_write_2Dserialized_2Darg; } else { r[9] = (cxs_posq((r[1]), (r[2]))); if (bool_from_obj(r[9])) { (void)(oportputc((':'), (r[4]))); hreserve(hbsz(4+1), 10); /* 10 live regs */ *--hp = r[3]; *--hp = r[1]; *--hp = r[4]; *--hp = r[8]; *--hp = obj_from_case(346); r[10] = (hendblk(4+1)); r[0] = (r[10]); r[1] = r[9]; r[2] = r[4]; goto gs_write_2Dserialized_2Darg; } else { (void)(oportputc(('@'), (r[4]))); r[0] = r[8]; /* r[1] */ r[2] = r[4]; goto gs_write_2Dserialized_2Darg; } } case 344: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . k port k */ if (bool_from_obj(r[4])) { (void)(oportputc((']'), (r[3]))); r[0] = r[2]; r[1] = r[4]; r[2] = r[3]; goto gs_write_2Dserialized_2Darg; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 345: /* 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 . k port id s */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(bool_from_obj(cxs_set_2Dmember_3F((r[4]), (r[5]))) ? (void)(oportputc(('^'), (r[3]))) : (void)(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 346: /* 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 . k port id s */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(bool_from_obj(cxs_set_2Dmember_3F((r[4]), (r[5]))) ? (void)(oportputc(('^'), (r[3]))) : (void)(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 347: /* clo k id x */ 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; /* shift reg. wnd */ /* k id x g s f port k l */ hreserve(hbsz(6+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[1]; *--hp = r[7]; *--hp = r[6]; *--hp = r[0]; *--hp = r[5]; *--hp = obj_from_case(348); r[9] = (hendblk(6+1)); r[10+0] = r[9]; r[10+1] = r[2]; r[10+2] = r[8]; r[10+3] = r[5]; r[10+4] = r[4]; r[10+5] = r[3]; r[10+6] = obj_from_bool(0); r[10+7] = r[6]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; case 348: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek . f k port k id l */ r[8] = (cxs_posq((r[6]), (r[7]))); hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(349); r[9] = (hendblk(3+1)); if (bool_from_obj(r[8])) { (void)(oportputc(('.'), (r[4]))); (void)(oportputc(('!'), (r[4]))); r[0] = r[9]; r[1] = r[8]; r[2] = r[4]; goto gs_write_2Dserialized_2Darg; } else { r[10] = (cxs_posq((r[6]), (r[2]))); if (bool_from_obj(r[10])) { (void)(oportputc((':'), (r[4]))); (void)(oportputc(('!'), (r[4]))); r[0] = r[9]; r[1] = (r[10]); r[2] = r[4]; goto gs_write_2Dserialized_2Darg; } else { (void)(oportputc(('@'), (r[4]))); (void)(oportputc(('!'), (r[4]))); r[0] = r[9]; r[1] = r[6]; r[2] = r[4]; goto gs_write_2Dserialized_2Darg; } } case 349: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . k port k */ if (bool_from_obj(r[4])) { (void)(oportputc((']'), (r[3]))); r[0] = r[2]; r[1] = r[4]; r[2] = r[3]; goto gs_write_2Dserialized_2Darg; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 350: /* clo k id */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; } r += 1; /* shift reg. wnd */ /* k id f port k l */ r[6] = (cxs_posq((r[1]), (r[5]))); hreserve(hbsz(3+1), 7); /* 7 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[0]; *--hp = obj_from_case(351); r[7] = (hendblk(3+1)); if (bool_from_obj(r[6])) { (void)(oportputc(('.'), (r[3]))); r[0] = r[7]; r[1] = r[6]; r[2] = r[3]; goto gs_write_2Dserialized_2Darg; } else { r[8] = (cxs_posq((r[1]), (r[2]))); if (bool_from_obj(r[8])) { (void)(oportputc((':'), (r[3]))); r[0] = r[7]; r[1] = r[8]; r[2] = r[3]; goto gs_write_2Dserialized_2Darg; } else { (void)(oportputc(('`'), (r[3]))); r[0] = r[7]; /* r[1] */ r[2] = r[3]; goto gs_write_2Dserialized_2Darg; } } case 351: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . k port k */ if (bool_from_obj(r[4])) { (void)(oportputc((']'), (r[3]))); r[0] = r[2]; r[1] = r[4]; r[2] = r[3]; goto gs_write_2Dserialized_2Darg; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 352: /* clo k exps */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* k exps g s f l port k */ hreserve(hbsz(4+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[1]; *--hp = r[6]; *--hp = r[0]; *--hp = obj_from_case(355); r[8] = (hendblk(4+1)); r[9+0] = r[8]; r[9+1] = r[1]; r[9+2] = r[6]; r[9+3] = r[2]; r[9+4] = r[3]; r[9+5] = r[4]; r[9+6] = r[5]; r[9+7] = r[7]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v11861; case 353: /* clo k xl */ assert(rc == 3); { obj* p = objptr_from_obj(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_loop_v11861: /* k xl port g s f l k */ if ((ispair((r[1])))) { r[8] = (cdr((r[1]))); r[8] = obj_from_bool(ispair((r[8]))); if (bool_from_obj(r[8])) { r[8] = obj_from_bool(0); } else { r[8] = r[7]; } hreserve(hbsz(6+1), 9); /* 9 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(353); r[9] = (hendblk(6+1)); hreserve(hbsz(3+1), 10); /* 10 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[9]; *--hp = obj_from_case(354); r[9] = (hendblk(3+1)); r[10+0] = r[9]; r[10+1] = (car((r[1]))); r[10+2] = r[6]; r[10+3] = r[5]; r[10+4] = r[4]; r[10+5] = r[3]; r[10+6] = r[8]; r[10+7] = r[2]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 354: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . loop xl k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = (cdr((r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 355: /* 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 . k port exps k */ if ((bool_from_obj(r[5]) && (isnull((r[4]))))) { (void)(oportputc((']'), (r[3]))); r[0] = r[2]; r[1] = r[5]; r[2] = r[3]; goto gs_write_2Dserialized_2Darg; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 356: /* clo k test then else */ assert(rc == 5); { obj* p = objptr_from_obj(r[0]); r[1+4] = p[1]; r[1+5] = p[2]; r[1+6] = p[3]; r[1+7] = p[4]; r[1+8] = p[5]; r[1+9] = p[6]; } r += 1; /* shift reg. wnd */ /* k test then else g s f l k port */ hreserve(hbsz(9+1), 10); /* 10 live regs */ *--hp = r[9]; *--hp = r[8]; *--hp = r[0]; *--hp = r[3]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[2]; *--hp = obj_from_case(357); r[10] = (hendblk(9+1)); r[11+0] = (r[10]); r[11+1] = r[1]; r[11+2] = r[7]; r[11+3] = r[6]; r[11+4] = r[5]; r[11+5] = r[4]; r[11+6] = obj_from_bool(0); r[11+7] = r[9]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; case 357: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek . then g s f l else k k port */ (void)(oportputc(('?'), (r[10]))); (void)(oportputc(('{'), (r[10]))); hreserve(hbsz(8+1), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(358); r[11] = (hendblk(8+1)); r[12+0] = (r[11]); r[12+1] = r[2]; r[12+2] = r[6]; r[12+3] = r[5]; r[12+4] = r[4]; r[12+5] = r[3]; r[12+6] = r[9]; r[12+7] = (r[10]); r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; case 358: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ /* ek . g s f l else k k port */ (void)(oportputc(('}'), (r[9]))); if (bool_from_obj(r[8])) { r[10+0] = r[7]; r[10+1] = r[6]; r[10+2] = r[5]; r[10+3] = r[4]; r[10+4] = r[3]; r[10+5] = r[2]; r[10+6] = r[8]; r[10+7] = r[9]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } else { r[10] = obj_from_bool(isequal((r[6]), (cx__232787))); if (bool_from_obj(r[10])) { r[0] = r[7]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = (r[10]); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if (bool_from_obj(r[6])) { (void)(oportputc(('{'), (r[9]))); hreserve(hbsz(2+1), 11); /* 11 live regs */ *--hp = r[9]; *--hp = r[7]; *--hp = obj_from_case(359); r[11] = (hendblk(2+1)); r[12+0] = (r[11]); r[12+1] = r[6]; r[12+2] = r[5]; r[12+3] = r[4]; r[12+4] = r[3]; r[12+5] = r[2]; r[12+6] = r[8]; r[12+7] = r[9]; r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } else { r[0] = r[7]; 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 359: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k port */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(oportputc(('}'), (r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 360: /* clo k idsi exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; r[1+5] = p[3]; r[1+6] = p[4]; r[1+7] = p[5]; r[1+8] = p[6]; } r += 1; /* shift reg. wnd */ /* k idsi exp f l s g k port */ hreserve(hbsz(9+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[0]; *--hp = r[2]; *--hp = r[6]; *--hp = r[5]; *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(361); r[9] = (hendblk(9+1)); r[0] = r[9]; /* r[1] */ goto gs_flatten_2Didslist; 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+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek r f l idsi s g exp k k port */ hreserve(hbsz(10+1), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[1]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(362); r[11] = (hendblk(10+1)); r[12+0] = (r[11]); r[12+1] = r[7]; r[12+2] = r[1]; r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_find_2Dfree; 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+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 f l idsi s g r exp k k port */ hreserve(hbsz(10+1), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(363); r[12] = (hendblk(10+1)); r[0] = (r[12]); /* r[1] */ r[2] = r[6]; goto gs_set_2Dminus; 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+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 f l idsi s g r exp k k port */ hreserve(hbsz(11+1), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[1]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(364); r[12] = (hendblk(11+1)); r[0] = (r[12]); r[1] = r[8]; r[2] = r[7]; goto gs_find_2Dsets; 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+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; r[1+11] = p[10]; r[1+12] = p[11]; } r += 1; /* shift reg. wnd */ /* ek r f l idsi s g r r exp k k port */ { fixnum_t v14322_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14322_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14322_tmp); hreserve(hbsz(3)*c, 13); /* 13 live regs */ l = r[7]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[13] = (o); } } hreserve(hbsz(10+1), 14); /* 14 live regs */ *--hp = (r[12]); *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[1]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(367); r[14] = (hendblk(10+1)); r[15+0] = (r[14]); r[15+1] = (r[13]); r[15+2] = r[3]; r[15+3] = r[6]; r[15+4] = r[2]; r[15+5] = (r[12]); r += 15; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v11790; case 365: /* clo k free l */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; r[1+5] = p[3]; } r += 1; /* shift reg. wnd */ s_loop_v11790: /* k free l g f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(365); r[6] = (hendblk(3+1)); hreserve(hbsz(5+1), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[6]; *--hp = obj_from_case(366); r[6] = (hendblk(5+1)); r[7] = (car((r[1]))); { /* 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("ref"))); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } r[8+0] = r[6]; r[8+1] = r[7]; r[8+2] = r[2]; r[8+3] = r[4]; r[8+4] = (mknull()); r[8+5] = r[3]; r[8+6] = obj_from_bool(0); r[8+7] = r[5]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } case 366: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek . loop l free k port */ (void)(oportputc((','), (r[6]))); { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[3]; *--hp = obj_from_bool(0); *--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] = (cdr((r[4]))); r[3] = r[7]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 367: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; r[1+11] = p[10]; } r += 1; /* shift reg. wnd */ /* ek . idsi s r g r r exp k k port */ (void)(oportputc(('&'), (r[11]))); hreserve(hbsz(10+1), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(368); r[12] = (hendblk(10+1)); { /* length */ int n; obj l = r[6]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; r[13] = obj_from_fixnum(n); } r[0] = (r[12]); r[1] = (r[13]); r[2] = (r[11]); goto gs_write_2Dserialized_2Darg; case 368: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; r[1+11] = p[10]; } r += 1; /* shift reg. wnd */ /* ek . idsi s r g r r exp k k port */ (void)(oportputc(('{'), (r[11]))); hreserve(hbsz(9+1), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(369); r[12] = (hendblk(9+1)); if ((islist((r[2])))) { (void)(oportputc(('%'), (r[11]))); { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; r[13] = obj_from_fixnum(n); } r[0] = (r[12]); r[1] = (r[13]); r[2] = (r[11]); goto gs_write_2Dserialized_2Darg; } else { (void)(oportputc(('%'), (r[11]))); (void)(oportputc(('!'), (r[11]))); r[0] = (r[12]); r[1] = (cxs_idslist_2Dreq_2Dcount((r[2]))); r[2] = (r[11]); goto gs_write_2Dserialized_2Darg; } case 369: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek . s r g r r exp k k port */ hreserve(hbsz(9+1), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(372); r[11] = (hendblk(9+1)); r[12+0] = (r[11]); r[12+1] = r[6]; r[12+2] = obj_from_fixnum(+0); r[12+3] = (r[10]); r[12+4] = r[3]; r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v11765; case 370: /* clo k ids n */ 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_v11765: /* k ids n port r */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(370); r[5] = (hendblk(2+1)); hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[5]; *--hp = obj_from_case(371); r[5] = (hendblk(4+1)); r[6] = (car((r[1]))); r[6] = (cxs_set_2Dmember_3F((r[6]), (r[4]))); if (bool_from_obj(r[6])) { (void)(oportputc(('#'), (r[3]))); r[0] = r[5]; r[1] = r[2]; r[2] = r[3]; goto gs_write_2Dserialized_2Darg; } else { hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(370); r[6] = (hendblk(2+1)); r[7+0] = obj_from_ktrap(); r[7+1] = obj_from_void(0); r[7+2] = r[6]; r[7+3] = r[2]; r[7+4] = r[1]; r[7+5] = r[0]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v11767; } } case 371: /* 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 */ s_l_v11767: /* ek . loop n ids k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = (cdr((r[4]))); r[3] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1))); rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 372: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek . s r g r r exp k k port */ hreserve(hbsz(8+1), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(373); r[11] = (hendblk(8+1)); r[0] = (r[11]); r[1] = r[2]; r[2] = r[5]; goto gs_set_2Dintersect; case 373: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(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 r g r r exp k k port */ hreserve(hbsz(7+1), 10); /* 10 live regs */ *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(374); r[10] = (hendblk(7+1)); r[11+0] = (r[10]); r[11+1] = r[2]; r[11+2] = r[1]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_set_2Dunion; case 374: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(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 g r r exp k k port */ hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = obj_from_case(375); r[9] = (hendblk(3+1)); { /* length */ int n; obj l = r[4]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; r[10] = obj_from_fixnum(n); } r[11+0] = r[9]; r[11+1] = r[5]; r[11+2] = r[4]; r[11+3] = r[3]; r[11+4] = r[1]; r[11+5] = r[2]; r[11+6] = (r[10]); r[11+7] = r[8]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; case 375: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . k k port */ (void)(oportputc(('}'), (r[4]))); if (bool_from_obj(r[3])) { (void)(oportputc((']'), (r[4]))); r[0] = r[2]; r[1] = r[3]; r[2] = r[4]; goto gs_write_2Dserialized_2Darg; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 376: /* clo k clauses */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* k clauses g s f l k port */ { fixnum_t v14321_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14321_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14321_tmp); hreserve(hbsz(3)*c, 8); /* 8 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[8] = (o); } } hreserve(hbsz(4+1), 9); /* 9 live regs */ *--hp = r[7]; *--hp = r[6]; *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(379); r[9] = (hendblk(4+1)); r[10+0] = r[9]; r[10+1] = r[8]; r[10+2] = r[5]; r[10+3] = r[2]; r[10+4] = r[3]; r[10+5] = r[4]; r[10+6] = r[7]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v11708; case 377: /* clo k clauses l */ 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_v11708: /* k clauses l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(377); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[7]; *--hp = obj_from_case(378); r[7] = (hendblk(5+1)); r[8] = (car((r[1]))); r[9] = (cdr((r[8]))); r[8] = (car((r[9]))); r[9+0] = r[7]; r[9+1] = r[8]; r[9+2] = r[2]; r[9+3] = r[5]; r[9+4] = r[4]; r[9+5] = r[3]; r[9+6] = obj_from_bool(0); r[9+7] = r[6]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } case 378: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek . loop l clauses k port */ (void)(oportputc(('%'), (r[6]))); (void)(oportputc(('x'), (r[6]))); (void)(oportputc((','), (r[6]))); { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[3]; *--hp = obj_from_bool(0); *--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] = (cdr((r[4]))); r[3] = r[7]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 379: /* 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 . clauses k k port */ (void)(oportputc(('&'), (r[5]))); hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(380); r[6] = (hendblk(4+1)); { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; r[7] = obj_from_fixnum(n); } r[0] = r[6]; r[1] = r[7]; r[2] = r[5]; goto gs_write_2Dserialized_2Darg; case 380: /* 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 . clauses k k port */ (void)(oportputc(('{'), (r[5]))); hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(384); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[2]; r[2] = obj_from_fixnum(+0); r[3] = r[5]; goto s_loop_v11681; case 381: /* clo k clauses i */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v11681: /* k clauses i port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[4] = (car((r[1]))); r[4] = (car((r[4]))); r[5] = (car((r[4]))); r[6] = (cdr((r[4]))); r[6] = (car((r[6]))); (void)(oportputc(('|'), (r[3]))); (void)(bool_from_obj(r[6]) ? (void)(oportputc(('!'), (r[3]))) : (void)(0)); hreserve(hbsz(1+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = obj_from_case(381); r[7] = (hendblk(1+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[7]; *--hp = r[3]; *--hp = obj_from_case(382); r[7] = (hendblk(5+1)); r[0] = r[7]; r[1] = r[5]; r[2] = r[3]; goto gs_write_2Dserialized_2Darg; } 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+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek . port loop i clauses 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(383); r[7] = (hendblk(4+1)); r[0] = r[7]; r[1] = r[4]; /* r[2] */ goto gs_write_2Dserialized_2Darg; case 383: /* 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 . loop i clauses k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = (cdr((r[4]))); r[3] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1))); rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 384: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . k k port */ (void)(oportputc(('%'), (r[4]))); (void)(oportputc(('%'), (r[4]))); (void)(oportputc(('}'), (r[4]))); if (bool_from_obj(r[3])) { (void)(oportputc((']'), (r[4]))); r[0] = r[2]; r[1] = r[3]; r[2] = r[4]; goto gs_write_2Dserialized_2Darg; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 385: /* clo k kid exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; r[1+5] = p[3]; r[1+6] = p[4]; r[1+7] = p[5]; r[1+8] = p[6]; } r += 1; /* shift reg. wnd */ /* k kid exp s g f l port k */ { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = (mknull()); *--hp = r[1]; *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } hreserve(hbsz(10+1), 10); /* 10 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[1]; *--hp = r[0]; *--hp = r[2]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[9]; *--hp = obj_from_case(386); r[10] = (hendblk(10+1)); r[0] = (r[10]); r[1] = r[2]; r[2] = r[9]; goto gs_find_2Dsets; case 386: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(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 ids s g f l exp k kid port k */ hreserve(hbsz(9+1), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = (r[10]); *--hp = r[1]; *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(387); r[12] = (hendblk(9+1)); r[0] = (r[12]); r[1] = r[3]; /* r[2] */ goto gs_set_2Dminus; case 387: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek r g f l exp k kid r port k */ hreserve(hbsz(9+1), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(388); r[11] = (hendblk(9+1)); r[0] = (r[11]); /* r[1] */ r[2] = r[8]; goto gs_set_2Dunion; case 388: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek r g f l exp k kid r port k */ if (bool_from_obj(r[10])) { (void)(oportputc(('k'), (r[9]))); hreserve(hbsz(10+1), 11); /* 11 live regs */ *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[1]; *--hp = r[2]; *--hp = (r[10]); *--hp = obj_from_case(389); r[11] = (hendblk(10+1)); r[0] = (r[11]); r[1] = (r[10]); r[2] = r[9]; goto gs_write_2Dserialized_2Darg; } else { (void)(oportputc((36), (r[9]))); (void)(oportputc(('{'), (r[9]))); (void)(oportputc(('k'), (r[9]))); (void)(oportputc(('0'), (r[9]))); (void)(oportputc((','), (r[9]))); if (bool_from_obj(cxs_set_2Dmember_3F((r[7]), (r[8])))) { (void)(oportputc(('#'), (r[9]))); (void)(oportputc(('0'), (r[9]))); } else { } hreserve(hbsz(2+1), 11); /* 11 live regs */ *--hp = r[9]; *--hp = r[6]; *--hp = obj_from_case(390); r[11] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = r[4]; *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[12] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 13); /* 13 live regs */ *--hp = (r[12]); *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[12] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 13); /* 13 live regs */ *--hp = (r[12]); *--hp = r[7]; *--hp = obj_from_size(PAIR_BTAG); r[12] = (hendblk(3)); } r[13+0] = (r[11]); r[13+1] = r[5]; r[13+2] = (r[12]); r[13+3] = r[3]; r[13+4] = r[1]; r[13+5] = r[2]; r[13+6] = obj_from_bool(0); r[13+7] = r[9]; r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } case 389: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; r[1+11] = p[10]; } r += 1; /* shift reg. wnd */ /* ek . k g r f l exp k kid r port */ (void)(oportputc((','), (r[11]))); if (bool_from_obj(cxs_set_2Dmember_3F((r[9]), (r[10])))) { (void)(oportputc(('#'), (r[11]))); (void)(oportputc(('0'), (r[11]))); } else { } { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = r[6]; *--hp = r[9]; *--hp = obj_from_size(PAIR_BTAG); r[12] = (hendblk(3)); } r[13+0] = r[8]; r[13+1] = r[7]; r[13+2] = (r[12]); r[13+3] = r[5]; r[13+4] = r[4]; r[13+5] = r[3]; r[13+6] = obj_from_fixnum(fxadd(fixnum_from_obj(r[2]), (+1))); r[13+7] = (r[11]); r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; case 390: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k port */ (void)(oportputc(('_'), (r[3]))); hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(391); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = obj_from_fixnum(+3); r[2] = r[3]; goto gs_write_2Dserialized_2Darg; case 391: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k port */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(oportputc(('}'), (r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 392: /* clo k kexp exp */ assert(rc == 4); { obj* p = objptr_from_obj(r[0]); r[1+3] = p[1]; r[1+4] = p[2]; r[1+5] = p[3]; r[1+6] = p[4]; r[1+7] = p[5]; } r += 1; /* shift reg. wnd */ /* k kexp exp g s f l port */ r[8] = (car((r[2]))); { /* memq */ obj x = (r[8]), l = (cx__232622); for (; l != mknull(); l = cdr(l)) if (car(l) == x) break; r[8] = (l == mknull() ? obj_from_bool(0) : l); } if (bool_from_obj(r[8])) { hreserve(hbsz(7+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[0]; *--hp = r[1]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(393); r[8] = (hendblk(7+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] = obj_from_bool(0); r[9+7] = r[7]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } else { hreserve(hbsz(7+1), 8); /* 8 live regs */ *--hp = r[7]; *--hp = r[0]; *--hp = r[1]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(395); r[8] = (hendblk(7+1)); { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = (mknull()); *--hp = r[2]; *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[9]; *--hp = (mknull()); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[9]; *--hp = (mksymbol(internsym("lambda"))); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } r[10+0] = r[8]; r[10+1] = r[9]; r[10+2] = r[6]; r[10+3] = r[5]; r[10+4] = r[4]; r[10+5] = r[3]; r[10+6] = obj_from_bool(0); r[10+7] = r[7]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } case 393: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . g s f l kexp k port */ (void)(oportputc((','), (r[8]))); hreserve(hbsz(2+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = obj_from_case(394); r[9] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[5]; *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } r[11+0] = r[9]; r[11+1] = r[6]; r[11+2] = (r[10]); r[11+3] = r[4]; r[11+4] = r[3]; r[11+5] = r[2]; r[11+6] = obj_from_bool(0); r[11+7] = r[8]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; case 394: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k port */ (void)(oportputc(('w'), (r[3]))); r[4] = obj_from_void(oportputc(('!'), (r[3]))); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 395: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; } r += 1; /* shift reg. wnd */ /* ek . g s f l kexp k port */ (void)(oportputc((','), (r[8]))); hreserve(hbsz(2+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = obj_from_case(396); r[9] = (hendblk(2+1)); { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[5]; *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } r[11+0] = r[9]; r[11+1] = r[6]; r[11+2] = (r[10]); r[11+3] = r[4]; r[11+4] = r[3]; r[11+5] = r[2]; r[11+6] = obj_from_bool(0); r[11+7] = r[8]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; case 396: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k port */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(oportputc(('w'), (r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 397: /* clo k ig args */ 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; /* shift reg. wnd */ /* k ig args g s f l port k */ { /* define integrable-code */ static obj c[] = { obj_from_objptr(vmcases+12) }; r[9] = obj_from_objptr(c); } hreserve(hbsz(9+1), 10); /* 10 live regs */ *--hp = r[8]; *--hp = r[7]; *--hp = r[0]; *--hp = r[2]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[1]; *--hp = obj_from_case(398); r[10] = (hendblk(9+1)); r[11+0] = r[9]; pc = objptr_from_obj(r[11+0])[0]; r[11+1] = (r[10]); r[11+2] = r[1]; r[11+3] = obj_from_fixnum(+0); r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 398: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek r ig g s f l args k port k */ { /* define integrable-type */ static obj c[] = { obj_from_objptr(vmcases+10) }; r[11] = obj_from_objptr(c); } hreserve(hbsz(10+1), 12); /* 12 live regs */ *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[1]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(399); r[12] = (hendblk(10+1)); r[0] = (r[11]); pc = objptr_from_obj(r[0])[0]; r[1] = (r[12]); /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 399: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(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 ig g s f l args r k port k */ hreserve(hbsz(3+1), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; *--hp = obj_from_case(400); r[12] = (hendblk(3+1)); if (((((r[1]) == obj_from_char('0')) || ((is_flonum_obj(r[1])) && (0))) ? (1) : ((((r[1]) == obj_from_char('1')) || ((is_flonum_obj(r[1])) && (0))) ? (1) : ((((r[1]) == obj_from_char('2')) || ((is_flonum_obj(r[1])) && (0))) ? (1) : ((((r[1]) == obj_from_char('3')) || ((is_flonum_obj(r[1])) && (0))) && (1)))))) { { fixnum_t v14320_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14320_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14320_tmp); hreserve(hbsz(3)*c, 13); /* 13 live regs */ l = r[7]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[13] = (o); } } hreserve(hbsz(3+1), 14); /* 14 live regs */ *--hp = (r[10]); *--hp = r[8]; *--hp = (r[12]); *--hp = obj_from_case(403); r[14] = (hendblk(3+1)); r[0] = (r[14]); r[1] = (r[13]); r[2] = r[6]; /* r[3] */ /* r[4] */ /* r[5] */ r[6] = (r[10]); goto s_loop_v11560; } else { if (((((r[1]) == obj_from_char('p')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { if ((isnull((r[7])))) { { /* define integrable-code */ static obj c[] = { obj_from_objptr(vmcases+12) }; r[13] = obj_from_objptr(c); } hreserve(hbsz(2+1), 14); /* 14 live regs */ *--hp = (r[10]); *--hp = (r[12]); *--hp = obj_from_case(404); r[14] = (hendblk(2+1)); r[0] = (r[13]); pc = objptr_from_obj(r[0])[0]; r[1] = (r[14]); /* r[2] */ r[3] = obj_from_fixnum(+1); rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { { fixnum_t v14318_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14318_tmp = (n); } r[13] = obj_from_fixnum(fxsub((v14318_tmp), (+1))); } { fixnum_t v14319_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14319_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14319_tmp); hreserve(hbsz(3)*c, 14); /* 14 live regs */ l = r[7]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[14] = (o); } } hreserve(hbsz(4+1), 15); /* 15 live regs */ *--hp = (r[12]); *--hp = (r[13]); *--hp = (r[10]); *--hp = r[8]; *--hp = obj_from_case(407); r[15] = (hendblk(4+1)); r[0] = (r[15]); r[1] = (r[14]); r[2] = r[6]; /* r[3] */ /* r[4] */ /* r[5] */ r[6] = (r[10]); goto s_loop_v11535; } } else { if (((((r[1]) == obj_from_char('m')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { r[13] = (cdr((r[7]))); r[13] = obj_from_bool(isnull((r[13]))); if (bool_from_obj(r[13])) { { /* define integrable-code */ static obj c[] = { obj_from_objptr(vmcases+12) }; r[13] = obj_from_objptr(c); } hreserve(hbsz(7+1), 14); /* 14 live regs */ *--hp = (r[10]); *--hp = (r[12]); *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(408); r[14] = (hendblk(7+1)); r[0] = (r[13]); pc = objptr_from_obj(r[0])[0]; r[1] = (r[14]); /* r[2] */ r[3] = obj_from_fixnum(+1); rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { { fixnum_t v14316_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14316_tmp = (n); } r[13] = obj_from_fixnum(fxsub((v14316_tmp), (+1))); } { fixnum_t v14317_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14317_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14317_tmp); hreserve(hbsz(3)*c, 14); /* 14 live regs */ l = r[7]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[14] = (o); } } hreserve(hbsz(4+1), 15); /* 15 live regs */ *--hp = (r[12]); *--hp = (r[13]); *--hp = (r[10]); *--hp = r[8]; *--hp = obj_from_case(412); r[15] = (hendblk(4+1)); r[0] = (r[15]); r[1] = (r[14]); r[2] = r[6]; /* r[3] */ /* r[4] */ /* r[5] */ r[6] = (r[10]); goto s_loop_v11499; } } else { if (((((r[1]) == obj_from_char('c')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { { fixnum_t v14314_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14314_tmp = (n); } r[13] = obj_from_fixnum(fxsub((v14314_tmp), (+1))); } { fixnum_t v14315_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14315_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14315_tmp); hreserve(hbsz(3)*c, 14); /* 14 live regs */ l = r[7]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[14] = (o); } } hreserve(hbsz(9+1), 15); /* 15 live regs */ *--hp = (r[10]); *--hp = (r[12]); *--hp = (r[13]); *--hp = r[8]; *--hp = (r[14]); *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(413); r[15] = (hendblk(9+1)); r[16+0] = (r[15]); r[16+1] = (car((r[14]))); r[16+2] = r[6]; r[16+3] = r[5]; r[16+4] = r[4]; r[16+5] = r[3]; r[16+6] = obj_from_bool(0); r[16+7] = (r[10]); r += 16; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } else { if (((((r[1]) == obj_from_char('x')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { { fixnum_t v14312_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14312_tmp = (n); } r[13] = obj_from_fixnum(fxsub((v14312_tmp), (+1))); } { fixnum_t v14313_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14313_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14313_tmp); hreserve(hbsz(3)*c, 14); /* 14 live regs */ l = r[7]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[14] = (o); } } hreserve(hbsz(4+1), 15); /* 15 live regs */ *--hp = (r[12]); *--hp = (r[13]); *--hp = (r[10]); *--hp = r[8]; *--hp = obj_from_case(419); r[15] = (hendblk(4+1)); r[0] = (r[15]); r[1] = (r[14]); r[2] = r[6]; /* r[3] */ /* r[4] */ /* r[5] */ r[6] = (r[10]); goto s_loop_v11445; } else { if (((((r[1]) == obj_from_char('u')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { hreserve(hbsz(3+1), 13); /* 13 live regs */ *--hp = (r[10]); *--hp = r[8]; *--hp = (r[12]); *--hp = obj_from_case(420); r[13] = (hendblk(3+1)); if ((isnull((r[7])))) { { /* define integrable-code */ static obj c[] = { obj_from_objptr(vmcases+12) }; r[14] = obj_from_objptr(c); } hreserve(hbsz(2+1), 15); /* 15 live regs */ *--hp = (r[10]); *--hp = (r[13]); *--hp = obj_from_case(421); r[15] = (hendblk(2+1)); r[0] = (r[14]); pc = objptr_from_obj(r[0])[0]; r[1] = (r[15]); /* r[2] */ r[3] = obj_from_fixnum(+1); rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[14+0] = (r[13]); r[14+1] = (car((r[7]))); r[14+2] = r[6]; r[14+3] = r[5]; r[14+4] = r[4]; r[14+5] = r[3]; r[14+6] = obj_from_bool(0); r[14+7] = (r[10]); r += 14; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } } else { if (((((r[1]) == obj_from_char('b')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { hreserve(hbsz(8+1), 13); /* 13 live regs */ *--hp = (r[10]); *--hp = r[8]; *--hp = (r[12]); *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(422); r[13] = (hendblk(8+1)); r[14] = (cdr((r[7]))); r[14] = obj_from_bool(isnull((r[14]))); if (bool_from_obj(r[14])) { { /* define integrable-code */ static obj c[] = { obj_from_objptr(vmcases+12) }; r[14] = obj_from_objptr(c); } hreserve(hbsz(2+1), 15); /* 15 live regs */ *--hp = (r[10]); *--hp = (r[13]); *--hp = obj_from_case(424); r[15] = (hendblk(2+1)); r[0] = (r[14]); pc = objptr_from_obj(r[0])[0]; r[1] = (r[15]); /* r[2] */ r[3] = obj_from_fixnum(+1); rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[14] = (cdr((r[7]))); r[14] = (car((r[14]))); r[15+0] = (r[13]); r[15+1] = (r[14]); r[15+2] = r[6]; r[15+3] = r[5]; r[15+4] = r[4]; r[15+5] = r[3]; r[15+6] = obj_from_bool(0); r[15+7] = (r[10]); r += 15; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } } else { if (((((r[1]) == obj_from_char('t')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { hreserve(hbsz(8+1), 13); /* 13 live regs */ *--hp = (r[10]); *--hp = r[8]; *--hp = (r[12]); *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(425); r[13] = (hendblk(8+1)); r[14] = (cdr((r[7]))); r[14] = (cdr((r[14]))); r[14] = obj_from_bool(isnull((r[14]))); if (bool_from_obj(r[14])) { { /* define integrable-code */ static obj c[] = { obj_from_objptr(vmcases+12) }; r[14] = obj_from_objptr(c); } hreserve(hbsz(2+1), 15); /* 15 live regs */ *--hp = (r[10]); *--hp = (r[13]); *--hp = obj_from_case(428); r[15] = (hendblk(2+1)); r[0] = (r[14]); pc = objptr_from_obj(r[0])[0]; r[1] = (r[15]); /* r[2] */ r[3] = obj_from_fixnum(+1); rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[14] = (cdr((r[7]))); r[14] = (cdr((r[14]))); r[14] = (car((r[14]))); r[15+0] = (r[13]); r[15+1] = (r[14]); r[15+2] = r[6]; r[15+3] = r[5]; r[15+4] = r[4]; r[15+5] = r[3]; r[15+6] = obj_from_bool(0); r[15+7] = (r[10]); r += 15; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } } else { if (((((r[1]) == obj_from_char('#')) || ((is_flonum_obj(r[1])) && (0))) && (1))) { { fixnum_t v14311_tmp; { /* length */ int n; obj l = r[7]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14311_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14311_tmp); hreserve(hbsz(3)*c, 13); /* 13 live regs */ l = r[7]; /* gc-safe */ for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l); *--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); } r[13] = (o); } } hreserve(hbsz(4+1), 14); /* 14 live regs */ *--hp = (r[10]); *--hp = r[8]; *--hp = (r[12]); *--hp = r[7]; *--hp = obj_from_case(431); r[14] = (hendblk(4+1)); r[0] = (r[14]); r[1] = (r[13]); r[2] = r[6]; /* r[3] */ /* r[4] */ /* r[5] */ r[6] = (r[10]); goto s_loop_v11367; } else { r[13+0] = (cx_c_2Derror); pc = objptr_from_obj(r[13+0])[0]; r[13+1] = (r[12]); r[13+2] = (cx__232315); r[13+3] = r[1]; r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } } } } } } } } } case 400: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . k port k */ if (bool_from_obj(r[4])) { (void)(oportputc((']'), (r[3]))); r[0] = r[2]; r[1] = r[4]; r[2] = r[3]; goto gs_write_2Dserialized_2Darg; } else { r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 401: /* clo k args l */ 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_v11560: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(401); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[1]; *--hp = r[6]; *--hp = r[0]; *--hp = r[2]; *--hp = r[7]; *--hp = obj_from_case(402); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); r[8+2] = r[2]; r[8+3] = r[5]; r[8+4] = r[4]; r[8+5] = r[3]; r[8+6] = obj_from_bool(0); r[8+7] = r[6]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } case 402: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek . loop l k port args */ r[7] = (cdr((r[6]))); r[7] = obj_from_bool(isnull((r[7]))); if (bool_from_obj(r[7])) { (void)((0) ? obj_from_bool(0) : obj_from_void(0)); } else { (void)(oportputc((','), (r[5]))); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[3]; *--hp = obj_from_bool(0); *--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] = (cdr((r[6]))); r[3] = r[7]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 403: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . k r port */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(oportputs(stringchars((r[3])), (r[4]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 404: /* clo 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 port */ r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = obj_from_void(oportputs(stringchars((r[1])), (r[3]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 405: /* clo k args l */ 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_v11535: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(405); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[1]; *--hp = r[6]; *--hp = r[0]; *--hp = r[2]; *--hp = r[7]; *--hp = obj_from_case(406); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); r[8+2] = r[2]; r[8+3] = r[5]; r[8+4] = r[4]; r[8+5] = r[3]; r[8+6] = obj_from_bool(0); r[8+7] = r[6]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } case 406: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek . loop l k port args */ r[7] = (cdr((r[6]))); r[7] = obj_from_bool(isnull((r[7]))); if (bool_from_obj(r[7])) { (void)((0) ? obj_from_bool(0) : obj_from_void(0)); } else { (void)(oportputc((','), (r[5]))); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[3]; *--hp = obj_from_bool(0); *--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] = (cdr((r[6]))); r[3] = r[7]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 407: /* 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 . r port opc k */ r[0] = r[5]; r[1] = obj_from_fixnum(+0); /* r[2] */ /* r[3] */ /* r[4] */ goto s_loop_v11526; s_loop_v11526: /* k i r port opc */ { const fixnum_t v14310_i = fixnum_from_obj(r[1]); if (((v14310_i) >= fixnum_from_obj(r[4]))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { (void)(oportputs(stringchars((r[2])), (r[3]))); /* r[0] */ r[1] = obj_from_fixnum(fxadd((v14310_i), (+1))); /* r[2] */ /* r[3] */ /* r[4] */ goto s_loop_v11526; } } case 408: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(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 g s f l args k port */ hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[8]; *--hp = r[1]; *--hp = r[7]; *--hp = obj_from_case(409); r[9] = (hendblk(3+1)); r[10+0] = r[9]; r[10+1] = (car((r[6]))); r[10+2] = r[5]; r[10+3] = r[4]; r[10+4] = r[3]; r[10+5] = r[2]; r[10+6] = obj_from_bool(0); r[10+7] = r[8]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; case 409: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . k r port */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(oportputs(stringchars((r[3])), (r[4]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 410: /* clo k args l */ 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_v11499: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(410); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[1]; *--hp = r[6]; *--hp = r[0]; *--hp = r[2]; *--hp = r[7]; *--hp = obj_from_case(411); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); r[8+2] = r[2]; r[8+3] = r[5]; r[8+4] = r[4]; r[8+5] = r[3]; r[8+6] = obj_from_bool(0); r[8+7] = r[6]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } case 411: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek . loop l k port args */ r[7] = (cdr((r[6]))); r[7] = obj_from_bool(isnull((r[7]))); if (bool_from_obj(r[7])) { (void)((0) ? obj_from_bool(0) : obj_from_void(0)); } else { (void)(oportputc((','), (r[5]))); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[3]; *--hp = obj_from_bool(0); *--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] = (cdr((r[6]))); r[3] = r[7]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 412: /* 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 . r port opc k */ r[0] = r[5]; r[1] = obj_from_fixnum(+0); /* r[2] */ /* r[3] */ /* r[4] */ goto s_loop_v11490; s_loop_v11490: /* k i r port opc */ { const fixnum_t v14309_i = fixnum_from_obj(r[1]); if (((v14309_i) >= fixnum_from_obj(r[4]))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { (void)(oportputs(stringchars((r[2])), (r[3]))); /* r[0] */ r[1] = obj_from_fixnum(fxadd((v14309_i), (+1))); /* r[2] */ /* r[3] */ /* r[4] */ goto s_loop_v11490; } } case 413: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek . g s f l args r opc k port */ (void)(oportputc((','), (r[10]))); r[11] = (cdr((r[6]))); { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = r[5]; *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[12] = (hendblk(3)); } hreserve(hbsz(4+1), 13); /* 13 live regs */ *--hp = r[9]; *--hp = r[8]; *--hp = (r[10]); *--hp = r[7]; *--hp = obj_from_case(416); r[13] = (hendblk(4+1)); r[14+0] = (r[13]); r[14+1] = (r[11]); r[14+2] = (r[12]); r[14+3] = r[2]; r[14+4] = r[3]; r[14+5] = r[4]; r[14+6] = (r[10]); r += 14; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v11471; case 414: /* clo k args l */ 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_v11471: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(414); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[1]; *--hp = r[6]; *--hp = r[0]; *--hp = r[2]; *--hp = r[7]; *--hp = obj_from_case(415); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); r[8+2] = r[2]; r[8+3] = r[5]; r[8+4] = r[4]; r[8+5] = r[3]; r[8+6] = obj_from_bool(0); r[8+7] = r[6]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } case 415: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek . loop l k port args */ r[7] = (cdr((r[6]))); r[7] = obj_from_bool(isnull((r[7]))); if (bool_from_obj(r[7])) { (void)((0) ? obj_from_bool(0) : obj_from_void(0)); } else { (void)(oportputc((','), (r[5]))); (void)(oportputc((','), (r[5]))); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[3]; *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[7] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 8); /* 8 live regs */ *--hp = r[7]; *--hp = obj_from_bool(0); *--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] = (cdr((r[6]))); r[3] = r[7]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 416: /* 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 . r port opc k */ r[0] = r[5]; r[1] = obj_from_fixnum(+0); /* r[2] */ /* r[3] */ /* r[4] */ goto s_loop_v11462; s_loop_v11462: /* k i r port opc */ { const fixnum_t v14308_i = fixnum_from_obj(r[1]); if (((v14308_i) >= fixnum_from_obj(r[4]))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { (void)(((v14308_i) == 0) ? ((0) ? obj_from_bool(0) : obj_from_void(0)) : obj_from_void(oportputc((';'), (r[3])))); (void)(oportputs(stringchars((r[2])), (r[3]))); /* r[0] */ r[1] = obj_from_fixnum(fxadd((v14308_i), (+1))); /* r[2] */ /* r[3] */ /* r[4] */ goto s_loop_v11462; } } case 417: /* clo k args l */ 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_v11445: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(417); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[1]; *--hp = r[6]; *--hp = r[0]; *--hp = r[2]; *--hp = r[7]; *--hp = obj_from_case(418); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); r[8+2] = r[2]; r[8+3] = r[5]; r[8+4] = r[4]; r[8+5] = r[3]; r[8+6] = obj_from_bool(0); r[8+7] = r[6]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } case 418: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek . loop l k port args */ r[7] = (cdr((r[6]))); r[7] = obj_from_bool(isnull((r[7]))); if (bool_from_obj(r[7])) { (void)((0) ? obj_from_bool(0) : obj_from_void(0)); } else { (void)(oportputc((','), (r[5]))); } { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[3]; *--hp = obj_from_bool(0); *--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] = (cdr((r[6]))); r[3] = r[7]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 419: /* 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 . r port opc k */ r[0] = r[5]; r[1] = obj_from_fixnum(+0); /* r[2] */ /* r[3] */ /* r[4] */ goto s_loop_v11436; s_loop_v11436: /* k i r port opc */ { const fixnum_t v14307_i = fixnum_from_obj(r[1]); if (((v14307_i) >= fixnum_from_obj(r[4]))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { (void)(oportputs(stringchars((r[2])), (r[3]))); /* r[0] */ r[1] = obj_from_fixnum(fxadd((v14307_i), (+1))); /* r[2] */ /* r[3] */ /* r[4] */ goto s_loop_v11436; } } case 420: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . k r port */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(oportputs(stringchars((r[3])), (r[4]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 421: /* clo 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 port */ r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = obj_from_void(oportputs(stringchars((r[1])), (r[3]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 422: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ /* ek . g s f l args k r port */ (void)(oportputc((','), (r[9]))); hreserve(hbsz(3+1), 10); /* 10 live regs */ *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = obj_from_case(423); r[10] = (hendblk(3+1)); { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = r[5]; *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[11] = (hendblk(3)); } r[12+0] = (r[10]); r[12+1] = (car((r[6]))); r[12+2] = (r[11]); r[12+3] = r[4]; r[12+4] = r[3]; r[12+5] = r[2]; r[12+6] = obj_from_bool(0); r[12+7] = r[9]; r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; case 423: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . k r port */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(oportputs(stringchars((r[3])), (r[4]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 424: /* clo 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 port */ r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = obj_from_void(oportputs(stringchars((r[1])), (r[3]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 425: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ /* ek . g s f l args k r port */ (void)(oportputc((','), (r[9]))); hreserve(hbsz(8+1), 10); /* 10 live regs */ *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(426); r[10] = (hendblk(8+1)); r[11] = (cdr((r[6]))); r[11] = (car((r[11]))); { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = r[5]; *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[12] = (hendblk(3)); } r[13+0] = (r[10]); r[13+1] = (r[11]); r[13+2] = (r[12]); r[13+3] = r[4]; r[13+4] = r[3]; r[13+5] = r[2]; r[13+6] = obj_from_bool(0); r[13+7] = r[9]; r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; case 426: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; } r += 1; /* shift reg. wnd */ /* ek . g s f l args k r port */ (void)(oportputc((','), (r[9]))); hreserve(hbsz(3+1), 10); /* 10 live regs */ *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = obj_from_case(427); r[10] = (hendblk(3+1)); { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = r[5]; *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[11] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[11] = (hendblk(3)); } r[12+0] = (r[10]); r[12+1] = (car((r[6]))); r[12+2] = (r[11]); r[12+3] = r[4]; r[12+4] = r[3]; r[12+5] = r[2]; r[12+6] = obj_from_bool(0); r[12+7] = r[9]; r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; case 427: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . k r port */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(oportputs(stringchars((r[3])), (r[4]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 428: /* clo 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 port */ r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = obj_from_void(oportputs(stringchars((r[1])), (r[3]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 429: /* clo k args l */ 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_v11367: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(429); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[7]; *--hp = obj_from_case(430); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); r[8+2] = r[2]; r[8+3] = r[5]; r[8+4] = r[4]; r[8+5] = r[3]; r[8+6] = obj_from_bool(0); r[8+7] = r[6]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } case 430: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek . loop l args k port */ (void)(oportputc((','), (r[6]))); { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[3]; *--hp = obj_from_bool(0); *--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] = (cdr((r[4]))); r[3] = r[7]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 431: /* 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 k r port */ (void)(oportputs(stringchars((r[4])), (r[5]))); { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; r[6] = obj_from_fixnum(n); } r[0] = r[3]; r[1] = r[6]; r[2] = r[5]; goto gs_write_2Dserialized_2Darg; case 432: /* clo k exp args */ 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; /* shift reg. wnd */ /* k exp args s l port g f k */ r[9] = (car((r[1]))); r[9] = obj_from_bool((r[9]) == (mksymbol(internsym("lambda")))); if (bool_from_obj(r[9])) { r[9] = (cdr((r[1]))); r[9] = (car((r[9]))); r[9] = obj_from_bool(islist((r[9]))); if (bool_from_obj(r[9])) { { fixnum_t v14306_tmp; { fixnum_t v14305_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14306_tmp = (n); } r[9] = (cdr((r[1]))); r[9] = (car((r[9]))); { /* length */ int n; obj l = r[9]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14305_tmp = (n); } r[9] = obj_from_bool((v14306_tmp) == (v14305_tmp)); } } } else { r[9] = obj_from_bool(0); } } else { r[9] = obj_from_bool(0); } if (bool_from_obj(r[9])) { { fixnum_t v14304_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14304_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14304_tmp); hreserve(hbsz(3)*c, 9); /* 9 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[9] = (o); } } hreserve(hbsz(9+1), 10); /* 10 live regs */ *--hp = r[1]; *--hp = r[8]; *--hp = r[0]; *--hp = r[7]; *--hp = r[6]; *--hp = r[2]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(435); r[10] = (hendblk(9+1)); r[11+0] = (r[10]); r[11+1] = r[9]; r[11+2] = r[4]; r[11+3] = r[6]; r[11+4] = r[3]; r[11+5] = r[7]; r[11+6] = r[5]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v11336; } else { if (bool_from_obj(r[8])) { { fixnum_t v14303_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14303_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14303_tmp); hreserve(hbsz(3)*c, 9); /* 9 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[9] = (o); } } hreserve(hbsz(4+1), 10); /* 10 live regs */ *--hp = r[5]; *--hp = r[0]; *--hp = r[2]; *--hp = r[8]; *--hp = obj_from_case(446); r[10] = (hendblk(4+1)); r[11+0] = (r[10]); r[11+1] = r[9]; r[11+2] = r[4]; r[11+3] = r[5]; r[11+4] = r[6]; r[11+5] = r[3]; r[11+6] = r[7]; r[11+7] = r[1]; r += 11; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v11268; } else { (void)(oportputc((36), (r[5]))); (void)(oportputc(('{'), (r[5]))); { fixnum_t v14302_tmp; { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14302_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14302_tmp); hreserve(hbsz(3)*c, 9); /* 9 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[9] = (o); } } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[4]; *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 11); /* 11 live regs */ *--hp = (r[10]); *--hp = obj_from_bool(0); *--hp = obj_from_size(PAIR_BTAG); r[10] = (hendblk(3)); } hreserve(hbsz(3+1), 11); /* 11 live regs */ *--hp = r[5]; *--hp = r[0]; *--hp = r[2]; *--hp = obj_from_case(450); r[11] = (hendblk(3+1)); r[12+0] = (r[11]); r[12+1] = r[9]; r[12+2] = (r[10]); r[12+3] = r[5]; r[12+4] = r[6]; r[12+5] = r[3]; r[12+6] = r[7]; r[12+7] = r[1]; r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v11243; } } case 433: /* clo k args l */ 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_v11336: /* k args l g s f port */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(433); r[7] = (hendblk(4+1)); hreserve(hbsz(5+1), 8); /* 8 live regs */ *--hp = r[6]; *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[7]; *--hp = obj_from_case(434); r[7] = (hendblk(5+1)); r[8+0] = r[7]; r[8+1] = (car((r[1]))); r[8+2] = r[2]; r[8+3] = r[5]; r[8+4] = r[4]; r[8+5] = r[3]; r[8+6] = obj_from_bool(0); r[8+7] = r[6]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } case 434: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek . loop l args k port */ (void)(oportputc((','), (r[6]))); { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[3]; *--hp = obj_from_bool(0); *--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] = (cdr((r[4]))); r[3] = r[7]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 435: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek . s l port args g f k k exp */ r[11] = (cdr((r[10]))); r[11] = (car((r[11]))); r[12] = (cdr((r[10]))); r[12] = (cdr((r[12]))); r[12] = (car((r[12]))); hreserve(hbsz(10+1), 13); /* 13 live regs */ *--hp = r[9]; *--hp = r[8]; *--hp = (r[12]); *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = (r[11]); *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(436); r[13] = (hendblk(10+1)); r[0] = (r[13]); r[1] = (r[12]); r[2] = (r[11]); goto gs_find_2Dsets; case 436: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(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 s l ids port args g f exp k k */ hreserve(hbsz(10+1), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(437); r[12] = (hendblk(10+1)); r[0] = (r[12]); r[1] = r[2]; r[2] = r[4]; goto gs_set_2Dminus; case 437: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(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 l r ids port args g f exp k k */ hreserve(hbsz(10+1), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(438); r[12] = (hendblk(10+1)); r[0] = (r[12]); /* r[1] */ r[2] = r[3]; goto gs_set_2Dunion; case 438: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(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 l r ids port args g f exp k k */ hreserve(hbsz(10+1), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; *--hp = r[8]; *--hp = r[1]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(439); r[12] = (hendblk(10+1)); r[13+0] = (cx__25append); pc = objptr_from_obj(r[13+0])[0]; r[13+1] = (r[12]); r[13+2] = r[4]; r[13+3] = r[2]; r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 439: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(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 r ids port args g r f exp k k */ hreserve(hbsz(9+1), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = (r[10]); *--hp = r[9]; *--hp = r[1]; *--hp = r[8]; *--hp = r[7]; *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = obj_from_case(442); r[12] = (hendblk(9+1)); r[13+0] = (r[12]); r[13+1] = r[3]; r[13+2] = obj_from_fixnum(+0); r[13+3] = r[4]; r[13+4] = r[2]; r += 13; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v11303; case 440: /* clo k ids n */ 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_v11303: /* k ids n port r */ if ((isnull((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(440); r[5] = (hendblk(2+1)); hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[5]; *--hp = obj_from_case(441); r[5] = (hendblk(4+1)); r[6] = (car((r[1]))); r[6] = (cxs_set_2Dmember_3F((r[6]), (r[4]))); if (bool_from_obj(r[6])) { (void)(oportputc(('#'), (r[3]))); r[0] = r[5]; r[1] = r[2]; r[2] = r[3]; goto gs_write_2Dserialized_2Darg; } else { hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(440); r[6] = (hendblk(2+1)); r[7+0] = obj_from_ktrap(); r[7+1] = obj_from_void(0); r[7+2] = r[6]; r[7+3] = r[2]; r[7+4] = r[1]; r[7+5] = r[0]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v11305; } } case 441: /* 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 */ s_l_v11305: /* ek . loop n ids k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = (cdr((r[4]))); r[3] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1))); rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 442: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; r[1+8] = p[7]; r[1+9] = p[8]; r[1+10] = p[9]; } r += 1; /* shift reg. wnd */ /* ek . port args g r f r exp k k */ if (bool_from_obj(r[10])) { { fixnum_t v14301_tmp; { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14301_tmp = (n); } r[11] = obj_from_fixnum(fxadd(fixnum_from_obj(r[10]), (v14301_tmp))); } r[12+0] = r[9]; r[12+1] = r[8]; r[12+2] = r[7]; r[12+3] = r[6]; r[12+4] = r[5]; r[12+5] = r[4]; r[12+6] = (r[11]); r[12+7] = r[2]; r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } else { hreserve(hbsz(3+1), 11); /* 11 live regs */ *--hp = r[2]; *--hp = r[9]; *--hp = r[3]; *--hp = obj_from_case(443); r[11] = (hendblk(3+1)); r[12+0] = (r[11]); r[12+1] = r[8]; r[12+2] = r[7]; r[12+3] = r[6]; r[12+4] = r[5]; r[12+5] = r[4]; r[12+6] = obj_from_bool(0); r[12+7] = r[2]; r += 12; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } case 443: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . args k port */ (void)(oportputc(('_'), (r[4]))); { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; r[5] = obj_from_fixnum(n); } r[0] = r[3]; r[1] = r[5]; r[2] = r[4]; goto gs_write_2Dserialized_2Darg; case 444: /* clo k args l */ 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 */ s_loop_v11268: /* k args l port g s f exp */ if ((isnull((r[1])))) { r[8+0] = r[0]; r[8+1] = r[7]; r[8+2] = r[2]; r[8+3] = r[6]; r[8+4] = r[5]; r[8+5] = r[4]; r[8+6] = obj_from_bool(0); r[8+7] = r[3]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } 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(444); r[8] = (hendblk(5+1)); hreserve(hbsz(5+1), 9); /* 9 live regs */ *--hp = r[3]; *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[8]; *--hp = obj_from_case(445); r[8] = (hendblk(5+1)); r[9+0] = r[8]; r[9+1] = (car((r[1]))); r[9+2] = r[2]; r[9+3] = r[6]; r[9+4] = r[5]; r[9+5] = r[4]; r[9+6] = obj_from_bool(0); r[9+7] = r[3]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } case 445: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek . loop l args k port */ (void)(oportputc((','), (r[6]))); { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[3]; *--hp = obj_from_bool(0); *--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] = (cdr((r[4]))); r[3] = r[7]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 446: /* 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 . k args k port */ (void)(oportputc(('['), (r[5]))); hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[5]; *--hp = obj_from_case(447); r[6] = (hendblk(3+1)); r[0] = r[6]; r[1] = r[2]; r[2] = r[5]; goto gs_write_2Dserialized_2Darg; case 447: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . port args k */ { /* length */ int n; obj l = r[3]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; r[5] = obj_from_fixnum(n); } r[0] = r[4]; r[1] = r[5]; /* r[2] */ goto gs_write_2Dserialized_2Darg; case 448: /* clo k args l */ 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 */ s_loop_v11243: /* k args l port g s f exp */ if ((isnull((r[1])))) { r[8+0] = r[0]; r[8+1] = r[7]; r[8+2] = r[2]; r[8+3] = r[6]; r[8+4] = r[5]; r[8+5] = r[4]; r[8+6] = obj_from_bool(0); r[8+7] = r[3]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } 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(448); r[8] = (hendblk(5+1)); hreserve(hbsz(5+1), 9); /* 9 live regs */ *--hp = r[3]; *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = r[8]; *--hp = obj_from_case(449); r[8] = (hendblk(5+1)); r[9+0] = r[8]; r[9+1] = (car((r[1]))); r[9+2] = r[2]; r[9+3] = r[6]; r[9+4] = r[5]; r[9+5] = r[4]; r[9+6] = obj_from_bool(0); r[9+7] = r[3]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; } case 449: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek . loop l args k port */ (void)(oportputc((','), (r[6]))); { /* cons */ hreserve(hbsz(3), 7); /* 7 live regs */ *--hp = r[3]; *--hp = obj_from_bool(0); *--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] = (cdr((r[4]))); r[3] = r[7]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 450: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . args k port */ (void)(oportputc(('['), (r[4]))); hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(451); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = obj_from_fixnum(+0); r[2] = r[4]; goto gs_write_2Dserialized_2Darg; case 451: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . args k port */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(452); r[5] = (hendblk(2+1)); { /* length */ int n; obj l = r[2]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; r[6] = obj_from_fixnum(n); } r[0] = r[5]; r[1] = r[6]; r[2] = r[4]; goto gs_write_2Dserialized_2Darg; case 452: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k port */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(oportputc(('}'), (r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 453: /* clo k tail */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* k tail x */ r[3+0] = (cx_c_2Derror); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; r[3+2] = (cx__231971); r[3+3] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 454: /* compile-to-string k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k x */ { /* open-output-string */ r[2] = (mkoport_string(2, newcb())); } hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(455); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ r[2] = (mknull()); goto gs_find_2Dfree; case 455: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek r x k p */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(456); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; r[6+2] = (mknull()); r[6+3] = (mknull()); r[6+4] = (mknull()); r[6+5] = r[1]; r[6+6] = obj_from_bool(0); r[6+7] = r[4]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; case 456: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k p */ { /* get-output-string */ obj o = r[3]; cxtype_oport_t *vt = ckoportvt(o); if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[4] = (mkeof()); else { cbuf_t *pcb = oportdata(o); r[4] = (hpushstr(4, newstring(cbdata(pcb)))); } } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 457: /* execute k code */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_execute: /* k code */ { /* define make-closure */ static obj c[] = { obj_from_objptr(vmcases+1) }; r[2] = obj_from_objptr(c); } hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = obj_from_case(458); r[3] = (hendblk(1+1)); 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 458: /* 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 */ { /* define execute-thunk-closure */ static obj c[] = { obj_from_objptr(vmcases+0) }; r[3] = obj_from_objptr(c); } r[4+0] = r[3]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[2]; r[4+2] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 459: /* evaluate k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_evaluate: /* k x */ hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = obj_from_case(460); r[2] = (hendblk(1+1)); r[3+0] = (cx_transform); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[2]; r[3+2] = obj_from_bool(0); r[3+3] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 460: /* 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 */ { /* open-output-string */ r[3] = (mkoport_string(3, newcb())); } hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(461); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ r[2] = (mknull()); goto gs_find_2Dfree; case 461: /* clo ek r */ assert(rc == 3); { 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 p */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(462); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; r[6+2] = (mknull()); r[6+3] = (mknull()); r[6+4] = (mknull()); r[6+5] = r[1]; r[6+6] = obj_from_bool(0); r[6+7] = r[4]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; case 462: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k p */ { /* get-output-string */ obj o = r[3]; cxtype_oport_t *vt = ckoportvt(o); if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[4] = (mkeof()); else { cbuf_t *pcb = oportdata(o); r[4] = (hpushstr(4, newstring(cbdata(pcb)))); } } { /* define decode */ static obj c[] = { obj_from_objptr(vmcases+3) }; r[5] = obj_from_objptr(c); } hreserve(hbsz(1+1), 6); /* 6 live regs */ *--hp = r[2]; *--hp = obj_from_case(463); r[6] = (hendblk(1+1)); r[0] = r[5]; pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 463: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ r[0] = r[2]; /* r[1] */ goto gs_execute; case 464: /* display-code k cstr oport */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_display_2Dcode: /* k cstr oport */ r[3+0] = r[0]; r[3+1] = obj_from_fixnum(+0); r[3+2] = obj_from_fixnum(stringlen((r[1]))); r[3+3] = r[1]; r[3+4] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v11142; s_loop_v11142: /* k i l cstr oport */ { const fixnum_t v14300_i = fixnum_from_obj(r[1]); if (((fxsub(fixnum_from_obj(r[2]), (v14300_i))) <= (+70))) { (void)(oportputcircular((cx__232930), (r[4]), 1)); { /* substring */ int *d = substring(stringdata((r[3])), (v14300_i), fixnum_from_obj(r[2])); r[5] = (hpushstr(5, d)); } (void)(oportputcircular((r[5]), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); r[5] = obj_from_void(oportputcircular((cx__232934), (r[4]), 1)); /* 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 { (void)(oportputcircular((cx__232930), (r[4]), 1)); { /* substring */ int *d = substring(stringdata((r[3])), (v14300_i), (fxadd((v14300_i), (+70)))); r[5] = (hpushstr(5, d)); } (void)(oportputcircular((r[5]), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); (void)(oportputcircular((cx__232925), (r[4]), 1)); /* r[0] */ r[1] = obj_from_fixnum(fxadd((v14300_i), (+70))); /* r[2] */ /* r[3] */ /* r[4] */ goto s_loop_v11142; } } case 465: /* process-syntax k id xval oport */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k id xval oport */ (void)(oportputc('\n', (r[3]))); (void)(oportputcircular((cx__232959), (r[3]), 1)); (void)(oportputcircular((r[1]), (r[3]), 1)); (void)(oportputcircular((cx__232958), (r[3]), 1)); { /* open-output-string */ r[4] = (mkoport_string(4, newcb())); } hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[0]; *--hp = r[4]; *--hp = obj_from_case(466); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[2]; r[2] = r[4]; goto gs_write_2Dserialized_2Dsexp; case 466: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . p k oport */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(467); r[5] = (hendblk(2+1)); { /* get-output-string */ obj o = r[2]; cxtype_oport_t *vt = ckoportvt(o); if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof()); else { cbuf_t *pcb = oportdata(o); r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } } r[0] = r[5]; r[1] = r[6]; r[2] = r[4]; goto gs_display_2Dcode; case 467: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k oport */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(oportputc('\n', (r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 468: /* process-alias k id oldid oport */ assert(rc == 5); r += 1; /* shift reg. wnd */ /* k id oldid oport */ (void)(oportputc('\n', (r[3]))); (void)(oportputcircular((cx__232969), (r[3]), 1)); (void)(oportputcircular((r[1]), (r[3]), 1)); (void)(oportputcircular((cx__232934), (r[3]), 1)); (void)(oportputcircular((cx__232968), (r[3]), 1)); (void)(oportputcircular((r[2]), (r[3]), 1)); r[4] = obj_from_void(oportputcircular((cx__232958), (r[3]), 1)); r[5+0] = r[0]; pc = objptr_from_obj(r[5+0])[0]; r[5+1] = obj_from_ktrap(); r[5+2] = r[4]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 469: /* process-command k xval oport */ assert(rc == 4); r += 1; /* shift reg. wnd */ /* k xval oport */ hreserve(hbsz(1), 3); /* 3 live regs */ *--hp = obj_from_void(0); r[3] = (hendblk(1)); { /* open-output-string */ r[4] = (mkoport_string(4, newcb())); } hreserve(hbsz(5+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(470); r[5] = (hendblk(5+1)); r[0] = r[5]; /* r[1] */ r[2] = (mknull()); goto gs_find_2Dfree; case 470: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(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 xval k oport cstr p */ hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(471); r[7] = (hendblk(4+1)); r[8+0] = r[7]; r[8+1] = r[2]; r[8+2] = (mknull()); r[8+3] = (mknull()); r[8+4] = (mknull()); r[8+5] = r[1]; r[8+6] = obj_from_bool(0); r[8+7] = r[6]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; case 471: /* 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 . k oport cstr p */ { /* get-output-string */ obj o = r[5]; cxtype_oport_t *vt = ckoportvt(o); if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof()); else { cbuf_t *pcb = oportdata(o); r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } } (void)(objptr_from_obj(r[4])[0] = (r[6])); (void)(oportputc('\n', (r[3]))); (void)(oportputcircular((cx__232980), (r[3]), 1)); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(472); r[7] = (hendblk(2+1)); r[0] = r[7]; r[1] = (objptr_from_obj(r[4])[0]); r[2] = r[3]; goto gs_display_2Dcode; case 472: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k oport */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(oportputc('\n', (r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 473: /* process-define k id xlam oport */ assert(rc == 5); r += 1; /* shift reg. wnd */ gs_process_2Ddefine: /* k id xlam oport */ hreserve(hbsz(1), 4); /* 4 live regs */ *--hp = obj_from_void(0); r[4] = (hendblk(1)); { /* open-output-string */ r[5] = (mkoport_string(5, newcb())); } hreserve(hbsz(6+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[2]; *--hp = r[3]; *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(474); r[6] = (hendblk(6+1)); r[0] = r[6]; r[1] = r[2]; r[2] = (mknull()); goto gs_find_2Dfree; case 474: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(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 id oport xlam cstr p */ 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(475); r[8] = (hendblk(6+1)); r[9+0] = r[8]; r[9+1] = r[5]; r[9+2] = (mknull()); r[9+3] = (mknull()); r[9+4] = (mknull()); r[9+5] = r[1]; r[9+6] = obj_from_bool(0); r[9+7] = r[7]; r += 9; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; case 475: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; r[1+7] = p[6]; } r += 1; /* shift reg. wnd */ /* ek . k id oport xlam cstr p */ { /* get-output-string */ obj o = r[7]; cxtype_oport_t *vt = ckoportvt(o); if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[8] = (mkeof()); else { cbuf_t *pcb = oportdata(o); r[8] = (hpushstr(8, newstring(cbdata(pcb)))); } } (void)(objptr_from_obj(r[6])[0] = (r[8])); { fixnum_t v14295_len; r[9] = (objptr_from_obj(r[6])[0]); v14295_len = (stringlen((r[9]))); r[9] = (car((r[5]))); r[9] = obj_from_bool((r[9]) == (mksymbol(internsym("lambda")))); if (bool_from_obj(r[9])) { if (((v14295_len) > (+4))) { { char_t v14299_tmp; r[9] = (objptr_from_obj(r[6])[0]); v14299_tmp = (*(unsigned char*)stringref((r[9]), (+0))); r[9] = obj_from_bool((v14299_tmp) == ('&')); } if (bool_from_obj(r[9])) { { char_t v14298_tmp; r[9] = (objptr_from_obj(r[6])[0]); v14298_tmp = (*(unsigned char*)stringref((r[9]), (+1))); r[9] = obj_from_bool((v14298_tmp) == ('0')); } if (bool_from_obj(r[9])) { { char_t v14297_tmp; r[9] = (objptr_from_obj(r[6])[0]); v14297_tmp = (*(unsigned char*)stringref((r[9]), (+2))); r[9] = obj_from_bool((v14297_tmp) == ('{')); } if (bool_from_obj(r[9])) { { char_t v14296_tmp; r[9] = (objptr_from_obj(r[6])[0]); v14296_tmp = (*(unsigned char*)stringref((r[9]), (fxsub((v14295_len), (+1))))); r[9] = obj_from_bool((v14296_tmp) == ('}')); } } else { r[9] = obj_from_bool(0); } } else { r[9] = obj_from_bool(0); } } else { r[9] = obj_from_bool(0); } } else { r[9] = obj_from_bool(0); } } else { r[9] = obj_from_bool(0); } if (bool_from_obj(r[9])) { (void)(oportputc('\n', (r[4]))); (void)(oportputcircular((cx__233003), (r[4]), 1)); (void)(oportputcircular((r[3]), (r[4]), 1)); (void)(oportputcircular((cx__232958), (r[4]), 1)); hreserve(hbsz(2+1), 9); /* 9 live regs */ *--hp = r[4]; *--hp = r[2]; *--hp = obj_from_case(476); r[9] = (hendblk(2+1)); r[10] = (objptr_from_obj(r[6])[0]); { /* substring */ int *d = substring(stringdata((r[10])), (+3), (fxsub((v14295_len), (+1)))); r[10] = (hpushstr(11, d)); } r[0] = r[9]; r[1] = (r[10]); r[2] = r[4]; goto gs_display_2Dcode; } else { { /* cons */ hreserve(hbsz(3), 9); /* 9 live regs */ *--hp = (mknull()); *--hp = r[5]; *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[9]; *--hp = r[3]; *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } { /* cons */ hreserve(hbsz(3), 10); /* 10 live regs */ *--hp = r[9]; *--hp = (mksymbol(internsym("set!"))); *--hp = obj_from_size(PAIR_BTAG); r[9] = (hendblk(3)); } hreserve(hbsz(1), 10); /* 10 live regs */ *--hp = obj_from_void(0); r[10] = (hendblk(1)); { /* open-output-string */ r[11] = (mkoport_string(11, newcb())); } hreserve(hbsz(5+1), 12); /* 12 live regs */ *--hp = (r[11]); *--hp = (r[10]); *--hp = r[4]; *--hp = r[2]; *--hp = r[9]; *--hp = obj_from_case(477); r[12] = (hendblk(5+1)); r[0] = (r[12]); r[1] = r[9]; r[2] = (mknull()); goto gs_find_2Dfree; } } case 476: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k oport */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(oportputc('\n', (r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 477: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(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 xval k oport cstr p */ hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(478); r[7] = (hendblk(4+1)); r[8+0] = r[7]; r[8+1] = r[2]; r[8+2] = (mknull()); r[8+3] = (mknull()); r[8+4] = (mknull()); r[8+5] = r[1]; r[8+6] = obj_from_bool(0); r[8+7] = r[6]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; case 478: /* 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 . k oport cstr p */ { /* get-output-string */ obj o = r[5]; cxtype_oport_t *vt = ckoportvt(o); if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof()); else { cbuf_t *pcb = oportdata(o); r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } } (void)(objptr_from_obj(r[4])[0] = (r[6])); (void)(oportputc('\n', (r[3]))); (void)(oportputcircular((cx__232980), (r[3]), 1)); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(479); r[7] = (hendblk(2+1)); r[0] = r[7]; r[1] = (objptr_from_obj(r[4])[0]); r[2] = r[3]; goto gs_display_2Dcode; case 479: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k oport */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(oportputc('\n', (r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 480: /* scan-top-form k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_scan_2Dtop_2Dform: /* k x */ if (bool_from_obj(cxs_list2_3F((r[1])))) { r[2] = (car((r[1]))); r[2] = obj_from_bool((r[2]) == (mksymbol(internsym("load")))); if (bool_from_obj(r[2])) { r[2] = (cdr((r[1]))); r[2] = (car((r[2]))); r[2] = obj_from_bool(isstring((r[2]))); } 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[2] = (car((r[2]))); r[3] = ((obj)fopen(stringchars((r[2])), stringchars((cx__233064)))); hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = obj_from_case(481); r[4] = (hendblk(1+1)); if (bool_from_obj(r[3])) { r[5] = (mkiport_file(5, (void*)((r[3])))); r[6+0] = obj_from_ktrap(); r[6+1] = r[5]; r[6+2] = r[0]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v10998; } else { r[5+0] = (cx_file_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = (cx__233068); r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } } else { if ((ispair((r[1])))) { hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(487); r[2] = (hendblk(2+1)); r[3+0] = (cx_transform); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[2]; r[3+2] = obj_from_bool(1); r[3+3] = (car((r[1]))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } } case 481: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ s_l_v10998: /* ek r k */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(482); r[3] = (hendblk(2+1)); r[4+0] = (cx__25read); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = r[1]; r[4+3] = obj_from_bool(0); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 482: /* clo 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(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(486); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ /* r[2] */ goto s_loop_v11007; case 483: /* clo k x */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v11007: /* k x r */ if ((iseof((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(483); r[3] = (hendblk(1+1)); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(484); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ goto gs_scan_2Dtop_2Dform; } case 484: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . r loop k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(485); r[5] = (hendblk(2+1)); r[0] = (cx__25read); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; /* r[2] */ r[3] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 485: /* clo 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 486: /* 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 . r k */ r[0] = (cx_close_2Dinput_2Dport); pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 487: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r x k */ if (((r[1]) == (mksymbol(internsym("begin"))))) { r[4] = (cdr((r[2]))); r[0] = r[3]; r[1] = r[4]; goto s_loop_v10982; } else { if (((r[1]) == (mksymbol(internsym("define-syntax"))))) { hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_case(490); r[4] = (hendblk(2+1)); r[5] = (cdr((r[2]))); r[5] = (cdr((r[5]))); r[5] = (car((r[5]))); r[6+0] = (cx_transform); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[4]; r[6+2] = obj_from_bool(1); r[6+3] = r[5]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((isprocedure((r[1])))) { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_case(492); r[4] = (hendblk(1+1)); r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; /* r[2] */ r[3] = (cx_top_2Dtransformer_2Denv); rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[0] = r[3]; 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 488: /* clo k l */ assert(rc == 3); r += 1; /* shift reg. wnd */ s_loop_v10982: /* k l */ if ((ispair((r[1])))) { hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(488); r[2] = (hendblk(0+1)); hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(489); r[2] = (hendblk(3+1)); r[0] = r[2]; r[1] = (car((r[1]))); goto gs_scan_2Dtop_2Dform; } else { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = obj_from_void(0); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 489: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . loop l k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = (cdr((r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 490: /* clo 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 x */ r[4] = (cdr((r[3]))); r[4] = (car((r[4]))); hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(491); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[4]; goto gs_top_2Dtransformer_2Denv; case 491: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = obj_from_void(boxref((r[1])) = (r[3])); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 492: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ r[0] = r[2]; /* r[1] */ goto gs_scan_2Dtop_2Dform; case 493: /* process-top-form k x oport */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_process_2Dtop_2Dform: /* k x oport */ if (bool_from_obj(cxs_list2_3F((r[1])))) { r[3] = (car((r[1]))); r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("load")))); if (bool_from_obj(r[3])) { r[3] = (cdr((r[1]))); r[3] = (car((r[3]))); r[3] = obj_from_bool(isstring((r[3]))); } else { r[3] = obj_from_bool(0); } } else { r[3] = obj_from_bool(0); } if (bool_from_obj(r[3])) { r[3] = (cdr((r[1]))); r[3] = (car((r[3]))); r[4] = ((obj)fopen(stringchars((r[3])), stringchars((cx__233064)))); hreserve(hbsz(1+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = obj_from_case(494); r[5] = (hendblk(1+1)); if (bool_from_obj(r[4])) { r[6] = (mkiport_file(6, (void*)((r[4])))); r[7+0] = obj_from_ktrap(); r[7+1] = r[6]; r[7+2] = r[0]; r += 7; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v10920; } else { r[0] = (cx_file_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = (cx__233068); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } } else { if ((ispair((r[1])))) { hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(500); r[3] = (hendblk(3+1)); r[4+0] = (cx_transform); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = obj_from_bool(1); r[4+3] = (car((r[1]))); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = obj_from_case(513); r[3] = (hendblk(2+1)); r[4+0] = (cx_transform); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = obj_from_bool(0); r[4+3] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } } case 494: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ s_l_v10920: /* ek r k */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(495); r[3] = (hendblk(2+1)); r[4+0] = (cx__25read); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = r[1]; r[4+3] = obj_from_bool(0); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 495: /* clo 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(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(499); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ /* r[2] */ goto s_loop_v10929; case 496: /* clo k x */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v10929: /* k x r */ if ((iseof((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(496); r[3] = (hendblk(1+1)); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(497); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ goto gs_scan_2Dtop_2Dform; } case 497: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . r loop k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(498); r[5] = (hendblk(2+1)); r[0] = (cx__25read); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; /* r[2] */ r[3] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 498: /* clo 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 499: /* 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 . r k */ r[0] = (cx_close_2Dinput_2Dport); pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 500: /* clo ek r */ assert(rc == 3); { 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 oport x k */ if (((r[1]) == (mksymbol(internsym("begin"))))) { r[5] = (cdr((r[3]))); r[0] = r[4]; r[1] = r[5]; /* r[2] */ goto s_loop_v10904; } else { if (((r[1]) == (mksymbol(internsym("define-syntax"))))) { hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[4]; *--hp = r[2]; *--hp = obj_from_case(503); r[5] = (hendblk(3+1)); r[6] = (cdr((r[3]))); r[6] = (cdr((r[6]))); r[6] = (car((r[6]))); r[0] = (cx_transform); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = obj_from_bool(1); r[3] = r[6]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if (((r[1]) == (mksymbol(internsym("define"))))) { hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[2]; *--hp = obj_from_case(507); r[5] = (hendblk(2+1)); r[0] = (cx_transform); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = obj_from_bool(0); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((isprocedure((r[1])))) { hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[2]; *--hp = obj_from_case(508); r[5] = (hendblk(2+1)); r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = r[3]; r[3] = (cx_top_2Dtransformer_2Denv); rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[4]; *--hp = obj_from_case(509); r[5] = (hendblk(2+1)); r[0] = (cx_transform); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = obj_from_bool(0); /* r[3] */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } } } } case 501: /* clo k x* */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v10904: /* k x* oport */ if ((ispair((r[1])))) { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(501); r[3] = (hendblk(1+1)); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[3]; *--hp = obj_from_case(502); r[3] = (hendblk(3+1)); r[0] = r[3]; r[1] = (car((r[1]))); /* r[2] */ goto gs_process_2Dtop_2Dform; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 502: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . loop x* k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = (cdr((r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 503: /* clo ek r */ assert(rc == 3); { 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 oport k x */ r[5] = (cdr((r[4]))); r[5] = (car((r[5]))); hreserve(hbsz(4+1), 6); /* 6 live regs */ *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(504); r[6] = (hendblk(4+1)); r[0] = r[6]; r[1] = r[5]; goto gs_top_2Dtransformer_2Denv; case 504: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(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 oport k x r */ (void)(boxref((r[1])) = (r[5])); r[6] = (cdr((r[4]))); r[6] = (car((r[6]))); { /* memq */ obj x = (r[6]), l = (mknull()); for (; l != mknull(); l = cdr(l)) if (car(l) == x) break; r[6] = (l == mknull() ? obj_from_bool(0) : l); } if (bool_from_obj(r[6])) { r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[6] = (cdr((r[4]))); r[6] = (cdr((r[6]))); r[6] = (car((r[6]))); r[6] = obj_from_bool(issymbol((r[6]))); if (bool_from_obj(r[6])) { r[6] = (cdr((r[4]))); r[6] = (car((r[6]))); r[7] = (cdr((r[4]))); r[7] = (cdr((r[7]))); r[7] = (car((r[7]))); (void)(oportputc('\n', (r[2]))); (void)(oportputcircular((cx__232969), (r[2]), 1)); (void)(oportputcircular((r[6]), (r[2]), 1)); (void)(oportputcircular((cx__232934), (r[2]), 1)); (void)(oportputcircular((cx__232968), (r[2]), 1)); (void)(oportputcircular((r[7]), (r[2]), 1)); r[6] = obj_from_void(oportputcircular((cx__232958), (r[2]), 1)); r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[6] = (cdr((r[4]))); r[6] = (car((r[6]))); r[7] = (cdr((r[4]))); r[7] = (cdr((r[7]))); r[7] = (car((r[7]))); (void)(oportputc('\n', (r[2]))); (void)(oportputcircular((cx__232959), (r[2]), 1)); (void)(oportputcircular((r[6]), (r[2]), 1)); (void)(oportputcircular((cx__232958), (r[2]), 1)); { /* open-output-string */ r[8] = (mkoport_string(8, newcb())); } hreserve(hbsz(3+1), 9); /* 9 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = r[8]; *--hp = obj_from_case(505); r[9] = (hendblk(3+1)); r[0] = r[9]; r[1] = r[7]; r[2] = r[8]; goto gs_write_2Dserialized_2Dsexp; } } case 505: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . p k oport */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(506); r[5] = (hendblk(2+1)); { /* get-output-string */ obj o = r[2]; cxtype_oport_t *vt = ckoportvt(o); if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof()); else { cbuf_t *pcb = oportdata(o); r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } } r[0] = r[5]; r[1] = r[6]; r[2] = r[4]; goto gs_display_2Dcode; case 506: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k oport */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(oportputc('\n', (r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 507: /* clo 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 oport k */ r[4] = (cdr((r[1]))); r[4] = (cdr((r[4]))); r[4] = (car((r[4]))); r[5] = (cdr((r[1]))); r[5] = (car((r[5]))); r[6+0] = r[3]; r[6+1] = r[5]; r[6+2] = r[4]; r[6+3] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_process_2Ddefine; case 508: /* clo 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 oport k */ r[0] = r[3]; /* r[1] */ /* r[2] */ goto gs_process_2Dtop_2Dform; case 509: /* clo 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 oport */ hreserve(hbsz(1), 4); /* 4 live regs */ *--hp = obj_from_void(0); r[4] = (hendblk(1)); { /* open-output-string */ r[5] = (mkoport_string(5, newcb())); } hreserve(hbsz(5+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(510); r[6] = (hendblk(5+1)); r[0] = r[6]; /* r[1] */ r[2] = (mknull()); goto gs_find_2Dfree; case 510: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r r k oport cstr p */ hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(511); r[7] = (hendblk(4+1)); r[8+0] = r[7]; r[8+1] = r[2]; r[8+2] = (mknull()); r[8+3] = (mknull()); r[8+4] = (mknull()); r[8+5] = r[1]; r[8+6] = obj_from_bool(0); r[8+7] = r[6]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; case 511: /* 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 . k oport cstr p */ { /* get-output-string */ obj o = r[5]; cxtype_oport_t *vt = ckoportvt(o); if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof()); else { cbuf_t *pcb = oportdata(o); r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } } (void)(objptr_from_obj(r[4])[0] = (r[6])); (void)(oportputc('\n', (r[3]))); (void)(oportputcircular((cx__232980), (r[3]), 1)); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(512); r[7] = (hendblk(2+1)); r[0] = r[7]; r[1] = (objptr_from_obj(r[4])[0]); r[2] = r[3]; goto gs_display_2Dcode; case 512: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k oport */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(oportputc('\n', (r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 513: /* clo 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 oport */ hreserve(hbsz(1), 4); /* 4 live regs */ *--hp = obj_from_void(0); r[4] = (hendblk(1)); { /* open-output-string */ r[5] = (mkoport_string(5, newcb())); } hreserve(hbsz(5+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(514); r[6] = (hendblk(5+1)); r[0] = r[6]; /* r[1] */ r[2] = (mknull()); goto gs_find_2Dfree; case 514: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r r k oport cstr p */ hreserve(hbsz(4+1), 7); /* 7 live regs */ *--hp = r[6]; *--hp = r[5]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(515); r[7] = (hendblk(4+1)); r[8+0] = r[7]; r[8+1] = r[2]; r[8+2] = (mknull()); r[8+3] = (mknull()); r[8+4] = (mknull()); r[8+5] = r[1]; r[8+6] = obj_from_bool(0); r[8+7] = r[6]; r += 8; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; case 515: /* 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 . k oport cstr p */ { /* get-output-string */ obj o = r[5]; cxtype_oport_t *vt = ckoportvt(o); if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof()); else { cbuf_t *pcb = oportdata(o); r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } } (void)(objptr_from_obj(r[4])[0] = (r[6])); (void)(oportputc('\n', (r[3]))); (void)(oportputcircular((cx__232980), (r[3]), 1)); hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(516); r[7] = (hendblk(2+1)); r[0] = r[7]; r[1] = (objptr_from_obj(r[4])[0]); r[2] = r[3]; goto gs_display_2Dcode; case 516: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k oport */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(oportputc('\n', (r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 517: /* path-strip-directory k filename */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_path_2Dstrip_2Ddirectory: /* k filename */ hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = obj_from_case(518); r[2] = (hendblk(1+1)); r[3+0] = (cx_string_2D_3Elist); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[2]; r[3+2] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 518: /* 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 v14294_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14294_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14294_tmp); hreserve(hbsz(3)*c, 3); /* 3 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[3] = (o); } } r[0] = r[2]; r[1] = r[3]; r[2] = (mknull()); goto s_loop_v10801; s_loop_v10801: /* k l r */ if ((isnull((r[1])))) { r[3+0] = (cx_list_2D_3Estring); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; r[3+2] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[3] = (car((r[1]))); r[3] = (ismemv((r[3]), (cx__233189))); if (bool_from_obj(r[3])) { r[3+0] = (cx_list_2D_3Estring); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; r[3+2] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[3] = (cdr((r[1]))); r[4] = (car((r[1]))); { /* cons */ hreserve(hbsz(3), 5); /* 5 live regs */ *--hp = r[2]; *--hp = r[4]; *--hp = obj_from_size(PAIR_BTAG); r[4] = (hendblk(3)); } /* r[0] */ r[1] = r[3]; r[2] = r[4]; goto s_loop_v10801; } } case 519: /* path-strip-extension k filename */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_path_2Dstrip_2Dextension: /* k filename */ hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(520); r[2] = (hendblk(2+1)); r[3+0] = (cx_string_2D_3Elist); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[2]; r[3+2] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 520: /* clo 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 filename k */ { fixnum_t v14292_tmp; { /* length */ int n; obj l = r[1]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14292_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14292_tmp); hreserve(hbsz(3)*c, 4); /* 4 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[4] = (o); } } r[5] = (ismemv(obj_from_char('.'), (r[4]))); if (bool_from_obj(r[5])) { r[6] = (cdr((r[5]))); { fixnum_t v14293_tmp; { /* length */ int n; obj l = r[6]; for (n = 0; l != mknull(); ++n, l = cdr(l)) ; v14293_tmp = (n); } { /* reverse */ obj l, o = mknull(); int c = (v14293_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[6] = (o); } } r[0] = (cx_list_2D_3Estring); pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; r[2] = r[6]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 521: /* module-name k filename */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_module_2Dname: /* k filename */ hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = obj_from_case(522); r[2] = (hendblk(1+1)); r[0] = r[2]; /* r[1] */ goto gs_path_2Dstrip_2Ddirectory; case 522: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ r[0] = r[2]; /* r[1] */ goto gs_path_2Dstrip_2Dextension; case 523: /* process-file k fname */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_process_2Dfile: /* k fname */ r[2] = (cx__2Acurrent_2Doutput_2Dport_2A); hreserve(hbsz(1), 3); /* 3 live regs */ *--hp = obj_from_void(0); r[3] = (hendblk(1)); hreserve(hbsz(1), 4); /* 4 live regs */ *--hp = obj_from_void(0); r[4] = (hendblk(1)); hreserve(hbsz(5+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[3]; *--hp = r[4]; *--hp = r[2]; *--hp = r[0]; *--hp = obj_from_case(524); r[5] = (hendblk(5+1)); r[0] = r[5]; /* r[1] */ goto gs_module_2Dname; case 524: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; r[1+5] = p[4]; r[1+6] = p[5]; } r += 1; /* shift reg. wnd */ /* ek r k oport mname iport fname */ r[7] = ((obj)fopen(stringchars((r[6])), stringchars((cx__233064)))); hreserve(hbsz(6+1), 8); /* 8 live regs */ *--hp = r[5]; *--hp = r[1]; *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = r[6]; *--hp = obj_from_case(525); r[8] = (hendblk(6+1)); if (bool_from_obj(r[7])) { r[9] = (mkiport_file(9, (void*)((r[7])))); r[10+0] = obj_from_ktrap(); r[10+1] = r[9]; r[10+2] = r[6]; r[10+3] = r[2]; r[10+4] = r[3]; r[10+5] = r[4]; r[10+6] = r[1]; r[10+7] = r[5]; r += 10; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v10725; } else { r[0] = (cx_file_2Derror); pc = objptr_from_obj(r[0])[0]; r[1] = r[8]; r[2] = (cx__233068); r[3] = r[6]; rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 525: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(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_v10725: /* ek r fname k oport mname r iport */ (void)(objptr_from_obj(r[7])[0] = (r[1])); (void)(objptr_from_obj(r[5])[0] = (r[6])); (void)(oportputcircular((cx__233237), (r[4]), 1)); r[8] = (objptr_from_obj(r[5])[0]); (void)(oportputcircular((r[8]), (r[4]), 1)); (void)(oportputcircular((cx__233236), (r[4]), 1)); hreserve(hbsz(4+1), 8); /* 8 live regs */ *--hp = r[4]; *--hp = r[5]; *--hp = r[3]; *--hp = r[7]; *--hp = obj_from_case(526); r[8] = (hendblk(4+1)); r[0] = r[8]; r[1] = r[2]; goto gs_path_2Dstrip_2Ddirectory; case 526: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(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 iport k mname oport */ (void)(oportputcircular((r[1]), (r[5]), 1)); (void)(oportputcircular((cx__233235), (r[5]), 1)); (void)(oportputc('\n', (r[5]))); (void)(oportputc('\n', (r[5]))); (void)(oportputcircular((cx__233234), (r[5]), 1)); r[6] = (objptr_from_obj(r[4])[0]); (void)(oportputcircular((r[6]), (r[5]), 1)); (void)(oportputcircular((cx__233233), (r[5]), 1)); (void)(oportputc('\n', (r[5]))); hreserve(hbsz(3+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(527); r[6] = (hendblk(3+1)); r[0] = (cx__25read); pc = objptr_from_obj(r[0])[0]; r[1] = r[6]; r[2] = (objptr_from_obj(r[2])[0]); r[3] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 527: /* clo ek r */ assert(rc == 3); { 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 iport k oport */ hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(531); r[5] = (hendblk(3+1)); r[6+0] = r[5]; r[6+1] = r[1]; r[6+2] = r[4]; r[6+3] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_loop_v10736; case 528: /* clo k x */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ s_loop_v10736: /* k x oport iport */ if ((iseof((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(528); r[4] = (hendblk(2+1)); hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[0]; *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(529); r[4] = (hendblk(3+1)); r[0] = r[4]; /* r[1] */ /* r[2] */ goto gs_process_2Dtop_2Dform; } case 529: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . iport loop k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(530); r[5] = (hendblk(2+1)); r[0] = (cx__25read); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = (objptr_from_obj(r[2])[0]); r[3] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 530: /* clo 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 531: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . iport k oport */ (void)(oportputcircular((cx__233225), (r[4]), 1)); r[0] = (cx_close_2Dinput_2Dport); pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; r[2] = (objptr_from_obj(r[2])[0]); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 532: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ { /* define make-closure */ static obj c[] = { obj_from_objptr(vmcases+1) }; r[2] = obj_from_objptr(c); } hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(533); r[3] = (hendblk(0+1)); 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 533: /* clo ek r */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* ek r */ cx_callmv_2Dadapter_2Dclosure = r[1]; { /* define install-global-lambdas */ static obj c[] = { obj_from_objptr(vmcases+6) }; cx_install_2Dglobal_2Dlambdas = obj_from_objptr(c); } { /* define install-global-lambdas */ static obj c[] = { obj_from_objptr(vmcases+6) }; r[2] = obj_from_objptr(c); } hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(534); r[3] = (hendblk(0+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; rreserve(MAX_HOSTREGS); rc = 2; goto jump; case 534: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ r += 1; /* shift reg. wnd */ /* ek . */ { /* define initialize-modules */ static obj c[] = { obj_from_objptr(vmcases+7) }; cx_initialize_2Dmodules = obj_from_objptr(c); } { /* define initialize-modules */ static obj c[] = { obj_from_objptr(vmcases+7) }; r[2] = obj_from_objptr(c); } hreserve(hbsz(0+1), 3); /* 3 live regs */ *--hp = obj_from_case(535); r[3] = (hendblk(0+1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; rreserve(MAX_HOSTREGS); rc = 2; goto jump; case 535: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ r += 1; /* shift reg. wnd */ /* ek . */ cx_test1 = (cx__233264); cx_test2 = (cx__233534); cx_test3 = (cx__233736); cx_test4 = (cx__234138); cx_test5 = (cx__234268); cx__2Averbose_2A = obj_from_bool(0); cx__2Areset_2A = obj_from_bool(0); { static obj c[] = { obj_from_case(536) }; cx__25residual_2Dtty_2Dport_3F = (obj)c; } { static obj c[] = { obj_from_case(537) }; cx_error_2A = (obj)c; } { static obj c[] = { obj_from_case(539) }; cx_run_2Dtests = (obj)c; } { static obj c[] = { obj_from_case(545) }; cx_repl_2Deval = (obj)c; } { static obj c[] = { obj_from_case(552) }; cx_repl_2Deval_2Dtop_2Dform = (obj)c; } { static obj c[] = { obj_from_case(561) }; cx_repl_2Dread = (obj)c; } { static obj c[] = { obj_from_case(562) }; cx_repl_2Dfrom_2Dport = (obj)c; } { static obj c[] = { obj_from_case(567) }; cx_repl_2Dfile = (obj)c; } { static obj c[] = { obj_from_case(570) }; cx_benchmark_2Dfile = (obj)c; } { static obj c[] = { obj_from_case(576) }; cx_service_2Drepl = (obj)c; } { static obj c[] = { obj_from_case(577) }; cx_tcode_2Drepl = (obj)c; } { static obj c[] = { obj_from_case(579) }; cx_debug_2Drepl = (obj)c; } { static obj c[] = { obj_from_case(585) }; cx_main = (obj)c; } r[2] = obj_from_void(0); r[3+0] = r[0]; pc = 0; /* exit from module init */ r[3+1] = r[2]; r += 3; /* shift reg wnd */ rc = 2; goto jump; case 536: /* %residual-tty-port? k o */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k o */ { /* tty-port? */ extern int is_tty_port(obj o); int x = is_tty_port((r[1])); r[2] = obj_from_bool(x); } 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 537: /* error* k msg args */ assert(rc == 4); r += 1; /* shift reg. wnd */ gs_error_2A: /* k msg args */ if ((isprocedure((cx__2Areset_2A)))) { r[3] = (cx__2Acurrent_2Derror_2Dport_2A); (void)(oportputcircular((r[1]), (r[3]), 1)); (void)(oportputc('\n', (r[3]))); hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = obj_from_case(538); r[4] = (hendblk(1+1)); r[0] = r[4]; r[1] = r[2]; r[2] = r[3]; goto s_loop_v10687; } else { { /* 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] = (cx_apply); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r[4+2] = (cx_error); r[4+3] = r[3]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } s_loop_v10687: /* k l p */ if ((ispair((r[1])))) { r[3] = (car((r[1]))); (void)(oportputcircular((r[3]), (r[2]), 0)); (void)(oportputc('\n', (r[2]))); r[3] = (cdr((r[1]))); /* r[0] */ r[1] = r[3]; /* r[2] */ goto s_loop_v10687; } else { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 538: /* 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__2Areset_2A); pc = objptr_from_obj(r[0])[0]; r[1] = r[2]; r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 539: /* run-tests k */ assert(rc == 2); r += 1; /* shift reg. wnd */ gs_run_2Dtests: /* k */ hreserve(hbsz(1), 1); /* 1 live regs */ *--hp = obj_from_void(0); r[1] = (hendblk(1)); r[2] = obj_from_flonum(2, clock()); (void)(objptr_from_obj(r[1])[0] = (r[2])); (void)(oportputcircular((cx__234703), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[1]; *--hp = r[0]; *--hp = obj_from_case(540); r[2] = (hendblk(2+1)); r[0] = r[2]; r[1] = (cx_test1); goto gs_evaluate; case 540: /* clo 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 start */ (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(541); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (cx_test2); goto gs_evaluate; case 541: /* clo 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 start */ (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(542); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (cx_test3); goto gs_evaluate; case 542: /* clo 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 start */ (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(543); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (cx_test4); goto gs_evaluate; case 543: /* clo 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 start */ (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(544); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (cx_test5); goto gs_evaluate; case 544: /* clo 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 start */ (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); (void)(oportputcircular((cx__234702), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); { flonum_t v14290_b; { flonum_t v14289_a; { const flonum_t v14288_b = (CLOCKS_PER_SEC); { const flonum_t v14286_a = (clock()); r[4] = (objptr_from_obj(r[3])[0]); if ((is_fixnum_obj(r[4]))) { { const flonum_t v14287_tmp = ((flonum_t)fixnum_from_obj(r[4])); v14289_a = ((v14286_a) - (v14287_tmp)); } } else { v14289_a = ((v14286_a) - flonum_from_obj(r[4])); } } v14290_b = ((v14289_a) / (v14288_b)); } } { const flonum_t v14291_tmp = ((flonum_t)(+1000)); r[4] = obj_from_flonum(4, (v14291_tmp) * (v14290_b)); } } (void)(oportputcircular((r[4]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); (void)(oportputcircular((cx__234678), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); r[4] = obj_from_void(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 545: /* repl-eval k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_repl_2Deval: /* k x */ cx__2Areset_2A = r[0]; hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = obj_from_case(546); r[2] = (hendblk(1+1)); r[3+0] = (cx_transform); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[2]; r[3+2] = obj_from_bool(0); r[3+3] = r[1]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 546: /* 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(cx__2Averbose_2A)) { (void)(oportputcircular((cx__234775), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); } else { } hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(547); r[3] = (hendblk(2+1)); if ((ispair((r[1])))) { r[4+0] = obj_from_ktrap(); r[4+1] = ((0) ? obj_from_bool(0) : obj_from_void(0)); r[4+2] = r[2]; r[4+3] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v10608; } else { r[4+0] = (cx_x_2Derror); pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[3]; r[4+2] = (cx__234773); r[4+3] = r[1]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 547: /* 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 */ s_l_v10608: /* ek . k r */ r[4] = (car((r[3]))); r[4] = obj_from_bool((r[4]) == (mksymbol(internsym("define")))); if (bool_from_obj(r[4])) { (void)(car((r[3])) = (mksymbol(internsym("set!")))); } else { } if (bool_from_obj(cx__2Averbose_2A)) { (void)(oportputcircular((cx__234766), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); } else { } { /* open-output-string */ r[4] = (mkoport_string(4, newcb())); } hreserve(hbsz(3+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_case(548); r[5] = (hendblk(3+1)); r[0] = r[5]; r[1] = r[3]; r[2] = (mknull()); goto gs_find_2Dfree; case 548: /* clo ek r */ assert(rc == 3); { 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 p */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(549); r[5] = (hendblk(2+1)); r[6+0] = r[5]; r[6+1] = r[2]; r[6+2] = (mknull()); r[6+3] = (mknull()); r[6+4] = (mknull()); r[6+5] = r[1]; r[6+6] = obj_from_bool(0); r[6+7] = r[4]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_codegen; case 549: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek . k p */ { /* get-output-string */ obj o = r[3]; cxtype_oport_t *vt = ckoportvt(o); if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG && vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[4] = (mkeof()); else { cbuf_t *pcb = oportdata(o); r[4] = (hpushstr(4, newstring(cbdata(pcb)))); } } hreserve(hbsz(1), 5); /* 5 live regs */ *--hp = obj_from_bool(0); r[5] = (hendblk(1)); if (bool_from_obj(cx__2Averbose_2A)) { (void)(oportputcircular((r[4]), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); (void)(oportputcircular((cx__234759), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); r[6] = obj_from_flonum(6, clock()); (void)(objptr_from_obj(r[5])[0] = (r[6])); } else { } { /* define decode */ static obj c[] = { obj_from_objptr(vmcases+3) }; r[6] = obj_from_objptr(c); } hreserve(hbsz(2+1), 7); /* 7 live regs */ *--hp = r[5]; *--hp = r[2]; *--hp = obj_from_case(550); r[7] = (hendblk(2+1)); r[0] = r[6]; pc = objptr_from_obj(r[0])[0]; r[1] = r[7]; r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 550: /* clo 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 start */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(551); r[4] = (hendblk(2+1)); r[0] = r[4]; /* r[1] */ goto gs_execute; case 551: /* clo 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 start */ if (((r[1]) == obj_from_void(0))) { (void)((0) ? obj_from_bool(0) : obj_from_void(0)); } else { (void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); (void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); } if (bool_from_obj(cx__2Averbose_2A)) { (void)(oportputcircular((cx__234702), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); { flonum_t v14284_b; { flonum_t v14283_a; { const flonum_t v14282_b = (CLOCKS_PER_SEC); { const flonum_t v14280_a = (clock()); r[4] = (objptr_from_obj(r[3])[0]); if ((is_fixnum_obj(r[4]))) { { const flonum_t v14281_tmp = ((flonum_t)fixnum_from_obj(r[4])); v14283_a = ((v14280_a) - (v14281_tmp)); } } else { v14283_a = ((v14280_a) - flonum_from_obj(r[4])); } } v14284_b = ((v14283_a) / (v14282_b)); } } { const flonum_t v14285_tmp = ((flonum_t)(+1000)); r[4] = obj_from_flonum(4, (v14285_tmp) * (v14284_b)); } } (void)(oportputcircular((r[4]), (cx__2Acurrent_2Doutput_2Dport_2A), 0)); (void)(oportputcircular((cx__234678), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); r[4] = obj_from_void(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A))); } else { r[4] = obj_from_void(0); } r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = r[4]; rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 552: /* repl-eval-top-form k x */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_repl_2Deval_2Dtop_2Dform: /* k x */ if (bool_from_obj(cxs_list2_3F((r[1])))) { r[2] = (car((r[1]))); r[2] = obj_from_bool((r[2]) == (mksymbol(internsym("load")))); if (bool_from_obj(r[2])) { r[2] = (cdr((r[1]))); r[2] = (car((r[2]))); r[2] = obj_from_bool(isstring((r[2]))); } 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[2] = (car((r[2]))); r[3] = ((obj)fopen(stringchars((r[2])), stringchars((cx__233064)))); hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = obj_from_case(553); r[4] = (hendblk(1+1)); if (bool_from_obj(r[3])) { r[5] = (mkiport_file(5, (void*)((r[3])))); r[6+0] = obj_from_ktrap(); r[6+1] = r[5]; r[6+2] = r[0]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v10588; } else { r[5+0] = (cx_file_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = (cx__233068); r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } } else { if ((ispair((r[1])))) { hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(555); r[2] = (hendblk(2+1)); r[3+0] = (cx_transform); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[2]; r[3+2] = obj_from_bool(1); r[3+3] = (car((r[1]))); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { /* r[0] */ /* r[1] */ goto gs_repl_2Deval; } } case 553: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ s_l_v10588: /* ek r k */ hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = r[1]; *--hp = obj_from_case(554); r[3] = (hendblk(2+1)); r[0] = r[3]; /* r[1] */ goto gs_repl_2Dfrom_2Dport; case 554: /* 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 . r k */ r[0] = (cx_close_2Dinput_2Dport); pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; /* r[2] */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 555: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r x k */ if (((r[1]) == (mksymbol(internsym("begin"))))) { r[4] = (cdr((r[2]))); r[0] = r[3]; r[1] = r[4]; goto s_loop_v10572; } else { if (((r[1]) == (mksymbol(internsym("define-syntax"))))) { hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_case(558); r[4] = (hendblk(2+1)); r[5] = (cdr((r[2]))); r[5] = (cdr((r[5]))); r[5] = (car((r[5]))); r[6+0] = (cx_transform); pc = objptr_from_obj(r[6+0])[0]; r[6+1] = r[4]; r[6+2] = obj_from_bool(1); r[6+3] = r[5]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { if ((isprocedure((r[1])))) { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = obj_from_case(560); r[4] = (hendblk(1+1)); r[0] = r[1]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; /* r[2] */ r[3] = (cx_top_2Dtransformer_2Denv); rreserve(MAX_HOSTREGS); rc = 4; goto jump; } else { r[0] = r[3]; r[1] = r[2]; goto gs_repl_2Deval; } } } case 556: /* clo k x* */ assert(rc == 3); r += 1; /* shift reg. wnd */ s_loop_v10572: /* k x* */ if ((ispair((r[1])))) { hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(556); r[2] = (hendblk(0+1)); hreserve(hbsz(3+1), 3); /* 3 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(557); r[2] = (hendblk(3+1)); r[0] = r[2]; r[1] = (car((r[1]))); goto gs_repl_2Deval_2Dtop_2Dform; } else { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = obj_from_void(0); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 557: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . loop x* k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[4]; r[2] = (cdr((r[3]))); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 558: /* clo 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 x */ r[4] = (cdr((r[3]))); r[4] = (car((r[4]))); hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(559); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[4]; goto gs_top_2Dtransformer_2Denv; case 559: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* ek r k r */ r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = obj_from_ktrap(); r[4+2] = obj_from_void(boxref((r[1])) = (r[3])); r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 560: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ r[0] = r[2]; /* r[1] */ goto gs_repl_2Deval_2Dtop_2Dform; case 561: /* repl-read k iport */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_repl_2Dread: /* k iport */ if (((r[1]) == (cx__2Acurrent_2Dinput_2Dport_2A))) { (void)(oportputcircular((cx__234831), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); (void)(oportflush((cx__2Acurrent_2Doutput_2Dport_2A))); } else { } r[2+0] = (cx__25read); pc = objptr_from_obj(r[2+0])[0]; r[2+1] = r[0]; r[2+2] = r[1]; r[2+3] = obj_from_bool(0); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 562: /* repl-from-port k iport */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_repl_2Dfrom_2Dport: /* k iport */ hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(563); r[2] = (hendblk(2+1)); r[0] = r[2]; /* r[1] */ goto gs_repl_2Dread; case 563: /* clo 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 iport k */ r[0] = r[3]; /* r[1] */ /* r[2] */ goto s_loop_v10519; case 564: /* clo k x */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ s_loop_v10519: /* k x iport */ if ((iseof((r[1])))) { /* r[0] */ pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { hreserve(hbsz(1+1), 3); /* 3 live regs */ *--hp = r[2]; *--hp = obj_from_case(564); r[3] = (hendblk(1+1)); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[0]; *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(565); r[3] = (hendblk(3+1)); r[0] = r[3]; /* r[1] */ goto gs_repl_2Deval_2Dtop_2Dform; } case 565: /* clo ek . */ assert(rc >= 2); r[2] = obj_from_void(0); /* ignored */ { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; r[1+4] = p[3]; } r += 1; /* shift reg. wnd */ /* ek . iport loop k */ hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[4]; *--hp = r[3]; *--hp = obj_from_case(566); r[5] = (hendblk(2+1)); r[0] = r[5]; r[1] = r[2]; goto gs_repl_2Dread; case 566: /* clo 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 567: /* repl-file k fname */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_repl_2Dfile: /* k fname */ hreserve(hbsz(1), 2); /* 2 live regs */ *--hp = obj_from_void(0); r[2] = (hendblk(1)); r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__233064)))); hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = obj_from_case(568); r[4] = (hendblk(2+1)); if (bool_from_obj(r[3])) { r[5] = (mkiport_file(5, (void*)((r[3])))); r[6+0] = obj_from_ktrap(); r[6+1] = r[5]; r[6+2] = r[0]; r[6+3] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v10500; } else { r[5+0] = (cx_file_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = (cx__233068); r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 568: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ s_l_v10500: /* ek r k iport */ (void)(objptr_from_obj(r[3])[0] = (r[1])); hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[3]; *--hp = obj_from_case(569); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (objptr_from_obj(r[3])[0]); goto gs_repl_2Dfrom_2Dport; case 569: /* 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 . iport k */ r[0] = (cx_close_2Dinput_2Dport); pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; r[2] = (objptr_from_obj(r[2])[0]); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 570: /* benchmark-file k fname */ assert(rc == 3); r += 1; /* shift reg. wnd */ gs_benchmark_2Dfile: /* k fname */ hreserve(hbsz(1), 2); /* 2 live regs */ *--hp = obj_from_void(0); r[2] = (hendblk(1)); r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__233064)))); hreserve(hbsz(3+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(571); r[4] = (hendblk(3+1)); if (bool_from_obj(r[3])) { r[5] = (mkiport_file(5, (void*)((r[3])))); r[6+0] = obj_from_ktrap(); r[6+1] = r[5]; r[6+2] = r[1]; r[6+3] = r[0]; r[6+4] = r[2]; r += 6; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto s_l_v10464; } else { r[5+0] = (cx_file_2Derror); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[4]; r[5+2] = (cx__233068); r[5+3] = r[1]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 571: /* clo ek r */ assert(rc == 3); { 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_v10464: /* ek r fname k iport */ (void)(objptr_from_obj(r[4])[0] = (r[1])); hreserve(hbsz(2+1), 5); /* 5 live regs */ *--hp = r[3]; *--hp = r[4]; *--hp = obj_from_case(572); r[5] = (hendblk(2+1)); hreserve(hbsz(2+1), 6); /* 6 live regs */ *--hp = r[5]; *--hp = r[2]; *--hp = obj_from_case(575); r[5] = (hendblk(2+1)); r[0] = (cx__25read); pc = objptr_from_obj(r[0])[0]; r[1] = r[5]; r[2] = (objptr_from_obj(r[4])[0]); r[3] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 572: /* 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 . iport k */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(573); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (objptr_from_obj(r[2])[0]); goto gs_repl_2Dfrom_2Dport; case 573: /* 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 . iport k */ hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(574); r[4] = (hendblk(2+1)); r[0] = r[4]; r[1] = (cx__234863); goto gs_repl_2Deval_2Dtop_2Dform; case 574: /* 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 . iport k */ r[0] = (cx_close_2Dinput_2Dport); pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; r[2] = (objptr_from_obj(r[2])[0]); rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 575: /* clo 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 fname k */ r[4] = (cxs_syntax_2Dmatch_3F((cx__234869), (r[1]))); if (bool_from_obj(r[4])) { r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[5+0] = (cx_error); pc = objptr_from_obj(r[5+0])[0]; r[5+1] = r[3]; r[5+2] = (cx__234868); r[5+3] = r[2]; r += 5; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; } case 576: /* service-repl k */ assert(rc == 2); r += 1; /* shift reg. wnd */ gs_service_2Drepl: /* k */ r[1+0] = r[0]; r[1+1] = (cx__2Acurrent_2Dinput_2Dport_2A); r += 1; /* shift reg wnd */ rreserve(MAX_HOSTREGS); goto gs_repl_2Dfrom_2Dport; case 577: /* tcode-repl k */ assert(rc == 2); r += 1; /* shift reg. wnd */ gs_tcode_2Drepl: /* k */ { /* define decode */ static obj c[] = { obj_from_objptr(vmcases+3) }; r[1] = obj_from_objptr(c); } hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = obj_from_case(578); r[2] = (hendblk(1+1)); r[3+0] = r[1]; pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[2]; r[3+2] = (cx__234882); r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; case 578: /* clo ek r */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; } r += 1; /* shift reg. wnd */ /* ek r k */ r[0] = r[2]; /* r[1] */ goto gs_execute; case 579: /* debug-repl k */ assert(rc == 2); r += 1; /* shift reg. wnd */ gs_debug_2Drepl: /* k */ hreserve(hbsz(1), 1); /* 1 live regs */ *--hp = obj_from_void(0); r[1] = (hendblk(1)); (void)(objptr_from_obj(r[1])[0] = obj_from_bool(0)); { /* tty-port? */ extern int is_tty_port(obj o); int x = is_tty_port((cx__2Acurrent_2Dinput_2Dport_2A)); r[2] = obj_from_bool(x); } if (bool_from_obj(r[2])) { hreserve(hbsz(0+1), 2); /* 2 live regs */ *--hp = obj_from_case(581); r[2] = (hendblk(0+1)); hreserve(hbsz(2+1), 3); /* 3 live regs */ *--hp = r[1]; *--hp = r[2]; *--hp = obj_from_case(580); r[2] = (hendblk(2+1)); r[3+0] = (cx_call_2Dwith_2Dcurrent_2Dcontinuation); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[0]; r[3+2] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { r[2+0] = r[0]; pc = objptr_from_obj(r[2+0])[0]; r[2+1] = obj_from_ktrap(); r[2+2] = obj_from_void(0); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 3; goto jump; } case 580: /* clo k k */ assert(rc == 3); { obj* p = objptr_from_obj(r[0]); r[1+2] = p[1]; r[1+3] = p[2]; } r += 1; /* shift reg. wnd */ /* k k loop outer-k */ (void)(objptr_from_obj(r[3])[0] = (r[1])); r[4+0] = r[2]; pc = objptr_from_obj(r[4+0])[0]; r[4+1] = r[0]; r += 4; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 2; goto jump; case 581: /* clo k */ assert(rc == 2); r += 1; /* shift reg. wnd */ /* k */ (void)(oportputcircular((cx__234909), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); (void)(oportflush((cx__2Acurrent_2Doutput_2Dport_2A))); hreserve(hbsz(0+1), 1); /* 1 live regs */ *--hp = obj_from_case(581); r[1] = (hendblk(0+1)); hreserve(hbsz(2+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = r[1]; *--hp = obj_from_case(582); r[1] = (hendblk(2+1)); r[2+0] = (cx__25read); pc = objptr_from_obj(r[2+0])[0]; r[2+1] = r[1]; r[2+2] = (cx__2Acurrent_2Dinput_2Dport_2A); r[2+3] = obj_from_bool(0); r += 2; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 4; goto jump; case 582: /* clo 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 */ if ((iseof((r[1])))) { r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_bool(0); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if ((((r[1]) == (mksymbol(internsym("?")))) && (1))) { (void)(oportputcircular((cx__234903), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; rreserve(MAX_HOSTREGS); rc = 2; goto jump; } else { if ((((r[1]) == (mksymbol(internsym("r")))) && (1))) { hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(583); r[4] = (hendblk(2+1)); r[0] = r[4]; goto gs_tcode_2Drepl; } else { if ((((r[1]) == (mksymbol(internsym("a")))) && (1))) { r[0] = r[3]; pc = objptr_from_obj(r[0])[0]; r[1] = obj_from_ktrap(); r[2] = obj_from_void(exit(1)); rreserve(MAX_HOSTREGS); rc = 3; goto jump; } else { if ((((r[1]) == (mksymbol(internsym("s")))) && (1))) { hreserve(hbsz(2+1), 4); /* 4 live regs */ *--hp = r[3]; *--hp = r[2]; *--hp = obj_from_case(584); r[4] = (hendblk(2+1)); r[0] = r[4]; goto gs_service_2Drepl; } else { (void)(oportputcircular((cx__234888), (cx__2Acurrent_2Doutput_2Dport_2A), 1)); r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; rreserve(MAX_HOSTREGS); rc = 2; goto jump; } } } } } case 583: /* clo 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] = obj_from_bool((r[1]) == obj_from_bool(1)); if (bool_from_obj(r[4])) { r[0] = r[3]; 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[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; rreserve(MAX_HOSTREGS); rc = 2; goto jump; } case 584: /* 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 . loop k */ r[0] = r[2]; pc = objptr_from_obj(r[0])[0]; r[1] = r[3]; rreserve(MAX_HOSTREGS); rc = 2; goto jump; case 585: /* main k argv */ assert(rc == 3); r += 1; /* shift reg. wnd */ /* k argv */ hreserve(hbsz(1+1), 2); /* 2 live regs */ *--hp = r[0]; *--hp = obj_from_case(586); r[2] = (hendblk(1+1)); r[3+0] = (cx_command_2Dline); pc = objptr_from_obj(r[3+0])[0]; r[3+1] = r[2]; r += 3; /* shift reg wnd */ rreserve(MAX_HOSTREGS); rc = 2; goto jump; case 586: /* 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] = (cdr((r[1]))); if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234957), (r[3])))) { r[4] = (cdr((r[3]))); r[4] = (car((r[4]))); r[0] = r[2]; r[1] = r[4]; goto gs_process_2Dfile; } else { if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234949), (r[3])))) { r[4] = (cdr((r[3]))); r[4] = (car((r[4]))); r[0] = r[2]; r[1] = r[4]; goto gs_repl_2Dfile; } else { if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234941), (r[3])))) { r[4] = (cdr((r[3]))); r[4] = (car((r[4]))); r[0] = r[2]; r[1] = r[4]; goto gs_benchmark_2Dfile; } else { if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234935), (r[3])))) { r[0] = r[2]; goto gs_run_2Dtests; } else { if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234932), (r[3])))) { cx__2Averbose_2A = obj_from_bool(1); r[0] = r[2]; goto gs_service_2Drepl; } else { if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234928), (r[3])))) { r[0] = r[2]; goto gs_service_2Drepl; } else { hreserve(hbsz(1+1), 4); /* 4 live regs */ *--hp = r[2]; *--hp = obj_from_case(587); r[4] = (hendblk(1+1)); r[0] = r[4]; goto gs_tcode_2Drepl; } } } } } } case 587: /* 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] = obj_from_bool((r[1]) == obj_from_bool(1)); if (bool_from_obj(r[3])) { 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]; goto gs_debug_2Drepl; } default: /* inter-host call */ cxg_hp = hp; cxm_rgc(r, MAX_HOSTREGS); cxg_rc = rc; return pc; } } /* module load */ void MODULE(void) { obj pc; if (!root.next) { root.next = cxg_rootp; cxg_rootp = &root; LOAD(); pc = obj_from_case(0); cxg_rc = 0; while (pc) pc = (*(cxhost_t*)pc)(pc); assert(cxg_rc == 2); } } /* basic runtime */ #define HEAP_SIZE 131072 /* 2^17 */ #define REGS_SIZE 4092 obj *cxg_heap = NULL; cxoint_t cxg_hmask = 0; obj *cxg_hp = NULL; static cxroot_t cxg_root = { 0, NULL, NULL }; cxroot_t *cxg_rootp = &cxg_root; obj *cxg_regs = NULL, *cxg_rend = NULL; int cxg_rc = 0; char **cxg_argv = NULL; static obj *cxg_heap2 = NULL; static size_t cxg_hsize = 0; static cxoint_t cxg_hmask2 = 0; static int cxg_gccount = 0, cxg_bumpcount = 0; static obj *toheap2(obj* p, obj *hp, obj *h1, cxoint_t m1, obj *h2, cxoint_t m2) { obj o = *p, *op, fo, *fop; if (((char*)(o) - (char*)h1) & m1) return hp; fo = (op = objptr_from_obj(o))[-1]; assert(fo); if (notaptr(fo)) { fop = op + size_from_obj(fo); while (fop >= op) *--hp = *--fop; *p = *fop = obj_from_objptr(hp+1); } else if (((char*)(fo) - (char*)h2) & m2) { *--hp = *op--; *--hp = *op; *p = *op = obj_from_objptr(hp+1); } else *p = fo; return hp; } static void finalize(obj *hp1, obj *he1, obj *h2, cxoint_t m2) { while (hp1 < he1) { obj fo = *hp1++; assert(fo); if (notaptr(fo)) hp1 += size_from_obj(fo); else if (((char*)(fo) - (char*)h2) & m2) ((cxtype_t*)fo)->free((void*)*hp1++); else if (notaptr(fo = objptr_from_obj(fo)[-1])) hp1 += size_from_obj(fo); else ++hp1; } assert(hp1 == he1); } static obj *relocate(cxroot_t *pr, obj *regs, obj *regp, obj *he2, obj *he1, obj *hp, obj *h1, cxoint_t m1, obj *h2, cxoint_t m2) { obj *p, *hp1 = hp; hp = he2; for (p = regs; p < regp; ++p) hp = toheap2(p, hp, h1, m1, h2, m2); for (; pr; pr = pr->next) { obj **pp = pr->globv; int c = pr->globc; while (c-- > 0) hp = toheap2(*pp++, hp, h1, m1, h2, m2); } for (p = he2; p > hp; --p) hp = toheap2(p-1, hp, h1, m1, h2, m2); if (he1) finalize(hp1, he1, h2, m2); return hp; } obj *cxm_hgc(obj *regs, obj *regp, obj *hp, size_t needs) { obj *h1 = cxg_heap, *h2 = cxg_heap2; cxoint_t m1 = cxg_hmask, m2 = cxg_hmask2; size_t hs = cxg_hsize; cxroot_t *pr = cxg_rootp; obj *h = h1, *he1 = h1 + hs, *he2 = h2 + hs; ++cxg_gccount; if (h1) hp = relocate(pr, regs, regp, he2, he1, hp, h1, m1, h2, m2), needs += (h2 + hs - hp)*2; /* make heap half empty */ else hp = h2 + hs; if (hs < needs) { size_t s = HEAP_SIZE; while (s < needs) s *= 2; m2 = 1 | ~(s*sizeof(obj)-1); if (!(h = realloc(h1, s*sizeof(obj)))) { perror("alloc[h]"); exit(2); } h1 = h2; h2 = h; he2 = h2 + s; he1 = 0; /* no finalize flag */ if (h1) hp = relocate(pr, regs, regp, he2, he1, hp, h1, m1, h2, m2); else hp = h2 + s; if (!(h = realloc(h1, s*sizeof(obj)))) { perror("alloc[h]"); exit(2); } hs = s; m1 = m2; ++cxg_bumpcount; } h1 = h2; h2 = h; cxg_heap = h1; cxg_hmask = m1; cxg_heap2 = h2; cxg_hmask2 = m2; cxg_hsize = hs; return cxg_hp = hp; } obj *cxm_rgc(obj *regs, size_t needs) { obj *p = cxg_regs; assert(needs > 0); if (!p || cxg_rend < p + needs) { size_t roff = regs ? regs - p : 0; if (!(p = realloc(p, needs*sizeof(obj)))) { perror("alloc[r]"); exit(2); } cxg_regs = p; cxg_rend = p + needs; regs = p + roff; } if (regs && regs > p) while (needs--) *p++ = *regs++; return cxg_regs; } void cxm_check(int x, char *msg) { if (!x) { perror(msg); exit(2); } } void *cxm_cknull(void *p, char *msg) { cxm_check(p != NULL, msg); return p; } /* os entry point */ int main(int argc, char **argv) { int res; obj pc; obj retcl[1] = { 0 }; cxm_rgc(NULL, REGS_SIZE); cxg_argv = argv; MODULE(); cxg_regs[0] = cx_main; cxg_regs[1] = (obj)retcl; cxg_regs[2] = (obj)argv; cxg_rc = 3; pc = objptr_from_obj(cx_main)[0]; while (pc) pc = (*(cxhost_t*)pc)(pc); assert(cxg_rc == 3); res = (cxg_regs[2] != 0); /* fprintf(stderr, "%d collections, %d reallocs\n", cxg_gccount, cxg_bumpcount); */ return res; }