Miroirs/skint
1
0
Fork 0
mirror of https://github.com/false-schemers/skint.git synced 2024-12-26 21:58:51 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions
skint/k.c

25186 lines
676 KiB
C
Raw Normal View History

c.c => k.c; minor clang 14 fix
2023-03-04 19:44:37 +01:00
/* k.sf */
initial commit
2023-02-28 06:31:08 +01:00
/* Generated by #F $Id$ */
#ifdef PROFILE
c.c => k.c; minor clang 14 fix
2023-03-04 19:44:37 +01:00
#define host host_module_k
initial commit
2023-02-28 06:31:08 +01:00
#endif
c.c => k.c; minor clang 14 fix
2023-03-04 19:44:37 +01:00
#define MODULE module_k
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
#define LOAD() module_n();
extern void module_n(void); /* n.sf */
initial commit
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 */
work-in-progress II
2023-04-03 00:36:31 +02:00
#ifdef NAN_BOXING
#include <stdint.h>
typedef int64_t obj; /* pointers are this size, higher 16 bits and lower bit zero */
typedef int64_t cxoint_t; /* same thing, used as integer */
typedef struct { /* type descriptor */
const char *tname; /* name (debug) */
void (*free)(void*); /* deallocator */
} cxtype_t;
initial commit
2023-02-28 06:31:08 +01:00
work-in-progress II
2023-04-03 00:36:31 +02:00
#define notobjptr(o) (((cxoint_t)(o) - (cxoint_t)cxg_heap) & cxg_hmask)
#define isobjptr(o) (!notobjptr(o))
#define notaptr(o) ((o) & 0xffff000000000001ULL)
#define isaptr(o) (!notaptr(o))
#else
initial commit
2023-02-28 06:31:08 +01:00
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))
work-in-progress II
2023-04-03 00:36:31 +02:00
#endif
initial commit
2023-02-28 06:31:08 +01:00
#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 */
work-in-progress I
2023-04-03 00:11:08 +02:00
#ifdef NAN_BOXING
getim0s fix !!!!, some r7rs std env functions old getim0s failed in model where long is 64-bit
2024-07-12 20:57:32 +02:00
#define isim0(o) (((o) & 0xffffffff00000003ULL) == 3) /* 30 bits of payload */
#define isimm(o, t) (((o) & 0xffffffff000000ffULL) == (((t) << 2) | 1)) /* 24 */
work-in-progress I
2023-04-03 00:11:08 +02:00
#ifdef NDEBUG
getim0s fix !!!!, some r7rs std env functions old getim0s failed in model where long is 64-bit
2024-07-12 20:57:32 +02:00
#define getim0s(o) (long)(((((int32_t)(o) >> 2) & 0x3fffffff) ^ 0x20000000) - 0x20000000)
work-in-progress I
2023-04-03 00:11:08 +02:00
#define getimmu(o, t) (long)(((o) >> 8) & 0xffffff)
#else
extern long getim0s(obj o);
extern long getimmu(obj o, int t);
#endif
#define mkim0(v) ((obj)((((v) & 0x000000003fffffffULL) << 2) | 3))
#define mkimm(v, t) ((obj)((((v) & 0x0000000000ffffffULL) << 8) | ((t) << 2) | 1))
#else
initial switch to libl
2023-04-02 22:16:43 +02:00
#define isim0(o) (((o) & 3) == 3)
#define isimm(o, t) (((o) & 0xff) == (((t) << 2) | 1))
initial commit
2023-02-28 06:31:08 +01:00
#ifdef NDEBUG
getim0s fix !!!!, some r7rs std env functions old getim0s failed in model where long is 64-bit
2024-07-12 20:57:32 +02:00
#define getim0s(o) (long)(((((int)(o) >> 2) & 0x3fffffff) ^ 0x20000000) - 0x20000000)
initial switch to libl
2023-04-02 22:16:43 +02:00
#define getimmu(o, t) (long)(((o) >> 8) & 0xffffff)
initial commit
2023-02-28 06:31:08 +01:00
#else
initial switch to libl
2023-04-02 22:16:43 +02:00
extern long getim0s(obj o);
initial commit
2023-02-28 06:31:08 +01:00
extern long getimmu(obj o, int t);
#endif
initial switch to libl
2023-04-02 22:16:43 +02:00
#define mkim0(o) (obj)((((o) & 0x3fffffff) << 2) | 3)
#define mkimm(o, t) (obj)((((o) & 0xffffff) << 8) | ((t) << 2) | 1)
work-in-progress I
2023-04-03 00:11:08 +02:00
#define FLONUMS_BOXED
#endif
initial commit
2023-02-28 06:31:08 +01:00
#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
initial switch to libl
2023-04-02 22:16:43 +02:00
extern int istyped(obj o);
#ifdef NDEBUG
#define cktyped(o, t) (o)
#define typedtype(o) (&hblkref(o, 0))
#define typedlen(o) (hblklen(o)-1)
#define typedref(o, i) (&hblkref(o, (i)+1))
#else
extern obj cktyped(obj o);
extern obj* typedtype(obj o);
extern int typedlen(obj o);
extern obj* typedref(obj o, int i);
#endif
initial commit
2023-02-28 06:31:08 +01:00
/* 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)
initial switch to libl
2023-04-02 22:16:43 +02:00
/* void */
#define VOID_ITAG 1
#define mkvoid() mkimm(0, VOID_ITAG)
#define isvoid(o) ((o) == mkimm(0, VOID_ITAG))
#undef obj_from_void
#define obj_from_void(v) ((void)(v), mkimm(0, VOID_ITAG))
/* unit */
#define obj_from_unit() (obj_from_size(0x6DF6F577))
initial commit
2023-02-28 06:31:08 +01:00
/* numbers */
initial switch to libl
2023-04-02 22:16:43 +02:00
#define FIXNUM_BIT 30
#define FIXNUM_MIN -536870912
#define FIXNUM_MAX 536870911
initial commit
2023-02-28 06:31:08 +01:00
#ifdef NDEBUG
#define fxneg(x) (-(x))
#define fxabs(x) (labs(x))
#define fxadd(x, y) ((x) + (y))
#define fxsub(x, y) ((x) - (y))
#define fxmul(x, y) ((x) * (y))
/* exact integer division */
#define fxdiv(x, y) ((x) / (y))
/* truncated division (common/C99) */
#define fxquo(x, y) ((x) / (y))
#define fxrem(x, y) ((x) % (y))
/* floor division */
static long fxmqu(long x, long y) {
long q = x / y; return ((x < 0 && y > 0) || (x > 0 && y < 0)) ? q - 1 : q;
}
static long fxmlo(long x, long y) {
long r = x % y; return ((r < 0 && y > 0) || (r > 0 && y < 0)) ? r + y : r;
}
/* euclidean division */
static long fxeuq(long x, long y) {
long q = x / y, r = x % y; return (r < 0) ? ((y > 0) ? q - 1 : q + 1) : q;
}
static long fxeur(long x, long y) {
long r = x % y; return (r < 0) ? ((y > 0) ? r + y : r - y) : r;
}
static long fxgcd(long x, long y) {
long a = labs(x), b = labs(y), c; while (b) c = a%b, a = b, b = c;
return a;
}
#define fxasl(x, y) ((x) << (y))
#define fxasr(x, y) ((x) >> (y))
#define fxflo(f) ((long)(f))
#else
extern long fxneg(long x);
extern long fxabs(long x);
extern long fxadd(long x, long y);
extern long fxsub(long x, long y);
extern long fxmul(long x, long y);
extern long fxdiv(long x, long y);
extern long fxquo(long x, long y);
extern long fxrem(long x, long y);
extern long fxmqu(long x, long y);
extern long fxmlo(long x, long y);
extern long fxeuq(long x, long y);
extern long fxeur(long x, long y);
extern long fxgcd(long x, long y);
extern long fxasl(long x, long y);
extern long fxasr(long x, long y);
extern long fxflo(double f);
#endif
static int flisint(double f) { return f > -HUGE_VAL && f < HUGE_VAL && f == floor(f); }
extern long fxpow(long x, long y);
extern long fxsqrt(long x);
extern int fxifdv(long x, long y, long *pi, double *pd);
extern double flquo(double x, double y);
extern double flrem(double x, double y);
extern double flmqu(double x, double y);
extern double flmlo(double x, double y);
extern double flgcd(double x, double y);
extern double flround(double x);
extern int strtofxfl(char *s, int radix, long *pl, double *pd);
/* fixnums */
typedef long fixnum_t;
initial switch to libl
2023-04-02 22:16:43 +02:00
#define is_fixnum_obj(o) (isim0(o))
initial commit
2023-02-28 06:31:08 +01:00
#define is_fixnum_fixnum(i) ((void)(i), 1)
#define is_bool_fixnum(i) ((void)(i), 0)
#define is_fixnum_bool(i) ((void)(i), 0)
initial switch to libl
2023-04-02 22:16:43 +02:00
#define fixnum_from_obj(o) (getim0s(o))
initial commit
2023-02-28 06:31:08 +01:00
#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)
initial switch to libl
2023-04-02 22:16:43 +02:00
#define obj_from_fixnum(i) mkim0((fixnum_t)(i))
initial commit
2023-02-28 06:31:08 +01:00
/* flonums */
work-in-progress I
2023-04-03 00:11:08 +02:00
#ifndef FLONUMS_BOXED
typedef double flonum_t;
#define is_flonum_obj(o) (((o) & 0xffff000000000000ULL) != 0ULL)
#define is_flonum_flonum(f) ((void)(f), 1)
#define is_flonum_bool(f) ((void)(f), 0)
#define is_bool_flonum(f) ((void)(f), 0)
#define is_fixnum_flonum(i) ((void)(i), 0)
#define is_flonum_fixnum(i) ((void)(i), 0)
#define flonum_from_flonum(l, f) (f)
#define flonum_from_fixnum(x) ((flonum_t)(x))
#define bool_from_flonum(f) ((void)(f), 0)
#define void_from_flonum(l, f) (void)(f)
union iod { cxoint_t i; double d; };
static double flonum_from_obj(obj o) {
union iod u;
assert(is_flonum_obj(o));
u.i = ~o;
return u.d;
}
static obj obj_from_flonum(int rc, double d) {
union iod u;
u.d = d;
assert(is_flonum_obj(~u.i));
return ~u.i;
}
#else /* FLONUMS_BOXED */
initial commit
2023-02-28 06:31:08 +01:00
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);
work-in-progress I
2023-04-03 00:11:08 +02:00
#endif
initial commit
2023-02-28 06:31:08 +01:00
/* 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)
initial switch to libl
2023-04-02 22:16:43 +02:00
#define char_from_obj(o) ((int)getimmu(o, CHAR_ITAG))
initial commit
2023-02-28 06:31:08 +01:00
#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);
initial switch to libl
2023-04-02 22:16:43 +02:00
extern int *newstringn(char *s, int n);
initial commit
2023-02-28 06:31:08 +01:00
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);
initial switch to libl
2023-04-02 22:16:43 +02:00
extern int strcmp_ci(char *s1, char *s2);
initial commit
2023-02-28 06:31:08 +01:00
/* 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);
initial switch to libl
2023-04-02 22:16:43 +02:00
extern int *makebytevector(int n, int c);
extern int *allocbytevector(int n);
initial commit
2023-02-28 06:31:08 +01:00
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 */
initial switch to libl
2023-04-02 22:16:43 +02:00
#define isrecord(o) istyped(o)
#define recordrtd(r) *typedtype(r)
#define recordlen(r) typedlen(r)
#define recordref(r, i) *typedref(r, i)
initial commit
2023-02-28 06:31:08 +01:00
/* 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
initial switch to libl
2023-04-02 22:16:43 +02:00
#define mkeof() mkimm(0, EOF_ITAG)
#define iseof(o) ((o) == mkimm(0, EOF_ITAG))
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
/* shebangs (#! directives or script start lines) */
#define SHEBANG_ITAG 8
#define isshebang(o) (isimm(o, SHEBANG_ITAG))
#define mkshebang(i) mkimm(i, SHEBANG_ITAG)
#define getshebang(o) getimmu(o, SHEBANG_ITAG)
cxtype_port_t; todo: change n.sf accordingly
2024-07-19 20:24:23 +02:00
/* input/output ports */
initial commit
2023-02-28 06:31:08 +01:00
typedef struct { /* extends cxtype_t */
const char *tname;
void (*free)(void*);
cxtype_port_t; todo: change n.sf accordingly
2024-07-19 20:24:23 +02:00
enum { SPT_CLOSED = 0, SPT_INPUT = 1, SPT_OUTPUT = 2, SPT_IO = 3 } spt;
int (*close)(void*);
int (*getch)(void*);
int (*ungetch)(int, void*);
int (*putch)(int, void*);
int (*flush)(void*);
int (*ctl)(const char *cmd, void *dp, ...);
} cxtype_port_t, cxtype_iport_t, cxtype_oport_t;
/* input ports */
initial commit
2023-02-28 06:31:08 +01:00
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 */
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 */
initial switch to libl
2023-04-02 22:16:43 +02:00
extern obj cx__25append; /* %append */
internal (read) in n.{sf,c} is now R7RS-compatible
2023-03-26 22:29:57 +02:00
extern obj cx__25read; /* %read */
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
extern obj cx__25residual_2Dcadr; /* %residual-cadr */
initial commit
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 */
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
extern obj cx__2Acurrent_2Derror_2Dport_2A; /* *current-error-port* */
initial commit
2023-02-28 06:31:08 +01:00
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 */
initial switch to libl
2023-04-02 22:16:43 +02:00
extern obj cx_list_2D_3Estring; /* list->string */
extern obj cx_list_2D_3Evector; /* list->vector */
extern obj cx_string_2D_3Elist; /* string->list */
extern obj cx_vector_2D_3Elist; /* vector->list */
initial commit
2023-02-28 06:31:08 +01:00
extern obj cx_write_2Dserialized_2Dsexp; /* write-serialized-sexp */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
obj cx__25residual_2Dlocation_2Dset_2Dval_21; /* %residual-location-set-val! */
obj cx__25residual_2Dlocation_2Dval; /* %residual-location-val */
obj cx__25residual_2Dmake_2Dlocation; /* %residual-make-location */
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
obj cx__25residual_2Dtty_2Dport_3F; /* %residual-tty-port? */
initial commit
2023-02-28 06:31:08 +01:00
obj cx__25residual_2Dval_2Dcore_3F; /* %residual-val-core? */
current ports refactoring -- work in progress
2023-03-31 00:13:07 +02:00
obj cx__2Acurrent_2Derror_2A; /* *current-error* */
obj cx__2Acurrent_2Dinput_2A; /* *current-input* */
obj cx__2Acurrent_2Doutput_2A; /* *current-output* */
dynamic-wind: work in progress
2023-03-30 05:18:39 +02:00
obj cx__2Adynamic_2Dstate_2A; /* *dynamic-state* */
initial commit
2023-02-28 06:31:08 +01:00
obj cx__2Aglobals_2A; /* *globals* */
obj cx__2Ahide_2Drefs_2A; /* *hide-refs* */
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
obj cx__2Areset_2A; /* *reset* */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
obj cx__2Atop_2Dtransformer_2Denv_2A; /* *top-transformer-env* */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
obj cx__2Atransformers_2A; /* *transformers* */
faster library appends; -v in repl (verbosity)
2023-03-08 19:03:39 +01:00
obj cx__2Averbose_2A; /* *verbose* */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
obj cx_add_2Dlocation; /* add-location */
initial commit
2023-02-28 06:31:08 +01:00
obj cx_add_2Dvar; /* add-var */
support for (set& var) primitive (returns box)
2023-03-12 21:54:44 +01:00
obj cx_andmap; /* andmap */
-b option to support ecraven benchmarks in .sf form
2023-03-29 05:40:41 +02:00
obj cx_benchmark_2Dfile; /* benchmark-file */
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
obj cx_c_2Derror; /* c-error */
values/call-with-values implemented
2023-03-06 21:53:37 +01:00
obj cx_callmv_2Dadapter_2Dclosure; /* callmv-adapter-closure */
initial commit
2023-02-28 06:31:08 +01:00
obj cx_codegen; /* codegen */
obj cx_compile_2Dto_2Dstring; /* compile-to-string */
letcc/withcc: k is now a procedure, allow bodies
2023-03-11 07:50:00 +01:00
obj cx_continuation_2Dadapter_2Dcode; /* continuation-adapter-code */
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
obj cx_debug_2Drepl; /* debug-repl */
initial commit
2023-02-28 06:31:08 +01:00
obj cx_decode; /* decode */
obj cx_decode_2Dsexp; /* decode-sexp */
obj cx_display_2Dcode; /* display-code */
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
obj cx_error_2A; /* error* */
initial commit
2023-02-28 06:31:08 +01:00
obj cx_evaluate; /* evaluate */
obj cx_execute; /* execute */
obj cx_execute_2Dthunk_2Dclosure; /* execute-thunk-closure */
obj cx_extend_2Dxenv; /* extend-xenv */
obj cx_find_2Dfree; /* find-free */
obj cx_find_2Dfree_2A; /* find-free* */
obj cx_find_2Dsets; /* find-sets */
obj cx_find_2Dsets_2A; /* find-sets* */
obj cx_flatten_2Didslist; /* flatten-idslist */
obj cx_gensym; /* gensym */
obj cx_id_2D_3Esym; /* id->sym */
obj cx_id_3F; /* id? */
obj cx_idslist_2Dreq_2Dcount; /* idslist-req-count */
support for (set& var) primitive (returns box)
2023-03-12 21:54:44 +01:00
obj cx_idslist_3F; /* idslist? */
runs init code from s.c
2023-03-03 19:18:00 +01:00
obj cx_initialize_2Dmodules; /* initialize-modules */
initial commit
2023-02-28 06:31:08 +01:00
obj cx_install_2Dglobal_2Dlambdas; /* install-global-lambdas */
obj cx_install_2Dtransformer_21; /* install-transformer! */
new integrable model, part II
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? */
initial commit
2023-02-28 06:31:08 +01:00
obj cx_list_2Ddiff; /* list-diff */
letcc/withcc: k is now a procedure, allow bodies
2023-03-11 07:50:00 +01:00
obj cx_list1_2B_3F; /* list1+? */
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
obj cx_list1_3F; /* list1? */
letcc/withcc: k is now a procedure, allow bodies
2023-03-11 07:50:00 +01:00
obj cx_list2_2B_3F; /* list2+? */
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
obj cx_list2_3F; /* list2? */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
obj cx_location_2Dspecial_3F; /* location-special? */
new integrable model, part II
2023-03-19 00:13:38 +01:00
obj cx_lookup_2Dintegrable; /* lookup-integrable */
initial commit
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 */
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
obj cx_normalize_2Darity; /* normalize-arity */
initial commit
2023-02-28 06:31:08 +01:00
obj cx_old_2Dden; /* old-den */
procedure ids store their syms with dens
2023-04-16 00:08:08 +02:00
obj cx_old_2Dsym; /* old-sym */
initial commit
2023-02-28 06:31:08 +01:00
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 */
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
obj cx_process_2Dalias; /* process-alias */
obj cx_process_2Dcommand; /* process-command */
initial commit
2023-02-28 06:31:08 +01:00
obj cx_process_2Ddefine; /* process-define */
obj cx_process_2Dfile; /* process-file */
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
obj cx_process_2Dsyntax; /* process-syntax */
initial commit
2023-02-28 06:31:08 +01:00
obj cx_process_2Dtop_2Dform; /* process-top-form */
obj cx_repl_2Deval; /* repl-eval */
obj cx_repl_2Deval_2Dtop_2Dform; /* repl-eval-top-form */
-l option; minor refactoring
2023-03-26 06:38:50 +02:00
obj cx_repl_2Dfile; /* repl-file */
initial commit
2023-02-28 06:31:08 +01:00
obj cx_repl_2Dfrom_2Dport; /* repl-from-port */
obj cx_repl_2Dread; /* repl-read */
obj cx_run_2Dtests; /* run-tests */
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
obj cx_scan_2Dtop_2Dform; /* scan-top-form */
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
obj cx_service_2Drepl; /* service-repl */
initial commit
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* */
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
obj cx_tcode_2Drepl; /* tcode-repl */
initial commit
2023-02-28 06:31:08 +01:00
obj cx_test1; /* test1 */
obj cx_test2; /* test2 */
obj cx_test3; /* test3 */
obj cx_test4; /* test4 */
obj cx_test5; /* test5 */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
obj cx_top_2Dtransformer_2Denv; /* top-transformer-env */
initial commit
2023-02-28 06:31:08 +01:00
obj cx_transform; /* transform */
obj cx_write_2Dserialized_2Darg; /* write-serialized-arg */
initial support for bytevectors
2023-03-26 19:20:33 +02:00
obj cx_write_2Dserialized_2Dbyte; /* write-serialized-byte */
initial commit
2023-02-28 06:31:08 +01:00
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 */
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
obj cx_x_2Derror; /* x-error */
initial commit
2023-02-28 06:31:08 +01:00
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 */
new integrable model, part II
2023-03-19 00:13:38 +01:00
obj cx_xform_2Dintegrable; /* xform-integrable */
initial commit
2023-02-28 06:31:08 +01:00
obj cx_xform_2Dlabels; /* xform-labels */
obj cx_xform_2Dlambda; /* xform-lambda */
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
obj cx_xform_2Dlambda_2A; /* xform-lambda* */
letcc/withcc support
2023-03-10 23:30:41 +01:00
obj cx_xform_2Dletcc; /* xform-letcc */
initial commit
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! */
support for (set& var) primitive (returns box)
2023-03-12 21:54:44 +01:00
obj cx_xform_2Dset_26; /* xform-set& */
define-record-type, records added
2023-03-29 00:14:45 +02:00
obj cx_xform_2Dsexp_2D_3Edatum; /* xform-sexp->datum */
obj cx_xform_2Dsyntax_2Derror; /* xform-syntax-error */
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
obj cx_xform_2Dsyntax_2Dlambda; /* xform-syntax-lambda */
define-record-type, records added
2023-03-29 00:14:45 +02:00
obj cx_xform_2Dsyntax_2Dlength; /* xform-syntax-length */
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
obj cx_xform_2Dsyntax_2Drules; /* xform-syntax-rules */
letcc/withcc support
2023-03-10 23:30:41 +01:00
obj cx_xform_2Dwithcc; /* xform-withcc */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
static obj cx__231051; /* constant #1051 */
static obj cx__231063; /* constant #1063 */
static obj cx__231135; /* constant #1135 */
static obj cx__231249; /* constant #1249 */
static obj cx__231257; /* constant #1257 */
static obj cx__231283; /* constant #1283 */
static obj cx__231303; /* constant #1303 */
static obj cx__231328; /* constant #1328 */
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
static obj cx__231785; /* constant #1785 */
static obj cx__231819; /* constant #1819 */
static obj cx__231854; /* constant #1854 */
static obj cx__231950; /* constant #1950 */
static obj cx__231971; /* constant #1971 */
static obj cx__232315; /* constant #2315 */
static obj cx__232622; /* constant #2622 */
static obj cx__232787; /* constant #2787 */
static obj cx__232925; /* constant #2925 */
static obj cx__232930; /* constant #2930 */
static obj cx__232934; /* constant #2934 */
static obj cx__232958; /* constant #2958 */
static obj cx__232959; /* constant #2959 */
static obj cx__232968; /* constant #2968 */
static obj cx__232969; /* constant #2969 */
static obj cx__232980; /* constant #2980 */
static obj cx__233003; /* constant #3003 */
static obj cx__233064; /* constant #3064 */
static obj cx__233068; /* constant #3068 */
static obj cx__233189; /* constant #3189 */
static obj cx__233225; /* constant #3225 */
static obj cx__233233; /* constant #3233 */
static obj cx__233234; /* constant #3234 */
static obj cx__233235; /* constant #3235 */
static obj cx__233236; /* constant #3236 */
static obj cx__233237; /* constant #3237 */
static obj cx__233260; /* constant #3260 */
static obj cx__233264; /* constant #3264 */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
static obj cx__23334; /* constant #334 */
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
static obj cx__233534; /* constant #3534 */
static obj cx__233736; /* constant #3736 */
static obj cx__234138; /* constant #4138 */
static obj cx__234268; /* constant #4268 */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
static obj cx__23428; /* constant #428 */
static obj cx__23441; /* constant #441 */
static obj cx__23450; /* constant #450 */
static obj cx__23460; /* constant #460 */
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
static obj cx__234678; /* constant #4678 */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
static obj cx__23470; /* constant #470 */
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
static obj cx__234702; /* constant #4702 */
static obj cx__234703; /* constant #4703 */
static obj cx__234759; /* constant #4759 */
static obj cx__234766; /* constant #4766 */
static obj cx__234773; /* constant #4773 */
static obj cx__234775; /* constant #4775 */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
static obj cx__23483; /* constant #483 */
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
static obj cx__234831; /* constant #4831 */
static obj cx__234863; /* constant #4863 */
static obj cx__234868; /* constant #4868 */
static obj cx__234869; /* constant #4869 */
static obj cx__234882; /* constant #4882 */
env 'peek' and delayed new-id; minor fixes
2024-07-14 16:54:25 +02:00
static obj cx__234888; /* constant #4888 */
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
static obj cx__234903; /* constant #4903 */
static obj cx__234909; /* constant #4909 */
static obj cx__234928; /* constant #4928 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
static obj cx__234931; /* constant #4931 */
static obj cx__234937; /* constant #4937 */
static obj cx__234945; /* constant #4945 */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
static obj cx__23496; /* constant #496 */
static obj cx__23502; /* constant #502 */
procedure ids store their syms with dens
2023-04-16 00:08:08 +02:00
static obj cx__23517; /* constant #517 */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
static obj cx__23535; /* constant #535 */
static obj cx__23545; /* constant #545 */
static obj cx__23566; /* constant #566 */
static obj cx__23826; /* constant #826 */
static obj cx__23869; /* constant #869 */
static obj cx__23871; /* constant #871 */
static obj cx__23910; /* constant #910 */
static obj cx__23926; /* constant #926 */
static obj cx__23969; /* constant #969 */
static obj cx__23976; /* constant #976 */
initial commit
2023-02-28 06:31:08 +01:00
static obj cx__2398; /* constant #98 */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
static obj cx__23989; /* constant #989 */
initial commit
2023-02-28 06:31:08 +01:00
/* 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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj v5381_tmp = (cdr((v1_s)));
obj v5380_tmp = (v2_x);
initial commit
2023-02-28 06:31:08 +01:00
/* tail call */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v2_x = (v5380_tmp);
v1_s = (v5381_tmp);
initial commit
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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj v5374_tmp;
initial commit
2023-02-28 06:31:08 +01:00
{ /* let */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj v5378_tmp;
body transform fix (caused slow let* expansion)
2023-04-04 02:41:15 +02:00
{ /* let */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj v5379_tmp;
initial commit
2023-02-28 06:31:08 +01:00
{ static obj o = 0; static char s[] = { 36, 0 };
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v5379_tmp = (o ? o : (o = mksymbol(internsym(s)))); };
v5378_tmp = obj_from_bool((car((v41_pat))) == (v5379_tmp));
initial commit
2023-02-28 06:31:08 +01:00
}
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v5374_tmp = (bool_from_obj(v5378_tmp) ? ((ispair((cdr((v41_pat))))) ? obj_from_bool(isnull((cdr((cdr((v41_pat))))))) : obj_from_bool(0)) : obj_from_bool(0));
initial commit
2023-02-28 06:31:08 +01:00
}
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
if (bool_from_obj(v5374_tmp)) {
initial commit
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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj v5377_tmp = (cdr((v58_lst)));
initial commit
2023-02-28 06:31:08 +01:00
/* tail call */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v58_lst = (v5377_tmp);
initial commit
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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj v5376_tmp = (cdr((v40_exp)));
obj v5375_tmp = (cdr((v41_pat)));
initial commit
2023-02-28 06:31:08 +01:00
/* tail call */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v41_pat = (v5375_tmp);
v40_exp = (v5376_tmp);
initial commit
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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj v5373_tmp = obj_from_fixnum(+0);
obj v5372_tmp = (v116_l);
initial commit
2023-02-28 06:31:08 +01:00
/* tail call */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v120_l = (v5372_tmp);
v119_n = (v5373_tmp);
initial commit
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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj v5371_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v119_n), (+1)));
obj v5370_tmp = (cdr((v120_l)));
initial commit
2023-02-28 06:31:08 +01:00
/* tail call */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v120_l = (v5370_tmp);
v119_n = (v5371_tmp);
initial commit
2023-02-28 06:31:08 +01:00
goto s_loop;
}
}
}
}
}
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
/* list1? */
new integrable model, part II
2023-03-19 00:13:38 +01:00
static obj cxs_list1_3F(obj v163_x)
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
{
new integrable model, part II
2023-03-19 00:13:38 +01:00
return ((ispair((v163_x))) ? obj_from_bool(isnull((cdr((v163_x))))) : obj_from_bool(0));
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
}
letcc/withcc: k is now a procedure, allow bodies
2023-03-11 07:50:00 +01:00
/* list1+? */
new integrable model, part II
2023-03-19 00:13:38 +01:00
static obj cxs_list1_2B_3F(obj v168_x)
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
{
new integrable model, part II
2023-03-19 00:13:38 +01:00
return ((ispair((v168_x))) ? obj_from_bool(islist((cdr((v168_x))))) : obj_from_bool(0));
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
}
letcc/withcc: k is now a procedure, allow bodies
2023-03-11 07:50:00 +01:00
/* list2? */
new integrable model, part II
2023-03-19 00:13:38 +01:00
static obj cxs_list2_3F(obj v173_x)
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
{
new integrable model, part II
2023-03-19 00:13:38 +01:00
return ((ispair((v173_x))) ? (cxs_list1_3F((cdr((v173_x))))) : obj_from_bool(0));
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
}
letcc/withcc: k is now a procedure, allow bodies
2023-03-11 07:50:00 +01:00
/* list2+? */
new integrable model, part II
2023-03-19 00:13:38 +01:00
static obj cxs_list2_2B_3F(obj v177_x)
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
{
new integrable model, part II
2023-03-19 00:13:38 +01:00
return ((ispair((v177_x))) ? (cxs_list1_2B_3F((cdr((v177_x))))) : obj_from_bool(0));
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
}
initial commit
2023-02-28 06:31:08 +01:00
/* idslist-req-count */
new integrable model, part II
2023-03-19 00:13:38 +01:00
static obj cxs_idslist_2Dreq_2Dcount(obj v237_ilist)
initial commit
2023-02-28 06:31:08 +01:00
{
new integrable model, part II
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));
initial commit
2023-02-28 06:31:08 +01:00
}
/* id? */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
static obj cxs_id_3F(obj v275_x)
initial commit
2023-02-28 06:31:08 +01:00
{
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
return ((issymbol((v275_x))) ? obj_from_bool(issymbol((v275_x))) : obj_from_bool(isprocedure((v275_x))));
initial commit
2023-02-28 06:31:08 +01:00
}
/* gc roots */
static obj *globv[] = {
current ports refactoring -- work in progress
2023-03-31 00:13:07 +02:00
&cx__2Acurrent_2Derror_2A,
&cx__2Acurrent_2Dinput_2A,
&cx__2Acurrent_2Doutput_2A,
dynamic-wind: work in progress
2023-03-30 05:18:39 +02:00
&cx__2Adynamic_2Dstate_2A,
initial commit
2023-02-28 06:31:08 +01:00
&cx__2Aglobals_2A,
&cx__2Ahide_2Drefs_2A,
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
&cx__2Areset_2A,
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
&cx__2Atop_2Dtransformer_2Denv_2A,
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
&cx__2Atransformers_2A,
faster library appends; -v in repl (verbosity)
2023-03-08 19:03:39 +01:00
&cx__2Averbose_2A,
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
&cx_c_2Derror,
values/call-with-values implemented
2023-03-06 21:53:37 +01:00
&cx_callmv_2Dadapter_2Dclosure,
letcc/withcc: k is now a procedure, allow bodies
2023-03-11 07:50:00 +01:00
&cx_continuation_2Dadapter_2Dcode,
initial commit
2023-02-28 06:31:08 +01:00
&cx_decode,
&cx_decode_2Dsexp,
&cx_execute_2Dthunk_2Dclosure,
&cx_gensym,
runs init code from s.c
2023-03-03 19:18:00 +01:00
&cx_initialize_2Dmodules,
initial commit
2023-02-28 06:31:08 +01:00
&cx_install_2Dglobal_2Dlambdas,
new integrable model, part II
2023-03-19 00:13:38 +01:00
&cx_integrable_2Dcode,
&cx_integrable_2Dglobal,
&cx_integrable_2Dtype,
&cx_integrable_3F,
&cx_lookup_2Dintegrable,
initial commit
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,
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
&cx_x_2Derror,
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
&cx__231051,
&cx__231063,
&cx__231135,
&cx__231249,
&cx__231257,
&cx__231283,
&cx__231303,
&cx__231328,
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
&cx__231785,
&cx__231819,
&cx__231854,
&cx__231950,
&cx__231971,
&cx__232315,
&cx__232622,
&cx__232787,
&cx__232925,
&cx__232930,
&cx__232934,
&cx__232958,
&cx__232959,
&cx__232968,
&cx__232969,
&cx__232980,
&cx__233003,
&cx__233064,
&cx__233068,
&cx__233189,
&cx__233225,
&cx__233233,
&cx__233234,
&cx__233235,
&cx__233236,
&cx__233237,
&cx__233260,
&cx__233264,
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
&cx__23334,
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
&cx__233534,
&cx__233736,
&cx__234138,
&cx__234268,
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
&cx__23428,
&cx__23441,
&cx__23450,
&cx__23460,
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
&cx__234678,
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
&cx__23470,
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
&cx__234702,
&cx__234703,
&cx__234759,
&cx__234766,
&cx__234773,
&cx__234775,
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
&cx__23483,
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
&cx__234831,
&cx__234863,
&cx__234868,
&cx__234869,
&cx__234882,
env 'peek' and delayed new-id; minor fixes
2024-07-14 16:54:25 +02:00
&cx__234888,
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
&cx__234903,
&cx__234909,
&cx__234928,
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
&cx__234931,
&cx__234937,
&cx__234945,
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
&cx__23496,
&cx__23502,
procedure ids store their syms with dens
2023-04-16 00:08:08 +02:00
&cx__23517,
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
&cx__23535,
&cx__23545,
&cx__23566,
&cx__23826,
&cx__23869,
&cx__23871,
&cx__23910,
&cx__23926,
&cx__23969,
&cx__23976,
initial commit
2023-02-28 06:31:08 +01:00
&cx__2398,
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
&cx__23989,
initial commit
2023-02-28 06:31:08 +01:00
};
static cxroot_t root = {
sizeof(globv)/sizeof(obj *), globv, NULL
};
/* entry points */
static obj host(obj);
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
static obj cases[588] = {
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
initial switch to libl
2023-04-02 22:16:43 +02:00
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
initial support for bytevectors
2023-03-26 19:20:33 +02:00
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
t.scm/t.c added (partially operational)
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,
initial commit
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,
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
lambda*/case-lambda: initial implementation
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,
letcc/withcc support
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,
support for (set& var) primitive (returns box)
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,
new integrable model, part II
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,
new integrable model, part V (fl+, fl-, 'p','m'))
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,
... fl<? and others; 'c' ig type
2023-03-20 05:23:42 +01:00
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
-l option; minor refactoring
2023-03-26 06:38:50 +02:00
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
cmp instrs re-coded; 't' integrable type
2023-03-28 21:39:00 +02:00
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
define-record-type, records added
2023-03-29 00:14:45 +02:00
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
-b option to support ecraven benchmarks in .sf form
2023-03-29 05:40:41 +02:00
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
initial switch to libl
2023-04-02 22:16:43 +02:00
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
(obj)host, (obj)host, (obj)host,
initial commit
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("#")));
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
cx__23334 = (hpushstr(0, newstring("transformer: ")));
cx__23428 = (hpushstr(0, newstring("improper use of syntax form")));
cx__23441 = (hpushstr(0, newstring("improper use of ...")));
cx__23450 = (hpushstr(0, newstring("improper quote form")));
cx__23460 = (hpushstr(0, newstring("improper set! form")));
cx__23470 = (hpushstr(0, newstring("set! to non-identifier form")));
initial commit
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);
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
cx__23483 = (hendblk(3)); }
cx__23496 = (hpushstr(0, newstring("improper set& form")));
cx__23502 = (hpushstr(0, newstring("set& of a non-variable")));
cx__23517 = (hpushstr(0, newstring("improper if form")));
cx__23535 = (hpushstr(0, newstring("malformed if form")));
initial commit
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);
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
cx__23545 = (hendblk(3)); }
cx__23566 = (hpushstr(0, newstring("improper application")));
cx__23826 = (hpushstr(0, newstring("improper lambda body")));
cx__23869 = (hpushstr(0, newstring("improper lambda* form")));
cx__23871 = (hpushstr(0, newstring("improper lambda* clause")));
cx__23910 = (hpushstr(0, newstring("improper letcc form")));
cx__23926 = (hpushstr(0, newstring("improper withcc form")));
cx__23969 = (hpushstr(0, newstring("improper define-syntax form")));
initial commit
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);
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
cx__23976 = (hendblk(3)); }
cx__23989 = (hpushstr(0, newstring("improper define form")));
cx__231051 = (hpushstr(0, newstring("improper begin form")));
cx__231063 = (hpushstr(0, newstring("improper body form")));
initial commit
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);
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
cx__231135 = (hendblk(3)); }
cx__231249 = (hpushstr(0, newstring("improper syntax-lambda body")));
cx__231257 = (hpushstr(0, newstring("invalif syntax-lambda application")));
cx__231283 = (hpushstr(0, newstring("improper syntax-rules form")));
cx__231303 = (hpushstr(0, newstring("improper syntax-length form")));
cx__231328 = (hpushstr(0, newstring("improper syntax-error form")));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx__231785 = (hpushstr(0, newstring("invalid syntax")));
cx__231819 = (hpushstr(0, newstring("compiler: ")));
cx__231854 = (hpushstr(0, newstring("cannot encode literal")));
cx__231950 = (hpushstr(0, newstring("0123456789")));
cx__231971 = (hpushstr(0, newstring("misplaced define form")));
cx__232315 = (hpushstr(0, newstring("unsupported integrable type")));
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
hreserve(hbsz(3), 0); /* 0 live regs */
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("lambda")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("ref")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("quote")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx__232622 = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 0); /* 0 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("begin")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx__232787 = (hendblk(3)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ static char s[] = { 34, 10, 0 };
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx__232925 = (hpushstr(0, newstring(s))); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ static char s[] = { 32, 32, 34, 0 };
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx__232930 = (hpushstr(0, newstring(s))); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ static char s[] = { 34, 44, 0 };
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx__232934 = (hpushstr(0, newstring(s))); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ static char s[] = { 34, 44, 10, 0 };
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx__232958 = (hpushstr(0, newstring(s))); }
body transform fix (caused slow let* expansion)
2023-04-04 02:41:15 +02:00
{ static char s[] = { 32, 32, 34, 83, 34, 44, 32, 34, 0 };
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx__232959 = (hpushstr(0, newstring(s))); }
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
{ static char s[] = { 32, 34, 0 };
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx__232968 = (hpushstr(0, newstring(s))); }
body transform fix (caused slow let* expansion)
2023-04-04 02:41:15 +02:00
{ static char s[] = { 32, 32, 34, 65, 34, 44, 32, 34, 0 };
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx__232969 = (hpushstr(0, newstring(s))); }
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
{ static char s[] = { 32, 32, 34, 67, 34, 44, 32, 48, 44, 10, 0 };
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx__232980 = (hpushstr(0, newstring(s))); }
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
{ static char s[] = { 32, 32, 34, 80, 34, 44, 32, 34, 0 };
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx__233003 = (hpushstr(0, newstring(s))); }
cx__233064 = (hpushstr(0, newstring("r")));
cx__233068 = (hpushstr(0, newstring("cannot open input file")));
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 0); /* 0 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_char(':');
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_char('/');
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_char(92);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx__233189 = (hendblk(3)); }
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
{ static char s[] = { 10, 32, 32, 48, 44, 32, 48, 44, 32, 48, 10, 125, 59, 10, 0 };
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx__233225 = (hpushstr(0, newstring(s))); }
cx__233233 = (hpushstr(0, newstring("_code[] = {")));
cx__233234 = (hpushstr(0, newstring("char *")));
cx__233235 = (hpushstr(0, newstring(" */")));
cx__233236 = (hpushstr(0, newstring(".c -- generated via skint -c ")));
cx__233237 = (hpushstr(0, newstring("/* ")));
cx__233260 = (hpushstr(0, newstring("K5")));
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 0); /* 0 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("string<?")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
r[1] = (hpushstr(1, newstring("twelve")));
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hpushstr(2, newstring("eleven")));
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hpushstr(2, newstring("ten")));
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hpushstr(2, newstring("nine")));
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hpushstr(2, newstring("eight")));
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hpushstr(2, newstring("seven")));
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hpushstr(2, newstring("six")));
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
r[2] = (hpushstr(2, newstring("five")));
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
r[2] = (hpushstr(2, newstring("four")));
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[2];
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hpushstr(2, newstring("three")));
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
r[2] = (hpushstr(2, newstring("two")));
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
r[2] = (hpushstr(2, newstring("one")));
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("quote")));
initial commit
2023-02-28 06:31:08 +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 */
*--hp = r[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("sort-list")));
initial commit
2023-02-28 06:31:08 +01:00
*--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());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("obj")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("loop")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("two")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("one")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("cdr")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[2];
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
*--hp = (mksymbol(internsym("merge")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("cons")));
initial commit
2023-02-28 06:31:08 +01:00
*--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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("else")));
initial commit
2023-02-28 06:31:08 +01:00
*--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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
*--hp = (mksymbol(internsym("one")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("two")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = (mksymbol(internsym("cdr")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[3];
*--hp = r[4];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("two")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = (mksymbol(internsym("car")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[3];
*--hp = r[4];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("cons")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = (mknull());
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("one")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = (mksymbol(internsym("car")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[4];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("two")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[5] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 6); /* 6 live regs */
*--hp = r[5];
*--hp = (mksymbol(internsym("car")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[5] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 6); /* 6 live regs */
*--hp = r[4];
*--hp = r[5];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
*--hp = (mksymbol(internsym("two")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("cond")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("two")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("one")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("merge")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[2];
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("define")));
initial commit
2023-02-28 06:31:08 +01:00
*--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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
*--hp = (mksymbol(internsym("two")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
*--hp = (mksymbol(internsym("loop")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("one")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("loop")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[2];
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
*--hp = (mksymbol(internsym("merge")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = (mknull());
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("one")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("l")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = (mksymbol(internsym("car")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[3];
*--hp = r[4];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("cons")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("l")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = (mksymbol(internsym("cdr")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[3];
*--hp = r[4];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("split")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[2];
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("l")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("pair?")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[2];
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mksymbol(internsym("if")));
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("two")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("one")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("l")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("split")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[2];
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("define")));
initial commit
2023-02-28 06:31:08 +01:00
*--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());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("l")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("quote")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = (mknull());
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = (mksymbol(internsym("quote")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[3];
*--hp = r[4];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("l")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("split")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("l")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("cdr")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("pair?")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = (mknull());
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("l")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = (mksymbol(internsym("pair?")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[3];
*--hp = r[4];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("and")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[2];
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("define")));
initial commit
2023-02-28 06:31:08 +01:00
*--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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
*--hp = (mksymbol(internsym("pred")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
*--hp = (mksymbol(internsym("obj")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
*--hp = (mksymbol(internsym("sort-list")));
initial commit
2023-02-28 06:31:08 +01:00
*--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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("define")));
initial commit
2023-02-28 06:31:08 +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 */
*--hp = r[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("let")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx__233264 = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 0); /* 0 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_fixnum(+0);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[0];
*--hp = obj_from_fixnum(+10);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("runtak")));
initial commit
2023-02-28 06:31:08 +01:00
*--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());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("v")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("v")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
*--hp = (mksymbol(internsym("r")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
*--hp = (mksymbol(internsym("+")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_fixnum(+1);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("n")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("-")));
initial commit
2023-02-28 06:31:08 +01:00
*--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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("loop")));
initial commit
2023-02-28 06:31:08 +01:00
*--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());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_fixnum(+1);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("s")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("-")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_fixnum(+12);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_fixnum(+18);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
*--hp = (mksymbol(internsym("tak")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = (mknull());
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("let")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("r")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_fixnum(+0);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
*--hp = (mksymbol(internsym("n")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("=")));
initial commit
2023-02-28 06:31:08 +01:00
*--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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("if")));
initial commit
2023-02-28 06:31:08 +01:00
*--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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
*--hp = obj_from_fixnum(+7);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("s")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
*--hp = (mksymbol(internsym("r")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("r")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[2];
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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];
initial commit
2023-02-28 06:31:08 +01:00
*--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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("loop")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("let")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("r")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
*--hp = (mksymbol(internsym("n")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("lambda")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("runtak")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("define")));
initial commit
2023-02-28 06:31:08 +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 */
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("z")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("y")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("x")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("tak")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("x")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("z")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = (mknull());
*--hp = obj_from_fixnum(+1);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = (mksymbol(internsym("y")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = (mksymbol(internsym("-")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[3];
*--hp = r[4];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("tak")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[2];
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("z")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("y")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_fixnum(+1);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = (mksymbol(internsym("x")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = (mksymbol(internsym("-")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[3];
*--hp = r[4];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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("<")));
initial commit
2023-02-28 06:31:08 +01:00
*--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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("if")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("lambda")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("tak")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("define")));
initial commit
2023-02-28 06:31:08 +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 */
*--hp = r[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("let")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx__233534 = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 0); /* 0 live regs */
*--hp = (mknull());
*--hp = obj_from_fixnum(+10);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("run-test")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[0];
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_fixnum(+84);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("v")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("-")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("-")));
initial commit
2023-02-28 06:31:08 +01:00
*--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);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("else")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("v")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
*--hp = (mksymbol(internsym("n")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("zero?")));
initial commit
2023-02-28 06:31:08 +01:00
*--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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("cond")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_fixnum(+92);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
*--hp = (mksymbol(internsym("v")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = (mknull());
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("count")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("n")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[2];
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("loop")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("let")));
initial commit
2023-02-28 06:31:08 +01:00
*--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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
*--hp = (mksymbol(internsym("count")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
*--hp = (mksymbol(internsym("run-test")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("define")));
initial commit
2023-02-28 06:31:08 +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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("quote")));
initial commit
2023-02-28 06:31:08 +01:00
*--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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("quote")));
initial commit
2023-02-28 06:31:08 +01:00
*--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());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("n")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("one-to")));
initial commit
2023-02-28 06:31:08 +01:00
*--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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("try-it")));
initial commit
2023-02-28 06:31:08 +01:00
*--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());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("placed")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("cdr")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("+")));
initial commit
2023-02-28 06:31:08 +01:00
*--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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("row")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("ok?")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = (mknull());
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("dist")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("row")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("-")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("placed")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = (mksymbol(internsym("car")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[3];
*--hp = r[4];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("=")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("not")));
initial commit
2023-02-28 06:31:08 +01:00
*--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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
*--hp = (mksymbol(internsym("dist")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("row")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("+")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("placed")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = (mksymbol(internsym("car")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[3];
*--hp = r[4];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("=")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("and")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
*--hp = obj_from_bool(1);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("placed")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("null?")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
*--hp = (mksymbol(internsym("if")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
*--hp = (mksymbol(internsym("placed")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("dist")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("row")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("ok?")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[2];
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
*--hp = (mksymbol(internsym("define")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("z")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
*--hp = (mksymbol(internsym("x")));
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = (mksymbol(internsym("car")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[3];
*--hp = r[4];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("cons")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--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);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("cdr")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("try-it")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
*--hp = obj_from_fixnum(+0);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("z")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("x")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[5] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 6); /* 6 live regs */
*--hp = r[5];
*--hp = (mksymbol(internsym("car")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[5] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 6); /* 6 live regs */
*--hp = r[4];
*--hp = r[5];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = (mksymbol(internsym("cons")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[4];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[5] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 6); /* 6 live regs */
*--hp = r[5];
*--hp = (mksymbol(internsym("quote")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[5] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 6); /* 6 live regs */
*--hp = r[4];
*--hp = r[5];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("y")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[5] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 6); /* 6 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("x")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[6] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 7); /* 7 live regs */
*--hp = r[6];
*--hp = (mksymbol(internsym("cdr")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[6] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 7); /* 7 live regs */
*--hp = r[5];
*--hp = r[6];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[5] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 6); /* 6 live regs */
*--hp = r[5];
*--hp = (mksymbol(internsym("append")));
*--hp = obj_from_size(PAIR_BTAG);
r[5] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 6); /* 6 live regs */
*--hp = r[4];
*--hp = r[5];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = (mksymbol(internsym("try-it")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[3];
*--hp = r[4];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("z")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = obj_from_fixnum(+1);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("x")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[5] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 6); /* 6 live regs */
*--hp = r[5];
*--hp = (mksymbol(internsym("car")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[5] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 6); /* 6 live regs */
*--hp = r[4];
*--hp = r[5];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = (mksymbol(internsym("ok?")));
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[3];
*--hp = r[4];
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("if")));
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[2];
*--hp = r[3];
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
*--hp = (mksymbol(internsym("+")));
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = (mknull());
*--hp = r[2];
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = (mknull());
*--hp = obj_from_fixnum(+0);
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = obj_from_fixnum(+1);
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("y")));
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = (mksymbol(internsym("null?")));
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[3];
*--hp = r[4];
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("if")));
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[2];
*--hp = r[3];
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("x")));
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
letcc/withcc support
2023-03-10 23:30:41 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("null?")));
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
letcc/withcc support
2023-03-10 23:30:41 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[2];
*--hp = r[3];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
letcc/withcc support
2023-03-10 23:30:41 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
*--hp = (mksymbol(internsym("if")));
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("z")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("y")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("x")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("try-it")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[2];
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
*--hp = (mksymbol(internsym("define")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("l")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
*--hp = (mksymbol(internsym("i")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
runs init code from s.c
2023-03-03 19:18:00 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
*--hp = (mksymbol(internsym("cons")));
runs init code from s.c
2023-03-03 19:18:00 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = (mknull());
*--hp = obj_from_fixnum(+1);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("i")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("-")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[2];
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("loop")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("else")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
*--hp = (mksymbol(internsym("l")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("i")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = (mksymbol(internsym("zero?")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[3];
*--hp = r[4];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("cond")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mksymbol(internsym("quote")));
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("l")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("n")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = (mksymbol(internsym("i")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[4];
initial commit
2023-02-28 06:31:08 +01:00
*--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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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")));
initial commit
2023-02-28 06:31:08 +01:00
*--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());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("n")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("one-to")));
initial commit
2023-02-28 06:31:08 +01:00
*--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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("define")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("n")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("nqueens")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("define")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[0];
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = (mksymbol(internsym("let")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx__233736 = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 0); /* 0 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_fixnum(+10);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = (mksymbol(internsym("fakt")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = (mknull());
*--hp = r[0];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = (mknull());
*--hp = obj_from_fixnum(+1);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("x")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("-")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("self")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("x")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("*")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_fixnum(+1);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
*--hp = obj_from_fixnum(+0);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("x")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
*--hp = (mksymbol(internsym("=")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("if")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("x")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("lambda")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("y")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("fakt")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
*--hp = (mksymbol(internsym("define")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[0];
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("call/cc")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("call/cc")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[3];
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("call/cc")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("x")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("lambda")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("e")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("f")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("lambda")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("call/cc")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("call/cc")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("e")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("lambda")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("y")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("define")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = (mksymbol(internsym("let")));
*--hp = obj_from_size(PAIR_BTAG);
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx__234138 = (hendblk(3)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* cons */
hreserve(hbsz(3), 0); /* 0 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
*--hp = (mknull());
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mksymbol(internsym("quote")));
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = (mknull());
*--hp = r[0];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mksymbol(internsym("l")));
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = (mksymbol(internsym("cons")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[0];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = (mksymbol(internsym("r")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[0];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = (mksymbol(internsym("i")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[0];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[0];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = (mknull());
*--hp = obj_from_fixnum(+10);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("faktl")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("faktr")));
initial commit
2023-02-28 06:31:08 +01:00
*--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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_fixnum(+10);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
*--hp = (mksymbol(internsym("fakti")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("i")));
initial commit
2023-02-28 06:31:08 +01:00
*--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());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_fixnum(+10);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("fakty")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("y")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +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 */
*--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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[0];
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
*--hp = (mksymbol(internsym("x")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_fixnum(+1);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
*--hp = (mksymbol(internsym("x")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("self")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("self")));
initial commit
2023-02-28 06:31:08 +01:00
*--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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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 */
initial commit
2023-02-28 06:31:08 +01:00
*--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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("x")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("=")));
initial commit
2023-02-28 06:31:08 +01:00
*--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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("if")));
initial commit
2023-02-28 06:31:08 +01:00
*--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());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("x")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("self")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("x")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("self")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("self")));
initial commit
2023-02-28 06:31:08 +01:00
*--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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
*--hp = (mksymbol(internsym("self")));
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("lambda")));
initial commit
2023-02-28 06:31:08 +01:00
*--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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("x")));
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("lambda")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("faktl")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("define")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[0];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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("-")));
initial commit
2023-02-28 06:31:08 +01:00
*--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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("x")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("=")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("if")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("x")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("faktr")));
initial commit
2023-02-28 06:31:08 +01:00
*--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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("define")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[0];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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("-")));
initial commit
2023-02-28 06:31:08 +01:00
*--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());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("x")));
initial commit
2023-02-28 06:31:08 +01:00
*--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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
*--hp = (mksymbol(internsym("*")));
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("loop")));
initial commit
2023-02-28 06:31:08 +01:00
*--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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("n")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("if")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("x")));
initial commit
2023-02-28 06:31:08 +01:00
*--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());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = (mknull());
*--hp = obj_from_fixnum(+1);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("n")));
initial commit
2023-02-28 06:31:08 +01:00
*--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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("fakti")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("define")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
*--hp = obj_from_fixnum(+1);
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("x")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mksymbol(internsym("-")));
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("self")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mksymbol(internsym("x")));
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("*")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = obj_from_fixnum(+1);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("x")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("=")));
initial commit
2023-02-28 06:31:08 +01:00
*--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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
*--hp = (mksymbol(internsym("if")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("x")));
initial commit
2023-02-28 06:31:08 +01:00
*--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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("lambda")));
initial commit
2023-02-28 06:31:08 +01:00
*--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());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("self")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("lambda")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("y")));
initial commit
2023-02-28 06:31:08 +01:00
*--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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("fakty")));
initial commit
2023-02-28 06:31:08 +01:00
*--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());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("x")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("f")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("call/cc")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("call/cc")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("call/cc")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("x")));
*--hp = obj_from_size(PAIR_BTAG);
r[2] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("lambda")));
initial commit
2023-02-28 06:31:08 +01:00
*--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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
*--hp = (mksymbol(internsym("e")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("f")));
initial commit
2023-02-28 06:31:08 +01:00
*--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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("lambda")));
initial commit
2023-02-28 06:31:08 +01:00
*--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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--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());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("e")));
initial commit
2023-02-28 06:31:08 +01:00
*--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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("lambda")));
initial commit
2023-02-28 06:31:08 +01:00
*--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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
*--hp = (mksymbol(internsym("y")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("define")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[0];
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (mknull());
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = (mksymbol(internsym("let")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx__234268 = (hendblk(3)); }
cx__234678 = (hpushstr(0, newstring(" ms.")));
cx__234702 = (hpushstr(0, newstring("Elapsed time: ")));
cx__234703 = (hpushstr(0, newstring("Running tests ...")));
cx__234759 = (hpushstr(0, newstring("DECODE+EXECUTE =>")));
cx__234766 = (hpushstr(0, newstring("COMPILE-TO-STRING =>")));
cx__234773 = (hpushstr(0, newstring("unexpected transformed output")));
cx__234775 = (hpushstr(0, newstring("TRANSFORM =>")));
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
{ static char s[] = { 10, 115, 101, 114, 118, 105, 99, 101, 62, 32, 0 };
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx__234831 = (hpushstr(0, newstring(s))); }
-b option to support ecraven benchmarks in .sf form
2023-03-29 05:40:41 +02: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 = r[0];
*--hp = (mksymbol(internsym("main")));
*--hp = obj_from_size(PAIR_BTAG);
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx__234863 = (hendblk(3)); }
cx__234868 = (hpushstr(0, newstring("unexpected benchmark file format")));
-b option to support ecraven benchmarks in .sf form
2023-03-29 05:40:41 +02:00
r[0] = (hpushstr(0, newstring("libl.sf")));
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = (mknull());
*--hp = r[0];
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = (mksymbol(internsym("load")));
*--hp = obj_from_size(PAIR_BTAG);
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx__234869 = (hendblk(3)); }
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
{ static char s[] = { 36, 123, 64, 40, 121, 52, 58, 114, 101, 112, 108, 41, 91, 48, 48, 125, 0 };
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx__234882 = (hpushstr(0, newstring(s))); }
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ static char s[] = { 73, 110, 118, 97, 108, 105, 100, 32, 99, 111, 109, 109, 97, 110, 100, 46, 32, 32, 84, 121, 112, 101, 32, 63, 32, 102, 111, 114, 32, 111, 112, 116, 105, 111, 110, 115, 44, 32, 114, 32, 116, 111, 32, 114, 101, 116, 117, 114, 110, 32, 116, 111, 32, 82, 69, 80, 76, 46, 10, 0 };
env 'peek' and delayed new-id; minor fixes
2024-07-14 16:54:25 +02:00
cx__234888 = (hpushstr(0, newstring(s))); }
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
{ static char s[] = { 10, 84, 121, 112, 101, 32, 114, 32, 116, 111, 32, 103, 101, 116, 32, 98, 97, 99, 107, 32, 116, 111, 32, 114, 101, 112, 108, 10, 32, 32, 32, 32, 32, 97, 32, 116, 111, 32, 97, 98, 111, 114, 116, 32, 115, 99, 104, 101, 109, 101, 10, 32, 32, 32, 32, 32, 115, 32, 116, 111, 32, 114, 117, 110, 32, 115, 101, 114, 118, 105, 99, 101, 32, 114, 101, 112, 108, 10, 0 };
cx__234903 = (hpushstr(0, newstring(s))); }
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
{ static char s[] = { 10, 100, 101, 98, 117, 103, 62, 32, 0 };
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx__234909 = (hpushstr(0, newstring(s))); }
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
r[0] = (hpushstr(0, newstring("-i")));
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = (mknull());
*--hp = r[0];
*--hp = obj_from_size(PAIR_BTAG);
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx__234928 = (hendblk(3)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hpushstr(0, newstring("-t")));
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = (mknull());
*--hp = r[0];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
cx__234931 = (hendblk(3)); }
-b option to support ecraven benchmarks in .sf form
2023-03-29 05:40:41 +02: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("-b")));
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
cx__234937 = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 0); /* 0 live regs */
*--hp = (mknull());
*--hp = (mksymbol(internsym("*")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
r[1] = (hpushstr(1, newstring("-c")));
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[0];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
cx__234945 = (hendblk(3)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
initial commit
2023-02-28 06:31:08 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_fixnum(+0);
*--hp = obj_from_objptr(appcases+1);
cx_gensym = (hendblk(3)); }
{ static obj c[] = { obj_from_case(13) }; cx_posq = (obj)c; }
{ static obj c[] = { obj_from_case(14) }; cx_list_2Ddiff = (obj)c; }
hreserve(hbsz(0+1), 0); /* 0 live regs */
*--hp = obj_from_case(16);
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+1);
*--hp = obj_from_objptr(appcases+1);
cx_pair_2A = (hendblk(3)); }
{ static obj c[] = { obj_from_case(18) }; cx_andmap = (obj)c; }
{ static obj c[] = { obj_from_case(20) }; cx_list1_3F = (obj)c; }
{ static obj c[] = { obj_from_case(21) }; cx_list1_2B_3F = (obj)c; }
{ static obj c[] = { obj_from_case(22) }; cx_list2_3F = (obj)c; }
{ static obj c[] = { obj_from_case(23) }; cx_list2_2B_3F = (obj)c; }
{ /* define integrable? */
static obj c[] = { obj_from_objptr(vmcases+8) };
cx_integrable_3F = obj_from_objptr(c); }
{ /* define lookup-integrable */
static obj c[] = { obj_from_objptr(vmcases+9) };
cx_lookup_2Dintegrable = obj_from_objptr(c); }
{ /* define integrable-type */
static obj c[] = { obj_from_objptr(vmcases+10) };
cx_integrable_2Dtype = obj_from_objptr(c); }
{ /* define integrable-global */
static obj c[] = { obj_from_objptr(vmcases+11) };
cx_integrable_2Dglobal = obj_from_objptr(c); }
{ /* define integrable-code */
static obj c[] = { obj_from_objptr(vmcases+12) };
cx_integrable_2Dcode = obj_from_objptr(c); }
{ static obj c[] = { obj_from_case(24) }; cx_idslist_3F = (obj)c; }
{ static obj c[] = { obj_from_case(25) }; cx_normalize_2Darity = (obj)c; }
{ static obj c[] = { obj_from_case(26) }; cx_flatten_2Didslist = (obj)c; }
{ static obj c[] = { obj_from_case(27) }; cx_idslist_2Dreq_2Dcount = (obj)c; }
{ static obj c[] = { obj_from_case(28) }; cx__25residual_2Dval_2Dcore_3F = (obj)c; }
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
{ static obj c[] = { obj_from_case(29) }; cx__25residual_2Dmake_2Dlocation = (obj)c; }
{ static obj c[] = { obj_from_case(30) }; cx__25residual_2Dlocation_2Dval = (obj)c; }
{ static obj c[] = { obj_from_case(31) }; cx__25residual_2Dlocation_2Dset_2Dval_21 = (obj)c; }
{ static obj c[] = { obj_from_case(32) }; cx_location_2Dspecial_3F = (obj)c; }
{ static obj c[] = { obj_from_case(33) }; cx_new_2Did = (obj)c; }
{ static obj c[] = { obj_from_case(35) }; cx_old_2Dsym = (obj)c; }
{ static obj c[] = { obj_from_case(37) }; cx_old_2Dden = (obj)c; }
{ static obj c[] = { obj_from_case(39) }; cx_id_3F = (obj)c; }
{ static obj c[] = { obj_from_case(40) }; cx_id_2D_3Esym = (obj)c; }
{ static obj c[] = { obj_from_case(42) }; cx_extend_2Dxenv = (obj)c; }
{ static obj c[] = { obj_from_case(44) }; cx_add_2Dlocation = (obj)c; }
{ static obj c[] = { obj_from_case(45) }; cx_add_2Dvar = (obj)c; }
{ static obj c[] = { obj_from_case(46) }; cx_xform_2Dsexp_2D_3Edatum = (obj)c; }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(0+1), 0); /* 0 live regs */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(54);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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_x_2Derror = (hendblk(3)); }
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
{ static obj c[] = { obj_from_case(55) }; cx_xform = (obj)c; }
{ static obj c[] = { obj_from_case(63) }; cx_xform_2Dref = (obj)c; }
{ static obj c[] = { obj_from_case(65) }; cx_xform_2Dquote = (obj)c; }
{ static obj c[] = { obj_from_case(67) }; cx_xform_2Dset_21 = (obj)c; }
{ static obj c[] = { obj_from_case(70) }; cx_xform_2Dset_26 = (obj)c; }
{ static obj c[] = { obj_from_case(72) }; cx_xform_2Dif = (obj)c; }
{ static obj c[] = { obj_from_case(77) }; cx_xform_2Dcall = (obj)c; }
{ static obj c[] = { obj_from_case(81) }; cx_integrable_2Dargc_2Dmatch_3F = (obj)c; }
{ static obj c[] = { obj_from_case(82) }; cx_xform_2Dintegrable = (obj)c; }
{ static obj c[] = { obj_from_case(89) }; cx_xform_2Dlambda = (obj)c; }
{ static obj c[] = { obj_from_case(101) }; cx_xform_2Dlambda_2A = (obj)c; }
{ static obj c[] = { obj_from_case(108) }; cx_xform_2Dletcc = (obj)c; }
{ static obj c[] = { obj_from_case(113) }; cx_xform_2Dwithcc = (obj)c; }
{ static obj c[] = { obj_from_case(116) }; cx_xform_2Dbody = (obj)c; }
{ static obj c[] = { obj_from_case(130) }; cx_xform_2Dlabels = (obj)c; }
{ static obj c[] = { obj_from_case(142) }; cx_xform_2Dbegin = (obj)c; }
{ static obj c[] = { obj_from_case(146) }; cx_xform_2Ddefine = (obj)c; }
{ static obj c[] = { obj_from_case(152) }; cx_xform_2Ddefine_2Dsyntax = (obj)c; }
{ static obj c[] = { obj_from_case(155) }; cx_xform_2Dsyntax_2Dlambda = (obj)c; }
{ static obj c[] = { obj_from_case(163) }; cx_xform_2Dsyntax_2Drules = (obj)c; }
{ static obj c[] = { obj_from_case(168) }; cx_xform_2Dsyntax_2Dlength = (obj)c; }
{ static obj c[] = { obj_from_case(169) }; cx_xform_2Dsyntax_2Derror = (obj)c; }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
... form built-in
2023-04-14 17:34:47 +02:00
hreserve(hbsz(3), 0); /* 0 live regs */
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
*--hp = (mksymbol(internsym("_")));
*--hp = (mksymbol(internsym("_")));
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = (mknull());
*--hp = r[0];
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
... form built-in
2023-04-14 17:34:47 +02:00
*--hp = (mksymbol(internsym("...")));
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("...")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
... form built-in
2023-04-14 17:34:47 +02:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
... form built-in
2023-04-14 17:34:47 +02:00
hreserve(hbsz(3), 1); /* 1 live regs */
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
*--hp = (mksymbol(internsym("export")));
*--hp = (mksymbol(internsym("export")));
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
... form built-in
2023-04-14 17:34:47 +02:00
*--hp = r[0];
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
define-library and import added to *transformers*
2024-07-05 19:09:50 +02:00
*--hp = (mksymbol(internsym("import")));
*--hp = (mksymbol(internsym("import")));
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
*--hp = (mksymbol(internsym("program")));
*--hp = (mksymbol(internsym("program")));
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
define-library and import added to *transformers*
2024-07-05 19:09:50 +02:00
*--hp = (mksymbol(internsym("define-library")));
*--hp = (mksymbol(internsym("define-library")));
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
*--hp = (mksymbol(internsym("syntax-error")));
*--hp = (mksymbol(internsym("syntax-error")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[0];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
*--hp = (mksymbol(internsym("syntax-length")));
*--hp = (mksymbol(internsym("syntax-length")));
initial commit
2023-02-28 06:31:08 +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 */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
*--hp = (mksymbol(internsym("syntax-rules")));
*--hp = (mksymbol(internsym("syntax-rules")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[0];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
*--hp = (mksymbol(internsym("syntax-lambda")));
*--hp = (mksymbol(internsym("syntax-lambda")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[0];
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
*--hp = (mksymbol(internsym("define-syntax")));
*--hp = (mksymbol(internsym("define-syntax")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[0];
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
*--hp = (mksymbol(internsym("define")));
*--hp = (mksymbol(internsym("define")));
define-record-type, records added
2023-03-29 00:14:45 +02: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 */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
*--hp = (mksymbol(internsym("begin")));
*--hp = (mksymbol(internsym("begin")));
define-record-type, records added
2023-03-29 00:14:45 +02: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 */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
*--hp = (mksymbol(internsym("body")));
*--hp = (mksymbol(internsym("body")));
syntax-rules form built-in
2023-04-14 00:31:20 +02: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 */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
*--hp = (mksymbol(internsym("withcc")));
*--hp = (mksymbol(internsym("withcc")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[0];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
*--hp = (mksymbol(internsym("letcc")));
*--hp = (mksymbol(internsym("letcc")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[0];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 1); /* 1 live regs */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
*--hp = (mksymbol(internsym("lambda*")));
*--hp = (mksymbol(internsym("lambda*")));
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_size(PAIR_BTAG);
initial commit
2023-02-28 06:31:08 +01:00
r[1] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 2); /* 2 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[0];
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
*--hp = (mksymbol(internsym("lambda")));
*--hp = (mksymbol(internsym("lambda")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[0];
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
*--hp = (mksymbol(internsym("if")));
*--hp = (mksymbol(internsym("if")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[0];
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
*--hp = (mksymbol(internsym("set&")));
*--hp = (mksymbol(internsym("set&")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[0];
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
*--hp = (mksymbol(internsym("set!")));
*--hp = (mksymbol(internsym("set!")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[0];
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
*--hp = (mksymbol(internsym("quote")));
*--hp = (mksymbol(internsym("quote")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[0];
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 1); /* 1 live regs */
*root-name-registry* introduced
2024-07-07 03:03:12 +02:00
*--hp = (mksymbol(internsym("syntax-quote")));
*--hp = (mksymbol(internsym("syntax-quote")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (hendblk(3)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 2); /* 2 live regs */
*--hp = r[0];
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
cx__2Atransformers_2A = (hendblk(3)); }
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
cx__2Atop_2Dtransformer_2Denv_2A = obj_from_bool(0);
{ static obj c[] = { obj_from_case(173) }; cx_top_2Dtransformer_2Denv = (obj)c; }
{ static obj c[] = { obj_from_case(181) }; cx_install_2Dtransformer_21 = (obj)c; }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(0+1), 0); /* 0 live regs */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(183);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(0+1));
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+2);
*--hp = obj_from_objptr(appcases+1);
cx_transform = (hendblk(3)); }
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
{ static obj c[] = { obj_from_case(184) }; cx_syntax_2Drules_2A = (obj)c; }
globals kept in a hash table, (global-store)
2024-07-11 01:28:27 +02:00
{ /* make-vector */
obj o; int i = 0, c = (+991);
hreserve(hbsz(c+1), 0); /* 0 live regs */
o = (mknull()); /* gc-safe */
while (i++ < c) *--hp = o;
*--hp = obj_from_size(VECTOR_BTAG);
cx__2Aglobals_2A = (hendblk(c+1)); }
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
{ /* cons */
hreserve(hbsz(3), 0); /* 0 live regs */
*--hp = (mknull());
*--hp = obj_from_bool(0);
*--hp = obj_from_size(PAIR_BTAG);
cx__2Adynamic_2Dstate_2A = (hendblk(3)); }
cx__2Acurrent_2Dinput_2A = obj_from_bool(0);
cx__2Acurrent_2Doutput_2A = obj_from_bool(0);
cx__2Acurrent_2Derror_2A = obj_from_bool(0);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(0+1), 0); /* 0 live regs */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(245);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = (hendblk(0+1));
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
{ /* make-improper-lambda */
hreserve(hbsz(3), 1); /* 1 live regs */
*--hp = r[0];
*--hp = obj_from_fixnum(+1);
*--hp = obj_from_objptr(appcases+1);
cx_c_2Derror = (hendblk(3)); }
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
{ static obj c[] = { obj_from_case(246) }; cx_write_2Dserialized_2Dchar = (obj)c; }
{ static obj c[] = { obj_from_case(248) }; cx_write_2Dserialized_2Dbyte = (obj)c; }
{ static obj c[] = { obj_from_case(250) }; cx_write_2Dserialized_2Dsize = (obj)c; }
{ static obj c[] = { obj_from_case(252) }; cx_write_2Dserialized_2Delement = (obj)c; }
{ static obj c[] = { obj_from_case(254) }; cx_write_2Dserialized_2Dsexp = (obj)c; }
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
{ static obj c[] = { obj_from_case(274) }; cx_write_2Dserialized_2Darg = (obj)c; }
{ static obj c[] = { obj_from_case(276) }; cx_find_2Dfree_2A = (obj)c; }
{ static obj c[] = { obj_from_case(279) }; cx_find_2Dfree = (obj)c; }
{ static obj c[] = { obj_from_case(308) }; cx_find_2Dsets_2A = (obj)c; }
{ static obj c[] = { obj_from_case(311) }; cx_find_2Dsets = (obj)c; }
{ static obj c[] = { obj_from_case(340) }; cx_codegen = (obj)c; }
{ static obj c[] = { obj_from_case(454) }; cx_compile_2Dto_2Dstring = (obj)c; }
syntax-rules form built-in
2023-04-14 00:31:20 +02: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); }
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
{ static obj c[] = { obj_from_case(457) }; cx_execute = (obj)c; }
syntax-rules form built-in
2023-04-14 00:31:20 +02: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); }
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
{ static obj c[] = { obj_from_case(459) }; cx_evaluate = (obj)c; }
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
cx__2Ahide_2Drefs_2A = (mknull());
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
{ static obj c[] = { obj_from_case(464) }; cx_display_2Dcode = (obj)c; }
{ static obj c[] = { obj_from_case(465) }; cx_process_2Dsyntax = (obj)c; }
{ static obj c[] = { obj_from_case(468) }; cx_process_2Dalias = (obj)c; }
{ static obj c[] = { obj_from_case(469) }; cx_process_2Dcommand = (obj)c; }
{ static obj c[] = { obj_from_case(473) }; cx_process_2Ddefine = (obj)c; }
{ static obj c[] = { obj_from_case(480) }; cx_scan_2Dtop_2Dform = (obj)c; }
{ static obj c[] = { obj_from_case(493) }; cx_process_2Dtop_2Dform = (obj)c; }
{ static obj c[] = { obj_from_case(517) }; cx_path_2Dstrip_2Ddirectory = (obj)c; }
{ static obj c[] = { obj_from_case(519) }; cx_path_2Dstrip_2Dextension = (obj)c; }
{ static obj c[] = { obj_from_case(521) }; cx_module_2Dname = (obj)c; }
{ static obj c[] = { obj_from_case(523) }; cx_process_2Dfile = (obj)c; }
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
cx_continuation_2Dadapter_2Dcode = obj_from_bool(0);
{ /* define decode */
static obj c[] = { obj_from_objptr(vmcases+3) };
r[0] = obj_from_objptr(c); }
hreserve(hbsz(0+1), 1); /* 1 live regs */
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(532);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[1] = (hendblk(0+1));
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = r[1];
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[2+2] = (cx__233260);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r += 2; /* shift reg wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rreserve(MAX_HOSTREGS);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
rc = 3;
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 {
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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;
case 3: /* set-union k s1 s2 */
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_set_2Dunion: /* k s1 s2 */
if ((isnull((r[1])))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
/* r[2] */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = obj_from_case(4);
r[3] = (hendblk(2+1));
r[0] = r[3];
r[1] = (car((r[1])));
/* r[2] */
goto gs_set_2Dcons;
}
case 4: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r s1 k */
r[4+0] = r[3];
r[4+1] = (cdr((r[2])));
r[4+2] = r[1];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_set_2Dunion;
case 5: /* set-minus k s1 s2 */
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_set_2Dminus: /* k s1 s2 */
if ((isnull((r[1])))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (mknull());
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[3] = (car((r[1])));
r[3] = (cxs_set_2Dmember_3F((r[3]), (r[2])));
if (bool_from_obj(r[3])) {
/* r[0] */
r[1] = (cdr((r[1])));
/* r[2] */
goto gs_set_2Dminus;
} else {
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[0];
*--hp = obj_from_case(6);
r[3] = (hendblk(2+1));
r[0] = r[3];
r[1] = (cdr((r[1])));
/* r[2] */
goto gs_set_2Dminus;
}
}
case 6: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r k s1 */
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
*--hp = (car((r[3])));
initial commit
2023-02-28 06:31:08 +01:00
*--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;
values/call-with-values implemented
2023-03-06 21:53:37 +01:00
case 7: /* set-intersect k s1 s2 */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 4);
r += 1; /* shift reg. wnd */
values/call-with-values implemented
2023-03-06 21:53:37 +01:00
gs_set_2Dintersect: /* k s1 s2 */
initial commit
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 */
values/call-with-values implemented
2023-03-06 21:53:37 +01:00
/* ek r k s1 */
initial commit
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;
new integrable model, part II
2023-03-19 00:13:38 +01:00
case 16: /* clo k x more */
initial commit
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];
new integrable model, part II
2023-03-19 00:13:38 +01:00
*--hp = obj_from_case(17);
initial commit
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;
}
new integrable model, part II
2023-03-19 00:13:38 +01:00
case 17: /* clo ek r */
initial commit
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;
new integrable model, part II
2023-03-19 00:13:38 +01:00
case 18: /* andmap k p l */
support for (set& var) primitive (returns box)
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];
new integrable model, part II
2023-03-19 00:13:38 +01:00
*--hp = obj_from_case(19);
support for (set& var) primitive (returns box)
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;
}
new integrable model, part II
2023-03-19 00:13:38 +01:00
case 19: /* clo ek r */
support for (set& var) primitive (returns box)
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;
}
new integrable model, part II
2023-03-19 00:13:38 +01:00
case 20: /* list1? k x */
t.scm/t.c added (partially operational)
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;
new integrable model, part II
2023-03-19 00:13:38 +01:00
case 21: /* list1+? k x */
t.scm/t.c added (partially operational)
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();
letcc/withcc: k is now a procedure, allow bodies
2023-03-11 07:50:00 +01:00
r[2+2] = (cxs_list1_2B_3F((r[1])));
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
new integrable model, part II
2023-03-19 00:13:38 +01:00
case 22: /* list2? k x */
t.scm/t.c added (partially operational)
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();
letcc/withcc: k is now a procedure, allow bodies
2023-03-11 07:50:00 +01:00
r[2+2] = (cxs_list2_3F((r[1])));
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
new integrable model, part II
2023-03-19 00:13:38 +01:00
case 23: /* list2+? k x */
t.scm/t.c added (partially operational)
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();
letcc/withcc: k is now a procedure, allow bodies
2023-03-11 07:50:00 +01:00
r[2+2] = (cxs_list2_2B_3F((r[1])));
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
new integrable model, part II
2023-03-19 00:13:38 +01:00
case 24: /* idslist? k x */
support for (set& var) primitive (returns box)
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;
}
}
new integrable model, part II
2023-03-19 00:13:38 +01:00
case 25: /* normalize-arity k arity */
lambda*/case-lambda: initial implementation
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);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v14069;
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
}
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v14069: /* k cnt l */
lambda*/case-lambda: initial implementation
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];
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v14069;
lambda*/case-lambda: initial implementation
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;
}
new integrable model, part II
2023-03-19 00:13:38 +01:00
case 26: /* flatten-idslist k ilist */
initial commit
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);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v14056;
initial commit
2023-02-28 06:31:08 +01:00
}
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v14056: /* k l r */
initial commit
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];
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v14056;
initial commit
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;
}
new integrable model, part II
2023-03-19 00:13:38 +01:00
case 27: /* idslist-req-count k ilist */
initial commit
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;
new integrable model, part II
2023-03-19 00:13:38 +01:00
case 28: /* %residual-val-core? k val */
initial commit
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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 29: /* %residual-make-location k v */
light refactoring of the expander
2023-03-01 23:36:24 +01:00
assert(rc == 3);
r += 1; /* shift reg. wnd */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
/* k v */
{ /* box */
hreserve(hbsz(2), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_size(BOX_BTAG);
r[2] = (hendblk(2)); }
initial commit
2023-02-28 06:31:08 +01:00
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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 30: /* %residual-location-val k l */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
r += 1; /* shift reg. wnd */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
/* k l */
initial commit
2023-02-28 06:31:08 +01:00
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[2+2] = (boxref((r[1])));
initial commit
2023-02-28 06:31:08 +01:00
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 31: /* %residual-location-set-val! k l v */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 4);
r += 1; /* shift reg. wnd */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
/* k l v */
initial commit
2023-02-28 06:31:08 +01:00
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[3+2] = obj_from_void(boxref((r[1])) = (r[2]));
initial commit
2023-02-28 06:31:08 +01:00
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 32: /* location-special? k l */
assert(rc == 3);
light refactoring of the expander
2023-03-01 23:36:24 +01:00
r += 1; /* shift reg. wnd */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
/* k l */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ bool_t v14330_tmp;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[2] = (boxref((r[1])));
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14330_tmp = (ispair((r[2])));
r[2] = obj_from_bool(!(v14330_tmp)); }
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
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 */
light refactoring of the expander
2023-03-01 23:36:24 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 33: /* new-id k sym den */
procedure ids store their syms with dens
2023-04-16 00:08:08 +02:00
assert(rc == 4);
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
procedure ids store their syms with dens
2023-04-16 00:08:08 +02:00
gs_new_2Did: /* k sym den */
hreserve(hbsz(1), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_void(0);
procedure ids store their syms with dens
2023-04-16 00:08:08 +02:00
r[3] = (hendblk(1));
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
procedure ids store their syms with dens
2023-04-16 00:08:08 +02:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
procedure ids store their syms with dens
2023-04-16 00:08:08 +02:00
r[4] = (hendblk(3)); }
(void)(objptr_from_obj(r[3])[0] = (r[4]));
hreserve(hbsz(1+1), 4); /* 4 live regs */
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(34);
procedure ids store their syms with dens
2023-04-16 00:08:08 +02:00
r[3] = (hendblk(1+1));
r[4+0] = r[0];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = obj_from_ktrap();
r[4+2] = r[3];
r += 4; /* shift reg wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 34: /* clo k */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 2);
initial commit
2023-02-28 06:31:08 +01:00
{ obj* p = objptr_from_obj(r[0]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+1] = p[1]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* 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;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 35: /* old-sym k id */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 3);
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* k id */
hreserve(hbsz(1+1), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(36);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 36: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+2] = p[1]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 37: /* old-den k id */
procedure ids store their syms with dens
2023-04-16 00:08:08 +02:00
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k id */
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(38);
procedure ids store their syms with dens
2023-04-16 00:08:08 +02: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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 38: /* clo ek r */
procedure ids store their syms with dens
2023-04-16 00:08:08 +02: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] = (cdr((r[1])));
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 39: /* id? k x */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 3);
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* 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;
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 40: /* id->sym k id */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 3);
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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;
initial commit
2023-02-28 06:31:08 +01:00
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(1+1), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(41);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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;
initial commit
2023-02-28 06:31:08 +01:00
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 41: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+2] = p[1]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r k */
procedure ids store their syms with dens
2023-04-16 00:08:08 +02:00
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 */
new integrable model, part II
2023-03-19 00:13:38 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 42: /* extend-xenv k env id bnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 5);
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
gs_extend_2Dxenv: /* k env id bnd */
hreserve(hbsz(3+1), 4); /* 4 live regs */
*--hp = r[2];
*--hp = r[3];
*--hp = r[1];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(43);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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];
initial commit
2023-02-28 06:31:08 +01:00
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 3;
goto jump;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 43: /* clo k i */
initial commit
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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+4] = p[3]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* k i env bnd id */
if (((r[4]) == (r[1]))) {
/* r[0] */
initial commit
2023-02-28 06:31:08 +01:00
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = r[3];
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
new integrable model, part II
2023-03-19 00:13:38 +01:00
rc = 3;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
}
new integrable model, part II
2023-03-19 00:13:38 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 44: /* add-location k key val env */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 5);
new integrable model, part II
2023-03-19 00:13:38 +01:00
r += 1; /* shift reg. wnd */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
gs_add_2Dlocation: /* k key val env */
{ /* box */
hreserve(hbsz(2), 4); /* 4 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_size(BOX_BTAG);
r[4] = (hendblk(2)); }
r[5+0] = r[0];
r[5+1] = r[3];
r[5+2] = r[1];
r[5+3] = r[4];
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
goto gs_extend_2Dxenv;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 45: /* add-var k var val env */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 5);
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
gs_add_2Dvar: /* k var val env */
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
{ /* cons */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
hreserve(hbsz(3), 4); /* 4 live regs */
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
*--hp = (mknull());
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = r[2];
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
*--hp = obj_from_size(PAIR_BTAG);
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[4] = (hendblk(3)); }
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
{ /* cons */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
*--hp = (mksymbol(internsym("ref")));
*--hp = obj_from_size(PAIR_BTAG);
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[4] = (hendblk(3)); }
{ /* box */
hreserve(hbsz(2), 5); /* 5 live regs */
*--hp = r[4];
*--hp = obj_from_size(BOX_BTAG);
r[4] = (hendblk(2)); }
r[5+0] = r[0];
r[5+1] = r[3];
r[5+2] = r[1];
r[5+3] = r[4];
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
goto gs_extend_2Dxenv;
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 46: /* xform-sexp->datum k sexp */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
assert(rc == 3);
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
r += 1; /* shift reg. wnd */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
gs_xform_2Dsexp_2D_3Edatum: /* k sexp */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* r[0] */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
/* r[1] */
goto s_conv;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 47: /* clo k sexp */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
assert(rc == 3);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r += 1; /* shift reg. wnd */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
s_conv: /* k sexp */
hreserve(hbsz(0+1), 2); /* 2 live regs */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(47);
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02: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 */
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
*--hp = r[0];
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(48);
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
r[4] = (hendblk(3+1));
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
r[0] = r[4];
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
r[1] = r[3];
goto s_conv;
initial commit
2023-02-28 06:31:08 +01:00
} else {
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
if ((isvector((r[1])))) {
hreserve(hbsz(2+1), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[0];
*--hp = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(50);
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
r[3] = (hendblk(2+1));
r[4+0] = (cx_vector_2D_3Elist);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[3];
r[4+2] = r[1];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[1];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
initial commit
2023-02-28 06:31:08 +01:00
}
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 48: /* clo ek r */
initial commit
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];
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
r[1+4] = p[3]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
/* ek r conv sexp k */
hreserve(hbsz(2+1), 5); /* 5 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(49);
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02: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])));
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 49: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
r[1+3] = p[2]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
/* 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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 50: /* clo ek r */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02: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 conv k */
hreserve(hbsz(1+1), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(53);
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
r[4] = (hendblk(1+1));
r[0] = r[4];
/* r[1] */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* r[2] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v13885;
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v13885: /* k l conv */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02: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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(51);
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
r[4] = (hendblk(3+1));
r[0] = r[4];
r[1] = r[3];
/* r[2] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v13885;
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02: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;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 51: /* clo ek r */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02: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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(52);
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02: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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 52: /* clo ek r */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02: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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 53: /* clo ek r */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02: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] = (cx_list_2D_3Evector);
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[2];
r[3+2] = r[1];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 54: /* clo k msg args */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k msg args */
{ /* string-append */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
int *d = stringcat(stringdata((cx__23334)), stringdata((r[1])));
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
r[3] = (hpushstr(3, d)); }
/* r[0] */
r[1] = r[3];
/* r[2] */
goto gs_error_2A;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 55: /* xform k appos? sexp env */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02: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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(56);
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02: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]))))) {
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = (mknull());
*--hp = r[2];
*--hp = obj_from_size(PAIR_BTAG);
r[4] = (hendblk(3)); }
/* r[0] */
r[1] = r[4];
r[2] = r[3];
goto gs_xform_2Dquote;
} else {
r[4] = (car((r[2])));
r[5] = (cdr((r[2])));
hreserve(hbsz(5+1), 6); /* 6 live regs */
*--hp = r[5];
*--hp = r[0];
*--hp = r[3];
*--hp = r[1];
*--hp = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(60);
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02: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;
}
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 56: /* clo ek r */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02: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? */
if (bool_from_obj(r[5])) {
r[6+0] = r[4];
pc = objptr_from_obj(r[6+0])[0];
r[6+1] = obj_from_ktrap();
r[6+2] = r[1];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
{ /* define integrable? */
static obj c[] = { obj_from_objptr(vmcases+8) };
r[6] = obj_from_objptr(c); }
hreserve(hbsz(5+1), 7); /* 7 live regs */
*--hp = r[4];
*--hp = r[1];
*--hp = r[5];
*--hp = r[3];
*--hp = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(57);
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
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;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 57: /* clo ek r */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02: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 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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(58);
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
r[8] = (hendblk(1+1));
r[0] = r[7];
pc = objptr_from_obj(r[0])[0];
r[1] = r[8];
r[2] = r[5];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((isprocedure((r[5])))) {
hreserve(hbsz(3+1), 7); /* 7 live regs */
*--hp = r[6];
*--hp = r[4];
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(59);
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
r[7] = (hendblk(3+1));
r[0] = r[5];
pc = objptr_from_obj(r[0])[0];
r[1] = r[7];
/* r[2] */
/* r[3] */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
if ((!(ispair((r[5]))))) {
r[0] = (cx_x_2Derror);
pc = objptr_from_obj(r[0])[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = r[6];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[2] = (cx__23428);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = r[5];
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
r[0] = r[6];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[5];
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
}
}
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 58: /* clo ek r */
initial commit
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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("ref")));
initial commit
2023-02-28 06:31:08 +01:00
*--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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 59: /* clo ek r */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r env appos? k */
r[5+0] = r[4];
r[5+1] = r[3];
r[5+2] = r[1];
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
r[5+3] = r[2];
r += 5; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
goto gs_xform;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 60: /* clo ek r */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
*root-name-registry* introduced
2024-07-07 03:03:12 +02:00
if ((((r[1]) == (mksymbol(internsym("syntax-quote")))) && (1))) {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = r[5];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (car((r[6])));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((((r[1]) == (mksymbol(internsym("quote")))) && (1))) {
r[0] = r[5];
r[1] = r[6];
r[2] = r[4];
goto gs_xform_2Dquote;
} else {
if ((((r[1]) == (mksymbol(internsym("set!")))) && (1))) {
r[0] = r[5];
r[1] = r[6];
r[2] = r[4];
goto gs_xform_2Dset_21;
} else {
if ((((r[1]) == (mksymbol(internsym("set&")))) && (1))) {
r[0] = r[5];
r[1] = r[6];
r[2] = r[4];
goto gs_xform_2Dset_26;
} else {
if ((((r[1]) == (mksymbol(internsym("if")))) && (1))) {
r[0] = r[5];
r[1] = r[6];
r[2] = r[4];
goto gs_xform_2Dif;
} else {
if ((((r[1]) == (mksymbol(internsym("lambda")))) && (1))) {
r[0] = r[5];
r[1] = r[6];
r[2] = r[4];
goto gs_xform_2Dlambda;
} else {
if ((((r[1]) == (mksymbol(internsym("lambda*")))) && (1))) {
r[0] = r[5];
r[1] = r[6];
r[2] = r[4];
goto gs_xform_2Dlambda_2A;
} else {
if ((((r[1]) == (mksymbol(internsym("letcc")))) && (1))) {
r[0] = r[5];
r[1] = r[6];
r[2] = r[4];
goto gs_xform_2Dletcc;
} else {
if ((((r[1]) == (mksymbol(internsym("withcc")))) && (1))) {
r[0] = r[5];
r[1] = r[6];
r[2] = r[4];
goto gs_xform_2Dwithcc;
} else {
if ((((r[1]) == (mksymbol(internsym("body")))) && (1))) {
r[0] = r[5];
r[1] = r[6];
r[2] = r[4];
goto gs_xform_2Dbody;
} else {
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02: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 {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
if ((((r[1]) == (mksymbol(internsym("define")))) && (1))) {
r[0] = r[5];
r[1] = r[6];
r[2] = r[4];
goto gs_xform_2Ddefine;
} else {
if ((((r[1]) == (mksymbol(internsym("define-syntax")))) && (1))) {
r[0] = r[5];
r[1] = r[6];
r[2] = r[4];
goto gs_xform_2Ddefine_2Dsyntax;
define-record-type, records added
2023-03-29 00:14:45 +02:00
} else {
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
if ((((r[1]) == (mksymbol(internsym("syntax-lambda")))) && (1))) {
r[0] = r[5];
r[1] = r[6];
r[2] = r[4];
goto gs_xform_2Dsyntax_2Dlambda;
} else {
if ((((r[1]) == (mksymbol(internsym("syntax-rules")))) && (1))) {
r[0] = r[5];
r[1] = r[6];
r[2] = r[4];
goto gs_xform_2Dsyntax_2Drules;
} else {
define-record-type, records added
2023-03-29 00:14:45 +02:00
if ((((r[1]) == (mksymbol(internsym("syntax-length")))) && (1))) {
r[0] = r[5];
r[1] = r[6];
r[2] = r[4];
goto gs_xform_2Dsyntax_2Dlength;
} else {
if ((((r[1]) == (mksymbol(internsym("syntax-error")))) && (1))) {
r[0] = r[5];
r[1] = r[6];
r[2] = r[4];
goto gs_xform_2Dsyntax_2Derror;
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
*--hp = r[5];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[6];
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(61);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 3;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
}
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
}
}
}
}
}
}
}
}
}
}
}
}
define-record-type, records added
2023-03-29 00:14:45 +02:00
}
}
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
}
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 61: /* clo ek r */
initial commit
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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+4] = p[3];
r[1+5] = p[4];
r[1+6] = p[5];
r[1+7] = p[6]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* 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];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(62);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[8] = (hendblk(3+1));
r[0] = r[6];
initial commit
2023-02-28 06:31:08 +01:00
pc = objptr_from_obj(r[0])[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = r[8];
/* r[2] */
r[3] = r[4];
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 4;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} else {
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
r[0] = r[7];
r[1] = r[6];
r[2] = r[5];
r[3] = r[4];
goto gs_xform_2Dcall;
}
}
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 62: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
/* 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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
goto gs_xform;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 63: /* xform-ref k id env */
define-record-type, records added
2023-03-29 00:14:45 +02:00
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_xform_2Dref: /* k id env */
hreserve(hbsz(1+1), 3); /* 3 live regs */
*--hp = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(64);
define-record-type, records added
2023-03-29 00:14:45 +02: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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 64: /* clo ek r */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r k */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[3] = (boxref((r[1])));
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("..."))));
if (bool_from_obj(r[3])) {
r[0] = (cx_x_2Derror);
pc = objptr_from_obj(r[0])[0];
r[1] = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[2] = (cx__23441);
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[3+0] = r[2];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[3+2] = (boxref((r[1])));
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 65: /* xform-quote k tail env */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 4);
r += 1; /* shift reg. wnd */
define-record-type, records added
2023-03-29 00:14:45 +02:00
gs_xform_2Dquote: /* k tail env */
if (bool_from_obj(cxs_list1_3F((r[1])))) {
hreserve(hbsz(1+1), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(66);
define-record-type, records added
2023-03-29 00:14:45 +02:00
r[3] = (hendblk(1+1));
r[0] = r[3];
r[1] = (car((r[1])));
goto gs_xform_2Dsexp_2D_3Edatum;
initial commit
2023-02-28 06:31:08 +01:00
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[1];
define-record-type, records added
2023-03-29 00:14:45 +02:00
*--hp = (mksymbol(internsym("quote")));
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
r[4+0] = (cx_x_2Derror);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[4+2] = (cx__23450);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4+3] = r[3];
r += 4; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 4;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 66: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
define-record-type, records added
2023-03-29 00:14:45 +02:00
r[1+2] = p[1]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
define-record-type, records added
2023-03-29 00:14:45 +02:00
/* ek r k */
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
define-record-type, records added
2023-03-29 00:14:45 +02:00
*--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)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
define-record-type, records added
2023-03-29 00:14:45 +02:00
r[1] = obj_from_ktrap();
r[2] = r[4];
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 3;
goto jump;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 67: /* xform-set! k tail env */
define-record-type, records added
2023-03-29 00:14:45 +02:00
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_xform_2Dset_21: /* k tail env */
if (bool_from_obj(cxs_list2_3F((r[1])))) {
r[3] = (car((r[1])));
r[3] = (cxs_id_3F((r[3])));
} else {
r[3] = obj_from_bool(0);
}
if (bool_from_obj(r[3])) {
hreserve(hbsz(3+1), 3); /* 3 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(68);
define-record-type, records added
2023-03-29 00:14:45 +02:00
r[3] = (hendblk(3+1));
r[4] = (cdr((r[1])));
r[4] = (car((r[4])));
r[5+0] = r[3];
r[5+1] = obj_from_bool(0);
r[5+2] = r[4];
r[5+3] = r[2];
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_xform;
} else {
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("set!")));
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
r[4+0] = (cx_x_2Derror);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[4+2] = (cx__23460);
define-record-type, records added
2023-03-29 00:14:45 +02:00
r[4+3] = r[3];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 68: /* clo ek r */
define-record-type, records added
2023-03-29 00:14:45 +02: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 */
hreserve(hbsz(2+1), 5); /* 5 live regs */
no symbolic denotations; minor cleanup
2023-04-15 23:41:28 +02:00
*--hp = r[1];
procedure ids store their syms with dens
2023-04-16 00:08:08 +02:00
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(69);
define-record-type, records added
2023-03-29 00:14:45 +02: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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 69: /* clo ek r */
define-record-type, records added
2023-03-29 00:14:45 +02: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 */
procedure ids store their syms with dens
2023-04-16 00:08:08 +02:00
/* ek r k r */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ bool_t v14329_tmp;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[4] = (boxref((r[1])));
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14329_tmp = (ispair((r[4])));
r[4] = obj_from_bool(!(v14329_tmp)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
if (bool_from_obj(r[4])) {
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
(void)(boxref((r[1])) = (r[3]));
r[4] = (cx__23483);
procedure ids store their syms with dens
2023-04-16 00:08:08 +02:00
r[5+0] = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 {
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[4] = (boxref((r[1])));
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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());
procedure ids store their syms with dens
2023-04-16 00:08:08 +02:00
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
hreserve(hbsz(3), 6); /* 6 live regs */
*--hp = r[5];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("set!")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
r[5] = (hendblk(3)); }
procedure ids store their syms with dens
2023-04-16 00:08:08 +02:00
r[0] = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[5];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[0] = (cx_x_2Derror);
pc = objptr_from_obj(r[0])[0];
procedure ids store their syms with dens
2023-04-16 00:08:08 +02:00
r[1] = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[2] = (cx__23470);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 70: /* xform-set& k tail env */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(71);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("set&")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(3)); }
r[4+0] = (cx_x_2Derror);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[4+2] = (cx__23496);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4+3] = r[3];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 71: /* clo ek r */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ bool_t v14328_tmp;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[3] = (boxref((r[1])));
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14328_tmp = (ispair((r[3])));
r[3] = obj_from_bool(!(v14328_tmp)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
if (bool_from_obj(r[3])) {
r[0] = (cx_x_2Derror);
pc = objptr_from_obj(r[0])[0];
r[1] = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[2] = (cx__23502);
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[3] = (boxref((r[1])));
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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])));
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
{ /* cons */
hreserve(hbsz(3), 5); /* 5 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mknull());
*--hp = r[4];
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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];
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 3;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} else {
r[0] = (cx_x_2Derror);
pc = objptr_from_obj(r[0])[0];
r[1] = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[2] = (cx__23502);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
initial commit
2023-02-28 06:31:08 +01:00
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 72: /* xform-if k tail env */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 4);
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
gs_xform_2Dif: /* k tail env */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
if ((islist((r[1])))) {
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
hreserve(hbsz(2+1), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[0];
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
*--hp = r[1];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(75);
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
r[3] = (hendblk(2+1));
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = r[3];
/* r[1] */
/* r[2] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v13729;
initial commit
2023-02-28 06:31:08 +01:00
} else {
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 3); /* 3 live regs */
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
*--hp = r[1];
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
*--hp = (mksymbol(internsym("if")));
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
r[4+0] = (cx_x_2Derror);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[4+2] = (cx__23517);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4+3] = r[3];
r += 4; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
}
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v13729: /* k l env */
initial commit
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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(73);
initial commit
2023-02-28 06:31:08 +01:00
r[4] = (hendblk(3+1));
r[0] = r[4];
r[1] = r[3];
/* r[2] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v13729;
initial commit
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;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 73: /* clo ek r */
initial commit
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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(74);
initial commit
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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 74: /* clo ek r */
initial commit
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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 75: /* clo ek r */
initial commit
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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r tail k */
initial commit
2023-02-28 06:31:08 +01:00
{ /* length */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
int n; obj l = r[1];
initial commit
2023-02-28 06:31:08 +01:00
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = obj_from_fixnum(n); }
if (((((r[4]) == obj_from_fixnum(+2)) && ((r[4]) == obj_from_fixnum(+2))) && (1))) {
initial switch to libl
2023-04-02 22:16:43 +02:00
hreserve(hbsz(1+1), 5); /* 5 live regs */
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(76);
initial switch to libl
2023-04-02 22:16:43 +02:00
r[5] = (hendblk(1+1));
r[6+0] = (cx__25append);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
pc = objptr_from_obj(r[6+0])[0];
initial switch to libl
2023-04-02 22:16:43 +02:00
r[6+1] = r[5];
r[6+2] = r[1];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[6+3] = (cx__23545);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
initial switch to libl
2023-04-02 22:16:43 +02:00
rc = 4;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
goto jump;
} else {
if (((((r[4]) == obj_from_fixnum(+3)) && ((r[4]) == obj_from_fixnum(+3))) && (1))) {
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("if")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[5] = (hendblk(3)); }
r[6+0] = r[3];
pc = objptr_from_obj(r[6+0])[0];
r[6+1] = obj_from_ktrap();
r[6+2] = r[5];
r += 6; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} else {
{ /* cons */
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[2];
*--hp = (mksymbol(internsym("if")));
*--hp = obj_from_size(PAIR_BTAG);
r[5] = (hendblk(3)); }
r[6+0] = (cx_x_2Derror);
pc = objptr_from_obj(r[6+0])[0];
r[6+1] = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[6+2] = (cx__23535);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[6+3] = r[5];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
}
}
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 76: /* clo ek r */
initial switch to libl
2023-04-02 22:16:43 +02: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("if")));
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
r[4+0] = r[2];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = obj_from_ktrap();
r[4+2] = r[3];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 77: /* xform-call k xexp tail env */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 5);
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(80);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(2+1));
r[0] = r[4];
r[1] = r[2];
r[2] = r[3];
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v13690;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} else {
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[4] = (hendblk(3)); }
r[5+0] = (cx_x_2Derror);
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[5+2] = (cx__23566);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[5+3] = r[4];
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
}
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v13690: /* k l env */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(78);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3+1));
r[0] = r[4];
r[1] = r[3];
/* r[2] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v13690;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} else {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 78: /* clo ek r */
initial commit
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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+4] = p[3]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r env l k */
hreserve(hbsz(2+1), 5); /* 5 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(79);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
goto gs_xform;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 79: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+3] = p[2]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r k r */
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 3;
goto jump;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 80: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+3] = p[2]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* 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])));
initial commit
2023-02-28 06:31:08 +01:00
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = r[4];
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4+0] = (cx_pair_2A);
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
pc = objptr_from_obj(r[4+0])[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4+1] = r[2];
r[4+2] = (mksymbol(internsym("call")));
r[4+3] = (r[3]);
r[4+4] = (r[1]);
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
r += 4; /* shift reg wnd */
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 5;
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
goto jump;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 81: /* integrable-argc-match? k igt n */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_integrable_2Dargc_2Dmatch_3F: /* k igt n */
if (((((r[1]) == obj_from_char('0')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
if ((is_fixnum_obj(r[2]))) {
r[3] = obj_from_bool(fixnum_from_obj(r[2]) == (+0));
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
} else {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ const flonum_t v14327_tmp = ((flonum_t)(+0));
r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14327_tmp)); }
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
}
support for (set& var) primitive (returns box)
2023-03-12 21:54:44 +01:00
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ const flonum_t v14326_tmp = ((flonum_t)(+1));
r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14326_tmp)); }
support for (set& var) primitive (returns box)
2023-03-12 21:54:44 +01:00
}
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ const flonum_t v14325_tmp = ((flonum_t)(+2));
r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14325_tmp)); }
support for (set& var) primitive (returns box)
2023-03-12 21:54:44 +01:00
}
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ const flonum_t v14324_tmp = ((flonum_t)(+3));
r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14324_tmp)); }
support for (set& var) primitive (returns box)
2023-03-12 21:54:44 +01:00
}
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ const flonum_t v14323_tmp = ((flonum_t)(+0));
r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14323_tmp)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ const flonum_t v14322_tmp = ((flonum_t)(+1));
r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14322_tmp)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ const flonum_t v14321_tmp = ((flonum_t)(+2));
r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14321_tmp)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
} else {
if (((((r[1]) == obj_from_char('x')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
if ((is_fixnum_obj(r[2]))) {
r[3] = obj_from_bool(fixnum_from_obj(r[2]) >= (+1));
} else {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ const flonum_t v14320_tmp = ((flonum_t)(+1));
r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14320_tmp)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
} else {
if (((((r[1]) == obj_from_char('u')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
if ((is_fixnum_obj(r[2]))) {
r[3] = obj_from_bool((+0) <= fixnum_from_obj(r[2]));
} else {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ const flonum_t v14319_tmp = ((flonum_t)(+0));
r[3] = obj_from_bool((v14319_tmp) <= flonum_from_obj(r[2])); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
if (bool_from_obj(r[3])) {
if ((is_fixnum_obj(r[2]))) {
r[3] = obj_from_bool(fixnum_from_obj(r[2]) <= (+1));
} else {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ const flonum_t v14318_tmp = ((flonum_t)(+1));
r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14318_tmp)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
} else {
r[3] = obj_from_bool(0);
}
} else {
if (((((r[1]) == obj_from_char('b')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
if ((is_fixnum_obj(r[2]))) {
r[3] = obj_from_bool((+1) <= fixnum_from_obj(r[2]));
} else {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ const flonum_t v14317_tmp = ((flonum_t)(+1));
r[3] = obj_from_bool((v14317_tmp) <= flonum_from_obj(r[2])); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
if (bool_from_obj(r[3])) {
if ((is_fixnum_obj(r[2]))) {
r[3] = obj_from_bool(fixnum_from_obj(r[2]) <= (+2));
} else {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ const flonum_t v14316_tmp = ((flonum_t)(+2));
r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14316_tmp)); }
cmp instrs re-coded; 't' integrable type
2023-03-28 21:39:00 +02:00
}
} else {
r[3] = obj_from_bool(0);
}
} else {
if (((((r[1]) == obj_from_char('t')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
if ((is_fixnum_obj(r[2]))) {
r[3] = obj_from_bool((+2) <= fixnum_from_obj(r[2]));
} else {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ const flonum_t v14315_tmp = ((flonum_t)(+2));
r[3] = obj_from_bool((v14315_tmp) <= flonum_from_obj(r[2])); }
cmp instrs re-coded; 't' integrable type
2023-03-28 21:39:00 +02:00
}
if (bool_from_obj(r[3])) {
if ((is_fixnum_obj(r[2]))) {
r[3] = obj_from_bool(fixnum_from_obj(r[2]) <= (+3));
} else {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ const flonum_t v14314_tmp = ((flonum_t)(+3));
r[3] = obj_from_bool(flonum_from_obj(r[2]) <= (v14314_tmp)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
} else {
r[3] = obj_from_bool(0);
}
} else {
if (((((r[1]) == obj_from_char('#')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
if ((is_fixnum_obj(r[2]))) {
r[3] = obj_from_bool(fixnum_from_obj(r[2]) >= (+0));
} else {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ const flonum_t v14313_tmp = ((flonum_t)(+0));
r[3] = obj_from_bool(flonum_from_obj(r[2]) >= (v14313_tmp)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
} else {
r[3] = obj_from_bool(((((r[1]) == obj_from_char('@')) || ((is_flonum_obj(r[1])) && (0))) && (1)) && (0));
}
}
}
}
}
}
}
}
}
}
cmp instrs re-coded; 't' integrable type
2023-03-28 21:39:00 +02:00
}
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 82: /* xform-integrable k ig tail env */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
support for (set& var) primitive (returns box)
2023-03-12 21:54:44 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[0];
*--hp = r[2];
support for (set& var) primitive (returns box)
2023-03-12 21:54:44 +01:00
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(83);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 3;
goto jump;
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 83: /* clo ek r */
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4]; }
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* 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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(84);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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;
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 84: /* clo ek r */
support for (set& var) primitive (returns box)
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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+4] = p[3];
r[1+5] = p[4]; }
support for (set& var) primitive (returns box)
2023-03-12 21:54:44 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r env tail k ig */
support for (set& var) primitive (returns box)
2023-03-12 21:54:44 +01:00
if (bool_from_obj(r[1])) {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(2+1), 6); /* 6 live regs */
*--hp = r[5];
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(87);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[6] = (hendblk(2+1));
r[0] = r[6];
r[1] = r[3];
/* r[2] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v13641;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} else {
{ /* define integrable-global */
static obj c[] = { obj_from_objptr(vmcases+11) };
r[6] = obj_from_objptr(c); }
hreserve(hbsz(3+1), 7); /* 7 live regs */
support for (set& var) primitive (returns box)
2023-03-12 21:54:44 +01:00
*--hp = r[4];
*--hp = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(88);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[7] = (hendblk(3+1));
r[0] = r[6];
pc = objptr_from_obj(r[0])[0];
r[1] = r[7];
r[2] = r[5];
support for (set& var) primitive (returns box)
2023-03-12 21:54:44 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 3;
goto jump;
}
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v13641: /* k l env */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(85);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3+1));
r[0] = r[4];
r[1] = r[3];
/* r[2] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v13641;
support for (set& var) primitive (returns box)
2023-03-12 21:54:44 +01:00
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* r[0] */
support for (set& var) primitive (returns box)
2023-03-12 21:54:44 +01:00
pc = objptr_from_obj(r[0])[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = obj_from_ktrap();
r[2] = (mknull());
support for (set& var) primitive (returns box)
2023-03-12 21:54:44 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 3;
support for (set& var) primitive (returns box)
2023-03-12 21:54:44 +01:00
goto jump;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 85: /* clo ek r */
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+3] = p[2];
r[1+4] = p[3]; }
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r env l k */
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
hreserve(hbsz(2+1), 5); /* 5 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(86);
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
r[5] = (hendblk(2+1));
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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;
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 86: /* clo ek r */
lambda*/case-lambda: initial implementation
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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 87: /* clo ek r */
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+2] = p[1];
r[1+3] = p[2]; }
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r k ig */
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[3];
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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];
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 88: /* clo ek r */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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)); }
{ /* cons */
hreserve(hbsz(3), 6); /* 6 live regs */
*--hp = r[5];
*--hp = (mksymbol(internsym("ref")));
*--hp = obj_from_size(PAIR_BTAG);
r[6] = (hendblk(3)); }
r[7+0] = r[4];
r[7+1] = r[6];
r[7+2] = r[3];
r[7+3] = r[2];
r += 7; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_xform_2Dcall;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 89: /* xform-lambda k tail env */
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
assert(rc == 4);
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
gs_xform_2Dlambda: /* k tail env */
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
hreserve(hbsz(3+1), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[0];
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
*--hp = r[1];
*--hp = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(90);
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
r[3] = (hendblk(3+1));
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
if (bool_from_obj(cxs_list1_2B_3F((r[1])))) {
r[0] = r[3];
r[1] = (car((r[1])));
goto gs_idslist_3F;
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
} else {
r[4+0] = obj_from_ktrap();
r[4+1] = obj_from_bool(0);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4+2] = r[2];
r[4+3] = r[1];
r[4+4] = r[0];
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v13549;
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 90: /* clo ek r */
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v13549: /* ek r env tail k */
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
if (bool_from_obj(r[1])) {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v13550;
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
} else {
{ /* cons */
hreserve(hbsz(3), 5); /* 5 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[3];
*--hp = (mksymbol(internsym("lambda")));
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[5] = (hendblk(3)); }
r[0] = (cx_x_2Derror);
pc = objptr_from_obj(r[0])[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[2] = (cx__23826);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = r[5];
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 91: /* clo k vars ienv ipars */
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
assert(rc == 5);
{ obj* p = objptr_from_obj(r[0]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+4] = p[1]; }
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v13550: /* k vars ienv ipars tail */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
if ((ispair((r[1])))) {
r[5] = (car((r[1])));
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
hreserve(hbsz(1+1), 6); /* 6 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(91);
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
r[6] = (hendblk(1+1));
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(92);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[6] = (hendblk(6+1));
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
r[0] = r[6];
r[1] = r[5];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
goto gs_id_2D_3Esym;
} else {
if ((isnull((r[1])))) {
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[3];
*--hp = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(95);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[5] = (hendblk(2+1));
r[0] = r[5];
r[1] = (cdr((r[4])));
/* r[2] */
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
goto gs_xform_2Dbody;
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(5+1), 5); /* 5 live regs */
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
*--hp = r[0];
initial switch to libl
2023-04-02 22:16:43 +02:00
*--hp = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[4];
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
*--hp = r[1];
*--hp = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(96);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[5] = (hendblk(5+1));
r[0] = r[5];
/* r[1] */
goto gs_id_2D_3Esym;
}
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 92: /* clo ek r */
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+2] = 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]; }
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* 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];
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
*--hp = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(93);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 93: /* clo ek r */
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+6] = p[5];
r[1+7] = p[6]; }
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r ienv var loop ipars vars k */
hreserve(hbsz(5+1), 8); /* 8 live regs */
*--hp = r[7];
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
*--hp = r[6];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
*--hp = r[5];
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(94);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
goto gs_add_2Dvar;
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 94: /* clo ek r */
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+5] = p[4];
r[1+6] = p[5]; }
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* 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 */
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 95: /* clo ek r */
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
assert(rc == 3);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r k ipars */
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = (mknull());
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14312_tmp;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* length */
int n; obj l = r[3];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14312_tmp = (n); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14312_tmp);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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];
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 3;
letcc/withcc support
2023-03-10 23:30:41 +01:00
goto jump;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 96: /* clo ek r */
initial commit
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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+5] = p[4];
r[1+6] = p[5]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
initial switch to libl
2023-04-02 22:16:43 +02:00
/* ek r ienv vars tail ipars k */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(5+1), 7); /* 7 live regs */
*--hp = r[6];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(97);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
letcc/withcc support
2023-03-10 23:30:41 +01:00
rc = 3;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
letcc/withcc support
2023-03-10 23:30:41 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 97: /* clo ek r */
letcc/withcc support
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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+5] = p[4];
r[1+6] = p[5]; }
letcc/withcc support
2023-03-10 23:30:41 +01:00
r += 1; /* shift reg. wnd */
initial switch to libl
2023-04-02 22:16:43 +02:00
/* ek r ienv vars tail ipars k */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(4+1), 7); /* 7 live regs */
*--hp = r[6];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[5];
initial switch to libl
2023-04-02 22:16:43 +02:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(98);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
letcc/withcc support
2023-03-10 23:30:41 +01:00
rreserve(MAX_HOSTREGS);
goto gs_add_2Dvar;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 98: /* clo ek r */
letcc/withcc support
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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+4] = p[3];
r[1+5] = p[4]; }
letcc/withcc support
2023-03-10 23:30:41 +01:00
r += 1; /* shift reg. wnd */
initial switch to libl
2023-04-02 22:16:43 +02:00
/* ek r tail r ipars k */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3+1), 6); /* 6 live regs */
*--hp = r[5];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[4];
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(99);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
letcc/withcc support
2023-03-10 23:30:41 +01:00
rreserve(MAX_HOSTREGS);
letcc/withcc: k is now a procedure, allow bodies
2023-03-11 07:50:00 +01:00
goto gs_xform_2Dbody;
letcc/withcc support
2023-03-10 23:30:41 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 99: /* clo ek r */
letcc/withcc support
2023-03-10 23:30:41 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+3] = p[2];
r[1+4] = p[3]; }
letcc/withcc support
2023-03-10 23:30:41 +01:00
r += 1; /* shift reg. wnd */
initial switch to libl
2023-04-02 22:16:43 +02:00
/* ek r r ipars k */
letcc/withcc support
2023-03-10 23:30:41 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = (mknull());
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[5] = (hendblk(3)); }
initial switch to libl
2023-04-02 22:16:43 +02:00
hreserve(hbsz(2+1), 6); /* 6 live regs */
*--hp = r[5];
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(100);
initial switch to libl
2023-04-02 22:16:43 +02:00
r[6] = (hendblk(2+1));
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14311_tmp;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* length */
initial switch to libl
2023-04-02 22:16:43 +02:00
int n; obj l = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14311_tmp = (n); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14311_tmp);
initial switch to libl
2023-04-02 22:16:43 +02:00
hreserve(hbsz(3)*c, 7); /* 7 live regs */
l = r[3]; /* gc-safe */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
*--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }
initial switch to libl
2023-04-02 22:16:43 +02:00
r[7] = (o); } }
r[8+0] = (cx__25append);
pc = objptr_from_obj(r[8+0])[0];
r[8+1] = r[6];
r[8+2] = r[7];
r[8+3] = r[2];
r += 8; /* shift reg wnd */
letcc/withcc support
2023-03-10 23:30:41 +01:00
rreserve(MAX_HOSTREGS);
initial switch to libl
2023-04-02 22:16:43 +02:00
rc = 4;
letcc/withcc support
2023-03-10 23:30:41 +01:00
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 100: /* clo ek r */
initial switch to libl
2023-04-02 22:16:43 +02: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("lambda")));
*--hp = obj_from_size(PAIR_BTAG);
r[5] = (hendblk(3)); }
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[5];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 101: /* xform-lambda* k tail env */
initial switch to libl
2023-04-02 22:16:43 +02:00
assert(rc == 4);
letcc/withcc support
2023-03-10 23:30:41 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
gs_xform_2Dlambda_2A: /* k tail env */
if ((islist((r[1])))) {
hreserve(hbsz(1+1), 3); /* 3 live regs */
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(107);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(1+1));
letcc/withcc: k is now a procedure, allow bodies
2023-03-11 07:50:00 +01:00
r[0] = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* r[1] */
letcc/withcc: k is now a procedure, allow bodies
2023-03-11 07:50:00 +01:00
/* r[2] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v13505;
letcc/withcc support
2023-03-10 23:30:41 +01:00
} else {
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("lambda*")));
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
r[4+0] = (cx_x_2Derror);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[4+2] = (cx__23869);
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
r[4+3] = r[3];
r += 4; /* shift reg wnd */
letcc/withcc support
2023-03-10 23:30:41 +01:00
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
}
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v13505: /* k l env */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(102);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3+1));
r[0] = r[4];
r[1] = r[3];
/* r[2] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v13505;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 102: /* clo ek r */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(103);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[6] = (hendblk(2+1));
hreserve(hbsz(3+1), 7); /* 7 live regs */
*--hp = r[6];
*--hp = r[5];
*--hp = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(104);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(103);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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];
r += 9; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v13509;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} else {
r[0] = r[6];
r[1] = (car((r[5])));
goto gs_idslist_3F;
}
} else {
hreserve(hbsz(2+1), 7); /* 7 live regs */
*--hp = r[1];
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(103);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v13509;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 103: /* clo ek r */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 104: /* clo ek r */
letcc/withcc support
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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v13509: /* ek r env aexp k */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
if (bool_from_obj(r[1])) {
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(105);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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_x_2Derror);
pc = objptr_from_obj(r[0])[0];
r[1] = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[2] = (cx__23871);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* r[3] */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 105: /* clo ek r */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
letcc/withcc support
2023-03-10 23:30:41 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = (mknull());
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
hreserve(hbsz(2+1), 5); /* 5 live regs */
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[4];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(106);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[5] = (hendblk(2+1));
r[0] = r[5];
r[1] = (car((r[2])));
goto gs_normalize_2Darity;
letcc/withcc support
2023-03-10 23:30:41 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 106: /* clo ek r */
letcc/withcc support
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)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
letcc/withcc support
2023-03-10 23:30:41 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 107: /* clo ek r */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
letcc/withcc support
2023-03-10 23:30:41 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r k */
letcc/withcc support
2023-03-10 23:30:41 +01:00
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
*--hp = (mksymbol(internsym("lambda*")));
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
letcc/withcc support
2023-03-10 23:30:41 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 108: /* xform-letcc k tail env */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 4);
letcc/withcc support
2023-03-10 23:30:41 +01:00
r += 1; /* shift reg. wnd */
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
gs_xform_2Dletcc: /* k tail env */
if (bool_from_obj(cxs_list2_2B_3F((r[1])))) {
r[3] = (car((r[1])));
r[3] = (cxs_id_3F((r[3])));
} else {
r[3] = obj_from_bool(0);
}
if (bool_from_obj(r[3])) {
r[3] = (car((r[1])));
hreserve(hbsz(4+1), 4); /* 4 live regs */
*--hp = r[0];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[1];
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
*--hp = r[3];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(109);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[4] = (hendblk(4+1));
r[0] = r[4];
r[1] = r[3];
goto gs_id_2D_3Esym;
letcc/withcc support
2023-03-10 23:30:41 +01:00
} else {
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("letcc")));
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
r[4+0] = (cx_x_2Derror);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[4+2] = (cx__23910);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[4+3] = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r += 4; /* shift reg wnd */
letcc/withcc support
2023-03-10 23:30:41 +01:00
rreserve(MAX_HOSTREGS);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
rc = 4;
goto jump;
letcc/withcc support
2023-03-10 23:30:41 +01:00
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 109: /* clo ek r */
letcc/withcc support
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];
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[1+4] = p[3];
r[1+5] = p[4]; }
letcc/withcc support
2023-03-10 23:30:41 +01:00
r += 1; /* shift reg. wnd */
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
/* ek r env var tail k */
hreserve(hbsz(4+1), 6); /* 6 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[5];
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
*--hp = r[4];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[3];
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
*--hp = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(110);
syntax-rules form built-in
2023-04-14 00:31:20 +02: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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 3;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 110: /* clo ek r */
syntax-rules form built-in
2023-04-14 00:31:20 +02: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];
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(111);
syntax-rules form built-in
2023-04-14 00:31:20 +02: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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 111: /* clo ek r */
syntax-rules form built-in
2023-04-14 00:31:20 +02: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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(112);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[5] = (hendblk(2+1));
r[6+0] = r[5];
r[6+1] = (cdr((r[2])));
r[6+2] = r[1];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_xform_2Dbody;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 112: /* clo ek r */
syntax-rules form built-in
2023-04-14 00:31:20 +02: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)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* cons */
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
*--hp = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[5] = (hendblk(3)); }
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
{ /* 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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
pc = objptr_from_obj(r[0])[0];
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[1] = obj_from_ktrap();
r[2] = r[6];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rreserve(MAX_HOSTREGS);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
rc = 3;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 113: /* xform-withcc k tail env */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 4);
r += 1; /* shift reg. wnd */
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
gs_xform_2Dwithcc: /* k tail env */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
if (bool_from_obj(cxs_list2_2B_3F((r[1])))) {
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
hreserve(hbsz(3+1), 3); /* 3 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[0];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(114);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[3] = (hendblk(3+1));
r[0] = r[3];
r[1] = (cdr((r[1])));
/* r[2] */
goto gs_xform_2Dbody;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} else {
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[1];
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
*--hp = (mksymbol(internsym("withcc")));
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
r[4+0] = (cx_x_2Derror);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[4+2] = (cx__23926);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4+3] = r[3];
r += 4; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 4;
goto jump;
}
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 114: /* clo ek r */
initial commit
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];
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[1+4] = p[3]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
/* ek r env tail k */
{ /* cons */
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = (mknull());
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
*--hp = obj_from_size(PAIR_BTAG);
r[5] = (hendblk(3)); }
hreserve(hbsz(2+1), 6); /* 6 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[5];
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(115);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[6] = (hendblk(2+1));
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[7+0] = r[6];
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[7+1] = obj_from_bool(0);
r[7+2] = (car((r[3])));
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[7+3] = r[2];
r += 7; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
goto gs_xform;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 115: /* clo ek r */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 3);
initial commit
2023-02-28 06:31:08 +01:00
{ obj* p = objptr_from_obj(r[0]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+2] = p[1];
r[1+3] = p[2]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r k r */
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
*--hp = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3)); }
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 5); /* 5 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[4];
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
*--hp = (mksymbol(internsym("withcc")));
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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();
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[2] = r[5];
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 116: /* xform-body k tail env */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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;
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
} else {
body transform fix (caused slow let* expansion)
2023-04-04 02:41:15 +02:00
if (bool_from_obj(cxs_list1_3F((r[1])))) {
r[3+0] = r[0];
r[3+1] = obj_from_bool(0);
r[3+2] = (car((r[1])));
r[3+3] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_xform;
} else {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ const bool_t v14310_tmp = (islist((r[1])));
r[3] = obj_from_bool(!(v14310_tmp)); }
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
if (bool_from_obj(r[3])) {
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("body")));
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
r[4+0] = (cx_x_2Derror);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[4+2] = (cx__231063);
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
r[4+3] = r[3];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} 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);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v13354;
body transform fix (caused slow let* expansion)
2023-04-04 02:41:15 +02:00
}
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
}
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 117: /* clo k env ids inits nids body */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 7);
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v13354: /* k env ids inits nids body */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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])));
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
r[9] = (cdr((r[6])));
hreserve(hbsz(0+1), 10); /* 10 live regs */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(117);
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
r[10] = (hendblk(0+1));
hreserve(hbsz(10+1), 11); /* 11 live regs */
*--hp = r[9];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[0];
*--hp = r[1];
*--hp = r[2];
*--hp = r[3];
*--hp = r[4];
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
*--hp = (r[10]);
initial switch to libl
2023-04-02 22:16:43 +02:00
*--hp = r[7];
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
*--hp = r[6];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[5];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(118);
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
r[10] = (hendblk(10+1));
r[11+0] = (r[10]);
r[11+1] = obj_from_bool(1);
r[11+2] = r[8];
r[11+3] = r[1];
r += 11; /* shift reg wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rreserve(MAX_HOSTREGS);
goto gs_xform;
} else {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14309_tmp;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* length */
int n; obj l = r[2];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14309_tmp = (n); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14309_tmp);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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); } }
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14308_tmp;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* length */
int n; obj l = r[3];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14308_tmp = (n); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14308_tmp);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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); } }
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14307_tmp;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* length */
int n; obj l = r[4];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14307_tmp = (n); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14307_tmp);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 118: /* clo ek r */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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];
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
r[1+10] = p[9];
r[1+11] = p[10]; }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r += 1; /* shift reg. wnd */
initial switch to libl
2023-04-02 22:16:43 +02:00
/* ek r body first rest loop nids inits ids env k tail */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
if ((((r[1]) == (mksymbol(internsym("begin")))) && (1))) {
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
if ((islist((r[11])))) {
initial switch to libl
2023-04-02 22:16:43 +02:00
hreserve(hbsz(6+1), 12); /* 12 live regs */
*--hp = (r[10]);
*--hp = r[9];
*--hp = r[8];
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(119);
initial switch to libl
2023-04-02 22:16:43 +02:00
r[12] = (hendblk(6+1));
r[0] = (cx__25append);
pc = objptr_from_obj(r[0])[0];
r[1] = (r[12]);
r[2] = (r[11]);
r[3] = r[4];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rreserve(MAX_HOSTREGS);
initial switch to libl
2023-04-02 22:16:43 +02:00
rc = 4;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
goto jump;
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
} else {
r[0] = (cx_x_2Derror);
pc = objptr_from_obj(r[0])[0];
r[1] = (r[10]);
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[2] = (cx__231051);
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
/* r[3] */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
}
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} else {
if ((((r[1]) == (mksymbol(internsym("define")))) && (1))) {
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
if (bool_from_obj(cxs_list2_3F((r[11])))) {
r[12] = (car((r[11])));
r[12] = obj_from_bool(isnull((r[12])));
} else {
r[12] = obj_from_bool(0);
}
if (bool_from_obj(r[12])) {
r[12] = (cdr((r[11])));
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[12] = (car((r[12])));
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
{ /* cons */
hreserve(hbsz(3), 13); /* 13 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[8];
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
*--hp = obj_from_bool(0);
*--hp = obj_from_size(PAIR_BTAG);
r[13] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 14); /* 14 live regs */
*--hp = r[7];
*--hp = (r[12]);
*--hp = obj_from_size(PAIR_BTAG);
r[14] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 15); /* 15 live regs */
*--hp = r[6];
*--hp = obj_from_bool(0);
*--hp = obj_from_size(PAIR_BTAG);
r[15] = (hendblk(3)); }
initial switch to libl
2023-04-02 22:16:43 +02:00
r[16+0] = r[5];
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
pc = objptr_from_obj(r[16+0])[0];
r[16+1] = (r[10]);
r[16+2] = r[9];
r[16+3] = (r[13]);
r[16+4] = (r[14]);
r[16+5] = (r[15]);
initial switch to libl
2023-04-02 22:16:43 +02:00
r[16+6] = r[4];
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
r += 16; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 7;
goto jump;
} else {
if (bool_from_obj(cxs_list2_3F((r[11])))) {
r[12] = (car((r[11])));
r[12] = (cxs_id_3F((r[12])));
} else {
r[12] = obj_from_bool(0);
}
if (bool_from_obj(r[12])) {
r[12] = (car((r[11])));
r[13] = (cdr((r[11])));
r[13] = (car((r[13])));
hreserve(hbsz(9+1), 14); /* 14 live regs */
*--hp = (r[10]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (r[12]);
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
*--hp = r[8];
*--hp = (r[13]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[7];
*--hp = r[6];
*--hp = r[4];
initial switch to libl
2023-04-02 22:16:43 +02:00
*--hp = r[5];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[9];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(120);
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
r[14] = (hendblk(9+1));
r[0] = (r[14]);
r[1] = (r[12]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
goto gs_id_2D_3Esym;
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
} else {
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
hreserve(hbsz(9+1), 12); /* 12 live regs */
*--hp = (r[11]);
*--hp = (r[10]);
*--hp = r[8];
*--hp = r[7];
*--hp = r[6];
*--hp = r[4];
*--hp = r[5];
*--hp = r[9];
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(123);
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
r[12] = (hendblk(9+1));
if (bool_from_obj(cxs_list2_2B_3F((r[11])))) {
r[13] = (car((r[11])));
r[13] = obj_from_bool(ispair((r[13])));
if (bool_from_obj(r[13])) {
r[13] = (car((r[11])));
r[13] = (car((r[13])));
r[13] = (cxs_id_3F((r[13])));
if (bool_from_obj(r[13])) {
r[13] = (car((r[11])));
r[13] = (cdr((r[13])));
r[0] = (r[12]);
r[1] = (r[13]);
goto gs_idslist_3F;
} else {
r[13+0] = obj_from_ktrap();
r[13+1] = obj_from_bool(0);
r[13+2] = r[3];
r[13+3] = r[9];
r[13+4] = r[5];
r[13+5] = r[4];
r[13+6] = r[6];
r[13+7] = r[7];
r[13+8] = r[8];
r[13+9] = (r[10]);
r[13+10] = (r[11]);
r += 13; /* shift reg wnd */
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v13370;
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
}
} else {
r[13+0] = obj_from_ktrap();
r[13+1] = obj_from_bool(0);
r[13+2] = r[3];
r[13+3] = r[9];
r[13+4] = r[5];
r[13+5] = r[4];
r[13+6] = r[6];
r[13+7] = r[7];
r[13+8] = r[8];
r[13+9] = (r[10]);
r[13+10] = (r[11]);
r += 13; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v13370;
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
}
} else {
r[13+0] = obj_from_ktrap();
r[13+1] = obj_from_bool(0);
r[13+2] = r[3];
r[13+3] = r[9];
r[13+4] = r[5];
r[13+5] = r[4];
r[13+6] = r[6];
r[13+7] = r[7];
r[13+8] = r[8];
r[13+9] = (r[10]);
r[13+10] = (r[11]);
r += 13; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v13370;
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
}
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
}
}
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} else {
if ((((r[1]) == (mksymbol(internsym("define-syntax")))) && (1))) {
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
if (bool_from_obj(cxs_list2_3F((r[11])))) {
r[12] = (car((r[11])));
r[12] = (cxs_id_3F((r[12])));
} else {
r[12] = obj_from_bool(0);
}
if (bool_from_obj(r[12])) {
r[12] = (car((r[11])));
r[13] = (cdr((r[11])));
r[13] = (car((r[13])));
hreserve(hbsz(8+1), 14); /* 14 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (r[10]);
*--hp = (r[12]);
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
*--hp = r[8];
*--hp = (r[13]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[7];
*--hp = r[6];
*--hp = r[4];
initial switch to libl
2023-04-02 22:16:43 +02:00
*--hp = r[5];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(128);
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
r[14] = (hendblk(8+1));
r[0] = (r[14]);
r[1] = (r[12]);
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[2] = (cx__23976);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = r[9];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
goto gs_add_2Dlocation;
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
} else {
r[0] = (cx_x_2Derror);
pc = objptr_from_obj(r[0])[0];
r[1] = (r[10]);
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[2] = (cx__23969);
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
/* r[3] */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
}
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} else {
if ((isprocedure((r[1])))) {
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
hreserve(hbsz(7+1), 12); /* 12 live regs */
initial switch to libl
2023-04-02 22:16:43 +02:00
*--hp = r[4];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (r[10]);
*--hp = r[9];
*--hp = r[8];
*--hp = r[7];
*--hp = r[6];
initial switch to libl
2023-04-02 22:16:43 +02:00
*--hp = r[5];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(129);
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
r[12] = (hendblk(7+1));
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = r[1];
pc = objptr_from_obj(r[0])[0];
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
r[1] = (r[12]);
r[2] = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = r[9];
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 4;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} else {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14306_tmp;
initial commit
2023-02-28 06:31:08 +01:00
{ /* length */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
int n; obj l = r[8];
initial commit
2023-02-28 06:31:08 +01:00
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14306_tmp = (n); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14306_tmp);
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
hreserve(hbsz(3)*c, 12); /* 12 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
l = r[8]; /* gc-safe */
initial commit
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); }
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
r[12] = (o); } }
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14305_tmp;
initial commit
2023-02-28 06:31:08 +01:00
{ /* length */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
int n; obj l = r[7];
initial commit
2023-02-28 06:31:08 +01:00
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14305_tmp = (n); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14305_tmp);
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
hreserve(hbsz(3)*c, 13); /* 13 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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); }
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
r[13] = (o); } }
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14304_tmp;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* length */
int n; obj l = r[6];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14304_tmp = (n); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14304_tmp);
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
hreserve(hbsz(3)*c, 14); /* 14 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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); }
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
r[14] = (o); } }
r[15+0] = (r[10]);
r[15+1] = (r[12]);
r[15+2] = (r[13]);
r[15+3] = (r[14]);
r[15+4] = r[2];
r[15+5] = r[9];
r += 15; /* shift reg wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rreserve(MAX_HOSTREGS);
goto gs_xform_2Dlabels;
initial commit
2023-02-28 06:31:08 +01:00
}
}
}
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 119: /* clo ek r */
initial switch to libl
2023-04-02 22:16:43 +02: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 loop nids inits ids env k */
r[8+0] = r[2];
pc = objptr_from_obj(r[8+0])[0];
r[8+1] = r[7];
r[8+2] = r[6];
r[8+3] = r[5];
r[8+4] = r[4];
r[8+5] = r[3];
r[8+6] = r[1];
r += 8; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 7;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 120: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+2] = 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]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* 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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(121);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 121: /* clo ek r */
initial commit
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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* 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];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[6];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[5];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[4];
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(122);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
goto gs_add_2Dvar;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 122: /* clo ek r */
initial commit
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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+8] = p[7];
r[1+9] = p[8];
r[1+10] = p[9]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r loop rest nids r inits init ids id k */
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 11); /* 11 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[8];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[9];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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)); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 13); /* 13 live regs */
*--hp = r[4];
*--hp = r[5];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 7;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 123: /* clo ek r */
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02: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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v13370: /* ek r first env loop rest nids inits ids k tail */
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
if (bool_from_obj(r[1])) {
r[11] = (car((r[10])));
r[11] = (car((r[11])));
hreserve(hbsz(9+1), 12); /* 12 live regs */
*--hp = (r[10]);
*--hp = r[9];
*--hp = (r[11]);
*--hp = r[8];
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(124);
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
r[12] = (hendblk(9+1));
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
{ /* box */
hreserve(hbsz(2), 13); /* 13 live regs */
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
*--hp = (mksymbol(internsym("lambda")));
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_size(BOX_BTAG);
r[13] = (hendblk(2)); }
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
r[0] = (r[12]);
procedure ids store their syms with dens
2023-04-16 00:08:08 +02:00
r[1] = (mksymbol(internsym("lambda")));
r[2] = (r[13]);
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
goto gs_new_2Did;
} else {
r[11+0] = (cx_x_2Derror);
pc = objptr_from_obj(r[11+0])[0];
r[11+1] = r[9];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[11+2] = (cx__23989);
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
r[11+3] = r[2];
r += 11; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 124: /* clo ek r */
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02: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 ids id k tail */
r[11] = (cdr((r[10])));
r[12] = (car((r[10])));
r[12] = (cdr((r[12])));
{ /* cons */
hreserve(hbsz(3), 13); /* 13 live regs */
*--hp = (r[11]);
*--hp = (r[12]);
*--hp = obj_from_size(PAIR_BTAG);
r[11] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 12); /* 12 live regs */
*--hp = (r[11]);
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[11] = (hendblk(3)); }
hreserve(hbsz(9+1), 12); /* 12 live regs */
*--hp = r[9];
*--hp = r[8];
*--hp = r[7];
*--hp = (r[11]);
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(125);
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
r[12] = (hendblk(9+1));
r[0] = (r[12]);
r[1] = r[8];
goto gs_id_2D_3Esym;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 125: /* clo ek r */
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02: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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(126);
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02: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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 126: /* clo ek r */
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02: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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(127);
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02: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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 127: /* clo ek r */
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02: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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 128: /* clo ek r */
initial commit
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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r loop rest nids inits init ids id k */
{ /* cons */
hreserve(hbsz(3), 10); /* 10 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[7];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[8];
*--hp = obj_from_size(PAIR_BTAG);
r[10] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 11); /* 11 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[5];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[6];
*--hp = obj_from_size(PAIR_BTAG);
r[11] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 12); /* 12 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[4];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 7;
goto jump;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 129: /* clo ek r */
initial commit
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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+8] = p[7]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* 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)); }
initial commit
2023-02-28 06:31:08 +01:00
r[10+0] = r[2];
pc = objptr_from_obj(r[10+0])[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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];
initial commit
2023-02-28 06:31:08 +01:00
r += 10; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 7;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 130: /* xform-labels k ids inits nids body env */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 7);
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v13257;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 131: /* clo k ids inits nids sets lids */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 7);
initial commit
2023-02-28 06:31:08 +01:00
{ obj* p = objptr_from_obj(r[0]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+6] = p[1];
r[1+7] = p[2]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v13257: /* k ids inits nids sets lids env body */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(2+1), 8); /* 8 live regs */
*--hp = r[7];
*--hp = r[6];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(131);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[8] = (hendblk(2+1));
if ((isnull((r[1])))) {
hreserve(hbsz(3+1), 9); /* 9 live regs */
*--hp = r[5];
*--hp = r[0];
initial switch to libl
2023-04-02 22:16:43 +02:00
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(134);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[9] = (hendblk(3+1));
r[0] = r[9];
r[1] = r[7];
r[2] = r[6];
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v13311;
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
} else {
r[9] = (car((r[1])));
r[9] = obj_from_bool(!bool_from_obj(r[9]));
if (bool_from_obj(r[9])) {
hreserve(hbsz(7+1), 9); /* 9 live regs */
*--hp = r[4];
*--hp = r[0];
*--hp = r[1];
*--hp = r[2];
*--hp = r[3];
*--hp = r[5];
*--hp = r[8];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(138);
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
r[9] = (hendblk(7+1));
r[0] = r[9];
r[1] = obj_from_bool(0);
r[2] = (car((r[2])));
r[3] = r[6];
goto gs_xform;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[4];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[0];
*--hp = r[1];
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[5];
*--hp = r[8];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(139);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[9] = (hendblk(7+1));
r[10] = (car((r[2])));
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 11); /* 11 live regs */
*--hp = (mknull());
*--hp = (r[10]);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[10] = (hendblk(3)); }
r[11] = (car((r[1])));
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 12); /* 12 live regs */
*--hp = (r[10]);
*--hp = (r[11]);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[10] = (hendblk(3)); }
r[0] = r[9];
r[1] = (r[10]);
r[2] = r[6];
goto gs_xform_2Dset_21;
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(140);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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;
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
}
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
}
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v13311: /* k l env */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
if ((ispair((r[1])))) {
r[3] = (cdr((r[1])));
hreserve(hbsz(3+1), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[0];
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(132);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3+1));
r[0] = r[4];
r[1] = r[3];
/* r[2] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v13311;
initial commit
2023-02-28 06:31:08 +01:00
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 3;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 132: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+3] = p[2];
r[1+4] = p[3]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r env l k */
initial commit
2023-02-28 06:31:08 +01:00
hreserve(hbsz(2+1), 5); /* 5 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(133);
initial commit
2023-02-28 06:31:08 +01:00
r[5] = (hendblk(2+1));
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 133: /* clo ek r */
initial commit
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)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[5+0] = r[2];
new integrable model, part II
2023-03-19 00:13:38 +01:00
pc = objptr_from_obj(r[5+0])[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[5+1] = obj_from_ktrap();
r[5+2] = r[4];
new integrable model, part II
2023-03-19 00:13:38 +01:00
r += 5; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
light refactoring of the expander
2023-03-01 23:36:24 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 134: /* clo ek r */
new integrable model, part II
2023-03-19 00:13:38 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+3] = p[2];
r[1+4] = p[3]; }
new integrable model, part II
2023-03-19 00:13:38 +01:00
r += 1; /* shift reg. wnd */
initial switch to libl
2023-04-02 22:16:43 +02:00
/* ek r sets k lids */
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(135);
initial switch to libl
2023-04-02 22:16:43 +02:00
r[5] = (hendblk(2+1));
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14303_tmp;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* length */
initial switch to libl
2023-04-02 22:16:43 +02:00
int n; obj l = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14303_tmp = (n); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14303_tmp);
initial switch to libl
2023-04-02 22:16:43 +02:00
hreserve(hbsz(3)*c, 6); /* 6 live regs */
l = r[2]; /* gc-safe */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
*--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }
r[6] = (o); } }
initial switch to libl
2023-04-02 22:16:43 +02:00
r[7+0] = (cx__25append);
pc = objptr_from_obj(r[7+0])[0];
r[7+1] = r[5];
r[7+2] = r[6];
r[7+3] = r[1];
r += 7; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 135: /* clo ek r */
initial switch to libl
2023-04-02 22:16:43 +02: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 lids */
if (bool_from_obj(cxs_list1_3F((r[1])))) {
r[4] = (car((r[1])));
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} else {
new integrable model, part II
2023-03-19 00:13:38 +01:00
{ /* cons */
initial switch to libl
2023-04-02 22:16:43 +02:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (mksymbol(internsym("begin")));
new integrable model, part II
2023-03-19 00:13:38 +01:00
*--hp = obj_from_size(PAIR_BTAG);
initial switch to libl
2023-04-02 22:16:43 +02:00
r[4] = (hendblk(3)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
if ((isnull((r[3])))) {
new integrable model, part II
2023-03-19 00:13:38 +01:00
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
initial switch to libl
2023-04-02 22:16:43 +02:00
r[2] = r[4];
new integrable model, part II
2023-03-19 00:13:38 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} else {
initial switch to libl
2023-04-02 22:16:43 +02:00
hreserve(hbsz(3+1), 5); /* 5 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
initial switch to libl
2023-04-02 22:16:43 +02:00
*--hp = r[4];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(137);
initial switch to libl
2023-04-02 22:16:43 +02:00
r[5] = (hendblk(3+1));
r[0] = r[5];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = r[3];
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v13292;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
new integrable model, part II
2023-03-19 00:13:38 +01:00
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v13292: /* k l */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
if ((ispair((r[1])))) {
r[2] = (cdr((r[1])));
hreserve(hbsz(1+1), 3); /* 3 live regs */
*--hp = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(136);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(1+1));
r[0] = r[3];
r[1] = r[2];
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v13292;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
light refactoring of the expander
2023-03-01 23:36:24 +01:00
rreserve(MAX_HOSTREGS);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
rc = 3;
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 136: /* clo ek r */
light refactoring of the expander
2023-03-01 23:36:24 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+2] = p[1]; }
light refactoring of the expander
2023-03-01 23:36:24 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r k */
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[1];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = (cx__231135);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
light refactoring of the expander
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();
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4+2] = r[3];
light refactoring of the expander
2023-03-01 23:36:24 +01:00
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 137: /* clo ek r */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
assert(rc == 3);
initial commit
2023-02-28 06:31:08 +01:00
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+3] = p[2];
r[1+4] = p[3]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r lids xexp k */
{ /* cons */
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = (mknull());
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
*--hp = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[5] = (hendblk(3)); }
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14302_tmp;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* length */
int n; obj l = r[2];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14302_tmp = (n); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14302_tmp);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 138: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* 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)); }
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
r[10+0] = r[2];
pc = objptr_from_obj(r[10+0])[0];
r[10+1] = r[7];
r[10+2] = (cdr((r[6])));
r[10+3] = (cdr((r[5])));
r[10+4] = (cdr((r[4])));
r[10+5] = r[9];
r[10+6] = r[3];
r += 10; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 7;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 139: /* clo ek r */
support for var-less define; define-values & friends
2023-03-24 19:16: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+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])));
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 7;
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
goto jump;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 140: /* clo ek r */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r env loop lids sets nids inits ids k */
hreserve(hbsz(8+1), 10); /* 10 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[9];
*--hp = r[8];
*--hp = r[7];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[6];
*--hp = r[5];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[4];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(141);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
goto gs_xform;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 141: /* clo ek r */
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02: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 */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
(void)(boxref((r[9])) = (r[1]));
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02: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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 142: /* xform-begin k tail env */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02: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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(145);
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
r[3] = (hendblk(1+1));
r[0] = r[3];
/* r[1] */
/* r[2] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v13232;
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
} else {
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("begin!")));
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
r[4+0] = (cx_x_2Derror);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[4+2] = (cx__231051);
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
r[4+3] = r[3];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
}
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v13232: /* k l env */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02: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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(143);
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02:00
r[4] = (hendblk(3+1));
r[0] = r[4];
r[1] = r[3];
/* r[2] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v13232;
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02: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;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 143: /* clo ek r */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02: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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(144);
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02: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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 144: /* clo ek r */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02: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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 145: /* clo ek r */
minor k.sf/t.scm refactoring
2023-04-14 20:49:32 +02: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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 146: /* xform-define k tail env */
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_xform_2Ddefine: /* k tail env */
if (bool_from_obj(cxs_list2_3F((r[1])))) {
r[3] = (car((r[1])));
r[3] = obj_from_bool(isnull((r[3])));
} else {
r[3] = obj_from_bool(0);
}
if (bool_from_obj(r[3])) {
r[3] = (cdr((r[1])));
r[3] = (car((r[3])));
r[4+0] = r[0];
r[4+1] = obj_from_bool(0);
r[4+2] = r[3];
r[4+3] = r[2];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_xform;
} else {
if (bool_from_obj(cxs_list2_3F((r[1])))) {
r[3] = (car((r[1])));
r[3] = (cxs_id_3F((r[3])));
} else {
r[3] = obj_from_bool(0);
}
if (bool_from_obj(r[3])) {
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[0];
*--hp = r[1];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(147);
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
r[3] = (hendblk(2+1));
r[4] = (cdr((r[1])));
r[4] = (car((r[4])));
r[5+0] = r[3];
r[5+1] = obj_from_bool(0);
r[5+2] = r[4];
r[5+3] = r[2];
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_xform;
} else {
hreserve(hbsz(3+1), 3); /* 3 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(149);
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
r[3] = (hendblk(3+1));
if (bool_from_obj(cxs_list2_2B_3F((r[1])))) {
r[4] = (car((r[1])));
r[4] = obj_from_bool(ispair((r[4])));
if (bool_from_obj(r[4])) {
r[4] = (car((r[1])));
r[4] = (car((r[4])));
r[4] = (cxs_id_3F((r[4])));
if (bool_from_obj(r[4])) {
r[4] = (car((r[1])));
r[4] = (cdr((r[4])));
r[0] = r[3];
r[1] = r[4];
goto gs_idslist_3F;
} else {
r[4+0] = obj_from_ktrap();
r[4+1] = obj_from_bool(0);
r[4+2] = r[2];
r[4+3] = r[1];
r[4+4] = r[0];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v13189;
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
}
} else {
r[4+0] = obj_from_ktrap();
r[4+1] = obj_from_bool(0);
r[4+2] = r[2];
r[4+3] = r[1];
r[4+4] = r[0];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v13189;
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
}
} else {
r[4+0] = obj_from_ktrap();
r[4+1] = obj_from_bool(0);
r[4+2] = r[2];
r[4+3] = r[1];
r[4+4] = r[0];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v13189;
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
}
}
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 147: /* clo ek r */
syntax-rules form built-in
2023-04-14 00:31:20 +02: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 tail k */
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = (mknull());
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[4] = (hendblk(3)); }
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(148);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[5] = (hendblk(2+1));
r[0] = r[5];
r[1] = (car((r[2])));
goto gs_id_2D_3Esym;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 148: /* clo ek r */
syntax-rules form built-in
2023-04-14 00:31:20 +02: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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 149: /* clo ek r */
syntax-rules form built-in
2023-04-14 00:31:20 +02: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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v13189: /* ek r env tail k */
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
if (bool_from_obj(r[1])) {
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(150);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[5] = (hendblk(2+1));
r[6] = (cdr((r[3])));
r[7] = (car((r[3])));
r[7] = (cdr((r[7])));
{ /* cons */
hreserve(hbsz(3), 8); /* 8 live regs */
*--hp = r[6];
*--hp = r[7];
*--hp = obj_from_size(PAIR_BTAG);
r[6] = (hendblk(3)); }
r[0] = r[5];
r[1] = r[6];
/* r[2] */
goto gs_xform_2Dlambda;
} else {
{ /* cons */
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("define")));
*--hp = obj_from_size(PAIR_BTAG);
r[5] = (hendblk(3)); }
r[0] = (cx_x_2Derror);
pc = objptr_from_obj(r[0])[0];
r[1] = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[2] = (cx__23989);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[3] = r[5];
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 150: /* clo ek r */
syntax-rules form built-in
2023-04-14 00:31:20 +02: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 tail k */
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = (mknull());
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[4] = (hendblk(3)); }
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(151);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[5] = (hendblk(2+1));
r[6] = (car((r[2])));
r[6] = (car((r[6])));
r[0] = r[5];
r[1] = r[6];
goto gs_id_2D_3Esym;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 151: /* clo ek r */
syntax-rules form built-in
2023-04-14 00:31:20 +02: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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 152: /* xform-define-syntax k tail env */
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_xform_2Ddefine_2Dsyntax: /* k tail env */
if (bool_from_obj(cxs_list2_3F((r[1])))) {
r[3] = (car((r[1])));
r[3] = (cxs_id_3F((r[3])));
} else {
r[3] = obj_from_bool(0);
}
if (bool_from_obj(r[3])) {
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[0];
*--hp = r[1];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(153);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[3] = (hendblk(2+1));
r[4] = (cdr((r[1])));
r[4] = (car((r[4])));
r[5+0] = r[3];
r[5+1] = obj_from_bool(1);
r[5+2] = r[4];
r[5+3] = r[2];
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_xform;
} else {
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[1];
*--hp = (mksymbol(internsym("define-syntax")));
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
r[4+0] = (cx_x_2Derror);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[4+2] = (cx__23969);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[4+3] = r[3];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 153: /* clo ek r */
syntax-rules form built-in
2023-04-14 00:31:20 +02: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 tail k */
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = (mknull());
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[4] = (hendblk(3)); }
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(154);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[5] = (hendblk(2+1));
r[0] = r[5];
r[1] = (car((r[2])));
goto gs_id_2D_3Esym;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 154: /* clo ek r */
syntax-rules form built-in
2023-04-14 00:31:20 +02: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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 155: /* xform-syntax-lambda k tail env */
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_xform_2Dsyntax_2Dlambda: /* k tail env */
hreserve(hbsz(3+1), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[2];
*--hp = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(156);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[3] = (hendblk(3+1));
if (bool_from_obj(cxs_list2_2B_3F((r[1])))) {
hreserve(hbsz(0+1), 4); /* 4 live regs */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(162);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[4] = (hendblk(0+1));
r[5+0] = r[3];
r[5+1] = r[4];
r[5+2] = (car((r[1])));
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_andmap;
} else {
r[4+0] = obj_from_ktrap();
r[4+1] = obj_from_bool(0);
r[4+2] = r[0];
r[4+3] = r[2];
r[4+4] = r[1];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v13120;
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 156: /* clo ek r */
syntax-rules form built-in
2023-04-14 00:31:20 +02: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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v13120: /* ek r k env tail */
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
if (bool_from_obj(r[1])) {
r[5] = (car((r[4])));
r[6] = (cdr((r[4])));
hreserve(hbsz(3+1), 7); /* 7 live regs */
*--hp = r[5];
*--hp = r[3];
*--hp = r[6];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(157);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[5] = (hendblk(3+1));
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[5];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
{ /* cons */
hreserve(hbsz(3), 5); /* 5 live regs */
*--hp = r[4];
*--hp = (mksymbol(internsym("syntax-lambda")));
*--hp = obj_from_size(PAIR_BTAG);
r[5] = (hendblk(3)); }
r[0] = (cx_x_2Derror);
pc = objptr_from_obj(r[0])[0];
r[1] = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[2] = (cx__231249);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[3] = r[5];
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 157: /* clo k use useenv */
syntax-rules form built-in
2023-04-14 00:31:20 +02: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; /* shift reg. wnd */
/* k use useenv forms env vars */
if (bool_from_obj(cxs_list1_2B_3F((r[1])))) {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14301_tmp;
{ fixnum_t v14300_tmp;
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
{ /* length */
int n; obj l = r[5];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14301_tmp = (n); }
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[6] = (cdr((r[1])));
{ /* length */
int n; obj l = r[6];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14300_tmp = (n); }
r[6] = obj_from_bool((v14301_tmp) == (v14300_tmp)); } }
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
} else {
r[6] = obj_from_bool(0);
}
if (bool_from_obj(r[6])) {
r[6] = (cdr((r[1])));
r[7+0] = r[0];
r[7+1] = r[5];
r[7+2] = r[6];
r[7+3] = r[4];
r[7+4] = r[2];
r[7+5] = r[3];
r += 7; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v13123;
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
} else {
r[6+0] = (cx_x_2Derror);
pc = objptr_from_obj(r[6+0])[0];
r[6+1] = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[6+2] = (cx__231257);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[6+3] = r[1];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 158: /* clo k vars exps env */
syntax-rules form built-in
2023-04-14 00:31:20 +02: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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v13123: /* k vars exps env useenv forms */
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
if ((isnull((r[1])))) {
hreserve(hbsz(1+1), 6); /* 6 live regs */
*--hp = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(159);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[6] = (hendblk(1+1));
r[0] = r[6];
r[1] = r[5];
r[2] = r[3];
goto gs_xform_2Dbody;
} else {
hreserve(hbsz(2+1), 6); /* 6 live regs */
*--hp = r[5];
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(158);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[6] = (hendblk(2+1));
hreserve(hbsz(5+1), 7); /* 7 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = r[2];
*--hp = r[6];
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(160);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[6] = (hendblk(5+1));
r[0] = r[6];
r[1] = obj_from_bool(1);
r[2] = (car((r[2])));
r[3] = r[4];
goto gs_xform;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 159: /* clo ek r */
syntax-rules form built-in
2023-04-14 00:31:20 +02: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];
*root-name-registry* introduced
2024-07-07 03:03:12 +02:00
*--hp = (mksymbol(internsym("syntax-quote")));
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
*--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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 160: /* clo ek r */
syntax-rules form built-in
2023-04-14 00:31:20 +02: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 env loop exps vars k */
hreserve(hbsz(4+1), 7); /* 7 live regs */
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(161);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[7] = (hendblk(4+1));
r[8+0] = r[7];
r[8+1] = (car((r[5])));
r[8+2] = r[1];
r[8+3] = r[2];
r += 8; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
goto gs_add_2Dlocation;
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 161: /* clo ek r */
syntax-rules form built-in
2023-04-14 00:31:20 +02: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 loop exps vars k */
r[6+0] = r[2];
pc = objptr_from_obj(r[6+0])[0];
r[6+1] = r[5];
r[6+2] = (cdr((r[4])));
r[6+3] = (cdr((r[3])));
r[6+4] = r[1];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 162: /* clo k x */
syntax-rules form built-in
2023-04-14 00:31:20 +02: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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 163: /* xform-syntax-rules k tail env */
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_xform_2Dsyntax_2Drules: /* k tail env */
hreserve(hbsz(3+1), 3); /* 3 live regs */
*--hp = r[0];
*--hp = r[2];
*--hp = r[1];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(164);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[3] = (hendblk(3+1));
if (bool_from_obj(cxs_list2_2B_3F((r[1])))) {
r[4] = (car((r[1])));
r[4] = (cxs_id_3F((r[4])));
if (bool_from_obj(r[4])) {
hreserve(hbsz(0+1), 4); /* 4 live regs */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(167);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[4] = (hendblk(0+1));
r[5] = (cdr((r[1])));
r[5] = (car((r[5])));
r[6+0] = r[3];
r[6+1] = r[4];
r[6+2] = r[5];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_andmap;
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
} else {
r[4+0] = obj_from_ktrap();
r[4+1] = obj_from_bool(0);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[4+2] = r[1];
r[4+3] = r[2];
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
r[4+4] = r[0];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v13088;
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
}
} else {
r[4+0] = obj_from_ktrap();
r[4+1] = obj_from_bool(0);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[4+2] = r[1];
r[4+3] = r[2];
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
r[4+4] = r[0];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v13088;
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 164: /* clo ek r */
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[1+3] = p[2];
r[1+4] = p[3]; }
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v13088: /* ek r tail env k */
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
if (bool_from_obj(r[1])) {
r[5] = (cdr((r[2])));
r[5] = (car((r[5])));
r[6] = (cdr((r[2])));
r[6] = (cdr((r[6])));
r[7+0] = r[4];
r[7+1] = r[3];
r[7+2] = (car((r[2])));
r[7+3] = r[5];
r[7+4] = r[6];
r += 7; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_syntax_2Drules_2A;
} else {
hreserve(hbsz(3+1), 5); /* 5 live regs */
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
*--hp = r[4];
*--hp = r[3];
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
*--hp = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(165);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[5] = (hendblk(3+1));
if (bool_from_obj(cxs_list1_2B_3F((r[2])))) {
hreserve(hbsz(0+1), 6); /* 6 live regs */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(166);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[6] = (hendblk(0+1));
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
r[0] = r[5];
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[1] = r[6];
r[2] = (car((r[2])));
goto gs_andmap;
} else {
r[0] = obj_from_ktrap();
r[1] = obj_from_bool(0);
/* r[2] */
/* r[3] */
/* r[4] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v13096;
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
}
}
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 165: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+2] = p[1];
r[1+3] = p[2];
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
r[1+4] = p[3]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v13096: /* ek r tail env k */
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
if (bool_from_obj(r[1])) {
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[5+0] = r[4];
r[5+1] = r[3];
r[5+2] = obj_from_bool(0);
r[5+3] = (car((r[2])));
r[5+4] = (cdr((r[2])));
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_syntax_2Drules_2A;
initial commit
2023-02-28 06:31:08 +01:00
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* cons */
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
hreserve(hbsz(3), 5); /* 5 live regs */
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
*--hp = r[2];
*--hp = (mksymbol(internsym("syntax-rules")));
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_size(PAIR_BTAG);
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
r[5] = (hendblk(3)); }
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[6+0] = (cx_x_2Derror);
pc = objptr_from_obj(r[6+0])[0];
r[6+1] = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[6+2] = (cx__231283);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[6+3] = r[5];
r += 6; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 4;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 166: /* clo k x */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
r += 1; /* shift reg. wnd */
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
/* 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;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 167: /* clo k x */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 3);
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
/* 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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 168: /* xform-syntax-length k tail env */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 4);
r += 1; /* shift reg. wnd */
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
gs_xform_2Dsyntax_2Dlength: /* k tail env */
if (bool_from_obj(cxs_list1_3F((r[1])))) {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (car((r[1])));
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[3] = obj_from_bool(islist((r[3])));
initial commit
2023-02-28 06:31:08 +01:00
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = obj_from_bool(0);
initial commit
2023-02-28 06:31:08 +01:00
}
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
if (bool_from_obj(r[3])) {
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[3] = (car((r[1])));
{ /* length */
int n; obj l = r[3];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
r[3] = obj_from_fixnum(n); }
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = (mknull());
*--hp = r[3];
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
*--hp = (mksymbol(internsym("quote")));
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
r[4+0] = r[0];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = obj_from_ktrap();
r[4+2] = r[3];
r += 4; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
rc = 3;
goto jump;
initial commit
2023-02-28 06:31:08 +01:00
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[1];
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
*--hp = (mksymbol(internsym("syntax-length")));
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
r[4+0] = (cx_x_2Derror);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[4+2] = (cx__231303);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4+3] = r[3];
r += 4; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
rc = 4;
goto jump;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 169: /* xform-syntax-error k tail env */
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_xform_2Dsyntax_2Derror: /* k tail env */
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[0];
*--hp = r[1];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(172);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[3] = (hendblk(2+1));
r[0] = r[3];
/* r[1] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v13048;
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v13048: /* k l */
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
if ((ispair((r[1])))) {
r[2] = (cdr((r[1])));
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[0];
*--hp = r[1];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(170);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[3] = (hendblk(2+1));
r[0] = r[3];
r[1] = r[2];
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v13048;
syntax-rules form built-in
2023-04-14 00:31:20 +02: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;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 170: /* clo ek r */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
/* ek r l k */
hreserve(hbsz(2+1), 4); /* 4 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(171);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[4] = (hendblk(2+1));
r[0] = r[4];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (car((r[2])));
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
goto gs_xform_2Dsexp_2D_3Edatum;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 171: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+3] = p[2]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r k r */
initial commit
2023-02-28 06:31:08 +01:00
{ /* cons */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[4] = (hendblk(3)); }
syntax-rules form built-in
2023-04-14 00:31:20 +02: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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 172: /* clo ek r */
syntax-rules form built-in
2023-04-14 00:31:20 +02: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 tail k */
if (bool_from_obj(cxs_list1_2B_3F((r[1])))) {
r[4] = (car((r[1])));
r[4] = obj_from_bool(isstring((r[4])));
} else {
r[4] = obj_from_bool(0);
}
if (bool_from_obj(r[4])) {
r[4+0] = (cx_apply);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[3];
r[4+2] = (cx_x_2Derror);
r[4+3] = r[1];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* cons */
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[2];
*--hp = (mksymbol(internsym("syntax-error")));
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[4] = (hendblk(3)); }
r[5+0] = (cx_x_2Derror);
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[5+2] = (cx__231328);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
r[5+3] = r[4];
r += 5; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
rc = 4;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
}
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 173: /* top-transformer-env k id */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
gs_top_2Dtransformer_2Denv: /* k id */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
hreserve(hbsz(2+1), 2); /* 2 live regs */
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(174);
r[2] = (hendblk(2+1));
if (bool_from_obj(cx__2Atop_2Dtransformer_2Denv_2A)) {
r[3+0] = obj_from_ktrap();
r[3+1] = ((0) ? obj_from_bool(0) : obj_from_void(0));
r[3+2] = r[0];
r[3+3] = r[1];
r += 3; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v13019;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
} else {
hreserve(hbsz(1+1), 3); /* 3 live regs */
*--hp = r[2];
*--hp = obj_from_case(180);
r[3] = (hendblk(1+1));
r[0] = r[3];
r[1] = (cx__2Atransformers_2A);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v12995;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
}
case 174: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v13019: /* ek . k id */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
if ((isprocedure((r[3])))) {
hreserve(hbsz(1+1), 4); /* 4 live regs */
*--hp = r[2];
*--hp = obj_from_case(175);
r[4] = (hendblk(1+1));
r[0] = r[3];
pc = objptr_from_obj(r[0])[0];
r[1] = r[4];
rreserve(MAX_HOSTREGS);
rc = 2;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} else {
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
{ /* assq */
obj x = (r[3]), l = (cx__2Atop_2Dtransformer_2Denv_2A), p = mknull();
for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
r[4] = (l == mknull() ? obj_from_bool(0) : p); }
if (bool_from_obj(r[4])) {
r[0] = r[2];
initial commit
2023-02-28 06:31:08 +01:00
pc = objptr_from_obj(r[0])[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = obj_from_ktrap();
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[2] = (cdr((r[4])));
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 3;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* define lookup-integrable */
static obj c[] = { obj_from_objptr(vmcases+9) };
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[5] = obj_from_objptr(c); }
hreserve(hbsz(2+1), 6); /* 6 live regs */
*--hp = r[3];
*--hp = r[2];
*--hp = obj_from_case(176);
r[6] = (hendblk(2+1));
r[0] = r[5];
pc = objptr_from_obj(r[0])[0];
r[1] = r[6];
r[2] = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
initial commit
2023-02-28 06:31:08 +01:00
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 175: /* clo ek r */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 3);
initial commit
2023-02-28 06:31:08 +01:00
{ obj* p = objptr_from_obj(r[0]);
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[1+2] = p[1]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
bindings replaced with locations!
2023-04-16 03:03:39 +02: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] = (cdr((r[1])));
r += 3; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 176: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+3] = p[2]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r k id */
initial commit
2023-02-28 06:31:08 +01:00
if (bool_from_obj(r[1])) {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = r[1];
initial commit
2023-02-28 06:31:08 +01:00
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* 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)); }
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
{ /* box */
hreserve(hbsz(2), 5); /* 5 live regs */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_size(BOX_BTAG);
r[5] = (hendblk(2)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* cons */
hreserve(hbsz(3), 6); /* 6 live regs */
*--hp = r[5];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = obj_from_size(PAIR_BTAG);
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[6] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 7); /* 7 live regs */
*--hp = (cx__2Atop_2Dtransformer_2Denv_2A);
*--hp = r[6];
*--hp = obj_from_size(PAIR_BTAG);
cx__2Atop_2Dtransformer_2Denv_2A = (hendblk(3)); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[6] = r[5];
initial commit
2023-02-28 06:31:08 +01:00
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = obj_from_ktrap();
r[2] = r[6];
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v12995: /* k l */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
if ((ispair((r[1])))) {
r[2] = (cdr((r[1])));
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[0];
*--hp = obj_from_case(177);
r[3] = (hendblk(2+1));
r[0] = r[3];
r[1] = r[2];
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v12995;
bindings replaced with locations!
2023-04-16 03:03:39 +02: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;
}
case 177: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r k l */
r[4] = (car((r[3])));
r[5] = (cdr((r[4])));
hreserve(hbsz(1), 6); /* 6 live regs */
*--hp = r[5];
r[6] = (hendblk(1));
hreserve(hbsz(4+1), 7); /* 7 live regs */
*--hp = r[6];
*--hp = r[4];
*--hp = r[1];
*--hp = r[2];
*--hp = obj_from_case(178);
r[7] = (hendblk(4+1));
r[8] = (objptr_from_obj(r[6])[0]);
r[8] = obj_from_bool(ispair((r[8])));
if (bool_from_obj(r[8])) {
r[8] = (objptr_from_obj(r[6])[0]);
r[8] = (car((r[8])));
r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("syntax-rules"))));
} else {
r[8] = obj_from_bool(0);
}
if (bool_from_obj(r[8])) {
hreserve(hbsz(2+1), 8); /* 8 live regs */
*--hp = r[6];
*--hp = r[7];
*--hp = obj_from_case(179);
r[8] = (hendblk(2+1));
r[9] = (objptr_from_obj(r[6])[0]);
r[10] = (cdr((r[9])));
r[9] = (car((r[10])));
r[9] = (cxs_id_3F((r[9])));
if (bool_from_obj(r[9])) {
r[9] = (objptr_from_obj(r[6])[0]);
r[10] = (cdr((r[9])));
r[9] = (car((r[10])));
r[10] = (objptr_from_obj(r[6])[0]);
r[11] = (cdr((r[10])));
r[11] = (cdr((r[11])));
r[10] = (car((r[11])));
r[11] = (objptr_from_obj(r[6])[0]);
r[12] = (cdr((r[11])));
r[12] = (cdr((r[12])));
r[11] = (cdr((r[12])));
r[0] = r[8];
r[1] = (cx_top_2Dtransformer_2Denv);
r[2] = r[9];
r[3] = (r[10]);
r[4] = (r[11]);
goto gs_syntax_2Drules_2A;
} else {
r[9] = (objptr_from_obj(r[6])[0]);
r[10] = (cdr((r[9])));
r[9] = (car((r[10])));
r[10] = (objptr_from_obj(r[6])[0]);
r[11] = (cdr((r[10])));
r[10] = (cdr((r[11])));
r[0] = r[8];
r[1] = (cx_top_2Dtransformer_2Denv);
r[2] = obj_from_bool(0);
r[3] = r[9];
r[4] = (r[10]);
goto gs_syntax_2Drules_2A;
}
} else {
r[8+0] = obj_from_ktrap();
r[8+1] = obj_from_void(0);
r[8+2] = r[2];
r[8+3] = r[1];
r[8+4] = r[4];
r[8+5] = r[6];
r += 8; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v13005;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
}
case 178: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4]; }
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v13005: /* ek . k r bnd v */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[6] = (objptr_from_obj(r[5])[0]);
{ /* box */
hreserve(hbsz(2), 7); /* 7 live regs */
*--hp = r[6];
*--hp = obj_from_size(BOX_BTAG);
r[6] = (hendblk(2)); }
r[7] = (car((r[4])));
{ /* cons */
hreserve(hbsz(3), 8); /* 8 live regs */
*--hp = r[6];
*--hp = r[7];
*--hp = obj_from_size(PAIR_BTAG);
r[6] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 7); /* 7 live regs */
*--hp = r[3];
*--hp = r[6];
*--hp = obj_from_size(PAIR_BTAG);
r[7] = (hendblk(3)); }
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[7];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 179: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r k v */
r[4+0] = r[2];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = obj_from_ktrap();
r[4+2] = (objptr_from_obj(r[3])[0] = (r[1]));
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 180: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+2] = p[1]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r k */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
cx__2Atop_2Dtransformer_2Denv_2A = r[1];
r[3] = obj_from_void(0);
r[4+0] = r[2];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = obj_from_ktrap();
r[4+2] = r[3];
r += 4; /* shift reg wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 181: /* install-transformer! k s t */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k s t */
hreserve(hbsz(2+1), 3); /* 3 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(182);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(2+1));
r[0] = r[3];
/* r[1] */
goto gs_top_2Dtransformer_2Denv;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 182: /* clo ek r */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 t */
r[4+0] = r[2];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = obj_from_ktrap();
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[4+2] = obj_from_void(boxref((r[1])) = (r[3]));
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r += 4; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 183: /* clo k appos? sexp optenv */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 5);
r += 1; /* shift reg. wnd */
/* k appos? sexp optenv */
/* r[0] */
/* r[1] */
/* r[2] */
r[3] = ((isnull((r[3]))) ? (cx_top_2Dtransformer_2Denv) : (car((r[3]))));
goto gs_xform;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 184: /* syntax-rules* k mac-env ellipsis pat-literals rules */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(186);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[5] = (hendblk(2+1));
hreserve(hbsz(1+1), 6); /* 6 live regs */
*--hp = r[5];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(188);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[6] = (hendblk(1+1));
hreserve(hbsz(1+1), 7); /* 7 live regs */
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(185);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[7] = (hendblk(1+1));
hreserve(hbsz(6+1), 8); /* 8 live regs */
*--hp = r[4];
*--hp = r[6];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[5];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[7];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(195);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 185: /* clo k id */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+2] = p[1]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* 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;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 186: /* clo k x */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+3] = p[2]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* k x mac-env ellipsis */
if ((ispair((r[1])))) {
r[4] = (car((r[1])));
if (bool_from_obj(r[3])) {
/* r[0] */
initial commit
2023-02-28 06:31:08 +01:00
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = obj_from_bool((r[4]) == (r[3]));
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} else {
if (bool_from_obj(cxs_id_3F((r[4])))) {
hreserve(hbsz(1+1), 5); /* 5 live regs */
*--hp = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(187);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 187: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+2] = p[1]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r k */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[3] = (boxref((r[1])));
... form built-in
2023-04-14 17:34:47 +02:00
r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("..."))));
r[4+0] = r[2];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = obj_from_ktrap();
r[4+2] = r[3];
r += 4; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 3;
goto jump;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 188: /* clo k x include-scalars pred? */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 5);
initial commit
2023-02-28 06:31:08 +01:00
{ obj* p = objptr_from_obj(r[0]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+4] = p[1]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* 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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
goto s_collect;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 189: /* clo k x inc l */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 5);
initial commit
2023-02-28 06:31:08 +01:00
{ obj* p = objptr_from_obj(r[0]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+4] = p[1];
r[1+5] = p[2]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
s_collect: /* k x inc l ellipsis-pair? pred? */
hreserve(hbsz(2+1), 6); /* 6 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[5];
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(189);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[6] = (hendblk(2+1));
initial commit
2023-02-28 06:31:08 +01:00
if (bool_from_obj(cxs_id_3F((r[1])))) {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(3+1), 7); /* 7 live regs */
*--hp = r[1];
*--hp = r[3];
*--hp = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(190);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} 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);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v12914;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
initial commit
2023-02-28 06:31:08 +01:00
} else {
if ((isvector((r[1])))) {
initial switch to libl
2023-04-02 22:16:43 +02:00
hreserve(hbsz(4+1), 7); /* 7 live regs */
*--hp = r[0];
*--hp = r[2];
*--hp = r[3];
*--hp = r[6];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(191);
initial switch to libl
2023-04-02 22:16:43 +02:00
r[7] = (hendblk(4+1));
r[8+0] = (cx_vector_2D_3Elist);
pc = objptr_from_obj(r[8+0])[0];
r[8+1] = r[7];
r[8+2] = r[1];
r += 8; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
initial commit
2023-02-28 06:31:08 +01:00
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
if ((ispair((r[1])))) {
hreserve(hbsz(5+1), 7); /* 7 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
*--hp = r[6];
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(192);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[3];
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 3;
goto jump;
initial commit
2023-02-28 06:31:08 +01:00
}
}
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 190: /* clo ek r */
initial commit
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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+4] = p[3]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v12914: /* ek r k l x */
initial commit
2023-02-28 06:31:08 +01:00
if (bool_from_obj(r[1])) {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* cons */
hreserve(hbsz(3), 5); /* 5 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[4];
*--hp = obj_from_size(PAIR_BTAG);
r[5] = (hendblk(3)); }
r[0] = r[2];
initial commit
2023-02-28 06:31:08 +01:00
pc = objptr_from_obj(r[0])[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = obj_from_ktrap();
r[2] = r[5];
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
safer use of ... in syntax-rules
2023-03-18 21:07:10 +01:00
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = r[2];
safer use of ... in syntax-rules
2023-03-18 21:07:10 +01:00
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[2] = r[3];
safer use of ... in syntax-rules
2023-03-18 21:07:10 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 191: /* clo ek r */
initial switch to libl
2023-04-02 22:16:43 +02: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 l inc k */
r[6+0] = r[2];
pc = objptr_from_obj(r[6+0])[0];
r[6+1] = r[5];
r[6+2] = r[1];
r[6+3] = r[4];
r[6+4] = r[3];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 192: /* clo ek r */
initial commit
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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r l inc collect x k */
if (bool_from_obj(r[1])) {
hreserve(hbsz(3+1), 7); /* 7 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[6];
*--hp = r[5];
safer use of ... in syntax-rules
2023-03-18 21:07:10 +01:00
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(193);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
safer use of ... in syntax-rules
2023-03-18 21:07:10 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 5;
safer use of ... in syntax-rules
2023-03-18 21:07:10 +01:00
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} else {
hreserve(hbsz(4+1), 7); /* 7 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[6];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[5];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(194);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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;
safer use of ... in syntax-rules
2023-03-18 21:07:10 +01:00
}
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 193: /* clo ek r */
initial commit
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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* 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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 194: /* clo ek r */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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];
initial commit
2023-02-28 06:31:08 +01:00
pc = objptr_from_obj(r[6+0])[0];
r[6+1] = r[5];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[6+2] = (car((r[4])));
r[6+3] = r[3];
initial commit
2023-02-28 06:31:08 +01:00
r[6+4] = r[1];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 195: /* clo k use use-env */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v12564;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 196: /* clo k rules */
initial commit
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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v12564: /* k rules use-env pat-literals use mac-env not-pat-literal? ellipsis-pair? list-ids */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(196);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(197);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[9] = (hendblk(10+1));
if ((isnull((r[1])))) {
r[0] = (cx_x_2Derror);
pc = objptr_from_obj(r[0])[0];
r[1] = r[9];
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[2] = (cx__231785);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = r[4];
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} 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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(196);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v12566;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 197: /* clo ek . */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
safer use of ... in syntax-rules
2023-03-18 21:07:10 +01:00
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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]; }
safer use of ... in syntax-rules
2023-03-18 21:07:10 +01:00
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v12566: /* ek . use-env pat-literals use loop mac-env not-pat-literal? ellipsis-pair? list-ids k rules */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(198);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[15] = (hendblk(9+1));
hreserve(hbsz(8+1), 16); /* 16 live regs */
*--hp = (r[13]);
safer use of ... in syntax-rules
2023-03-18 21:07:10 +01:00
*--hp = r[4];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[3];
*--hp = r[6];
*--hp = r[2];
*--hp = r[7];
*--hp = r[9];
*--hp = r[8];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(224);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[16] = (hendblk(8+1));
r[0] = (cx_call_2Dwith_2Dcurrent_2Dcontinuation);
safer use of ... in syntax-rules
2023-03-18 21:07:10 +01:00
pc = objptr_from_obj(r[0])[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (r[15]);
r[2] = (r[16]);
safer use of ... in syntax-rules
2023-03-18 21:07:10 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 198: /* clo ek r */
safer use of ... in syntax-rules
2023-03-18 21:07:10 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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]; }
safer use of ... in syntax-rules
2023-03-18 21:07:10 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* 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];
safer use of ... in syntax-rules
2023-03-18 21:07:10 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[8];
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(199);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[13] = (hendblk(10+1));
hreserve(hbsz(1+1), 14); /* 14 live regs */
*--hp = r[1];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(223);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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])));
safer use of ... in syntax-rules
2023-03-18 21:07:10 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 199: /* clo ek r */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(204);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[12] = (hendblk(9+1));
r[0] = (r[12]);
/* r[1] */
/* r[2] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v12835;
safer use of ... in syntax-rules
2023-03-18 21:07:10 +01:00
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v12835: /* k l mac-env */
initial commit
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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(200);
initial commit
2023-02-28 06:31:08 +01:00
r[4] = (hendblk(3+1));
r[0] = r[4];
r[1] = r[3];
/* r[2] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v12835;
initial commit
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;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 200: /* clo ek r */
initial commit
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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r mac-env k l */
initial commit
2023-02-28 06:31:08 +01:00
r[5] = (car((r[4])));
procedure ids store their syms with dens
2023-04-16 00:08:08 +02:00
hreserve(hbsz(4+1), 6); /* 6 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[5];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
*--hp = r[3];
procedure ids store their syms with dens
2023-04-16 00:08:08 +02:00
*--hp = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(201);
procedure ids store their syms with dens
2023-04-16 00:08:08 +02:00
r[6] = (hendblk(4+1));
r[0] = r[6];
r[1] = r[5];
goto gs_id_2D_3Esym;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 201: /* clo ek r */
procedure ids store their syms with dens
2023-04-16 00:08:08 +02: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 k r id */
hreserve(hbsz(4+1), 6); /* 6 live regs */
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
*--hp = r[1];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(202);
procedure ids store their syms with dens
2023-04-16 00:08:08 +02:00
r[6] = (hendblk(4+1));
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[6];
r[2] = r[5];
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 202: /* clo ek r */
initial commit
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];
procedure ids store their syms with dens
2023-04-16 00:08:08 +02:00
r[1+4] = p[3];
r[1+5] = p[4]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
procedure ids store their syms with dens
2023-04-16 00:08:08 +02:00
/* ek r r k r id */
hreserve(hbsz(3+1), 6); /* 6 live regs */
*--hp = r[5];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[4];
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(203);
procedure ids store their syms with dens
2023-04-16 00:08:08 +02:00
r[6] = (hendblk(3+1));
r[7+0] = r[6];
r[7+1] = r[2];
r[7+2] = r[1];
r += 7; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
goto gs_new_2Did;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 203: /* clo ek r */
initial commit
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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r k r id */
{ /* cons */
hreserve(hbsz(3), 5); /* 5 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
*--hp = r[4];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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)); }
initial commit
2023-02-28 06:31:08 +01:00
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = obj_from_ktrap();
initial commit
2023-02-28 06:31:08 +01:00
r[2] = r[6];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 204: /* clo ek r */
initial commit
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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* 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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (r[10]);
*--hp = r[9];
*--hp = r[8];
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(205);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 5;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 205: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* 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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
goto s_expand;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 206: /* clo k tmpl bindings */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 4);
initial commit
2023-02-28 06:31:08 +01:00
{ obj* p = objptr_from_obj(r[0]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(206);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
goto s_expand_2Dpart;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 207: /* clo k tmpl */
initial commit
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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+8] = p[7]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
s_expand_2Dpart: /* k tmpl ellipsis-pair? list-ids ellipsis-vars expand new-literals r bindings */
hreserve(hbsz(7+1), 9); /* 9 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[8];
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(207);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[9] = (hendblk(7+1));
initial commit
2023-02-28 06:31:08 +01:00
if (bool_from_obj(cxs_id_3F((r[1])))) {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* 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]);
initial commit
2023-02-28 06:31:08 +01:00
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* 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]);
initial commit
2023-02-28 06:31:08 +01:00
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((isvector((r[1])))) {
initial switch to libl
2023-04-02 22:16:43 +02:00
hreserve(hbsz(2+1), 10); /* 10 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[0];
initial switch to libl
2023-04-02 22:16:43 +02:00
*--hp = r[9];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(208);
initial switch to libl
2023-04-02 22:16:43 +02:00
r[10] = (hendblk(2+1));
r[11+0] = (cx_vector_2D_3Elist);
pc = objptr_from_obj(r[11+0])[0];
r[11+1] = (r[10]);
r[11+2] = r[1];
r += 11; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} else {
hreserve(hbsz(7+1), 10); /* 10 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[5];
*--hp = r[0];
*--hp = r[9];
*--hp = r[8];
*--hp = r[4];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(210);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[10] = (hendblk(7+1));
if ((ispair((r[1])))) {
r[11+0] = r[2];
pc = objptr_from_obj(r[11+0])[0];
r[11+1] = (r[10]);
r[11+2] = (cdr((r[1])));
r += 11; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v12723;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
}
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 208: /* clo ek r */
initial switch to libl
2023-04-02 22:16:43 +02: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 expand-part k */
hreserve(hbsz(1+1), 4); /* 4 live regs */
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(209);
initial switch to libl
2023-04-02 22:16:43 +02:00
r[4] = (hendblk(1+1));
r[5+0] = r[2];
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = r[4];
r[5+2] = r[1];
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 209: /* clo ek r */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
initial switch to libl
2023-04-02 22:16:43 +02:00
r[3+0] = (cx_list_2D_3Evector);
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[2];
r[3+2] = r[1];
r += 3; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 210: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v12723: /* ek r list-ids ellipsis-vars bindings expand-part k expand tmpl */
initial commit
2023-02-28 06:31:08 +01:00
if (bool_from_obj(r[1])) {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(5+1), 9); /* 9 live regs */
*--hp = r[8];
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(211);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[9] = (hendblk(5+1));
hreserve(hbsz(1+1), 10); /* 10 live regs */
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(220);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 {
if ((ispair((r[8])))) {
hreserve(hbsz(3+1), 9); /* 9 live regs */
*--hp = r[6];
*--hp = r[8];
*--hp = r[5];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(221);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[9] = (hendblk(3+1));
r[0] = r[5];
initial commit
2023-02-28 06:31:08 +01:00
pc = objptr_from_obj(r[0])[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = r[9];
r[2] = (cdr((r[8])));
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[0] = r[6];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[8];
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 211: /* clo ek r */
initial commit
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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+5] = p[4];
r[1+6] = p[5]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* 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];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[5];
*--hp = r[1];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(212);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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]));
if ((isnull((r[1])))) {
hreserve(hbsz(3+1), 8); /* 8 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[4];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[6];
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(214);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[8] = (hendblk(3+1));
r[9] = (cdr((r[6])));
r[9] = (cdr((r[9])));
r[0] = r[3];
initial commit
2023-02-28 06:31:08 +01:00
pc = objptr_from_obj(r[0])[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = r[8];
r[2] = r[9];
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} else {
hreserve(hbsz(4+1), 8); /* 8 live regs */
*--hp = r[4];
*--hp = r[6];
*--hp = r[3];
*--hp = r[7];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(217);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[8] = (hendblk(4+1));
r[0] = r[8];
/* r[1] */
/* r[2] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v12762;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 212: /* clo k vals */
initial commit
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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* k vals r expand tmpl */
hreserve(hbsz(3+1), 5); /* 5 live regs */
*--hp = r[0];
*--hp = r[4];
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(213);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 5;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 213: /* clo ek r */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 3);
initial commit
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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+4] = p[3]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* 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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 4;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 214: /* clo ek r */
initial commit
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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+4] = p[3]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r expand-part tmpl k */
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[1];
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(215);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[5] = (hendblk(2+1));
initial commit
2023-02-28 06:31:08 +01:00
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = r[5];
r[2] = (car((r[3])));
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 215: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+3] = p[2]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r k r */
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v12762: /* k l bindings */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(216);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3+1));
r[0] = r[4];
r[1] = r[3];
/* r[2] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v12762;
initial commit
2023-02-28 06:31:08 +01:00
} else {
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (mknull());
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 3;
goto jump;
initial commit
2023-02-28 06:31:08 +01:00
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 216: /* clo ek r */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc == 3);
initial commit
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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+4] = p[3]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* 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];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[5];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 3;
goto jump;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 217: /* clo ek r */
initial commit
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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+5] = p[4]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r expand-using-vals expand-part tmpl k */
hreserve(hbsz(3+1), 6); /* 6 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(218);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[6] = (hendblk(3+1));
r[7] = (objptr_from_obj(r[2])[0]);
{ /* cons */
hreserve(hbsz(3), 8); /* 8 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 4;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 218: /* clo ek r */
initial commit
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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+4] = p[3]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r expand-part tmpl k */
hreserve(hbsz(2+1), 5); /* 5 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[4];
initial switch to libl
2023-04-02 22:16:43 +02:00
*--hp = r[1];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(219);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[5] = (hendblk(2+1));
r[6] = (cdr((r[3])));
r[6] = (cdr((r[6])));
initial commit
2023-02-28 06:31:08 +01:00
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = r[5];
r[2] = r[6];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 219: /* clo ek r */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
initial switch to libl
2023-04-02 22:16:43 +02:00
/* ek r r k */
r[4+0] = (cx__25append);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[3];
r[4+2] = r[2];
r[4+3] = r[1];
r += 4; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
initial switch to libl
2023-04-02 22:16:43 +02:00
rc = 4;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 220: /* clo k id */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+2] = p[1]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* 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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 221: /* clo ek r */
initial commit
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 */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r expand-part tmpl k */
initial commit
2023-02-28 06:31:08 +01:00
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[1];
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(222);
initial commit
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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 222: /* clo ek r */
initial commit
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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 223: /* clo k id */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 224: /* clo k return */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* 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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 225: /* clo k pat sexp bindings */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(225);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[11] = (hendblk(7+1));
hreserve(hbsz(2+1), 12); /* 12 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = (r[10]);
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(226);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(227);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v12689;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
} else {
{ /* cons */
hreserve(hbsz(3), 13); /* 13 live regs */
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[13] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 14); /* 14 live regs */
*--hp = r[3];
*--hp = (r[13]);
*--hp = obj_from_size(PAIR_BTAG);
r[13] = (hendblk(3)); }
r[14+0] = r[0];
pc = objptr_from_obj(r[14+0])[0];
r[14+1] = obj_from_ktrap();
r[14+2] = (r[13]);
r += 14; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
} else {
if ((isvector((r[1])))) {
hreserve(hbsz(5+1), 13); /* 13 live regs */
*--hp = r[0];
*--hp = r[3];
*--hp = (r[11]);
initial switch to libl
2023-04-02 22:16:43 +02:00
*--hp = r[2];
*--hp = r[1];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(229);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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])));
initial switch to libl
2023-04-02 22:16:43 +02:00
r[14+2] = r[1];
r[14+3] = r[2];
r[14+4] = (r[11]);
r[14+5] = r[3];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[14+6] = r[0];
r += 14; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v12659;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v12689;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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]);
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(232);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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;
}
}
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 226: /* clo k condition */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v12689: /* k condition return bindings */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 227: /* clo ek r */
initial commit
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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+5] = p[4]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r mac-env pat continue-if k */
hreserve(hbsz(3+1), 6); /* 6 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[5];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(228);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[6] = (hendblk(3+1));
r[0] = r[2];
initial commit
2023-02-28 06:31:08 +01:00
pc = objptr_from_obj(r[0])[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = r[6];
r[2] = r[3];
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 3;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 228: /* clo ek r */
initial commit
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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+4] = p[3]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r continue-if r k */
initial commit
2023-02-28 06:31:08 +01:00
r[5+0] = r[2];
pc = objptr_from_obj(r[5+0])[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[5+1] = r[4];
r[5+2] = obj_from_bool((r[3]) == (r[1]));
initial commit
2023-02-28 06:31:08 +01:00
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 229: /* clo ek . */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
initial commit
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];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+5] = p[4];
r[1+6] = p[5]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v12659: /* ek . pat sexp match bindings k */
initial switch to libl
2023-04-02 22:16:43 +02:00
hreserve(hbsz(4+1), 7); /* 7 live regs */
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(230);
initial switch to libl
2023-04-02 22:16:43 +02:00
r[7] = (hendblk(4+1));
r[0] = (cx_vector_2D_3Elist);
pc = objptr_from_obj(r[0])[0];
r[1] = r[7];
/* r[2] */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 230: /* clo ek r */
initial switch to libl
2023-04-02 22:16:43 +02: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 match bindings k */
hreserve(hbsz(4+1), 6); /* 6 live regs */
*--hp = r[5];
*--hp = r[1];
*--hp = r[4];
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(231);
initial switch to libl
2023-04-02 22:16:43 +02:00
r[6] = (hendblk(4+1));
r[0] = (cx_vector_2D_3Elist);
pc = objptr_from_obj(r[0])[0];
r[1] = r[6];
/* r[2] */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 231: /* clo ek r */
initial switch to libl
2023-04-02 22:16:43 +02: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 bindings r k */
r[6+0] = r[2];
pc = objptr_from_obj(r[6+0])[0];
r[6+1] = r[5];
r[6+2] = r[4];
r[6+3] = r[1];
r[6+4] = r[3];
r += 6; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 5;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 232: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
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]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* 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];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
*--hp = r[4];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[3];
*--hp = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(233);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v12579;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} else {
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1] = (r[11]);
r[2] = obj_from_bool(0);
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
rc = 3;
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
} 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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(244);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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];
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 5;
goto jump;
} else {
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[0] = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
pc = objptr_from_obj(r[0])[0];
r[1] = r[7];
r[2] = obj_from_bool(0);
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 3;
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
}
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 233: /* clo ek r */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
assert(rc == 3);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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]; }
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v12579: /* ek r return list-ids not-pat-literal? match bindings pat k sexp tail-len */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(9+1), 11); /* 11 live regs */
*--hp = (r[10]);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[9];
*--hp = r[8];
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(234);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[11] = (hendblk(9+1));
if (((fxsub(fixnum_from_obj(r[1]), fixnum_from_obj(r[10]))) < 0)) {
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[0] = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
pc = objptr_from_obj(r[0])[0];
r[1] = (r[11]);
r[2] = obj_from_bool(0);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 3;
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} 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);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v12581;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 234: /* clo ek . */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
{ obj* p = objptr_from_obj(r[0]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+2] = 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]; }
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v12581: /* ek . list-ids not-pat-literal? match bindings pat k sexp r tail-len */
{ const fixnum_t v14297_tail_2Dlen = fixnum_from_obj(r[10]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* list-tail */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l = r[8]; int c = (fxsub(fixnum_from_obj(r[9]), (v14297_tail_2Dlen)));
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
while (c-- > 0) l = cdr(l);
r[11] = (l); }
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14298_tmp;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* length */
int n; obj l = r[8];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14298_tmp = (n); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14298_tmp);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l = (r[12]); int c = (v14297_tail_2Dlen);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
while (c-- > 0) l = cdr(l);
r[12] = (l); }
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14299_tmp;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* length */
int n; obj l = (r[12]);
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14299_tmp = (n); }
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14299_tmp);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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]);
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(235);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 5;
goto jump; }
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 235: /* clo ek r */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
assert(rc == 3);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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]; }
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r seq match bindings r pat k */
hreserve(hbsz(6+1), 8); /* 8 live regs */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(241);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[8] = (hendblk(6+1));
r[0] = r[8];
r[1] = r[2];
r[2] = r[3];
r[3] = r[6];
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v12602;
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v12602: /* k l match pat */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(236);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[5] = (hendblk(4+1));
r[0] = r[5];
r[1] = r[4];
/* r[2] */
/* r[3] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v12602;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} else {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (mknull());
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 3;
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 236: /* clo ek r */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
assert(rc == 3);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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]; }
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r match pat k l */
r[6] = (car((r[5])));
r[7] = (cx__25residual_2Dcdr);
hreserve(hbsz(3+1), 8); /* 8 live regs */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[4];
*--hp = r[7];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(237);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[8] = (hendblk(3+1));
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[0] = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
pc = objptr_from_obj(r[0])[0];
r[1] = r[8];
r[2] = (car((r[3])));
r[3] = r[6];
r[4] = (mknull());
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 5;
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 237: /* clo ek r */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r f k r */
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(240);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[5] = (hendblk(2+1));
r[0] = r[5];
/* r[1] */
/* r[2] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v12613;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v12613: /* k l f */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(238);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (hendblk(3+1));
r[0] = r[4];
r[1] = r[3];
/* r[2] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v12613;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} else {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = (mknull());
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 3;
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
goto jump;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
}
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 238: /* clo ek r */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
assert(rc == 3);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3]; }
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r f l k */
hreserve(hbsz(2+1), 5); /* 5 live regs */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(239);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[5] = (hendblk(2+1));
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[0] = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
pc = objptr_from_obj(r[0])[0];
r[1] = r[5];
r[2] = (car((r[3])));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 239: /* clo ek r */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+2] = p[1];
r[1+3] = p[2]; }
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* 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 */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 3;
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 240: /* clo ek r */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
assert(rc == 3);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r k r */
{ /* cons */
hreserve(hbsz(3), 4); /* 4 live regs */
*--hp = r[3];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
*--hp = r[1];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--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;
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 241: /* clo ek r */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+2] = 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]; }
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* 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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(242);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
rreserve(MAX_HOSTREGS);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
rc = 4;
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 242: /* clo ek r */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
assert(rc == 3);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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]; }
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r += 1; /* shift reg. wnd */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
/* ek r match bindings r pat k */
hreserve(hbsz(2+1), 7); /* 7 live regs */
*--hp = r[6];
initial switch to libl
2023-04-02 22:16:43 +02:00
*--hp = r[1];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(243);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 243: /* clo ek r */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+2] = p[1];
r[1+3] = p[2]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
initial switch to libl
2023-04-02 22:16:43 +02:00
/* ek r r k */
r[4+0] = (cx__25append);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[3];
r[4+2] = r[2];
r[4+3] = r[1];
r += 4; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
initial switch to libl
2023-04-02 22:16:43 +02:00
rc = 4;
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
goto jump;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 244: /* clo ek r */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[1+2] = p[1];
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4]; }
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
syntax-rules form built-in
2023-04-14 00:31:20 +02:00
rc = 5;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 245: /* clo k msg args */
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
assert(rc == 4);
r += 1; /* shift reg. wnd */
/* k msg args */
{ /* string-append */
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
int *d = stringcat(stringdata((cx__231819)), stringdata((r[1])));
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
r[3] = (hpushstr(3, d)); }
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
/* r[0] */
r[1] = r[3];
/* r[2] */
goto gs_error_2A;
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 246: /* write-serialized-char k x port */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_write_2Dserialized_2Dchar: /* k x port */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ const char_t v14296_x = char_from_obj(r[1]);
if ((((v14296_x) == ('%')) || (((v14296_x) == (34)) || (((v14296_x) == (92)) || (((v14296_x) < (' ')) || ((v14296_x) > ('~'))))))) {
initial commit
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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(247);
initial commit
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];
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
r[4+2] = obj_from_fixnum((fixnum_t)(v14296_x));
initial commit
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();
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
r[2] = obj_from_void(oportputc((v14296_x), (r[2])));
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} }
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 247: /* clo ek r */
initial commit
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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 248: /* write-serialized-byte k x port */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 4);
r += 1; /* shift reg. wnd */
initial support for bytevectors
2023-03-26 19:20:33 +02:00
gs_write_2Dserialized_2Dbyte: /* k x port */
initial commit
2023-02-28 06:31:08 +01:00
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[2];
*--hp = r[0];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(249);
initial commit
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];
initial support for bytevectors
2023-03-26 19:20:33 +02:00
r[4+3] = obj_from_fixnum(+16);
initial commit
2023-02-28 06:31:08 +01:00
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 249: /* clo ek r */
initial support for bytevectors
2023-03-26 19:20:33 +02: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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 250: /* write-serialized-size k n port */
initial support for bytevectors
2023-03-26 19:20:33 +02: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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(251);
initial support for bytevectors
2023-03-26 19:20:33 +02: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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 251: /* clo ek r */
initial commit
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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 252: /* write-serialized-element k x port */
initial commit
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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(253);
initial commit
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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 253: /* clo ek . */
initial commit
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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 254: /* write-serialized-sexp k x port */
initial commit
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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(255);
initial commit
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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(256);
initial commit
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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(259);
initial commit
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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(261);
initial commit
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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(264);
initial commit
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 {
initial support for bytevectors
2023-03-26 19:20:33 +02:00
if ((isbytevector((r[1])))) {
(void)(oportputc(('b'), (r[2])));
hreserve(hbsz(3+1), 3); /* 3 live regs */
*--hp = r[2];
*--hp = r[0];
*--hp = r[1];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(267);
initial support for bytevectors
2023-03-26 19:20:33 +02: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(bytevectorlen((r[1])));
r[4+3] = obj_from_fixnum(+10);
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
initial commit
2023-02-28 06:31:08 +01:00
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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(270);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
} else {
if ((isbox((r[1])))) {
(void)(oportputc(('z'), (r[2])));
r[3] = (boxref((r[1])));
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[2];
*--hp = r[0];
*--hp = obj_from_case(273);
r[4] = (hendblk(2+1));
r[5+0] = (cx_write_2Dserialized_2Dsexp);
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = r[4];
r[5+2] = r[3];
r[5+3] = r[2];
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
initial commit
2023-02-28 06:31:08 +01:00
} else {
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
r[3+0] = (cx_c_2Derror);
initial commit
2023-02-28 06:31:08 +01:00
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[0];
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[3+2] = (cx__231854);
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
r[3+3] = r[1];
initial commit
2023-02-28 06:31:08 +01:00
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
rc = 4;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
}
}
}
}
}
}
}
}
}
}
initial support for bytevectors
2023-03-26 19:20:33 +02:00
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
}
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 255: /* clo ek r */
initial commit
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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 256: /* clo ek r */
initial commit
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];
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v12469;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 257: /* clo k x */
initial commit
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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v12469: /* k x port */
initial commit
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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(257);
initial commit
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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(258);
initial commit
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;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 258: /* clo ek . */
initial commit
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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 259: /* clo ek . */
initial commit
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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(260);
initial commit
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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 260: /* clo ek . */
initial commit
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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 261: /* clo ek r */
initial commit
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);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v12440;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 262: /* clo k i */
initial commit
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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v12440: /* k i port x */
initial commit
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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(262);
initial commit
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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(263);
initial commit
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;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 263: /* clo ek . */
initial commit
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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 264: /* clo ek r */
initial commit
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);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v12423;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 265: /* clo k i */
initial commit
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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v12423: /* k i port x */
initial commit
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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(265);
initial commit
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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(266);
initial commit
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;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 266: /* clo ek . */
initial support for bytevectors
2023-03-26 19:20:33 +02: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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 267: /* clo ek r */
initial support for bytevectors
2023-03-26 19:20:33 +02: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);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v12406;
initial support for bytevectors
2023-03-26 19:20:33 +02:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 268: /* clo k i */
initial support for bytevectors
2023-03-26 19:20:33 +02: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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v12406: /* k i port x */
initial support for bytevectors
2023-03-26 19:20:33 +02:00
if ((fixnum_from_obj(r[1]) == (bytevectorlen((r[3]))))) {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[3];
*--hp = r[2];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(268);
initial support for bytevectors
2023-03-26 19:20:33 +02:00
r[4] = (hendblk(2+1));
hreserve(hbsz(3+1), 5); /* 5 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = r[4];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(269);
initial support for bytevectors
2023-03-26 19:20:33 +02:00
r[4] = (hendblk(3+1));
r[0] = r[4];
r[1] = obj_from_fixnum(*bytevectorref((r[3]), fixnum_from_obj(r[1])));
/* r[2] */
goto gs_write_2Dserialized_2Dbyte;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 269: /* clo ek . */
initial commit
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;
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 270: /* clo ek r */
initial commit
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);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v12389;
initial commit
2023-02-28 06:31:08 +01:00
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 271: /* clo k i */
initial commit
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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v12389: /* k i port x */
initial commit
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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(271);
initial commit
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];
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
*--hp = obj_from_case(272);
initial commit
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;
}
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
case 272: /* clo ek . */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 273: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek . k port */
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_void(oportputc((';'), (r[3])));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 274: /* write-serialized-arg k arg port */
initial commit
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]))) {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ const fixnum_t v14295_arg = fixnum_from_obj(r[1]);
r[3] = obj_from_bool(((+0) <= (v14295_arg)) && ((v14295_arg) <= (+9))); }
initial commit
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])) {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ const char_t v14294_tmp = (*(unsigned char*)stringref((cx__231950), fixnum_from_obj(r[1])));
r[3] = obj_from_void(oportputc((v14294_tmp), (r[2]))); }
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(275);
initial commit
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;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 275: /* clo ek . */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 276: /* find-free* k x* b */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(277);
initial commit
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;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 277: /* clo ek r */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(278);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 278: /* clo ek r */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 279: /* find-free k x b */
initial commit
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 */
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(280);
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(281);
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(282);
support for (set& var) primitive (returns box)
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(284);
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(285);
lambda*/case-lambda: initial implementation
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(288);
initial commit
2023-02-28 06:31:08 +01:00
r[3] = (hendblk(1+1));
lambda*/case-lambda: initial implementation
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)); }
initial commit
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;
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(292);
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(294);
letcc/withcc support
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;
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(297);
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(302);
initial commit
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;
new integrable model, part II
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(303);
new integrable model, part II
2023-03-19 00:13:38 +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;
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(304);
initial commit
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;
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
} else {
r[3] = (car((r[1])));
r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("define"))));
if (bool_from_obj(r[3])) {
hreserve(hbsz(1+1), 3); /* 3 live regs */
*--hp = r[1];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(307);
support for var-less define; define-values & friends
2023-03-24 19:16:10 +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;
initial commit
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] = (mksymbol(internsym("record-case-miss")));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
}
}
}
}
}
}
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
}
letcc/withcc support
2023-03-10 23:30:41 +01:00
}
}
support for (set& var) primitive (returns box)
2023-03-12 21:54:44 +01:00
}
new integrable model, part II
2023-03-19 00:13:38 +01:00
}
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
}
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 280: /* clo k obj */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 281: /* clo k id */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 282: /* clo k id exp */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(283);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 283: /* clo ek r */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 284: /* clo k id */
support for (set& var) primitive (returns box)
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 285: /* clo k idsi exp */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(286);
initial commit
2023-02-28 06:31:08 +01:00
r[4] = (hendblk(3+1));
r[0] = r[4];
/* r[1] */
goto gs_flatten_2Didslist;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 286: /* clo ek r */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(287);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 287: /* clo ek r */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 288: /* clo k clauses */
lambda*/case-lambda: initial implementation
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(291);
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
r[4] = (hendblk(2+1));
r[0] = r[4];
/* r[1] */
r[2] = r[3];
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v12266;
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v12266: /* k l f */
lambda*/case-lambda: initial implementation
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(289);
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
r[4] = (hendblk(3+1));
r[0] = r[4];
r[1] = r[3];
/* r[2] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v12266;
lambda*/case-lambda: initial implementation
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;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 289: /* clo ek r */
lambda*/case-lambda: initial implementation
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(290);
lambda*/case-lambda: initial implementation
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 290: /* clo ek r */
lambda*/case-lambda: initial implementation
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 291: /* clo ek r */
letcc/withcc support
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 292: /* clo k kid exp */
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(293);
letcc/withcc support
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 293: /* clo ek r */
letcc/withcc support
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 294: /* clo k kexp exp */
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(295);
letcc/withcc support
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 295: /* clo ek r */
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(296);
letcc/withcc support
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 296: /* clo ek r */
lambda*/case-lambda: initial implementation
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 */
letcc/withcc support
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;
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 297: /* clo k test then else */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(298);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 298: /* clo ek r */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(299);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 299: /* clo ek r */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(300);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 300: /* clo ek r */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(301);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 301: /* clo ek r */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 302: /* clo k exps */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 303: /* clo k ig args */
new integrable model, part II
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; /* shift reg. wnd */
/* k ig args b */
/* r[0] */
r[1] = r[2];
r[2] = r[3];
goto gs_find_2Dfree_2A;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 304: /* clo k exp args */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(305);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 305: /* clo ek r */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(306);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 306: /* clo ek r */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 307: /* clo k tail */
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* k tail x */
r[3+0] = (cx_c_2Derror);
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[0];
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[3+2] = (cx__231971);
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
r[3+3] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 308: /* find-sets* k x* v */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(309);
initial commit
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;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 309: /* clo ek r */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(310);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 310: /* clo ek r */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 311: /* find-sets k x v */
initial commit
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 */
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(312);
initial commit
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 */
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(313);
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(314);
support for (set& var) primitive (returns box)
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(316);
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(317);
lambda*/case-lambda: initial implementation
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(320);
initial commit
2023-02-28 06:31:08 +01:00
r[3] = (hendblk(1+1));
lambda*/case-lambda: initial implementation
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)); }
initial commit
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;
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(324);
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(326);
letcc/withcc support
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;
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(329);
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(330);
new integrable model, part II
2023-03-19 00:13:38 +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("integrable"))));
if (bool_from_obj(r[3])) {
hreserve(hbsz(1+1), 3); /* 3 live regs */
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(335);
initial commit
2023-02-28 06:31:08 +01:00
r[3] = (hendblk(1+1));
new integrable model, part II
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)); }
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(336);
initial commit
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;
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
} else {
r[3] = (car((r[1])));
r[3] = obj_from_bool((r[3]) == (mksymbol(internsym("define"))));
if (bool_from_obj(r[3])) {
hreserve(hbsz(1+1), 3); /* 3 live regs */
*--hp = r[1];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(339);
support for var-less define; define-values & friends
2023-03-24 19:16:10 +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;
initial commit
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] = (mksymbol(internsym("record-case-miss")));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
}
}
}
}
}
}
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
}
letcc/withcc support
2023-03-10 23:30:41 +01:00
}
}
support for (set& var) primitive (returns box)
2023-03-12 21:54:44 +01:00
}
new integrable model, part II
2023-03-19 00:13:38 +01:00
}
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
}
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 312: /* clo k obj */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 313: /* clo k id */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 314: /* clo k id x */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(315);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 315: /* clo ek r */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 316: /* clo k id */
support for (set& var) primitive (returns box)
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 317: /* clo k idsi exp */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(318);
initial commit
2023-02-28 06:31:08 +01:00
r[4] = (hendblk(3+1));
r[0] = r[4];
/* r[1] */
goto gs_flatten_2Didslist;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 318: /* clo ek r */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(319);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 319: /* clo ek r */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 320: /* clo k clauses */
lambda*/case-lambda: initial implementation
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(323);
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
r[4] = (hendblk(2+1));
r[0] = r[4];
/* r[1] */
r[2] = r[3];
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v12049;
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v12049: /* k l f */
lambda*/case-lambda: initial implementation
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(321);
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
r[4] = (hendblk(3+1));
r[0] = r[4];
r[1] = r[3];
/* r[2] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v12049;
lambda*/case-lambda: initial implementation
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;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 321: /* clo ek r */
lambda*/case-lambda: initial implementation
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(322);
lambda*/case-lambda: initial implementation
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 322: /* clo ek r */
lambda*/case-lambda: initial implementation
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 323: /* clo ek r */
lambda*/case-lambda: initial implementation
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 324: /* clo k kid exp */
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(325);
letcc/withcc support
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 325: /* clo ek r */
letcc/withcc support
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 326: /* clo k kexp exp */
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(327);
letcc/withcc support
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 327: /* clo ek r */
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(328);
letcc/withcc support
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 328: /* clo ek r */
letcc/withcc support
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 329: /* clo k exps */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 330: /* clo k test then else */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(331);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 331: /* clo ek r */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(332);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 332: /* clo ek r */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(333);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 333: /* clo ek r */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(334);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 334: /* clo ek r */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 335: /* clo k ig args */
new integrable model, part II
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; /* shift reg. wnd */
/* k ig args v */
/* r[0] */
r[1] = r[2];
r[2] = r[3];
goto gs_find_2Dsets_2A;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 336: /* clo k exp args */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(337);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 337: /* clo ek r */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(338);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 338: /* clo ek r */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 339: /* clo k tail */
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* k tail x */
r[3+0] = (cx_c_2Derror);
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[0];
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[3+2] = (cx__231971);
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
r[3+3] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 340: /* codegen k x l f s g k port */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(341);
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(343);
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(347);
initial commit
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;
support for (set& var) primitive (returns box)
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(350);
support for (set& var) primitive (returns box)
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;
initial commit
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];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[4];
*--hp = r[5];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(352);
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(356);
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(360);
initial commit
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])));
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("lambda*"))));
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(376);
initial commit
2023-02-28 06:31:08 +01:00
r[8] = (hendblk(6+1));
letcc/withcc support
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)); }
initial commit
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])));
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("letcc"))));
initial commit
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];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[7];
fix in letcc compiler; call/cc redefined via letcc
2023-03-11 18:28:51 +01:00
*--hp = r[2];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[5];
*--hp = r[4];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(385);
initial commit
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;
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
} else {
r[8] = (car((r[1])));
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("withcc"))));
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
if (bool_from_obj(r[8])) {
letcc/withcc support
2023-03-10 23:30:41 +01:00
hreserve(hbsz(5+1), 8); /* 8 live regs */
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
*--hp = r[7];
*--hp = r[2];
*--hp = r[3];
*--hp = r[4];
*--hp = r[5];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(392);
new integrable model, part II
2023-03-19 00:13:38 +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("integrable"))));
if (bool_from_obj(r[8])) {
new integrable model, part IV (list ops &c.)
2023-03-19 19:52:49 +01:00
hreserve(hbsz(6+1), 8); /* 8 live regs */
*--hp = r[6];
new integrable model, part II
2023-03-19 00:13:38 +01:00
*--hp = r[7];
*--hp = r[2];
*--hp = r[3];
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
*--hp = r[4];
*--hp = r[5];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(397);
support for var-less define; define-values & friends
2023-03-24 19:16:10 +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[8] = (car((r[1])));
r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("call"))));
if (bool_from_obj(r[8])) {
hreserve(hbsz(6+1), 8); /* 8 live regs */
*--hp = r[6];
*--hp = r[3];
new integrable model, part II
2023-03-19 00:13:38 +01:00
*--hp = r[5];
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
*--hp = r[7];
initial switch to libl
2023-04-02 22:16:43 +02:00
*--hp = r[2];
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
*--hp = r[4];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(432);
new integrable model, part IV (list ops &c.)
2023-03-19 19:52:49 +01:00
r[8] = (hendblk(6+1));
new integrable model, part II
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)); }
lambda*/case-lambda: initial implementation
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;
initial commit
2023-02-28 06:31:08 +01:00
} else {
r[8] = (car((r[1])));
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
r[8] = obj_from_bool((r[8]) == (mksymbol(internsym("define"))));
initial commit
2023-02-28 06:31:08 +01:00
if (bool_from_obj(r[8])) {
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
hreserve(hbsz(1+1), 8); /* 8 live regs */
*--hp = r[1];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(453);
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
r[8] = (hendblk(1+1));
initial commit
2023-02-28 06:31:08 +01:00
{ /* make-improper-lambda */
hreserve(hbsz(3), 9); /* 9 live regs */
*--hp = r[8];
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
*--hp = obj_from_fixnum(+0);
initial commit
2023-02-28 06:31:08 +01:00
*--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;
}
}
}
}
}
}
}
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
}
letcc/withcc support
2023-03-10 23:30:41 +01:00
}
}
support for (set& var) primitive (returns box)
2023-03-12 21:54:44 +01:00
}
new integrable model, part II
2023-03-19 00:13:38 +01:00
}
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
}
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 341: /* clo k obj */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(342);
initial commit
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);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v11906;
initial commit
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);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v11906;
initial commit
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);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v11906;
letcc/withcc support
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;
}
}
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 342: /* clo ek . */
letcc/withcc support
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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v11906: /* ek . k port k */
letcc/withcc support
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;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 343: /* clo k id */
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(344);
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(345);
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(346);
letcc/withcc support
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;
}
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 344: /* clo ek . */
letcc/withcc support
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;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 345: /* clo ek . */
letcc/withcc support
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 346: /* clo ek . */
letcc/withcc support
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 347: /* clo k id x */
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(348);
letcc/withcc support
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 348: /* clo ek . */
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(349);
letcc/withcc support
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;
initial commit
2023-02-28 06:31:08 +01:00
} else {
letcc/withcc support
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];
initial commit
2023-02-28 06:31:08 +01:00
goto gs_write_2Dserialized_2Darg;
}
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 349: /* clo ek . */
support for (set& var) primitive (returns box)
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;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 350: /* clo k id */
support for (set& var) primitive (returns box)
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(351);
support for (set& var) primitive (returns box)
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;
}
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 351: /* clo ek . */
initial commit
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 */
letcc/withcc support
2023-03-10 23:30:41 +01:00
/* ek . k port k */
initial commit
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;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 352: /* clo k exps */
initial commit
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];
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[1+6] = p[5];
r[1+7] = p[6]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
letcc/withcc support
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];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[6];
*--hp = r[0];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(355);
letcc/withcc support
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);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v11832;
letcc/withcc support
2023-03-10 23:30:41 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 353: /* clo k xl */
letcc/withcc support
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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v11832: /* k xl port g s f l k */
letcc/withcc support
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);
initial commit
2023-02-28 06:31:08 +01:00
} else {
letcc/withcc support
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];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[3];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(353);
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[9] = (hendblk(6+1));
hreserve(hbsz(3+1), 10); /* 10 live regs */
*--hp = r[0];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[9];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(354);
letcc/withcc support
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;
initial commit
2023-02-28 06:31:08 +01:00
} else {
letcc/withcc support
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;
initial commit
2023-02-28 06:31:08 +01:00
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 354: /* clo ek . */
initial commit
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 */
letcc/withcc support
2023-03-10 23:30:41 +01:00
/* ek . loop xl k */
initial commit
2023-02-28 06:31:08 +01:00
r[0] = r[2];
letcc/withcc support
2023-03-10 23:30:41 +01:00
pc = objptr_from_obj(r[0])[0];
initial commit
2023-02-28 06:31:08 +01:00
r[1] = r[4];
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[2] = (cdr((r[3])));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 355: /* clo ek . */
letcc/withcc support
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];
initial commit
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();
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[2] = obj_from_void(0);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 356: /* clo k test then else */
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(357);
letcc/withcc support
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 357: /* clo ek . */
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(358);
letcc/withcc support
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 358: /* clo ek . */
letcc/withcc support
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 {
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[10] = obj_from_bool(isequal((r[6]), (cx__232787)));
letcc/withcc support
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]);
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(359);
letcc/withcc support
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];
initial commit
2023-02-28 06:31:08 +01:00
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
letcc/withcc support
2023-03-10 23:30:41 +01:00
}
}
}
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 359: /* clo ek . */
initial commit
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];
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[1+3] = p[2]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
letcc/withcc support
2023-03-10 23:30:41 +01:00
/* ek . k port */
initial commit
2023-02-28 06:31:08 +01:00
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[2] = obj_from_void(oportputc(('}'), (r[3])));
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 360: /* clo k idsi exp */
initial commit
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 */
letcc/withcc support
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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[8];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[7];
*--hp = r[0];
*--hp = r[2];
*--hp = r[6];
*--hp = r[5];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[4];
*--hp = r[3];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(361);
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[9] = (hendblk(9+1));
r[0] = r[9];
/* r[1] */
goto gs_flatten_2Didslist;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 361: /* clo ek r */
letcc/withcc support
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];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[7];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[6];
*--hp = r[5];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(362);
letcc/withcc support
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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
letcc/withcc support
2023-03-10 23:30:41 +01:00
goto gs_find_2Dfree;
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 362: /* clo ek r */
letcc/withcc support
2023-03-10 23:30:41 +01:00
assert(rc == 3);
initial commit
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];
letcc/withcc support
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]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
letcc/withcc support
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];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(363);
letcc/withcc support
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;
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 363: /* clo ek r */
letcc/withcc support
2023-03-10 23:30:41 +01:00
assert(rc == 3);
initial commit
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];
letcc/withcc support
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]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(364);
letcc/withcc support
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;
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 364: /* clo ek r */
initial commit
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];
letcc/withcc support
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]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
letcc/withcc support
2023-03-10 23:30:41 +01:00
/* ek r f l idsi s g r r exp k k port */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14293_tmp;
letcc/withcc support
2023-03-10 23:30:41 +01:00
{ /* length */
int n; obj l = r[7];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14293_tmp = (n); }
letcc/withcc support
2023-03-10 23:30:41 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14293_tmp);
letcc/withcc support
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];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[7];
*--hp = r[6];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[1];
*--hp = r[5];
*--hp = r[4];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(367);
letcc/withcc support
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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v11761;
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 365: /* clo k free l */
letcc/withcc support
2023-03-10 23:30:41 +01:00
assert(rc == 4);
initial commit
2023-02-28 06:31:08 +01:00
{ obj* p = objptr_from_obj(r[0]);
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[1+3] = p[1];
r[1+4] = p[2];
r[1+5] = p[3]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v11761: /* k free l g f port */
letcc/withcc support
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;
initial commit
2023-02-28 06:31:08 +01:00
} else {
letcc/withcc support
2023-03-10 23:30:41 +01:00
hreserve(hbsz(3+1), 6); /* 6 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(365);
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[6] = (hendblk(3+1));
hreserve(hbsz(5+1), 7); /* 7 live regs */
*--hp = r[5];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[0];
*--hp = r[1];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[2];
*--hp = r[6];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(366);
letcc/withcc support
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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
goto gs_codegen;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 366: /* clo ek . */
initial commit
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];
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[1+4] = p[3];
r[1+5] = p[4];
r[1+6] = p[5]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
letcc/withcc support
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)); }
initial commit
2023-02-28 06:31:08 +01:00
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[1] = r[5];
r[2] = (cdr((r[4])));
r[3] = r[7];
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
letcc/withcc support
2023-03-10 23:30:41 +01:00
rc = 4;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 367: /* clo ek . */
initial commit
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];
letcc/withcc support
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]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
letcc/withcc support
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]);
initial commit
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];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(368);
letcc/withcc support
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;
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 368: /* clo ek . */
initial commit
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];
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[1+10] = p[9];
r[1+11] = p[10]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
letcc/withcc support
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]);
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(369);
letcc/withcc support
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;
}
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 369: /* clo ek . */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
letcc/withcc support
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]);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[9];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[8];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[7];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(372);
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[11] = (hendblk(9+1));
initial commit
2023-02-28 06:31:08 +01:00
r[12+0] = (r[11]);
r[12+1] = r[6];
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[12+2] = obj_from_fixnum(+0);
r[12+3] = (r[10]);
initial commit
2023-02-28 06:31:08 +01:00
r[12+4] = r[3];
r += 12; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v11736;
letcc/withcc support
2023-03-10 23:30:41 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 370: /* clo k ids n */
letcc/withcc support
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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v11736: /* k ids n port r */
letcc/withcc support
2023-03-10 23:30:41 +01:00
if ((isnull((r[1])))) {
/* r[0] */
initial commit
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;
letcc/withcc support
2023-03-10 23:30:41 +01:00
} else {
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[4];
*--hp = r[3];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(370);
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(371);
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(370);
letcc/withcc support
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);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v11738;
initial commit
2023-02-28 06:31:08 +01:00
}
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 371: /* clo ek . */
initial commit
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];
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[1+3] = p[2];
r[1+4] = p[3];
r[1+5] = p[4]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v11738: /* ek . loop n ids k */
initial commit
2023-02-28 06:31:08 +01:00
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
letcc/withcc support
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)));
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
letcc/withcc support
2023-03-10 23:30:41 +01:00
rc = 4;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 372: /* clo ek . */
letcc/withcc support
2023-03-10 23:30:41 +01:00
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
initial commit
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 */
letcc/withcc support
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 */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(373);
letcc/withcc support
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;
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 373: /* clo ek r */
initial commit
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];
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[1+9] = p[8]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
letcc/withcc support
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 */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(374);
letcc/withcc support
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;
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 374: /* clo ek r */
initial commit
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];
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[1+8] = p[7]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
letcc/withcc support
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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[8];
*--hp = r[7];
*--hp = r[6];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(375);
letcc/withcc support
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 375: /* clo ek . */
letcc/withcc support
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;
}
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 376: /* clo k clauses */
initial commit
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];
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[1+7] = p[6]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
letcc/withcc support
2023-03-10 23:30:41 +01:00
/* k clauses g s f l k port */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14292_tmp;
initial commit
2023-02-28 06:31:08 +01:00
{ /* length */
letcc/withcc support
2023-03-10 23:30:41 +01:00
int n; obj l = r[1];
initial commit
2023-02-28 06:31:08 +01:00
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14292_tmp = (n); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14292_tmp);
letcc/withcc support
2023-03-10 23:30:41 +01:00
hreserve(hbsz(3)*c, 8); /* 8 live regs */
l = r[1]; /* gc-safe */
initial commit
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); }
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[8] = (o); } }
hreserve(hbsz(4+1), 9); /* 9 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[7];
*--hp = r[6];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[0];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(379);
letcc/withcc support
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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v11679;
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 377: /* clo k clauses l */
initial commit
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];
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[1+5] = p[3];
r[1+6] = p[4]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v11679: /* k clauses l g s f port */
initial commit
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 {
letcc/withcc support
2023-03-10 23:30:41 +01:00
hreserve(hbsz(4+1), 7); /* 7 live regs */
*--hp = r[6];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(377);
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[7] = (hendblk(4+1));
hreserve(hbsz(5+1), 8); /* 8 live regs */
*--hp = r[6];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[0];
*--hp = r[1];
*--hp = r[2];
*--hp = r[7];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(378);
letcc/withcc support
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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
goto gs_codegen;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 378: /* clo ek . */
initial commit
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 */
letcc/withcc support
2023-03-10 23:30:41 +01:00
/* ek . loop l clauses k port */
(void)(oportputc(('%'), (r[6])));
(void)(oportputc(('x'), (r[6])));
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 379: /* clo ek . */
initial commit
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];
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[1+5] = p[4]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
letcc/withcc support
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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(380);
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[6] = (hendblk(4+1));
initial commit
2023-02-28 06:31:08 +01:00
{ /* length */
int n; obj l = r[2];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
letcc/withcc support
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];
initial commit
2023-02-28 06:31:08 +01:00
goto gs_write_2Dserialized_2Darg;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 380: /* clo ek . */
initial commit
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];
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[1+5] = p[4]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
letcc/withcc support
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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(384);
letcc/withcc support
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];
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v11652;
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 381: /* clo k clauses i */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 4);
{ obj* p = objptr_from_obj(r[0]);
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[1+3] = p[1]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v11652: /* k clauses i port */
initial commit
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 {
letcc/withcc support
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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[3];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(381);
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[7] = (hendblk(1+1));
hreserve(hbsz(5+1), 8); /* 8 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[0];
*--hp = r[1];
*--hp = r[2];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[7];
*--hp = r[3];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(382);
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[7] = (hendblk(5+1));
r[0] = r[7];
r[1] = r[5];
initial commit
2023-02-28 06:31:08 +01:00
r[2] = r[3];
goto gs_write_2Dserialized_2Darg;
letcc/withcc support
2023-03-10 23:30:41 +01:00
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 382: /* clo ek . */
letcc/withcc support
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];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[4];
*--hp = r[3];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(383);
letcc/withcc support
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;
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 383: /* clo ek . */
initial commit
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 */
letcc/withcc support
2023-03-10 23:30:41 +01:00
/* ek . loop i clauses k */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 384: /* clo ek . */
initial commit
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];
letcc/withcc support
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;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 385: /* clo k kid exp */
letcc/withcc support
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 */
fix in letcc compiler; call/cc redefined via letcc
2023-03-11 18:28:51 +01:00
/* k kid exp s g f l port k */
letcc/withcc support
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];
fix in letcc compiler; call/cc redefined via letcc
2023-03-11 18:28:51 +01:00
*--hp = r[1];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[0];
*--hp = r[2];
fix in letcc compiler; call/cc redefined via letcc
2023-03-11 18:28:51 +01:00
*--hp = r[6];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
*--hp = r[9];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(386);
letcc/withcc support
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 386: /* clo ek r */
letcc/withcc support
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];
initial commit
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];
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[1+10] = p[9];
r[1+11] = p[10]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
fix in letcc compiler; call/cc redefined via letcc
2023-03-11 18:28:51 +01:00
/* ek r ids s g f l exp k kid port k */
letcc/withcc support
2023-03-10 23:30:41 +01:00
hreserve(hbsz(9+1), 12); /* 12 live regs */
*--hp = (r[11]);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = (r[10]);
fix in letcc compiler; call/cc redefined via letcc
2023-03-11 18:28:51 +01:00
*--hp = r[1];
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(387);
letcc/withcc support
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;
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 387: /* clo ek r */
initial commit
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];
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[1+9] = p[8];
r[1+10] = p[9]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
fix in letcc compiler; call/cc redefined via letcc
2023-03-11 18:28:51 +01:00
/* ek r g f l exp k kid r port k */
letcc/withcc support
2023-03-10 23:30:41 +01:00
hreserve(hbsz(9+1), 11); /* 11 live regs */
*--hp = (r[10]);
initial commit
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];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(388);
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[11] = (hendblk(9+1));
r[0] = (r[11]);
/* r[1] */
fix in letcc compiler; call/cc redefined via letcc
2023-03-11 18:28:51 +01:00
r[2] = r[8];
initial commit
2023-02-28 06:31:08 +01:00
goto gs_set_2Dunion;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 388: /* clo ek r */
initial commit
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];
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[1+8] = p[7];
r[1+9] = p[8];
r[1+10] = p[9]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
fix in letcc compiler; call/cc redefined via letcc
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 */
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[9];
fix in letcc compiler; call/cc redefined via letcc
2023-03-11 18:28:51 +01:00
*--hp = r[8];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[7];
*--hp = r[6];
letcc/withcc support
2023-03-10 23:30:41 +01:00
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
*--hp = r[1];
*--hp = r[2];
fix in letcc compiler; call/cc redefined via letcc
2023-03-11 18:28:51 +01:00
*--hp = (r[10]);
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(389);
fix in letcc compiler; call/cc redefined via letcc
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];
letcc/withcc support
2023-03-10 23:30:41 +01:00
goto gs_write_2Dserialized_2Darg;
} else {
fix in letcc compiler; call/cc redefined via letcc
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])));
letcc/withcc support
2023-03-10 23:30:41 +01:00
} else {
}
fix in letcc compiler; call/cc redefined via letcc
2023-03-11 18:28:51 +01:00
hreserve(hbsz(2+1), 11); /* 11 live regs */
*--hp = r[9];
*--hp = r[6];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(390);
fix in letcc compiler; call/cc redefined via letcc
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]);
letcc/withcc support
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);
fix in letcc compiler; call/cc redefined via letcc
2023-03-11 18:28:51 +01:00
r[13+7] = r[9];
letcc/withcc support
2023-03-10 23:30:41 +01:00
r += 13; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
goto gs_codegen;
letcc/withcc support
2023-03-10 23:30:41 +01:00
}
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 389: /* clo ek . */
initial commit
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];
letcc/withcc support
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]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
fix in letcc compiler; call/cc redefined via letcc
2023-03-11 18:28:51 +01:00
/* ek . k g r f l exp k kid r port */
letcc/withcc support
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])));
initial commit
2023-02-28 06:31:08 +01:00
} else {
}
fix in letcc compiler; call/cc redefined via letcc
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 */
letcc/withcc support
2023-03-10 23:30:41 +01:00
rreserve(MAX_HOSTREGS);
goto gs_codegen;
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 390: /* clo ek . */
letcc/withcc support
2023-03-10 23:30:41 +01:00
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[1+3] = p[2]; }
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
r += 1; /* shift reg. wnd */
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(391);
letcc/withcc support
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 391: /* clo ek . */
letcc/withcc support
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])));
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
rreserve(MAX_HOSTREGS);
letcc/withcc support
2023-03-10 23:30:41 +01:00
rc = 3;
goto jump;
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 392: /* clo k kexp exp */
lambda*/case-lambda: initial implementation
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];
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[1+6] = p[4];
r[1+7] = p[5]; }
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
r += 1; /* shift reg. wnd */
letcc/withcc support
2023-03-10 23:30:41 +01:00
/* k kexp exp g s f l port */
r[8] = (car((r[2])));
{ /* memq */
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
obj x = (r[8]), l = (cx__232622);
letcc/withcc support
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];
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(393);
letcc/withcc support
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];
lambda*/case-lambda: initial implementation
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);
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[9+7] = r[7];
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
r += 9; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_codegen;
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(395);
letcc/withcc support
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;
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 393: /* clo ek . */
lambda*/case-lambda: initial implementation
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];
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[1+6] = p[5];
r[1+7] = p[6];
r[1+8] = p[7]; }
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
r += 1; /* shift reg. wnd */
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(394);
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[9] = (hendblk(2+1));
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
{ /* cons */
letcc/withcc support
2023-03-10 23:30:41 +01:00
hreserve(hbsz(3), 10); /* 10 live regs */
*--hp = r[5];
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
*--hp = obj_from_bool(0);
*--hp = obj_from_size(PAIR_BTAG);
letcc/withcc support
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 */
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
rreserve(MAX_HOSTREGS);
letcc/withcc support
2023-03-10 23:30:41 +01:00
goto gs_codegen;
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 394: /* clo ek . */
lambda*/case-lambda: initial implementation
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];
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[1+3] = p[2]; }
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
r += 1; /* shift reg. wnd */
letcc/withcc support
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];
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[2] = r[4];
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 395: /* clo ek . */
lambda*/case-lambda: initial implementation
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];
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[1+6] = p[5];
r[1+7] = p[6];
r[1+8] = p[7]; }
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
r += 1; /* shift reg. wnd */
letcc/withcc support
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(396);
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[9] = (hendblk(2+1));
{ /* cons */
hreserve(hbsz(3), 10); /* 10 live regs */
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
*--hp = r[5];
letcc/withcc support
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 */
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
rreserve(MAX_HOSTREGS);
letcc/withcc support
2023-03-10 23:30:41 +01:00
goto gs_codegen;
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 396: /* clo ek . */
lambda*/case-lambda: initial implementation
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];
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[1+3] = p[2]; }
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
r += 1; /* shift reg. wnd */
letcc/withcc support
2023-03-10 23:30:41 +01:00
/* ek . k port */
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
letcc/withcc support
2023-03-10 23:30:41 +01:00
r[2] = obj_from_void(oportputc(('w'), (r[3])));
lambda*/case-lambda: initial implementation
2023-03-07 19:11:46 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 397: /* clo k ig args */
new integrable model, part II
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];
new integrable model, part IV (list ops &c.)
2023-03-19 19:52:49 +01:00
r[1+7] = p[5];
r[1+8] = p[6]; }
new integrable model, part II
2023-03-19 00:13:38 +01:00
r += 1; /* shift reg. wnd */
new integrable model, part IV (list ops &c.)
2023-03-19 19:52:49 +01:00
/* k ig args g s f l port k */
new integrable model, part II
2023-03-19 00:13:38 +01:00
{ /* define integrable-code */
static obj c[] = { obj_from_objptr(vmcases+12) };
new integrable model, part IV (list ops &c.)
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];
new integrable model, part II
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(398);
new integrable model, part IV (list ops &c.)
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 */
new integrable model, part II
2023-03-19 00:13:38 +01:00
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 398: /* clo ek r */
new integrable model, part II
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+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];
new integrable model, part IV (list ops &c.)
2023-03-19 19:52:49 +01:00
r[1+9] = p[8];
r[1+10] = p[9]; }
new integrable model, part II
2023-03-19 00:13:38 +01:00
r += 1; /* shift reg. wnd */
new integrable model, part IV (list ops &c.)
2023-03-19 19:52:49 +01:00
/* ek r ig g s f l args k port k */
new integrable model, part II
2023-03-19 00:13:38 +01:00
{ /* define integrable-type */
static obj c[] = { obj_from_objptr(vmcases+10) };
new integrable model, part IV (list ops &c.)
2023-03-19 19:52:49 +01:00
r[11] = obj_from_objptr(c); }
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
hreserve(hbsz(10+1), 12); /* 12 live regs */
new integrable model, part IV (list ops &c.)
2023-03-19 19:52:49 +01:00
*--hp = (r[10]);
new integrable model, part II
2023-03-19 00:13:38 +01:00
*--hp = r[9];
*--hp = r[8];
new integrable model, part IV (list ops &c.)
2023-03-19 19:52:49 +01:00
*--hp = r[1];
new integrable model, part II
2023-03-19 00:13:38 +01:00
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(399);
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
r[12] = (hendblk(10+1));
new integrable model, part IV (list ops &c.)
2023-03-19 19:52:49 +01:00
r[0] = (r[11]);
new integrable model, part II
2023-03-19 00:13:38 +01:00
pc = objptr_from_obj(r[0])[0];
new integrable model, part IV (list ops &c.)
2023-03-19 19:52:49 +01:00
r[1] = (r[12]);
new integrable model, part II
2023-03-19 00:13:38 +01:00
/* r[2] */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 399: /* clo ek r */
new integrable model, part II
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+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];
new integrable model, part IV (list ops &c.)
2023-03-19 19:52:49 +01:00
r[1+9] = p[8];
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
r[1+10] = p[9];
r[1+11] = p[10]; }
new integrable model, part II
2023-03-19 00:13:38 +01:00
r += 1; /* shift reg. wnd */
new integrable model, part V (fl+, fl-, 'p','m'))
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]);
new integrable model, part IV (list ops &c.)
2023-03-19 19:52:49 +01:00
*--hp = (r[10]);
*--hp = r[9];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(400);
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
r[12] = (hendblk(3+1));
new integrable model, part II
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)))))) {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14291_tmp;
new integrable model, part II
2023-03-19 00:13:38 +01:00
{ /* length */
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
int n; obj l = r[7];
new integrable model, part II
2023-03-19 00:13:38 +01:00
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14291_tmp = (n); }
new integrable model, part II
2023-03-19 00:13:38 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14291_tmp);
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
hreserve(hbsz(3)*c, 13); /* 13 live regs */
l = r[7]; /* gc-safe */
new integrable model, part II
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); }
new integrable model, part V (fl+, fl-, 'p','m'))
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]);
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(403);
new integrable model, part V (fl+, fl-, 'p','m'))
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]);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v11531;
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
} 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]);
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(404);
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
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);
new integrable model, part II
2023-03-19 00:13:38 +01:00
rreserve(MAX_HOSTREGS);
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
rc = 4;
goto jump;
new integrable model, part II
2023-03-19 00:13:38 +01:00
} else {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14289_tmp;
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
{ /* length */
int n; obj l = r[7];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14289_tmp = (n); }
r[13] = obj_from_fixnum(fxsub((v14289_tmp), (+1))); }
{ fixnum_t v14290_tmp;
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
{ /* length */
int n; obj l = r[7];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14290_tmp = (n); }
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14290_tmp);
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(407);
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
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]);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v11506;
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
}
} 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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(408);
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
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 {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14287_tmp;
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
{ /* length */
int n; obj l = r[7];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14287_tmp = (n); }
r[13] = obj_from_fixnum(fxsub((v14287_tmp), (+1))); }
{ fixnum_t v14288_tmp;
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
{ /* length */
int n; obj l = r[7];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14288_tmp = (n); }
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14288_tmp);
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(412);
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
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]);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v11470;
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
}
... fl<? and others; 'c' ig type
2023-03-20 05:23:42 +01:00
} else {
if (((((r[1]) == obj_from_char('c')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14285_tmp;
... fl<? and others; 'c' ig type
2023-03-20 05:23:42 +01:00
{ /* length */
int n; obj l = r[7];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14285_tmp = (n); }
r[13] = obj_from_fixnum(fxsub((v14285_tmp), (+1))); }
{ fixnum_t v14286_tmp;
... fl<? and others; 'c' ig type
2023-03-20 05:23:42 +01:00
{ /* length */
int n; obj l = r[7];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14286_tmp = (n); }
... fl<? and others; 'c' ig type
2023-03-20 05:23:42 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14286_tmp);
... fl<? and others; 'c' ig type
2023-03-20 05:23:42 +01:00
hreserve(hbsz(3)*c, 14); /* 14 live regs */
l = r[7]; /* gc-safe */
for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
*--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }
r[14] = (o); } }
hreserve(hbsz(9+1), 15); /* 15 live regs */
*--hp = (r[10]);
*--hp = (r[12]);
*--hp = (r[13]);
*--hp = r[8];
*--hp = (r[14]);
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(413);
... fl<? and others; 'c' ig type
2023-03-20 05:23:42 +01:00
r[15] = (hendblk(9+1));
r[16+0] = (r[15]);
r[16+1] = (car((r[14])));
r[16+2] = r[6];
r[16+3] = r[5];
r[16+4] = r[4];
r[16+5] = r[3];
r[16+6] = obj_from_bool(0);
r[16+7] = (r[10]);
r += 16; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_codegen;
... fxmin & others; 'x' ig type
2023-03-20 18:49:00 +01:00
} else {
if (((((r[1]) == obj_from_char('x')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14283_tmp;
... fxmin & others; 'x' ig type
2023-03-20 18:49:00 +01:00
{ /* length */
int n; obj l = r[7];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14283_tmp = (n); }
r[13] = obj_from_fixnum(fxsub((v14283_tmp), (+1))); }
{ fixnum_t v14284_tmp;
... fxmin & others; 'x' ig type
2023-03-20 18:49:00 +01:00
{ /* length */
int n; obj l = r[7];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14284_tmp = (n); }
... fxmin & others; 'x' ig type
2023-03-20 18:49:00 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14284_tmp);
... fxmin & others; 'x' ig type
2023-03-20 18:49:00 +01:00
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(419);
... fxmin & others; 'x' ig type
2023-03-20 18:49:00 +01:00
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]);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v11416;
... write and others; 'u' and 'b' ig types
2023-03-20 21:43:06 +01:00
} else {
if (((((r[1]) == obj_from_char('u')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
hreserve(hbsz(3+1), 13); /* 13 live regs */
*--hp = (r[10]);
*--hp = r[8];
*--hp = (r[12]);
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(420);
... write and others; 'u' and 'b' ig types
2023-03-20 21:43:06 +01:00
r[13] = (hendblk(3+1));
if ((isnull((r[7])))) {
{ /* define integrable-code */
static obj c[] = { obj_from_objptr(vmcases+12) };
r[14] = obj_from_objptr(c); }
hreserve(hbsz(2+1), 15); /* 15 live regs */
*--hp = (r[10]);
*--hp = (r[13]);
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(421);
... write and others; 'u' and 'b' ig types
2023-03-20 21:43:06 +01:00
r[15] = (hendblk(2+1));
r[0] = (r[14]);
pc = objptr_from_obj(r[0])[0];
r[1] = (r[15]);
/* r[2] */
r[3] = obj_from_fixnum(+1);
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
r[14+0] = (r[13]);
r[14+1] = (car((r[7])));
r[14+2] = r[6];
r[14+3] = r[5];
r[14+4] = r[4];
r[14+5] = r[3];
r[14+6] = obj_from_bool(0);
r[14+7] = (r[10]);
r += 14; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_codegen;
}
} else {
if (((((r[1]) == obj_from_char('b')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
hreserve(hbsz(8+1), 13); /* 13 live regs */
*--hp = (r[10]);
*--hp = r[8];
*--hp = (r[12]);
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(422);
... write and others; 'u' and 'b' ig types
2023-03-20 21:43:06 +01:00
r[13] = (hendblk(8+1));
r[14] = (cdr((r[7])));
r[14] = obj_from_bool(isnull((r[14])));
if (bool_from_obj(r[14])) {
{ /* define integrable-code */
static obj c[] = { obj_from_objptr(vmcases+12) };
r[14] = obj_from_objptr(c); }
hreserve(hbsz(2+1), 15); /* 15 live regs */
*--hp = (r[10]);
*--hp = (r[13]);
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(424);
... write and others; 'u' and 'b' ig types
2023-03-20 21:43:06 +01:00
r[15] = (hendblk(2+1));
r[0] = (r[14]);
pc = objptr_from_obj(r[0])[0];
r[1] = (r[15]);
/* r[2] */
r[3] = obj_from_fixnum(+1);
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
r[14] = (cdr((r[7])));
r[14] = (car((r[14])));
r[15+0] = (r[13]);
r[15+1] = (r[14]);
r[15+2] = r[6];
r[15+3] = r[5];
r[15+4] = r[4];
r[15+5] = r[3];
r[15+6] = obj_from_bool(0);
r[15+7] = (r[10]);
r += 15; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_codegen;
}
list, vector and others; '#' ig type
2023-03-21 03:32:33 +01:00
} else {
cmp instrs re-coded; 't' integrable type
2023-03-28 21:39:00 +02:00
if (((((r[1]) == obj_from_char('t')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
hreserve(hbsz(8+1), 13); /* 13 live regs */
*--hp = (r[10]);
*--hp = r[8];
*--hp = (r[12]);
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(425);
cmp instrs re-coded; 't' integrable type
2023-03-28 21:39:00 +02:00
r[13] = (hendblk(8+1));
r[14] = (cdr((r[7])));
r[14] = (cdr((r[14])));
r[14] = obj_from_bool(isnull((r[14])));
if (bool_from_obj(r[14])) {
{ /* define integrable-code */
static obj c[] = { obj_from_objptr(vmcases+12) };
r[14] = obj_from_objptr(c); }
hreserve(hbsz(2+1), 15); /* 15 live regs */
*--hp = (r[10]);
*--hp = (r[13]);
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(428);
cmp instrs re-coded; 't' integrable type
2023-03-28 21:39:00 +02:00
r[15] = (hendblk(2+1));
r[0] = (r[14]);
pc = objptr_from_obj(r[0])[0];
r[1] = (r[15]);
/* r[2] */
r[3] = obj_from_fixnum(+1);
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
r[14] = (cdr((r[7])));
r[14] = (cdr((r[14])));
r[14] = (car((r[14])));
r[15+0] = (r[13]);
r[15+1] = (r[14]);
r[15+2] = r[6];
r[15+3] = r[5];
r[15+4] = r[4];
r[15+5] = r[3];
r[15+6] = obj_from_bool(0);
r[15+7] = (r[10]);
r += 15; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_codegen;
}
} else {
list, vector and others; '#' ig type
2023-03-21 03:32:33 +01:00
if (((((r[1]) == obj_from_char('#')) || ((is_flonum_obj(r[1])) && (0))) && (1))) {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14282_tmp;
list, vector and others; '#' ig type
2023-03-21 03:32:33 +01:00
{ /* length */
int n; obj l = r[7];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14282_tmp = (n); }
list, vector and others; '#' ig type
2023-03-21 03:32:33 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14282_tmp);
list, vector and others; '#' ig type
2023-03-21 03:32:33 +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(4+1), 14); /* 14 live regs */
*--hp = (r[10]);
*--hp = r[8];
*--hp = (r[12]);
*--hp = r[7];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(431);
list, vector and others; '#' ig type
2023-03-21 03:32:33 +01:00
r[14] = (hendblk(4+1));
r[0] = (r[14]);
r[1] = (r[13]);
r[2] = r[6];
/* r[3] */
/* r[4] */
/* r[5] */
r[6] = (r[10]);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v11338;
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
} else {
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
r[13+0] = (cx_c_2Derror);
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
pc = objptr_from_obj(r[13+0])[0];
r[13+1] = (r[12]);
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[13+2] = (cx__232315);
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
r[13+3] = r[1];
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
r += 13; /* shift reg wnd */
new integrable model, part II
2023-03-19 00:13:38 +01:00
rreserve(MAX_HOSTREGS);
minor refactoring of the transformer
2023-03-21 23:02:01 +01:00
rc = 4;
new integrable model, part II
2023-03-19 00:13:38 +01:00
goto jump;
}
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
}
}
... fl<? and others; 'c' ig type
2023-03-20 05:23:42 +01:00
}
... fxmin & others; 'x' ig type
2023-03-20 18:49:00 +01:00
}
... write and others; 'u' and 'b' ig types
2023-03-20 21:43:06 +01:00
}
}
list, vector and others; '#' ig type
2023-03-21 03:32:33 +01:00
}
cmp instrs re-coded; 't' integrable type
2023-03-28 21:39:00 +02:00
}
new integrable model, part II
2023-03-19 00:13:38 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 400: /* clo ek . */
new integrable model, part IV (list ops &c.)
2023-03-19 19:52:49 +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;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 401: /* clo k args l */
new integrable model, part II
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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v11531: /* k args l g s f port */
new integrable model, part II
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(401);
new integrable model, part II
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(402);
new integrable model, part II
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;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 402: /* clo ek . */
new integrable model, part II
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 403: /* clo ek . */
new integrable model, part II
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 404: /* clo ek r */
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 405: /* clo k args l */
initial commit
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];
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
r[1+6] = p[4]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v11506: /* k args l g s f port */
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +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;
initial commit
2023-02-28 06:31:08 +01:00
} else {
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
hreserve(hbsz(4+1), 7); /* 7 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(405);
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
r[7] = (hendblk(4+1));
hreserve(hbsz(5+1), 8); /* 8 live regs */
*--hp = r[1];
*--hp = r[6];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[0];
*--hp = r[2];
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
*--hp = r[7];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(406);
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +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;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 406: /* clo ek . */
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[3];
new integrable model, part V (fl+, fl-, 'p','m'))
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 407: /* clo ek . */
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +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 . r port opc k */
r[0] = r[5];
r[1] = obj_from_fixnum(+0);
/* r[2] */
/* r[3] */
/* r[4] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v11497;
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v11497: /* k i r port opc */
{ const fixnum_t v14281_i = fixnum_from_obj(r[1]);
if (((v14281_i) >= fixnum_from_obj(r[4]))) {
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +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 {
(void)(oportputs(stringchars((r[2])), (r[3])));
/* r[0] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
r[1] = obj_from_fixnum(fxadd((v14281_i), (+1)));
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
/* r[2] */
/* r[3] */
/* r[4] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v11497;
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
} }
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 408: /* clo ek r */
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +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 g s f l args k port */
hreserve(hbsz(3+1), 9); /* 9 live regs */
*--hp = r[8];
*--hp = r[1];
*--hp = r[7];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(409);
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 409: /* clo ek . */
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 410: /* clo k args l */
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v11470: /* k args l g s f port */
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(410);
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(411);
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +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;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 411: /* clo ek . */
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 412: /* clo ek . */
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +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 . r port opc k */
r[0] = r[5];
r[1] = obj_from_fixnum(+0);
/* r[2] */
/* r[3] */
/* r[4] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v11461;
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v11461: /* k i r port opc */
{ const fixnum_t v14280_i = fixnum_from_obj(r[1]);
if (((v14280_i) >= fixnum_from_obj(r[4]))) {
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +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 {
(void)(oportputs(stringchars((r[2])), (r[3])));
/* r[0] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
r[1] = obj_from_fixnum(fxadd((v14280_i), (+1)));
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
/* r[2] */
/* r[3] */
/* r[4] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v11461;
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
} }
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 413: /* clo ek . */
... fl<? and others; 'c' ig type
2023-03-20 05:23:42 +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 . g s f l args r opc k port */
(void)(oportputc((','), (r[10])));
r[11] = (cdr((r[6])));
{ /* cons */
hreserve(hbsz(3), 12); /* 12 live regs */
*--hp = r[5];
*--hp = obj_from_bool(0);
*--hp = obj_from_size(PAIR_BTAG);
r[12] = (hendblk(3)); }
hreserve(hbsz(4+1), 13); /* 13 live regs */
*--hp = r[9];
*--hp = r[8];
*--hp = (r[10]);
*--hp = r[7];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(416);
... fl<? and others; 'c' ig type
2023-03-20 05:23:42 +01:00
r[13] = (hendblk(4+1));
r[14+0] = (r[13]);
r[14+1] = (r[11]);
r[14+2] = (r[12]);
r[14+3] = r[2];
r[14+4] = r[3];
r[14+5] = r[4];
r[14+6] = (r[10]);
r += 14; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v11442;
... fl<? and others; 'c' ig type
2023-03-20 05:23:42 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 414: /* clo k args l */
... fl<? and others; 'c' ig type
2023-03-20 05:23:42 +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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v11442: /* k args l g s f port */
... fl<? and others; 'c' ig type
2023-03-20 05:23:42 +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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(414);
... fl<? and others; 'c' ig type
2023-03-20 05:23:42 +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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(415);
... fl<? and others; 'c' ig type
2023-03-20 05:23:42 +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;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 415: /* clo ek . */
... fl<? and others; 'c' ig type
2023-03-20 05:23:42 +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])));
(void)(oportputc((','), (r[5])));
}
{ /* cons */
hreserve(hbsz(3), 7); /* 7 live regs */
*--hp = r[3];
*--hp = obj_from_bool(0);
*--hp = obj_from_size(PAIR_BTAG);
r[7] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 8); /* 8 live regs */
*--hp = r[7];
*--hp = obj_from_bool(0);
*--hp = obj_from_size(PAIR_BTAG);
r[7] = (hendblk(3)); }
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[4];
r[2] = (cdr((r[6])));
r[3] = r[7];
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 416: /* clo ek . */
... fl<? and others; 'c' ig type
2023-03-20 05:23:42 +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 . r port opc k */
r[0] = r[5];
r[1] = obj_from_fixnum(+0);
/* r[2] */
/* r[3] */
/* r[4] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v11433;
... fxmin & others; 'x' ig type
2023-03-20 18:49:00 +01:00
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v11433: /* k i r port opc */
{ const fixnum_t v14279_i = fixnum_from_obj(r[1]);
if (((v14279_i) >= fixnum_from_obj(r[4]))) {
... fxmin & others; 'x' ig type
2023-03-20 18:49:00 +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 {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
(void)(((v14279_i) == 0) ? ((0) ? obj_from_bool(0) : obj_from_void(0)) : obj_from_void(oportputc((';'), (r[3]))));
... fxmin & others; 'x' ig type
2023-03-20 18:49:00 +01:00
(void)(oportputs(stringchars((r[2])), (r[3])));
/* r[0] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
r[1] = obj_from_fixnum(fxadd((v14279_i), (+1)));
... fxmin & others; 'x' ig type
2023-03-20 18:49:00 +01:00
/* r[2] */
/* r[3] */
/* r[4] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v11433;
... fxmin & others; 'x' ig type
2023-03-20 18:49:00 +01:00
} }
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 417: /* clo k args l */
... fxmin & others; 'x' ig type
2023-03-20 18:49:00 +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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v11416: /* k args l g s f port */
... fxmin & others; 'x' ig type
2023-03-20 18:49:00 +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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(417);
... fxmin & others; 'x' ig type
2023-03-20 18:49:00 +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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(418);
... fxmin & others; 'x' ig type
2023-03-20 18:49:00 +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;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 418: /* clo ek . */
... fxmin & others; 'x' ig type
2023-03-20 18:49:00 +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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 419: /* clo ek . */
... fxmin & others; 'x' ig type
2023-03-20 18:49:00 +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 . r port opc k */
r[0] = r[5];
r[1] = obj_from_fixnum(+0);
/* r[2] */
/* r[3] */
/* r[4] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v11407;
... fl<? and others; 'c' ig type
2023-03-20 05:23:42 +01:00
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v11407: /* k i r port opc */
{ const fixnum_t v14278_i = fixnum_from_obj(r[1]);
if (((v14278_i) >= fixnum_from_obj(r[4]))) {
... fl<? and others; 'c' ig type
2023-03-20 05:23:42 +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 {
(void)(oportputs(stringchars((r[2])), (r[3])));
/* r[0] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
r[1] = obj_from_fixnum(fxadd((v14278_i), (+1)));
... fl<? and others; 'c' ig type
2023-03-20 05:23:42 +01:00
/* r[2] */
/* r[3] */
/* r[4] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v11407;
... fl<? and others; 'c' ig type
2023-03-20 05:23:42 +01:00
} }
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 420: /* clo ek . */
... write and others; 'u' and 'b' ig types
2023-03-20 21:43:06 +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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 421: /* clo ek r */
... write and others; 'u' and 'b' ig types
2023-03-20 21:43:06 +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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 422: /* clo ek . */
... write and others; 'u' and 'b' ig types
2023-03-20 21:43:06 +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 args k r port */
(void)(oportputc((','), (r[9])));
hreserve(hbsz(3+1), 10); /* 10 live regs */
*--hp = r[9];
*--hp = r[8];
*--hp = r[7];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(423);
... write and others; 'u' and 'b' ig types
2023-03-20 21:43:06 +01:00
r[10] = (hendblk(3+1));
{ /* cons */
hreserve(hbsz(3), 11); /* 11 live regs */
*--hp = r[5];
*--hp = obj_from_bool(0);
*--hp = obj_from_size(PAIR_BTAG);
r[11] = (hendblk(3)); }
r[12+0] = (r[10]);
r[12+1] = (car((r[6])));
r[12+2] = (r[11]);
r[12+3] = r[4];
r[12+4] = r[3];
r[12+5] = r[2];
r[12+6] = obj_from_bool(0);
r[12+7] = r[9];
r += 12; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_codegen;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 423: /* clo ek . */
... write and others; 'u' and 'b' ig types
2023-03-20 21:43:06 +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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 424: /* clo ek r */
... write and others; 'u' and 'b' ig types
2023-03-20 21:43:06 +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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 425: /* clo ek . */
cmp instrs re-coded; 't' integrable type
2023-03-28 21:39:00 +02: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 args k r port */
(void)(oportputc((','), (r[9])));
hreserve(hbsz(8+1), 10); /* 10 live regs */
*--hp = r[9];
*--hp = r[8];
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(426);
cmp instrs re-coded; 't' integrable type
2023-03-28 21:39:00 +02:00
r[10] = (hendblk(8+1));
r[11] = (cdr((r[6])));
r[11] = (car((r[11])));
{ /* cons */
hreserve(hbsz(3), 12); /* 12 live regs */
*--hp = r[5];
*--hp = obj_from_bool(0);
*--hp = obj_from_size(PAIR_BTAG);
r[12] = (hendblk(3)); }
r[13+0] = (r[10]);
r[13+1] = (r[11]);
r[13+2] = (r[12]);
r[13+3] = r[4];
r[13+4] = r[3];
r[13+5] = r[2];
r[13+6] = obj_from_bool(0);
r[13+7] = r[9];
r += 13; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_codegen;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 426: /* clo ek . */
cmp instrs re-coded; 't' integrable type
2023-03-28 21:39:00 +02: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 args k r port */
(void)(oportputc((','), (r[9])));
hreserve(hbsz(3+1), 10); /* 10 live regs */
*--hp = r[9];
*--hp = r[8];
*--hp = r[7];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(427);
cmp instrs re-coded; 't' integrable type
2023-03-28 21:39:00 +02:00
r[10] = (hendblk(3+1));
{ /* cons */
hreserve(hbsz(3), 11); /* 11 live regs */
*--hp = r[5];
*--hp = obj_from_bool(0);
*--hp = obj_from_size(PAIR_BTAG);
r[11] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 12); /* 12 live regs */
*--hp = (r[11]);
*--hp = obj_from_bool(0);
*--hp = obj_from_size(PAIR_BTAG);
r[11] = (hendblk(3)); }
r[12+0] = (r[10]);
r[12+1] = (car((r[6])));
r[12+2] = (r[11]);
r[12+3] = r[4];
r[12+4] = r[3];
r[12+5] = r[2];
r[12+6] = obj_from_bool(0);
r[12+7] = r[9];
r += 12; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_codegen;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 427: /* clo ek . */
cmp instrs re-coded; 't' integrable type
2023-03-28 21:39:00 +02: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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 428: /* clo ek r */
cmp instrs re-coded; 't' integrable type
2023-03-28 21:39:00 +02: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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 429: /* clo k args l */
list, vector and others; '#' ig type
2023-03-21 03:32:33 +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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v11338: /* k args l g s f port */
list, vector and others; '#' ig type
2023-03-21 03:32:33 +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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(429);
list, vector and others; '#' ig type
2023-03-21 03:32:33 +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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(430);
list, vector and others; '#' ig type
2023-03-21 03:32:33 +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;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 430: /* clo ek . */
list, vector and others; '#' ig type
2023-03-21 03:32:33 +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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 431: /* clo ek . */
list, vector and others; '#' ig type
2023-03-21 03:32:33 +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 . args k r port */
(void)(oportputs(stringchars((r[4])), (r[5])));
{ /* length */
int n; obj l = r[2];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
r[6] = obj_from_fixnum(n); }
r[0] = r[3];
r[1] = r[6];
r[2] = r[5];
goto gs_write_2Dserialized_2Darg;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 432: /* clo k exp args */
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +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 */
initial switch to libl
2023-04-02 22:16:43 +02:00
/* k exp args s l port g f k */
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
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])) {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14277_tmp;
{ fixnum_t v14276_tmp;
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
{ /* length */
int n; obj l = r[2];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14277_tmp = (n); }
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
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)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14276_tmp = (n); }
r[9] = obj_from_bool((v14277_tmp) == (v14276_tmp)); } }
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
} else {
r[9] = obj_from_bool(0);
}
} else {
r[9] = obj_from_bool(0);
}
if (bool_from_obj(r[9])) {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14275_tmp;
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
{ /* length */
int n; obj l = r[2];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14275_tmp = (n); }
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14275_tmp);
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
hreserve(hbsz(3)*c, 9); /* 9 live regs */
l = r[2]; /* gc-safe */
for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
*--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }
r[9] = (o); } }
hreserve(hbsz(9+1), 10); /* 10 live regs */
*--hp = r[1];
*--hp = r[8];
*--hp = r[0];
initial switch to libl
2023-04-02 22:16:43 +02:00
*--hp = r[7];
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
*--hp = r[6];
*--hp = r[2];
initial switch to libl
2023-04-02 22:16:43 +02:00
*--hp = r[5];
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
*--hp = r[4];
*--hp = r[3];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(435);
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
r[10] = (hendblk(9+1));
r[11+0] = (r[10]);
r[11+1] = r[9];
initial switch to libl
2023-04-02 22:16:43 +02:00
r[11+2] = r[4];
r[11+3] = r[6];
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
r[11+4] = r[3];
initial switch to libl
2023-04-02 22:16:43 +02:00
r[11+5] = r[7];
r[11+6] = r[5];
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
r += 11; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v11307;
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
} else {
initial switch to libl
2023-04-02 22:16:43 +02:00
if (bool_from_obj(r[8])) {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14274_tmp;
new integrable model switch is complete!
2023-03-21 20:29:28 +01:00
{ /* length */
int n; obj l = r[2];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14274_tmp = (n); }
new integrable model switch is complete!
2023-03-21 20:29:28 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14274_tmp);
new integrable model switch is complete!
2023-03-21 20:29:28 +01:00
hreserve(hbsz(3)*c, 9); /* 9 live regs */
l = r[2]; /* gc-safe */
for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
*--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }
r[9] = (o); } }
hreserve(hbsz(4+1), 10); /* 10 live regs */
initial switch to libl
2023-04-02 22:16:43 +02:00
*--hp = r[5];
new integrable model, part V (fl+, fl-, 'p','m'))
2023-03-20 04:31:28 +01:00
*--hp = r[0];
*--hp = r[2];
initial switch to libl
2023-04-02 22:16:43 +02:00
*--hp = r[8];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(446);
new integrable model switch is complete!
2023-03-21 20:29:28 +01:00
r[10] = (hendblk(4+1));
r[11+0] = (r[10]);
r[11+1] = r[9];
initial switch to libl
2023-04-02 22:16:43 +02:00
r[11+2] = r[4];
r[11+3] = r[5];
r[11+4] = r[6];
new integrable model switch is complete!
2023-03-21 20:29:28 +01:00
r[11+5] = r[3];
initial switch to libl
2023-04-02 22:16:43 +02:00
r[11+6] = r[7];
new integrable model switch is complete!
2023-03-21 20:29:28 +01:00
r[11+7] = r[1];
r += 11; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v11239;
new integrable model switch is complete!
2023-03-21 20:29:28 +01:00
} else {
initial switch to libl
2023-04-02 22:16:43 +02:00
(void)(oportputc((36), (r[5])));
(void)(oportputc(('{'), (r[5])));
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14273_tmp;
initial commit
2023-02-28 06:31:08 +01:00
{ /* length */
int n; obj l = r[2];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14273_tmp = (n); }
new integrable model switch is complete!
2023-03-21 20:29:28 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14273_tmp);
new integrable model switch is complete!
2023-03-21 20:29:28 +01:00
hreserve(hbsz(3)*c, 9); /* 9 live regs */
l = r[2]; /* gc-safe */
for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
*--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }
r[9] = (o); } }
{ /* cons */
hreserve(hbsz(3), 10); /* 10 live regs */
initial switch to libl
2023-04-02 22:16:43 +02:00
*--hp = r[4];
new integrable model switch is complete!
2023-03-21 20:29:28 +01:00
*--hp = obj_from_bool(0);
*--hp = obj_from_size(PAIR_BTAG);
r[10] = (hendblk(3)); }
{ /* cons */
hreserve(hbsz(3), 11); /* 11 live regs */
*--hp = (r[10]);
*--hp = obj_from_bool(0);
*--hp = obj_from_size(PAIR_BTAG);
r[10] = (hendblk(3)); }
hreserve(hbsz(3+1), 11); /* 11 live regs */
initial switch to libl
2023-04-02 22:16:43 +02:00
*--hp = r[5];
new integrable model switch is complete!
2023-03-21 20:29:28 +01:00
*--hp = r[0];
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(450);
new integrable model switch is complete!
2023-03-21 20:29:28 +01:00
r[11] = (hendblk(3+1));
r[12+0] = (r[11]);
r[12+1] = r[9];
r[12+2] = (r[10]);
initial switch to libl
2023-04-02 22:16:43 +02:00
r[12+3] = r[5];
r[12+4] = r[6];
new integrable model switch is complete!
2023-03-21 20:29:28 +01:00
r[12+5] = r[3];
initial switch to libl
2023-04-02 22:16:43 +02:00
r[12+6] = r[7];
new integrable model switch is complete!
2023-03-21 20:29:28 +01:00
r[12+7] = r[1];
r += 12; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v11214;
initial commit
2023-02-28 06:31:08 +01:00
}
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 433: /* clo k args l */
initial commit
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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v11307: /* k args l g s f port */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(433);
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(434);
initial commit
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;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 434: /* clo ek . */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 435: /* clo ek . */
initial commit
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 */
initial switch to libl
2023-04-02 22:16:43 +02:00
/* ek . s l port args g f k k exp */
initial commit
2023-02-28 06:31:08 +01:00
r[11] = (cdr((r[10])));
r[11] = (car((r[11])));
r[12] = (cdr((r[10])));
r[12] = (cdr((r[12])));
r[12] = (car((r[12])));
hreserve(hbsz(10+1), 13); /* 13 live regs */
*--hp = r[9];
*--hp = r[8];
*--hp = (r[12]);
initial switch to libl
2023-04-02 22:16:43 +02:00
*--hp = r[7];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
initial switch to libl
2023-04-02 22:16:43 +02:00
*--hp = (r[11]);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[3];
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(436);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 436: /* clo ek r */
initial commit
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 */
initial switch to libl
2023-04-02 22:16:43 +02:00
/* ek r s l ids port args g f exp k k */
initial commit
2023-02-28 06:31:08 +01:00
hreserve(hbsz(10+1), 12); /* 12 live regs */
*--hp = (r[11]);
*--hp = (r[10]);
*--hp = r[9];
*--hp = r[8];
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[1];
initial switch to libl
2023-04-02 22:16:43 +02:00
*--hp = r[3];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(437);
initial commit
2023-02-28 06:31:08 +01:00
r[12] = (hendblk(10+1));
r[0] = (r[12]);
r[1] = r[2];
initial switch to libl
2023-04-02 22:16:43 +02:00
r[2] = r[4];
initial commit
2023-02-28 06:31:08 +01:00
goto gs_set_2Dminus;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 437: /* clo ek r */
initial commit
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 */
initial switch to libl
2023-04-02 22:16:43 +02:00
/* ek r l r ids port args g f exp k k */
initial commit
2023-02-28 06:31:08 +01:00
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(438);
initial commit
2023-02-28 06:31:08 +01:00
r[12] = (hendblk(10+1));
r[0] = (r[12]);
/* r[1] */
initial switch to libl
2023-04-02 22:16:43 +02:00
r[2] = r[3];
initial commit
2023-02-28 06:31:08 +01:00
goto gs_set_2Dunion;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 438: /* clo ek r */
initial commit
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 */
initial switch to libl
2023-04-02 22:16:43 +02:00
/* ek r l r ids port args g f exp k k */
hreserve(hbsz(10+1), 12); /* 12 live regs */
*--hp = (r[11]);
*--hp = (r[10]);
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[9];
*--hp = r[8];
initial switch to libl
2023-04-02 22:16:43 +02:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(439);
initial switch to libl
2023-04-02 22:16:43 +02:00
r[12] = (hendblk(10+1));
r[13+0] = (cx__25append);
pc = objptr_from_obj(r[13+0])[0];
r[13+1] = (r[12]);
r[13+2] = r[4];
r[13+3] = r[2];
r += 13; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 439: /* clo ek r */
initial switch to libl
2023-04-02 22:16:43 +02: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 ids port args g r f exp k k */
hreserve(hbsz(9+1), 12); /* 12 live regs */
*--hp = (r[11]);
*--hp = (r[10]);
*--hp = r[9];
*--hp = r[1];
*--hp = r[8];
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(442);
initial switch to libl
2023-04-02 22:16:43 +02:00
r[12] = (hendblk(9+1));
r[13+0] = (r[12]);
r[13+1] = r[3];
r[13+2] = obj_from_fixnum(+0);
r[13+3] = r[4];
r[13+4] = r[2];
r += 13; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v11274;
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 440: /* clo k ids n */
initial commit
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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v11274: /* k ids n port r */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(440);
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(441);
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(440);
initial commit
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);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v11276;
initial commit
2023-02-28 06:31:08 +01:00
}
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 441: /* clo ek . */
initial commit
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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v11276: /* ek . loop n ids k */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 442: /* clo ek . */
initial commit
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 */
initial switch to libl
2023-04-02 22:16:43 +02:00
/* ek . port args g r f r exp k k */
initial commit
2023-02-28 06:31:08 +01:00
if (bool_from_obj(r[10])) {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14272_tmp;
initial commit
2023-02-28 06:31:08 +01:00
{ /* length */
int n; obj l = r[3];
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14272_tmp = (n); }
r[11] = obj_from_fixnum(fxadd(fixnum_from_obj(r[10]), (v14272_tmp))); }
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(443);
initial commit
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;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 443: /* clo ek . */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 444: /* clo k args l */
initial commit
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];
new integrable model switch is complete!
2023-03-21 20:29:28 +01:00
r[1+6] = p[4];
r[1+7] = p[5]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v11239: /* k args l port g s f exp */
initial commit
2023-02-28 06:31:08 +01:00
if ((isnull((r[1])))) {
new integrable model switch is complete!
2023-03-21 20:29:28 +01:00
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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
new integrable model switch is complete!
2023-03-21 20:29:28 +01:00
goto gs_codegen;
initial commit
2023-02-28 06:31:08 +01:00
} else {
new integrable model switch is complete!
2023-03-21 20:29:28 +01:00
hreserve(hbsz(5+1), 8); /* 8 live regs */
*--hp = r[7];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(444);
new integrable model switch is complete!
2023-03-21 20:29:28 +01:00
r[8] = (hendblk(5+1));
hreserve(hbsz(5+1), 9); /* 9 live regs */
*--hp = r[3];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[0];
new integrable model switch is complete!
2023-03-21 20:29:28 +01:00
*--hp = r[1];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
new integrable model switch is complete!
2023-03-21 20:29:28 +01:00
*--hp = r[8];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(445);
new integrable model switch is complete!
2023-03-21 20:29:28 +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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
goto gs_codegen;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 445: /* clo ek . */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 446: /* clo ek . */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(447);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 447: /* clo ek . */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 448: /* clo k args l */
initial commit
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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v11214: /* k args l port g s f exp */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(448);
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(449);
initial commit
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;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 449: /* clo ek . */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 450: /* clo ek . */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(451);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 451: /* clo ek . */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(452);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 452: /* clo ek . */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 453: /* clo k tail */
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* k tail x */
r[3+0] = (cx_c_2Derror);
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[0];
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[3+2] = (cx__231971);
support for var-less define; define-values & friends
2023-03-24 19:16:10 +01:00
r[3+3] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 454: /* compile-to-string k x */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(455);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 455: /* clo ek r */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(456);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 456: /* clo ek . */
initial commit
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());
initial switch to libl
2023-04-02 22:16:43 +02:00
else { cbuf_t *pcb = oportdata(o);
initial commit
2023-02-28 06:31:08 +01:00
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 457: /* execute k code */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(458);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 458: /* clo ek r */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 459: /* evaluate k x */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(460);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 460: /* clo ek r */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(461);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 461: /* clo ek r */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(462);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 462: /* clo ek . */
initial commit
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());
initial switch to libl
2023-04-02 22:16:43 +02:00
else { cbuf_t *pcb = oportdata(o);
initial commit
2023-02-28 06:31:08 +01:00
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(463);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 463: /* clo ek r */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 464: /* display-code k cstr oport */
initial commit
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);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v11113;
initial commit
2023-02-28 06:31:08 +01:00
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v11113: /* k i l cstr oport */
{ const fixnum_t v14271_i = fixnum_from_obj(r[1]);
if (((fxsub(fixnum_from_obj(r[2]), (v14271_i))) <= (+70))) {
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__232930), (r[4]), 1));
initial commit
2023-02-28 06:31:08 +01:00
{ /* substring */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
int *d = substring(stringdata((r[3])), (v14271_i), fixnum_from_obj(r[2]));
initial commit
2023-02-28 06:31:08 +01:00
r[5] = (hpushstr(5, d)); }
(void)(oportputcircular((r[5]), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[5] = obj_from_void(oportputcircular((cx__232934), (r[4]), 1));
initial commit
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 {
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__232930), (r[4]), 1));
initial commit
2023-02-28 06:31:08 +01:00
{ /* substring */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
int *d = substring(stringdata((r[3])), (v14271_i), (fxadd((v14271_i), (+70))));
initial commit
2023-02-28 06:31:08 +01:00
r[5] = (hpushstr(5, d)); }
(void)(oportputcircular((r[5]), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__232925), (r[4]), 1));
initial commit
2023-02-28 06:31:08 +01:00
/* r[0] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
r[1] = obj_from_fixnum(fxadd((v14271_i), (+70)));
initial commit
2023-02-28 06:31:08 +01:00
/* r[2] */
/* r[3] */
/* r[4] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v11113;
initial commit
2023-02-28 06:31:08 +01:00
} }
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 465: /* process-syntax k id xval oport */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 5);
r += 1; /* shift reg. wnd */
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
/* k id xval oport */
initial commit
2023-02-28 06:31:08 +01:00
(void)(oportputc('\n', (r[3])));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__232959), (r[3]), 1));
initial commit
2023-02-28 06:31:08 +01:00
(void)(oportputcircular((r[1]), (r[3]), 1));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__232958), (r[3]), 1));
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
{ /* open-output-string */
r[4] = (mkoport_string(4, newcb())); }
hreserve(hbsz(3+1), 5); /* 5 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[3];
*--hp = r[0];
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
*--hp = r[4];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(466);
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
r[5] = (hendblk(3+1));
r[0] = r[5];
r[1] = r[2];
r[2] = r[4];
goto gs_write_2Dserialized_2Dsexp;
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 466: /* clo ek . */
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
initial commit
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 */
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
/* ek . p k oport */
initial commit
2023-02-28 06:31:08 +01:00
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[4];
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
*--hp = r[3];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(467);
initial commit
2023-02-28 06:31:08 +01:00
r[5] = (hendblk(2+1));
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
{ /* 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());
initial switch to libl
2023-04-02 22:16:43 +02:00
else { cbuf_t *pcb = oportdata(o);
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } }
r[0] = r[5];
r[1] = r[6];
r[2] = r[4];
goto gs_display_2Dcode;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 467: /* clo ek . */
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +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 */
initial commit
2023-02-28 06:31:08 +01:00
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
r[1] = obj_from_ktrap();
r[2] = obj_from_void(oportputc('\n', (r[3])));
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 468: /* process-alias k id oldid oport */
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
assert(rc == 5);
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
/* k id oldid oport */
(void)(oportputc('\n', (r[3])));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__232969), (r[3]), 1));
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
(void)(oportputcircular((r[1]), (r[3]), 1));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__232934), (r[3]), 1));
(void)(oportputcircular((cx__232968), (r[3]), 1));
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
(void)(oportputcircular((r[2]), (r[3]), 1));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[4] = obj_from_void(oportputcircular((cx__232958), (r[3]), 1));
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
r[5+0] = r[0];
initial commit
2023-02-28 06:31:08 +01:00
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 469: /* process-command k xval oport */
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(470);
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
r[5] = (hendblk(5+1));
r[0] = r[5];
/* r[1] */
r[2] = (mknull());
goto gs_find_2Dfree;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 470: /* clo ek r */
initial commit
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];
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
r[1+4] = p[3];
r[1+5] = p[4];
r[1+6] = p[5]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
/* ek r xval k oport cstr p */
hreserve(hbsz(4+1), 7); /* 7 live regs */
*--hp = r[6];
runs init code from s.c
2023-03-03 19:18:00 +01:00
*--hp = r[5];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[4];
*--hp = r[3];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(471);
file rename fixes; skint compiles and runs tests
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 471: /* clo ek . */
file rename fixes; skint compiles and runs tests
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());
initial switch to libl
2023-04-02 22:16:43 +02:00
else { cbuf_t *pcb = oportdata(o);
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } }
(void)(objptr_from_obj(r[4])[0] = (r[6]));
(void)(oportputc('\n', (r[3])));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__232980), (r[3]), 1));
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
hreserve(hbsz(2+1), 7); /* 7 live regs */
*--hp = r[3];
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(472);
file rename fixes; skint compiles and runs tests
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 472: /* clo ek . */
file rename fixes; skint compiles and runs tests
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 473: /* process-define k id xlam oport */
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
assert(rc == 5);
r += 1; /* shift reg. wnd */
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
gs_process_2Ddefine: /* k id xlam oport */
hreserve(hbsz(1), 4); /* 4 live regs */
*--hp = obj_from_void(0);
r[4] = (hendblk(1));
{ /* open-output-string */
r[5] = (mkoport_string(5, newcb())); }
hreserve(hbsz(6+1), 6); /* 6 live regs */
*--hp = r[5];
*--hp = r[4];
*--hp = r[2];
*--hp = r[3];
*--hp = r[1];
*--hp = r[0];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(474);
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
r[6] = (hendblk(6+1));
r[0] = r[6];
r[1] = r[2];
r[2] = (mknull());
goto gs_find_2Dfree;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 474: /* clo ek r */
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +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 k id oport xlam cstr p */
hreserve(hbsz(6+1), 8); /* 8 live regs */
*--hp = r[7];
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(475);
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
r[8] = (hendblk(6+1));
r[9+0] = r[8];
r[9+1] = r[5];
r[9+2] = (mknull());
r[9+3] = (mknull());
r[9+4] = (mknull());
r[9+5] = r[1];
r[9+6] = obj_from_bool(0);
r[9+7] = r[7];
r += 9; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
goto gs_codegen;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 475: /* clo ek . */
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +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 . k id oport xlam cstr p */
{ /* get-output-string */
obj o = r[7]; cxtype_oport_t *vt = ckoportvt(o);
if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG &&
vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[8] = (mkeof());
initial switch to libl
2023-04-02 22:16:43 +02:00
else { cbuf_t *pcb = oportdata(o);
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
r[8] = (hpushstr(8, newstring(cbdata(pcb)))); } }
(void)(objptr_from_obj(r[6])[0] = (r[8]));
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14266_len;
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
r[9] = (objptr_from_obj(r[6])[0]);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14266_len = (stringlen((r[9])));
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
r[9] = (car((r[5])));
r[9] = obj_from_bool((r[9]) == (mksymbol(internsym("lambda"))));
if (bool_from_obj(r[9])) {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
if (((v14266_len) > (+4))) {
{ char_t v14270_tmp;
body transform fix (caused slow let* expansion)
2023-04-04 02:41:15 +02:00
r[9] = (objptr_from_obj(r[6])[0]);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14270_tmp = (*(unsigned char*)stringref((r[9]), (+0)));
r[9] = obj_from_bool((v14270_tmp) == ('&')); }
body transform fix (caused slow let* expansion)
2023-04-04 02:41:15 +02:00
if (bool_from_obj(r[9])) {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ char_t v14269_tmp;
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
r[9] = (objptr_from_obj(r[6])[0]);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14269_tmp = (*(unsigned char*)stringref((r[9]), (+1)));
r[9] = obj_from_bool((v14269_tmp) == ('0')); }
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
if (bool_from_obj(r[9])) {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ char_t v14268_tmp;
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
r[9] = (objptr_from_obj(r[6])[0]);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14268_tmp = (*(unsigned char*)stringref((r[9]), (+2)));
r[9] = obj_from_bool((v14268_tmp) == ('{')); }
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
if (bool_from_obj(r[9])) {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ char_t v14267_tmp;
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
r[9] = (objptr_from_obj(r[6])[0]);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14267_tmp = (*(unsigned char*)stringref((r[9]), (fxsub((v14266_len), (+1)))));
r[9] = obj_from_bool((v14267_tmp) == ('}')); }
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
} else {
r[9] = obj_from_bool(0);
}
} else {
r[9] = obj_from_bool(0);
}
} else {
r[9] = obj_from_bool(0);
}
} else {
r[9] = obj_from_bool(0);
}
} else {
r[9] = obj_from_bool(0);
}
if (bool_from_obj(r[9])) {
(void)(oportputc('\n', (r[4])));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__233003), (r[4]), 1));
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
(void)(oportputcircular((r[3]), (r[4]), 1));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__232958), (r[4]), 1));
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
hreserve(hbsz(2+1), 9); /* 9 live regs */
*--hp = r[4];
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(476);
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
r[9] = (hendblk(2+1));
r[10] = (objptr_from_obj(r[6])[0]);
{ /* substring */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
int *d = substring(stringdata((r[10])), (+3), (fxsub((v14266_len), (+1))));
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
r[10] = (hpushstr(11, d)); }
r[0] = r[9];
r[1] = (r[10]);
r[2] = r[4];
goto gs_display_2Dcode;
} else {
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
{ /* cons */
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
hreserve(hbsz(3), 9); /* 9 live regs */
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
*--hp = (mknull());
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
*--hp = r[5];
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
r[9] = (hendblk(3)); }
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
{ /* cons */
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
hreserve(hbsz(3), 10); /* 10 live regs */
*--hp = r[9];
*--hp = r[3];
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
*--hp = obj_from_size(PAIR_BTAG);
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
r[9] = (hendblk(3)); }
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
{ /* cons */
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
hreserve(hbsz(3), 10); /* 10 live regs */
*--hp = r[9];
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
*--hp = (mksymbol(internsym("set!")));
*--hp = obj_from_size(PAIR_BTAG);
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
r[9] = (hendblk(3)); }
hreserve(hbsz(1), 10); /* 10 live regs */
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
*--hp = obj_from_void(0);
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
r[10] = (hendblk(1));
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
{ /* open-output-string */
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
r[11] = (mkoport_string(11, newcb())); }
hreserve(hbsz(5+1), 12); /* 12 live regs */
*--hp = (r[11]);
*--hp = (r[10]);
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
*--hp = r[4];
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
*--hp = r[2];
*--hp = r[9];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(477);
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
r[12] = (hendblk(5+1));
r[0] = (r[12]);
r[1] = r[9];
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
r[2] = (mknull());
goto gs_find_2Dfree;
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
} }
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 476: /* clo ek . */
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 477: /* clo ek r */
initial commit
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(478);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 478: /* clo ek . */
initial commit
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());
initial switch to libl
2023-04-02 22:16:43 +02:00
else { cbuf_t *pcb = oportdata(o);
initial commit
2023-02-28 06:31:08 +01:00
r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } }
(void)(objptr_from_obj(r[4])[0] = (r[6]));
(void)(oportputc('\n', (r[3])));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__232980), (r[3]), 1));
initial commit
2023-02-28 06:31:08 +01:00
hreserve(hbsz(2+1), 7); /* 7 live regs */
*--hp = r[3];
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(479);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 479: /* clo ek . */
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 480: /* scan-top-form k x */
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
assert(rc == 3);
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
t.scm/t.c added (partially operational)
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])));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[3] = ((obj)fopen(stringchars((r[2])), stringchars((cx__233064))));
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
hreserve(hbsz(1+1), 4); /* 4 live regs */
*--hp = r[0];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(481);
t.scm/t.c added (partially operational)
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);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v10969;
t.scm/t.c added (partially operational)
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];
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[5+2] = (cx__233068);
t.scm/t.c added (partially operational)
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 {
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
if ((ispair((r[1])))) {
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
hreserve(hbsz(2+1), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[0];
*--hp = r[1];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(487);
t.scm/t.c added (partially operational)
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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
rc = 4;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
} else {
t.scm/t.c added (partially operational)
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;
}
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 481: /* clo ek r */
t.scm/t.c added (partially operational)
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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v10969: /* ek r k */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[2];
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
*--hp = r[1];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(482);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[3] = (hendblk(2+1));
internal (read) in n.{sf,c} is now R7RS-compatible
2023-03-26 22:29:57 +02:00
r[4+0] = (cx__25read);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[3];
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
r[4+2] = r[1];
internal (read) in n.{sf,c} is now R7RS-compatible
2023-03-26 22:29:57 +02:00
r[4+3] = obj_from_bool(0);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r += 4; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
internal (read) in n.{sf,c} is now R7RS-compatible
2023-03-26 22:29:57 +02:00
rc = 4;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 482: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
r[1+3] = p[2]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
t.scm/t.c added (partially operational)
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(486);
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
r[4] = (hendblk(2+1));
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[0] = r[4];
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
/* r[1] */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
/* r[2] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v10978;
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 483: /* clo k x */
t.scm/t.c added (partially operational)
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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v10978: /* k x r */
t.scm/t.c added (partially operational)
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;
initial commit
2023-02-28 06:31:08 +01:00
} else {
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
hreserve(hbsz(1+1), 3); /* 3 live regs */
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(483);
t.scm/t.c added (partially operational)
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(484);
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
r[3] = (hendblk(3+1));
r[0] = r[3];
/* r[1] */
goto gs_scan_2Dtop_2Dform;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 484: /* clo ek . */
t.scm/t.c added (partially operational)
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(485);
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
r[5] = (hendblk(2+1));
internal (read) in n.{sf,c} is now R7RS-compatible
2023-03-26 22:29:57 +02:00
r[0] = (cx__25read);
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
pc = objptr_from_obj(r[0])[0];
r[1] = r[5];
/* r[2] */
internal (read) in n.{sf,c} is now R7RS-compatible
2023-03-26 22:29:57 +02:00
r[3] = obj_from_bool(0);
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
rreserve(MAX_HOSTREGS);
internal (read) in n.{sf,c} is now R7RS-compatible
2023-03-26 22:29:57 +02:00
rc = 4;
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 485: /* clo ek r */
t.scm/t.c added (partially operational)
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 486: /* clo ek . */
t.scm/t.c added (partially operational)
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 487: /* clo ek r */
t.scm/t.c added (partially operational)
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];
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v10953;
t.scm/t.c added (partially operational)
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(490);
t.scm/t.c added (partially operational)
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(492);
t.scm/t.c added (partially operational)
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;
}
}
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 488: /* clo k l */
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
assert(rc == 3);
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v10953: /* k l */
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
if ((ispair((r[1])))) {
hreserve(hbsz(0+1), 2); /* 2 live regs */
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(488);
t.scm/t.c added (partially operational)
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(489);
t.scm/t.c added (partially operational)
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;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 489: /* clo ek . */
t.scm/t.c added (partially operational)
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 490: /* clo ek r */
t.scm/t.c added (partially operational)
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(491);
t.scm/t.c added (partially operational)
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 491: /* clo ek r */
t.scm/t.c added (partially operational)
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();
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[4+2] = obj_from_void(boxref((r[1])) = (r[3]));
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 492: /* clo ek r */
t.scm/t.c added (partially operational)
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 493: /* process-top-form k x oport */
t.scm/t.c added (partially operational)
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])));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[4] = ((obj)fopen(stringchars((r[3])), stringchars((cx__233064))));
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
hreserve(hbsz(1+1), 5); /* 5 live regs */
*--hp = r[0];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(494);
t.scm/t.c added (partially operational)
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);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v10891;
t.scm/t.c added (partially operational)
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];
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[2] = (cx__233068);
t.scm/t.c added (partially operational)
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];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(500);
t.scm/t.c added (partially operational)
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(513);
t.scm/t.c added (partially operational)
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;
}
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 494: /* clo ek r */
t.scm/t.c added (partially operational)
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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v10891: /* ek r k */
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[2];
*--hp = r[1];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(495);
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
r[3] = (hendblk(2+1));
internal (read) in n.{sf,c} is now R7RS-compatible
2023-03-26 22:29:57 +02:00
r[4+0] = (cx__25read);
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[3];
r[4+2] = r[1];
internal (read) in n.{sf,c} is now R7RS-compatible
2023-03-26 22:29:57 +02:00
r[4+3] = obj_from_bool(0);
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
internal (read) in n.{sf,c} is now R7RS-compatible
2023-03-26 22:29:57 +02:00
rc = 4;
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 495: /* clo ek r */
t.scm/t.c added (partially operational)
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(499);
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
r[4] = (hendblk(2+1));
r[0] = r[4];
/* r[1] */
/* r[2] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v10900;
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 496: /* clo k x */
t.scm/t.c added (partially operational)
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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v10900: /* k x r */
t.scm/t.c added (partially operational)
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(496);
t.scm/t.c added (partially operational)
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(497);
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
r[3] = (hendblk(3+1));
r[0] = r[3];
/* r[1] */
goto gs_scan_2Dtop_2Dform;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 497: /* clo ek . */
t.scm/t.c added (partially operational)
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(498);
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
r[5] = (hendblk(2+1));
internal (read) in n.{sf,c} is now R7RS-compatible
2023-03-26 22:29:57 +02:00
r[0] = (cx__25read);
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
pc = objptr_from_obj(r[0])[0];
r[1] = r[5];
/* r[2] */
internal (read) in n.{sf,c} is now R7RS-compatible
2023-03-26 22:29:57 +02:00
r[3] = obj_from_bool(0);
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
rreserve(MAX_HOSTREGS);
internal (read) in n.{sf,c} is now R7RS-compatible
2023-03-26 22:29:57 +02:00
rc = 4;
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 498: /* clo ek r */
t.scm/t.c added (partially operational)
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 499: /* clo ek . */
t.scm/t.c added (partially operational)
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 500: /* clo ek r */
t.scm/t.c added (partially operational)
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] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v10875;
t.scm/t.c added (partially operational)
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(503);
expander: proper recursive top-level
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;
initial commit
2023-02-28 06:31:08 +01:00
} else {
if (((r[1]) == (mksymbol(internsym("define"))))) {
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
hreserve(hbsz(2+1), 5); /* 5 live regs */
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
*--hp = r[4];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(507);
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
r[5] = (hendblk(2+1));
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[0] = (cx_transform);
pc = objptr_from_obj(r[0])[0];
r[1] = r[5];
r[2] = obj_from_bool(0);
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
/* r[3] */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
rc = 4;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
} else {
if ((isprocedure((r[1])))) {
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[4];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(508);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[5] = (hendblk(2+1));
initial commit
2023-02-28 06:31:08 +01:00
r[0] = r[1];
pc = objptr_from_obj(r[0])[0];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[1] = r[5];
r[2] = r[3];
r[3] = (cx_top_2Dtransformer_2Denv);
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
} else {
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
hreserve(hbsz(2+1), 5); /* 5 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
*--hp = r[4];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(509);
expander: proper recursive top-level
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] */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
rc = 4;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
}
}
}
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 501: /* clo k x* */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
assert(rc == 3);
initial commit
2023-02-28 06:31:08 +01:00
{ obj* p = objptr_from_obj(r[0]);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[1+2] = p[1]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v10875: /* k x* oport */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
if ((ispair((r[1])))) {
hreserve(hbsz(1+1), 3); /* 3 live regs */
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(501);
expander: proper recursive top-level
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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(502);
expander: proper recursive top-level
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 {
initial commit
2023-02-28 06:31:08 +01:00
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[2] = obj_from_void(0);
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 502: /* clo ek . */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
initial commit
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 */
expander: proper recursive top-level
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])));
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
rc = 3;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 503: /* clo ek r */
initial commit
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 */
expander: proper recursive top-level
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 */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(504);
expander: proper recursive top-level
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;
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 504: /* clo ek r */
initial commit
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 */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
/* ek r oport k x r */
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
(void)(boxref((r[1])) = (r[5]));
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[6] = (cdr((r[4])));
r[6] = (car((r[6])));
{ /* memq */
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
obj x = (r[6]), l = (mknull());
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
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];
initial commit
2023-02-28 06:31:08 +01:00
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
} else {
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
r[6] = (cdr((r[4])));
r[6] = (cdr((r[6])));
r[6] = (car((r[6])));
r[6] = obj_from_bool(issymbol((r[6])));
if (bool_from_obj(r[6])) {
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
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])));
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
(void)(oportputc('\n', (r[2])));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__232969), (r[2]), 1));
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
(void)(oportputcircular((r[6]), (r[2]), 1));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__232934), (r[2]), 1));
(void)(oportputcircular((cx__232968), (r[2]), 1));
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
(void)(oportputcircular((r[7]), (r[2]), 1));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[6] = obj_from_void(oportputcircular((cx__232958), (r[2]), 1));
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
r[0] = r[3];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[6];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
rreserve(MAX_HOSTREGS);
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
rc = 3;
goto jump;
} else {
r[6] = (cdr((r[4])));
r[6] = (car((r[6])));
r[7] = (cdr((r[4])));
r[7] = (cdr((r[7])));
r[7] = (car((r[7])));
(void)(oportputc('\n', (r[2])));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__232959), (r[2]), 1));
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
(void)(oportputcircular((r[6]), (r[2]), 1));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__232958), (r[2]), 1));
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
{ /* open-output-string */
r[8] = (mkoport_string(8, newcb())); }
hreserve(hbsz(3+1), 9); /* 9 live regs */
*--hp = r[2];
*--hp = r[3];
*--hp = r[8];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(505);
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
r[9] = (hendblk(3+1));
r[0] = r[9];
r[1] = r[7];
r[2] = r[8];
goto gs_write_2Dserialized_2Dsexp;
}
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
}
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 505: /* clo ek . */
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +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];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(506);
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +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());
initial switch to libl
2023-04-02 22:16:43 +02:00
else { cbuf_t *pcb = oportdata(o);
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +01:00
r[6] = (hpushstr(6, newstring(cbdata(pcb)))); } }
r[0] = r[5];
r[1] = r[6];
r[2] = r[4];
goto gs_display_2Dcode;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 506: /* clo ek . */
3-string compiled code entries; 'A'-type added
2023-03-22 23:13:12 +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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 507: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
r[1+3] = p[2]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
/* ek r oport k */
r[4] = (cdr((r[1])));
r[4] = (cdr((r[4])));
r[4] = (car((r[4])));
r[5] = (cdr((r[1])));
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[5] = (car((r[5])));
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
r[6+0] = r[3];
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
r[6+1] = r[5];
initial-transformers op, fancy define built-in, minor fixes
2023-04-13 23:59:31 +02:00
r[6+2] = r[4];
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
r[6+3] = r[2];
r += 6; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
3-string compiled mode; 'P' entries added
2023-03-23 04:14:11 +01:00
goto gs_process_2Ddefine;
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 508: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[1+3] = p[2]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
/* ek r oport k */
r[0] = r[3];
/* r[1] */
/* r[2] */
initial commit
2023-02-28 06:31:08 +01:00
goto gs_process_2Dtop_2Dform;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 509: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[1+3] = p[2]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
/* ek r k oport */
hreserve(hbsz(1), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_void(0);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[4] = (hendblk(1));
initial commit
2023-02-28 06:31:08 +01:00
{ /* open-output-string */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[5] = (mkoport_string(5, newcb())); }
hreserve(hbsz(5+1), 6); /* 6 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
*--hp = r[1];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(510);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[6] = (hendblk(5+1));
r[0] = r[6];
initial commit
2023-02-28 06:31:08 +01:00
/* r[1] */
r[2] = (mknull());
goto gs_find_2Dfree;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 510: /* clo ek r */
initial commit
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];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[1+6] = p[5]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
/* ek r r k oport cstr p */
hreserve(hbsz(4+1), 7); /* 7 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(511);
expander: proper recursive top-level
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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
goto gs_codegen;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 511: /* clo ek . */
initial commit
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];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[1+5] = p[4]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
/* ek . k oport cstr p */
initial commit
2023-02-28 06:31:08 +01:00
{ /* get-output-string */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
obj o = r[5]; cxtype_oport_t *vt = ckoportvt(o);
initial commit
2023-02-28 06:31:08 +01:00
if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG &&
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof());
initial switch to libl
2023-04-02 22:16:43 +02:00
else { cbuf_t *pcb = oportdata(o);
expander: proper recursive top-level
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])));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__232980), (r[3]), 1));
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
hreserve(hbsz(2+1), 7); /* 7 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[3];
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(512);
expander: proper recursive top-level
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];
initial commit
2023-02-28 06:31:08 +01:00
goto gs_display_2Dcode;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 512: /* clo ek . */
initial commit
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];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[1+3] = p[2]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
/* ek . k oport */
initial commit
2023-02-28 06:31:08 +01:00
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[2] = obj_from_void(oportputc('\n', (r[3])));
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 513: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[1+3] = p[2]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
/* ek r k oport */
hreserve(hbsz(1), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = obj_from_void(0);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[4] = (hendblk(1));
initial commit
2023-02-28 06:31:08 +01:00
{ /* open-output-string */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[5] = (mkoport_string(5, newcb())); }
hreserve(hbsz(5+1), 6); /* 6 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
*--hp = r[1];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(514);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[6] = (hendblk(5+1));
r[0] = r[6];
initial commit
2023-02-28 06:31:08 +01:00
/* r[1] */
r[2] = (mknull());
goto gs_find_2Dfree;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 514: /* clo ek r */
initial commit
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];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[1+6] = p[5]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
/* ek r r k oport cstr p */
hreserve(hbsz(4+1), 7); /* 7 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[6];
*--hp = r[5];
*--hp = r[4];
*--hp = r[3];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(515);
expander: proper recursive top-level
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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
goto gs_codegen;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 515: /* clo ek . */
initial commit
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];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[1+5] = p[4]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
/* ek . k oport cstr p */
initial commit
2023-02-28 06:31:08 +01:00
{ /* get-output-string */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
obj o = r[5]; cxtype_oport_t *vt = ckoportvt(o);
initial commit
2023-02-28 06:31:08 +01:00
if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG &&
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[6] = (mkeof());
initial switch to libl
2023-04-02 22:16:43 +02:00
else { cbuf_t *pcb = oportdata(o);
expander: proper recursive top-level
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])));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__232980), (r[3]), 1));
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
hreserve(hbsz(2+1), 7); /* 7 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[3];
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(516);
expander: proper recursive top-level
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];
initial commit
2023-02-28 06:31:08 +01:00
goto gs_display_2Dcode;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 516: /* clo ek . */
initial commit
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];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[1+3] = p[2]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
/* ek . k oport */
initial commit
2023-02-28 06:31:08 +01:00
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[2] = obj_from_void(oportputc('\n', (r[3])));
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 517: /* path-strip-directory k filename */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
r += 1; /* shift reg. wnd */
gs_path_2Dstrip_2Ddirectory: /* k filename */
initial switch to libl
2023-04-02 22:16:43 +02:00
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[0];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(518);
initial switch to libl
2023-04-02 22:16:43 +02:00
r[2] = (hendblk(1+1));
r[3+0] = (cx_string_2D_3Elist);
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[2];
r[3+2] = r[1];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 518: /* clo ek r */
initial switch to libl
2023-04-02 22:16:43 +02:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r k */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14265_tmp;
initial commit
2023-02-28 06:31:08 +01:00
{ /* length */
initial switch to libl
2023-04-02 22:16:43 +02:00
int n; obj l = r[1];
initial commit
2023-02-28 06:31:08 +01:00
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14265_tmp = (n); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14265_tmp);
initial commit
2023-02-28 06:31:08 +01:00
hreserve(hbsz(3)*c, 3); /* 3 live regs */
initial switch to libl
2023-04-02 22:16:43 +02:00
l = r[1]; /* gc-safe */
initial commit
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); }
initial switch to libl
2023-04-02 22:16:43 +02:00
r[3] = (o); } }
r[0] = r[2];
r[1] = r[3];
initial commit
2023-02-28 06:31:08 +01:00
r[2] = (mknull());
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v10772;
initial commit
2023-02-28 06:31:08 +01:00
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v10772: /* k l r */
initial commit
2023-02-28 06:31:08 +01:00
if ((isnull((r[1])))) {
initial switch to libl
2023-04-02 22:16:43 +02:00
r[3+0] = (cx_list_2D_3Estring);
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[0];
r[3+2] = r[2];
r += 3; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[3] = (car((r[1])));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[3] = (ismemv((r[3]), (cx__233189)));
initial commit
2023-02-28 06:31:08 +01:00
if (bool_from_obj(r[3])) {
initial switch to libl
2023-04-02 22:16:43 +02:00
r[3+0] = (cx_list_2D_3Estring);
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[0];
r[3+2] = r[2];
r += 3; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
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];
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v10772;
initial commit
2023-02-28 06:31:08 +01:00
}
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 519: /* path-strip-extension k filename */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
r += 1; /* shift reg. wnd */
gs_path_2Dstrip_2Dextension: /* k filename */
initial switch to libl
2023-04-02 22:16:43 +02:00
hreserve(hbsz(2+1), 2); /* 2 live regs */
*--hp = r[0];
*--hp = r[1];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(520);
initial switch to libl
2023-04-02 22:16:43 +02:00
r[2] = (hendblk(2+1));
r[3+0] = (cx_string_2D_3Elist);
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[2];
r[3+2] = r[1];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 520: /* clo ek r */
initial switch to libl
2023-04-02 22:16:43 +02: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 filename k */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14263_tmp;
initial commit
2023-02-28 06:31:08 +01:00
{ /* length */
initial switch to libl
2023-04-02 22:16:43 +02:00
int n; obj l = r[1];
initial commit
2023-02-28 06:31:08 +01:00
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14263_tmp = (n); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14263_tmp);
initial switch to libl
2023-04-02 22:16:43 +02:00
hreserve(hbsz(3)*c, 4); /* 4 live regs */
l = r[1]; /* gc-safe */
initial commit
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); }
initial switch to libl
2023-04-02 22:16:43 +02:00
r[4] = (o); } }
r[5] = (ismemv(obj_from_char('.'), (r[4])));
if (bool_from_obj(r[5])) {
r[6] = (cdr((r[5])));
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ fixnum_t v14264_tmp;
initial commit
2023-02-28 06:31:08 +01:00
{ /* length */
initial switch to libl
2023-04-02 22:16:43 +02:00
int n; obj l = r[6];
initial commit
2023-02-28 06:31:08 +01:00
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14264_tmp = (n); }
initial commit
2023-02-28 06:31:08 +01:00
{ /* reverse */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
obj l, o = mknull(); int c = (v14264_tmp);
initial switch to libl
2023-04-02 22:16:43 +02:00
hreserve(hbsz(3)*c, 7); /* 7 live regs */
l = r[6]; /* gc-safe */
initial commit
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); }
initial switch to libl
2023-04-02 22:16:43 +02:00
r[6] = (o); } }
r[0] = (cx_list_2D_3Estring);
pc = objptr_from_obj(r[0])[0];
r[1] = r[3];
r[2] = r[6];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
initial commit
2023-02-28 06:31:08 +01:00
} else {
initial switch to libl
2023-04-02 22:16:43 +02:00
r[0] = r[3];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
/* r[2] */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
initial switch to libl
2023-04-02 22:16:43 +02:00
}
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 521: /* module-name k filename */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
r += 1; /* shift reg. wnd */
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
gs_module_2Dname: /* k filename */
initial commit
2023-02-28 06:31:08 +01:00
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[0];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(522);
initial commit
2023-02-28 06:31:08 +01:00
r[2] = (hendblk(1+1));
r[0] = r[2];
/* r[1] */
goto gs_path_2Dstrip_2Ddirectory;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 522: /* clo ek r */
initial commit
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 */
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
r[0] = r[2];
initial commit
2023-02-28 06:31:08 +01:00
/* r[1] */
goto gs_path_2Dstrip_2Dextension;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 523: /* process-file k fname */
initial commit
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));
file rename fixes; skint compiles and runs tests
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];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[3];
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
*--hp = r[4];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
*--hp = r[0];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(524);
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
r[5] = (hendblk(5+1));
r[0] = r[5];
/* r[1] */
goto gs_module_2Dname;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 524: /* clo ek r */
file rename fixes; skint compiles and runs tests
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 */
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[7] = ((obj)fopen(stringchars((r[6])), stringchars((cx__233064))));
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
hreserve(hbsz(6+1), 8); /* 8 live regs */
*--hp = r[5];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
*--hp = r[6];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(525);
file rename fixes; skint compiles and runs tests
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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v10696;
initial commit
2023-02-28 06:31:08 +01:00
} else {
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
r[0] = (cx_file_2Derror);
pc = objptr_from_obj(r[0])[0];
r[1] = r[8];
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[2] = (cx__233068);
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
r[3] = r[6];
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 525: /* clo ek r */
initial commit
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];
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
r[1+5] = p[4];
r[1+6] = p[5];
r[1+7] = p[6]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v10696: /* ek r fname k oport mname r iport */
file rename fixes; skint compiles and runs tests
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]));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__233237), (r[4]), 1));
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
r[8] = (objptr_from_obj(r[5])[0]);
(void)(oportputcircular((r[8]), (r[4]), 1));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__233236), (r[4]), 1));
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
hreserve(hbsz(4+1), 8); /* 8 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[4];
*--hp = r[5];
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
*--hp = r[3];
*--hp = r[7];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(526);
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
r[8] = (hendblk(4+1));
r[0] = r[8];
initial commit
2023-02-28 06:31:08 +01:00
r[1] = r[2];
goto gs_path_2Dstrip_2Ddirectory;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 526: /* clo ek r */
initial commit
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];
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
r[1+4] = p[3];
r[1+5] = p[4]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
/* ek r iport k mname oport */
(void)(oportputcircular((r[1]), (r[5]), 1));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__233235), (r[5]), 1));
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
(void)(oportputc('\n', (r[5])));
(void)(oportputc('\n', (r[5])));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__233234), (r[5]), 1));
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
r[6] = (objptr_from_obj(r[4])[0]);
(void)(oportputcircular((r[6]), (r[5]), 1));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__233233), (r[5]), 1));
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
(void)(oportputc('\n', (r[5])));
initial commit
2023-02-28 06:31:08 +01:00
hreserve(hbsz(3+1), 6); /* 6 live regs */
file rename fixes; skint compiles and runs tests
2023-03-01 00:05:08 +01:00
*--hp = r[5];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[3];
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(527);
initial commit
2023-02-28 06:31:08 +01:00
r[6] = (hendblk(3+1));
internal (read) in n.{sf,c} is now R7RS-compatible
2023-03-26 22:29:57 +02:00
r[0] = (cx__25read);
initial commit
2023-02-28 06:31:08 +01:00
pc = objptr_from_obj(r[0])[0];
r[1] = r[6];
r[2] = (objptr_from_obj(r[2])[0]);
internal (read) in n.{sf,c} is now R7RS-compatible
2023-03-26 22:29:57 +02:00
r[3] = obj_from_bool(0);
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
internal (read) in n.{sf,c} is now R7RS-compatible
2023-03-26 22:29:57 +02:00
rc = 4;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 527: /* clo ek r */
initial commit
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 */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
hreserve(hbsz(3+1), 5); /* 5 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[4];
*--hp = r[3];
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(531);
expander: proper recursive top-level
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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v10707;
initial commit
2023-02-28 06:31:08 +01:00
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 528: /* clo k x */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
assert(rc == 3);
initial commit
2023-02-28 06:31:08 +01:00
{ obj* p = objptr_from_obj(r[0]);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[1+2] = p[1];
r[1+3] = p[2]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v10707: /* k x oport iport */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
if ((iseof((r[1])))) {
initial commit
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 {
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
hreserve(hbsz(2+1), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[3];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
*--hp = r[2];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(528);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[4] = (hendblk(2+1));
hreserve(hbsz(3+1), 5); /* 5 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[0];
*--hp = r[4];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
*--hp = r[3];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(529);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[4] = (hendblk(3+1));
r[0] = r[4];
initial commit
2023-02-28 06:31:08 +01:00
/* r[1] */
/* r[2] */
goto gs_process_2Dtop_2Dform;
}
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 529: /* clo ek . */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
initial commit
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 */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
/* ek . iport loop k */
hreserve(hbsz(2+1), 5); /* 5 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[4];
*--hp = r[3];
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(530);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[5] = (hendblk(2+1));
internal (read) in n.{sf,c} is now R7RS-compatible
2023-03-26 22:29:57 +02:00
r[0] = (cx__25read);
initial commit
2023-02-28 06:31:08 +01:00
pc = objptr_from_obj(r[0])[0];
r[1] = r[5];
r[2] = (objptr_from_obj(r[2])[0]);
internal (read) in n.{sf,c} is now R7RS-compatible
2023-03-26 22:29:57 +02:00
r[3] = obj_from_bool(0);
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
internal (read) in n.{sf,c} is now R7RS-compatible
2023-03-26 22:29:57 +02:00
rc = 4;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 530: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[1+3] = p[2]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
expander: proper recursive top-level
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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
rc = 3;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 531: /* clo ek . */
initial commit
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 */
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__233225), (r[4]), 1));
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 532: /* clo ek r */
values/call-with-values implemented
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 */
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(533);
values/call-with-values implemented
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 533: /* clo ek r */
values/call-with-values implemented
2023-03-06 21:53:37 +01:00
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* ek r */
cx_callmv_2Dadapter_2Dclosure = r[1];
initial commit
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 */
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(534);
initial commit
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 534: /* clo ek . */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
r += 1; /* shift reg. wnd */
/* ek . */
runs init code from s.c
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 */
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
*--hp = obj_from_case(535);
runs init code from s.c
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;
immediate-hash, '#&box constants serialized
2023-04-20 17:03:14 +02:00
case 535: /* clo ek . */
runs init code from s.c
2023-03-03 19:18:00 +01:00
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
r += 1; /* shift reg. wnd */
/* ek . */
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
cx_test1 = (cx__233264);
cx_test2 = (cx__233534);
cx_test3 = (cx__233736);
cx_test4 = (cx__234138);
cx_test5 = (cx__234268);
faster library appends; -v in repl (verbosity)
2023-03-08 19:03:39 +01:00
cx__2Averbose_2A = obj_from_bool(0);
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
cx__2Areset_2A = obj_from_bool(0);
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
{ static obj c[] = { obj_from_case(536) }; cx__25residual_2Dtty_2Dport_3F = (obj)c; }
{ static obj c[] = { obj_from_case(537) }; cx_error_2A = (obj)c; }
{ static obj c[] = { obj_from_case(539) }; cx_run_2Dtests = (obj)c; }
{ static obj c[] = { obj_from_case(545) }; cx_repl_2Deval = (obj)c; }
{ static obj c[] = { obj_from_case(552) }; cx_repl_2Deval_2Dtop_2Dform = (obj)c; }
{ static obj c[] = { obj_from_case(561) }; cx_repl_2Dread = (obj)c; }
{ static obj c[] = { obj_from_case(562) }; cx_repl_2Dfrom_2Dport = (obj)c; }
{ static obj c[] = { obj_from_case(567) }; cx_repl_2Dfile = (obj)c; }
{ static obj c[] = { obj_from_case(570) }; cx_benchmark_2Dfile = (obj)c; }
{ static obj c[] = { obj_from_case(576) }; cx_service_2Drepl = (obj)c; }
{ static obj c[] = { obj_from_case(577) }; cx_tcode_2Drepl = (obj)c; }
{ static obj c[] = { obj_from_case(579) }; cx_debug_2Drepl = (obj)c; }
{ static obj c[] = { obj_from_case(585) }; cx_main = (obj)c; }
initial commit
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;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 536: /* %residual-tty-port? k o */
assert(rc == 3);
r += 1; /* shift reg. wnd */
/* k o */
{ /* tty-port? */
extern int is_tty_port(obj o);
int x = is_tty_port((r[1]));
r[2] = obj_from_bool(x); }
r[3+0] = r[0];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = obj_from_ktrap();
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 537: /* error* k msg args */
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
assert(rc == 4);
r += 1; /* shift reg. wnd */
gs_error_2A: /* k msg args */
if ((isprocedure((cx__2Areset_2A)))) {
r[3] = (cx__2Acurrent_2Derror_2Dport_2A);
(void)(oportputcircular((r[1]), (r[3]), 1));
(void)(oportputc('\n', (r[3])));
hreserve(hbsz(1+1), 4); /* 4 live regs */
*--hp = r[0];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(538);
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
r[4] = (hendblk(1+1));
r[0] = r[4];
r[1] = r[2];
r[2] = r[3];
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v10658;
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
} else {
{ /* cons */
hreserve(hbsz(3), 3); /* 3 live regs */
*--hp = r[2];
*--hp = r[1];
*--hp = obj_from_size(PAIR_BTAG);
r[3] = (hendblk(3)); }
r[4+0] = (cx_apply);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[0];
r[4+2] = (cx_error);
r[4+3] = r[3];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
}
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v10658: /* k l p */
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
if ((ispair((r[1])))) {
r[3] = (car((r[1])));
(void)(oportputcircular((r[3]), (r[2]), 0));
(void)(oportputc('\n', (r[2])));
r[3] = (cdr((r[1])));
/* r[0] */
r[1] = r[3];
/* r[2] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v10658;
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
} else {
/* r[0] */
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_void(0);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 538: /* clo ek . */
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +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; /* shift reg. wnd */
/* ek . k */
r[0] = (cx__2Areset_2A);
pc = objptr_from_obj(r[0])[0];
r[1] = r[2];
r[2] = obj_from_bool(0);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 539: /* run-tests k */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 2);
r += 1; /* shift reg. wnd */
faster library appends; -v in repl (verbosity)
2023-03-08 19:03:39 +01:00
gs_run_2Dtests: /* k */
initial commit
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]));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__234703), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
initial commit
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];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(540);
initial commit
2023-02-28 06:31:08 +01:00
r[2] = (hendblk(2+1));
r[0] = r[2];
r[1] = (cx_test1);
goto gs_evaluate;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 540: /* clo ek r */
initial commit
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];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(541);
initial commit
2023-02-28 06:31:08 +01:00
r[4] = (hendblk(2+1));
r[0] = r[4];
r[1] = (cx_test2);
goto gs_evaluate;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 541: /* clo ek r */
initial commit
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];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(542);
initial commit
2023-02-28 06:31:08 +01:00
r[4] = (hendblk(2+1));
r[0] = r[4];
r[1] = (cx_test3);
goto gs_evaluate;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 542: /* clo ek r */
initial commit
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];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(543);
initial commit
2023-02-28 06:31:08 +01:00
r[4] = (hendblk(2+1));
r[0] = r[4];
r[1] = (cx_test4);
goto gs_evaluate;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 543: /* clo ek r */
initial commit
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];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(544);
initial commit
2023-02-28 06:31:08 +01:00
r[4] = (hendblk(2+1));
r[0] = r[4];
r[1] = (cx_test5);
goto gs_evaluate;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 544: /* clo ek r */
initial commit
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)));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__234702), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ flonum_t v14261_b;
{ flonum_t v14260_a;
{ const flonum_t v14259_b = (CLOCKS_PER_SEC);
{ const flonum_t v14257_a = (clock());
initial commit
2023-02-28 06:31:08 +01:00
r[4] = (objptr_from_obj(r[3])[0]);
if ((is_fixnum_obj(r[4]))) {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ const flonum_t v14258_tmp = ((flonum_t)fixnum_from_obj(r[4]));
v14260_a = ((v14257_a) - (v14258_tmp)); }
initial commit
2023-02-28 06:31:08 +01:00
} else {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14260_a = ((v14257_a) - flonum_from_obj(r[4]));
initial commit
2023-02-28 06:31:08 +01:00
} }
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14261_b = ((v14260_a) / (v14259_b)); } }
{ const flonum_t v14262_tmp = ((flonum_t)(+1000));
r[4] = obj_from_flonum(4, (v14262_tmp) * (v14261_b)); } }
initial commit
2023-02-28 06:31:08 +01:00
(void)(oportputcircular((r[4]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__234678), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
initial commit
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;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 545: /* repl-eval k x */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
assert(rc == 3);
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
gs_repl_2Deval: /* k x */
syntax-lambda; repl catches errors
2023-03-22 18:21:48 +01:00
cx__2Areset_2A = r[0];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
hreserve(hbsz(1+1), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[0];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(546);
expander: proper recursive top-level
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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
rc = 4;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 546: /* clo ek r */
initial commit
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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
if ((0)) {
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__234775), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
initial commit
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)));
faster library appends; -v in repl (verbosity)
2023-03-08 19:03:39 +01:00
} else {
}
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[2];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(547);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[3] = (hendblk(2+1));
if ((ispair((r[1])))) {
r[4+0] = obj_from_ktrap();
r[4+1] = ((0) ? obj_from_bool(0) : obj_from_void(0));
r[4+2] = r[2];
r[4+3] = r[1];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v10579;
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
} else {
r[4+0] = (cx_x_2Derror);
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[3];
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[4+2] = (cx__234773);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4+3] = r[1];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
}
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 547: /* clo ek . */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v10579: /* ek . k r */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (car((r[3])));
r[4] = obj_from_bool((r[4]) == (mksymbol(internsym("define"))));
if (bool_from_obj(r[4])) {
(void)(car((r[3])) = (mksymbol(internsym("set!"))));
initial commit
2023-02-28 06:31:08 +01:00
} else {
}
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
if ((0)) {
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__234766), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
initial commit
2023-02-28 06:31:08 +01:00
(void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
faster library appends; -v in repl (verbosity)
2023-03-08 19:03:39 +01:00
} else {
}
initial commit
2023-02-28 06:31:08 +01:00
{ /* open-output-string */
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[4] = (mkoport_string(4, newcb())); }
hreserve(hbsz(3+1), 5); /* 5 live regs */
*--hp = r[4];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
*--hp = r[3];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(548);
transformers for basic forms moved from k to s
2023-03-22 19:20:17 +01:00
r[5] = (hendblk(3+1));
r[0] = r[5];
r[1] = r[3];
initial commit
2023-02-28 06:31:08 +01:00
r[2] = (mknull());
goto gs_find_2Dfree;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 548: /* clo ek r */
initial commit
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];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(549);
initial commit
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;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 549: /* clo ek . */
initial commit
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());
initial switch to libl
2023-04-02 22:16:43 +02:00
else { cbuf_t *pcb = oportdata(o);
initial commit
2023-02-28 06:31:08 +01:00
r[4] = (hpushstr(4, newstring(cbdata(pcb)))); } }
hreserve(hbsz(1), 5); /* 5 live regs */
*--hp = obj_from_bool(0);
r[5] = (hendblk(1));
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
if ((0)) {
initial commit
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)));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__234759), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
initial commit
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]));
faster library appends; -v in repl (verbosity)
2023-03-08 19:03:39 +01:00
} else {
}
initial commit
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];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(550);
initial commit
2023-02-28 06:31:08 +01:00
r[7] = (hendblk(2+1));
r[0] = r[6];
expander: proper recursive top-level
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;
initial commit
2023-02-28 06:31:08 +01:00
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 550: /* clo ek r */
initial commit
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 */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
/* ek r k start */
initial commit
2023-02-28 06:31:08 +01:00
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[3];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
*--hp = r[2];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(551);
initial commit
2023-02-28 06:31:08 +01:00
r[4] = (hendblk(2+1));
r[0] = r[4];
/* r[1] */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
goto gs_execute;
initial commit
2023-02-28 06:31:08 +01:00
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 551: /* clo ek r */
initial commit
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 */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
/* ek r k start */
small fixes, void_obj, better error reporting
2023-03-26 18:02:36 +02:00
if (((r[1]) == obj_from_void(0))) {
(void)((0) ? obj_from_bool(0) : obj_from_void(0));
} else {
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
(void)(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
(void)(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
small fixes, void_obj, better error reporting
2023-03-26 18:02:36 +02:00
}
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
if ((0)) {
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__234702), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ flonum_t v14255_b;
{ flonum_t v14254_a;
{ const flonum_t v14253_b = (CLOCKS_PER_SEC);
{ const flonum_t v14251_a = (clock());
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[4] = (objptr_from_obj(r[3])[0]);
if ((is_fixnum_obj(r[4]))) {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
{ const flonum_t v14252_tmp = ((flonum_t)fixnum_from_obj(r[4]));
v14254_a = ((v14251_a) - (v14252_tmp)); }
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
} else {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14254_a = ((v14251_a) - flonum_from_obj(r[4]));
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
} }
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
v14255_b = ((v14254_a) / (v14253_b)); } }
{ const flonum_t v14256_tmp = ((flonum_t)(+1000));
r[4] = obj_from_flonum(4, (v14256_tmp) * (v14255_b)); } }
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
(void)(oportputcircular((r[4]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__234678), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[4] = obj_from_void(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
faster library appends; -v in repl (verbosity)
2023-03-08 19:03:39 +01:00
} else {
r[4] = obj_from_void(0);
}
initial commit
2023-02-28 06:31:08 +01:00
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[2] = r[4];
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 552: /* repl-eval-top-form k x */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
r += 1; /* shift reg. wnd */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
gs_repl_2Deval_2Dtop_2Dform: /* k x */
t.scm/t.c added (partially operational)
2023-03-04 06:07:52 +01:00
if (bool_from_obj(cxs_list2_3F((r[1])))) {
expander: proper recursive top-level
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])));
initial commit
2023-02-28 06:31:08 +01:00
} else {
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[2] = obj_from_bool(0);
}
initial commit
2023-02-28 06:31:08 +01:00
} else {
expander: proper recursive top-level
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])));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[3] = ((obj)fopen(stringchars((r[2])), stringchars((cx__233064))));
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
hreserve(hbsz(1+1), 4); /* 4 live regs */
*--hp = r[0];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(553);
expander: proper recursive top-level
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();
initial commit
2023-02-28 06:31:08 +01:00
r[6+1] = r[5];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[6+2] = r[0];
initial commit
2023-02-28 06:31:08 +01:00
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v10559;
expander: proper recursive top-level
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];
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[5+2] = (cx__233068);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[5+3] = r[2];
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
initial commit
2023-02-28 06:31:08 +01:00
rc = 4;
goto jump;
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
}
initial commit
2023-02-28 06:31:08 +01:00
} else {
expander: proper recursive top-level
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];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(555);
expander: proper recursive top-level
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] */
initial commit
2023-02-28 06:31:08 +01:00
goto gs_repl_2Deval;
}
}
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 553: /* clo ek r */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v10559: /* ek r k */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[2];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(554);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[3] = (hendblk(2+1));
initial commit
2023-02-28 06:31:08 +01:00
r[0] = r[3];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
/* r[1] */
goto gs_repl_2Dfrom_2Dport;
initial commit
2023-02-28 06:31:08 +01:00
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 554: /* clo ek . */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
initial commit
2023-02-28 06:31:08 +01:00
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[1+3] = p[2]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
expander: proper recursive top-level
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] */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
rc = 3;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 555: /* clo ek r */
initial commit
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 */
expander: proper recursive top-level
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];
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v10543;
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
} else {
if (((r[1]) == (mksymbol(internsym("define-syntax"))))) {
hreserve(hbsz(2+1), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[2];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
*--hp = r[3];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(558);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[4] = (hendblk(2+1));
initial commit
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);
expander: proper recursive top-level
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];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(560);
expander: proper recursive top-level
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;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
} else {
r[0] = r[3];
r[1] = r[2];
goto gs_repl_2Deval;
}
}
}
initial commit
2023-02-28 06:31:08 +01:00
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 556: /* clo k x* */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v10543: /* k x* */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
if ((ispair((r[1])))) {
hreserve(hbsz(0+1), 2); /* 2 live regs */
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(556);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[2] = (hendblk(0+1));
hreserve(hbsz(3+1), 3); /* 3 live regs */
*--hp = r[0];
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[1];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
*--hp = r[2];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(557);
expander: proper recursive top-level
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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
}
initial commit
2023-02-28 06:31:08 +01:00
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 557: /* clo ek . */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
initial commit
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 */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
/* ek . loop x* k */
initial commit
2023-02-28 06:31:08 +01:00
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[1] = r[4];
r[2] = (cdr((r[3])));
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 558: /* clo ek r */
initial commit
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 */
expander: proper recursive top-level
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];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(559);
expander: proper recursive top-level
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;
initial commit
2023-02-28 06:31:08 +01:00
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 559: /* clo ek r */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
assert(rc == 3);
initial commit
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 */
expander: proper recursive top-level
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();
bindings replaced with locations!
2023-04-16 03:03:39 +02:00
r[4+2] = obj_from_void(boxref((r[1])) = (r[3]));
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r += 4; /* shift reg wnd */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 560: /* clo ek r */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
assert(rc == 3);
initial commit
2023-02-28 06:31:08 +01:00
{ obj* p = objptr_from_obj(r[0]);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[1+2] = p[1]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
/* ek r k */
initial commit
2023-02-28 06:31:08 +01:00
r[0] = r[2];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
/* r[1] */
goto gs_repl_2Deval_2Dtop_2Dform;
initial commit
2023-02-28 06:31:08 +01:00
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 561: /* repl-read k iport */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
r += 1; /* shift reg. wnd */
gs_repl_2Dread: /* k iport */
env 'peek' and delayed new-id; minor fixes
2024-07-14 16:54:25 +02:00
if (((r[1]) == (cx__2Acurrent_2Dinput_2Dport_2A))) {
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__234831), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
env 'peek' and delayed new-id; minor fixes
2024-07-14 16:54:25 +02:00
(void)(oportflush((cx__2Acurrent_2Doutput_2Dport_2A)));
} else {
}
internal (read) in n.{sf,c} is now R7RS-compatible
2023-03-26 22:29:57 +02:00
r[2+0] = (cx__25read);
initial commit
2023-02-28 06:31:08 +01:00
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = r[0];
r[2+2] = r[1];
internal (read) in n.{sf,c} is now R7RS-compatible
2023-03-26 22:29:57 +02:00
r[2+3] = obj_from_bool(0);
initial commit
2023-02-28 06:31:08 +01:00
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
internal (read) in n.{sf,c} is now R7RS-compatible
2023-03-26 22:29:57 +02:00
rc = 4;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 562: /* repl-from-port k iport */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
assert(rc == 3);
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
gs_repl_2Dfrom_2Dport: /* k iport */
hreserve(hbsz(2+1), 2); /* 2 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[0];
*--hp = r[1];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(563);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[2] = (hendblk(2+1));
r[0] = r[2];
initial commit
2023-02-28 06:31:08 +01:00
/* r[1] */
goto gs_repl_2Dread;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 563: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[1+3] = p[2]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
/* ek r iport k */
r[0] = r[3];
/* r[1] */
/* r[2] */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_loop_v10490;
initial commit
2023-02-28 06:31:08 +01:00
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 564: /* clo k x */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
assert(rc == 3);
initial commit
2023-02-28 06:31:08 +01:00
{ obj* p = objptr_from_obj(r[0]);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[1+2] = p[1]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_loop_v10490: /* k x iport */
expander: proper recursive top-level
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));
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
hreserve(hbsz(1+1), 3); /* 3 live regs */
*--hp = r[2];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(564);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[3] = (hendblk(1+1));
hreserve(hbsz(3+1), 4); /* 4 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[0];
*--hp = r[3];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
*--hp = r[2];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(565);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[3] = (hendblk(3+1));
r[0] = r[3];
/* r[1] */
initial commit
2023-02-28 06:31:08 +01:00
goto gs_repl_2Deval_2Dtop_2Dform;
}
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 565: /* clo ek . */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
initial commit
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 */
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
/* ek . iport loop k */
hreserve(hbsz(2+1), 5); /* 5 live regs */
initial commit
2023-02-28 06:31:08 +01:00
*--hp = r[4];
*--hp = r[3];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(566);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[5] = (hendblk(2+1));
initial commit
2023-02-28 06:31:08 +01:00
r[0] = r[5];
r[1] = r[2];
goto gs_repl_2Dread;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 566: /* clo ek r */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
r[1+3] = p[2]; }
initial commit
2023-02-28 06:31:08 +01:00
r += 1; /* shift reg. wnd */
expander: proper recursive top-level
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 */
initial commit
2023-02-28 06:31:08 +01:00
rreserve(MAX_HOSTREGS);
expander: proper recursive top-level
2023-03-03 01:27:09 +01:00
rc = 3;
initial commit
2023-02-28 06:31:08 +01:00
goto jump;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 567: /* repl-file k fname */
-l option; minor refactoring
2023-03-26 06:38:50 +02:00
assert(rc == 3);
r += 1; /* shift reg. wnd */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
/* k fname */
-l option; minor refactoring
2023-03-26 06:38:50 +02:00
hreserve(hbsz(1), 2); /* 2 live regs */
*--hp = obj_from_void(0);
r[2] = (hendblk(1));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__233064))));
-l option; minor refactoring
2023-03-26 06:38:50 +02:00
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[2];
*--hp = r[0];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(568);
-l option; minor refactoring
2023-03-26 06:38:50 +02:00
r[4] = (hendblk(2+1));
if (bool_from_obj(r[3])) {
r[5] = (mkiport_file(5, (void*)((r[3]))));
r[6+0] = obj_from_ktrap();
r[6+1] = r[5];
r[6+2] = r[0];
r[6+3] = r[2];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v10471;
-l option; minor refactoring
2023-03-26 06:38:50 +02:00
} else {
r[5+0] = (cx_file_2Derror);
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = r[4];
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[5+2] = (cx__233068);
-l option; minor refactoring
2023-03-26 06:38:50 +02:00
r[5+3] = r[1];
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
}
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 568: /* clo ek r */
-l option; minor refactoring
2023-03-26 06:38:50 +02: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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v10471: /* ek r k iport */
-l option; minor refactoring
2023-03-26 06:38:50 +02:00
(void)(objptr_from_obj(r[3])[0] = (r[1]));
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[2];
*--hp = r[3];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(569);
-l option; minor refactoring
2023-03-26 06:38:50 +02:00
r[4] = (hendblk(2+1));
r[0] = r[4];
r[1] = (objptr_from_obj(r[3])[0]);
goto gs_repl_2Dfrom_2Dport;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 569: /* clo ek . */
-l option; minor refactoring
2023-03-26 06:38:50 +02: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 . iport k */
r[0] = (cx_close_2Dinput_2Dport);
pc = objptr_from_obj(r[0])[0];
r[1] = r[3];
r[2] = (objptr_from_obj(r[2])[0]);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 570: /* benchmark-file k fname */
-b option to support ecraven benchmarks in .sf form
2023-03-29 05:40:41 +02:00
assert(rc == 3);
r += 1; /* shift reg. wnd */
gs_benchmark_2Dfile: /* k fname */
hreserve(hbsz(1), 2); /* 2 live regs */
*--hp = obj_from_void(0);
r[2] = (hendblk(1));
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__233064))));
-b option to support ecraven benchmarks in .sf form
2023-03-29 05:40:41 +02:00
hreserve(hbsz(3+1), 4); /* 4 live regs */
*--hp = r[2];
*--hp = r[0];
*--hp = r[1];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(571);
-b option to support ecraven benchmarks in .sf form
2023-03-29 05:40:41 +02:00
r[4] = (hendblk(3+1));
if (bool_from_obj(r[3])) {
r[5] = (mkiport_file(5, (void*)((r[3]))));
r[6+0] = obj_from_ktrap();
r[6+1] = r[5];
r[6+2] = r[1];
r[6+3] = r[0];
r[6+4] = r[2];
r += 6; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
goto s_l_v10435;
-b option to support ecraven benchmarks in .sf form
2023-03-29 05:40:41 +02:00
} else {
r[5+0] = (cx_file_2Derror);
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = r[4];
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[5+2] = (cx__233068);
-b option to support ecraven benchmarks in .sf form
2023-03-29 05:40:41 +02:00
r[5+3] = r[1];
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
}
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 571: /* clo ek r */
-b option to support ecraven benchmarks in .sf form
2023-03-29 05:40:41 +02: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 */
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
s_l_v10435: /* ek r fname k iport */
-b option to support ecraven benchmarks in .sf form
2023-03-29 05:40:41 +02:00
(void)(objptr_from_obj(r[4])[0] = (r[1]));
hreserve(hbsz(2+1), 5); /* 5 live regs */
*--hp = r[3];
*--hp = r[4];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(572);
-b option to support ecraven benchmarks in .sf form
2023-03-29 05:40:41 +02:00
r[5] = (hendblk(2+1));
hreserve(hbsz(2+1), 6); /* 6 live regs */
*--hp = r[5];
*--hp = r[2];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(575);
-b option to support ecraven benchmarks in .sf form
2023-03-29 05:40:41 +02:00
r[5] = (hendblk(2+1));
r[0] = (cx__25read);
pc = objptr_from_obj(r[0])[0];
r[1] = r[5];
r[2] = (objptr_from_obj(r[4])[0]);
r[3] = obj_from_bool(0);
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 572: /* clo ek . */
-b option to support ecraven benchmarks in .sf form
2023-03-29 05:40:41 +02: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 . iport k */
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[3];
*--hp = r[2];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(573);
-b option to support ecraven benchmarks in .sf form
2023-03-29 05:40:41 +02:00
r[4] = (hendblk(2+1));
r[0] = r[4];
r[1] = (objptr_from_obj(r[2])[0]);
goto gs_repl_2Dfrom_2Dport;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 573: /* clo ek . */
-b option to support ecraven benchmarks in .sf form
2023-03-29 05:40:41 +02: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 . iport k */
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[3];
*--hp = r[2];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(574);
-b option to support ecraven benchmarks in .sf form
2023-03-29 05:40:41 +02:00
r[4] = (hendblk(2+1));
r[0] = r[4];
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[1] = (cx__234863);
-b option to support ecraven benchmarks in .sf form
2023-03-29 05:40:41 +02:00
goto gs_repl_2Deval_2Dtop_2Dform;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 574: /* clo ek . */
-b option to support ecraven benchmarks in .sf form
2023-03-29 05:40:41 +02: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 . iport k */
r[0] = (cx_close_2Dinput_2Dport);
pc = objptr_from_obj(r[0])[0];
r[1] = r[3];
r[2] = (objptr_from_obj(r[2])[0]);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 575: /* clo ek r */
-b option to support ecraven benchmarks in .sf form
2023-03-29 05:40:41 +02: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 fname k */
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[4] = (cxs_syntax_2Dmatch_3F((cx__234869), (r[1])));
-b option to support ecraven benchmarks in .sf form
2023-03-29 05:40:41 +02:00
if (bool_from_obj(r[4])) {
r[0] = r[3];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[5+0] = (cx_error);
pc = objptr_from_obj(r[5+0])[0];
r[5+1] = r[3];
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[5+2] = (cx__234868);
-b option to support ecraven benchmarks in .sf form
2023-03-29 05:40:41 +02:00
r[5+3] = r[2];
r += 5; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
}
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 576: /* service-repl k */
initial commit
2023-02-28 06:31:08 +01:00
assert(rc == 2);
r += 1; /* shift reg. wnd */
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
gs_service_2Drepl: /* k */
initial commit
2023-02-28 06:31:08 +01:00
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;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 577: /* tcode-repl k */
assert(rc == 2);
r += 1; /* shift reg. wnd */
gs_tcode_2Drepl: /* k */
{ /* define decode */
static obj c[] = { obj_from_objptr(vmcases+3) };
r[1] = obj_from_objptr(c); }
hreserve(hbsz(1+1), 2); /* 2 live regs */
*--hp = r[0];
*--hp = obj_from_case(578);
r[2] = (hendblk(1+1));
r[3+0] = r[1];
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[2];
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
r[3+2] = (cx__234882);
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
case 578: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r k */
r[0] = r[2];
/* r[1] */
goto gs_execute;
case 579: /* debug-repl k */
assert(rc == 2);
r += 1; /* shift reg. wnd */
gs_debug_2Drepl: /* k */
hreserve(hbsz(1), 1); /* 1 live regs */
*--hp = obj_from_void(0);
r[1] = (hendblk(1));
(void)(objptr_from_obj(r[1])[0] = obj_from_bool(0));
{ /* tty-port? */
extern int is_tty_port(obj o);
int x = is_tty_port((cx__2Acurrent_2Dinput_2Dport_2A));
r[2] = obj_from_bool(x); }
if (bool_from_obj(r[2])) {
hreserve(hbsz(0+1), 2); /* 2 live regs */
*--hp = obj_from_case(581);
r[2] = (hendblk(0+1));
hreserve(hbsz(2+1), 3); /* 3 live regs */
*--hp = r[1];
*--hp = r[2];
*--hp = obj_from_case(580);
r[2] = (hendblk(2+1));
r[3+0] = (cx_call_2Dwith_2Dcurrent_2Dcontinuation);
pc = objptr_from_obj(r[3+0])[0];
r[3+1] = r[0];
r[3+2] = r[2];
r += 3; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[2+0] = r[0];
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = obj_from_ktrap();
r[2+2] = obj_from_void(0);
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
}
case 580: /* clo k k */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* k k loop outer-k */
(void)(objptr_from_obj(r[3])[0] = (r[1]));
r[4+0] = r[2];
pc = objptr_from_obj(r[4+0])[0];
r[4+1] = r[0];
r += 4; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 2;
goto jump;
case 581: /* clo k */
assert(rc == 2);
r += 1; /* shift reg. wnd */
/* k */
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__234909), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
env 'peek' and delayed new-id; minor fixes
2024-07-14 16:54:25 +02:00
(void)(oportflush((cx__2Acurrent_2Doutput_2Dport_2A)));
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
hreserve(hbsz(0+1), 1); /* 1 live regs */
*--hp = obj_from_case(581);
r[1] = (hendblk(0+1));
hreserve(hbsz(2+1), 2); /* 2 live regs */
*--hp = r[0];
*--hp = r[1];
*--hp = obj_from_case(582);
r[1] = (hendblk(2+1));
r[2+0] = (cx__25read);
pc = objptr_from_obj(r[2+0])[0];
r[2+1] = r[1];
r[2+2] = (cx__2Acurrent_2Dinput_2Dport_2A);
r[2+3] = obj_from_bool(0);
r += 2; /* shift reg wnd */
rreserve(MAX_HOSTREGS);
rc = 4;
goto jump;
case 582: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r loop k */
if ((iseof((r[1])))) {
r[0] = r[3];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_bool(0);
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((((r[1]) == (mksymbol(internsym("?")))) && (1))) {
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__234903), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[3];
rreserve(MAX_HOSTREGS);
rc = 2;
goto jump;
} else {
if ((((r[1]) == (mksymbol(internsym("r")))) && (1))) {
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[3];
*--hp = r[2];
*--hp = obj_from_case(583);
r[4] = (hendblk(2+1));
r[0] = r[4];
goto gs_tcode_2Drepl;
} else {
if ((((r[1]) == (mksymbol(internsym("a")))) && (1))) {
r[0] = r[3];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = obj_from_void(exit(1));
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
if ((((r[1]) == (mksymbol(internsym("s")))) && (1))) {
hreserve(hbsz(2+1), 4); /* 4 live regs */
*--hp = r[3];
*--hp = r[2];
*--hp = obj_from_case(584);
r[4] = (hendblk(2+1));
r[0] = r[4];
goto gs_service_2Drepl;
} else {
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
(void)(oportputcircular((cx__234888), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[3];
rreserve(MAX_HOSTREGS);
rc = 2;
goto jump;
}
}
}
}
}
case 583: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek r loop k */
r[4] = obj_from_bool((r[1]) == obj_from_bool(1));
if (bool_from_obj(r[4])) {
r[0] = r[3];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[4];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[3];
rreserve(MAX_HOSTREGS);
rc = 2;
goto jump;
}
case 584: /* clo ek . */
assert(rc >= 2);
r[2] = obj_from_void(0); /* ignored */
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1];
r[1+3] = p[2]; }
r += 1; /* shift reg. wnd */
/* ek . loop k */
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = r[3];
rreserve(MAX_HOSTREGS);
rc = 2;
goto jump;
case 585: /* main k argv */
initial commit
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];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
*--hp = obj_from_case(586);
initial commit
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;
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 586: /* clo ek r */
initial commit
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])));
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234945), (r[3])))) {
initial commit
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;
faster library appends; -v in repl (verbosity)
2023-03-08 19:03:39 +01:00
} else {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234937), (r[3])))) {
-b option to support ecraven benchmarks in .sf form
2023-03-29 05:40:41 +02:00
r[4] = (cdr((r[3])));
r[4] = (car((r[4])));
r[0] = r[2];
r[1] = r[4];
goto gs_benchmark_2Dfile;
} else {
(run-program), -p option; minor bug fixes
2024-07-19 06:02:29 +02:00
if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234931), (r[3])))) {
faster library appends; -v in repl (verbosity)
2023-03-08 19:03:39 +01:00
r[0] = r[2];
goto gs_run_2Dtests;
} else {
proper handling of _ in syntax rules; fixes
2024-07-15 00:43:44 +02:00
if (bool_from_obj(cxs_syntax_2Dmatch_3F((cx__234928), (r[3])))) {
initial commit
2023-02-28 06:31:08 +01:00
r[0] = r[2];
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
goto gs_service_2Drepl;
} else {
hreserve(hbsz(1+1), 4); /* 4 live regs */
*--hp = r[2];
*--hp = obj_from_case(587);
r[4] = (hendblk(1+1));
r[0] = r[4];
goto gs_tcode_2Drepl;
}
initial commit
2023-02-28 06:31:08 +01:00
}
faster library appends; -v in repl (verbosity)
2023-03-08 19:03:39 +01:00
}
}
initial commit
2023-02-28 06:31:08 +01:00
new startup/repl/debug sequence
2024-07-12 01:12:03 +02:00
case 587: /* clo ek r */
assert(rc == 3);
{ obj* p = objptr_from_obj(r[0]);
r[1+2] = p[1]; }
r += 1; /* shift reg. wnd */
/* ek r k */
r[3] = obj_from_bool((r[1]) == obj_from_bool(1));
if (bool_from_obj(r[3])) {
r[0] = r[2];
pc = objptr_from_obj(r[0])[0];
r[1] = obj_from_ktrap();
r[2] = r[3];
rreserve(MAX_HOSTREGS);
rc = 3;
goto jump;
} else {
r[0] = r[2];
goto gs_debug_2Drepl;
}
initial commit
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;
,si repl command w/instr support
2024-07-17 05:03:00 +02:00
size_t cxg_hsize = 0;
initial commit
2023-02-28 06:31:08 +01:00
static cxoint_t cxg_hmask2 = 0;
,si repl command w/instr support
2024-07-17 05:03:00 +02:00
int cxg_gccount = 0, cxg_bumpcount = 0;
initial commit
2023-02-28 06:31:08 +01:00
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;
}
Reference in a new issue Copy permalink