2023-03-04 19:44:37 +01:00
|
|
|
/* k.sf */
|
2023-02-28 06:31:08 +01:00
|
|
|
/* Generated by #F $Id$ */
|
|
|
|
|
#ifdef PROFILE
|
2023-03-04 19:44:37 +01:00
|
|
|
#define host host_module_k
|
2023-02-28 06:31:08 +01:00
|
|
|
#endif
|
2023-03-04 19:44:37 +01:00
|
|
|
#define MODULE module_k
|
2023-03-04 06:07:52 +01:00
|
|
|
#define LOAD() module_n();
|
|
|
|
|
extern void module_n(void); /* n.sf */
|
2023-02-28 06:31:08 +01:00
|
|
|
|
|
|
|
|
/* standard includes */
|
|
|
|
|
#include <stdio.h>
|
|
|
|
|
#include <stddef.h>
|
|
|
|
|
#include <stdlib.h>
|
|
|
|
|
#include <assert.h>
|
|
|
|
|
/* extra includes */
|
|
|
|
|
#include <math.h>
|
|
|
|
|
#include <errno.h>
|
|
|
|
|
#include <ctype.h>
|
|
|
|
|
#include <string.h>
|
|
|
|
|
#include <time.h>
|
|
|
|
|
|
|
|
|
|
/* standard definitions */
|
|
|
|
|
|
|
|
|
|
typedef ptrdiff_t obj; /* pointers are this size, lower bit zero */
|
|
|
|
|
typedef ptrdiff_t cxoint_t; /* same thing, used as integer */
|
|
|
|
|
typedef struct { /* type descriptor */
|
|
|
|
|
const char *tname; /* name (debug) */
|
|
|
|
|
void (*free)(void*); /* deallocator */
|
|
|
|
|
} cxtype_t;
|
|
|
|
|
|
|
|
|
|
#define notobjptr(o) (((char*)(o) - (char*)cxg_heap) & cxg_hmask)
|
|
|
|
|
#define isobjptr(o) (!notobjptr(o))
|
|
|
|
|
#define notaptr(o) ((o) & 1)
|
|
|
|
|
#define isaptr(o) (!notaptr(o))
|
|
|
|
|
|
|
|
|
|
#define obj_from_obj(o) (o)
|
|
|
|
|
#define obj_from_objptr(p) ((obj)(p))
|
|
|
|
|
#define obj_from_size(n) (((cxoint_t)(n) << 1) | 1)
|
|
|
|
|
|
|
|
|
|
#define objptr_from_objptr(p) (p)
|
|
|
|
|
#define objptr_from_obj(o) ((obj*)(o))
|
|
|
|
|
|
|
|
|
|
#define size_from_obj(o) ((int)((o) >> 1))
|
|
|
|
|
|
|
|
|
|
#define obj_from_case(n) obj_from_objptr(cases+(n))
|
|
|
|
|
#define case_from_obj(o) (objptr_from_obj(o)-cases)
|
|
|
|
|
#define obj_from_ktrap() obj_from_size(0x5D56F806)
|
|
|
|
|
#define obj_from_void(v) ((void)(v), obj_from_size(0x6F56DF77))
|
|
|
|
|
|
|
|
|
|
#define bool_from_obj(o) (o)
|
|
|
|
|
#define bool_from_bool(b) (b)
|
|
|
|
|
#define bool_from_size(s) (s)
|
|
|
|
|
|
|
|
|
|
#define void_from_void(v) (void)(v)
|
|
|
|
|
#define void_from_obj(o) (void)(o)
|
|
|
|
|
|
|
|
|
|
#define rreserve(m) if (r + (m) >= cxg_rend) r = cxm_rgc(r, m)
|
|
|
|
|
#define hpushptr(p, pt, l) (hreserve(2, l), *--hp = (obj)(p), *--hp = (obj)(pt), (obj)(hp+1))
|
|
|
|
|
#define hbsz(s) ((s) + 1) /* 1 extra word to store block size */
|
|
|
|
|
#define hreserve(n, l) ((hp < cxg_heap + (n)) ? hp = cxm_hgc(r, r+(l), hp, n) : hp)
|
|
|
|
|
#define hendblk(n) (*--hp = obj_from_size(n), (obj)(hp+1))
|
|
|
|
|
#define hblklen(p) size_from_obj(((obj*)(p))[-1])
|
|
|
|
|
#define hblkref(p, i) (((obj*)(p))[i])
|
|
|
|
|
|
|
|
|
|
typedef obj (*cxhost_t)(obj);
|
|
|
|
|
typedef struct cxroot_tag {
|
|
|
|
|
int globc; obj **globv;
|
|
|
|
|
struct cxroot_tag *next;
|
|
|
|
|
} cxroot_t;
|
|
|
|
|
|
|
|
|
|
extern obj *cxg_heap;
|
|
|
|
|
extern obj *cxg_hp;
|
|
|
|
|
extern cxoint_t cxg_hmask;
|
|
|
|
|
extern cxroot_t *cxg_rootp;
|
|
|
|
|
extern obj *cxm_rgc(obj *regs, size_t needs);
|
|
|
|
|
extern obj *cxm_hgc(obj *regs, obj *regp, obj *hp, size_t needs);
|
|
|
|
|
extern obj *cxg_regs, *cxg_rend;
|
|
|
|
|
extern void cxm_check(int x, char *msg);
|
|
|
|
|
extern void *cxm_cknull(void *p, char *msg);
|
|
|
|
|
extern int cxg_rc;
|
|
|
|
|
extern char **cxg_argv;
|
|
|
|
|
|
|
|
|
|
/* extra definitions */
|
|
|
|
|
/* basic object representation */
|
|
|
|
|
#define isimm(o, t) (((o) & 0xf) == (((t) << 1) | 1))
|
|
|
|
|
#define isimm2(o1, o2, t) (((((o1) & 0xf) << 4) | ((o2) & 0xf)) == (((((t) << 1) | 1) << 4) | (((t) << 1) | 1)))
|
|
|
|
|
#define getimmu_unchecked(o) (long)(((o) >> 4) & 0xfffffff)
|
|
|
|
|
#define getimms_unchecked(o) (long)(((((o) >> 4) & 0xfffffff) ^ 0x8000000) - 0x8000000)
|
|
|
|
|
#ifdef NDEBUG
|
|
|
|
|
#define getimmu(o, t) getimmu_unchecked(o)
|
|
|
|
|
#define getimms(o, t) getimms_unchecked(o)
|
|
|
|
|
#else
|
|
|
|
|
extern long getimmu(obj o, int t);
|
|
|
|
|
extern long getimms(obj o, int t);
|
|
|
|
|
#endif
|
|
|
|
|
#define mkimm(o, t) (obj)((((o) & 0xfffffff) << 4) | ((t) << 1) | 1)
|
|
|
|
|
#ifdef NDEBUG
|
|
|
|
|
static int isnative(obj o, cxtype_t *tp)
|
|
|
|
|
{ return isobjptr(o) && objptr_from_obj(o)[-1] == (obj)tp; }
|
|
|
|
|
#define getnative(o, t) ((void*)(*objptr_from_obj(o)))
|
|
|
|
|
#else
|
|
|
|
|
extern int isnative(obj o, cxtype_t *tp);
|
|
|
|
|
extern void *getnative(obj o, cxtype_t *tp);
|
|
|
|
|
#endif
|
|
|
|
|
extern int istagged(obj o, int t);
|
|
|
|
|
#ifdef NDEBUG
|
|
|
|
|
#define cktagged(o, t) (o)
|
|
|
|
|
#define taggedlen(o, t) (hblklen(o)-1)
|
|
|
|
|
#define taggedref(o, t, i) (&hblkref(o, (i)+1))
|
|
|
|
|
#else
|
|
|
|
|
extern obj cktagged(obj o, int t);
|
|
|
|
|
extern int taggedlen(obj o, int t);
|
|
|
|
|
extern obj* taggedref(obj o, int t, int i);
|
|
|
|
|
#endif
|
|
|
|
|
/* booleans */
|
|
|
|
|
#define TRUE_ITAG 0
|
|
|
|
|
typedef int bool_t;
|
|
|
|
|
#define is_bool_obj(o) (!((o) & ~(obj)1))
|
|
|
|
|
#define is_bool_bool(b) ((void)(b), 1)
|
|
|
|
|
#define void_from_bool(b) (void)(b)
|
|
|
|
|
#define obj_from_bool(b) ((b) ? mkimm(0, TRUE_ITAG) : 0)
|
|
|
|
|
/* numbers */
|
|
|
|
|
#define FIXNUM_BIT 28
|
|
|
|
|
#define FIXNUM_MIN -134217728
|
|
|
|
|
#define FIXNUM_MAX 134217727
|
|
|
|
|
#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 */
|
|
|
|
|
#define FIXNUM_ITAG 1
|
|
|
|
|
typedef long fixnum_t;
|
|
|
|
|
#define is_fixnum_obj(o) (isimm(o, FIXNUM_ITAG))
|
|
|
|
|
#define are_fixnum_objs(o1, o2) (isimm2((o1), (o2), FIXNUM_ITAG))
|
|
|
|
|
#define get_fixnum_unchecked(o) (getimms_unchecked(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) (getimms(o, FIXNUM_ITAG))
|
|
|
|
|
#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) mkimm((fixnum_t)(i), FIXNUM_ITAG)
|
|
|
|
|
/* flonums */
|
|
|
|
|
extern cxtype_t *FLONUM_NTAG;
|
|
|
|
|
typedef double flonum_t;
|
|
|
|
|
#define is_flonum_obj(o) (isnative(o, FLONUM_NTAG))
|
|
|
|
|
#define is_flonum_flonum(f) ((void)(f), 1)
|
|
|
|
|
#define 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);
|
|
|
|
|
/* 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)getimms(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 *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 *allocbytevector(int n, int c);
|
|
|
|
|
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 RECORD_BTAG 4
|
|
|
|
|
#define isrecord(o) istagged(o, RECORD_BTAG)
|
|
|
|
|
#define recordrtd(r) *taggedref(r, RECORD_BTAG, 0)
|
|
|
|
|
#define recordref(r, i) *taggedref(r, RECORD_BTAG, (i)+1)
|
|
|
|
|
#define recordlen(r) (taggedlen(r, RECORD_BTAG)-1)
|
|
|
|
|
/* 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(-1, EOF_ITAG)
|
|
|
|
|
#define iseof(o) ((o) == mkimm(-1, 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 */
|
2023-03-07 19:11:46 +01:00
|
|
|
extern obj cx__25residual_2Dcadr; /* %residual-cadr */
|
2023-02-28 06:31:08 +01:00
|
|
|
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_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_read_2Ddatum; /* read-datum */
|
2023-03-03 01:27:09 +01:00
|
|
|
extern obj cx_syntax_2Drules_2A; /* syntax-rules* */
|
2023-02-28 06:31:08 +01:00
|
|
|
extern obj cx_write_2Dserialized_2Dsexp; /* write-serialized-sexp */
|
|
|
|
|
obj cx__25residual_2Dbinding_2Dset_2Dval_21; /* %residual-binding-set-val! */
|
|
|
|
|
obj cx__25residual_2Dbinding_2Dspecial_3F; /* %residual-binding-special? */
|
|
|
|
|
obj cx__25residual_2Dbinding_2Dsym; /* %residual-binding-sym */
|
|
|
|
|
obj cx__25residual_2Dbinding_2Dval; /* %residual-binding-val */
|
2023-03-01 23:36:24 +01:00
|
|
|
obj cx__25residual_2Dbinding_3F; /* %residual-binding? */
|
|
|
|
|
obj cx__25residual_2Dfind_2Dtop_2Dbinding; /* %residual-find-top-binding */
|
2023-02-28 06:31:08 +01:00
|
|
|
obj cx__25residual_2Dmake_2Dbinding; /* %residual-make-binding */
|
|
|
|
|
obj cx__25residual_2Dval_2Dcore_3F; /* %residual-val-core? */
|
|
|
|
|
obj cx__25residual_2Dval_2Dspecial_3F; /* %residual-val-special? */
|
|
|
|
|
obj cx__2Aglobals_2A; /* *globals* */
|
|
|
|
|
obj cx__2Ahide_2Drefs_2A; /* *hide-refs* */
|
2023-03-03 01:27:09 +01:00
|
|
|
obj cx__2Atransformers_2A; /* *transformers* */
|
2023-03-08 19:03:39 +01:00
|
|
|
obj cx__2Averbose_2A; /* *verbose* */
|
2023-02-28 06:31:08 +01:00
|
|
|
obj cx_add_2Dbinding; /* add-binding */
|
|
|
|
|
obj cx_add_2Dvar; /* add-var */
|
2023-03-12 21:54:44 +01:00
|
|
|
obj cx_andmap; /* andmap */
|
2023-03-06 21:53:37 +01:00
|
|
|
obj cx_callmv_2Dadapter_2Dclosure; /* callmv-adapter-closure */
|
2023-02-28 06:31:08 +01:00
|
|
|
obj cx_codegen; /* codegen */
|
|
|
|
|
obj cx_compile_2Dto_2Dstring; /* compile-to-string */
|
2023-03-11 07:50:00 +01:00
|
|
|
obj cx_continuation_2Dadapter_2Dcode; /* continuation-adapter-code */
|
2023-02-28 06:31:08 +01:00
|
|
|
obj cx_decode; /* decode */
|
|
|
|
|
obj cx_decode_2Dsexp; /* decode-sexp */
|
|
|
|
|
obj cx_den_2D_3Esym; /* den->sym */
|
|
|
|
|
obj cx_denotation_2Dof_2Ddefault_2Dellipsis; /* denotation-of-default-ellipsis */
|
|
|
|
|
obj cx_display_2Dcode; /* display-code */
|
|
|
|
|
obj cx_empty_2Dxenv; /* empty-xenv */
|
|
|
|
|
obj cx_encode_2Dintegrable; /* encode-integrable */
|
|
|
|
|
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_2Dintegrable_2Dencoding; /* find-integrable-encoding */
|
|
|
|
|
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_global_2Dlocation; /* global-location */
|
|
|
|
|
obj cx_id_2D_3Esym; /* id->sym */
|
|
|
|
|
obj cx_id_3F; /* id? */
|
|
|
|
|
obj cx_idslist_2Dreq_2Dcount; /* idslist-req-count */
|
2023-03-12 21:54:44 +01:00
|
|
|
obj cx_idslist_3F; /* idslist? */
|
2023-03-03 19:18:00 +01:00
|
|
|
obj cx_initialize_2Dmodules; /* initialize-modules */
|
2023-02-28 06:31:08 +01:00
|
|
|
obj cx_install_2Dglobal_2Dlambdas; /* install-global-lambdas */
|
|
|
|
|
obj cx_install_2Dtransformer_21; /* install-transformer! */
|
2023-03-01 23:36:24 +01:00
|
|
|
obj cx_install_2Dtransformer_2Drules_21; /* install-transformer-rules! */
|
2023-03-19 00:13:38 +01:00
|
|
|
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? */
|
2023-02-28 06:31:08 +01:00
|
|
|
obj cx_list_2Ddiff; /* list-diff */
|
2023-03-11 07:50:00 +01:00
|
|
|
obj cx_list1_2B_3F; /* list1+? */
|
2023-03-04 06:07:52 +01:00
|
|
|
obj cx_list1_3F; /* list1? */
|
2023-03-11 07:50:00 +01:00
|
|
|
obj cx_list2_2B_3F; /* list2+? */
|
2023-03-04 06:07:52 +01:00
|
|
|
obj cx_list2_3F; /* list2? */
|
2023-03-19 00:13:38 +01:00
|
|
|
obj cx_lookup_2Dintegrable; /* lookup-integrable */
|
2023-02-28 06:31:08 +01:00
|
|
|
obj cx_main; /* main */
|
|
|
|
|
obj cx_make_2Dclosure; /* make-closure */
|
|
|
|
|
obj cx_module_2Dname; /* module-name */
|
|
|
|
|
obj cx_new_2Did; /* new-id */
|
2023-03-07 19:11:46 +01:00
|
|
|
obj cx_normalize_2Darity; /* normalize-arity */
|
2023-02-28 06:31:08 +01:00
|
|
|
obj cx_old_2Dden; /* old-den */
|
|
|
|
|
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_2Ddefine; /* process-define */
|
|
|
|
|
obj cx_process_2Ddefine_2Dsyntax; /* process-define-syntax */
|
|
|
|
|
obj cx_process_2Dfile; /* process-file */
|
|
|
|
|
obj cx_process_2Dstatement; /* process-statement */
|
|
|
|
|
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_2Dfrom_2Dport; /* repl-from-port */
|
|
|
|
|
obj cx_repl_2Dread; /* repl-read */
|
|
|
|
|
obj cx_run_2Drepl; /* run-repl */
|
|
|
|
|
obj cx_run_2Dtests; /* run-tests */
|
2023-03-04 06:07:52 +01:00
|
|
|
obj cx_scan_2Dtop_2Dform; /* scan-top-form */
|
2023-02-28 06:31:08 +01:00
|
|
|
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_test1; /* test1 */
|
|
|
|
|
obj cx_test2; /* test2 */
|
|
|
|
|
obj cx_test3; /* test3 */
|
|
|
|
|
obj cx_test4; /* test4 */
|
|
|
|
|
obj cx_test5; /* test5 */
|
2023-03-03 01:27:09 +01:00
|
|
|
obj cx_top_2Dtransformer_2Denv; /* top-transformer-env */
|
2023-02-28 06:31:08 +01:00
|
|
|
obj cx_transform; /* transform */
|
|
|
|
|
obj cx_write_2Dserialized_2Darg; /* write-serialized-arg */
|
|
|
|
|
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_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 */
|
2023-03-19 00:13:38 +01:00
|
|
|
obj cx_xform_2Dintegrable; /* xform-integrable */
|
2023-02-28 06:31:08 +01:00
|
|
|
obj cx_xform_2Dlabels; /* xform-labels */
|
|
|
|
|
obj cx_xform_2Dlambda; /* xform-lambda */
|
2023-03-07 19:11:46 +01:00
|
|
|
obj cx_xform_2Dlambda_2A; /* xform-lambda* */
|
2023-03-10 23:30:41 +01:00
|
|
|
obj cx_xform_2Dletcc; /* xform-letcc */
|
2023-02-28 06:31:08 +01:00
|
|
|
obj cx_xform_2Dquote; /* xform-quote */
|
|
|
|
|
obj cx_xform_2Dref; /* xform-ref */
|
|
|
|
|
obj cx_xform_2Dset_21; /* xform-set! */
|
2023-03-12 21:54:44 +01:00
|
|
|
obj cx_xform_2Dset_26; /* xform-set& */
|
2023-03-10 23:30:41 +01:00
|
|
|
obj cx_xform_2Dwithcc; /* xform-withcc */
|
2023-03-19 00:13:38 +01:00
|
|
|
static obj cx__231011; /* constant #1011 */
|
|
|
|
|
static obj cx__231041; /* constant #1041 */
|
|
|
|
|
static obj cx__231051; /* constant #1051 */
|
|
|
|
|
static obj cx__231490; /* constant #1490 */
|
2023-03-18 21:07:10 +01:00
|
|
|
static obj cx__231550; /* constant #1550 */
|
2023-03-19 00:13:38 +01:00
|
|
|
static obj cx__231591; /* constant #1591 */
|
|
|
|
|
static obj cx__231623; /* constant #1623 */
|
|
|
|
|
static obj cx__231681; /* constant #1681 */
|
|
|
|
|
static obj cx__231713; /* constant #1713 */
|
|
|
|
|
static obj cx__231793; /* constant #1793 */
|
|
|
|
|
static obj cx__231831; /* constant #1831 */
|
|
|
|
|
static obj cx__231871; /* constant #1871 */
|
|
|
|
|
static obj cx__231923; /* constant #1923 */
|
|
|
|
|
static obj cx__232030; /* constant #2030 */
|
|
|
|
|
static obj cx__232036; /* constant #2036 */
|
|
|
|
|
static obj cx__232071; /* constant #2071 */
|
|
|
|
|
static obj cx__232075; /* constant #2075 */
|
|
|
|
|
static obj cx__232119; /* constant #2119 */
|
|
|
|
|
static obj cx__232185; /* constant #2185 */
|
2023-03-18 21:07:10 +01:00
|
|
|
static obj cx__232384; /* constant #2384 */
|
2023-03-19 00:13:38 +01:00
|
|
|
static obj cx__232392; /* constant #2392 */
|
|
|
|
|
static obj cx__232412; /* constant #2412 */
|
|
|
|
|
static obj cx__232436; /* constant #2436 */
|
|
|
|
|
static obj cx__232515; /* constant #2515 */
|
|
|
|
|
static obj cx__232596; /* constant #2596 */
|
2023-03-19 19:52:49 +01:00
|
|
|
static obj cx__232982; /* constant #2982 */
|
2023-03-20 04:31:28 +01:00
|
|
|
static obj cx__233129; /* constant #3129 */
|
|
|
|
|
static obj cx__233294; /* constant #3294 */
|
|
|
|
|
static obj cx__233424; /* constant #3424 */
|
|
|
|
|
static obj cx__233455; /* constant #3455 */
|
|
|
|
|
static obj cx__233460; /* constant #3460 */
|
2023-03-19 19:52:49 +01:00
|
|
|
static obj cx__233464; /* constant #3464 */
|
2023-03-20 04:31:28 +01:00
|
|
|
static obj cx__233500; /* constant #3500 */
|
|
|
|
|
static obj cx__233526; /* constant #3526 */
|
|
|
|
|
static obj cx__233537; /* constant #3537 */
|
|
|
|
|
static obj cx__233588; /* constant #3588 */
|
|
|
|
|
static obj cx__233592; /* constant #3592 */
|
|
|
|
|
static obj cx__233702; /* constant #3702 */
|
|
|
|
|
static obj cx__233744; /* constant #3744 */
|
|
|
|
|
static obj cx__233752; /* constant #3752 */
|
|
|
|
|
static obj cx__233753; /* constant #3753 */
|
|
|
|
|
static obj cx__233754; /* constant #3754 */
|
|
|
|
|
static obj cx__233755; /* constant #3755 */
|
|
|
|
|
static obj cx__233756; /* constant #3756 */
|
|
|
|
|
static obj cx__233778; /* constant #3778 */
|
|
|
|
|
static obj cx__233780; /* constant #3780 */
|
|
|
|
|
static obj cx__233784; /* constant #3784 */
|
|
|
|
|
static obj cx__234054; /* constant #4054 */
|
|
|
|
|
static obj cx__234256; /* constant #4256 */
|
|
|
|
|
static obj cx__234658; /* constant #4658 */
|
2023-03-19 00:13:38 +01:00
|
|
|
static obj cx__23469; /* constant #469 */
|
2023-03-20 04:31:28 +01:00
|
|
|
static obj cx__234788; /* constant #4788 */
|
2023-03-19 00:13:38 +01:00
|
|
|
static obj cx__23484; /* constant #484 */
|
2023-03-12 21:54:44 +01:00
|
|
|
static obj cx__23506; /* constant #506 */
|
2023-03-19 00:13:38 +01:00
|
|
|
static obj cx__23512; /* constant #512 */
|
2023-03-20 04:31:28 +01:00
|
|
|
static obj cx__235172; /* constant #5172 */
|
|
|
|
|
static obj cx__235196; /* constant #5196 */
|
|
|
|
|
static obj cx__235197; /* constant #5197 */
|
|
|
|
|
static obj cx__235250; /* constant #5250 */
|
|
|
|
|
static obj cx__235257; /* constant #5257 */
|
|
|
|
|
static obj cx__235264; /* constant #5264 */
|
|
|
|
|
static obj cx__235318; /* constant #5318 */
|
|
|
|
|
static obj cx__235338; /* constant #5338 */
|
|
|
|
|
static obj cx__235341; /* constant #5341 */
|
|
|
|
|
static obj cx__235347; /* constant #5347 */
|
2023-03-19 00:13:38 +01:00
|
|
|
static obj cx__23535; /* constant #535 */
|
|
|
|
|
static obj cx__23558; /* constant #558 */
|
|
|
|
|
static obj cx__23574; /* constant #574 */
|
|
|
|
|
static obj cx__23584; /* constant #584 */
|
|
|
|
|
static obj cx__23605; /* constant #605 */
|
|
|
|
|
static obj cx__23738; /* constant #738 */
|
|
|
|
|
static obj cx__23759; /* constant #759 */
|
|
|
|
|
static obj cx__23803; /* constant #803 */
|
|
|
|
|
static obj cx__23805; /* constant #805 */
|
|
|
|
|
static obj cx__23842; /* constant #842 */
|
|
|
|
|
static obj cx__23856; /* constant #856 */
|
|
|
|
|
static obj cx__23906; /* constant #906 */
|
2023-02-28 06:31:08 +01:00
|
|
|
static obj cx__2398; /* constant #98 */
|
|
|
|
|
|
|
|
|
|
/* 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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj v5771_tmp = (cdr((v1_s)));
|
|
|
|
|
obj v5770_tmp = (v2_x);
|
2023-02-28 06:31:08 +01:00
|
|
|
/* tail call */
|
2023-03-20 04:31:28 +01:00
|
|
|
v2_x = (v5770_tmp);
|
|
|
|
|
v1_s = (v5771_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj v5764_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* let */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj v5768_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* let */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj v5769_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ static obj o = 0; static char s[] = { 36, 0 };
|
2023-03-20 04:31:28 +01:00
|
|
|
v5769_tmp = (o ? o : (o = mksymbol(internsym(s)))); };
|
|
|
|
|
v5768_tmp = obj_from_bool((car((v41_pat))) == (v5769_tmp));
|
2023-02-28 06:31:08 +01:00
|
|
|
}
|
2023-03-20 04:31:28 +01:00
|
|
|
v5764_tmp = (bool_from_obj(v5768_tmp) ? ((ispair((cdr((v41_pat))))) ? obj_from_bool(isnull((cdr((cdr((v41_pat))))))) : obj_from_bool(0)) : obj_from_bool(0));
|
2023-02-28 06:31:08 +01:00
|
|
|
}
|
2023-03-20 04:31:28 +01:00
|
|
|
if (bool_from_obj(v5764_tmp)) {
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj v5767_tmp = (cdr((v58_lst)));
|
2023-02-28 06:31:08 +01:00
|
|
|
/* tail call */
|
2023-03-20 04:31:28 +01:00
|
|
|
v58_lst = (v5767_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj v5766_tmp = (cdr((v40_exp)));
|
|
|
|
|
obj v5765_tmp = (cdr((v41_pat)));
|
2023-02-28 06:31:08 +01:00
|
|
|
/* tail call */
|
2023-03-20 04:31:28 +01:00
|
|
|
v41_pat = (v5765_tmp);
|
|
|
|
|
v40_exp = (v5766_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj v5763_tmp = obj_from_fixnum(+0);
|
|
|
|
|
obj v5762_tmp = (v116_l);
|
2023-02-28 06:31:08 +01:00
|
|
|
/* tail call */
|
2023-03-20 04:31:28 +01:00
|
|
|
v120_l = (v5762_tmp);
|
|
|
|
|
v119_n = (v5763_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj v5761_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v119_n), (+1)));
|
|
|
|
|
obj v5760_tmp = (cdr((v120_l)));
|
2023-02-28 06:31:08 +01:00
|
|
|
/* tail call */
|
2023-03-20 04:31:28 +01:00
|
|
|
v120_l = (v5760_tmp);
|
|
|
|
|
v119_n = (v5761_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
goto s_loop;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-04 06:07:52 +01:00
|
|
|
/* list1? */
|
2023-03-19 00:13:38 +01:00
|
|
|
static obj cxs_list1_3F(obj v163_x)
|
2023-03-04 06:07:52 +01:00
|
|
|
{
|
2023-03-19 00:13:38 +01:00
|
|
|
return ((ispair((v163_x))) ? obj_from_bool(isnull((cdr((v163_x))))) : obj_from_bool(0));
|
2023-03-04 06:07:52 +01:00
|
|
|
}
|
|
|
|
|
|
2023-03-11 07:50:00 +01:00
|
|
|
/* list1+? */
|
2023-03-19 00:13:38 +01:00
|
|
|
static obj cxs_list1_2B_3F(obj v168_x)
|
2023-03-04 06:07:52 +01:00
|
|
|
{
|
2023-03-19 00:13:38 +01:00
|
|
|
return ((ispair((v168_x))) ? obj_from_bool(islist((cdr((v168_x))))) : obj_from_bool(0));
|
2023-03-04 06:07:52 +01:00
|
|
|
}
|
|
|
|
|
|
2023-03-11 07:50:00 +01:00
|
|
|
/* list2? */
|
2023-03-19 00:13:38 +01:00
|
|
|
static obj cxs_list2_3F(obj v173_x)
|
2023-03-04 06:07:52 +01:00
|
|
|
{
|
2023-03-19 00:13:38 +01:00
|
|
|
return ((ispair((v173_x))) ? (cxs_list1_3F((cdr((v173_x))))) : obj_from_bool(0));
|
2023-03-04 06:07:52 +01:00
|
|
|
}
|
|
|
|
|
|
2023-03-11 07:50:00 +01:00
|
|
|
/* list2+? */
|
2023-03-19 00:13:38 +01:00
|
|
|
static obj cxs_list2_2B_3F(obj v177_x)
|
2023-03-04 06:07:52 +01:00
|
|
|
{
|
2023-03-19 00:13:38 +01:00
|
|
|
return ((ispair((v177_x))) ? (cxs_list1_2B_3F((cdr((v177_x))))) : obj_from_bool(0));
|
2023-03-04 06:07:52 +01:00
|
|
|
}
|
|
|
|
|
|
2023-02-28 06:31:08 +01:00
|
|
|
/* idslist-req-count */
|
2023-03-19 00:13:38 +01:00
|
|
|
static obj cxs_idslist_2Dreq_2Dcount(obj v237_ilist)
|
2023-02-28 06:31:08 +01:00
|
|
|
{
|
2023-03-19 00:13:38 +01:00
|
|
|
return ((ispair((v237_ilist))) ? obj_from_fixnum(fxadd((+1), fixnum_from_obj(cxs_idslist_2Dreq_2Dcount((cdr((v237_ilist))))))) : obj_from_fixnum(+0));
|
2023-02-28 06:31:08 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* id? */
|
2023-03-19 00:13:38 +01:00
|
|
|
static obj cxs_id_3F(obj v289_x)
|
2023-02-28 06:31:08 +01:00
|
|
|
{
|
2023-03-19 00:13:38 +01:00
|
|
|
return ((issymbol((v289_x))) ? obj_from_bool(issymbol((v289_x))) : obj_from_bool(isprocedure((v289_x))));
|
2023-02-28 06:31:08 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* den->sym */
|
2023-03-19 00:13:38 +01:00
|
|
|
static obj cxs_den_2D_3Esym(obj v297_den)
|
2023-02-28 06:31:08 +01:00
|
|
|
{
|
2023-03-19 00:13:38 +01:00
|
|
|
return ((issymbol((v297_den))) ? (v297_den) : (car((v297_den))));
|
2023-02-28 06:31:08 +01:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
/* gc roots */
|
|
|
|
|
static obj *globv[] = {
|
|
|
|
|
&cx__2Aglobals_2A,
|
|
|
|
|
&cx__2Ahide_2Drefs_2A,
|
2023-03-03 01:27:09 +01:00
|
|
|
&cx__2Atransformers_2A,
|
2023-03-08 19:03:39 +01:00
|
|
|
&cx__2Averbose_2A,
|
2023-03-06 21:53:37 +01:00
|
|
|
&cx_callmv_2Dadapter_2Dclosure,
|
2023-03-11 07:50:00 +01:00
|
|
|
&cx_continuation_2Dadapter_2Dcode,
|
2023-02-28 06:31:08 +01:00
|
|
|
&cx_decode,
|
|
|
|
|
&cx_decode_2Dsexp,
|
|
|
|
|
&cx_denotation_2Dof_2Ddefault_2Dellipsis,
|
|
|
|
|
&cx_encode_2Dintegrable,
|
|
|
|
|
&cx_execute_2Dthunk_2Dclosure,
|
|
|
|
|
&cx_find_2Dintegrable_2Dencoding,
|
|
|
|
|
&cx_gensym,
|
2023-03-03 19:18:00 +01:00
|
|
|
&cx_initialize_2Dmodules,
|
2023-02-28 06:31:08 +01:00
|
|
|
&cx_install_2Dglobal_2Dlambdas,
|
2023-03-19 00:13:38 +01:00
|
|
|
&cx_integrable_2Dcode,
|
|
|
|
|
&cx_integrable_2Dglobal,
|
|
|
|
|
&cx_integrable_2Dtype,
|
|
|
|
|
&cx_integrable_3F,
|
|
|
|
|
&cx_lookup_2Dintegrable,
|
2023-02-28 06:31:08 +01:00
|
|
|
&cx_make_2Dclosure,
|
|
|
|
|
&cx_pair_2A,
|
|
|
|
|
&cx_test1,
|
|
|
|
|
&cx_test2,
|
|
|
|
|
&cx_test3,
|
|
|
|
|
&cx_test4,
|
|
|
|
|
&cx_test5,
|
|
|
|
|
&cx_transform,
|
2023-03-19 00:13:38 +01:00
|
|
|
&cx__231011,
|
|
|
|
|
&cx__231041,
|
|
|
|
|
&cx__231051,
|
|
|
|
|
&cx__231490,
|
2023-03-18 21:07:10 +01:00
|
|
|
&cx__231550,
|
2023-03-19 00:13:38 +01:00
|
|
|
&cx__231591,
|
|
|
|
|
&cx__231623,
|
|
|
|
|
&cx__231681,
|
|
|
|
|
&cx__231713,
|
|
|
|
|
&cx__231793,
|
|
|
|
|
&cx__231831,
|
|
|
|
|
&cx__231871,
|
|
|
|
|
&cx__231923,
|
|
|
|
|
&cx__232030,
|
|
|
|
|
&cx__232036,
|
|
|
|
|
&cx__232071,
|
|
|
|
|
&cx__232075,
|
|
|
|
|
&cx__232119,
|
|
|
|
|
&cx__232185,
|
2023-03-18 21:07:10 +01:00
|
|
|
&cx__232384,
|
2023-03-19 00:13:38 +01:00
|
|
|
&cx__232392,
|
|
|
|
|
&cx__232412,
|
|
|
|
|
&cx__232436,
|
|
|
|
|
&cx__232515,
|
|
|
|
|
&cx__232596,
|
2023-03-19 19:52:49 +01:00
|
|
|
&cx__232982,
|
2023-03-20 04:31:28 +01:00
|
|
|
&cx__233129,
|
|
|
|
|
&cx__233294,
|
|
|
|
|
&cx__233424,
|
|
|
|
|
&cx__233455,
|
|
|
|
|
&cx__233460,
|
2023-03-19 19:52:49 +01:00
|
|
|
&cx__233464,
|
2023-03-20 04:31:28 +01:00
|
|
|
&cx__233500,
|
|
|
|
|
&cx__233526,
|
|
|
|
|
&cx__233537,
|
|
|
|
|
&cx__233588,
|
|
|
|
|
&cx__233592,
|
|
|
|
|
&cx__233702,
|
|
|
|
|
&cx__233744,
|
|
|
|
|
&cx__233752,
|
|
|
|
|
&cx__233753,
|
|
|
|
|
&cx__233754,
|
|
|
|
|
&cx__233755,
|
|
|
|
|
&cx__233756,
|
|
|
|
|
&cx__233778,
|
|
|
|
|
&cx__233780,
|
|
|
|
|
&cx__233784,
|
|
|
|
|
&cx__234054,
|
|
|
|
|
&cx__234256,
|
|
|
|
|
&cx__234658,
|
2023-03-19 00:13:38 +01:00
|
|
|
&cx__23469,
|
2023-03-20 04:31:28 +01:00
|
|
|
&cx__234788,
|
2023-03-19 00:13:38 +01:00
|
|
|
&cx__23484,
|
2023-03-12 21:54:44 +01:00
|
|
|
&cx__23506,
|
2023-03-19 00:13:38 +01:00
|
|
|
&cx__23512,
|
2023-03-20 04:31:28 +01:00
|
|
|
&cx__235172,
|
|
|
|
|
&cx__235196,
|
|
|
|
|
&cx__235197,
|
|
|
|
|
&cx__235250,
|
|
|
|
|
&cx__235257,
|
|
|
|
|
&cx__235264,
|
|
|
|
|
&cx__235318,
|
|
|
|
|
&cx__235338,
|
|
|
|
|
&cx__235341,
|
|
|
|
|
&cx__235347,
|
2023-03-19 00:13:38 +01:00
|
|
|
&cx__23535,
|
|
|
|
|
&cx__23558,
|
|
|
|
|
&cx__23574,
|
|
|
|
|
&cx__23584,
|
|
|
|
|
&cx__23605,
|
|
|
|
|
&cx__23738,
|
|
|
|
|
&cx__23759,
|
|
|
|
|
&cx__23803,
|
|
|
|
|
&cx__23805,
|
|
|
|
|
&cx__23842,
|
|
|
|
|
&cx__23856,
|
|
|
|
|
&cx__23906,
|
2023-02-28 06:31:08 +01:00
|
|
|
&cx__2398,
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
static cxroot_t root = {
|
|
|
|
|
sizeof(globv)/sizeof(obj *), globv, NULL
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* entry points */
|
|
|
|
|
static obj host(obj);
|
2023-03-20 04:31:28 +01:00
|
|
|
static obj cases[548] = {
|
2023-03-04 06:07:52 +01:00
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
2023-02-28 06:31:08 +01:00
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
2023-03-03 01:27:09 +01:00
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
2023-03-04 06:07:52 +01:00
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
2023-03-07 19:11:46 +01:00
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
2023-03-10 23:30:41 +01:00
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
2023-03-12 21:54:44 +01:00
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
2023-03-19 00:13:38 +01:00
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
2023-03-20 04:31:28 +01:00
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
|
|
|
(obj)host, (obj)host, (obj)host,
|
2023-02-28 06:31:08 +01:00
|
|
|
};
|
|
|
|
|
|
|
|
|
|
/* 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("#")));
|
2023-03-19 00:13:38 +01:00
|
|
|
cx__23469 = (hpushstr(0, newstring("set! to non-identifier form")));
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("begin")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-19 00:13:38 +01:00
|
|
|
cx__23484 = (hendblk(3)); }
|
|
|
|
|
cx__23506 = (hpushstr(0, newstring("improper set& form")));
|
|
|
|
|
cx__23512 = (hpushstr(0, newstring("set& of a non-variable")));
|
|
|
|
|
cx__23535 = (hpushstr(0, newstring("improper begin form")));
|
|
|
|
|
cx__23558 = (hpushstr(0, newstring("improper if form")));
|
|
|
|
|
cx__23574 = (hpushstr(0, newstring("malformed if form")));
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* 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);
|
2023-03-19 00:13:38 +01:00
|
|
|
cx__23584 = (hendblk(3)); }
|
|
|
|
|
cx__23605 = (hpushstr(0, newstring("improper application")));
|
|
|
|
|
cx__23738 = (hpushstr(0, newstring("improper integrable application")));
|
|
|
|
|
cx__23759 = (hpushstr(0, newstring("improper lambda body")));
|
|
|
|
|
cx__23803 = (hpushstr(0, newstring("improper lambda* form")));
|
|
|
|
|
cx__23805 = (hpushstr(0, newstring("improper lambda* clause")));
|
|
|
|
|
cx__23842 = (hpushstr(0, newstring("improper letcc form")));
|
|
|
|
|
cx__23856 = (hpushstr(0, newstring("improper withcc form")));
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("undefined")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-19 00:13:38 +01:00
|
|
|
cx__23906 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("begin")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-19 00:13:38 +01:00
|
|
|
cx__231011 = (hendblk(3)); }
|
|
|
|
|
cx__231041 = (hpushstr(0, newstring("define of non-identifier form")));
|
|
|
|
|
cx__231051 = (hpushstr(0, newstring("define-syntax of non-identifier form")));
|
|
|
|
|
cx__231490 = (hpushstr(0, newstring("invalid syntax")));
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("exp")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("name")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("define")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("exp")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("name")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (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("forms")));
|
|
|
|
|
*--hp = (mksymbol(internsym("args")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("lambda")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("name")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("define")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("args")));
|
|
|
|
|
*--hp = (mksymbol(internsym("name")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("forms")));
|
|
|
|
|
*--hp = (r[2]);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-19 00:13:38 +01:00
|
|
|
cx__231550 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("forms")));
|
|
|
|
|
*--hp = (mksymbol(internsym("...")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("trans")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("key")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--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 = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("body")));
|
|
|
|
|
*--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 = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("...")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("trans")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("key")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("forms")));
|
|
|
|
|
*--hp = (r[1]);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-19 00:13:38 +01:00
|
|
|
cx__231591 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("temp")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("key")));
|
|
|
|
|
*--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("forms")));
|
|
|
|
|
*--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("letrec-syntax")));
|
|
|
|
|
*--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 = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("bindings")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("let-syntax")));
|
|
|
|
|
*--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 = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("trans")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("temp")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("letrec-syntax")));
|
|
|
|
|
*--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 = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("trans")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("key")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("bindings")));
|
|
|
|
|
*--hp = (r[1]);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("forms")));
|
|
|
|
|
*--hp = (r[1]);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (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("forms")));
|
|
|
|
|
*--hp = (mksymbol(internsym("body")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("forms")));
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-19 00:13:38 +01:00
|
|
|
cx__231623 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("forms")));
|
|
|
|
|
*--hp = (mksymbol(internsym("...")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("init")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("var")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--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 = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("body")));
|
|
|
|
|
*--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 = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("...")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("init")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("var")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("forms")));
|
|
|
|
|
*--hp = (r[1]);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-19 00:13:38 +01:00
|
|
|
cx__231681 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("...")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("init")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("name")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("...")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("var")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("forms")));
|
|
|
|
|
*--hp = (r[2]);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("lambda")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("name")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("letrec")));
|
|
|
|
|
*--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 = (mknull());
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("...")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("init")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("var")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("forms")));
|
|
|
|
|
*--hp = (r[1]);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("name")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("...")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("init")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("...")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("var")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("forms")));
|
|
|
|
|
*--hp = (r[2]);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("lambda")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("...")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("init")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("var")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("forms")));
|
|
|
|
|
*--hp = (r[2]);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-19 00:13:38 +01:00
|
|
|
cx__231713 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("forms")));
|
|
|
|
|
*--hp = (mksymbol(internsym("more")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("let*")));
|
|
|
|
|
*--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 = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("first")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("let")));
|
|
|
|
|
*--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("more")));
|
|
|
|
|
*--hp = (mksymbol(internsym("first")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("forms")));
|
|
|
|
|
*--hp = (r[1]);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (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("forms")));
|
|
|
|
|
*--hp = (mksymbol(internsym("body")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("forms")));
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-19 00:13:38 +01:00
|
|
|
cx__231793 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* 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 = (mksymbol(internsym("tests")));
|
|
|
|
|
*--hp = (mksymbol(internsym("and")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("test")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("if")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (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("tests")));
|
|
|
|
|
*--hp = (mksymbol(internsym("test")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("test")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("test")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_bool(1);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-19 00:13:38 +01:00
|
|
|
cx__231831 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("tests")));
|
|
|
|
|
*--hp = (mksymbol(internsym("or")));
|
|
|
|
|
*--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 = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("if")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("test")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("let")));
|
|
|
|
|
*--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("tests")));
|
|
|
|
|
*--hp = (mksymbol(internsym("test")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("test")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("test")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_bool(0);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-19 00:13:38 +01:00
|
|
|
cx__231871 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("rest")));
|
|
|
|
|
*--hp = (mksymbol(internsym("cond")));
|
|
|
|
|
*--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("exps")));
|
|
|
|
|
*--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 = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("if")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (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("exps")));
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("rest")));
|
|
|
|
|
*--hp = (r[1]);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("tmp")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("proc")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("tmp")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("rest")));
|
|
|
|
|
*--hp = (r[1]);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("cond")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("tmp")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("let")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("proc")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("=>")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("rest")));
|
|
|
|
|
*--hp = (r[2]);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("rest")));
|
|
|
|
|
*--hp = (mksymbol(internsym("cond")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("or")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("rest")));
|
|
|
|
|
*--hp = (r[2]);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("exps")));
|
|
|
|
|
*--hp = (mksymbol(internsym("begin")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("exps")));
|
|
|
|
|
*--hp = (mksymbol(internsym("else")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_bool(0);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-19 00:13:38 +01:00
|
|
|
cx__231923 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("=>")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("else")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-19 00:13:38 +01:00
|
|
|
cx__232030 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("atoms")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("quote")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (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("k")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("memv")));
|
|
|
|
|
*--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 = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("atoms")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("k")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_bool(1);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("else")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("k")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-19 00:13:38 +01:00
|
|
|
cx__232036 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("else")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-19 00:13:38 +01:00
|
|
|
cx__232071 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("...")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("test")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("key")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("case-test")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("exprs")));
|
|
|
|
|
*--hp = (r[1]);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("cond")));
|
|
|
|
|
*--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 = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("key")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("let")));
|
|
|
|
|
*--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 = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("...")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("exprs")));
|
|
|
|
|
*--hp = (mksymbol(internsym("test")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-19 00:13:38 +01:00
|
|
|
cx__232075 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("...")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("step")));
|
|
|
|
|
*--hp = (mksymbol(internsym("var")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--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 = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("loop")));
|
|
|
|
|
*--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 = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("...")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("expr")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("else")));
|
|
|
|
|
*--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 = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("ending")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("cond")));
|
|
|
|
|
*--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 = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("...")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("init")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("var")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("loop")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("let")));
|
|
|
|
|
*--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 = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("...")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("expr")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("ending")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("...")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("step")));
|
|
|
|
|
*--hp = (mksymbol(internsym("init")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("var")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (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 = (mknull());
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-19 00:13:38 +01:00
|
|
|
cx__232119 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("quote")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (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("d")));
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("...")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("d")));
|
|
|
|
|
*--hp = (r[1]);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("quasiquote")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("list->vector")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* vector */
|
|
|
|
|
hreserve(hbsz(2+1), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("...")));
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(VECTOR_BTAG);
|
|
|
|
|
r[2] = (hendblk(2+1)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("d")));
|
|
|
|
|
*--hp = (r[2]);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("d")));
|
|
|
|
|
*--hp = (mksymbol(internsym("y")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("quasiquote")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("d")));
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("quasiquote")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("cons")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("y")));
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("d")));
|
|
|
|
|
*--hp = (r[2]);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("d")));
|
|
|
|
|
*--hp = (r[1]);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("quasiquote")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("unquote-splicing")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("quote")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("cons")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("d")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("unquote-splicing")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("d")));
|
|
|
|
|
*--hp = (r[1]);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("quasiquote")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("unquote")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("quote")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("cons")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("d")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("unquote")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("d")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("quasiquote")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("quasiquote")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("quote")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("cons")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("quasiquote")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("d")));
|
|
|
|
|
*--hp = (r[2]);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("y")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("quasiquote")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("append")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("unquote-splicing")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("y")));
|
|
|
|
|
*--hp = (r[2]);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("unquote")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-19 00:13:38 +01:00
|
|
|
cx__232185 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("quasiquote")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("unquote-splicing")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("unquote")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-19 00:13:38 +01:00
|
|
|
cx__232384 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("rest")));
|
|
|
|
|
*--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);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("test")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("if")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (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("rest")));
|
|
|
|
|
*--hp = (mksymbol(internsym("test")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-19 00:13:38 +01:00
|
|
|
cx__232392 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("rest")));
|
|
|
|
|
*--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);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("test")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("not")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("if")));
|
|
|
|
|
*--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("rest")));
|
|
|
|
|
*--hp = (mksymbol(internsym("test")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-19 00:13:38 +01:00
|
|
|
cx__232412 = (hendblk(3)); }
|
2023-03-07 19:11:46 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("...")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("body")));
|
|
|
|
|
*--hp = (mksymbol(internsym("args")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("lambda")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("args")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("lambda*")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
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 = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("...")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("body")));
|
|
|
|
|
*--hp = (mksymbol(internsym("args")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (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 = (mknull());
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-19 00:13:38 +01:00
|
|
|
cx__232436 = (hendblk(3)); }
|
|
|
|
|
cx__232515 = (hpushstr(0, newstring("cannot encode literal: ~s")));
|
|
|
|
|
cx__232596 = (hpushstr(0, newstring("0123456789")));
|
2023-03-19 19:52:49 +01:00
|
|
|
cx__232982 = (hpushstr(0, newstring("NYI: unsupported integrable type")));
|
2023-03-10 23:30:41 +01:00
|
|
|
{ /* 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);
|
2023-03-20 04:31:28 +01:00
|
|
|
cx__233129 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("begin")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-20 04:31:28 +01:00
|
|
|
cx__233294 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("append-reducer")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("subdiv-reducer")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("addmul-reducer")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("cmp-reducer")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("binary-ternary-adaptor")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("unary-binary-ternary-quaternary-adaptor")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("unary-binary-ternary-adaptor")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("unary-binary-adaptor")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("nullary-unary-binary-adaptor")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("nullary-unary-adaptor")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("define-inline")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-20 04:31:28 +01:00
|
|
|
cx__233424 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ static char s[] = { 34, 10, 0 };
|
2023-03-20 04:31:28 +01:00
|
|
|
cx__233455 = (hpushstr(0, newstring(s))); }
|
2023-03-11 18:28:51 +01:00
|
|
|
{ static char s[] = { 32, 32, 34, 0 };
|
2023-03-20 04:31:28 +01:00
|
|
|
cx__233460 = (hpushstr(0, newstring(s))); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ static char s[] = { 34, 44, 0 };
|
2023-03-20 04:31:28 +01:00
|
|
|
cx__233464 = (hpushstr(0, newstring(s))); }
|
2023-03-03 19:18:00 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("args")));
|
|
|
|
|
*--hp = (mksymbol(internsym("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-20 04:31:28 +01:00
|
|
|
cx__233500 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ static char s[] = { 34, 44, 10, 0 };
|
2023-03-20 04:31:28 +01:00
|
|
|
cx__233526 = (hpushstr(0, newstring(s))); }
|
2023-03-01 00:05:08 +01:00
|
|
|
{ static char s[] = { 32, 32, 48, 44, 10, 0 };
|
2023-03-20 04:31:28 +01:00
|
|
|
cx__233537 = (hpushstr(0, newstring(s))); }
|
|
|
|
|
cx__233588 = (hpushstr(0, newstring("r")));
|
|
|
|
|
cx__233592 = (hpushstr(0, newstring("cannot open input file")));
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* 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);
|
2023-03-20 04:31:28 +01:00
|
|
|
cx__233702 = (hendblk(3)); }
|
2023-03-01 00:05:08 +01:00
|
|
|
{ static char s[] = { 10, 32, 32, 48, 44, 32, 48, 10, 125, 59, 10, 0 };
|
2023-03-20 04:31:28 +01:00
|
|
|
cx__233744 = (hpushstr(0, newstring(s))); }
|
|
|
|
|
cx__233752 = (hpushstr(0, newstring("_code[] = {")));
|
|
|
|
|
cx__233753 = (hpushstr(0, newstring("char *")));
|
|
|
|
|
cx__233754 = (hpushstr(0, newstring(" */")));
|
|
|
|
|
cx__233755 = (hpushstr(0, newstring(".c -- generated via skint -c ")));
|
|
|
|
|
cx__233756 = (hpushstr(0, newstring("/* ")));
|
|
|
|
|
cx__233778 = (hpushstr(0, newstring("k!")));
|
|
|
|
|
cx__233780 = (hpushstr(0, newstring("K5")));
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("string<?")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
r[1] = (hpushstr(1, newstring("twelve")));
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
r[2] = (hpushstr(2, newstring("eleven")));
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
r[2] = (hpushstr(2, newstring("ten")));
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
r[2] = (hpushstr(2, newstring("nine")));
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
r[2] = (hpushstr(2, newstring("eight")));
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
r[2] = (hpushstr(2, newstring("seven")));
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
r[2] = (hpushstr(2, newstring("six")));
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
r[2] = (hpushstr(2, newstring("five")));
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
r[2] = (hpushstr(2, newstring("four")));
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
r[2] = (hpushstr(2, newstring("three")));
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
r[2] = (hpushstr(2, newstring("two")));
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
r[2] = (hpushstr(2, newstring("one")));
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--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 = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("sort-list")));
|
|
|
|
|
*--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 = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("obj")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("loop")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("two")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("one")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("cdr")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("merge")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("one")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("car")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("cons")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("else")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("one")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("two")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = (mksymbol(internsym("cdr")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("merge")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("two")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = (mksymbol(internsym("car")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("cons")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("one")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = (mksymbol(internsym("car")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* 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 = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("two")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[5] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = (mksymbol(internsym("car")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[5] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = (mksymbol(internsym("pred")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("two")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("one")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = (mksymbol(internsym("null?")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("cond")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("two")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("one")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("merge")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("define")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("two")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("loop")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("one")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("loop")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("merge")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("one")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("l")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = (mksymbol(internsym("car")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("cons")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("two")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("l")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = (mksymbol(internsym("cdr")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("split")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("l")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("pair?")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("if")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("two")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("one")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("l")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("split")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("define")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("l")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--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)); }
|
|
|
|
|
{ /* 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 = (mknull());
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = (mksymbol(internsym("quote")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("l")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("split")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("l")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("cdr")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("pair?")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* 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 = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("l")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = (mksymbol(internsym("pair?")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("and")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("if")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("l")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("loop")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("define")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("pred")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("obj")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("sort-list")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (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 = r[0];
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("let")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-20 04:31:28 +01:00
|
|
|
cx__233784 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+0);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = obj_from_fixnum(+10);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("runtak")));
|
|
|
|
|
*--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 = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("v")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("v")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("r")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("+")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+1);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("n")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("-")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("loop")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+1);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("s")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("-")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_fixnum(+12);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_fixnum(+18);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("tak")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("v")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("let")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("r")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+0);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("n")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("=")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("if")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+7);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("s")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("r")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("r")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("n")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("n")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("loop")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("let")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("r")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("n")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("lambda")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("runtak")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--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 = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("z")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("y")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+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("z")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("-")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("tak")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("z")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+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("y")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = (mksymbol(internsym("-")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("tak")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("z")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("y")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+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("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = (mksymbol(internsym("-")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("tak")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("tak")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("y")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("<")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("if")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("z")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("y")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("lambda")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("tak")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--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 = r[0];
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("let")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-20 04:31:28 +01:00
|
|
|
cx__234054 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+10);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("run-test")));
|
|
|
|
|
*--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 = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+84);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("v")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("-")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("nqueens")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+1);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("n")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("-")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("loop")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("else")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("v")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("n")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("zero?")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("cond")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+92);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("v")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("count")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("n")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("loop")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("let")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("count")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("run-test")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (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 = (mknull());
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("quote")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("quote")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("n")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("one-to")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("try-it")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("placed")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("cdr")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+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("dist")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("+")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("row")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("ok?")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("dist")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("row")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("-")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("placed")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = (mksymbol(internsym("car")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("=")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (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("not")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("dist")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("row")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("+")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("placed")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = (mksymbol(internsym("car")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("=")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (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("not")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("and")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_bool(1);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("placed")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("null?")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("if")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("placed")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("dist")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("row")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("ok?")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("define")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("z")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("y")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = (mksymbol(internsym("car")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("cons")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("cdr")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("try-it")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+0);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("z")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[5] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = (mksymbol(internsym("car")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[5] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = (mksymbol(internsym("cons")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* 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 = (mknull());
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[5] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = (mksymbol(internsym("quote")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[5] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("y")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[5] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[6] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 7); /* 7 live regs */
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = (mksymbol(internsym("cdr")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[6] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 7); /* 7 live regs */
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[5] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = (mksymbol(internsym("append")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[5] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = (mksymbol(internsym("try-it")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("z")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = obj_from_fixnum(+1);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[5] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = (mksymbol(internsym("car")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[5] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = (mksymbol(internsym("ok?")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("if")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("+")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+0);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_fixnum(+1);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("y")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = (mksymbol(internsym("null?")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("if")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("null?")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("if")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("z")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("y")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("try-it")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("define")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("l")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("i")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("cons")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+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("i")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("-")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("loop")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("else")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("l")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("i")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = (mksymbol(internsym("zero?")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("cond")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--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)); }
|
|
|
|
|
{ /* 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("l")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("n")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = (mksymbol(internsym("i")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("loop")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("let")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("n")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("one-to")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("define")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("n")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("nqueens")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (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 = r[0];
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("let")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-20 04:31:28 +01:00
|
|
|
cx__234256 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+10);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("fakt")));
|
|
|
|
|
*--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 = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+1);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("-")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("self")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("*")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_fixnum(+1);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+0);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("=")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("if")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("lambda")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("self")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("lambda")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("y")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("fakt")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--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 = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("f")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("call/cc")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("call/cc")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("call/cc")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("lambda")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("e")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("f")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("lambda")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("call/cc")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("call/cc")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("e")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("lambda")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("y")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--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 = r[0];
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("let")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-20 04:31:28 +01:00
|
|
|
cx__234658 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("quote")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = (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("l")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("cons")));
|
|
|
|
|
*--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 = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("r")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("cons")));
|
|
|
|
|
*--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 = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("i")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("cons")));
|
|
|
|
|
*--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 = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("y")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("cons")));
|
|
|
|
|
*--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 = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+10);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("faktl")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("l")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+10);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("faktr")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("r")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+10);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("fakti")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("i")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+10);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("fakty")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("y")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("let")));
|
|
|
|
|
*--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 = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+1);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("-")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("self")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("self")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("*")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+1);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("=")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("if")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("self")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("lambda")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("self")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("self")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("self")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("lambda")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("lambda")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("faktl")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--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 = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+1);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("-")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("faktr")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("*")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_fixnum(+1);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+1);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("=")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("if")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("faktr")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (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 = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+1);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("-")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("n")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("*")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("loop")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("n")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+1);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("=")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("if")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+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("n")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("loop")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("let")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("fakti")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (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 = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+1);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("-")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("self")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("*")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_fixnum(+1);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_fixnum(+0);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("=")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("if")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("lambda")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("self")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("lambda")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("y")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("fakty")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--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 = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("f")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("call/cc")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("call/cc")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (mksymbol(internsym("call/cc")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("x")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("lambda")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("e")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("f")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("lambda")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("call/cc")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = (mksymbol(internsym("call/cc")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (mksymbol(internsym("e")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[2] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("lambda")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("y")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[1] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--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 = r[0];
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[0] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = (mksymbol(internsym("let")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-20 04:31:28 +01:00
|
|
|
cx__234788 = (hendblk(3)); }
|
|
|
|
|
cx__235172 = (hpushstr(0, newstring(" ms.")));
|
|
|
|
|
cx__235196 = (hpushstr(0, newstring("Elapsed time: ")));
|
|
|
|
|
cx__235197 = (hpushstr(0, newstring("Running tests ...")));
|
|
|
|
|
cx__235250 = (hpushstr(0, newstring("DECODE+EXECUTE =>")));
|
|
|
|
|
cx__235257 = (hpushstr(0, newstring("COMPILE-TO-STRING =>")));
|
|
|
|
|
cx__235264 = (hpushstr(0, newstring("TRANSFORM =>")));
|
2023-03-10 23:30:41 +01:00
|
|
|
{ static char s[] = { 10, 115, 107, 105, 110, 116, 62, 32, 0 };
|
2023-03-20 04:31:28 +01:00
|
|
|
cx__235318 = (hpushstr(0, newstring(s))); }
|
2023-03-08 19:03:39 +01:00
|
|
|
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);
|
2023-03-20 04:31:28 +01:00
|
|
|
cx__235338 = (hendblk(3)); }
|
2023-03-08 19:03:39 +01:00
|
|
|
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);
|
2023-03-20 04:31:28 +01:00
|
|
|
cx__235341 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* 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);
|
2023-03-20 04:31:28 +01:00
|
|
|
cx__235347 = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ 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 */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(16);
|
2023-02-28 06:31:08 +01:00
|
|
|
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)); }
|
2023-03-19 00:13:38 +01:00
|
|
|
{ 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_2Dval_2Dspecial_3F = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(30) }; cx__25residual_2Dbinding_3F = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(31) }; cx__25residual_2Dmake_2Dbinding = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(32) }; cx__25residual_2Dbinding_2Dval = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(33) }; cx__25residual_2Dbinding_2Dspecial_3F = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(34) }; cx__25residual_2Dbinding_2Dsym = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(35) }; cx__25residual_2Dbinding_2Dset_2Dval_21 = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(36) }; cx__25residual_2Dfind_2Dtop_2Dbinding = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(37) }; cx_new_2Did = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(39) }; cx_old_2Dden = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(41) }; cx_id_3F = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(42) }; cx_id_2D_3Esym = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(44) }; cx_den_2D_3Esym = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(45) }; cx_empty_2Dxenv = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(47) }; cx_extend_2Dxenv = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(49) }; cx_add_2Dbinding = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(51) }; cx_add_2Dvar = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(53) }; cx_xform = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(61) }; cx_xform_2Dquote = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(69) }; cx_xform_2Dref = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(71) }; cx_xform_2Dset_21 = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(74) }; cx_xform_2Dset_26 = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(76) }; cx_xform_2Dbegin = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(80) }; cx_xform_2Dif = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(84) }; cx_xform_2Dcall = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(88) }; cx_integrable_2Dargc_2Dmatch_3F = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(89) }; cx_xform_2Dintegrable = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(96) }; cx_xform_2Dlambda = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(107) }; cx_xform_2Dlambda_2A = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(114) }; cx_xform_2Dletcc = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(119) }; cx_xform_2Dwithcc = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(122) }; cx_xform_2Dbody = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(130) }; cx_xform_2Dlabels = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(140) }; cx_xform_2Ddefine = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(143) }; cx_xform_2Ddefine_2Dsyntax = (obj)c; }
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(0+1), 0); /* 0 live regs */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(146);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[0] = (hendblk(0+1));
|
2023-03-01 23:36:24 +01:00
|
|
|
{ /* cons */
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
2023-03-03 01:27:09 +01:00
|
|
|
*--hp = r[0];
|
2023-03-01 23:36:24 +01:00
|
|
|
*--hp = (mksymbol(internsym("...")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
cx_denotation_2Dof_2Ddefault_2Dellipsis = (hendblk(3)); }
|
2023-03-03 01:27:09 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = (cx_denotation_2Dof_2Ddefault_2Dellipsis);
|
|
|
|
|
*--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 */
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = (mksymbol(internsym("if")));
|
|
|
|
|
*--hp = (mksymbol(internsym("if")));
|
2023-03-07 19:11:46 +01:00
|
|
|
*--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 */
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = (mksymbol(internsym("begin")));
|
|
|
|
|
*--hp = (mksymbol(internsym("begin")));
|
2023-03-03 01:27:09 +01:00
|
|
|
*--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 */
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = (mksymbol(internsym("withcc")));
|
|
|
|
|
*--hp = (mksymbol(internsym("withcc")));
|
2023-03-03 01:27:09 +01:00
|
|
|
*--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 */
|
2023-03-10 23:30:41 +01:00
|
|
|
*--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")));
|
2023-03-03 01:27:09 +01:00
|
|
|
*--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 */
|
2023-03-12 21:54:44 +01:00
|
|
|
*--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 */
|
2023-03-03 01:27:09 +01:00
|
|
|
*--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("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("syntax")));
|
|
|
|
|
*--hp = (mksymbol(internsym("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);
|
|
|
|
|
cx__2Atransformers_2A = (hendblk(3)); }
|
2023-03-19 00:13:38 +01:00
|
|
|
{ static obj c[] = { obj_from_case(147) }; cx_top_2Dtransformer_2Denv = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(151) }; cx_install_2Dtransformer_21 = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(153) }; cx_install_2Dtransformer_2Drules_21 = (obj)c; }
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(0+1), 0); /* 0 live regs */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(156);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[0] = (hendblk(0+1));
|
2023-03-03 01:27:09 +01:00
|
|
|
{ /* 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)); }
|
2023-03-19 00:13:38 +01:00
|
|
|
{ static obj c[] = { obj_from_case(157) }; cx_syntax_2Drules_2A = (obj)c; }
|
2023-03-03 01:27:09 +01:00
|
|
|
hreserve(hbsz(0+1), 0); /* 0 live regs */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(213);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[0] = (hendblk(0+1));
|
2023-02-28 06:31:08 +01:00
|
|
|
r[1+0] = r[0];
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+1] = (mksymbol(internsym("syntax-rules")));
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-03 01:27:09 +01:00
|
|
|
goto gs_top_2Dtransformer_2Denv;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
|
|
|
|
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;
|
|
|
|
|
|
2023-03-06 21:53:37 +01:00
|
|
|
case 3: /* set-union k s1 s2 */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 4);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-06 21:53:37 +01:00
|
|
|
gs_set_2Dunion: /* k s1 s2 */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-06 21:53:37 +01:00
|
|
|
/* ek r s1 k */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-06 21:53:37 +01:00
|
|
|
case 5: /* set-minus k s1 s2 */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 4);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-06 21:53:37 +01:00
|
|
|
gs_set_2Dminus: /* k s1 s2 */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-06 21:53:37 +01:00
|
|
|
/* ek r k s1 */
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* 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;
|
|
|
|
|
|
2023-03-06 21:53:37 +01:00
|
|
|
case 7: /* set-intersect k s1 s2 */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 4);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-06 21:53:37 +01:00
|
|
|
gs_set_2Dintersect: /* k s1 s2 */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-06 21:53:37 +01:00
|
|
|
/* ek r k s1 */
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 16: /* clo k x more */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(17);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[5] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
r[2] = r[4];
|
|
|
|
|
goto s_loop;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 17: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 18: /* andmap k p l */
|
2023-03-12 21:54:44 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(19);
|
2023-03-12 21:54:44 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 19: /* clo ek r */
|
2023-03-12 21:54:44 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 20: /* list1? k x */
|
2023-03-04 06:07:52 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 21: /* list1+? k x */
|
2023-03-04 06:07:52 +01:00
|
|
|
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();
|
2023-03-11 07:50:00 +01:00
|
|
|
r[2+2] = (cxs_list1_2B_3F((r[1])));
|
2023-03-04 06:07:52 +01:00
|
|
|
r += 2; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 22: /* list2? k x */
|
2023-03-04 06:07:52 +01:00
|
|
|
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();
|
2023-03-11 07:50:00 +01:00
|
|
|
r[2+2] = (cxs_list2_3F((r[1])));
|
2023-03-04 06:07:52 +01:00
|
|
|
r += 2; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 23: /* list2+? k x */
|
2023-03-04 06:07:52 +01:00
|
|
|
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();
|
2023-03-11 07:50:00 +01:00
|
|
|
r[2+2] = (cxs_list2_2B_3F((r[1])));
|
2023-03-04 06:07:52 +01:00
|
|
|
r += 2; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 24: /* idslist? k x */
|
2023-03-12 21:54:44 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 25: /* normalize-arity k arity */
|
2023-03-07 19:11:46 +01:00
|
|
|
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);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v14659;
|
2023-03-07 19:11:46 +01:00
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v14659: /* k cnt l */
|
2023-03-07 19:11:46 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v14659;
|
2023-03-07 19:11:46 +01:00
|
|
|
} 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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 26: /* flatten-idslist k ilist */
|
2023-02-28 06:31:08 +01:00
|
|
|
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);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v14646;
|
2023-02-28 06:31:08 +01:00
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v14646: /* k l r */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v14646;
|
2023-02-28 06:31:08 +01:00
|
|
|
} 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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 27: /* idslist-req-count k ilist */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 28: /* %residual-val-core? k val */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 29: /* %residual-val-special? k val */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 30: /* %residual-binding? k x */
|
2023-03-01 23:36:24 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* k x */
|
|
|
|
|
r[2+0] = r[0];
|
|
|
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
|
|
|
r[2+1] = obj_from_ktrap();
|
|
|
|
|
r[2+2] = obj_from_bool(ispair((r[1])));
|
|
|
|
|
r += 2; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 31: /* %residual-make-binding k s v */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 4);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-01 23:36:24 +01:00
|
|
|
/* k s v */
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 32: /* %residual-binding-val k bnd */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* k bnd */
|
|
|
|
|
r[2+0] = r[0];
|
|
|
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
|
|
|
r[2+1] = obj_from_ktrap();
|
2023-03-01 23:36:24 +01:00
|
|
|
r[2+2] = (cdr((r[1])));
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 2; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 33: /* %residual-binding-special? k bnd */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* k bnd */
|
2023-03-01 23:36:24 +01:00
|
|
|
r[2] = (cdr((r[1])));
|
2023-02-28 06:31:08 +01:00
|
|
|
r[2] = obj_from_bool(!(ispair((r[2]))));
|
|
|
|
|
r[3+0] = r[0];
|
|
|
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
|
|
|
r[3+1] = obj_from_ktrap();
|
|
|
|
|
r[3+2] = r[2];
|
|
|
|
|
r += 3; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 34: /* %residual-binding-sym k bnd */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* k bnd */
|
|
|
|
|
r[2+0] = r[0];
|
|
|
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
|
|
|
r[2+1] = obj_from_ktrap();
|
2023-03-01 23:36:24 +01:00
|
|
|
r[2+2] = (car((r[1])));
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 2; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 35: /* %residual-binding-set-val! k bnd val */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 4);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* k bnd val */
|
|
|
|
|
r[3+0] = r[0];
|
|
|
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
|
|
|
r[3+1] = obj_from_ktrap();
|
2023-03-01 23:36:24 +01:00
|
|
|
r[3+2] = obj_from_void(cdr((r[1])) = (r[2]));
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 3; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 36: /* %residual-find-top-binding k s blist */
|
2023-03-01 23:36:24 +01:00
|
|
|
assert(rc == 4);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* k s blist */
|
|
|
|
|
{ /* 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[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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 37: /* new-id k den */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
gs_new_2Did: /* k den */
|
|
|
|
|
hreserve(hbsz(1), 2); /* 2 live regs */
|
|
|
|
|
*--hp = obj_from_void(0);
|
|
|
|
|
r[2] = (hendblk(1));
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[3] = (hendblk(3)); }
|
|
|
|
|
(void)(objptr_from_obj(r[2])[0] = (r[3]));
|
|
|
|
|
hreserve(hbsz(1+1), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(38);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[2] = (hendblk(1+1));
|
|
|
|
|
r[3+0] = r[0];
|
|
|
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
|
|
|
r[3+1] = obj_from_ktrap();
|
|
|
|
|
r[3+2] = r[2];
|
|
|
|
|
r += 3; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 38: /* clo k */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 39: /* old-den k id */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* k id */
|
|
|
|
|
hreserve(hbsz(1+1), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(40);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 40: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 41: /* id? k x */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 42: /* id->sym k id */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(43);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 43: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
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] = (car((r[1])));
|
|
|
|
|
r[0] = r[2];
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = obj_from_ktrap();
|
|
|
|
|
r[2] = (cxs_den_2D_3Esym((r[3])));
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 44: /* den->sym k den */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* k den */
|
|
|
|
|
r[2+0] = r[0];
|
|
|
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
|
|
|
r[2+1] = obj_from_ktrap();
|
|
|
|
|
r[2+2] = (cxs_den_2D_3Esym((r[1])));
|
|
|
|
|
r += 2; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 45: /* empty-xenv k id */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(46);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 46: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 47: /* extend-xenv k env id bnd */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(48);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 48: /* clo k i */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 49: /* add-binding k key val env */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 5);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
gs_add_2Dbinding: /* k key val env */
|
|
|
|
|
hreserve(hbsz(4+1), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[1];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(50);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(4+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
goto gs_id_2D_3Esym;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 50: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(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 key env k val */
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
|
|
|
*--hp = r[5];
|
2023-03-01 23:36:24 +01:00
|
|
|
*--hp = r[1];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[6] = (hendblk(3)); }
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
/* r[2] */
|
|
|
|
|
r[3] = r[6];
|
|
|
|
|
goto gs_extend_2Dxenv;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 51: /* add-var k var val env */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 5);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
gs_add_2Dvar: /* k var val env */
|
|
|
|
|
hreserve(hbsz(4+1), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[1];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(52);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(4+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
goto gs_id_2D_3Esym;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 52: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(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 var env k val */
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[6] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 7); /* 7 live regs */
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = (mksymbol(internsym("ref")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[6] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 7); /* 7 live regs */
|
|
|
|
|
*--hp = r[6];
|
2023-03-01 23:36:24 +01:00
|
|
|
*--hp = r[1];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[6] = (hendblk(3)); }
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
/* r[2] */
|
|
|
|
|
r[3] = r[6];
|
|
|
|
|
goto gs_extend_2Dxenv;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 53: /* xform k appos? sexp env */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(54);
|
2023-02-28 06:31:08 +01:00
|
|
|
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]))))) {
|
|
|
|
|
/* r[0] */
|
|
|
|
|
r[1] = r[2];
|
|
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(58);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[6] = (hendblk(5+1));
|
|
|
|
|
r[0] = r[6];
|
|
|
|
|
r[1] = obj_from_bool(1);
|
|
|
|
|
r[2] = r[4];
|
|
|
|
|
/* r[3] */
|
|
|
|
|
goto gs_xform;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 54: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(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? */
|
2023-03-19 00:13:38 +01:00
|
|
|
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 */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[4];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = r[1];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_case(55);
|
|
|
|
|
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 55: /* clo ek r */
|
|
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2];
|
|
|
|
|
r[1+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];
|
2023-03-12 21:54:44 +01:00
|
|
|
*--hp = obj_from_case(56);
|
2023-03-19 00:13:38 +01:00
|
|
|
r[8] = (hendblk(1+1));
|
|
|
|
|
r[0] = r[7];
|
2023-02-28 06:31:08 +01:00
|
|
|
pc = objptr_from_obj(r[0])[0];
|
2023-03-19 00:13:38 +01:00
|
|
|
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(57);
|
|
|
|
|
r[7] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = r[7];
|
2023-02-28 06:31:08 +01:00
|
|
|
/* r[2] */
|
|
|
|
|
/* r[3] */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 4;
|
|
|
|
|
goto jump;
|
|
|
|
|
} else {
|
2023-03-19 00:13:38 +01:00
|
|
|
r[0] = r[6];
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = obj_from_ktrap();
|
|
|
|
|
r[2] = r[5];
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
}
|
2023-03-19 00:13:38 +01:00
|
|
|
}
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-12 21:54:44 +01:00
|
|
|
case 56: /* clo ek r */
|
2023-03-19 00:13:38 +01:00
|
|
|
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 57: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 58: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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")))) && (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] = (car((r[6])));
|
|
|
|
|
r[2] = r[4];
|
|
|
|
|
goto gs_xform_2Dquote;
|
|
|
|
|
} else {
|
|
|
|
|
if ((((r[1]) == (mksymbol(internsym("set!")))) && (1))) {
|
|
|
|
|
r[7] = (cdr((r[6])));
|
|
|
|
|
r[7] = (car((r[7])));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
r[1] = (car((r[6])));
|
|
|
|
|
r[2] = r[7];
|
|
|
|
|
r[3] = r[4];
|
|
|
|
|
goto gs_xform_2Dset_21;
|
|
|
|
|
} else {
|
2023-03-12 21:54:44 +01:00
|
|
|
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 {
|
2023-02-28 06:31:08 +01:00
|
|
|
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("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 {
|
2023-03-07 19:11:46 +01:00
|
|
|
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 {
|
2023-03-10 23:30:41 +01:00
|
|
|
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 {
|
2023-02-28 06:31:08 +01:00
|
|
|
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("define")))) && (1))) {
|
|
|
|
|
r[7] = (cdr((r[6])));
|
|
|
|
|
r[7] = (car((r[7])));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
r[1] = (car((r[6])));
|
|
|
|
|
r[2] = r[7];
|
|
|
|
|
r[3] = r[4];
|
|
|
|
|
goto gs_xform_2Ddefine;
|
|
|
|
|
} else {
|
|
|
|
|
if ((((r[1]) == (mksymbol(internsym("define-syntax")))) && (1))) {
|
|
|
|
|
r[7] = (cdr((r[6])));
|
|
|
|
|
r[7] = (car((r[7])));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
r[1] = (car((r[6])));
|
|
|
|
|
r[2] = r[7];
|
|
|
|
|
r[3] = r[4];
|
|
|
|
|
goto gs_xform_2Ddefine_2Dsyntax;
|
|
|
|
|
} else {
|
2023-03-19 00:13:38 +01:00
|
|
|
{ /* define integrable? */
|
|
|
|
|
static obj c[] = { obj_from_objptr(vmcases+8) };
|
|
|
|
|
r[7] = obj_from_objptr(c); }
|
|
|
|
|
hreserve(hbsz(6+1), 8); /* 8 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[5];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[6];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[4];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = obj_from_case(59);
|
|
|
|
|
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 */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-19 00:13:38 +01:00
|
|
|
rc = 3;
|
2023-02-28 06:31:08 +01:00
|
|
|
goto jump;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
2023-03-07 19:11:46 +01:00
|
|
|
}
|
2023-03-10 23:30:41 +01:00
|
|
|
}
|
|
|
|
|
}
|
2023-03-19 00:13:38 +01:00
|
|
|
|
|
|
|
|
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+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(60);
|
|
|
|
|
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;
|
|
|
|
|
}
|
2023-03-12 21:54:44 +01:00
|
|
|
}
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 60: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 61: /* xform-quote k sexp env */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 4);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
gs_xform_2Dquote: /* k sexp env */
|
|
|
|
|
hreserve(hbsz(1+1), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[0];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(68);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[3] = (hendblk(1+1));
|
|
|
|
|
r[0] = r[3];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
goto s_conv;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 62: /* clo k sexp */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
s_conv: /* k sexp */
|
|
|
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(62);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(63);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
goto s_conv;
|
|
|
|
|
} else {
|
|
|
|
|
if ((isvector((r[1])))) {
|
|
|
|
|
{ /* vector->list */
|
|
|
|
|
obj v, l = mknull(); int c = (vectorlen((r[1])));
|
|
|
|
|
hreserve(hbsz(3)*c, 3); /* 3 live regs */
|
|
|
|
|
v = r[1]; /* gc-safe */
|
|
|
|
|
while (c-- > 0) { *--hp = l; *--hp = hblkref(v, 1+c);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); }
|
|
|
|
|
r[3] = (l); }
|
|
|
|
|
hreserve(hbsz(1+1), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[0];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(67);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(1+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
/* r[2] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v14381;
|
2023-02-28 06:31:08 +01:00
|
|
|
} 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;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 63: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(64);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 64: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v14381: /* k l conv */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(65);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
/* r[2] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v14381;
|
2023-02-28 06:31:08 +01:00
|
|
|
} 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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 65: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(66);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 66: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 67: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r k */
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14907_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[1];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14907_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* list->vector */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj l; int i, c = (v14907_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(c+1), 3); /* 3 live regs */
|
|
|
|
|
l = r[1]; /* gc-safe */
|
|
|
|
|
for (i = 0; i < c; ++i, l = cdr(l)) hp[i-c] = car(l);
|
|
|
|
|
hp -= c; *--hp = obj_from_size(VECTOR_BTAG);
|
|
|
|
|
r[3] = (hendblk(c+1)); } }
|
|
|
|
|
r[4+0] = r[2];
|
|
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = obj_from_ktrap();
|
|
|
|
|
r[4+2] = r[3];
|
|
|
|
|
r += 4; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 68: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 69: /* xform-ref k id env */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 4);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
gs_xform_2Dref: /* k id env */
|
2023-03-03 01:27:09 +01:00
|
|
|
hreserve(hbsz(1+1), 3); /* 3 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[0];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(70);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3] = (hendblk(1+1));
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 70: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+2] = p[1]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r k */
|
2023-02-28 06:31:08 +01:00
|
|
|
if ((issymbol((r[1])))) {
|
|
|
|
|
{ /* cons */
|
2023-03-03 01:27:09 +01:00
|
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3] = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
2023-03-03 01:27:09 +01:00
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = (mksymbol(internsym("ref")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3] = (hendblk(3)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
} else {
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3] = (cdr((r[1])));
|
2023-02-28 06:31:08 +01:00
|
|
|
}
|
2023-03-03 01:27:09 +01:00
|
|
|
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 */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 71: /* xform-set! k id exp env */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 5);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
gs_xform_2Dset_21: /* k id exp env */
|
|
|
|
|
hreserve(hbsz(3+1), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(72);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = obj_from_bool(0);
|
|
|
|
|
/* r[2] */
|
|
|
|
|
/* r[3] */
|
|
|
|
|
goto gs_xform;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 72: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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 id k */
|
|
|
|
|
hreserve(hbsz(2+1), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[4];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(73);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[5] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[2];
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = r[5];
|
|
|
|
|
r[2] = r[3];
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 73: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r k r */
|
|
|
|
|
if ((issymbol((r[1])))) {
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = (mksymbol(internsym("set!")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[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;
|
|
|
|
|
} else {
|
2023-03-01 23:36:24 +01:00
|
|
|
r[4] = (cdr((r[1])));
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = obj_from_bool(!(ispair((r[4]))));
|
|
|
|
|
if (bool_from_obj(r[4])) {
|
2023-03-01 23:36:24 +01:00
|
|
|
(void)(cdr((r[1])) = (r[3]));
|
2023-03-19 00:13:38 +01:00
|
|
|
r[4] = (cx__23484);
|
2023-02-28 06:31:08 +01:00
|
|
|
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 {
|
2023-03-01 23:36:24 +01:00
|
|
|
r[4] = (cdr((r[1])));
|
2023-02-28 06:31:08 +01:00
|
|
|
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_error);
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = r[2];
|
|
|
|
|
r[2] = (mksymbol(internsym("transform")));
|
2023-03-19 00:13:38 +01:00
|
|
|
r[3] = (cx__23469);
|
2023-03-12 21:54:44 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 4;
|
|
|
|
|
goto jump;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 74: /* xform-set& k tail env */
|
2023-03-12 21:54:44 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(75);
|
2023-03-12 21:54:44 +01:00
|
|
|
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 {
|
|
|
|
|
r[3+0] = (cx_error);
|
|
|
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
|
|
|
r[3+1] = r[0];
|
|
|
|
|
r[3+2] = (mksymbol(internsym("transform")));
|
2023-03-19 00:13:38 +01:00
|
|
|
r[3+3] = (cx__23506);
|
2023-03-12 21:54:44 +01:00
|
|
|
r += 3; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 4;
|
|
|
|
|
goto jump;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 75: /* clo ek r */
|
2023-03-12 21:54:44 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r k */
|
|
|
|
|
if ((issymbol((r[1])))) {
|
|
|
|
|
{ /* 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("set&")));
|
|
|
|
|
*--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;
|
|
|
|
|
} else {
|
|
|
|
|
r[3] = (cdr((r[1])));
|
|
|
|
|
r[3] = obj_from_bool(!(ispair((r[3]))));
|
|
|
|
|
if (bool_from_obj(r[3])) {
|
|
|
|
|
r[3+0] = (cx_error);
|
|
|
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
|
|
|
r[3+1] = r[2];
|
|
|
|
|
r[3+2] = (mksymbol(internsym("transform")));
|
2023-03-19 00:13:38 +01:00
|
|
|
r[3+3] = (cx__23512);
|
2023-03-12 21:54:44 +01:00
|
|
|
r += 3; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 4;
|
|
|
|
|
goto jump;
|
|
|
|
|
} else {
|
|
|
|
|
r[3] = (cdr((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_error);
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = r[2];
|
|
|
|
|
r[2] = (mksymbol(internsym("transform")));
|
2023-03-19 00:13:38 +01:00
|
|
|
r[3] = (cx__23512);
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 4;
|
|
|
|
|
goto jump;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 76: /* xform-begin k tail env */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(79);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[3] = (hendblk(1+1));
|
|
|
|
|
r[0] = r[3];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
/* r[2] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v14293;
|
2023-02-28 06:31:08 +01:00
|
|
|
} else {
|
|
|
|
|
r[3+0] = (cx_error);
|
|
|
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
|
|
|
r[3+1] = r[0];
|
|
|
|
|
r[3+2] = (mksymbol(internsym("transform")));
|
2023-03-19 00:13:38 +01:00
|
|
|
r[3+3] = (cx__23535);
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 3; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 4;
|
|
|
|
|
goto jump;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v14293: /* k l env */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(77);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
/* r[2] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v14293;
|
2023-02-28 06:31:08 +01:00
|
|
|
} 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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 77: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(78);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 78: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 79: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 80: /* xform-if k tail env */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 4);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
gs_xform_2Dif: /* k tail env */
|
|
|
|
|
if ((islist((r[1])))) {
|
|
|
|
|
hreserve(hbsz(1+1), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[0];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(83);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[3] = (hendblk(1+1));
|
|
|
|
|
r[0] = r[3];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
/* r[2] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v14262;
|
2023-02-28 06:31:08 +01:00
|
|
|
} else {
|
|
|
|
|
r[3+0] = (cx_error);
|
|
|
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
|
|
|
r[3+1] = r[0];
|
|
|
|
|
r[3+2] = (mksymbol(internsym("transform")));
|
2023-03-19 00:13:38 +01:00
|
|
|
r[3+3] = (cx__23558);
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 3; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 4;
|
|
|
|
|
goto jump;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v14262: /* k l env */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(81);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
/* r[2] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v14262;
|
2023-02-28 06:31:08 +01:00
|
|
|
} 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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 81: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(82);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 82: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 83: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r k */
|
|
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[1];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
|
|
|
r[3] = obj_from_fixnum(n); }
|
|
|
|
|
if (((((r[3]) == obj_from_fixnum(+2)) && ((r[3]) == obj_from_fixnum(+2))) && (1))) {
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14906_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[1];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14906_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* append */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj t, l, o, *p, *d; int c = (v14906_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(3)*c, 4); /* 4 live regs */
|
2023-03-19 00:13:38 +01:00
|
|
|
l = r[1]; t = (cx__23584); /* gc-safe */
|
2023-02-28 06:31:08 +01:00
|
|
|
o = t; p = &o;
|
|
|
|
|
for (; l != mknull(); l = cdr(l)) {
|
|
|
|
|
*--hp = t; d = hp; *--hp = car(l);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
*p = hendblk(3); p = d; }
|
|
|
|
|
r[4] = (o); } }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = (mksymbol(internsym("if")));
|
|
|
|
|
*--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;
|
|
|
|
|
} else {
|
|
|
|
|
if (((((r[3]) == obj_from_fixnum(+3)) && ((r[3]) == obj_from_fixnum(+3))) && (1))) {
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = (mksymbol(internsym("if")));
|
|
|
|
|
*--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;
|
|
|
|
|
} else {
|
|
|
|
|
r[0] = (cx_error);
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = r[2];
|
|
|
|
|
r[2] = (mksymbol(internsym("transform")));
|
2023-03-19 00:13:38 +01:00
|
|
|
r[3] = (cx__23574);
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 4;
|
|
|
|
|
goto jump;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 84: /* xform-call k xexp tail env */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(87);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = r[2];
|
|
|
|
|
r[2] = r[3];
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v14229;
|
2023-02-28 06:31:08 +01:00
|
|
|
} else {
|
|
|
|
|
r[4+0] = (cx_error);
|
|
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = r[0];
|
|
|
|
|
r[4+2] = (mksymbol(internsym("transform")));
|
2023-03-19 00:13:38 +01:00
|
|
|
r[4+3] = (cx__23605);
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 4; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 4;
|
|
|
|
|
goto jump;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v14229: /* k l env */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(85);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
/* r[2] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v14229;
|
2023-02-28 06:31:08 +01:00
|
|
|
} 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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 85: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(86);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 86: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 87: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 88: /* integrable-argc-match? k igt n */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 4);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-19 00:13:38 +01:00
|
|
|
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 {
|
2023-03-20 04:31:28 +01:00
|
|
|
{ const flonum_t v14905_tmp = ((flonum_t)(+0));
|
|
|
|
|
r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14905_tmp)); }
|
2023-03-19 00:13:38 +01:00
|
|
|
}
|
|
|
|
|
} 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 {
|
2023-03-20 04:31:28 +01:00
|
|
|
{ const flonum_t v14904_tmp = ((flonum_t)(+1));
|
|
|
|
|
r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14904_tmp)); }
|
2023-03-19 00:13:38 +01:00
|
|
|
}
|
|
|
|
|
} 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 {
|
2023-03-20 04:31:28 +01:00
|
|
|
{ const flonum_t v14903_tmp = ((flonum_t)(+2));
|
|
|
|
|
r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14903_tmp)); }
|
2023-03-19 00:13:38 +01:00
|
|
|
}
|
|
|
|
|
} 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 {
|
2023-03-20 04:31:28 +01:00
|
|
|
{ const flonum_t v14902_tmp = ((flonum_t)(+3));
|
|
|
|
|
r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14902_tmp)); }
|
2023-03-19 00:13:38 +01:00
|
|
|
}
|
|
|
|
|
} 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 {
|
2023-03-20 04:31:28 +01:00
|
|
|
{ const flonum_t v14901_tmp = ((flonum_t)(+0));
|
|
|
|
|
r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14901_tmp)); }
|
2023-03-19 00:13:38 +01:00
|
|
|
}
|
|
|
|
|
} 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 {
|
2023-03-20 04:31:28 +01:00
|
|
|
{ const flonum_t v14900_tmp = ((flonum_t)(+1));
|
|
|
|
|
r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14900_tmp)); }
|
2023-03-19 00:13:38 +01:00
|
|
|
}
|
|
|
|
|
} 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 {
|
2023-03-20 04:31:28 +01:00
|
|
|
{ const flonum_t v14899_tmp = ((flonum_t)(+2));
|
|
|
|
|
r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14899_tmp)); }
|
2023-03-19 00:13:38 +01:00
|
|
|
}
|
|
|
|
|
} else {
|
|
|
|
|
r[3] = obj_from_bool(0);
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
r[4+0] = r[0];
|
|
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = obj_from_ktrap();
|
|
|
|
|
r[4+2] = r[3];
|
|
|
|
|
r += 4; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
|
|
|
|
case 89: /* 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];
|
2023-03-12 21:54:44 +01:00
|
|
|
*--hp = r[2];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_case(90);
|
|
|
|
|
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 90: /* clo ek r */
|
|
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2];
|
|
|
|
|
r[1+4] = p[3];
|
|
|
|
|
r[1+5] = p[4]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r 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(91);
|
|
|
|
|
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 91: /* clo ek r */
|
|
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2];
|
|
|
|
|
r[1+4] = p[3];
|
|
|
|
|
r[1+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(94);
|
|
|
|
|
r[6] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[6];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
/* r[2] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v14180;
|
2023-03-19 00:13:38 +01:00
|
|
|
} else {
|
|
|
|
|
{ /* define integrable-global */
|
|
|
|
|
static obj c[] = { obj_from_objptr(vmcases+11) };
|
|
|
|
|
r[6] = obj_from_objptr(c); }
|
|
|
|
|
hreserve(hbsz(1+1), 7); /* 7 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = obj_from_case(95);
|
|
|
|
|
r[7] = (hendblk(1+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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v14180: /* k l env */
|
2023-03-19 00:13:38 +01:00
|
|
|
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(92);
|
|
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
/* r[2] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v14180;
|
2023-03-19 00:13:38 +01:00
|
|
|
} 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 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; /* 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(93);
|
|
|
|
|
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 93: /* clo ek r */
|
|
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r k r */
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
r[5+0] = r[2];
|
|
|
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
|
|
|
r[5+1] = obj_from_ktrap();
|
|
|
|
|
r[5+2] = r[4];
|
|
|
|
|
r += 5; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
|
|
|
|
case 94: /* clo ek r */
|
|
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+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 95: /* 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_error);
|
|
|
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
|
|
|
r[3+1] = r[2];
|
|
|
|
|
r[3+2] = (mksymbol(internsym("transform")));
|
|
|
|
|
r[3+3] = (cx__23738);
|
|
|
|
|
r[3+4] = (r[1]);
|
|
|
|
|
r += 3; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 5;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
|
|
|
|
case 96: /* 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(97);
|
2023-03-12 21:54:44 +01:00
|
|
|
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);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4+2] = r[2];
|
2023-03-12 21:54:44 +01:00
|
|
|
r[4+3] = r[1];
|
|
|
|
|
r[4+4] = r[0];
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 4; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_l_v14094;
|
2023-03-12 21:54:44 +01:00
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 97: /* clo ek r */
|
2023-03-12 21:54:44 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2];
|
|
|
|
|
r[1+4] = p[3]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_l_v14094: /* ek r env tail k */
|
2023-03-12 21:54:44 +01:00
|
|
|
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);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v14095;
|
2023-02-28 06:31:08 +01:00
|
|
|
} else {
|
2023-03-12 21:54:44 +01:00
|
|
|
r[5+0] = (cx_error);
|
|
|
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
|
|
|
r[5+1] = r[4];
|
|
|
|
|
r[5+2] = (mksymbol(internsym("transform")));
|
2023-03-19 00:13:38 +01:00
|
|
|
r[5+3] = (cx__23759);
|
2023-03-12 21:54:44 +01:00
|
|
|
r[5+4] = (r[3]);
|
|
|
|
|
r += 5; /* shift reg wnd */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-12 21:54:44 +01:00
|
|
|
rc = 5;
|
2023-02-28 06:31:08 +01:00
|
|
|
goto jump;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 98: /* clo k vars ienv ipars */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 5);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+4] = p[1]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v14095: /* k vars ienv ipars tail */
|
2023-02-28 06:31:08 +01:00
|
|
|
if ((ispair((r[1])))) {
|
|
|
|
|
r[5] = (car((r[1])));
|
|
|
|
|
hreserve(hbsz(1+1), 6); /* 6 live regs */
|
|
|
|
|
*--hp = r[4];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(98);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(99);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(102);
|
2023-02-28 06:31:08 +01:00
|
|
|
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[3];
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(103);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[5] = (hendblk(5+1));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
goto gs_id_2D_3Esym;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 99: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(100);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 100: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(101);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 101: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 102: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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)); }
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14898_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[3];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14898_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* reverse */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj l, o = mknull(); int c = (v14898_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 103: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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 k ipars */
|
|
|
|
|
hreserve(hbsz(5+1), 7); /* 7 live regs */
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[2];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(104);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 104: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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 k ipars */
|
|
|
|
|
hreserve(hbsz(4+1), 7); /* 7 live regs */
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(105);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 105: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(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 k r ipars */
|
|
|
|
|
hreserve(hbsz(3+1), 6); /* 6 live regs */
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(106);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 106: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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 ipars */
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[5] = (hendblk(3)); }
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14896_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[4];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14896_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* reverse */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj l, o = mknull(); int c = (v14896_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(3)*c, 6); /* 6 live regs */
|
|
|
|
|
l = r[4]; /* gc-safe */
|
|
|
|
|
for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }
|
|
|
|
|
r[6] = (o); } }
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14897_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[6];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14897_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* append */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj t, l, o, *p, *d; int c = (v14897_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(3)*c, 7); /* 7 live regs */
|
|
|
|
|
l = r[6]; t = r[3]; /* gc-safe */
|
|
|
|
|
o = t; p = &o;
|
|
|
|
|
for (; l != mknull(); l = cdr(l)) {
|
|
|
|
|
*--hp = t; d = hp; *--hp = car(l);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
*p = hendblk(3); p = d; }
|
|
|
|
|
r[6] = (o); } }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 7); /* 7 live regs */
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[6] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 7); /* 7 live regs */
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = (mksymbol(internsym("lambda")));
|
|
|
|
|
*--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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 107: /* xform-lambda* k tail env */
|
2023-03-07 19:11:46 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(113);
|
2023-03-07 19:11:46 +01:00
|
|
|
r[3] = (hendblk(1+1));
|
|
|
|
|
r[0] = r[3];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
/* r[2] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v14050;
|
2023-03-07 19:11:46 +01:00
|
|
|
} else {
|
|
|
|
|
r[3+0] = (cx_error);
|
|
|
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
|
|
|
r[3+1] = r[0];
|
|
|
|
|
r[3+2] = (mksymbol(internsym("transform")));
|
2023-03-19 00:13:38 +01:00
|
|
|
r[3+3] = (cx__23803);
|
2023-03-07 19:11:46 +01:00
|
|
|
r += 3; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 4;
|
|
|
|
|
goto jump;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v14050: /* k l env */
|
2023-03-07 19:11:46 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(108);
|
2023-03-07 19:11:46 +01:00
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
/* r[2] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v14050;
|
2023-03-07 19:11:46 +01:00
|
|
|
} 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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 108: /* clo ek r */
|
2023-03-07 19:11:46 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(109);
|
2023-03-07 19:11:46 +01:00
|
|
|
r[6] = (hendblk(2+1));
|
2023-03-12 21:54:44 +01:00
|
|
|
hreserve(hbsz(3+1), 7); /* 7 live regs */
|
2023-03-07 19:11:46 +01:00
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[5];
|
2023-03-12 21:54:44 +01:00
|
|
|
*--hp = r[2];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(110);
|
2023-03-12 21:54:44 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(109);
|
2023-03-12 21:54:44 +01:00
|
|
|
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];
|
2023-03-07 19:11:46 +01:00
|
|
|
r += 9; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_l_v14054;
|
2023-03-07 19:11:46 +01:00
|
|
|
} else {
|
2023-03-12 21:54:44 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(109);
|
2023-03-12 21:54:44 +01:00
|
|
|
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 */
|
2023-03-07 19:11:46 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_l_v14054;
|
2023-03-07 19:11:46 +01:00
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 109: /* clo ek r */
|
2023-03-07 19:11:46 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 110: /* clo ek r */
|
2023-03-12 21:54:44 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2];
|
|
|
|
|
r[1+4] = p[3]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_l_v14054: /* ek r env aexp k */
|
2023-03-12 21:54:44 +01:00
|
|
|
if (bool_from_obj(r[1])) {
|
|
|
|
|
hreserve(hbsz(2+1), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(111);
|
2023-03-12 21:54:44 +01:00
|
|
|
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_error);
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = r[4];
|
|
|
|
|
r[2] = (mksymbol(internsym("transform")));
|
2023-03-19 00:13:38 +01:00
|
|
|
r[3] = (cx__23805);
|
2023-03-12 21:54:44 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 4;
|
|
|
|
|
goto jump;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 111: /* clo ek r */
|
2023-03-07 19:11:46 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(112);
|
2023-03-07 19:11:46 +01:00
|
|
|
r[5] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
r[1] = (car((r[2])));
|
|
|
|
|
goto gs_normalize_2Darity;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 112: /* clo ek r */
|
2023-03-07 19:11:46 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 113: /* clo ek r */
|
2023-03-07 19:11:46 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 114: /* xform-letcc k tail env */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 4);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-10 23:30:41 +01:00
|
|
|
gs_xform_2Dletcc: /* k tail env */
|
2023-03-11 07:50:00 +01:00
|
|
|
if (bool_from_obj(cxs_list2_2B_3F((r[1])))) {
|
2023-03-10 23:30:41 +01:00
|
|
|
r[3] = (car((r[1])));
|
|
|
|
|
r[3] = (cxs_id_3F((r[3])));
|
2023-02-28 06:31:08 +01:00
|
|
|
} else {
|
2023-03-10 23:30:41 +01:00
|
|
|
r[3] = obj_from_bool(0);
|
2023-02-28 06:31:08 +01:00
|
|
|
}
|
2023-03-10 23:30:41 +01:00
|
|
|
if (bool_from_obj(r[3])) {
|
|
|
|
|
r[3] = (car((r[1])));
|
|
|
|
|
hreserve(hbsz(4+1), 4); /* 4 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[3];
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = r[2];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(115);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[4] = (hendblk(4+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
goto gs_id_2D_3Esym;
|
2023-02-28 06:31:08 +01:00
|
|
|
} else {
|
2023-03-10 23:30:41 +01:00
|
|
|
r[3+0] = (cx_error);
|
|
|
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
|
|
|
r[3+1] = r[0];
|
|
|
|
|
r[3+2] = (mksymbol(internsym("transform")));
|
2023-03-19 00:13:38 +01:00
|
|
|
r[3+3] = (cx__23842);
|
2023-03-10 23:30:41 +01:00
|
|
|
r += 3; /* shift reg wnd */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-10 23:30:41 +01:00
|
|
|
rc = 4;
|
|
|
|
|
goto jump;
|
2023-02-28 06:31:08 +01:00
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 115: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2];
|
|
|
|
|
r[1+4] = p[3];
|
2023-03-10 23:30:41 +01:00
|
|
|
r[1+5] = p[4]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(116);
|
2023-03-10 23:30:41 +01:00
|
|
|
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 */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-10 23:30:41 +01:00
|
|
|
rc = 3;
|
2023-02-28 06:31:08 +01:00
|
|
|
goto jump;
|
2023-03-10 23:30:41 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 116: /* clo ek r */
|
2023-03-10 23:30:41 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(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];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[4];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(117);
|
2023-03-10 23:30:41 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 117: /* clo ek r */
|
2023-03-10 23:30:41 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(118);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[5] = (hendblk(2+1));
|
2023-03-11 07:50:00 +01:00
|
|
|
r[6+0] = r[5];
|
|
|
|
|
r[6+1] = (cdr((r[2])));
|
|
|
|
|
r[6+2] = r[1];
|
|
|
|
|
r += 6; /* shift reg wnd */
|
2023-03-10 23:30:41 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-11 07:50:00 +01:00
|
|
|
goto gs_xform_2Dbody;
|
2023-03-10 23:30:41 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 118: /* clo ek r */
|
2023-03-10 23:30:41 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 119: /* xform-withcc k tail env */
|
2023-03-10 23:30:41 +01:00
|
|
|
assert(rc == 4);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
gs_xform_2Dwithcc: /* k tail env */
|
2023-03-11 07:50:00 +01:00
|
|
|
if (bool_from_obj(cxs_list2_2B_3F((r[1])))) {
|
2023-03-10 23:30:41 +01:00
|
|
|
hreserve(hbsz(3+1), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(120);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[3] = (hendblk(3+1));
|
2023-03-11 07:50:00 +01:00
|
|
|
r[0] = r[3];
|
|
|
|
|
r[1] = (cdr((r[1])));
|
|
|
|
|
/* r[2] */
|
|
|
|
|
goto gs_xform_2Dbody;
|
2023-03-10 23:30:41 +01:00
|
|
|
} else {
|
|
|
|
|
r[3+0] = (cx_error);
|
|
|
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
|
|
|
r[3+1] = r[0];
|
|
|
|
|
r[3+2] = (mksymbol(internsym("transform")));
|
2023-03-19 00:13:38 +01:00
|
|
|
r[3+3] = (cx__23856);
|
2023-03-10 23:30:41 +01:00
|
|
|
r += 3; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 4;
|
|
|
|
|
goto jump;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 120: /* clo ek r */
|
2023-03-10 23:30:41 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(121);
|
2023-03-10 23:30:41 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 121: /* clo ek r */
|
2023-03-10 23:30:41 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 122: /* xform-body k tail env */
|
2023-03-10 23:30:41 +01:00
|
|
|
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 {
|
|
|
|
|
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);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v13935;
|
2023-03-10 23:30:41 +01:00
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 123: /* clo k env ids inits nids body */
|
2023-03-10 23:30:41 +01:00
|
|
|
assert(rc == 7);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v13935: /* k env ids inits nids body */
|
2023-03-10 23:30:41 +01:00
|
|
|
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])));
|
|
|
|
|
hreserve(hbsz(0+1), 9); /* 9 live regs */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(123);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[9] = (hendblk(0+1));
|
|
|
|
|
hreserve(hbsz(9+1), 10); /* 10 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = r[9];
|
|
|
|
|
*--hp = r[5];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(124);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[9] = (hendblk(9+1));
|
|
|
|
|
r[10+0] = r[9];
|
|
|
|
|
r[10+1] = obj_from_bool(1);
|
|
|
|
|
r[10+2] = r[8];
|
|
|
|
|
r[10+3] = r[1];
|
|
|
|
|
r += 10; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
goto gs_xform;
|
|
|
|
|
} else {
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14895_tmp;
|
2023-03-10 23:30:41 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[2];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14895_tmp = (n); }
|
2023-03-10 23:30:41 +01:00
|
|
|
{ /* reverse */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj l, o = mknull(); int c = (v14895_tmp);
|
2023-03-10 23:30:41 +01:00
|
|
|
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); } }
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14894_tmp;
|
2023-03-10 23:30:41 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[3];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14894_tmp = (n); }
|
2023-03-10 23:30:41 +01:00
|
|
|
{ /* reverse */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj l, o = mknull(); int c = (v14894_tmp);
|
2023-03-10 23:30:41 +01:00
|
|
|
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); } }
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14893_tmp;
|
2023-03-10 23:30:41 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[4];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14893_tmp = (n); }
|
2023-03-10 23:30:41 +01:00
|
|
|
{ /* reverse */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj l, o = mknull(); int c = (v14893_tmp);
|
2023-03-10 23:30:41 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 124: /* clo ek r */
|
2023-03-10 23:30:41 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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 body loop rest first nids inits ids env k */
|
|
|
|
|
if ((((r[1]) == (mksymbol(internsym("begin")))) && (1))) {
|
|
|
|
|
r[11] = (cdr((r[5])));
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14892_tmp;
|
2023-03-10 23:30:41 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = (r[11]);
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14892_tmp = (n); }
|
2023-03-10 23:30:41 +01:00
|
|
|
{ /* append */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj t, l, o, *p, *d; int c = (v14892_tmp);
|
2023-03-10 23:30:41 +01:00
|
|
|
hreserve(hbsz(3)*c, 12); /* 12 live regs */
|
|
|
|
|
l = (r[11]); t = r[4]; /* gc-safe */
|
|
|
|
|
o = t; p = &o;
|
|
|
|
|
for (; l != mknull(); l = cdr(l)) {
|
|
|
|
|
*--hp = t; d = hp; *--hp = car(l);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
*p = hendblk(3); p = d; }
|
|
|
|
|
r[11] = (o); } }
|
|
|
|
|
r[12+0] = r[3];
|
|
|
|
|
pc = objptr_from_obj(r[12+0])[0];
|
|
|
|
|
r[12+1] = (r[10]);
|
|
|
|
|
r[12+2] = r[9];
|
|
|
|
|
r[12+3] = r[8];
|
|
|
|
|
r[12+4] = r[7];
|
|
|
|
|
r[12+5] = r[6];
|
|
|
|
|
r[12+6] = (r[11]);
|
|
|
|
|
r += 12; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 7;
|
|
|
|
|
goto jump;
|
|
|
|
|
} else {
|
|
|
|
|
if ((((r[1]) == (mksymbol(internsym("define")))) && (1))) {
|
|
|
|
|
r[11] = (cdr((r[5])));
|
|
|
|
|
r[11] = (car((r[11])));
|
|
|
|
|
r[12] = (cdr((r[5])));
|
|
|
|
|
r[12] = (cdr((r[12])));
|
|
|
|
|
r[12] = (car((r[12])));
|
|
|
|
|
hreserve(hbsz(9+1), 13); /* 13 live regs */
|
|
|
|
|
*--hp = (r[10]);
|
|
|
|
|
*--hp = (r[11]);
|
|
|
|
|
*--hp = r[8];
|
|
|
|
|
*--hp = (r[12]);
|
|
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[9];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(125);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[13] = (hendblk(9+1));
|
|
|
|
|
r[0] = (r[13]);
|
|
|
|
|
r[1] = (r[11]);
|
|
|
|
|
goto gs_id_2D_3Esym;
|
|
|
|
|
} else {
|
|
|
|
|
if ((((r[1]) == (mksymbol(internsym("define-syntax")))) && (1))) {
|
|
|
|
|
r[11] = (cdr((r[5])));
|
|
|
|
|
r[11] = (car((r[11])));
|
|
|
|
|
r[12] = (cdr((r[5])));
|
|
|
|
|
r[12] = (cdr((r[12])));
|
|
|
|
|
r[12] = (car((r[12])));
|
|
|
|
|
hreserve(hbsz(8+1), 13); /* 13 live regs */
|
|
|
|
|
*--hp = (r[10]);
|
|
|
|
|
*--hp = (r[11]);
|
|
|
|
|
*--hp = r[8];
|
|
|
|
|
*--hp = (r[12]);
|
|
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(128);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[13] = (hendblk(8+1));
|
|
|
|
|
r[0] = (r[13]);
|
|
|
|
|
r[1] = (r[11]);
|
2023-03-19 00:13:38 +01:00
|
|
|
r[2] = (cx__23906);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[3] = r[9];
|
|
|
|
|
goto gs_add_2Dbinding;
|
|
|
|
|
} else {
|
|
|
|
|
if ((isprocedure((r[1])))) {
|
|
|
|
|
hreserve(hbsz(7+1), 11); /* 11 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = (r[10]);
|
|
|
|
|
*--hp = r[9];
|
|
|
|
|
*--hp = r[8];
|
|
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(129);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[11] = (hendblk(7+1));
|
|
|
|
|
r[0] = r[1];
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = (r[11]);
|
|
|
|
|
r[2] = r[5];
|
|
|
|
|
r[3] = r[9];
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 4;
|
|
|
|
|
goto jump;
|
|
|
|
|
} else {
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14891_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[8];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14891_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* reverse */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj l, o = mknull(); int c = (v14891_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(3)*c, 11); /* 11 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[11] = (o); } }
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14890_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[7];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14890_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* reverse */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj l, o = mknull(); int c = (v14890_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(3)*c, 12); /* 12 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[12] = (o); } }
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14889_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[6];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14889_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* reverse */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj l, o = mknull(); int c = (v14889_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(3)*c, 13); /* 13 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[13] = (o); } }
|
|
|
|
|
r[14+0] = (r[10]);
|
|
|
|
|
r[14+1] = (r[11]);
|
|
|
|
|
r[14+2] = (r[12]);
|
|
|
|
|
r[14+3] = (r[13]);
|
|
|
|
|
r[14+4] = r[2];
|
|
|
|
|
r[14+5] = r[9];
|
|
|
|
|
r += 14; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
goto gs_xform_2Dlabels;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 125: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(126);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 126: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(127);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 127: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 128: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 129: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 130: /* xform-labels k ids inits nids body env */
|
2023-02-28 06:31:08 +01:00
|
|
|
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);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v13850;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 131: /* clo k ids inits nids sets lids */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v13850: /* k ids inits nids sets lids env body */
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(2+1), 8); /* 8 live regs */
|
|
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = r[6];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(131);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[8] = (hendblk(2+1));
|
|
|
|
|
if ((isnull((r[1])))) {
|
|
|
|
|
hreserve(hbsz(3+1), 9); /* 9 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[0];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(134);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[9] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[9];
|
|
|
|
|
r[1] = r[7];
|
|
|
|
|
r[2] = r[6];
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v13892;
|
2023-02-28 06:31:08 +01:00
|
|
|
} 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(137);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[9] = (hendblk(7+1));
|
|
|
|
|
r[0] = r[9];
|
|
|
|
|
r[1] = (car((r[1])));
|
|
|
|
|
r[2] = (car((r[2])));
|
|
|
|
|
r[3] = 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(138);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v13892: /* k l env */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(132);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
/* r[2] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v13892;
|
2023-02-28 06:31:08 +01:00
|
|
|
} 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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 132: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(133);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 133: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 134: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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 lids sets */
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14887_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[4];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14887_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* reverse */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj l, o = mknull(); int c = (v14887_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(3)*c, 5); /* 5 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[5] = (o); } }
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14888_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[5];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14888_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* append */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj t, l, o, *p, *d; int c = (v14888_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(3)*c, 6); /* 6 live regs */
|
|
|
|
|
l = r[5]; t = r[1]; /* gc-safe */
|
|
|
|
|
o = t; p = &o;
|
|
|
|
|
for (; l != mknull(); l = cdr(l)) {
|
|
|
|
|
*--hp = t; d = hp; *--hp = car(l);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
*p = hendblk(3); p = d; }
|
|
|
|
|
r[6] = (o); } }
|
|
|
|
|
if ((ispair((r[6])))) {
|
|
|
|
|
r[7] = (cdr((r[6])));
|
|
|
|
|
r[7] = obj_from_bool(isnull((r[7])));
|
|
|
|
|
} else {
|
|
|
|
|
r[7] = obj_from_bool(0);
|
|
|
|
|
}
|
|
|
|
|
if (bool_from_obj(r[7])) {
|
|
|
|
|
r[7] = (car((r[6])));
|
|
|
|
|
} else {
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 7); /* 7 live regs */
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = (mksymbol(internsym("begin")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[7] = (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[7];
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
} else {
|
|
|
|
|
hreserve(hbsz(3+1), 8); /* 8 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(136);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[8] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[8];
|
|
|
|
|
r[1] = r[3];
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v13877;
|
2023-02-28 06:31:08 +01:00
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v13877: /* k l */
|
2023-02-28 06:31:08 +01:00
|
|
|
if ((ispair((r[1])))) {
|
|
|
|
|
r[2] = (cdr((r[1])));
|
|
|
|
|
hreserve(hbsz(1+1), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[0];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(135);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[3] = (hendblk(1+1));
|
|
|
|
|
r[0] = r[3];
|
|
|
|
|
r[1] = r[2];
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v13877;
|
2023-02-28 06:31:08 +01:00
|
|
|
} 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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 135: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = (cx__231011);
|
2023-02-28 06:31:08 +01:00
|
|
|
*--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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 136: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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)); }
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14886_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[2];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14886_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* reverse */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj l, o = mknull(); int c = (v14886_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 137: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 138: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(139);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 139: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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 */
|
2023-03-01 23:36:24 +01:00
|
|
|
(void)(cdr((r[9])) = (r[1]));
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 140: /* xform-define k id exp env */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 5);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
gs_xform_2Ddefine: /* k id exp env */
|
|
|
|
|
if (bool_from_obj(cxs_id_3F((r[1])))) {
|
|
|
|
|
hreserve(hbsz(2+1), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(141);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = obj_from_bool(0);
|
|
|
|
|
/* r[2] */
|
|
|
|
|
/* r[3] */
|
|
|
|
|
goto gs_xform;
|
|
|
|
|
} else {
|
|
|
|
|
r[4+0] = (cx_error);
|
|
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = r[0];
|
|
|
|
|
r[4+2] = (mksymbol(internsym("transform")));
|
2023-03-19 00:13:38 +01:00
|
|
|
r[4+3] = (cx__231041);
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 4; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 4;
|
|
|
|
|
goto jump;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 141: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r id k */
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
hreserve(hbsz(2+1), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(142);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[5] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
r[1] = r[2];
|
|
|
|
|
goto gs_id_2D_3Esym;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 142: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 143: /* xform-define-syntax k id exp env */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 5);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
gs_xform_2Ddefine_2Dsyntax: /* k id exp env */
|
|
|
|
|
if (bool_from_obj(cxs_id_3F((r[1])))) {
|
|
|
|
|
hreserve(hbsz(2+1), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(144);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = obj_from_bool(1);
|
|
|
|
|
/* r[2] */
|
|
|
|
|
/* r[3] */
|
|
|
|
|
goto gs_xform;
|
|
|
|
|
} else {
|
|
|
|
|
r[4+0] = (cx_error);
|
|
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = r[0];
|
|
|
|
|
r[4+2] = (mksymbol(internsym("transform")));
|
2023-03-19 00:13:38 +01:00
|
|
|
r[4+3] = (cx__231051);
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 4; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 4;
|
|
|
|
|
goto jump;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 144: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r id k */
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
hreserve(hbsz(2+1), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(145);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[5] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
r[1] = r[2];
|
|
|
|
|
goto gs_id_2D_3Esym;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 145: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 146: /* clo k sexp env */
|
2023-03-01 23:36:24 +01:00
|
|
|
assert(rc == 4);
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-01 23:36:24 +01:00
|
|
|
/* k sexp env */
|
|
|
|
|
r[3+0] = (cx_error);
|
|
|
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
|
|
|
r[3+1] = r[0];
|
|
|
|
|
r[3+2] = (mksymbol(internsym("...")));
|
|
|
|
|
r[3+3] = (r[1]);
|
|
|
|
|
r += 3; /* shift reg wnd */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-01 23:36:24 +01:00
|
|
|
rc = 4;
|
2023-02-28 06:31:08 +01:00
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 147: /* top-transformer-env k id */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
gs_top_2Dtransformer_2Denv: /* k id */
|
|
|
|
|
{ /* assq */
|
|
|
|
|
obj x = (r[1]), l = (cx__2Atransformers_2A), p = mknull();
|
|
|
|
|
for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
|
|
|
|
|
r[2] = (l == mknull() ? obj_from_bool(0) : p); }
|
|
|
|
|
if ((ispair((r[2])))) {
|
|
|
|
|
r[3] = (cdr((r[2])));
|
|
|
|
|
if ((ispair((r[3])))) {
|
|
|
|
|
r[4] = (car((r[3])));
|
|
|
|
|
r[4] = obj_from_bool((r[4]) == (mksymbol(internsym("syntax-rules"))));
|
|
|
|
|
} else {
|
|
|
|
|
r[4] = obj_from_bool(0);
|
|
|
|
|
}
|
|
|
|
|
if (bool_from_obj(r[4])) {
|
|
|
|
|
hreserve(hbsz(2+1), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[0];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(148);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[4] = (hendblk(2+1));
|
|
|
|
|
r[5+0] = (cx_transform);
|
|
|
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
|
|
|
r[5+1] = r[4];
|
|
|
|
|
r[5+2] = obj_from_bool(1);
|
|
|
|
|
r[5+3] = r[3];
|
|
|
|
|
r += 5; /* shift reg wnd */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-03 01:27:09 +01:00
|
|
|
rc = 4;
|
|
|
|
|
goto jump;
|
|
|
|
|
} else {
|
|
|
|
|
/* r[0] */
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = obj_from_ktrap();
|
|
|
|
|
/* r[2] */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
}
|
|
|
|
|
} else {
|
|
|
|
|
if ((issymbol((r[1])))) {
|
2023-03-19 00:13:38 +01:00
|
|
|
{ /* define lookup-integrable */
|
|
|
|
|
static obj c[] = { obj_from_objptr(vmcases+9) };
|
|
|
|
|
r[3] = obj_from_objptr(c); }
|
|
|
|
|
hreserve(hbsz(2+1), 4); /* 4 live regs */
|
2023-03-03 01:27:09 +01:00
|
|
|
*--hp = r[1];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = obj_from_case(149);
|
|
|
|
|
r[4] = (hendblk(2+1));
|
|
|
|
|
r[5+0] = r[3];
|
|
|
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
|
|
|
r[5+1] = r[4];
|
|
|
|
|
r[5+2] = r[1];
|
|
|
|
|
r += 5; /* shift reg wnd */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
2023-03-03 01:27:09 +01:00
|
|
|
} else {
|
|
|
|
|
hreserve(hbsz(1+1), 3); /* 3 live regs */
|
2023-03-01 23:36:24 +01:00
|
|
|
*--hp = r[0];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(150);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3] = (hendblk(1+1));
|
|
|
|
|
r[4+0] = r[1];
|
|
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = r[3];
|
|
|
|
|
r += 4; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 2;
|
|
|
|
|
goto jump;
|
|
|
|
|
}
|
|
|
|
|
}
|
2023-03-01 23:36:24 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 148: /* clo ek r */
|
2023-03-01 23:36:24 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+3] = p[2]; }
|
2023-03-01 23:36:24 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r k bnd */
|
|
|
|
|
(void)(cdr((r[3])) = (r[1]));
|
|
|
|
|
r[0] = r[2];
|
2023-03-01 23:36:24 +01:00
|
|
|
pc = objptr_from_obj(r[0])[0];
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1] = obj_from_ktrap();
|
|
|
|
|
r[2] = r[3];
|
2023-03-01 23:36:24 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 149: /* clo ek r */
|
|
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r k 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)); }
|
|
|
|
|
}
|
|
|
|
|
{ /* 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 = (cx__2Atransformers_2A);
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
cx__2Atransformers_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;
|
|
|
|
|
|
|
|
|
|
case 150: /* clo ek r */
|
2023-03-01 23:36:24 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+2] = p[1]; }
|
2023-03-01 23:36:24 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* 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 */
|
2023-03-01 23:36:24 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-03 01:27:09 +01:00
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 151: /* install-transformer! k s t */
|
2023-03-03 01:27:09 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(152);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[3];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
goto gs_top_2Dtransformer_2Denv;
|
2023-03-01 23:36:24 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 152: /* clo ek r */
|
2023-03-01 23:36:24 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r k t */
|
2023-03-01 23:36:24 +01:00
|
|
|
r[4+0] = r[2];
|
|
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = obj_from_ktrap();
|
2023-03-03 01:27:09 +01:00
|
|
|
r[4+2] = obj_from_void(cdr((r[1])) = (r[3]));
|
2023-03-01 23:36:24 +01:00
|
|
|
r += 4; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 153: /* install-transformer-rules! k s ell lits rules */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 6);
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* k s ell lits rules */
|
|
|
|
|
hreserve(hbsz(2+1), 5); /* 5 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(154);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[5] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
r[1] = (cx_top_2Dtransformer_2Denv);
|
2023-02-28 06:31:08 +01:00
|
|
|
/* r[2] */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* r[3] */
|
|
|
|
|
/* r[4] */
|
|
|
|
|
goto gs_syntax_2Drules_2A;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 154: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
2023-02-28 06:31:08 +01:00
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+3] = p[2]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r s k */
|
|
|
|
|
hreserve(hbsz(2+1), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(155);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[4] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = r[2];
|
|
|
|
|
goto gs_top_2Dtransformer_2Denv;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 155: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
2023-03-03 01:27:09 +01:00
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r k r */
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4+0] = r[2];
|
2023-03-03 01:27:09 +01:00
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = obj_from_ktrap();
|
|
|
|
|
r[4+2] = obj_from_void(cdr((r[1])) = (r[3]));
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 4; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-03 01:27:09 +01:00
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 156: /* clo k appos? sexp optenv */
|
2023-03-01 23:36:24 +01:00
|
|
|
assert(rc == 5);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* k appos? sexp optenv */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* r[0] */
|
|
|
|
|
/* r[1] */
|
|
|
|
|
/* r[2] */
|
|
|
|
|
r[3] = ((isnull((r[3]))) ? (cx_top_2Dtransformer_2Denv) : (car((r[3]))));
|
2023-03-01 23:36:24 +01:00
|
|
|
goto gs_xform;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 157: /* syntax-rules* k mac-env ellipsis pat-literals rules */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(159);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[5] = (hendblk(2+1));
|
|
|
|
|
hreserve(hbsz(1+1), 6); /* 6 live regs */
|
|
|
|
|
*--hp = r[5];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(161);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[6] = (hendblk(1+1));
|
|
|
|
|
hreserve(hbsz(1+1), 7); /* 7 live regs */
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(158);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(167);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 158: /* clo k id */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 159: /* clo k x */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(160);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 160: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r k */
|
|
|
|
|
r[3+0] = r[2];
|
|
|
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
|
|
|
r[3+1] = obj_from_ktrap();
|
|
|
|
|
r[3+2] = obj_from_bool((r[1]) == (cx_denotation_2Dof_2Ddefault_2Dellipsis));
|
|
|
|
|
r += 3; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 161: /* clo k x include-scalars pred? */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 162: /* clo k x inc l */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(162);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(163);
|
2023-02-28 06:31:08 +01:00
|
|
|
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);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_l_v13675;
|
2023-02-28 06:31:08 +01:00
|
|
|
}
|
|
|
|
|
} else {
|
|
|
|
|
if ((isvector((r[1])))) {
|
|
|
|
|
{ /* vector->list */
|
|
|
|
|
obj v, l = mknull(); int c = (vectorlen((r[1])));
|
|
|
|
|
hreserve(hbsz(3)*c, 7); /* 7 live regs */
|
|
|
|
|
v = r[1]; /* gc-safe */
|
|
|
|
|
while (c-- > 0) { *--hp = l; *--hp = hblkref(v, 1+c);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); }
|
|
|
|
|
r[7] = (l); }
|
|
|
|
|
/* r[0] */
|
|
|
|
|
r[1] = r[7];
|
|
|
|
|
/* r[2] */
|
|
|
|
|
/* r[3] */
|
|
|
|
|
/* r[4] */
|
|
|
|
|
/* r[5] */
|
|
|
|
|
goto s_collect;
|
|
|
|
|
} 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(164);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 163: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2];
|
|
|
|
|
r[1+4] = p[3]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_l_v13675: /* ek r k l x */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 164: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(165);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(166);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 165: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 166: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 167: /* clo k use use-env */
|
2023-02-28 06:31:08 +01:00
|
|
|
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);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v13355;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 168: /* clo k rules */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v13355: /* k rules use-env pat-literals use mac-env not-pat-literal? ellipsis-pair? list-ids */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(168);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(169);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[9] = (hendblk(10+1));
|
|
|
|
|
if ((isnull((r[1])))) {
|
|
|
|
|
r[0] = (cx_error);
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = r[9];
|
|
|
|
|
r[2] = (mksymbol(internsym("transform")));
|
2023-03-19 00:13:38 +01:00
|
|
|
r[3] = (cx__231490);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (r[4]);
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 5;
|
|
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(168);
|
2023-02-28 06:31:08 +01:00
|
|
|
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);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_l_v13357;
|
2023-02-28 06:31:08 +01:00
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 169: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_l_v13357: /* ek . use-env pat-literals use loop mac-env not-pat-literal? ellipsis-pair? list-ids k rules */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(170);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(194);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 170: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(171);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[13] = (hendblk(10+1));
|
|
|
|
|
hreserve(hbsz(1+1), 14); /* 14 live regs */
|
|
|
|
|
*--hp = r[1];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(193);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 171: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(175);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[12] = (hendblk(9+1));
|
|
|
|
|
r[0] = (r[12]);
|
|
|
|
|
/* r[1] */
|
|
|
|
|
/* r[2] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v13608;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v13608: /* k l mac-env */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(172);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
/* r[2] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v13608;
|
2023-02-28 06:31:08 +01:00
|
|
|
} 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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 172: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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(3+1), 6); /* 6 live regs */
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(173);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[6] = (hendblk(3+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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 173: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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 */
|
|
|
|
|
hreserve(hbsz(3+1), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[2];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(174);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[5] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
goto gs_new_2Did;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 174: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 175: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(176);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 176: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 177: /* clo k tmpl bindings */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(177);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 178: /* clo k tmpl */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(178);
|
2023-02-28 06:31:08 +01:00
|
|
|
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])))) {
|
|
|
|
|
{ /* vector->list */
|
|
|
|
|
obj v, l = mknull(); int c = (vectorlen((r[1])));
|
|
|
|
|
hreserve(hbsz(3)*c, 10); /* 10 live regs */
|
|
|
|
|
v = r[1]; /* gc-safe */
|
|
|
|
|
while (c-- > 0) { *--hp = l; *--hp = hblkref(v, 1+c);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); }
|
|
|
|
|
r[10] = (l); }
|
|
|
|
|
hreserve(hbsz(1+1), 11); /* 11 live regs */
|
|
|
|
|
*--hp = r[0];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(179);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[11] = (hendblk(1+1));
|
|
|
|
|
r[0] = (r[11]);
|
|
|
|
|
r[1] = (r[10]);
|
|
|
|
|
/* r[2] */
|
|
|
|
|
/* r[3] */
|
|
|
|
|
/* r[4] */
|
|
|
|
|
/* r[5] */
|
|
|
|
|
/* r[6] */
|
|
|
|
|
/* r[7] */
|
|
|
|
|
/* r[8] */
|
|
|
|
|
goto s_expand_2Dpart;
|
|
|
|
|
} 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(180);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[10] = (hendblk(7+1));
|
2023-03-18 21:07:10 +01:00
|
|
|
if ((ispair((r[1])))) {
|
2023-02-28 06:31:08 +01:00
|
|
|
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 {
|
2023-03-18 21:07:10 +01:00
|
|
|
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 */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_l_v13502;
|
2023-02-28 06:31:08 +01:00
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 179: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r k */
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14885_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[1];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14885_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* list->vector */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj l; int i, c = (v14885_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(c+1), 3); /* 3 live regs */
|
|
|
|
|
l = r[1]; /* gc-safe */
|
|
|
|
|
for (i = 0; i < c; ++i, l = cdr(l)) hp[i-c] = car(l);
|
|
|
|
|
hp -= c; *--hp = obj_from_size(VECTOR_BTAG);
|
|
|
|
|
r[3] = (hendblk(c+1)); } }
|
|
|
|
|
r[4+0] = r[2];
|
|
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = obj_from_ktrap();
|
|
|
|
|
r[4+2] = r[3];
|
|
|
|
|
r += 4; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 180: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_l_v13502: /* ek r list-ids ellipsis-vars bindings expand-part k expand tmpl */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(181);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[9] = (hendblk(5+1));
|
|
|
|
|
hreserve(hbsz(1+1), 10); /* 10 live regs */
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(190);
|
2023-02-28 06:31:08 +01:00
|
|
|
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 {
|
2023-03-18 21:07:10 +01:00
|
|
|
if ((ispair((r[8])))) {
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(3+1), 9); /* 9 live regs */
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[8];
|
|
|
|
|
*--hp = r[5];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(191);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
2023-03-18 21:07:10 +01:00
|
|
|
} 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;
|
|
|
|
|
}
|
2023-02-28 06:31:08 +01:00
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 181: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(182);
|
2023-02-28 06:31:08 +01:00
|
|
|
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]));
|
2023-03-18 21:07:10 +01:00
|
|
|
if ((isnull((r[1])))) {
|
|
|
|
|
hreserve(hbsz(3+1), 8); /* 8 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(184);
|
2023-03-18 21:07:10 +01:00
|
|
|
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 {
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(4+1), 8); /* 8 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[7];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(187);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[8] = (hendblk(4+1));
|
|
|
|
|
r[0] = r[8];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
/* r[2] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v13541;
|
2023-03-18 21:07:10 +01:00
|
|
|
}
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 182: /* clo k vals */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(183);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 183: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 184: /* clo ek r */
|
2023-03-18 21:07:10 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(185);
|
2023-03-18 21:07:10 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 185: /* clo ek r */
|
2023-03-18 21:07:10 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v13541: /* k l bindings */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(186);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
/* r[2] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v13541;
|
2023-02-28 06:31:08 +01:00
|
|
|
} 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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 186: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 187: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(188);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 188: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(189);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 189: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14884_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[3];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14884_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* append */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj t, l, o, *p, *d; int c = (v14884_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(3)*c, 4); /* 4 live regs */
|
|
|
|
|
l = r[3]; t = r[1]; /* gc-safe */
|
|
|
|
|
o = t; p = &o;
|
|
|
|
|
for (; l != mknull(); l = cdr(l)) {
|
|
|
|
|
*--hp = t; d = hp; *--hp = car(l);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
*p = hendblk(3); p = d; }
|
|
|
|
|
r[4] = (o); } }
|
|
|
|
|
r[5+0] = r[2];
|
|
|
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
|
|
|
r[5+1] = obj_from_ktrap();
|
|
|
|
|
r[5+2] = r[4];
|
|
|
|
|
r += 5; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 190: /* clo k id */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 191: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(192);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 192: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 193: /* clo k id */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 194: /* clo k return */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 195: /* clo k pat sexp bindings */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(195);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[11] = (hendblk(7+1));
|
|
|
|
|
hreserve(hbsz(2+1), 12); /* 12 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (r[10]);
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(196);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(197);
|
2023-02-28 06:31:08 +01:00
|
|
|
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] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_l_v13468;
|
2023-02-28 06:31:08 +01:00
|
|
|
}
|
|
|
|
|
} 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[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = (r[11]);
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(199);
|
2023-02-28 06:31:08 +01:00
|
|
|
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[11]);
|
|
|
|
|
r[14+3] = r[3];
|
|
|
|
|
r[14+4] = r[2];
|
|
|
|
|
r[14+5] = r[1];
|
|
|
|
|
r[14+6] = r[0];
|
|
|
|
|
r += 14; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_l_v13450;
|
2023-02-28 06:31:08 +01:00
|
|
|
} 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] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_l_v13468;
|
2023-02-28 06:31:08 +01:00
|
|
|
} 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]);
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(200);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 196: /* clo k condition */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_l_v13468: /* k condition return bindings */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 197: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(198);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 198: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 199: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_l_v13450: /* ek . match bindings sexp pat k */
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* vector->list */
|
|
|
|
|
obj v, l = mknull(); int c = (vectorlen((r[5])));
|
|
|
|
|
hreserve(hbsz(3)*c, 7); /* 7 live regs */
|
|
|
|
|
v = r[5]; /* gc-safe */
|
|
|
|
|
while (c-- > 0) { *--hp = l; *--hp = hblkref(v, 1+c);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); }
|
|
|
|
|
r[7] = (l); }
|
|
|
|
|
{ /* vector->list */
|
|
|
|
|
obj v, l = mknull(); int c = (vectorlen((r[4])));
|
|
|
|
|
hreserve(hbsz(3)*c, 8); /* 8 live regs */
|
|
|
|
|
v = r[4]; /* gc-safe */
|
|
|
|
|
while (c-- > 0) { *--hp = l; *--hp = hblkref(v, 1+c);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); }
|
|
|
|
|
r[8] = (l); }
|
|
|
|
|
r[9+0] = r[2];
|
|
|
|
|
pc = objptr_from_obj(r[9+0])[0];
|
|
|
|
|
r[9+1] = r[6];
|
|
|
|
|
r[9+2] = r[7];
|
|
|
|
|
r[9+3] = r[8];
|
|
|
|
|
r[9+4] = r[3];
|
|
|
|
|
r += 9; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 5;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 200: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(201);
|
2023-02-28 06:31:08 +01:00
|
|
|
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);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_l_v13370;
|
2023-02-28 06:31:08 +01:00
|
|
|
} 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(212);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 201: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_l_v13370: /* ek r return list-ids not-pat-literal? match bindings pat k sexp tail-len */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(202);
|
2023-02-28 06:31:08 +01:00
|
|
|
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);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_l_v13372;
|
2023-02-28 06:31:08 +01:00
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 202: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_l_v13372: /* ek . list-ids not-pat-literal? match bindings pat k sexp r tail-len */
|
|
|
|
|
{ const fixnum_t v14881_tail_2Dlen = fixnum_from_obj(r[10]);
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* list-tail */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj l = r[8]; int c = (fxsub(fixnum_from_obj(r[9]), (v14881_tail_2Dlen)));
|
2023-02-28 06:31:08 +01:00
|
|
|
while (c-- > 0) l = cdr(l);
|
|
|
|
|
r[11] = (l); }
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14882_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[8];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14882_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* reverse */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj l, o = mknull(); int c = (v14882_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj l = (r[12]); int c = (v14881_tail_2Dlen);
|
2023-02-28 06:31:08 +01:00
|
|
|
while (c-- > 0) l = cdr(l);
|
|
|
|
|
r[12] = (l); }
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14883_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = (r[12]);
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14883_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* reverse */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj l, o = mknull(); int c = (v14883_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
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]);
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(203);
|
2023-02-28 06:31:08 +01:00
|
|
|
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; }
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 203: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(209);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[8] = (hendblk(6+1));
|
|
|
|
|
r[0] = r[8];
|
|
|
|
|
r[1] = r[2];
|
|
|
|
|
r[2] = r[3];
|
|
|
|
|
r[3] = r[6];
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v13393;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v13393: /* k l match pat */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(204);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[5] = (hendblk(4+1));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
r[1] = r[4];
|
|
|
|
|
/* r[2] */
|
|
|
|
|
/* r[3] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v13393;
|
2023-02-28 06:31:08 +01:00
|
|
|
} 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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 204: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(205);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 205: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(208);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[5] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
/* r[2] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v13404;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v13404: /* k l f */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(206);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
/* r[2] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v13404;
|
2023-02-28 06:31:08 +01:00
|
|
|
} 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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 206: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(207);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 207: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 208: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 209: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(210);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 210: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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[1];
|
|
|
|
|
*--hp = r[6];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(211);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 211: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14880_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[3];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14880_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* append */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj t, l, o, *p, *d; int c = (v14880_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(3)*c, 4); /* 4 live regs */
|
|
|
|
|
l = r[3]; t = r[1]; /* gc-safe */
|
|
|
|
|
o = t; p = &o;
|
|
|
|
|
for (; l != mknull(); l = cdr(l)) {
|
|
|
|
|
*--hp = t; d = hp; *--hp = car(l);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
*p = hendblk(3); p = d; }
|
|
|
|
|
r[4] = (o); } }
|
|
|
|
|
r[5+0] = r[2];
|
|
|
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
|
|
|
r[5+1] = obj_from_ktrap();
|
|
|
|
|
r[5+2] = r[4];
|
|
|
|
|
r += 5; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 212: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 213: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(214);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[2] = (hendblk(0+1));
|
|
|
|
|
(void)(cdr((r[1])) = (r[2]));
|
|
|
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(218);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[2] = (hendblk(0+1));
|
|
|
|
|
r[3+0] = r[2];
|
2023-03-01 23:36:24 +01:00
|
|
|
r[3+1] = (mksymbol(internsym("define")));
|
|
|
|
|
r[3+2] = (mksymbol(internsym("define")));
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3+3] = (cx_top_2Dtransformer_2Denv);
|
2023-03-01 23:36:24 +01:00
|
|
|
r += 3; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
goto gs_add_2Dbinding;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 214: /* clo k sexp env */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 4);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* k sexp env */
|
|
|
|
|
hreserve(hbsz(1), 3); /* 3 live regs */
|
|
|
|
|
*--hp = obj_from_void(0);
|
|
|
|
|
r[3] = (hendblk(1));
|
|
|
|
|
hreserve(hbsz(4+1), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[2];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(215);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[4] = (hendblk(4+1));
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("syntax")));
|
|
|
|
|
*--hp = (mksymbol(internsym("syntax")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[5] = (hendblk(3)); }
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = r[5];
|
|
|
|
|
goto gs_new_2Did;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 215: /* clo ek r */
|
2023-03-01 23:36:24 +01:00
|
|
|
assert(rc == 3);
|
2023-03-03 01:27:09 +01:00
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2];
|
|
|
|
|
r[1+4] = p[3];
|
|
|
|
|
r[1+5] = p[4]; }
|
2023-03-01 23:36:24 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r env k sexp syntax-id */
|
|
|
|
|
(void)(objptr_from_obj(r[5])[0] = (r[1]));
|
|
|
|
|
r[6] = (cdr((r[4])));
|
|
|
|
|
r[6] = (car((r[6])));
|
|
|
|
|
r[6] = (cxs_id_3F((r[6])));
|
|
|
|
|
if (bool_from_obj(r[6])) {
|
|
|
|
|
hreserve(hbsz(2+1), 6); /* 6 live regs */
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(216);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[6] = (hendblk(2+1));
|
|
|
|
|
r[7] = (cdr((r[4])));
|
|
|
|
|
r[7] = (car((r[7])));
|
|
|
|
|
r[8] = (cdr((r[4])));
|
|
|
|
|
r[8] = (cdr((r[8])));
|
|
|
|
|
r[8] = (car((r[8])));
|
|
|
|
|
r[9] = (cdr((r[4])));
|
|
|
|
|
r[9] = (cdr((r[9])));
|
|
|
|
|
r[9] = (cdr((r[9])));
|
|
|
|
|
r[0] = r[6];
|
|
|
|
|
r[1] = r[2];
|
|
|
|
|
r[2] = r[7];
|
|
|
|
|
r[3] = r[8];
|
|
|
|
|
r[4] = r[9];
|
|
|
|
|
goto gs_syntax_2Drules_2A;
|
|
|
|
|
} else {
|
|
|
|
|
hreserve(hbsz(2+1), 6); /* 6 live regs */
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(217);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[6] = (hendblk(2+1));
|
|
|
|
|
r[7] = (cdr((r[4])));
|
|
|
|
|
r[7] = (car((r[7])));
|
|
|
|
|
r[8] = (cdr((r[4])));
|
|
|
|
|
r[8] = (cdr((r[8])));
|
|
|
|
|
r[0] = r[6];
|
|
|
|
|
r[1] = r[2];
|
|
|
|
|
r[2] = obj_from_bool(0);
|
|
|
|
|
r[3] = r[7];
|
|
|
|
|
r[4] = r[8];
|
2023-02-28 06:31:08 +01:00
|
|
|
goto gs_syntax_2Drules_2A;
|
2023-03-03 01:27:09 +01:00
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 216: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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 syntax-id */
|
|
|
|
|
{ /* 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 = (objptr_from_obj(r[3])[0]);
|
|
|
|
|
*--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;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 217: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
2023-03-03 01:27:09 +01:00
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r k syntax-id */
|
|
|
|
|
{ /* 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 = (objptr_from_obj(r[3])[0]);
|
|
|
|
|
*--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];
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-03 01:27:09 +01:00
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 218: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(219);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[2] = (hendblk(0+1));
|
|
|
|
|
r[3+0] = r[2];
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3+1] = r[1];
|
2023-02-28 06:31:08 +01:00
|
|
|
r[3+2] = obj_from_bool(0);
|
2023-03-01 23:36:24 +01:00
|
|
|
r[3+3] = (mknull());
|
2023-03-19 00:13:38 +01:00
|
|
|
r[3+4] = (cx__231550);
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 3; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-03 01:27:09 +01:00
|
|
|
goto gs_syntax_2Drules_2A;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 219: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r */
|
|
|
|
|
hreserve(hbsz(1+1), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(220);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[2] = (hendblk(1+1));
|
|
|
|
|
r[0] = r[2];
|
2023-03-04 06:07:52 +01:00
|
|
|
r[1] = (mksymbol(internsym("define")));
|
2023-03-03 01:27:09 +01:00
|
|
|
goto gs_top_2Dtransformer_2Denv;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 220: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r r */
|
|
|
|
|
(void)(cdr((r[1])) = (r[2]));
|
|
|
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(221);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3] = (hendblk(0+1));
|
|
|
|
|
r[4+0] = (cx_syntax_2Drules_2A);
|
|
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = r[3];
|
|
|
|
|
r[4+2] = (cx_top_2Dtransformer_2Denv);
|
|
|
|
|
r[4+3] = obj_from_bool(0);
|
|
|
|
|
r[4+4] = (mknull());
|
2023-03-19 00:13:38 +01:00
|
|
|
r[4+5] = (cx__231591);
|
2023-03-03 01:27:09 +01:00
|
|
|
r += 4; /* shift reg wnd */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-03 01:27:09 +01:00
|
|
|
rc = 6;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 221: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r */
|
|
|
|
|
hreserve(hbsz(1+1), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(222);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[2] = (hendblk(1+1));
|
|
|
|
|
r[0] = r[2];
|
2023-03-04 06:07:52 +01:00
|
|
|
r[1] = (mksymbol(internsym("letrec-syntax")));
|
2023-03-03 01:27:09 +01:00
|
|
|
goto gs_top_2Dtransformer_2Denv;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 222: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r r */
|
|
|
|
|
(void)(cdr((r[1])) = (r[2]));
|
|
|
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(223);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3] = (hendblk(0+1));
|
|
|
|
|
r[4+0] = (cx_syntax_2Drules_2A);
|
|
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = r[3];
|
|
|
|
|
r[4+2] = (cx_top_2Dtransformer_2Denv);
|
|
|
|
|
r[4+3] = obj_from_bool(0);
|
|
|
|
|
r[4+4] = (mknull());
|
2023-03-19 00:13:38 +01:00
|
|
|
r[4+5] = (cx__231623);
|
2023-03-03 01:27:09 +01:00
|
|
|
r += 4; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 6;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 223: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r */
|
|
|
|
|
hreserve(hbsz(1+1), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(224);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[2] = (hendblk(1+1));
|
|
|
|
|
r[0] = r[2];
|
2023-03-04 06:07:52 +01:00
|
|
|
r[1] = (mksymbol(internsym("let-syntax")));
|
2023-03-03 01:27:09 +01:00
|
|
|
goto gs_top_2Dtransformer_2Denv;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 224: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r r */
|
|
|
|
|
(void)(cdr((r[1])) = (r[2]));
|
|
|
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(225);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3] = (hendblk(0+1));
|
|
|
|
|
r[4+0] = (cx_syntax_2Drules_2A);
|
|
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = r[3];
|
|
|
|
|
r[4+2] = (cx_top_2Dtransformer_2Denv);
|
|
|
|
|
r[4+3] = obj_from_bool(0);
|
|
|
|
|
r[4+4] = (mknull());
|
2023-03-19 00:13:38 +01:00
|
|
|
r[4+5] = (cx__231681);
|
2023-03-03 01:27:09 +01:00
|
|
|
r += 4; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 6;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 225: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r */
|
|
|
|
|
hreserve(hbsz(1+1), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(226);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[2] = (hendblk(1+1));
|
|
|
|
|
r[0] = r[2];
|
2023-03-04 06:07:52 +01:00
|
|
|
r[1] = (mksymbol(internsym("letrec")));
|
2023-03-03 01:27:09 +01:00
|
|
|
goto gs_top_2Dtransformer_2Denv;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 226: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r r */
|
|
|
|
|
(void)(cdr((r[1])) = (r[2]));
|
|
|
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(227);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3] = (hendblk(0+1));
|
|
|
|
|
r[4+0] = (cx_syntax_2Drules_2A);
|
|
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = r[3];
|
|
|
|
|
r[4+2] = (cx_top_2Dtransformer_2Denv);
|
|
|
|
|
r[4+3] = obj_from_bool(0);
|
|
|
|
|
r[4+4] = (mknull());
|
2023-03-19 00:13:38 +01:00
|
|
|
r[4+5] = (cx__231713);
|
2023-03-03 01:27:09 +01:00
|
|
|
r += 4; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 6;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 227: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r */
|
|
|
|
|
hreserve(hbsz(1+1), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(228);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[2] = (hendblk(1+1));
|
|
|
|
|
r[0] = r[2];
|
2023-03-18 21:07:10 +01:00
|
|
|
r[1] = (mksymbol(internsym("let")));
|
2023-03-03 01:27:09 +01:00
|
|
|
goto gs_top_2Dtransformer_2Denv;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 228: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r r */
|
|
|
|
|
(void)(cdr((r[1])) = (r[2]));
|
|
|
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(229);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3] = (hendblk(0+1));
|
|
|
|
|
r[4+0] = (cx_syntax_2Drules_2A);
|
|
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = r[3];
|
|
|
|
|
r[4+2] = (cx_top_2Dtransformer_2Denv);
|
|
|
|
|
r[4+3] = obj_from_bool(0);
|
2023-03-04 06:07:52 +01:00
|
|
|
r[4+4] = (mknull());
|
2023-03-19 00:13:38 +01:00
|
|
|
r[4+5] = (cx__231793);
|
2023-03-03 01:27:09 +01:00
|
|
|
r += 4; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 6;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 229: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r */
|
|
|
|
|
hreserve(hbsz(1+1), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(230);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[2] = (hendblk(1+1));
|
|
|
|
|
r[0] = r[2];
|
2023-03-18 21:07:10 +01:00
|
|
|
r[1] = (mksymbol(internsym("let*")));
|
2023-03-03 01:27:09 +01:00
|
|
|
goto gs_top_2Dtransformer_2Denv;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 230: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r r */
|
|
|
|
|
(void)(cdr((r[1])) = (r[2]));
|
|
|
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(231);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3] = (hendblk(0+1));
|
|
|
|
|
r[4+0] = (cx_syntax_2Drules_2A);
|
|
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = r[3];
|
|
|
|
|
r[4+2] = (cx_top_2Dtransformer_2Denv);
|
|
|
|
|
r[4+3] = obj_from_bool(0);
|
2023-03-04 06:07:52 +01:00
|
|
|
r[4+4] = (mknull());
|
2023-03-19 00:13:38 +01:00
|
|
|
r[4+5] = (cx__231831);
|
2023-03-03 01:27:09 +01:00
|
|
|
r += 4; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 6;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 231: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r */
|
|
|
|
|
hreserve(hbsz(1+1), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(232);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[2] = (hendblk(1+1));
|
|
|
|
|
r[0] = r[2];
|
2023-03-18 21:07:10 +01:00
|
|
|
r[1] = (mksymbol(internsym("and")));
|
2023-03-03 01:27:09 +01:00
|
|
|
goto gs_top_2Dtransformer_2Denv;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 232: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r r */
|
|
|
|
|
(void)(cdr((r[1])) = (r[2]));
|
|
|
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(233);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3] = (hendblk(0+1));
|
|
|
|
|
r[4+0] = (cx_syntax_2Drules_2A);
|
|
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = r[3];
|
|
|
|
|
r[4+2] = (cx_top_2Dtransformer_2Denv);
|
|
|
|
|
r[4+3] = obj_from_bool(0);
|
2023-03-18 21:07:10 +01:00
|
|
|
r[4+4] = (mknull());
|
2023-03-19 00:13:38 +01:00
|
|
|
r[4+5] = (cx__231871);
|
2023-03-03 01:27:09 +01:00
|
|
|
r += 4; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 6;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 233: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r */
|
|
|
|
|
hreserve(hbsz(1+1), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(234);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[2] = (hendblk(1+1));
|
|
|
|
|
r[0] = r[2];
|
2023-03-18 21:07:10 +01:00
|
|
|
r[1] = (mksymbol(internsym("or")));
|
2023-03-03 01:27:09 +01:00
|
|
|
goto gs_top_2Dtransformer_2Denv;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 234: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r r */
|
|
|
|
|
(void)(cdr((r[1])) = (r[2]));
|
|
|
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(235);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3] = (hendblk(0+1));
|
|
|
|
|
r[4+0] = (cx_syntax_2Drules_2A);
|
|
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = r[3];
|
|
|
|
|
r[4+2] = (cx_top_2Dtransformer_2Denv);
|
|
|
|
|
r[4+3] = obj_from_bool(0);
|
2023-03-19 00:13:38 +01:00
|
|
|
r[4+4] = (cx__232030);
|
|
|
|
|
r[4+5] = (cx__231923);
|
2023-03-03 01:27:09 +01:00
|
|
|
r += 4; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 6;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 235: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r */
|
|
|
|
|
hreserve(hbsz(1+1), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(236);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[2] = (hendblk(1+1));
|
|
|
|
|
r[0] = r[2];
|
2023-03-18 21:07:10 +01:00
|
|
|
r[1] = (mksymbol(internsym("cond")));
|
2023-03-03 01:27:09 +01:00
|
|
|
goto gs_top_2Dtransformer_2Denv;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 236: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r r */
|
|
|
|
|
(void)(cdr((r[1])) = (r[2]));
|
|
|
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(237);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3] = (hendblk(0+1));
|
|
|
|
|
r[4+0] = (cx_syntax_2Drules_2A);
|
|
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = r[3];
|
|
|
|
|
r[4+2] = (cx_top_2Dtransformer_2Denv);
|
|
|
|
|
r[4+3] = obj_from_bool(0);
|
2023-03-19 00:13:38 +01:00
|
|
|
r[4+4] = (cx__232071);
|
|
|
|
|
r[4+5] = (cx__232036);
|
2023-03-03 01:27:09 +01:00
|
|
|
r += 4; /* shift reg wnd */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-03 01:27:09 +01:00
|
|
|
rc = 6;
|
|
|
|
|
goto jump;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 237: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r */
|
|
|
|
|
hreserve(hbsz(1+1), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(238);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[2] = (hendblk(1+1));
|
|
|
|
|
r[0] = r[2];
|
2023-03-18 21:07:10 +01:00
|
|
|
r[1] = (mksymbol(internsym("case-test")));
|
2023-03-03 01:27:09 +01:00
|
|
|
goto gs_top_2Dtransformer_2Denv;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 238: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r r */
|
|
|
|
|
(void)(cdr((r[1])) = (r[2]));
|
|
|
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(239);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3] = (hendblk(0+1));
|
|
|
|
|
r[4+0] = (cx_syntax_2Drules_2A);
|
|
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = r[3];
|
|
|
|
|
r[4+2] = (cx_top_2Dtransformer_2Denv);
|
|
|
|
|
r[4+3] = obj_from_bool(0);
|
|
|
|
|
r[4+4] = (mknull());
|
2023-03-19 00:13:38 +01:00
|
|
|
r[4+5] = (cx__232075);
|
2023-03-03 01:27:09 +01:00
|
|
|
r += 4; /* shift reg wnd */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-03 01:27:09 +01:00
|
|
|
rc = 6;
|
|
|
|
|
goto jump;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 239: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r */
|
|
|
|
|
hreserve(hbsz(1+1), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(240);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[2] = (hendblk(1+1));
|
|
|
|
|
r[0] = r[2];
|
2023-03-18 21:07:10 +01:00
|
|
|
r[1] = (mksymbol(internsym("case")));
|
2023-03-03 01:27:09 +01:00
|
|
|
goto gs_top_2Dtransformer_2Denv;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 240: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r r */
|
|
|
|
|
(void)(cdr((r[1])) = (r[2]));
|
|
|
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(241);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3] = (hendblk(0+1));
|
|
|
|
|
r[4+0] = (cx_syntax_2Drules_2A);
|
|
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = r[3];
|
|
|
|
|
r[4+2] = (cx_top_2Dtransformer_2Denv);
|
|
|
|
|
r[4+3] = obj_from_bool(0);
|
2023-03-18 21:07:10 +01:00
|
|
|
r[4+4] = (mknull());
|
2023-03-19 00:13:38 +01:00
|
|
|
r[4+5] = (cx__232119);
|
2023-03-03 01:27:09 +01:00
|
|
|
r += 4; /* shift reg wnd */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-03 01:27:09 +01:00
|
|
|
rc = 6;
|
|
|
|
|
goto jump;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 241: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r */
|
|
|
|
|
hreserve(hbsz(1+1), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(242);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[2] = (hendblk(1+1));
|
|
|
|
|
r[0] = r[2];
|
2023-03-18 21:07:10 +01:00
|
|
|
r[1] = (mksymbol(internsym("do")));
|
2023-03-03 01:27:09 +01:00
|
|
|
goto gs_top_2Dtransformer_2Denv;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 242: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r r */
|
|
|
|
|
(void)(cdr((r[1])) = (r[2]));
|
|
|
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(243);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3] = (hendblk(0+1));
|
|
|
|
|
r[4+0] = (cx_syntax_2Drules_2A);
|
|
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = r[3];
|
|
|
|
|
r[4+2] = (cx_top_2Dtransformer_2Denv);
|
|
|
|
|
r[4+3] = obj_from_bool(0);
|
2023-03-19 00:13:38 +01:00
|
|
|
r[4+4] = (cx__232384);
|
|
|
|
|
r[4+5] = (cx__232185);
|
2023-03-03 01:27:09 +01:00
|
|
|
r += 4; /* shift reg wnd */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-03 01:27:09 +01:00
|
|
|
rc = 6;
|
|
|
|
|
goto jump;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 243: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r */
|
|
|
|
|
hreserve(hbsz(1+1), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(244);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[2] = (hendblk(1+1));
|
|
|
|
|
r[0] = r[2];
|
2023-03-18 21:07:10 +01:00
|
|
|
r[1] = (mksymbol(internsym("quasiquote")));
|
2023-03-03 01:27:09 +01:00
|
|
|
goto gs_top_2Dtransformer_2Denv;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 244: /* clo ek r */
|
2023-03-04 06:07:52 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r r */
|
|
|
|
|
(void)(cdr((r[1])) = (r[2]));
|
|
|
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(245);
|
2023-03-04 06:07:52 +01:00
|
|
|
r[3] = (hendblk(0+1));
|
|
|
|
|
r[4+0] = (cx_syntax_2Drules_2A);
|
|
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = r[3];
|
|
|
|
|
r[4+2] = (cx_top_2Dtransformer_2Denv);
|
|
|
|
|
r[4+3] = obj_from_bool(0);
|
|
|
|
|
r[4+4] = (mknull());
|
2023-03-19 00:13:38 +01:00
|
|
|
r[4+5] = (cx__232392);
|
2023-03-04 06:07:52 +01:00
|
|
|
r += 4; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 6;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 245: /* clo ek r */
|
2023-03-04 06:07:52 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r */
|
|
|
|
|
hreserve(hbsz(1+1), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(246);
|
2023-03-04 06:07:52 +01:00
|
|
|
r[2] = (hendblk(1+1));
|
|
|
|
|
r[0] = r[2];
|
2023-03-18 21:07:10 +01:00
|
|
|
r[1] = (mksymbol(internsym("when")));
|
2023-03-04 06:07:52 +01:00
|
|
|
goto gs_top_2Dtransformer_2Denv;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 246: /* clo ek r */
|
2023-03-04 06:07:52 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r r */
|
|
|
|
|
(void)(cdr((r[1])) = (r[2]));
|
|
|
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(247);
|
2023-03-04 06:07:52 +01:00
|
|
|
r[3] = (hendblk(0+1));
|
|
|
|
|
r[4+0] = (cx_syntax_2Drules_2A);
|
|
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = r[3];
|
|
|
|
|
r[4+2] = (cx_top_2Dtransformer_2Denv);
|
|
|
|
|
r[4+3] = obj_from_bool(0);
|
|
|
|
|
r[4+4] = (mknull());
|
2023-03-19 00:13:38 +01:00
|
|
|
r[4+5] = (cx__232412);
|
2023-03-04 06:07:52 +01:00
|
|
|
r += 4; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 6;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 247: /* clo ek r */
|
2023-03-04 06:07:52 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r */
|
|
|
|
|
hreserve(hbsz(1+1), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(248);
|
2023-03-04 06:07:52 +01:00
|
|
|
r[2] = (hendblk(1+1));
|
|
|
|
|
r[0] = r[2];
|
2023-03-18 21:07:10 +01:00
|
|
|
r[1] = (mksymbol(internsym("unless")));
|
2023-03-07 19:11:46 +01:00
|
|
|
goto gs_top_2Dtransformer_2Denv;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 248: /* clo ek r */
|
2023-03-18 21:07:10 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r r */
|
|
|
|
|
(void)(cdr((r[1])) = (r[2]));
|
|
|
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(249);
|
2023-03-18 21:07:10 +01:00
|
|
|
r[3] = (hendblk(0+1));
|
|
|
|
|
r[4+0] = (cx_syntax_2Drules_2A);
|
|
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = r[3];
|
|
|
|
|
r[4+2] = (cx_top_2Dtransformer_2Denv);
|
|
|
|
|
r[4+3] = obj_from_bool(0);
|
|
|
|
|
r[4+4] = (mknull());
|
2023-03-19 00:13:38 +01:00
|
|
|
r[4+5] = (cx__232436);
|
2023-03-18 21:07:10 +01:00
|
|
|
r += 4; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 6;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 249: /* clo ek r */
|
2023-03-18 21:07:10 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r */
|
|
|
|
|
hreserve(hbsz(1+1), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(250);
|
2023-03-18 21:07:10 +01:00
|
|
|
r[2] = (hendblk(1+1));
|
|
|
|
|
r[0] = r[2];
|
|
|
|
|
r[1] = (mksymbol(internsym("case-lambda")));
|
|
|
|
|
goto gs_top_2Dtransformer_2Denv;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 250: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r r */
|
|
|
|
|
(void)(cdr((r[1])) = (r[2]));
|
2023-02-28 06:31:08 +01:00
|
|
|
cx__2Aglobals_2A = (mknull());
|
2023-03-19 00:13:38 +01:00
|
|
|
{ static obj c[] = { obj_from_case(251) }; cx_global_2Dlocation = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(252) }; cx_write_2Dserialized_2Dchar = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(254) }; cx_write_2Dserialized_2Dsize = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(256) }; cx_write_2Dserialized_2Delement = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(258) }; 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(307) }; cx_find_2Dsets_2A = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(310) }; cx_find_2Dsets = (obj)c; }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* define find-integrable-encoding */
|
|
|
|
|
static obj c[] = { obj_from_objptr(vmcases+4) };
|
|
|
|
|
cx_find_2Dintegrable_2Dencoding = obj_from_objptr(c); }
|
|
|
|
|
{ /* define encode-integrable */
|
|
|
|
|
static obj c[] = { obj_from_objptr(vmcases+5) };
|
|
|
|
|
cx_encode_2Dintegrable = obj_from_objptr(c); }
|
2023-03-19 00:13:38 +01:00
|
|
|
{ static obj c[] = { obj_from_case(338) }; cx_codegen = (obj)c; }
|
2023-03-20 04:31:28 +01:00
|
|
|
{ static obj c[] = { obj_from_case(436) }; cx_compile_2Dto_2Dstring = (obj)c; }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* 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); }
|
2023-03-20 04:31:28 +01:00
|
|
|
{ static obj c[] = { obj_from_case(439) }; cx_execute = (obj)c; }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* 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); }
|
2023-03-20 04:31:28 +01:00
|
|
|
{ static obj c[] = { obj_from_case(441) }; cx_evaluate = (obj)c; }
|
|
|
|
|
cx__2Ahide_2Drefs_2A = (cx__233424);
|
|
|
|
|
{ static obj c[] = { obj_from_case(446) }; cx_display_2Dcode = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(447) }; cx_process_2Ddefine_2Dsyntax = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(454) }; cx_process_2Dstatement = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(458) }; cx_process_2Ddefine = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(462) }; cx_scan_2Dtop_2Dform = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(475) }; cx_process_2Dtop_2Dform = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(500) }; cx_path_2Dstrip_2Ddirectory = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(501) }; cx_path_2Dstrip_2Dextension = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(502) }; cx_module_2Dname = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(504) }; cx_process_2Dfile = (obj)c; }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* define decode */
|
|
|
|
|
static obj c[] = { obj_from_objptr(vmcases+3) };
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3] = obj_from_objptr(c); }
|
|
|
|
|
hreserve(hbsz(0+1), 4); /* 4 live regs */
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(513);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[4] = (hendblk(0+1));
|
|
|
|
|
r[0] = r[3];
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = r[4];
|
2023-03-20 04:31:28 +01:00
|
|
|
r[2] = (cx__233778);
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 251: /* global-location k sym */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* k sym */
|
|
|
|
|
{ /* assq */
|
|
|
|
|
obj x = (r[1]), l = (cx__2Aglobals_2A), p = mknull();
|
|
|
|
|
for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
|
|
|
|
|
r[2] = (l == mknull() ? obj_from_bool(0) : p); }
|
|
|
|
|
if ((ispair((r[2])))) {
|
2023-03-12 19:20:35 +01:00
|
|
|
r[2] = (cdr((r[2])));
|
2023-02-28 06:31:08 +01:00
|
|
|
} else {
|
2023-03-12 19:20:35 +01:00
|
|
|
{ /* box */
|
|
|
|
|
hreserve(hbsz(2), 3); /* 3 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = (mksymbol(internsym("undefined")));
|
2023-03-12 19:20:35 +01:00
|
|
|
*--hp = obj_from_size(BOX_BTAG);
|
|
|
|
|
r[3] = (hendblk(2)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
2023-03-12 19:20:35 +01:00
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = (cx__2Aglobals_2A);
|
|
|
|
|
*--hp = r[4];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
cx__2Aglobals_2A = (hendblk(3)); }
|
|
|
|
|
r[2] = r[3];
|
|
|
|
|
}
|
|
|
|
|
r[3+0] = r[0];
|
|
|
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
|
|
|
r[3+1] = obj_from_ktrap();
|
|
|
|
|
r[3+2] = r[2];
|
|
|
|
|
r += 3; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 252: /* write-serialized-char k x port */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 4);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
gs_write_2Dserialized_2Dchar: /* k x port */
|
2023-03-20 04:31:28 +01:00
|
|
|
{ const char_t v14879_x = char_from_obj(r[1]);
|
|
|
|
|
if ((((v14879_x) == ('%')) || (((v14879_x) == (34)) || (((v14879_x) == (92)) || (((v14879_x) < (' ')) || ((v14879_x) > ('~'))))))) {
|
2023-02-28 06:31:08 +01:00
|
|
|
(void)(oportputc(('%'), (r[2])));
|
|
|
|
|
hreserve(hbsz(2+1), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[0];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(253);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
r[4+2] = obj_from_fixnum((fixnum_t)(v14879_x));
|
2023-02-28 06:31:08 +01:00
|
|
|
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();
|
2023-03-20 04:31:28 +01:00
|
|
|
r[2] = obj_from_void(oportputc((v14879_x), (r[2])));
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
} }
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 253: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 254: /* write-serialized-size k n port */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(255);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 255: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 256: /* write-serialized-element k x port */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(257);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[3] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[3];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
/* r[2] */
|
|
|
|
|
goto gs_write_2Dserialized_2Dsexp;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 257: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 258: /* write-serialized-sexp k x port */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(259);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(260);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(263);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(265);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(268);
|
2023-02-28 06:31:08 +01:00
|
|
|
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 ((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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(271);
|
2023-02-28 06:31:08 +01:00
|
|
|
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 {
|
|
|
|
|
r[3+0] = (cx_error);
|
|
|
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
|
|
|
r[3+1] = r[0];
|
|
|
|
|
r[3+2] = (mksymbol(internsym("encode-sexp")));
|
2023-03-19 00:13:38 +01:00
|
|
|
r[3+3] = (cx__232515);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[3+4] = (r[1]);
|
|
|
|
|
r += 3; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 5;
|
|
|
|
|
goto jump;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 259: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 260: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v13114;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 261: /* clo k x */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v13114: /* k x port */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(261);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(262);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 262: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 263: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(264);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 264: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 265: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v13085;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 266: /* clo k i */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v13085: /* k i port x */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(266);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(267);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 267: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 268: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v13068;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 269: /* clo k i */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v13068: /* k i port x */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(269);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(2+1));
|
|
|
|
|
hreserve(hbsz(3+1), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[4];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(270);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 270: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 271: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v13051;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 272: /* clo k i */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v13051: /* k i port x */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(272);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(2+1));
|
|
|
|
|
hreserve(hbsz(3+1), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[4];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(273);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 273: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 274: /* write-serialized-arg k arg port */
|
2023-02-28 06:31:08 +01:00
|
|
|
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]))) {
|
2023-03-20 04:31:28 +01:00
|
|
|
{ const fixnum_t v14878_arg = fixnum_from_obj(r[1]);
|
|
|
|
|
r[3] = obj_from_bool(((+0) <= (v14878_arg)) && ((v14878_arg) <= (+9))); }
|
2023-02-28 06:31:08 +01:00
|
|
|
} else {
|
|
|
|
|
r[3] = obj_from_bool(0);
|
|
|
|
|
}
|
|
|
|
|
} else {
|
|
|
|
|
r[3] = obj_from_bool(0);
|
|
|
|
|
}
|
|
|
|
|
if (bool_from_obj(r[3])) {
|
2023-03-20 04:31:28 +01:00
|
|
|
{ const char_t v14877_tmp = (*(unsigned char*)stringref((cx__232596), fixnum_from_obj(r[1])));
|
|
|
|
|
r[3] = obj_from_void(oportputc((v14877_tmp), (r[2]))); }
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(275);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[3] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[3];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
/* r[2] */
|
|
|
|
|
goto gs_write_2Dserialized_2Dsexp;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 275: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 276: /* find-free* k x* b */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(277);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[3] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[3];
|
|
|
|
|
r[1] = (car((r[1])));
|
|
|
|
|
/* r[2] */
|
|
|
|
|
goto gs_find_2Dfree;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 277: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(278);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[5] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
r[1] = (cdr((r[3])));
|
|
|
|
|
/* r[2] */
|
|
|
|
|
goto gs_find_2Dfree_2A;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 278: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 279: /* find-free k x b */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(280);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(281);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(282);
|
2023-03-12 21:54:44 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(284);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(285);
|
2023-03-07 19:11:46 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(288);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[3] = (hendblk(1+1));
|
2023-03-07 19:11:46 +01:00
|
|
|
{ /* 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)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
2023-03-10 23:30:41 +01:00
|
|
|
} 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(292);
|
2023-03-10 23:30:41 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(294);
|
2023-03-10 23:30:41 +01:00
|
|
|
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;
|
2023-02-28 06:31:08 +01:00
|
|
|
} 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(297);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(302);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
2023-03-19 00:13:38 +01:00
|
|
|
} 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;
|
2023-02-28 06:31:08 +01:00
|
|
|
} 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(304);
|
2023-02-28 06:31:08 +01:00
|
|
|
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[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;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
2023-03-07 19:11:46 +01:00
|
|
|
}
|
2023-03-10 23:30:41 +01:00
|
|
|
}
|
|
|
|
|
}
|
2023-03-12 21:54:44 +01:00
|
|
|
}
|
2023-03-19 00:13:38 +01:00
|
|
|
}
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 280: /* clo k obj */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 281: /* clo k id */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 282: /* clo k id exp */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(283);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = r[2];
|
|
|
|
|
r[2] = r[3];
|
|
|
|
|
goto gs_find_2Dfree;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 283: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 284: /* clo k id */
|
2023-03-12 21:54:44 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 285: /* clo k idsi exp */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(286);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
goto gs_flatten_2Didslist;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 286: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(287);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[5] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
/* r[2] */
|
|
|
|
|
goto gs_set_2Dunion;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 287: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 288: /* clo k clauses */
|
2023-03-07 19:11:46 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(291);
|
2023-03-07 19:11:46 +01:00
|
|
|
r[4] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
r[2] = r[3];
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v12934;
|
2023-03-07 19:11:46 +01:00
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v12934: /* k l f */
|
2023-03-07 19:11:46 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(289);
|
2023-03-07 19:11:46 +01:00
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
/* r[2] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v12934;
|
2023-03-07 19:11:46 +01:00
|
|
|
} 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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 289: /* clo ek r */
|
2023-03-07 19:11:46 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(290);
|
2023-03-07 19:11:46 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 290: /* clo ek r */
|
2023-03-07 19:11:46 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 291: /* clo ek r */
|
2023-03-10 23:30:41 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 292: /* clo k kid exp */
|
2023-03-10 23:30:41 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(293);
|
2023-03-10 23:30:41 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 293: /* clo ek r */
|
2023-03-10 23:30:41 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 294: /* clo k kexp exp */
|
2023-03-10 23:30:41 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(295);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
r[2] = r[3];
|
|
|
|
|
goto gs_find_2Dfree;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 295: /* clo ek r */
|
2023-03-10 23:30:41 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(296);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[5] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
/* r[2] */
|
|
|
|
|
goto gs_find_2Dfree;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 296: /* clo ek r */
|
2023-03-07 19:11:46 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* 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;
|
2023-03-07 19:11:46 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 297: /* clo k test then else */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(298);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[5] = (hendblk(4+1));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
r[2] = r[4];
|
|
|
|
|
goto gs_find_2Dfree;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 298: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(299);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[6] = (hendblk(4+1));
|
|
|
|
|
r[0] = r[6];
|
|
|
|
|
r[1] = r[2];
|
|
|
|
|
r[2] = r[3];
|
|
|
|
|
goto gs_find_2Dfree;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 299: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(300);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[6] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[6];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
/* r[2] */
|
|
|
|
|
goto gs_find_2Dfree;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 300: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(301);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 301: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 302: /* clo k exps */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
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 */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(305);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
r[2] = r[3];
|
|
|
|
|
goto gs_find_2Dfree;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 305: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(306);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[5] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
/* r[2] */
|
|
|
|
|
goto gs_find_2Dfree_2A;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 306: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 307: /* find-sets* k x* v */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(308);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[3] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[3];
|
|
|
|
|
r[1] = (car((r[1])));
|
|
|
|
|
/* r[2] */
|
|
|
|
|
goto gs_find_2Dsets;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 308: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(309);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[5] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
r[1] = (cdr((r[3])));
|
|
|
|
|
/* r[2] */
|
|
|
|
|
goto gs_find_2Dsets_2A;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 309: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 310: /* find-sets k x v */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(311);
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(312);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(313);
|
2023-03-12 21:54:44 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(315);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(316);
|
2023-03-07 19:11:46 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(319);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[3] = (hendblk(1+1));
|
2023-03-07 19:11:46 +01:00
|
|
|
{ /* 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)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
2023-03-10 23:30:41 +01:00
|
|
|
} 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(323);
|
2023-03-10 23:30:41 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(325);
|
2023-03-10 23:30:41 +01:00
|
|
|
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;
|
2023-02-28 06:31:08 +01:00
|
|
|
} 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(328);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(329);
|
|
|
|
|
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(334);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[3] = (hendblk(1+1));
|
2023-03-19 00:13:38 +01:00
|
|
|
{ /* 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)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(335);
|
2023-02-28 06:31:08 +01:00
|
|
|
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[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;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
2023-03-07 19:11:46 +01:00
|
|
|
}
|
2023-03-10 23:30:41 +01:00
|
|
|
}
|
|
|
|
|
}
|
2023-03-12 21:54:44 +01:00
|
|
|
}
|
2023-03-19 00:13:38 +01:00
|
|
|
}
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 311: /* clo k obj */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 312: /* clo k id */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 313: /* clo k id x */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(314);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = r[2];
|
|
|
|
|
r[2] = r[3];
|
|
|
|
|
goto gs_find_2Dsets;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 314: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 315: /* clo k id */
|
2023-03-12 21:54:44 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 316: /* clo k idsi exp */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(317);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
goto gs_flatten_2Didslist;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 317: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(318);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 318: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 319: /* clo k clauses */
|
2023-03-07 19:11:46 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(322);
|
2023-03-07 19:11:46 +01:00
|
|
|
r[4] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
r[2] = r[3];
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v12723;
|
2023-03-07 19:11:46 +01:00
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v12723: /* k l f */
|
2023-03-07 19:11:46 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(320);
|
2023-03-07 19:11:46 +01:00
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
/* r[2] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v12723;
|
2023-03-07 19:11:46 +01:00
|
|
|
} 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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 320: /* clo ek r */
|
2023-03-07 19:11:46 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(321);
|
2023-03-07 19:11:46 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 321: /* clo ek r */
|
2023-03-07 19:11:46 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 322: /* clo ek r */
|
2023-03-07 19:11:46 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 323: /* clo k kid exp */
|
2023-03-10 23:30:41 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(324);
|
2023-03-10 23:30:41 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 324: /* clo ek r */
|
2023-03-10 23:30:41 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 325: /* clo k kexp exp */
|
2023-03-10 23:30:41 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(326);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
r[2] = r[3];
|
|
|
|
|
goto gs_find_2Dsets;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 326: /* clo ek r */
|
2023-03-10 23:30:41 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(327);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[5] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
/* r[2] */
|
|
|
|
|
goto gs_find_2Dsets;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 327: /* clo ek r */
|
2023-03-10 23:30:41 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 328: /* clo k exps */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 329: /* clo k test then else */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(330);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[5] = (hendblk(4+1));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
r[2] = r[4];
|
|
|
|
|
goto gs_find_2Dsets;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 330: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(331);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[6] = (hendblk(4+1));
|
|
|
|
|
r[0] = r[6];
|
|
|
|
|
r[1] = r[2];
|
|
|
|
|
r[2] = r[3];
|
|
|
|
|
goto gs_find_2Dsets;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 331: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(332);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[6] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[6];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
/* r[2] */
|
|
|
|
|
goto gs_find_2Dsets;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 332: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(333);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 333: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 334: /* 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 335: /* clo k exp args */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(336);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
r[2] = r[3];
|
|
|
|
|
goto gs_find_2Dsets;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 336: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(337);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[5] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
/* r[2] */
|
|
|
|
|
goto gs_find_2Dsets_2A;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 337: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 338: /* codegen k x l f s g k port */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(339);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(341);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(345);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
2023-03-12 21:54:44 +01:00
|
|
|
} 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(348);
|
2023-03-12 21:54:44 +01:00
|
|
|
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;
|
2023-02-28 06:31:08 +01:00
|
|
|
} 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];
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[5];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(350);
|
2023-03-10 23:30:41 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(354);
|
2023-03-10 23:30:41 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(358);
|
2023-02-28 06:31:08 +01:00
|
|
|
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])));
|
2023-03-10 23:30:41 +01:00
|
|
|
r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("lambda*"))));
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(374);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[8] = (hendblk(6+1));
|
2023-03-10 23:30:41 +01:00
|
|
|
{ /* 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)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
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])));
|
2023-03-10 23:30:41 +01:00
|
|
|
r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("letcc"))));
|
2023-02-28 06:31:08 +01:00
|
|
|
if (bool_from_obj(r[8])) {
|
|
|
|
|
hreserve(hbsz(6+1), 8); /* 8 live regs */
|
|
|
|
|
*--hp = r[6];
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = r[7];
|
2023-03-11 18:28:51 +01:00
|
|
|
*--hp = r[2];
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = r[3];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(383);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
2023-03-07 19:11:46 +01:00
|
|
|
} else {
|
|
|
|
|
r[8] = (car((r[1])));
|
2023-03-10 23:30:41 +01:00
|
|
|
r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("withcc"))));
|
2023-03-07 19:11:46 +01:00
|
|
|
if (bool_from_obj(r[8])) {
|
2023-03-10 23:30:41 +01:00
|
|
|
hreserve(hbsz(5+1), 8); /* 8 live regs */
|
2023-03-07 19:11:46 +01:00
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[5];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(390);
|
|
|
|
|
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])) {
|
2023-03-19 19:52:49 +01:00
|
|
|
hreserve(hbsz(6+1), 8); /* 8 live regs */
|
|
|
|
|
*--hp = r[6];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = obj_from_case(395);
|
2023-03-19 19:52:49 +01:00
|
|
|
r[8] = (hendblk(6+1));
|
2023-03-19 00:13:38 +01:00
|
|
|
{ /* 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)); }
|
2023-03-07 19:11:46 +01:00
|
|
|
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;
|
2023-02-28 06:31:08 +01:00
|
|
|
} 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[2];
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = r[4];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(411);
|
2023-02-28 06:31:08 +01:00
|
|
|
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[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;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
2023-03-07 19:11:46 +01:00
|
|
|
}
|
2023-03-10 23:30:41 +01:00
|
|
|
}
|
|
|
|
|
}
|
2023-03-12 21:54:44 +01:00
|
|
|
}
|
2023-03-19 00:13:38 +01:00
|
|
|
}
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 339: /* clo k obj */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(340);
|
2023-02-28 06:31:08 +01:00
|
|
|
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);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_l_v12586;
|
2023-02-28 06:31:08 +01:00
|
|
|
} 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);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_l_v12586;
|
2023-02-28 06:31:08 +01:00
|
|
|
} 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);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_l_v12586;
|
2023-03-10 23:30:41 +01:00
|
|
|
} else {
|
|
|
|
|
(void)(oportputc((39), (r[2])));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
/* r[2] */
|
|
|
|
|
goto gs_write_2Dserialized_2Darg;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 340: /* clo ek . */
|
2023-03-10 23:30:41 +01:00
|
|
|
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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_l_v12586: /* ek . k port k */
|
2023-03-10 23:30:41 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 341: /* clo k id */
|
2023-03-10 23:30:41 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(342);
|
2023-03-10 23:30:41 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(343);
|
2023-03-10 23:30:41 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(344);
|
2023-03-10 23:30:41 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 342: /* clo ek . */
|
2023-03-10 23:30:41 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 343: /* clo ek . */
|
2023-03-10 23:30:41 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 344: /* clo ek . */
|
2023-03-10 23:30:41 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 345: /* clo k id x */
|
2023-03-10 23:30:41 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(346);
|
2023-03-10 23:30:41 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 346: /* clo ek . */
|
2023-03-10 23:30:41 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(347);
|
2023-03-10 23:30:41 +01:00
|
|
|
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;
|
2023-02-28 06:31:08 +01:00
|
|
|
} else {
|
2023-03-10 23:30:41 +01:00
|
|
|
(void)(oportputc(('@'), (r[4])));
|
|
|
|
|
(void)(oportputc(('!'), (r[4])));
|
|
|
|
|
r[0] = r[9];
|
|
|
|
|
r[1] = r[6];
|
|
|
|
|
r[2] = r[4];
|
2023-02-28 06:31:08 +01:00
|
|
|
goto gs_write_2Dserialized_2Darg;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 347: /* clo ek . */
|
2023-03-12 21:54:44 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 348: /* clo k id */
|
2023-03-12 21:54:44 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(349);
|
2023-03-12 21:54:44 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 349: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* ek . k port k */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 350: /* clo k exps */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2];
|
|
|
|
|
r[1+4] = p[3];
|
|
|
|
|
r[1+5] = p[4];
|
2023-03-10 23:30:41 +01:00
|
|
|
r[1+6] = p[5];
|
|
|
|
|
r[1+7] = p[6]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* k exps g s f l port k */
|
|
|
|
|
hreserve(hbsz(4+1), 8); /* 8 live regs */
|
|
|
|
|
*--hp = r[7];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[1];
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[0];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(353);
|
2023-03-10 23:30:41 +01:00
|
|
|
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);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v12512;
|
2023-03-10 23:30:41 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 351: /* clo k xl */
|
2023-03-10 23:30:41 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v12512: /* k xl port g s f l k */
|
2023-03-10 23:30:41 +01:00
|
|
|
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);
|
2023-02-28 06:31:08 +01:00
|
|
|
} else {
|
2023-03-10 23:30:41 +01:00
|
|
|
r[8] = r[7];
|
|
|
|
|
}
|
|
|
|
|
hreserve(hbsz(6+1), 9); /* 9 live regs */
|
|
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[3];
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = r[2];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(351);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[9] = (hendblk(6+1));
|
|
|
|
|
hreserve(hbsz(3+1), 10); /* 10 live regs */
|
|
|
|
|
*--hp = r[0];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[1];
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = r[9];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(352);
|
2023-03-10 23:30:41 +01:00
|
|
|
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;
|
2023-02-28 06:31:08 +01:00
|
|
|
} else {
|
2023-03-10 23:30:41 +01:00
|
|
|
/* 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;
|
2023-02-28 06:31:08 +01:00
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 352: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* ek . loop xl k */
|
2023-02-28 06:31:08 +01:00
|
|
|
r[0] = r[2];
|
2023-03-10 23:30:41 +01:00
|
|
|
pc = objptr_from_obj(r[0])[0];
|
2023-02-28 06:31:08 +01:00
|
|
|
r[1] = r[4];
|
2023-03-10 23:30:41 +01:00
|
|
|
r[2] = (cdr((r[3])));
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 353: /* clo ek . */
|
2023-03-10 23:30:41 +01:00
|
|
|
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];
|
2023-02-28 06:31:08 +01:00
|
|
|
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();
|
2023-03-10 23:30:41 +01:00
|
|
|
r[2] = obj_from_void(0);
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 354: /* clo k test then else */
|
2023-03-10 23:30:41 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(355);
|
2023-03-10 23:30:41 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 355: /* clo ek . */
|
2023-03-10 23:30:41 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(356);
|
2023-03-10 23:30:41 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 356: /* clo ek . */
|
2023-03-10 23:30:41 +01:00
|
|
|
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 {
|
2023-03-20 04:31:28 +01:00
|
|
|
r[10] = obj_from_bool(isequal((r[6]), (cx__233294)));
|
2023-03-10 23:30:41 +01:00
|
|
|
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]);
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
2023-03-10 23:30:41 +01:00
|
|
|
} 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(357);
|
2023-03-10 23:30:41 +01:00
|
|
|
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];
|
2023-02-28 06:31:08 +01:00
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = obj_from_ktrap();
|
2023-03-10 23:30:41 +01:00
|
|
|
r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
2023-03-10 23:30:41 +01:00
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 357: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc >= 2);
|
|
|
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
2023-03-10 23:30:41 +01:00
|
|
|
r[1+3] = p[2]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* ek . k port */
|
2023-02-28 06:31:08 +01:00
|
|
|
r[0] = r[2];
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = obj_from_ktrap();
|
2023-03-10 23:30:41 +01:00
|
|
|
r[2] = obj_from_void(oportputc(('}'), (r[3])));
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 358: /* clo k idsi exp */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* k idsi exp f l s g k port */
|
|
|
|
|
hreserve(hbsz(9+1), 9); /* 9 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[8];
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[5];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[1];
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(359);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[9] = (hendblk(9+1));
|
|
|
|
|
r[0] = r[9];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
goto gs_flatten_2Didslist;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 359: /* clo ek r */
|
2023-03-10 23:30:41 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[7];
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = r[1];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[5];
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[2];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(360);
|
2023-03-10 23:30:41 +01:00
|
|
|
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 */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-10 23:30:41 +01:00
|
|
|
goto gs_find_2Dfree;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 360: /* clo ek r */
|
2023-03-10 23:30:41 +01:00
|
|
|
assert(rc == 3);
|
2023-02-28 06:31:08 +01:00
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2];
|
|
|
|
|
r[1+4] = p[3];
|
|
|
|
|
r[1+5] = p[4];
|
|
|
|
|
r[1+6] = p[5];
|
2023-03-10 23:30:41 +01:00
|
|
|
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]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* 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];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = r[2];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(361);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[12] = (hendblk(10+1));
|
|
|
|
|
r[0] = (r[12]);
|
|
|
|
|
/* r[1] */
|
|
|
|
|
r[2] = r[6];
|
|
|
|
|
goto gs_set_2Dminus;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 361: /* clo ek r */
|
2023-03-10 23:30:41 +01:00
|
|
|
assert(rc == 3);
|
2023-02-28 06:31:08 +01:00
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2];
|
2023-03-10 23:30:41 +01:00
|
|
|
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]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(362);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[12] = (hendblk(11+1));
|
|
|
|
|
r[0] = (r[12]);
|
|
|
|
|
r[1] = r[8];
|
|
|
|
|
r[2] = r[7];
|
|
|
|
|
goto gs_find_2Dsets;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 362: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2];
|
|
|
|
|
r[1+4] = p[3];
|
|
|
|
|
r[1+5] = p[4];
|
|
|
|
|
r[1+6] = p[5];
|
2023-03-10 23:30:41 +01:00
|
|
|
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]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* ek r f l idsi s g r r exp k k port */
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14876_tmp;
|
2023-03-10 23:30:41 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[7];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14876_tmp = (n); }
|
2023-03-10 23:30:41 +01:00
|
|
|
{ /* reverse */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj l, o = mknull(); int c = (v14876_tmp);
|
2023-03-10 23:30:41 +01:00
|
|
|
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];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = r[6];
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(365);
|
2023-03-10 23:30:41 +01:00
|
|
|
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 */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v12441;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 363: /* clo k free l */
|
2023-03-10 23:30:41 +01:00
|
|
|
assert(rc == 4);
|
2023-02-28 06:31:08 +01:00
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[1+3] = p[1];
|
|
|
|
|
r[1+4] = p[2];
|
|
|
|
|
r[1+5] = p[3]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v12441: /* k free l g f port */
|
2023-03-10 23:30:41 +01:00
|
|
|
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;
|
2023-02-28 06:31:08 +01:00
|
|
|
} else {
|
2023-03-10 23:30:41 +01:00
|
|
|
hreserve(hbsz(3+1), 6); /* 6 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(363);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[6] = (hendblk(3+1));
|
|
|
|
|
hreserve(hbsz(5+1), 7); /* 7 live regs */
|
|
|
|
|
*--hp = r[5];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[6];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(364);
|
2023-03-10 23:30:41 +01:00
|
|
|
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 */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
goto gs_codegen;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 364: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-10 23:30:41 +01:00
|
|
|
r[1+4] = p[3];
|
|
|
|
|
r[1+5] = p[4];
|
|
|
|
|
r[1+6] = p[5]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* 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)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
r[0] = r[2];
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
2023-03-10 23:30:41 +01:00
|
|
|
r[1] = r[5];
|
|
|
|
|
r[2] = (cdr((r[4])));
|
|
|
|
|
r[3] = r[7];
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-10 23:30:41 +01:00
|
|
|
rc = 4;
|
2023-02-28 06:31:08 +01:00
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 365: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-10 23:30:41 +01:00
|
|
|
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]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* 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]);
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[9];
|
|
|
|
|
*--hp = r[8];
|
|
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = r[3];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[2];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(366);
|
2023-03-10 23:30:41 +01:00
|
|
|
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;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 366: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-10 23:30:41 +01:00
|
|
|
r[1+10] = p[9];
|
|
|
|
|
r[1+11] = p[10]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* 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]);
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = (r[10]);
|
|
|
|
|
*--hp = r[9];
|
|
|
|
|
*--hp = r[8];
|
|
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(367);
|
2023-03-10 23:30:41 +01:00
|
|
|
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;
|
|
|
|
|
}
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 367: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc >= 2);
|
|
|
|
|
r[2] = obj_from_void(0); /* ignored */
|
2023-03-10 23:30:41 +01:00
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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]);
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[9];
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = r[8];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[7];
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[2];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(370);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[11] = (hendblk(9+1));
|
2023-02-28 06:31:08 +01:00
|
|
|
r[12+0] = (r[11]);
|
|
|
|
|
r[12+1] = r[6];
|
2023-03-10 23:30:41 +01:00
|
|
|
r[12+2] = obj_from_fixnum(+0);
|
|
|
|
|
r[12+3] = (r[10]);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[12+4] = r[3];
|
|
|
|
|
r += 12; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v12416;
|
2023-03-10 23:30:41 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 368: /* clo k ids n */
|
2023-03-10 23:30:41 +01:00
|
|
|
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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v12416: /* k ids n port r */
|
2023-03-10 23:30:41 +01:00
|
|
|
if ((isnull((r[1])))) {
|
|
|
|
|
/* r[0] */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
2023-03-10 23:30:41 +01:00
|
|
|
} else {
|
|
|
|
|
hreserve(hbsz(2+1), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(368);
|
2023-03-10 23:30:41 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(369);
|
2023-03-10 23:30:41 +01:00
|
|
|
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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(368);
|
2023-03-10 23:30:41 +01:00
|
|
|
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);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_l_v12418;
|
2023-02-28 06:31:08 +01:00
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 369: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc >= 2);
|
|
|
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
2023-03-10 23:30:41 +01:00
|
|
|
r[1+3] = p[2];
|
|
|
|
|
r[1+4] = p[3];
|
|
|
|
|
r[1+5] = p[4]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_l_v12418: /* ek . loop n ids k */
|
2023-02-28 06:31:08 +01:00
|
|
|
r[0] = r[2];
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
2023-03-10 23:30:41 +01:00
|
|
|
r[1] = r[5];
|
|
|
|
|
r[2] = (cdr((r[4])));
|
|
|
|
|
r[3] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1)));
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-10 23:30:41 +01:00
|
|
|
rc = 4;
|
2023-02-28 06:31:08 +01:00
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 370: /* clo ek . */
|
2023-03-10 23:30:41 +01:00
|
|
|
assert(rc >= 2);
|
|
|
|
|
r[2] = obj_from_void(0); /* ignored */
|
2023-02-28 06:31:08 +01:00
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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 */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* ek . s r g r r exp k k port */
|
|
|
|
|
hreserve(hbsz(8+1), 11); /* 11 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = (r[10]);
|
|
|
|
|
*--hp = r[9];
|
|
|
|
|
*--hp = r[8];
|
|
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(371);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[11] = (hendblk(8+1));
|
|
|
|
|
r[0] = (r[11]);
|
|
|
|
|
r[1] = r[2];
|
|
|
|
|
r[2] = r[5];
|
|
|
|
|
goto gs_set_2Dintersect;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 371: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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];
|
2023-03-10 23:30:41 +01:00
|
|
|
r[1+9] = p[8]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* ek r r g r r exp k k port */
|
|
|
|
|
hreserve(hbsz(7+1), 10); /* 10 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[9];
|
|
|
|
|
*--hp = r[8];
|
|
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(372);
|
2023-03-10 23:30:41 +01:00
|
|
|
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;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 372: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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];
|
2023-03-10 23:30:41 +01:00
|
|
|
r[1+8] = p[7]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* ek r g r r exp k k port */
|
|
|
|
|
hreserve(hbsz(3+1), 9); /* 9 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[8];
|
|
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = r[6];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(373);
|
2023-03-10 23:30:41 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 373: /* clo ek . */
|
2023-03-10 23:30:41 +01:00
|
|
|
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;
|
|
|
|
|
}
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 374: /* clo k clauses */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2];
|
|
|
|
|
r[1+4] = p[3];
|
|
|
|
|
r[1+5] = p[4];
|
|
|
|
|
r[1+6] = p[5];
|
2023-03-10 23:30:41 +01:00
|
|
|
r[1+7] = p[6]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* k clauses g s f l k port */
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14875_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
2023-03-10 23:30:41 +01:00
|
|
|
int n; obj l = r[1];
|
2023-02-28 06:31:08 +01:00
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14875_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* reverse */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj l, o = mknull(); int c = (v14875_tmp);
|
2023-03-10 23:30:41 +01:00
|
|
|
hreserve(hbsz(3)*c, 8); /* 8 live regs */
|
|
|
|
|
l = r[1]; /* gc-safe */
|
2023-02-28 06:31:08 +01:00
|
|
|
for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }
|
2023-03-10 23:30:41 +01:00
|
|
|
r[8] = (o); } }
|
|
|
|
|
hreserve(hbsz(4+1), 9); /* 9 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = r[6];
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = r[0];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[1];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(377);
|
2023-03-10 23:30:41 +01:00
|
|
|
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 */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v12359;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 375: /* clo k clauses l */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 4);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+3] = p[1];
|
|
|
|
|
r[1+4] = p[2];
|
2023-03-10 23:30:41 +01:00
|
|
|
r[1+5] = p[3];
|
|
|
|
|
r[1+6] = p[4]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v12359: /* k clauses l g s f port */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 {
|
2023-03-10 23:30:41 +01:00
|
|
|
hreserve(hbsz(4+1), 7); /* 7 live regs */
|
|
|
|
|
*--hp = r[6];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(375);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[7] = (hendblk(4+1));
|
|
|
|
|
hreserve(hbsz(5+1), 8); /* 8 live regs */
|
|
|
|
|
*--hp = r[6];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[7];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(376);
|
2023-03-10 23:30:41 +01:00
|
|
|
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 */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
goto gs_codegen;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 376: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* ek . loop l clauses k port */
|
|
|
|
|
(void)(oportputc(('%'), (r[6])));
|
|
|
|
|
(void)(oportputc(('x'), (r[6])));
|
2023-02-28 06:31:08 +01:00
|
|
|
(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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 377: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-10 23:30:41 +01:00
|
|
|
r[1+5] = p[4]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* ek . clauses k k port */
|
|
|
|
|
(void)(oportputc(('&'), (r[5])));
|
|
|
|
|
hreserve(hbsz(4+1), 6); /* 6 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[2];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(378);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[6] = (hendblk(4+1));
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[2];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-10 23:30:41 +01:00
|
|
|
r[7] = obj_from_fixnum(n); }
|
|
|
|
|
r[0] = r[6];
|
|
|
|
|
r[1] = r[7];
|
|
|
|
|
r[2] = r[5];
|
2023-02-28 06:31:08 +01:00
|
|
|
goto gs_write_2Dserialized_2Darg;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 378: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-10 23:30:41 +01:00
|
|
|
r[1+5] = p[4]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* ek . clauses k k port */
|
|
|
|
|
(void)(oportputc(('{'), (r[5])));
|
|
|
|
|
hreserve(hbsz(3+1), 6); /* 6 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(382);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[6] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[6];
|
|
|
|
|
r[1] = r[2];
|
|
|
|
|
r[2] = obj_from_fixnum(+0);
|
|
|
|
|
r[3] = r[5];
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v12332;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 379: /* clo k clauses i */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 4);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[1+3] = p[1]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v12332: /* k clauses i port */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 {
|
2023-03-10 23:30:41 +01:00
|
|
|
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 */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(379);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[7] = (hendblk(1+1));
|
|
|
|
|
hreserve(hbsz(5+1), 8); /* 8 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(380);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[7] = (hendblk(5+1));
|
|
|
|
|
r[0] = r[7];
|
|
|
|
|
r[1] = r[5];
|
2023-02-28 06:31:08 +01:00
|
|
|
r[2] = r[3];
|
|
|
|
|
goto gs_write_2Dserialized_2Darg;
|
2023-03-10 23:30:41 +01:00
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 380: /* clo ek . */
|
2023-03-10 23:30:41 +01:00
|
|
|
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];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(381);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[7] = (hendblk(4+1));
|
|
|
|
|
r[0] = r[7];
|
|
|
|
|
r[1] = r[4];
|
|
|
|
|
/* r[2] */
|
|
|
|
|
goto gs_write_2Dserialized_2Darg;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 381: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* ek . loop i clauses k */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 382: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-10 23:30:41 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 383: /* clo k kid exp */
|
2023-03-10 23:30:41 +01:00
|
|
|
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 */
|
2023-03-11 18:28:51 +01:00
|
|
|
/* k kid exp s g f l port k */
|
2023-03-10 23:30:41 +01:00
|
|
|
{ /* 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];
|
2023-03-11 18:28:51 +01:00
|
|
|
*--hp = r[1];
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[2];
|
2023-03-11 18:28:51 +01:00
|
|
|
*--hp = r[6];
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[9];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(384);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[10] = (hendblk(10+1));
|
|
|
|
|
r[0] = (r[10]);
|
|
|
|
|
r[1] = r[2];
|
|
|
|
|
r[2] = r[9];
|
|
|
|
|
goto gs_find_2Dsets;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 384: /* clo ek r */
|
2023-03-10 23:30:41 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2];
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-10 23:30:41 +01:00
|
|
|
r[1+10] = p[9];
|
|
|
|
|
r[1+11] = p[10]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-11 18:28:51 +01:00
|
|
|
/* ek r ids s g f l exp k kid port k */
|
2023-03-10 23:30:41 +01:00
|
|
|
hreserve(hbsz(9+1), 12); /* 12 live regs */
|
|
|
|
|
*--hp = (r[11]);
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = (r[10]);
|
2023-03-11 18:28:51 +01:00
|
|
|
*--hp = r[1];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[9];
|
|
|
|
|
*--hp = r[8];
|
|
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(385);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[12] = (hendblk(9+1));
|
|
|
|
|
r[0] = (r[12]);
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
/* r[2] */
|
|
|
|
|
goto gs_set_2Dminus;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 385: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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];
|
2023-03-10 23:30:41 +01:00
|
|
|
r[1+9] = p[8];
|
|
|
|
|
r[1+10] = p[9]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-11 18:28:51 +01:00
|
|
|
/* ek r g f l exp k kid r port k */
|
2023-03-10 23:30:41 +01:00
|
|
|
hreserve(hbsz(9+1), 11); /* 11 live regs */
|
|
|
|
|
*--hp = (r[10]);
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[9];
|
|
|
|
|
*--hp = r[8];
|
|
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = r[2];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(386);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[11] = (hendblk(9+1));
|
|
|
|
|
r[0] = (r[11]);
|
|
|
|
|
/* r[1] */
|
2023-03-11 18:28:51 +01:00
|
|
|
r[2] = r[8];
|
2023-02-28 06:31:08 +01:00
|
|
|
goto gs_set_2Dunion;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 386: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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];
|
2023-03-10 23:30:41 +01:00
|
|
|
r[1+8] = p[7];
|
|
|
|
|
r[1+9] = p[8];
|
|
|
|
|
r[1+10] = p[9]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-11 18:28:51 +01:00
|
|
|
/* 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 */
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = r[9];
|
2023-03-11 18:28:51 +01:00
|
|
|
*--hp = r[8];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = r[6];
|
2023-03-10 23:30:41 +01:00
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
2023-03-11 18:28:51 +01:00
|
|
|
*--hp = (r[10]);
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(387);
|
2023-03-11 18:28:51 +01:00
|
|
|
r[11] = (hendblk(10+1));
|
|
|
|
|
r[0] = (r[11]);
|
|
|
|
|
r[1] = (r[10]);
|
|
|
|
|
r[2] = r[9];
|
2023-03-10 23:30:41 +01:00
|
|
|
goto gs_write_2Dserialized_2Darg;
|
|
|
|
|
} else {
|
2023-03-11 18:28:51 +01:00
|
|
|
(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])));
|
2023-03-10 23:30:41 +01:00
|
|
|
} else {
|
|
|
|
|
}
|
2023-03-11 18:28:51 +01:00
|
|
|
hreserve(hbsz(2+1), 11); /* 11 live regs */
|
|
|
|
|
*--hp = r[9];
|
|
|
|
|
*--hp = r[6];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(388);
|
2023-03-11 18:28:51 +01:00
|
|
|
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]);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[13+3] = r[3];
|
|
|
|
|
r[13+4] = r[1];
|
|
|
|
|
r[13+5] = r[2];
|
|
|
|
|
r[13+6] = obj_from_bool(0);
|
2023-03-11 18:28:51 +01:00
|
|
|
r[13+7] = r[9];
|
2023-03-10 23:30:41 +01:00
|
|
|
r += 13; /* shift reg wnd */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
goto gs_codegen;
|
2023-03-10 23:30:41 +01:00
|
|
|
}
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 387: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-10 23:30:41 +01:00
|
|
|
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]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-11 18:28:51 +01:00
|
|
|
/* ek . k g r f l exp k kid r port */
|
2023-03-10 23:30:41 +01:00
|
|
|
(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])));
|
2023-02-28 06:31:08 +01:00
|
|
|
} else {
|
|
|
|
|
}
|
2023-03-11 18:28:51 +01:00
|
|
|
{ /* 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 */
|
2023-03-10 23:30:41 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
goto gs_codegen;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 388: /* clo ek . */
|
2023-03-10 23:30:41 +01:00
|
|
|
assert(rc >= 2);
|
|
|
|
|
r[2] = obj_from_void(0); /* ignored */
|
2023-03-07 19:11:46 +01:00
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
2023-03-10 23:30:41 +01:00
|
|
|
r[1+3] = p[2]; }
|
2023-03-07 19:11:46 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* ek . k port */
|
|
|
|
|
(void)(oportputc(('_'), (r[3])));
|
|
|
|
|
hreserve(hbsz(2+1), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[2];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(389);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[4] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = obj_from_fixnum(+3);
|
|
|
|
|
r[2] = r[3];
|
|
|
|
|
goto gs_write_2Dserialized_2Darg;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 389: /* clo ek . */
|
2023-03-10 23:30:41 +01:00
|
|
|
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])));
|
2023-03-07 19:11:46 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-10 23:30:41 +01:00
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
2023-03-07 19:11:46 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 390: /* clo k kexp exp */
|
2023-03-07 19:11:46 +01:00
|
|
|
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];
|
2023-03-10 23:30:41 +01:00
|
|
|
r[1+6] = p[4];
|
|
|
|
|
r[1+7] = p[5]; }
|
2023-03-07 19:11:46 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* k kexp exp g s f l port */
|
|
|
|
|
r[8] = (car((r[2])));
|
|
|
|
|
{ /* memq */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj x = (r[8]), l = (cx__233129);
|
2023-03-10 23:30:41 +01:00
|
|
|
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];
|
2023-03-07 19:11:46 +01:00
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(391);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[8] = (hendblk(7+1));
|
|
|
|
|
r[9+0] = r[8];
|
|
|
|
|
r[9+1] = r[2];
|
|
|
|
|
r[9+2] = r[6];
|
2023-03-07 19:11:46 +01:00
|
|
|
r[9+3] = r[5];
|
|
|
|
|
r[9+4] = r[4];
|
|
|
|
|
r[9+5] = r[3];
|
|
|
|
|
r[9+6] = obj_from_bool(0);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[9+7] = r[7];
|
2023-03-07 19:11:46 +01:00
|
|
|
r += 9; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
goto gs_codegen;
|
2023-03-10 23:30:41 +01:00
|
|
|
} 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(393);
|
2023-03-10 23:30:41 +01:00
|
|
|
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;
|
2023-03-07 19:11:46 +01:00
|
|
|
}
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 391: /* clo ek . */
|
2023-03-07 19:11:46 +01:00
|
|
|
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];
|
2023-03-10 23:30:41 +01:00
|
|
|
r[1+6] = p[5];
|
|
|
|
|
r[1+7] = p[6];
|
|
|
|
|
r[1+8] = p[7]; }
|
2023-03-07 19:11:46 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(392);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[9] = (hendblk(2+1));
|
2023-03-07 19:11:46 +01:00
|
|
|
{ /* cons */
|
2023-03-10 23:30:41 +01:00
|
|
|
hreserve(hbsz(3), 10); /* 10 live regs */
|
|
|
|
|
*--hp = r[5];
|
2023-03-07 19:11:46 +01:00
|
|
|
*--hp = obj_from_bool(0);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-10 23:30:41 +01:00
|
|
|
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 */
|
2023-03-07 19:11:46 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-10 23:30:41 +01:00
|
|
|
goto gs_codegen;
|
2023-03-07 19:11:46 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 392: /* clo ek . */
|
2023-03-07 19:11:46 +01:00
|
|
|
assert(rc >= 2);
|
|
|
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
2023-03-10 23:30:41 +01:00
|
|
|
r[1+3] = p[2]; }
|
2023-03-07 19:11:46 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* ek . k port */
|
|
|
|
|
(void)(oportputc(('w'), (r[3])));
|
|
|
|
|
r[4] = obj_from_void(oportputc(('!'), (r[3])));
|
|
|
|
|
r[0] = r[2];
|
2023-03-07 19:11:46 +01:00
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = obj_from_ktrap();
|
2023-03-10 23:30:41 +01:00
|
|
|
r[2] = r[4];
|
2023-03-07 19:11:46 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 393: /* clo ek . */
|
2023-03-07 19:11:46 +01:00
|
|
|
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];
|
2023-03-10 23:30:41 +01:00
|
|
|
r[1+6] = p[5];
|
|
|
|
|
r[1+7] = p[6];
|
|
|
|
|
r[1+8] = p[7]; }
|
2023-03-07 19:11:46 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* 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];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(394);
|
2023-03-10 23:30:41 +01:00
|
|
|
r[9] = (hendblk(2+1));
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 10); /* 10 live regs */
|
2023-03-07 19:11:46 +01:00
|
|
|
*--hp = r[5];
|
2023-03-10 23:30:41 +01:00
|
|
|
*--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 */
|
2023-03-07 19:11:46 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-10 23:30:41 +01:00
|
|
|
goto gs_codegen;
|
2023-03-07 19:11:46 +01:00
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 394: /* clo ek . */
|
2023-03-07 19:11:46 +01:00
|
|
|
assert(rc >= 2);
|
|
|
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
2023-03-10 23:30:41 +01:00
|
|
|
r[1+3] = p[2]; }
|
2023-03-07 19:11:46 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-10 23:30:41 +01:00
|
|
|
/* ek . k port */
|
2023-03-07 19:11:46 +01:00
|
|
|
r[0] = r[2];
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = obj_from_ktrap();
|
2023-03-10 23:30:41 +01:00
|
|
|
r[2] = obj_from_void(oportputc(('w'), (r[3])));
|
2023-03-07 19:11:46 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-19 00:13:38 +01:00
|
|
|
case 395: /* 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];
|
2023-03-19 19:52:49 +01:00
|
|
|
r[1+7] = p[5];
|
|
|
|
|
r[1+8] = p[6]; }
|
2023-03-19 00:13:38 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-19 19:52:49 +01:00
|
|
|
/* k ig args g s f l port k */
|
2023-03-19 00:13:38 +01:00
|
|
|
{ /* define integrable-code */
|
|
|
|
|
static obj c[] = { obj_from_objptr(vmcases+12) };
|
2023-03-19 19:52:49 +01:00
|
|
|
r[9] = obj_from_objptr(c); }
|
|
|
|
|
hreserve(hbsz(9+1), 10); /* 10 live regs */
|
|
|
|
|
*--hp = r[8];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--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(396);
|
2023-03-19 19:52:49 +01:00
|
|
|
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 */
|
2023-03-19 00:13:38 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 4;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
|
|
|
|
case 396: /* clo ek r */
|
|
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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];
|
2023-03-19 19:52:49 +01:00
|
|
|
r[1+9] = p[8];
|
|
|
|
|
r[1+10] = p[9]; }
|
2023-03-19 00:13:38 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-19 19:52:49 +01:00
|
|
|
/* ek r ig g s f l args k port k */
|
2023-03-19 00:13:38 +01:00
|
|
|
{ /* define integrable-type */
|
|
|
|
|
static obj c[] = { obj_from_objptr(vmcases+10) };
|
2023-03-19 19:52:49 +01:00
|
|
|
r[11] = obj_from_objptr(c); }
|
2023-03-20 04:31:28 +01:00
|
|
|
hreserve(hbsz(10+1), 12); /* 12 live regs */
|
2023-03-19 19:52:49 +01:00
|
|
|
*--hp = (r[10]);
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = r[9];
|
|
|
|
|
*--hp = r[8];
|
2023-03-19 19:52:49 +01:00
|
|
|
*--hp = r[1];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = r[2];
|
2023-03-19 00:13:38 +01:00
|
|
|
*--hp = obj_from_case(397);
|
2023-03-20 04:31:28 +01:00
|
|
|
r[12] = (hendblk(10+1));
|
2023-03-19 19:52:49 +01:00
|
|
|
r[0] = (r[11]);
|
2023-03-19 00:13:38 +01:00
|
|
|
pc = objptr_from_obj(r[0])[0];
|
2023-03-19 19:52:49 +01:00
|
|
|
r[1] = (r[12]);
|
2023-03-19 00:13:38 +01:00
|
|
|
/* r[2] */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
|
|
|
|
case 397: /* clo ek r */
|
|
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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];
|
2023-03-19 19:52:49 +01:00
|
|
|
r[1+9] = p[8];
|
2023-03-20 04:31:28 +01:00
|
|
|
r[1+10] = p[9];
|
|
|
|
|
r[1+11] = p[10]; }
|
2023-03-19 00:13:38 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
/* ek r ig g s f l args r k port k */
|
|
|
|
|
hreserve(hbsz(3+1), 12); /* 12 live regs */
|
|
|
|
|
*--hp = (r[11]);
|
2023-03-19 19:52:49 +01:00
|
|
|
*--hp = (r[10]);
|
|
|
|
|
*--hp = r[9];
|
|
|
|
|
*--hp = obj_from_case(398);
|
2023-03-20 04:31:28 +01:00
|
|
|
r[12] = (hendblk(3+1));
|
2023-03-19 00:13:38 +01:00
|
|
|
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)))))) {
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14874_tmp;
|
2023-03-19 00:13:38 +01:00
|
|
|
{ /* length */
|
2023-03-20 04:31:28 +01:00
|
|
|
int n; obj l = r[7];
|
2023-03-19 00:13:38 +01:00
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14874_tmp = (n); }
|
2023-03-19 00:13:38 +01:00
|
|
|
{ /* reverse */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj l, o = mknull(); int c = (v14874_tmp);
|
|
|
|
|
hreserve(hbsz(3)*c, 13); /* 13 live regs */
|
|
|
|
|
l = r[7]; /* gc-safe */
|
2023-03-19 00:13:38 +01:00
|
|
|
for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }
|
2023-03-20 04:31:28 +01:00
|
|
|
r[13] = (o); } }
|
|
|
|
|
hreserve(hbsz(3+1), 14); /* 14 live regs */
|
|
|
|
|
*--hp = (r[10]);
|
|
|
|
|
*--hp = r[8];
|
|
|
|
|
*--hp = (r[12]);
|
2023-03-19 19:52:49 +01:00
|
|
|
*--hp = obj_from_case(401);
|
2023-03-20 04:31:28 +01:00
|
|
|
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_v12211;
|
|
|
|
|
} 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(402);
|
|
|
|
|
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);
|
2023-03-19 00:13:38 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-20 04:31:28 +01:00
|
|
|
rc = 4;
|
|
|
|
|
goto jump;
|
2023-03-19 00:13:38 +01:00
|
|
|
} else {
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14872_tmp;
|
|
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[7];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
|
|
|
v14872_tmp = (n); }
|
|
|
|
|
r[13] = obj_from_fixnum(fxsub((v14872_tmp), (+1))); }
|
|
|
|
|
{ fixnum_t v14873_tmp;
|
|
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[7];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
|
|
|
v14873_tmp = (n); }
|
|
|
|
|
{ /* reverse */
|
|
|
|
|
obj l, o = mknull(); int c = (v14873_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(405);
|
|
|
|
|
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_v12186;
|
|
|
|
|
}
|
|
|
|
|
} 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(406);
|
|
|
|
|
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 v14870_tmp;
|
|
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[7];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
|
|
|
v14870_tmp = (n); }
|
|
|
|
|
r[13] = obj_from_fixnum(fxsub((v14870_tmp), (+1))); }
|
|
|
|
|
{ fixnum_t v14871_tmp;
|
|
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[7];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
|
|
|
v14871_tmp = (n); }
|
|
|
|
|
{ /* reverse */
|
|
|
|
|
obj l, o = mknull(); int c = (v14871_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(410);
|
|
|
|
|
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_v12150;
|
|
|
|
|
}
|
|
|
|
|
} else {
|
|
|
|
|
r[13+0] = (cx_error);
|
|
|
|
|
pc = objptr_from_obj(r[13+0])[0];
|
|
|
|
|
r[13+1] = (r[12]);
|
|
|
|
|
r[13+2] = (mksymbol(internsym("codegen")));
|
|
|
|
|
r[13+3] = (cx__232982);
|
|
|
|
|
r[13+4] = (r[1]);
|
|
|
|
|
r += 13; /* shift reg wnd */
|
2023-03-19 00:13:38 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 5;
|
|
|
|
|
goto jump;
|
|
|
|
|
}
|
2023-03-20 04:31:28 +01:00
|
|
|
}
|
|
|
|
|
}
|
2023-03-19 00:13:38 +01:00
|
|
|
|
2023-03-19 19:52:49 +01:00
|
|
|
case 398: /* 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 399: /* clo k args l */
|
2023-03-19 00:13:38 +01:00
|
|
|
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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v12211: /* k args l g s f port */
|
2023-03-19 00:13:38 +01:00
|
|
|
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];
|
2023-03-19 19:52:49 +01:00
|
|
|
*--hp = obj_from_case(399);
|
2023-03-19 00:13:38 +01:00
|
|
|
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];
|
2023-03-19 19:52:49 +01:00
|
|
|
*--hp = obj_from_case(400);
|
2023-03-19 00:13:38 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-19 19:52:49 +01:00
|
|
|
case 400: /* clo ek . */
|
2023-03-19 00:13:38 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-19 19:52:49 +01:00
|
|
|
case 401: /* clo ek . */
|
2023-03-19 00:13:38 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 402: /* clo ek r */
|
|
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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 403: /* clo k args l */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
r[1+6] = p[4]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v12186: /* 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;
|
2023-02-28 06:31:08 +01:00
|
|
|
} else {
|
2023-03-20 04:31:28 +01:00
|
|
|
hreserve(hbsz(4+1), 7); /* 7 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(403);
|
|
|
|
|
r[7] = (hendblk(4+1));
|
|
|
|
|
hreserve(hbsz(5+1), 8); /* 8 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[6];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[2];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = obj_from_case(404);
|
|
|
|
|
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 404: /* 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 */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[3];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--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 405: /* 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_v12177;
|
|
|
|
|
|
|
|
|
|
s_loop_v12177: /* k i r port opc */
|
|
|
|
|
{ const fixnum_t v14869_i = fixnum_from_obj(r[1]);
|
|
|
|
|
if (((v14869_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((v14869_i), (+1)));
|
|
|
|
|
/* r[2] */
|
|
|
|
|
/* r[3] */
|
|
|
|
|
/* r[4] */
|
|
|
|
|
goto s_loop_v12177;
|
|
|
|
|
} }
|
|
|
|
|
|
|
|
|
|
case 406: /* clo ek r */
|
|
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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(407);
|
|
|
|
|
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 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; /* 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 408: /* 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_v12150: /* 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(408);
|
|
|
|
|
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(409);
|
|
|
|
|
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 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+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 410: /* 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_v12141;
|
|
|
|
|
|
|
|
|
|
s_loop_v12141: /* k i r port opc */
|
|
|
|
|
{ const fixnum_t v14868_i = fixnum_from_obj(r[1]);
|
|
|
|
|
if (((v14868_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((v14868_i), (+1)));
|
|
|
|
|
/* r[2] */
|
|
|
|
|
/* r[3] */
|
|
|
|
|
/* r[4] */
|
|
|
|
|
goto s_loop_v12141;
|
|
|
|
|
} }
|
|
|
|
|
|
|
|
|
|
case 411: /* 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 port g f k l */
|
|
|
|
|
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 v14867_tmp;
|
|
|
|
|
{ fixnum_t v14866_tmp;
|
|
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[2];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
|
|
|
v14867_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)) ;
|
|
|
|
|
v14866_tmp = (n); }
|
|
|
|
|
r[9] = obj_from_bool((v14867_tmp) == (v14866_tmp)); } }
|
|
|
|
|
} else {
|
|
|
|
|
r[9] = obj_from_bool(0);
|
|
|
|
|
}
|
|
|
|
|
} else {
|
|
|
|
|
r[9] = obj_from_bool(0);
|
|
|
|
|
}
|
|
|
|
|
if (bool_from_obj(r[9])) {
|
|
|
|
|
{ fixnum_t v14865_tmp;
|
|
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[2];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
|
|
|
v14865_tmp = (n); }
|
|
|
|
|
{ /* reverse */
|
|
|
|
|
obj l, o = mknull(); int c = (v14865_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[7];
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = obj_from_case(414);
|
|
|
|
|
r[10] = (hendblk(9+1));
|
|
|
|
|
r[11+0] = (r[10]);
|
|
|
|
|
r[11+1] = r[9];
|
|
|
|
|
r[11+2] = r[8];
|
|
|
|
|
r[11+3] = r[5];
|
|
|
|
|
r[11+4] = r[3];
|
|
|
|
|
r[11+5] = r[6];
|
|
|
|
|
r[11+6] = r[4];
|
|
|
|
|
r += 11; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
goto s_loop_v12114;
|
|
|
|
|
} else {
|
|
|
|
|
hreserve(hbsz(9+1), 9); /* 9 live regs */
|
|
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[8];
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_case(422);
|
|
|
|
|
r[9] = (hendblk(9+1));
|
|
|
|
|
r[10] = (car((r[1])));
|
|
|
|
|
r[10] = obj_from_bool((r[10]) == (mksymbol(internsym("ref"))));
|
|
|
|
|
if (bool_from_obj(r[10])) {
|
2023-02-28 06:31:08 +01:00
|
|
|
r[10] = (cdr((r[1])));
|
|
|
|
|
r[10] = (car((r[10])));
|
|
|
|
|
r[10] = (cxs_posq((r[10]), (r[8])));
|
|
|
|
|
r[10] = obj_from_bool(!bool_from_obj(r[10]));
|
|
|
|
|
if (bool_from_obj(r[10])) {
|
|
|
|
|
r[10] = (cdr((r[1])));
|
|
|
|
|
r[10] = (car((r[10])));
|
|
|
|
|
r[10] = (cxs_posq((r[10]), (r[6])));
|
|
|
|
|
r[10] = obj_from_bool(!bool_from_obj(r[10]));
|
|
|
|
|
if (bool_from_obj(r[10])) {
|
|
|
|
|
{ /* define find-integrable-encoding */
|
|
|
|
|
static obj c[] = { obj_from_objptr(vmcases+4) };
|
|
|
|
|
r[10] = obj_from_objptr(c); }
|
|
|
|
|
r[11] = (cdr((r[1])));
|
|
|
|
|
r[11] = (car((r[11])));
|
|
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[2];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
|
|
|
r[12] = obj_from_fixnum(n); }
|
|
|
|
|
r[13+0] = (r[10]);
|
|
|
|
|
pc = objptr_from_obj(r[13+0])[0];
|
|
|
|
|
r[13+1] = r[9];
|
|
|
|
|
r[13+2] = (r[11]);
|
|
|
|
|
r[13+3] = (r[12]);
|
|
|
|
|
r += 13; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 4;
|
|
|
|
|
goto jump;
|
|
|
|
|
} else {
|
|
|
|
|
r[10+0] = obj_from_ktrap();
|
|
|
|
|
r[10+1] = obj_from_bool(0);
|
|
|
|
|
r[10+2] = r[1];
|
|
|
|
|
r[10+3] = r[5];
|
|
|
|
|
r[10+4] = r[3];
|
|
|
|
|
r[10+5] = r[6];
|
|
|
|
|
r[10+6] = r[8];
|
|
|
|
|
r[10+7] = r[2];
|
|
|
|
|
r[10+8] = r[0];
|
|
|
|
|
r[10+9] = r[4];
|
|
|
|
|
r[10+10] = r[7];
|
|
|
|
|
r += 10; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_l_v11979;
|
2023-02-28 06:31:08 +01:00
|
|
|
}
|
|
|
|
|
} else {
|
|
|
|
|
r[10+0] = obj_from_ktrap();
|
|
|
|
|
r[10+1] = obj_from_bool(0);
|
|
|
|
|
r[10+2] = r[1];
|
|
|
|
|
r[10+3] = r[5];
|
|
|
|
|
r[10+4] = r[3];
|
|
|
|
|
r[10+5] = r[6];
|
|
|
|
|
r[10+6] = r[8];
|
|
|
|
|
r[10+7] = r[2];
|
|
|
|
|
r[10+8] = r[0];
|
|
|
|
|
r[10+9] = r[4];
|
|
|
|
|
r[10+10] = r[7];
|
|
|
|
|
r += 10; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_l_v11979;
|
2023-02-28 06:31:08 +01:00
|
|
|
}
|
|
|
|
|
} else {
|
|
|
|
|
r[10+0] = obj_from_ktrap();
|
|
|
|
|
r[10+1] = obj_from_bool(0);
|
|
|
|
|
r[10+2] = r[1];
|
|
|
|
|
r[10+3] = r[5];
|
|
|
|
|
r[10+4] = r[3];
|
|
|
|
|
r[10+5] = r[6];
|
|
|
|
|
r[10+6] = r[8];
|
|
|
|
|
r[10+7] = r[2];
|
|
|
|
|
r[10+8] = r[0];
|
|
|
|
|
r[10+9] = r[4];
|
|
|
|
|
r[10+10] = r[7];
|
|
|
|
|
r += 10; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_l_v11979;
|
2023-02-28 06:31:08 +01:00
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 412: /* clo k args l */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v12114: /* k args l g s f port */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(412);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(413);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 413: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 414: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 port args g f k k l 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[11]);
|
|
|
|
|
*--hp = r[9];
|
|
|
|
|
*--hp = r[8];
|
|
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = (r[12]);
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[2];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(415);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[13] = (hendblk(10+1));
|
|
|
|
|
r[0] = (r[13]);
|
|
|
|
|
r[1] = (r[12]);
|
|
|
|
|
r[2] = (r[11]);
|
|
|
|
|
goto gs_find_2Dsets;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 415: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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 port args g f exp k k l ids */
|
|
|
|
|
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[1];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(416);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[12] = (hendblk(10+1));
|
|
|
|
|
r[0] = (r[12]);
|
|
|
|
|
r[1] = r[2];
|
|
|
|
|
r[2] = (r[11]);
|
|
|
|
|
goto gs_set_2Dminus;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 416: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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 port args g f exp k k l ids */
|
|
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(417);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[12] = (hendblk(10+1));
|
|
|
|
|
r[0] = (r[12]);
|
|
|
|
|
/* r[1] */
|
|
|
|
|
/* r[2] */
|
|
|
|
|
goto gs_set_2Dunion;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 417: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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 port args g f exp k k l ids */
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14864_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = (r[11]);
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14864_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* append */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj t, l, o, *p, *d; int c = (v14864_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(3)*c, 12); /* 12 live regs */
|
|
|
|
|
l = (r[11]); t = (r[10]); /* gc-safe */
|
|
|
|
|
o = t; p = &o;
|
|
|
|
|
for (; l != mknull(); l = cdr(l)) {
|
|
|
|
|
*--hp = t; d = hp; *--hp = car(l);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
*p = hendblk(3); p = d; }
|
|
|
|
|
r[12] = (o); } }
|
|
|
|
|
hreserve(hbsz(9+1), 13); /* 13 live regs */
|
|
|
|
|
*--hp = r[9];
|
|
|
|
|
*--hp = r[8];
|
|
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = (r[12]);
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(420);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[13] = (hendblk(9+1));
|
|
|
|
|
r[14+0] = (r[13]);
|
|
|
|
|
r[14+1] = (r[11]);
|
|
|
|
|
r[14+2] = obj_from_fixnum(+0);
|
|
|
|
|
r[14+3] = r[3];
|
|
|
|
|
r[14+4] = r[2];
|
|
|
|
|
r += 14; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v12085;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 418: /* clo k ids n */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v12085: /* k ids n port r */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(418);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(419);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(418);
|
2023-02-28 06:31:08 +01:00
|
|
|
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);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_l_v12087;
|
2023-02-28 06:31:08 +01:00
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 419: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_l_v12087: /* ek . loop n ids k */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 420: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 newl exp k k */
|
|
|
|
|
if (bool_from_obj(r[10])) {
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14863_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[3];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14863_tmp = (n); }
|
|
|
|
|
r[11] = obj_from_fixnum(fxadd(fixnum_from_obj(r[10]), (v14863_tmp))); }
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(421);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 421: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 422: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_l_v11979: /* ek r exp g s f l args k port k */
|
2023-02-28 06:31:08 +01:00
|
|
|
if (bool_from_obj(r[1])) {
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14862_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[7];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14862_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* reverse */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj l, o = mknull(); int c = (v14862_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(3)*c, 11); /* 11 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[11] = (o); } }
|
|
|
|
|
hreserve(hbsz(5+1), 12); /* 12 live regs */
|
|
|
|
|
*--hp = (r[10]);
|
|
|
|
|
*--hp = r[9];
|
|
|
|
|
*--hp = r[8];
|
|
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = r[1];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(425);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[12] = (hendblk(5+1));
|
|
|
|
|
r[0] = (r[12]);
|
|
|
|
|
r[1] = (r[11]);
|
|
|
|
|
r[2] = r[6];
|
|
|
|
|
/* r[3] */
|
|
|
|
|
/* r[4] */
|
|
|
|
|
/* r[5] */
|
|
|
|
|
r[6] = r[9];
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v12048;
|
2023-02-28 06:31:08 +01:00
|
|
|
} else {
|
|
|
|
|
if (bool_from_obj(r[10])) {
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14861_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[7];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14861_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* reverse */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj l, o = mknull(); int c = (v14861_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(3)*c, 11); /* 11 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[11] = (o); } }
|
|
|
|
|
hreserve(hbsz(4+1), 12); /* 12 live regs */
|
|
|
|
|
*--hp = r[9];
|
|
|
|
|
*--hp = r[8];
|
|
|
|
|
*--hp = r[7];
|
|
|
|
|
*--hp = (r[10]);
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(429);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[12] = (hendblk(4+1));
|
|
|
|
|
r[13+0] = (r[12]);
|
|
|
|
|
r[13+1] = (r[11]);
|
|
|
|
|
r[13+2] = r[6];
|
|
|
|
|
r[13+3] = r[9];
|
|
|
|
|
r[13+4] = r[3];
|
|
|
|
|
r[13+5] = r[4];
|
|
|
|
|
r[13+6] = r[5];
|
|
|
|
|
r[13+7] = r[2];
|
|
|
|
|
r += 13; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v12023;
|
2023-02-28 06:31:08 +01:00
|
|
|
} else {
|
|
|
|
|
(void)(oportputc((36), (r[9])));
|
|
|
|
|
(void)(oportputc(('{'), (r[9])));
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14860_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[7];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14860_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* reverse */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj l, o = mknull(); int c = (v14860_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(3)*c, 11); /* 11 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[11] = (o); } }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 12); /* 12 live regs */
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--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)); }
|
|
|
|
|
hreserve(hbsz(3+1), 13); /* 13 live regs */
|
|
|
|
|
*--hp = r[9];
|
|
|
|
|
*--hp = r[8];
|
|
|
|
|
*--hp = r[7];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(433);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[13] = (hendblk(3+1));
|
|
|
|
|
r[14+0] = (r[13]);
|
|
|
|
|
r[14+1] = (r[11]);
|
|
|
|
|
r[14+2] = (r[12]);
|
|
|
|
|
r[14+3] = r[9];
|
|
|
|
|
r[14+4] = r[3];
|
|
|
|
|
r[14+5] = r[4];
|
|
|
|
|
r[14+6] = r[5];
|
|
|
|
|
r[14+7] = r[2];
|
|
|
|
|
r += 14; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v11998;
|
2023-02-28 06:31:08 +01:00
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 423: /* clo k args l */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v12048: /* k args l g s f port */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(423);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(424);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 424: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 425: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 . r args k port k */
|
|
|
|
|
{ /* define encode-integrable */
|
|
|
|
|
static obj c[] = { obj_from_objptr(vmcases+5) };
|
|
|
|
|
r[7] = obj_from_objptr(c); }
|
|
|
|
|
hreserve(hbsz(3+1), 8); /* 8 live regs */
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(426);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[8] = (hendblk(3+1));
|
|
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[3];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
|
|
|
r[9] = obj_from_fixnum(n); }
|
|
|
|
|
r[10+0] = r[7];
|
|
|
|
|
pc = objptr_from_obj(r[10+0])[0];
|
|
|
|
|
r[10+1] = r[8];
|
|
|
|
|
r[10+2] = r[9];
|
|
|
|
|
r[10+3] = r[2];
|
|
|
|
|
r[10+4] = r[5];
|
|
|
|
|
r += 10; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 5;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 426: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 427: /* clo k args l */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v12023: /* k args l port g s f exp */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(427);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(428);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 428: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 429: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(430);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[6] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[6];
|
|
|
|
|
r[1] = r[2];
|
|
|
|
|
r[2] = r[5];
|
|
|
|
|
goto gs_write_2Dserialized_2Darg;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 430: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 431: /* clo k args l */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v11998: /* k args l port g s f exp */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(431);
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(432);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 432: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 433: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(434);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[5] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
r[1] = obj_from_fixnum(+0);
|
|
|
|
|
r[2] = r[4];
|
|
|
|
|
goto gs_write_2Dserialized_2Darg;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 434: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(435);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 435: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 436: /* compile-to-string k x */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(437);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[3] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[3];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
r[2] = (mknull());
|
|
|
|
|
goto gs_find_2Dfree;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 437: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(438);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 438: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 439: /* execute k code */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(440);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 440: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 441: /* evaluate k x */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
gs_evaluate: /* k x */
|
|
|
|
|
hreserve(hbsz(1+1), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(442);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 442: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(443);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
r[2] = (mknull());
|
|
|
|
|
goto gs_find_2Dfree;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 443: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(444);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 444: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(445);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 445: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 446: /* display-code k cstr oport */
|
2023-02-28 06:31:08 +01:00
|
|
|
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);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v11901;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v11901: /* k i l cstr oport */
|
|
|
|
|
{ const fixnum_t v14859_i = fixnum_from_obj(r[1]);
|
|
|
|
|
if (((fxsub(fixnum_from_obj(r[2]), (v14859_i))) <= (+70))) {
|
|
|
|
|
(void)(oportputcircular((cx__233460), (r[4]), 1));
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* substring */
|
2023-03-20 04:31:28 +01:00
|
|
|
int *d = substring(stringdata((r[3])), (v14859_i), fixnum_from_obj(r[2]));
|
2023-02-28 06:31:08 +01:00
|
|
|
r[5] = (hpushstr(5, d)); }
|
|
|
|
|
(void)(oportputcircular((r[5]), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
|
2023-03-20 04:31:28 +01:00
|
|
|
r[5] = obj_from_void(oportputcircular((cx__233464), (r[4]), 1));
|
2023-02-28 06:31:08 +01:00
|
|
|
/* 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 {
|
2023-03-20 04:31:28 +01:00
|
|
|
(void)(oportputcircular((cx__233460), (r[4]), 1));
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* substring */
|
2023-03-20 04:31:28 +01:00
|
|
|
int *d = substring(stringdata((r[3])), (v14859_i), (fxadd((v14859_i), (+70))));
|
2023-02-28 06:31:08 +01:00
|
|
|
r[5] = (hpushstr(5, d)); }
|
|
|
|
|
(void)(oportputcircular((r[5]), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
|
2023-03-20 04:31:28 +01:00
|
|
|
(void)(oportputcircular((cx__233455), (r[4]), 1));
|
2023-02-28 06:31:08 +01:00
|
|
|
/* r[0] */
|
2023-03-20 04:31:28 +01:00
|
|
|
r[1] = obj_from_fixnum(fxadd((v14859_i), (+70)));
|
2023-02-28 06:31:08 +01:00
|
|
|
/* r[2] */
|
|
|
|
|
/* r[3] */
|
|
|
|
|
/* r[4] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v11901;
|
2023-02-28 06:31:08 +01:00
|
|
|
} }
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 447: /* process-define-syntax k id xval oport */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 5);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
gs_process_2Ddefine_2Dsyntax: /* k id xval oport */
|
|
|
|
|
hreserve(hbsz(1), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
r[4] = (hendblk(1));
|
|
|
|
|
(void)(oportputc('\n', (r[3])));
|
2023-03-20 04:31:28 +01:00
|
|
|
(void)(oportputcircular((cx__233460), (r[3]), 1));
|
2023-02-28 06:31:08 +01:00
|
|
|
(void)(oportputcircular((r[1]), (r[3]), 1));
|
2023-03-20 04:31:28 +01:00
|
|
|
(void)(oportputcircular((cx__233526), (r[3]), 1));
|
2023-02-28 06:31:08 +01:00
|
|
|
r[5] = (objptr_from_obj(r[4])[0]);
|
|
|
|
|
hreserve(hbsz(3+1), 6); /* 6 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[0];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(451);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[6] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[6];
|
|
|
|
|
r[1] = r[5];
|
|
|
|
|
goto s_hack;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 448: /* clo k v */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
s_hack: /* k v */
|
|
|
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(448);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[2] = (hendblk(0+1));
|
|
|
|
|
if ((isprocedure((r[1])))) {
|
|
|
|
|
/* r[0] */
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = obj_from_ktrap();
|
|
|
|
|
r[2] = (mksymbol(internsym("syntax-rules")));
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
} else {
|
|
|
|
|
if (((r[1]) == (mksymbol(internsym("define-inline"))))) {
|
|
|
|
|
/* r[0] */
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = obj_from_ktrap();
|
|
|
|
|
r[2] = (mksymbol(internsym("_")));
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
} 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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(449);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
goto s_hack;
|
|
|
|
|
} 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;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 449: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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 hack v k */
|
|
|
|
|
hreserve(hbsz(2+1), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[4];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(450);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 450: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 451: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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 oport xval */
|
|
|
|
|
(void)(objptr_from_obj(r[4])[0] = (r[1]));
|
2023-03-03 19:18:00 +01:00
|
|
|
r[5] = (objptr_from_obj(r[4])[0]);
|
|
|
|
|
r[5] = obj_from_bool(issymbol((r[5])));
|
|
|
|
|
if (bool_from_obj(r[5])) {
|
|
|
|
|
r[5] = (objptr_from_obj(r[4])[0]);
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--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("_")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[5] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[5] = (hendblk(3)); }
|
|
|
|
|
r[6] = (objptr_from_obj(r[4])[0]);
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 7); /* 7 live regs */
|
|
|
|
|
*--hp = (mksymbol(internsym("args")));
|
|
|
|
|
*--hp = (r[6]);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[6] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 7); /* 7 live regs */
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[6] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 7); /* 7 live regs */
|
|
|
|
|
*--hp = r[6];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = (cx__233500);
|
2023-03-03 19:18:00 +01:00
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[6] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 7); /* 7 live regs */
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[5] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[5] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = (mksymbol(internsym("syntax-rules")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[5] = (hendblk(3)); }
|
|
|
|
|
(void)(objptr_from_obj(r[4])[0] = (r[5]));
|
|
|
|
|
} else {
|
|
|
|
|
}
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* open-output-string */
|
|
|
|
|
r[5] = (mkoport_string(5, newcb())); }
|
|
|
|
|
hreserve(hbsz(3+1), 6); /* 6 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[5];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(452);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[6] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[6];
|
|
|
|
|
r[1] = (objptr_from_obj(r[4])[0]);
|
|
|
|
|
r[2] = r[5];
|
|
|
|
|
goto gs_write_2Dserialized_2Dsexp;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 452: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(453);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 453: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 454: /* process-statement k xval oport */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(455);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[5] = (hendblk(5+1));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
r[2] = (mknull());
|
|
|
|
|
goto gs_find_2Dfree;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 455: /* clo ek r */
|
2023-03-01 00:05:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(456);
|
2023-03-01 00:05:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 456: /* clo ek . */
|
2023-03-01 00:05:08 +01:00
|
|
|
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])));
|
2023-03-20 04:31:28 +01:00
|
|
|
(void)(oportputcircular((cx__233537), (r[3]), 1));
|
2023-03-01 00:05:08 +01:00
|
|
|
hreserve(hbsz(2+1), 7); /* 7 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[2];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(457);
|
2023-03-01 00:05:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 457: /* clo ek . */
|
2023-03-01 00:05:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 458: /* process-define k id xlam oport */
|
2023-03-01 00:05:08 +01:00
|
|
|
assert(rc == 5);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* k id xlam oport */
|
|
|
|
|
{ /* 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 = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
{ /* cons */
|
|
|
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = (mksymbol(internsym("set!")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
|
|
|
r[4] = (hendblk(3)); }
|
|
|
|
|
hreserve(hbsz(1), 5); /* 5 live regs */
|
|
|
|
|
*--hp = obj_from_void(0);
|
|
|
|
|
r[5] = (hendblk(1));
|
|
|
|
|
{ /* open-output-string */
|
|
|
|
|
r[6] = (mkoport_string(6, newcb())); }
|
|
|
|
|
hreserve(hbsz(5+1), 7); /* 7 live regs */
|
|
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[4];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(459);
|
2023-03-01 00:05:08 +01:00
|
|
|
r[7] = (hendblk(5+1));
|
|
|
|
|
r[0] = r[7];
|
|
|
|
|
r[1] = r[4];
|
|
|
|
|
r[2] = (mknull());
|
|
|
|
|
goto gs_find_2Dfree;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 459: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(460);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 460: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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])));
|
2023-03-20 04:31:28 +01:00
|
|
|
(void)(oportputcircular((cx__233537), (r[3]), 1));
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(2+1), 7); /* 7 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[2];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(461);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 461: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 462: /* scan-top-form k x */
|
2023-03-04 06:07:52 +01:00
|
|
|
assert(rc == 3);
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-04 06:07:52 +01:00
|
|
|
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])));
|
2023-03-20 04:31:28 +01:00
|
|
|
r[3] = ((obj)fopen(stringchars((r[2])), stringchars((cx__233588))));
|
2023-03-04 06:07:52 +01:00
|
|
|
hreserve(hbsz(1+1), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[0];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(463);
|
2023-03-04 06:07:52 +01:00
|
|
|
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);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_l_v11762;
|
2023-03-04 06:07:52 +01:00
|
|
|
} else {
|
|
|
|
|
r[5+0] = (cx_file_2Derror);
|
|
|
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
|
|
|
r[5+1] = r[4];
|
2023-03-20 04:31:28 +01:00
|
|
|
r[5+2] = (cx__233592);
|
2023-03-04 06:07:52 +01:00
|
|
|
r[5+3] = r[2];
|
|
|
|
|
r += 5; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 4;
|
|
|
|
|
goto jump;
|
|
|
|
|
}
|
|
|
|
|
} else {
|
2023-03-03 01:27:09 +01:00
|
|
|
if ((ispair((r[1])))) {
|
2023-03-04 06:07:52 +01:00
|
|
|
hreserve(hbsz(2+1), 2); /* 2 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(469);
|
2023-03-04 06:07:52 +01:00
|
|
|
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 */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-03 01:27:09 +01:00
|
|
|
rc = 4;
|
2023-02-28 06:31:08 +01:00
|
|
|
goto jump;
|
|
|
|
|
} else {
|
2023-03-04 06:07:52 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 463: /* clo ek r */
|
2023-03-04 06:07:52 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_l_v11762: /* ek r k */
|
2023-03-03 01:27:09 +01:00
|
|
|
hreserve(hbsz(2+1), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
2023-03-04 06:07:52 +01:00
|
|
|
*--hp = r[1];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(464);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3] = (hendblk(2+1));
|
2023-03-04 06:07:52 +01:00
|
|
|
r[4+0] = (cx_read_2Ddatum);
|
2023-03-03 01:27:09 +01:00
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = r[3];
|
2023-03-04 06:07:52 +01:00
|
|
|
r[4+2] = r[1];
|
2023-03-03 01:27:09 +01:00
|
|
|
r += 4; /* shift reg wnd */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-04 06:07:52 +01:00
|
|
|
rc = 3;
|
2023-02-28 06:31:08 +01:00
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 464: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
2023-03-04 06:07:52 +01:00
|
|
|
r[1+3] = p[2]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-04 06:07:52 +01:00
|
|
|
/* ek r r k */
|
|
|
|
|
hreserve(hbsz(2+1), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[2];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(468);
|
2023-03-04 06:07:52 +01:00
|
|
|
r[4] = (hendblk(2+1));
|
2023-03-03 01:27:09 +01:00
|
|
|
r[0] = r[4];
|
2023-03-04 06:07:52 +01:00
|
|
|
/* r[1] */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* r[2] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v11771;
|
2023-03-04 06:07:52 +01:00
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 465: /* clo k x */
|
2023-03-04 06:07:52 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v11771: /* k x r */
|
2023-03-04 06:07:52 +01:00
|
|
|
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;
|
2023-02-28 06:31:08 +01:00
|
|
|
} else {
|
2023-03-04 06:07:52 +01:00
|
|
|
hreserve(hbsz(1+1), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(465);
|
2023-03-04 06:07:52 +01:00
|
|
|
r[3] = (hendblk(1+1));
|
|
|
|
|
hreserve(hbsz(3+1), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[2];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(466);
|
2023-03-04 06:07:52 +01:00
|
|
|
r[3] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[3];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
goto gs_scan_2Dtop_2Dform;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 466: /* clo ek . */
|
2023-03-04 06:07:52 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(467);
|
2023-03-04 06:07:52 +01:00
|
|
|
r[5] = (hendblk(2+1));
|
|
|
|
|
r[0] = (cx_read_2Ddatum);
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = r[5];
|
|
|
|
|
/* r[2] */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 467: /* clo ek r */
|
2023-03-04 06:07:52 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 468: /* clo ek . */
|
2023-03-04 06:07:52 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 469: /* clo ek r */
|
2023-03-04 06:07:52 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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];
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v11746;
|
2023-03-04 06:07:52 +01:00
|
|
|
} else {
|
|
|
|
|
if (((r[1]) == (mksymbol(internsym("define-syntax"))))) {
|
|
|
|
|
hreserve(hbsz(2+1), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[3];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(472);
|
2023-03-04 06:07:52 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(474);
|
2023-03-04 06:07:52 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 470: /* clo k l */
|
2023-03-04 06:07:52 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v11746: /* k l */
|
2023-03-04 06:07:52 +01:00
|
|
|
if ((ispair((r[1])))) {
|
|
|
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(470);
|
2023-03-04 06:07:52 +01:00
|
|
|
r[2] = (hendblk(0+1));
|
|
|
|
|
hreserve(hbsz(3+1), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[2];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(471);
|
2023-03-04 06:07:52 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 471: /* clo ek . */
|
2023-03-04 06:07:52 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 472: /* clo ek r */
|
2023-03-04 06:07:52 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(473);
|
2023-03-04 06:07:52 +01:00
|
|
|
r[5] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
r[1] = r[4];
|
|
|
|
|
goto gs_top_2Dtransformer_2Denv;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 473: /* clo ek r */
|
2023-03-04 06:07:52 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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(cdr((r[1])) = (r[3]));
|
|
|
|
|
r += 4; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 474: /* clo ek r */
|
2023-03-04 06:07:52 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 475: /* process-top-form k x oport */
|
2023-03-04 06:07:52 +01:00
|
|
|
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])));
|
2023-03-20 04:31:28 +01:00
|
|
|
r[4] = ((obj)fopen(stringchars((r[3])), stringchars((cx__233588))));
|
2023-03-04 06:07:52 +01:00
|
|
|
hreserve(hbsz(1+1), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[0];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(476);
|
2023-03-04 06:07:52 +01:00
|
|
|
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);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_l_v11684;
|
2023-03-04 06:07:52 +01:00
|
|
|
} else {
|
|
|
|
|
r[0] = (cx_file_2Derror);
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = r[5];
|
2023-03-20 04:31:28 +01:00
|
|
|
r[2] = (cx__233592);
|
2023-03-04 06:07:52 +01:00
|
|
|
/* 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];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[2];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(482);
|
2023-03-04 06:07:52 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(496);
|
2023-03-04 06:07:52 +01:00
|
|
|
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;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 476: /* clo ek r */
|
2023-03-04 06:07:52 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_l_v11684: /* ek r k */
|
2023-03-04 06:07:52 +01:00
|
|
|
hreserve(hbsz(2+1), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[1];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(477);
|
2023-03-04 06:07:52 +01:00
|
|
|
r[3] = (hendblk(2+1));
|
|
|
|
|
r[4+0] = (cx_read_2Ddatum);
|
|
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 477: /* clo ek r */
|
2023-03-04 06:07:52 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(481);
|
2023-03-04 06:07:52 +01:00
|
|
|
r[4] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
/* r[2] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v11693;
|
2023-03-04 06:07:52 +01:00
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 478: /* clo k x */
|
2023-03-04 06:07:52 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v11693: /* k x r */
|
2023-03-04 06:07:52 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(478);
|
2023-03-04 06:07:52 +01:00
|
|
|
r[3] = (hendblk(1+1));
|
|
|
|
|
hreserve(hbsz(3+1), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[2];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(479);
|
2023-03-04 06:07:52 +01:00
|
|
|
r[3] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[3];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
goto gs_scan_2Dtop_2Dform;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 479: /* clo ek . */
|
2023-03-04 06:07:52 +01:00
|
|
|
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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(480);
|
2023-03-04 06:07:52 +01:00
|
|
|
r[5] = (hendblk(2+1));
|
|
|
|
|
r[0] = (cx_read_2Ddatum);
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = r[5];
|
|
|
|
|
/* r[2] */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 480: /* clo ek r */
|
2023-03-04 06:07:52 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 481: /* clo ek . */
|
2023-03-04 06:07:52 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 482: /* clo ek r */
|
2023-03-04 06:07:52 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v11668;
|
2023-03-04 06:07:52 +01:00
|
|
|
} 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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(485);
|
2023-03-03 01:27:09 +01:00
|
|
|
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;
|
2023-02-28 06:31:08 +01:00
|
|
|
} else {
|
|
|
|
|
if (((r[1]) == (mksymbol(internsym("define"))))) {
|
2023-03-03 01:27:09 +01:00
|
|
|
hreserve(hbsz(3+1), 5); /* 5 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[3];
|
2023-03-03 01:27:09 +01:00
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[4];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(487);
|
2023-03-03 01:27:09 +01:00
|
|
|
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(0);
|
|
|
|
|
r[3] = r[6];
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-03 01:27:09 +01:00
|
|
|
rc = 4;
|
2023-02-28 06:31:08 +01:00
|
|
|
goto jump;
|
|
|
|
|
} else {
|
|
|
|
|
if ((isprocedure((r[1])))) {
|
2023-03-03 01:27:09 +01:00
|
|
|
hreserve(hbsz(2+1), 5); /* 5 live regs */
|
|
|
|
|
*--hp = r[4];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[2];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(491);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[5] = (hendblk(2+1));
|
2023-02-28 06:31:08 +01:00
|
|
|
r[0] = r[1];
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1] = r[5];
|
|
|
|
|
r[2] = r[3];
|
|
|
|
|
r[3] = (cx_top_2Dtransformer_2Denv);
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 4;
|
|
|
|
|
goto jump;
|
|
|
|
|
} else {
|
2023-03-03 01:27:09 +01:00
|
|
|
hreserve(hbsz(2+1), 5); /* 5 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[2];
|
2023-03-03 01:27:09 +01:00
|
|
|
*--hp = r[4];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(492);
|
2023-03-03 01:27:09 +01:00
|
|
|
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] */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-03 01:27:09 +01:00
|
|
|
rc = 4;
|
2023-02-28 06:31:08 +01:00
|
|
|
goto jump;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 483: /* clo k x* */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
2023-02-28 06:31:08 +01:00
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+2] = p[1]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v11668: /* k x* oport */
|
2023-03-03 01:27:09 +01:00
|
|
|
if ((ispair((r[1])))) {
|
|
|
|
|
hreserve(hbsz(1+1), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(483);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3] = (hendblk(1+1));
|
|
|
|
|
hreserve(hbsz(3+1), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[3];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(484);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[3];
|
|
|
|
|
r[1] = (car((r[1])));
|
|
|
|
|
/* r[2] */
|
|
|
|
|
goto gs_process_2Dtop_2Dform;
|
|
|
|
|
} else {
|
2023-02-28 06:31:08 +01:00
|
|
|
/* r[0] */
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = obj_from_ktrap();
|
2023-03-03 01:27:09 +01:00
|
|
|
r[2] = obj_from_void(0);
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 484: /* clo ek . */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc >= 2);
|
|
|
|
|
r[2] = obj_from_void(0); /* ignored */
|
2023-02-28 06:31:08 +01:00
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2];
|
|
|
|
|
r[1+4] = p[3]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek . loop x* k */
|
|
|
|
|
r[0] = r[2];
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = r[4];
|
|
|
|
|
r[2] = (cdr((r[3])));
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-03 01:27:09 +01:00
|
|
|
rc = 3;
|
2023-02-28 06:31:08 +01:00
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 485: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2];
|
|
|
|
|
r[1+4] = p[3]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r oport k x */
|
|
|
|
|
r[5] = (cdr((r[4])));
|
|
|
|
|
r[5] = (car((r[5])));
|
|
|
|
|
hreserve(hbsz(4+1), 6); /* 6 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[2];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(486);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[6] = (hendblk(4+1));
|
|
|
|
|
r[0] = r[6];
|
|
|
|
|
r[1] = r[5];
|
|
|
|
|
goto gs_top_2Dtransformer_2Denv;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 486: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(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 */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r oport k x r */
|
|
|
|
|
(void)(cdr((r[1])) = (r[5]));
|
|
|
|
|
r[6] = (cdr((r[4])));
|
|
|
|
|
r[6] = (car((r[6])));
|
|
|
|
|
{ /* memq */
|
|
|
|
|
obj x = (r[6]), l = (cx__2Ahide_2Drefs_2A);
|
|
|
|
|
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];
|
2023-02-28 06:31:08 +01:00
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = obj_from_ktrap();
|
2023-03-03 01:27:09 +01:00
|
|
|
r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
2023-03-03 01:27:09 +01:00
|
|
|
} 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])));
|
|
|
|
|
r[8+0] = r[3];
|
|
|
|
|
r[8+1] = r[6];
|
|
|
|
|
r[8+2] = r[7];
|
|
|
|
|
r[8+3] = r[2];
|
|
|
|
|
r += 8; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
goto gs_process_2Ddefine_2Dsyntax;
|
|
|
|
|
}
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 487: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2];
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+4] = p[3]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r k oport x */
|
|
|
|
|
r[5] = (cdr((r[4])));
|
|
|
|
|
r[5] = (car((r[5])));
|
2023-03-01 00:05:08 +01:00
|
|
|
{ /* cons */
|
2023-03-03 01:27:09 +01:00
|
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
2023-03-01 00:05:08 +01:00
|
|
|
*--hp = (mknull());
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[6] = (hendblk(3)); }
|
2023-03-01 00:05:08 +01:00
|
|
|
{ /* cons */
|
2023-03-03 01:27:09 +01:00
|
|
|
hreserve(hbsz(3), 7); /* 7 live regs */
|
2023-03-01 00:05:08 +01:00
|
|
|
*--hp = r[6];
|
2023-03-03 01:27:09 +01:00
|
|
|
*--hp = r[5];
|
2023-03-01 00:05:08 +01:00
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[6] = (hendblk(3)); }
|
2023-03-01 00:05:08 +01:00
|
|
|
{ /* cons */
|
2023-03-03 01:27:09 +01:00
|
|
|
hreserve(hbsz(3), 7); /* 7 live regs */
|
|
|
|
|
*--hp = r[6];
|
2023-03-01 00:05:08 +01:00
|
|
|
*--hp = (mksymbol(internsym("set!")));
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[6] = (hendblk(3)); }
|
|
|
|
|
hreserve(hbsz(1), 7); /* 7 live regs */
|
2023-03-01 00:05:08 +01:00
|
|
|
*--hp = obj_from_void(0);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[7] = (hendblk(1));
|
2023-03-01 00:05:08 +01:00
|
|
|
{ /* open-output-string */
|
2023-03-03 01:27:09 +01:00
|
|
|
r[8] = (mkoport_string(8, newcb())); }
|
|
|
|
|
hreserve(hbsz(5+1), 9); /* 9 live regs */
|
2023-03-01 00:05:08 +01:00
|
|
|
*--hp = r[8];
|
2023-03-03 01:27:09 +01:00
|
|
|
*--hp = r[7];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[2];
|
2023-03-03 01:27:09 +01:00
|
|
|
*--hp = r[6];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(488);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[9] = (hendblk(5+1));
|
|
|
|
|
r[0] = r[9];
|
|
|
|
|
r[1] = r[6];
|
2023-02-28 06:31:08 +01:00
|
|
|
r[2] = (mknull());
|
|
|
|
|
goto gs_find_2Dfree;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 488: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2];
|
|
|
|
|
r[1+4] = p[3];
|
|
|
|
|
r[1+5] = p[4];
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+6] = p[5]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r xval k oport cstr p */
|
|
|
|
|
hreserve(hbsz(4+1), 7); /* 7 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(489);
|
2023-03-03 01:27:09 +01:00
|
|
|
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 */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
goto gs_codegen;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 489: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+5] = p[4]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek . k oport cstr p */
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* get-output-string */
|
2023-03-03 01:27:09 +01:00
|
|
|
obj o = r[5]; cxtype_oport_t *vt = ckoportvt(o);
|
2023-02-28 06:31:08 +01:00
|
|
|
if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG &&
|
2023-03-03 01:27:09 +01:00
|
|
|
vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof());
|
2023-02-28 06:31:08 +01:00
|
|
|
else { cbuf_t *pcb = oportdata(o);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } }
|
|
|
|
|
(void)(objptr_from_obj(r[4])[0] = (r[6]));
|
|
|
|
|
(void)(oportputc('\n', (r[3])));
|
2023-03-20 04:31:28 +01:00
|
|
|
(void)(oportputcircular((cx__233537), (r[3]), 1));
|
2023-03-03 01:27:09 +01:00
|
|
|
hreserve(hbsz(2+1), 7); /* 7 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[2];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(490);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[7] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[7];
|
|
|
|
|
r[1] = (objptr_from_obj(r[4])[0]);
|
|
|
|
|
r[2] = r[3];
|
2023-02-28 06:31:08 +01:00
|
|
|
goto gs_display_2Dcode;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 490: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc >= 2);
|
|
|
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+3] = p[2]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek . k oport */
|
2023-02-28 06:31:08 +01:00
|
|
|
r[0] = r[2];
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = obj_from_ktrap();
|
2023-03-03 01:27:09 +01:00
|
|
|
r[2] = obj_from_void(oportputc('\n', (r[3])));
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 491: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+3] = p[2]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r oport k */
|
|
|
|
|
r[0] = r[3];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
/* r[2] */
|
2023-02-28 06:31:08 +01:00
|
|
|
goto gs_process_2Dtop_2Dform;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 492: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+3] = p[2]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r k oport */
|
|
|
|
|
hreserve(hbsz(1), 4); /* 4 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = obj_from_void(0);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[4] = (hendblk(1));
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* open-output-string */
|
2023-03-03 01:27:09 +01:00
|
|
|
r[5] = (mkoport_string(5, newcb())); }
|
|
|
|
|
hreserve(hbsz(5+1), 6); /* 6 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[1];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(493);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[6] = (hendblk(5+1));
|
|
|
|
|
r[0] = r[6];
|
2023-02-28 06:31:08 +01:00
|
|
|
/* r[1] */
|
|
|
|
|
r[2] = (mknull());
|
|
|
|
|
goto gs_find_2Dfree;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 493: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2];
|
|
|
|
|
r[1+4] = p[3];
|
|
|
|
|
r[1+5] = p[4];
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+6] = p[5]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r r k oport cstr p */
|
|
|
|
|
hreserve(hbsz(4+1), 7); /* 7 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(494);
|
2023-03-03 01:27:09 +01:00
|
|
|
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 */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
goto gs_codegen;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 494: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+5] = p[4]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek . k oport cstr p */
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* get-output-string */
|
2023-03-03 01:27:09 +01:00
|
|
|
obj o = r[5]; cxtype_oport_t *vt = ckoportvt(o);
|
2023-02-28 06:31:08 +01:00
|
|
|
if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG &&
|
2023-03-03 01:27:09 +01:00
|
|
|
vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof());
|
2023-02-28 06:31:08 +01:00
|
|
|
else { cbuf_t *pcb = oportdata(o);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } }
|
|
|
|
|
(void)(objptr_from_obj(r[4])[0] = (r[6]));
|
|
|
|
|
(void)(oportputc('\n', (r[3])));
|
2023-03-20 04:31:28 +01:00
|
|
|
(void)(oportputcircular((cx__233537), (r[3]), 1));
|
2023-03-03 01:27:09 +01:00
|
|
|
hreserve(hbsz(2+1), 7); /* 7 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[2];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(495);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[7] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[7];
|
|
|
|
|
r[1] = (objptr_from_obj(r[4])[0]);
|
|
|
|
|
r[2] = r[3];
|
2023-02-28 06:31:08 +01:00
|
|
|
goto gs_display_2Dcode;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 495: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc >= 2);
|
|
|
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+3] = p[2]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek . k oport */
|
2023-02-28 06:31:08 +01:00
|
|
|
r[0] = r[2];
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = obj_from_ktrap();
|
2023-03-03 01:27:09 +01:00
|
|
|
r[2] = obj_from_void(oportputc('\n', (r[3])));
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 496: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+3] = p[2]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r k oport */
|
|
|
|
|
hreserve(hbsz(1), 4); /* 4 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = obj_from_void(0);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[4] = (hendblk(1));
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* open-output-string */
|
2023-03-03 01:27:09 +01:00
|
|
|
r[5] = (mkoport_string(5, newcb())); }
|
|
|
|
|
hreserve(hbsz(5+1), 6); /* 6 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[1];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(497);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[6] = (hendblk(5+1));
|
|
|
|
|
r[0] = r[6];
|
2023-02-28 06:31:08 +01:00
|
|
|
/* r[1] */
|
|
|
|
|
r[2] = (mknull());
|
|
|
|
|
goto gs_find_2Dfree;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 497: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2];
|
|
|
|
|
r[1+4] = p[3];
|
|
|
|
|
r[1+5] = p[4];
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+6] = p[5]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r r k oport cstr p */
|
|
|
|
|
hreserve(hbsz(4+1), 7); /* 7 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[6];
|
|
|
|
|
*--hp = r[5];
|
|
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(498);
|
2023-03-03 01:27:09 +01:00
|
|
|
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 */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
goto gs_codegen;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 498: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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];
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+5] = p[4]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek . k oport cstr p */
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* get-output-string */
|
2023-03-03 01:27:09 +01:00
|
|
|
obj o = r[5]; cxtype_oport_t *vt = ckoportvt(o);
|
2023-02-28 06:31:08 +01:00
|
|
|
if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG &&
|
2023-03-03 01:27:09 +01:00
|
|
|
vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof());
|
2023-02-28 06:31:08 +01:00
|
|
|
else { cbuf_t *pcb = oportdata(o);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } }
|
|
|
|
|
(void)(objptr_from_obj(r[4])[0] = (r[6]));
|
|
|
|
|
(void)(oportputc('\n', (r[3])));
|
2023-03-20 04:31:28 +01:00
|
|
|
(void)(oportputcircular((cx__233537), (r[3]), 1));
|
2023-03-03 01:27:09 +01:00
|
|
|
hreserve(hbsz(2+1), 7); /* 7 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[2];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(499);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[7] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[7];
|
|
|
|
|
r[1] = (objptr_from_obj(r[4])[0]);
|
|
|
|
|
r[2] = r[3];
|
2023-02-28 06:31:08 +01:00
|
|
|
goto gs_display_2Dcode;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 499: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc >= 2);
|
|
|
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+3] = p[2]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek . k oport */
|
2023-02-28 06:31:08 +01:00
|
|
|
r[0] = r[2];
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = obj_from_ktrap();
|
2023-03-03 01:27:09 +01:00
|
|
|
r[2] = obj_from_void(oportputc('\n', (r[3])));
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 500: /* path-strip-directory k filename */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
gs_path_2Dstrip_2Ddirectory: /* k filename */
|
|
|
|
|
{ /* string->list */
|
|
|
|
|
int c = (stringlen((r[1])));
|
|
|
|
|
unsigned char *s; obj l = mknull();
|
|
|
|
|
hreserve(hbsz(3)*c, 2); /* 2 live regs */
|
|
|
|
|
s = (unsigned char *)stringchars((r[1])); /* gc-safe */
|
|
|
|
|
while (c-- > 0) { *--hp = l; *--hp = obj_from_char(s[c]);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); }
|
|
|
|
|
r[2] = (l); }
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14858_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[2];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14858_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* reverse */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj l, o = mknull(); int c = (v14858_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(3)*c, 3); /* 3 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[2] = (o); } }
|
|
|
|
|
/* r[0] */
|
|
|
|
|
r[1] = r[2];
|
|
|
|
|
r[2] = (mknull());
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v11563;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v11563: /* k l r */
|
2023-02-28 06:31:08 +01:00
|
|
|
if ((isnull((r[1])))) {
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14857_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[2];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14857_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* list->string */
|
2023-03-20 04:31:28 +01:00
|
|
|
int i, c = (v14857_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
obj o = hpushstr(3, allocstring(c, ' ')); /* 3 live regs */
|
|
|
|
|
obj l = r[2]; /* gc-safe */
|
|
|
|
|
unsigned char *s = (unsigned char *)stringchars(o);
|
|
|
|
|
for (i = 0; i < c; ++i, l = cdr(l)) s[i] = (unsigned char)char_from_obj(car(l));
|
|
|
|
|
r[3] = (o); } }
|
|
|
|
|
/* 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[3] = (car((r[1])));
|
2023-03-20 04:31:28 +01:00
|
|
|
r[3] = (ismemv((r[3]), (cx__233702)));
|
2023-02-28 06:31:08 +01:00
|
|
|
if (bool_from_obj(r[3])) {
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14856_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[2];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14856_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* list->string */
|
2023-03-20 04:31:28 +01:00
|
|
|
int i, c = (v14856_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
obj o = hpushstr(3, allocstring(c, ' ')); /* 3 live regs */
|
|
|
|
|
obj l = r[2]; /* gc-safe */
|
|
|
|
|
unsigned char *s = (unsigned char *)stringchars(o);
|
|
|
|
|
for (i = 0; i < c; ++i, l = cdr(l)) s[i] = (unsigned char)char_from_obj(car(l));
|
|
|
|
|
r[3] = (o); } }
|
|
|
|
|
/* 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[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];
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v11563;
|
2023-02-28 06:31:08 +01:00
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 501: /* path-strip-extension k filename */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
gs_path_2Dstrip_2Dextension: /* k filename */
|
|
|
|
|
{ /* string->list */
|
|
|
|
|
int c = (stringlen((r[1])));
|
|
|
|
|
unsigned char *s; obj l = mknull();
|
|
|
|
|
hreserve(hbsz(3)*c, 2); /* 2 live regs */
|
|
|
|
|
s = (unsigned char *)stringchars((r[1])); /* gc-safe */
|
|
|
|
|
while (c-- > 0) { *--hp = l; *--hp = obj_from_char(s[c]);
|
|
|
|
|
*--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); }
|
|
|
|
|
r[2] = (l); }
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14853_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[2];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14853_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* reverse */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj l, o = mknull(); int c = (v14853_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(3)*c, 3); /* 3 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[2] = (o); } }
|
|
|
|
|
r[3] = (ismemv(obj_from_char('.'), (r[2])));
|
|
|
|
|
if (bool_from_obj(r[3])) {
|
|
|
|
|
r[4] = (cdr((r[3])));
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14854_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[4];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14854_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* reverse */
|
2023-03-20 04:31:28 +01:00
|
|
|
obj l, o = mknull(); int c = (v14854_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(3)*c, 5); /* 5 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[4] = (o); } }
|
2023-03-20 04:31:28 +01:00
|
|
|
{ fixnum_t v14855_tmp;
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* length */
|
|
|
|
|
int n; obj l = r[4];
|
|
|
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
2023-03-20 04:31:28 +01:00
|
|
|
v14855_tmp = (n); }
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* list->string */
|
2023-03-20 04:31:28 +01:00
|
|
|
int i, c = (v14855_tmp);
|
2023-02-28 06:31:08 +01:00
|
|
|
obj o = hpushstr(5, allocstring(c, ' ')); /* 5 live regs */
|
|
|
|
|
obj l = r[4]; /* gc-safe */
|
|
|
|
|
unsigned char *s = (unsigned char *)stringchars(o);
|
|
|
|
|
for (i = 0; i < c; ++i, l = cdr(l)) s[i] = (unsigned char)char_from_obj(car(l));
|
|
|
|
|
r[2] = (o); } }
|
|
|
|
|
} else {
|
|
|
|
|
r[2] = r[1];
|
|
|
|
|
}
|
|
|
|
|
r[3+0] = r[0];
|
|
|
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
|
|
|
r[3+1] = obj_from_ktrap();
|
|
|
|
|
r[3+2] = r[2];
|
|
|
|
|
r += 3; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 502: /* module-name k filename */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-01 00:05:08 +01:00
|
|
|
gs_module_2Dname: /* k filename */
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(1+1), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(503);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[2] = (hendblk(1+1));
|
|
|
|
|
r[0] = r[2];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
goto gs_path_2Dstrip_2Ddirectory;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 503: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r k */
|
2023-03-01 00:05:08 +01:00
|
|
|
r[0] = r[2];
|
2023-02-28 06:31:08 +01:00
|
|
|
/* r[1] */
|
|
|
|
|
goto gs_path_2Dstrip_2Dextension;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 504: /* process-file k fname */
|
2023-02-28 06:31:08 +01:00
|
|
|
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));
|
2023-03-01 00:05:08 +01:00
|
|
|
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];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[3];
|
2023-03-01 00:05:08 +01:00
|
|
|
*--hp = r[4];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[0];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(505);
|
2023-03-01 00:05:08 +01:00
|
|
|
r[5] = (hendblk(5+1));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
goto gs_module_2Dname;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 505: /* clo ek r */
|
2023-03-01 00:05:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = 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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
r[7] = ((obj)fopen(stringchars((r[6])), stringchars((cx__233588))));
|
2023-03-01 00:05:08 +01:00
|
|
|
hreserve(hbsz(6+1), 8); /* 8 live regs */
|
|
|
|
|
*--hp = r[5];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[1];
|
2023-03-01 00:05:08 +01:00
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[2];
|
|
|
|
|
*--hp = r[6];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(506);
|
2023-03-01 00:05:08 +01:00
|
|
|
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 */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_l_v11495;
|
2023-02-28 06:31:08 +01:00
|
|
|
} else {
|
2023-03-01 00:05:08 +01:00
|
|
|
r[0] = (cx_file_2Derror);
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = r[8];
|
2023-03-20 04:31:28 +01:00
|
|
|
r[2] = (cx__233592);
|
2023-03-01 00:05:08 +01:00
|
|
|
r[3] = r[6];
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 4;
|
|
|
|
|
goto jump;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 506: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2];
|
|
|
|
|
r[1+4] = p[3];
|
2023-03-01 00:05:08 +01:00
|
|
|
r[1+5] = p[4];
|
|
|
|
|
r[1+6] = p[5];
|
|
|
|
|
r[1+7] = p[6]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_l_v11495: /* ek r fname k oport mname r iport */
|
2023-03-01 00:05:08 +01:00
|
|
|
(void)(objptr_from_obj(r[7])[0] = (r[1]));
|
|
|
|
|
(void)(objptr_from_obj(r[5])[0] = (r[6]));
|
2023-03-20 04:31:28 +01:00
|
|
|
(void)(oportputcircular((cx__233756), (r[4]), 1));
|
2023-03-01 00:05:08 +01:00
|
|
|
r[8] = (objptr_from_obj(r[5])[0]);
|
|
|
|
|
(void)(oportputcircular((r[8]), (r[4]), 1));
|
2023-03-20 04:31:28 +01:00
|
|
|
(void)(oportputcircular((cx__233755), (r[4]), 1));
|
2023-03-01 00:05:08 +01:00
|
|
|
hreserve(hbsz(4+1), 8); /* 8 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[5];
|
2023-03-01 00:05:08 +01:00
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[7];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(507);
|
2023-03-01 00:05:08 +01:00
|
|
|
r[8] = (hendblk(4+1));
|
|
|
|
|
r[0] = r[8];
|
2023-02-28 06:31:08 +01:00
|
|
|
r[1] = r[2];
|
|
|
|
|
goto gs_path_2Dstrip_2Ddirectory;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 507: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2];
|
2023-03-01 00:05:08 +01:00
|
|
|
r[1+4] = p[3];
|
|
|
|
|
r[1+5] = p[4]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-01 00:05:08 +01:00
|
|
|
/* ek r iport k mname oport */
|
|
|
|
|
(void)(oportputcircular((r[1]), (r[5]), 1));
|
2023-03-20 04:31:28 +01:00
|
|
|
(void)(oportputcircular((cx__233754), (r[5]), 1));
|
2023-03-01 00:05:08 +01:00
|
|
|
(void)(oportputc('\n', (r[5])));
|
|
|
|
|
(void)(oportputc('\n', (r[5])));
|
2023-03-20 04:31:28 +01:00
|
|
|
(void)(oportputcircular((cx__233753), (r[5]), 1));
|
2023-03-01 00:05:08 +01:00
|
|
|
r[6] = (objptr_from_obj(r[4])[0]);
|
|
|
|
|
(void)(oportputcircular((r[6]), (r[5]), 1));
|
2023-03-20 04:31:28 +01:00
|
|
|
(void)(oportputcircular((cx__233752), (r[5]), 1));
|
2023-03-01 00:05:08 +01:00
|
|
|
(void)(oportputc('\n', (r[5])));
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(3+1), 6); /* 6 live regs */
|
2023-03-01 00:05:08 +01:00
|
|
|
*--hp = r[5];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[2];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(508);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[6] = (hendblk(3+1));
|
|
|
|
|
r[0] = (cx_read_2Ddatum);
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = r[6];
|
|
|
|
|
r[2] = (objptr_from_obj(r[2])[0]);
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 508: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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 */
|
2023-03-03 01:27:09 +01:00
|
|
|
hreserve(hbsz(3+1), 5); /* 5 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
|
|
|
|
*--hp = r[2];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(512);
|
2023-03-03 01:27:09 +01:00
|
|
|
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 */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v11506;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 509: /* clo k x */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
2023-02-28 06:31:08 +01:00
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v11506: /* k x oport iport */
|
2023-03-03 01:27:09 +01:00
|
|
|
if ((iseof((r[1])))) {
|
2023-02-28 06:31:08 +01:00
|
|
|
/* 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 {
|
2023-03-03 01:27:09 +01:00
|
|
|
hreserve(hbsz(2+1), 4); /* 4 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[3];
|
2023-03-03 01:27:09 +01:00
|
|
|
*--hp = r[2];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(509);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[4] = (hendblk(2+1));
|
|
|
|
|
hreserve(hbsz(3+1), 5); /* 5 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[4];
|
2023-03-03 01:27:09 +01:00
|
|
|
*--hp = r[3];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(510);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
2023-02-28 06:31:08 +01:00
|
|
|
/* r[1] */
|
|
|
|
|
/* r[2] */
|
|
|
|
|
goto gs_process_2Dtop_2Dform;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 510: /* clo ek . */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc >= 2);
|
|
|
|
|
r[2] = obj_from_void(0); /* ignored */
|
2023-02-28 06:31:08 +01:00
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2];
|
|
|
|
|
r[1+4] = p[3]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek . iport loop k */
|
|
|
|
|
hreserve(hbsz(2+1), 5); /* 5 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(511);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[5] = (hendblk(2+1));
|
2023-02-28 06:31:08 +01:00
|
|
|
r[0] = (cx_read_2Ddatum);
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = r[5];
|
|
|
|
|
r[2] = (objptr_from_obj(r[2])[0]);
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 511: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+3] = p[2]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* 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 */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-03 01:27:09 +01:00
|
|
|
rc = 3;
|
2023-02-28 06:31:08 +01:00
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 512: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
(void)(oportputcircular((cx__233744), (r[4]), 1));
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 513: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r */
|
2023-03-11 19:41:44 +01:00
|
|
|
cx_continuation_2Dadapter_2Dcode = r[1];
|
2023-03-06 21:53:37 +01:00
|
|
|
{ /* define decode */
|
|
|
|
|
static obj c[] = { obj_from_objptr(vmcases+3) };
|
|
|
|
|
r[2] = obj_from_objptr(c); }
|
|
|
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(514);
|
2023-03-06 21:53:37 +01:00
|
|
|
r[3] = (hendblk(0+1));
|
|
|
|
|
r[4+0] = r[2];
|
|
|
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
|
|
|
r[4+1] = r[3];
|
2023-03-20 04:31:28 +01:00
|
|
|
r[4+2] = (cx__233780);
|
2023-03-06 21:53:37 +01:00
|
|
|
r += 4; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 514: /* clo ek r */
|
2023-03-06 21:53:37 +01:00
|
|
|
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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(515);
|
2023-03-06 21:53:37 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 515: /* clo ek r */
|
2023-03-06 21:53:37 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r */
|
|
|
|
|
cx_callmv_2Dadapter_2Dclosure = r[1];
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* 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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(516);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 516: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc >= 2);
|
|
|
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek . */
|
2023-03-03 19:18:00 +01:00
|
|
|
{ /* 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 */
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(517);
|
2023-03-03 19:18:00 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 517: /* clo ek . */
|
2023-03-03 19:18:00 +01:00
|
|
|
assert(rc >= 2);
|
|
|
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek . */
|
2023-03-20 04:31:28 +01:00
|
|
|
cx_test1 = (cx__233784);
|
|
|
|
|
cx_test2 = (cx__234054);
|
|
|
|
|
cx_test3 = (cx__234256);
|
|
|
|
|
cx_test4 = (cx__234658);
|
|
|
|
|
cx_test5 = (cx__234788);
|
2023-03-08 19:03:39 +01:00
|
|
|
cx__2Averbose_2A = obj_from_bool(0);
|
2023-03-20 04:31:28 +01:00
|
|
|
{ static obj c[] = { obj_from_case(518) }; cx_run_2Dtests = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(524) }; cx_repl_2Deval = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(530) }; cx_repl_2Deval_2Dtop_2Dform = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(539) }; cx_repl_2Dread = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(540) }; cx_repl_2Dfrom_2Dport = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(545) }; cx_run_2Drepl = (obj)c; }
|
|
|
|
|
{ static obj c[] = { obj_from_case(546) }; cx_main = (obj)c; }
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 518: /* run-tests k */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 2);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-08 19:03:39 +01:00
|
|
|
gs_run_2Dtests: /* k */
|
2023-02-28 06:31:08 +01:00
|
|
|
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]));
|
2023-03-20 04:31:28 +01:00
|
|
|
(void)(oportputcircular((cx__235197), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
|
2023-02-28 06:31:08 +01:00
|
|
|
(void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
|
|
|
|
|
hreserve(hbsz(2+1), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[1];
|
|
|
|
|
*--hp = r[0];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(519);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[2] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[2];
|
|
|
|
|
r[1] = (cx_test1);
|
|
|
|
|
goto gs_evaluate;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 519: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(520);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = (cx_test2);
|
|
|
|
|
goto gs_evaluate;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 520: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(521);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = (cx_test3);
|
|
|
|
|
goto gs_evaluate;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 521: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(522);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = (cx_test4);
|
|
|
|
|
goto gs_evaluate;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 522: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(523);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
r[1] = (cx_test5);
|
|
|
|
|
goto gs_evaluate;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 523: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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)));
|
2023-03-20 04:31:28 +01:00
|
|
|
(void)(oportputcircular((cx__235196), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
|
|
|
|
|
{ flonum_t v14851_b;
|
|
|
|
|
{ flonum_t v14850_a;
|
|
|
|
|
{ const flonum_t v14849_b = (CLOCKS_PER_SEC);
|
|
|
|
|
{ const flonum_t v14847_a = (clock());
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (objptr_from_obj(r[3])[0]);
|
|
|
|
|
if ((is_fixnum_obj(r[4]))) {
|
2023-03-20 04:31:28 +01:00
|
|
|
{ const flonum_t v14848_tmp = ((flonum_t)fixnum_from_obj(r[4]));
|
|
|
|
|
v14850_a = ((v14847_a) - (v14848_tmp)); }
|
2023-02-28 06:31:08 +01:00
|
|
|
} else {
|
2023-03-20 04:31:28 +01:00
|
|
|
v14850_a = ((v14847_a) - flonum_from_obj(r[4]));
|
2023-02-28 06:31:08 +01:00
|
|
|
} }
|
2023-03-20 04:31:28 +01:00
|
|
|
v14851_b = ((v14850_a) / (v14849_b)); } }
|
|
|
|
|
{ const flonum_t v14852_tmp = ((flonum_t)(+1000));
|
|
|
|
|
r[4] = obj_from_flonum(4, (v14852_tmp) * (v14851_b)); } }
|
2023-02-28 06:31:08 +01:00
|
|
|
(void)(oportputcircular((r[4]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
|
2023-03-20 04:31:28 +01:00
|
|
|
(void)(oportputcircular((cx__235172), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 524: /* repl-eval k x */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
gs_repl_2Deval: /* k x */
|
|
|
|
|
hreserve(hbsz(1+1), 2); /* 2 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[0];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(525);
|
2023-03-03 01:27:09 +01:00
|
|
|
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 */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-03 01:27:09 +01:00
|
|
|
rc = 4;
|
2023-02-28 06:31:08 +01:00
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 525: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* ek r k */
|
2023-03-08 19:03:39 +01:00
|
|
|
if (bool_from_obj(cx__2Averbose_2A)) {
|
2023-03-20 04:31:28 +01:00
|
|
|
(void)(oportputcircular((cx__235264), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
|
2023-02-28 06:31:08 +01:00
|
|
|
(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)));
|
2023-03-08 19:03:39 +01:00
|
|
|
} else {
|
|
|
|
|
}
|
2023-02-28 06:31:08 +01:00
|
|
|
r[3] = (car((r[1])));
|
|
|
|
|
r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("define"))));
|
|
|
|
|
if (bool_from_obj(r[3])) {
|
|
|
|
|
(void)(car((r[1])) = (mksymbol(internsym("set!"))));
|
|
|
|
|
} else {
|
|
|
|
|
}
|
2023-03-08 19:03:39 +01:00
|
|
|
if (bool_from_obj(cx__2Averbose_2A)) {
|
2023-03-20 04:31:28 +01:00
|
|
|
(void)(oportputcircular((cx__235257), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
|
2023-02-28 06:31:08 +01:00
|
|
|
(void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
|
2023-03-08 19:03:39 +01:00
|
|
|
} else {
|
|
|
|
|
}
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* 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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(526);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
r[2] = (mknull());
|
|
|
|
|
goto gs_find_2Dfree;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 526: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(527);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 527: /* clo ek . */
|
2023-02-28 06:31:08 +01:00
|
|
|
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));
|
2023-03-08 19:03:39 +01:00
|
|
|
if (bool_from_obj(cx__2Averbose_2A)) {
|
2023-02-28 06:31:08 +01:00
|
|
|
(void)(oportputcircular((r[4]), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
|
|
|
|
|
(void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
|
2023-03-20 04:31:28 +01:00
|
|
|
(void)(oportputcircular((cx__235250), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
|
2023-02-28 06:31:08 +01:00
|
|
|
(void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
|
|
|
|
|
r[6] = obj_from_flonum(6, clock());
|
|
|
|
|
(void)(objptr_from_obj(r[5])[0] = (r[6]));
|
2023-03-08 19:03:39 +01:00
|
|
|
} else {
|
|
|
|
|
}
|
2023-02-28 06:31:08 +01:00
|
|
|
{ /* 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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(528);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[7] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[6];
|
2023-03-03 01:27:09 +01:00
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = r[7];
|
|
|
|
|
r[2] = r[4];
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 528: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r k start */
|
2023-02-28 06:31:08 +01:00
|
|
|
hreserve(hbsz(2+1), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
2023-03-03 01:27:09 +01:00
|
|
|
*--hp = r[2];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(529);
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[4];
|
|
|
|
|
/* r[1] */
|
2023-03-03 01:27:09 +01:00
|
|
|
goto gs_execute;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 529: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r k start */
|
|
|
|
|
(void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
|
|
|
|
|
(void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
|
2023-03-08 19:03:39 +01:00
|
|
|
if (bool_from_obj(cx__2Averbose_2A)) {
|
2023-03-20 04:31:28 +01:00
|
|
|
(void)(oportputcircular((cx__235196), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
|
|
|
|
|
{ flonum_t v14845_b;
|
|
|
|
|
{ flonum_t v14844_a;
|
|
|
|
|
{ const flonum_t v14843_b = (CLOCKS_PER_SEC);
|
|
|
|
|
{ const flonum_t v14841_a = (clock());
|
2023-03-03 01:27:09 +01:00
|
|
|
r[4] = (objptr_from_obj(r[3])[0]);
|
|
|
|
|
if ((is_fixnum_obj(r[4]))) {
|
2023-03-20 04:31:28 +01:00
|
|
|
{ const flonum_t v14842_tmp = ((flonum_t)fixnum_from_obj(r[4]));
|
|
|
|
|
v14844_a = ((v14841_a) - (v14842_tmp)); }
|
2023-03-03 01:27:09 +01:00
|
|
|
} else {
|
2023-03-20 04:31:28 +01:00
|
|
|
v14844_a = ((v14841_a) - flonum_from_obj(r[4]));
|
2023-03-03 01:27:09 +01:00
|
|
|
} }
|
2023-03-20 04:31:28 +01:00
|
|
|
v14845_b = ((v14844_a) / (v14843_b)); } }
|
|
|
|
|
{ const flonum_t v14846_tmp = ((flonum_t)(+1000));
|
|
|
|
|
r[4] = obj_from_flonum(4, (v14846_tmp) * (v14845_b)); } }
|
2023-03-03 01:27:09 +01:00
|
|
|
(void)(oportputcircular((r[4]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
|
2023-03-20 04:31:28 +01:00
|
|
|
(void)(oportputcircular((cx__235172), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
|
2023-03-03 01:27:09 +01:00
|
|
|
r[4] = obj_from_void(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
|
2023-03-08 19:03:39 +01:00
|
|
|
} else {
|
|
|
|
|
r[4] = obj_from_void(0);
|
|
|
|
|
}
|
2023-02-28 06:31:08 +01:00
|
|
|
r[0] = r[2];
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = obj_from_ktrap();
|
2023-03-03 01:27:09 +01:00
|
|
|
r[2] = r[4];
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 530: /* repl-eval-top-form k x */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
gs_repl_2Deval_2Dtop_2Dform: /* k x */
|
2023-03-04 06:07:52 +01:00
|
|
|
if (bool_from_obj(cxs_list2_3F((r[1])))) {
|
2023-03-03 01:27:09 +01:00
|
|
|
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])));
|
2023-02-28 06:31:08 +01:00
|
|
|
} else {
|
2023-03-03 01:27:09 +01:00
|
|
|
r[2] = obj_from_bool(0);
|
|
|
|
|
}
|
2023-02-28 06:31:08 +01:00
|
|
|
} else {
|
2023-03-03 01:27:09 +01:00
|
|
|
r[2] = obj_from_bool(0);
|
|
|
|
|
}
|
|
|
|
|
if (bool_from_obj(r[2])) {
|
|
|
|
|
r[2] = (cdr((r[1])));
|
|
|
|
|
r[2] = (car((r[2])));
|
2023-03-20 04:31:28 +01:00
|
|
|
r[3] = ((obj)fopen(stringchars((r[2])), stringchars((cx__233588))));
|
2023-03-03 01:27:09 +01:00
|
|
|
hreserve(hbsz(1+1), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[0];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(531);
|
2023-03-03 01:27:09 +01:00
|
|
|
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();
|
2023-02-28 06:31:08 +01:00
|
|
|
r[6+1] = r[5];
|
2023-03-03 01:27:09 +01:00
|
|
|
r[6+2] = r[0];
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 6; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_l_v11385;
|
2023-03-03 01:27:09 +01:00
|
|
|
} else {
|
|
|
|
|
r[5+0] = (cx_file_2Derror);
|
|
|
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
|
|
|
r[5+1] = r[4];
|
2023-03-20 04:31:28 +01:00
|
|
|
r[5+2] = (cx__233592);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[5+3] = r[2];
|
|
|
|
|
r += 5; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-02-28 06:31:08 +01:00
|
|
|
rc = 4;
|
|
|
|
|
goto jump;
|
2023-03-03 01:27:09 +01:00
|
|
|
}
|
2023-02-28 06:31:08 +01:00
|
|
|
} else {
|
2023-03-03 01:27:09 +01:00
|
|
|
if ((ispair((r[1])))) {
|
|
|
|
|
hreserve(hbsz(2+1), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(533);
|
2023-03-03 01:27:09 +01:00
|
|
|
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] */
|
2023-02-28 06:31:08 +01:00
|
|
|
goto gs_repl_2Deval;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 531: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_l_v11385: /* ek r k */
|
2023-03-03 01:27:09 +01:00
|
|
|
hreserve(hbsz(2+1), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[1];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(532);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3] = (hendblk(2+1));
|
2023-02-28 06:31:08 +01:00
|
|
|
r[0] = r[3];
|
2023-03-03 01:27:09 +01:00
|
|
|
/* r[1] */
|
|
|
|
|
goto gs_repl_2Dfrom_2Dport;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 532: /* clo ek . */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc >= 2);
|
|
|
|
|
r[2] = obj_from_void(0); /* ignored */
|
2023-02-28 06:31:08 +01:00
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+3] = p[2]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek . r k */
|
|
|
|
|
r[0] = (cx_close_2Dinput_2Dport);
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
|
|
|
|
r[1] = r[3];
|
|
|
|
|
/* r[2] */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-03 01:27:09 +01:00
|
|
|
rc = 3;
|
2023-02-28 06:31:08 +01:00
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 533: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ 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 */
|
2023-03-03 01:27:09 +01:00
|
|
|
if (((r[1]) == (mksymbol(internsym("begin"))))) {
|
|
|
|
|
r[4] = (cdr((r[2])));
|
|
|
|
|
r[0] = r[3];
|
|
|
|
|
r[1] = r[4];
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v11369;
|
2023-03-03 01:27:09 +01:00
|
|
|
} else {
|
|
|
|
|
if (((r[1]) == (mksymbol(internsym("define-syntax"))))) {
|
|
|
|
|
hreserve(hbsz(2+1), 4); /* 4 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[2];
|
2023-03-03 01:27:09 +01:00
|
|
|
*--hp = r[3];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(536);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[4] = (hendblk(2+1));
|
2023-02-28 06:31:08 +01:00
|
|
|
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);
|
2023-03-03 01:27:09 +01:00
|
|
|
rc = 4;
|
|
|
|
|
goto jump;
|
|
|
|
|
} else {
|
|
|
|
|
if ((isprocedure((r[1])))) {
|
|
|
|
|
hreserve(hbsz(1+1), 4); /* 4 live regs */
|
|
|
|
|
*--hp = r[3];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(538);
|
2023-03-03 01:27:09 +01:00
|
|
|
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;
|
2023-02-28 06:31:08 +01:00
|
|
|
goto jump;
|
2023-03-03 01:27:09 +01:00
|
|
|
} else {
|
|
|
|
|
r[0] = r[3];
|
|
|
|
|
r[1] = r[2];
|
|
|
|
|
goto gs_repl_2Deval;
|
|
|
|
|
}
|
|
|
|
|
}
|
|
|
|
|
}
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 534: /* clo k x* */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v11369: /* k x* */
|
2023-03-03 01:27:09 +01:00
|
|
|
if ((ispair((r[1])))) {
|
|
|
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(534);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[2] = (hendblk(0+1));
|
|
|
|
|
hreserve(hbsz(3+1), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[0];
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[1];
|
2023-03-03 01:27:09 +01:00
|
|
|
*--hp = r[2];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(535);
|
2023-03-03 01:27:09 +01:00
|
|
|
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 */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
2023-03-03 01:27:09 +01:00
|
|
|
}
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 535: /* clo ek . */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc >= 2);
|
|
|
|
|
r[2] = obj_from_void(0); /* ignored */
|
2023-02-28 06:31:08 +01:00
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2];
|
|
|
|
|
r[1+4] = p[3]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek . loop x* k */
|
2023-02-28 06:31:08 +01:00
|
|
|
r[0] = r[2];
|
|
|
|
|
pc = objptr_from_obj(r[0])[0];
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1] = r[4];
|
|
|
|
|
r[2] = (cdr((r[3])));
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 536: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* 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];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(537);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[5] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[5];
|
|
|
|
|
r[1] = r[4];
|
|
|
|
|
goto gs_top_2Dtransformer_2Denv;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 537: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
2023-02-28 06:31:08 +01:00
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* 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(cdr((r[1])) = (r[3]));
|
|
|
|
|
r += 4; /* shift reg wnd */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 538: /* clo ek r */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
2023-02-28 06:31:08 +01:00
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+2] = p[1]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r k */
|
2023-02-28 06:31:08 +01:00
|
|
|
r[0] = r[2];
|
2023-03-03 01:27:09 +01:00
|
|
|
/* r[1] */
|
|
|
|
|
goto gs_repl_2Deval_2Dtop_2Dform;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 539: /* repl-read k iport */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
gs_repl_2Dread: /* k iport */
|
2023-03-20 04:31:28 +01:00
|
|
|
(void)(((r[1]) == (cx__2Acurrent_2Dinput_2Dport_2A)) ? (void)(oportputcircular((cx__235318), (cx__2Acurrent_2Doutput_2Dport_2A), 1)) : (void)(0));
|
2023-02-28 06:31:08 +01:00
|
|
|
r[2+0] = (cx_read_2Ddatum);
|
|
|
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
|
|
|
r[2+1] = r[0];
|
|
|
|
|
r[2+2] = r[1];
|
|
|
|
|
r += 2; /* shift reg wnd */
|
|
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 540: /* repl-from-port k iport */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
gs_repl_2Dfrom_2Dport: /* k iport */
|
|
|
|
|
hreserve(hbsz(2+1), 2); /* 2 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[1];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(541);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[2] = (hendblk(2+1));
|
|
|
|
|
r[0] = r[2];
|
2023-02-28 06:31:08 +01:00
|
|
|
/* r[1] */
|
|
|
|
|
goto gs_repl_2Dread;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 541: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+3] = p[2]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek r iport k */
|
|
|
|
|
r[0] = r[3];
|
|
|
|
|
/* r[1] */
|
|
|
|
|
/* r[2] */
|
2023-03-20 04:31:28 +01:00
|
|
|
goto s_loop_v11316;
|
2023-02-28 06:31:08 +01:00
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 542: /* clo k x */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc == 3);
|
2023-02-28 06:31:08 +01:00
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+2] = p[1]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-20 04:31:28 +01:00
|
|
|
s_loop_v11316: /* k x iport */
|
2023-03-03 01:27:09 +01:00
|
|
|
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));
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
|
|
|
|
rc = 3;
|
|
|
|
|
goto jump;
|
|
|
|
|
} else {
|
2023-03-03 01:27:09 +01:00
|
|
|
hreserve(hbsz(1+1), 3); /* 3 live regs */
|
|
|
|
|
*--hp = r[2];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(542);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3] = (hendblk(1+1));
|
|
|
|
|
hreserve(hbsz(3+1), 4); /* 4 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[0];
|
|
|
|
|
*--hp = r[3];
|
2023-03-03 01:27:09 +01:00
|
|
|
*--hp = r[2];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(543);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[3] = (hendblk(3+1));
|
|
|
|
|
r[0] = r[3];
|
|
|
|
|
/* r[1] */
|
2023-02-28 06:31:08 +01:00
|
|
|
goto gs_repl_2Deval_2Dtop_2Dform;
|
|
|
|
|
}
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 543: /* clo ek . */
|
2023-03-03 01:27:09 +01:00
|
|
|
assert(rc >= 2);
|
|
|
|
|
r[2] = obj_from_void(0); /* ignored */
|
2023-02-28 06:31:08 +01:00
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
|
|
|
|
r[1+3] = p[2];
|
|
|
|
|
r[1+4] = p[3]; }
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* ek . iport loop k */
|
|
|
|
|
hreserve(hbsz(2+1), 5); /* 5 live regs */
|
2023-02-28 06:31:08 +01:00
|
|
|
*--hp = r[4];
|
|
|
|
|
*--hp = r[3];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(544);
|
2023-03-03 01:27:09 +01:00
|
|
|
r[5] = (hendblk(2+1));
|
2023-02-28 06:31:08 +01:00
|
|
|
r[0] = r[5];
|
|
|
|
|
r[1] = r[2];
|
|
|
|
|
goto gs_repl_2Dread;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 544: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
|
|
|
r[1+2] = p[1];
|
2023-03-03 01:27:09 +01:00
|
|
|
r[1+3] = p[2]; }
|
2023-02-28 06:31:08 +01:00
|
|
|
r += 1; /* shift reg. wnd */
|
2023-03-03 01:27:09 +01:00
|
|
|
/* 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 */
|
2023-02-28 06:31:08 +01:00
|
|
|
rreserve(MAX_HOSTREGS);
|
2023-03-03 01:27:09 +01:00
|
|
|
rc = 3;
|
2023-02-28 06:31:08 +01:00
|
|
|
goto jump;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 545: /* run-repl k */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 2);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
gs_run_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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 546: /* main k argv */
|
2023-02-28 06:31:08 +01:00
|
|
|
assert(rc == 3);
|
|
|
|
|
r += 1; /* shift reg. wnd */
|
|
|
|
|
/* k argv */
|
|
|
|
|
hreserve(hbsz(1+1), 2); /* 2 live regs */
|
|
|
|
|
*--hp = r[0];
|
2023-03-20 04:31:28 +01:00
|
|
|
*--hp = obj_from_case(547);
|
2023-02-28 06:31:08 +01:00
|
|
|
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;
|
|
|
|
|
|
2023-03-20 04:31:28 +01:00
|
|
|
case 547: /* clo ek r */
|
2023-02-28 06:31:08 +01:00
|
|
|
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])));
|
2023-03-20 04:31:28 +01:00
|
|
|
if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__235347), (r[3])))) {
|
2023-02-28 06:31:08 +01:00
|
|
|
r[4] = (cdr((r[3])));
|
|
|
|
|
r[4] = (car((r[4])));
|
|
|
|
|
r[0] = r[2];
|
|
|
|
|
r[1] = r[4];
|
|
|
|
|
goto gs_process_2Dfile;
|
2023-03-08 19:03:39 +01:00
|
|
|
} else {
|
2023-03-20 04:31:28 +01:00
|
|
|
if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__235341), (r[3])))) {
|
2023-03-08 19:03:39 +01:00
|
|
|
r[0] = r[2];
|
|
|
|
|
goto gs_run_2Dtests;
|
|
|
|
|
} else {
|
2023-03-20 04:31:28 +01:00
|
|
|
if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__235338), (r[3])))) {
|
2023-03-08 19:03:39 +01:00
|
|
|
cx__2Averbose_2A = obj_from_bool(1);
|
|
|
|
|
r[0] = r[2];
|
|
|
|
|
goto gs_run_2Drepl;
|
2023-02-28 06:31:08 +01:00
|
|
|
} else {
|
|
|
|
|
r[0] = r[2];
|
|
|
|
|
goto gs_run_2Drepl;
|
|
|
|
|
}
|
2023-03-08 19:03:39 +01:00
|
|
|
}
|
|
|
|
|
}
|
2023-02-28 06:31:08 +01:00
|
|
|
|
|
|
|
|
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;
|
|
|
|
|
}
|
