mirror of
https://github.com/false-schemers/skint.git
synced 2024-12-26 21:58:51 +01:00
22282 lines
647 KiB
C
22282 lines
647 KiB
C
/* n.sf */
|
|
/* Generated by #F $Id$ */
|
|
#ifdef PROFILE
|
|
#define host host_module_n
|
|
#endif
|
|
#define MODULE module_n
|
|
#define LOAD()
|
|
|
|
/* 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 */
|
|
#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;
|
|
|
|
#define notobjptr(o) (((cxoint_t)(o) - (cxoint_t)cxg_heap) & cxg_hmask)
|
|
#define isobjptr(o) (!notobjptr(o))
|
|
#define notaptr(o) ((o) & 0xffff000000000001ULL)
|
|
#define isaptr(o) (!notaptr(o))
|
|
#else
|
|
typedef ptrdiff_t obj; /* pointers are this size, lower bit zero */
|
|
typedef ptrdiff_t cxoint_t; /* same thing, used as integer */
|
|
typedef struct { /* type descriptor */
|
|
const char *tname; /* name (debug) */
|
|
void (*free)(void*); /* deallocator */
|
|
} cxtype_t;
|
|
|
|
#define notobjptr(o) (((char*)(o) - (char*)cxg_heap) & cxg_hmask)
|
|
#define isobjptr(o) (!notobjptr(o))
|
|
#define notaptr(o) ((o) & 1)
|
|
#define isaptr(o) (!notaptr(o))
|
|
#endif
|
|
|
|
#define obj_from_obj(o) (o)
|
|
#define obj_from_objptr(p) ((obj)(p))
|
|
#define obj_from_size(n) (((cxoint_t)(n) << 1) | 1)
|
|
|
|
#define objptr_from_objptr(p) (p)
|
|
#define objptr_from_obj(o) ((obj*)(o))
|
|
|
|
#define size_from_obj(o) ((int)((o) >> 1))
|
|
|
|
#define obj_from_case(n) obj_from_objptr(cases+(n))
|
|
#define case_from_obj(o) (objptr_from_obj(o)-cases)
|
|
#define obj_from_ktrap() obj_from_size(0x5D56F806)
|
|
#define obj_from_void(v) ((void)(v), obj_from_size(0x6F56DF77))
|
|
|
|
#define bool_from_obj(o) (o)
|
|
#define bool_from_bool(b) (b)
|
|
#define bool_from_size(s) (s)
|
|
|
|
#define void_from_void(v) (void)(v)
|
|
#define void_from_obj(o) (void)(o)
|
|
|
|
#define rreserve(m) if (r + (m) >= cxg_rend) r = cxm_rgc(r, m)
|
|
#define hpushptr(p, pt, l) (hreserve(2, l), *--hp = (obj)(p), *--hp = (obj)(pt), (obj)(hp+1))
|
|
#define hbsz(s) ((s) + 1) /* 1 extra word to store block size */
|
|
#define hreserve(n, l) ((hp < cxg_heap + (n)) ? hp = cxm_hgc(r, r+(l), hp, n) : hp)
|
|
#define hendblk(n) (*--hp = obj_from_size(n), (obj)(hp+1))
|
|
#define hblklen(p) size_from_obj(((obj*)(p))[-1])
|
|
#define hblkref(p, i) (((obj*)(p))[i])
|
|
|
|
typedef obj (*cxhost_t)(obj);
|
|
typedef struct cxroot_tag {
|
|
int globc; obj **globv;
|
|
struct cxroot_tag *next;
|
|
} cxroot_t;
|
|
|
|
extern obj *cxg_heap;
|
|
extern obj *cxg_hp;
|
|
extern cxoint_t cxg_hmask;
|
|
extern cxroot_t *cxg_rootp;
|
|
extern obj *cxm_rgc(obj *regs, size_t needs);
|
|
extern obj *cxm_hgc(obj *regs, obj *regp, obj *hp, size_t needs);
|
|
extern obj *cxg_regs, *cxg_rend;
|
|
extern void cxm_check(int x, char *msg);
|
|
extern void *cxm_cknull(void *p, char *msg);
|
|
extern int cxg_rc;
|
|
extern char **cxg_argv;
|
|
|
|
/* extra definitions */
|
|
/* basic object representation */
|
|
#ifdef NAN_BOXING
|
|
#define isim0(o) (((o) & 0xffffffff00000003ULL) == 3) /* 30 bits of payload */
|
|
#define isimm(o, t) (((o) & 0xffffffff000000ffULL) == (((t) << 2) | 1)) /* 24 */
|
|
#ifdef NDEBUG
|
|
#define getim0s(o) (long)(((((int32_t)(o) >> 2) & 0x3fffffff) ^ 0x20000000) - 0x20000000)
|
|
#define getimmu(o, t) (long)(((o) >> 8) & 0xffffff)
|
|
#else
|
|
extern long getim0s(obj o);
|
|
extern long getimmu(obj o, int t);
|
|
#endif
|
|
#ifndef NDEBUG
|
|
long getim0s(obj o) {
|
|
assert(isim0(o));
|
|
return (int32_t)(((((uint32_t)o >> 2) & 0x3fffffff) ^ 0x20000000) - 0x20000000);
|
|
}
|
|
long getimmu(obj o, int t) {
|
|
assert(isimm((o), t));
|
|
return (long)(((uint32_t)o >> 8) & 0xffffff);
|
|
}
|
|
#endif
|
|
#define mkim0(v) ((obj)((((v) & 0x000000003fffffffULL) << 2) | 3))
|
|
#define mkimm(v, t) ((obj)((((v) & 0x0000000000ffffffULL) << 8) | ((t) << 2) | 1))
|
|
#else
|
|
#define isim0(o) (((o) & 3) == 3)
|
|
#define isimm(o, t) (((o) & 0xff) == (((t) << 2) | 1))
|
|
#ifdef NDEBUG
|
|
#define getim0s(o) (long)(((((int)(o) >> 2) & 0x3fffffff) ^ 0x20000000) - 0x20000000)
|
|
#define getimmu(o, t) (long)(((o) >> 8) & 0xffffff)
|
|
#else
|
|
extern long getim0s(obj o);
|
|
extern long getimmu(obj o, int t);
|
|
#endif
|
|
#ifndef NDEBUG
|
|
long getim0s(obj o) {
|
|
assert(isim0(o));
|
|
return (int)((((o >> 2) & 0x3fffffff) ^ 0x20000000) - 0x20000000);
|
|
}
|
|
long getimmu(obj o, int t) {
|
|
assert(isimm(o, t));
|
|
return (long)((o >> 8) & 0xffffff);
|
|
}
|
|
#endif
|
|
#define mkim0(o) (obj)((((o) & 0x3fffffff) << 2) | 3)
|
|
#define mkimm(o, t) (obj)((((o) & 0xffffff) << 8) | ((t) << 2) | 1)
|
|
#define FLONUMS_BOXED
|
|
#endif
|
|
#ifndef NDEBUG
|
|
int isnative(obj o, cxtype_t *tp) {
|
|
return isobjptr(o) && objptr_from_obj(o)[-1] == (obj)tp;
|
|
}
|
|
void *getnative(obj o, cxtype_t *tp) {
|
|
assert(isnative(o, tp));
|
|
return (void*)(*objptr_from_obj(o));
|
|
}
|
|
#endif
|
|
#ifdef NDEBUG
|
|
static int isnative(obj o, cxtype_t *tp)
|
|
{ return isobjptr(o) && objptr_from_obj(o)[-1] == (obj)tp; }
|
|
#define getnative(o, t) ((void*)(*objptr_from_obj(o)))
|
|
#else
|
|
extern int isnative(obj o, cxtype_t *tp);
|
|
extern void *getnative(obj o, cxtype_t *tp);
|
|
#endif
|
|
extern int istagged(obj o, int t);
|
|
int istagged(obj o, int t) {
|
|
if (!isobjptr(o)) return 0;
|
|
else { obj h = objptr_from_obj(o)[-1];
|
|
return notaptr(h) && size_from_obj(h) >= 1
|
|
&& hblkref(o, 0) == obj_from_size(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
|
|
#ifndef NDEBUG
|
|
obj cktagged(obj o, int t) {
|
|
assert(istagged((o), t));
|
|
return o;
|
|
}
|
|
int taggedlen(obj o, int t) {
|
|
assert(istagged((o), t));
|
|
return hblklen(o) - 1;
|
|
}
|
|
obj* taggedref(obj o, int t, int i) {
|
|
int len; assert(istagged((o), t));
|
|
len = hblklen(o);
|
|
assert(i >= 0 && i < len-1);
|
|
return &hblkref(o, i+1);
|
|
}
|
|
#endif
|
|
extern int istyped(obj o);
|
|
int istyped(obj o) {
|
|
if (!isobjptr(o)) return 0;
|
|
else { obj h = objptr_from_obj(o)[-1];
|
|
return notaptr(h) && size_from_obj(h) >= 1
|
|
/* FIXME: manual issymbol() check */
|
|
&& isimm(hblkref(o, 0), 4/*SYMBOL_ITAG*/); }
|
|
}
|
|
#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
|
|
#ifndef NDEBUG
|
|
obj cktyped(obj o) {
|
|
assert(istyped(o));
|
|
return o;
|
|
}
|
|
obj* typedtype(obj o) {
|
|
assert(istyped(o));
|
|
return &hblkref(o, 0);
|
|
}
|
|
int typedlen(obj o) {
|
|
assert(istyped(o));
|
|
return hblklen(o) - 1;
|
|
}
|
|
obj* typedref(obj o, int i) {
|
|
int len; assert(istyped(o));
|
|
len = hblklen(o);
|
|
assert(i >= 0 && i < len-1);
|
|
return &hblkref(o, i+1);
|
|
}
|
|
#endif
|
|
/* booleans */
|
|
#define TRUE_ITAG 0
|
|
typedef int bool_t;
|
|
#define is_bool_obj(o) (!((o) & ~(obj)1))
|
|
#define is_bool_bool(b) ((void)(b), 1)
|
|
#define void_from_bool(b) (void)(b)
|
|
#define obj_from_bool(b) ((b) ? mkimm(0, TRUE_ITAG) : 0)
|
|
/* void */
|
|
#define VOID_ITAG 1
|
|
#define mkvoid() mkimm(0, VOID_ITAG)
|
|
#define isvoid(o) ((o) == mkimm(0, VOID_ITAG))
|
|
#undef obj_from_void
|
|
#define obj_from_void(v) ((void)(v), mkimm(0, VOID_ITAG))
|
|
/* unit */
|
|
#define obj_from_unit() (obj_from_size(0x6DF6F577))
|
|
/* numbers */
|
|
#define FIXNUM_BIT 30
|
|
#define FIXNUM_MIN -536870912
|
|
#define FIXNUM_MAX 536870911
|
|
#ifdef NDEBUG
|
|
#define fxneg(x) (-(x))
|
|
#define fxabs(x) (labs(x))
|
|
#define fxadd(x, y) ((x) + (y))
|
|
#define fxsub(x, y) ((x) - (y))
|
|
#define fxmul(x, y) ((x) * (y))
|
|
/* exact integer division */
|
|
#define fxdiv(x, y) ((x) / (y))
|
|
/* truncated division (common/C99) */
|
|
#define fxquo(x, y) ((x) / (y))
|
|
#define fxrem(x, y) ((x) % (y))
|
|
/* floor division */
|
|
static long fxmqu(long x, long y) {
|
|
long q = x / y; return ((x < 0 && y > 0) || (x > 0 && y < 0)) ? q - 1 : q;
|
|
}
|
|
static long fxmlo(long x, long y) {
|
|
long r = x % y; return ((r < 0 && y > 0) || (r > 0 && y < 0)) ? r + y : r;
|
|
}
|
|
/* euclidean division */
|
|
static long fxeuq(long x, long y) {
|
|
long q = x / y, r = x % y; return (r < 0) ? ((y > 0) ? q - 1 : q + 1) : q;
|
|
}
|
|
static long fxeur(long x, long y) {
|
|
long r = x % y; return (r < 0) ? ((y > 0) ? r + y : r - y) : r;
|
|
}
|
|
static long fxgcd(long x, long y) {
|
|
long a = labs(x), b = labs(y), c; while (b) c = a%b, a = b, b = c;
|
|
return a;
|
|
}
|
|
#define fxasl(x, y) ((x) << (y))
|
|
#define fxasr(x, y) ((x) >> (y))
|
|
#define fxflo(f) ((long)(f))
|
|
#else
|
|
extern long fxneg(long x);
|
|
extern long fxabs(long x);
|
|
extern long fxadd(long x, long y);
|
|
extern long fxsub(long x, long y);
|
|
extern long fxmul(long x, long y);
|
|
extern long fxdiv(long x, long y);
|
|
extern long fxquo(long x, long y);
|
|
extern long fxrem(long x, long y);
|
|
extern long fxmqu(long x, long y);
|
|
extern long fxmlo(long x, long y);
|
|
extern long fxeuq(long x, long y);
|
|
extern long fxeur(long x, long y);
|
|
extern long fxgcd(long x, long y);
|
|
extern long fxasl(long x, long y);
|
|
extern long fxasr(long x, long y);
|
|
extern long fxflo(double f);
|
|
#endif
|
|
#ifndef NDEBUG
|
|
long fxneg(long x) {
|
|
assert(x != FIXNUM_MIN);
|
|
return -x;
|
|
}
|
|
long fxabs(long x) {
|
|
assert(x != FIXNUM_MIN);
|
|
return labs(x);
|
|
}
|
|
long fxadd(long x, long y) {
|
|
long z = x + y;
|
|
assert(z >= FIXNUM_MIN && z <= FIXNUM_MAX);
|
|
return z;
|
|
}
|
|
long fxsub(long x, long y) {
|
|
long z = x - y;
|
|
assert(z >= FIXNUM_MIN && z <= FIXNUM_MAX);
|
|
return z;
|
|
}
|
|
long fxmul(long x, long y) {
|
|
double z = (double)x * (double)y;
|
|
assert(z >= FIXNUM_MIN && z <= FIXNUM_MAX);
|
|
return x * y;
|
|
}
|
|
/* exact integer division */
|
|
long fxdiv(long x, long y) {
|
|
assert(y);
|
|
assert(x != FIXNUM_MIN || y != -1);
|
|
assert(x % y == 0);
|
|
return x / y;
|
|
}
|
|
/* truncated division (common/C99) */
|
|
long fxquo(long x, long y) {
|
|
assert(y); assert(x != FIXNUM_MIN || y != -1);
|
|
return x / y;
|
|
}
|
|
long fxrem(long x, long y) {
|
|
assert(y);
|
|
return x % y;
|
|
}
|
|
/* floor division */
|
|
long fxmqu(long x, long y) {
|
|
long q; assert(y); assert(x != FIXNUM_MIN || y != -1);
|
|
q = x / y;
|
|
return ((x < 0 && y > 0) || (x > 0 && y < 0)) ? q - 1 : q;
|
|
}
|
|
long fxmlo(long x, long y) {
|
|
long r; assert(y); r = x % y;
|
|
return ((r < 0 && y > 0) || (r > 0 && y < 0)) ? r + y : r;
|
|
}
|
|
/* euclidean division */
|
|
long fxeuq(long x, long y) {
|
|
long q, r; assert(y); assert(x != FIXNUM_MIN || y != -1);
|
|
q = x / y, r = x % y;
|
|
return (r < 0) ? ((y > 0) ? q - 1 : q + 1) : q;
|
|
}
|
|
long fxeur(long x, long y) {
|
|
long r; assert(y); r = x % y;
|
|
return (r < 0) ? ((y > 0) ? r + y : r - y) : r;
|
|
}
|
|
long fxgcd(long x, long y) {
|
|
long a = labs(x), b = labs(y), c;
|
|
while (b) c = a%b, a = b, b = c;
|
|
assert(a <= FIXNUM_MAX);
|
|
return a;
|
|
}
|
|
long fxasl(long x, long y) {
|
|
assert(y >= 0 && y < FIXNUM_BIT);
|
|
return x << y;
|
|
}
|
|
long fxasr(long x, long y) {
|
|
assert(y >= 0 && y < FIXNUM_BIT);
|
|
assert(!y || x >= 0); /* >> of negative x is undefined */
|
|
return x >> y;
|
|
}
|
|
long fxflo(double f) {
|
|
long l = (long)f; assert((double)l == f);
|
|
assert(l >= FIXNUM_MIN && l <= FIXNUM_MAX);
|
|
return l;
|
|
}
|
|
#endif
|
|
static int flisint(double f) { return f > -HUGE_VAL && f < HUGE_VAL && f == floor(f); }
|
|
extern long fxpow(long x, long y);
|
|
long fxpow(long x, long y) {
|
|
assert(y >= 0);
|
|
retry: if (y == 0) return 1; if (y == 1) return x;
|
|
if (y % 2 == 1) x *= fxpow(x, y-1);
|
|
else { x *= x; y /= 2; assert(FIXNUM_MIN <= x && x <= FIXNUM_MAX); goto retry; }
|
|
assert(FIXNUM_MIN <= x && x <= FIXNUM_MAX); return x;
|
|
}
|
|
extern long fxsqrt(long x);
|
|
long fxsqrt(long x) {
|
|
assert(x >= 0); if (x < 2) return x;
|
|
else { long s = fxsqrt(x >> 2) << 1, l = s + 1; return l*l > x ? s : l; }
|
|
}
|
|
extern int fxifdv(long x, long y, long *pi, double *pd);
|
|
int fxifdv(long x, long y, long *pi, double *pd) {
|
|
assert(y); assert(x != FIXNUM_MIN || y != -1);
|
|
if (x % y == 0) { *pi = x / y; return 1; }
|
|
else { *pd = (double)x / (double)y; return 0; }
|
|
}
|
|
extern double flquo(double x, double y);
|
|
double flquo(double x, double y) {
|
|
double z; assert(y != 0.0 && flisint(x) && flisint(y));
|
|
modf(x / y, &z);
|
|
return z;
|
|
}
|
|
extern double flrem(double x, double y);
|
|
double flrem(double x, double y) {
|
|
assert(y != 0.0 && flisint(x) && flisint(y));
|
|
return fmod(x, y);
|
|
}
|
|
extern double flmqu(double x, double y);
|
|
double flmqu(double x, double y) {
|
|
assert(y != 0.0 && flisint(x) && flisint(y));
|
|
return floor(x / y);
|
|
}
|
|
extern double flmlo(double x, double y);
|
|
double flmlo(double x, double y) {
|
|
assert(y != 0.0 && flisint(x) && flisint(y));
|
|
return x - y * floor(x / y);
|
|
}
|
|
extern double flgcd(double x, double y);
|
|
double flgcd(double x, double y) {
|
|
double a = fabs(x), b = fabs(y), c;
|
|
assert(flisint(a) && flisint(b));
|
|
while (b > 0.0) c = fmod(a, b), a = b, b = c;
|
|
return a;
|
|
}
|
|
extern double flround(double x);
|
|
double flround(double x) {
|
|
double f = floor(x), c = ceil(x), d = x-f, u = c-x;
|
|
if (d == u) return fmod(f, 2.0) == 0.0 ? f : c;
|
|
else return (d < u) ? f : c;
|
|
}
|
|
extern int strtofxfl(char *s, int radix, long *pl, double *pd);
|
|
int strtofxfl(char *s, int radix, long *pl, double *pd) {
|
|
extern int strcmp_ci(char *s1, char *s2); /* defined below */
|
|
char *e; int conv = 0, eno = errno; long l; double d;
|
|
for (; s[0] == '#'; s += 2) {
|
|
switch (s[1]) {
|
|
case 'b': case 'B': radix = 2; break;
|
|
case 'o': case 'O': radix = 8; break;
|
|
case 'd': case 'D': radix = 10; break;
|
|
case 'x': case 'X': radix = 16; break;
|
|
case 'e': case 'E': conv = 'e'; break;
|
|
case 'i': case 'I': conv = 'i'; break;
|
|
default: return 0;
|
|
}
|
|
}
|
|
if (isspace(*s)) return 0;
|
|
for (e = s; *e; ++e) { if (strchr(".eEiInN", *e)) break; }
|
|
if (!*e || radix != 10) { /* s is not a syntax for an inexact number */
|
|
l = (errno = 0, strtol(s, &e, radix));
|
|
if (errno || *e || e == s) { if (conv == 'i') goto fl; return (errno = eno, 0); }
|
|
if (conv == 'i') return (errno = eno, *pd = (double)l, 'i');
|
|
if (FIXNUM_MIN <= l && l <= FIXNUM_MAX) return (errno = eno, *pl = l, 'e');
|
|
return (errno = eno, 0); /* can't represent as an exact */
|
|
}
|
|
fl: if (radix != 10) return (errno = eno, 0);
|
|
e = "", errno = 0; if (*s != '+' && *s != '-') d = strtod(s, &e);
|
|
else if (strcmp_ci(s+1, "inf.0") == 0) d = (*s == '-' ? -HUGE_VAL : HUGE_VAL);
|
|
else if (strcmp_ci(s+1, "nan.0") == 0) d = HUGE_VAL - HUGE_VAL;
|
|
else d = strtod(s, &e);
|
|
if (errno || *e || e == s) return (errno = eno, 0);
|
|
if ((conv == 'e') && ((l=(long)d) < FIXNUM_MIN || l > FIXNUM_MAX || (double)l != d))
|
|
return (errno = eno, 0); /* can't be converted to an exact number */
|
|
return (errno = eno, (conv == 'e') ? (*pl = fxflo(d), 'e') : (*pd = d, 'i'));
|
|
}
|
|
/* fixnums */
|
|
typedef long fixnum_t;
|
|
#define is_fixnum_obj(o) (isim0(o))
|
|
#define is_fixnum_fixnum(i) ((void)(i), 1)
|
|
#define is_bool_fixnum(i) ((void)(i), 0)
|
|
#define is_fixnum_bool(i) ((void)(i), 0)
|
|
#define fixnum_from_obj(o) (getim0s(o))
|
|
#define fixnum_from_fixnum(i) (i)
|
|
#define fixnum_from_flonum(l,x) ((fixnum_t)(x))
|
|
#define bool_from_fixnum(i) ((void)(i), 1)
|
|
#define void_from_fixnum(i) (void)(i)
|
|
#define obj_from_fixnum(i) mkim0((fixnum_t)(i))
|
|
/* flonums */
|
|
#ifndef FLONUMS_BOXED
|
|
typedef double flonum_t;
|
|
#define is_flonum_obj(o) (((o) & 0xffff000000000000ULL) != 0ULL)
|
|
#define is_flonum_flonum(f) ((void)(f), 1)
|
|
#define is_flonum_bool(f) ((void)(f), 0)
|
|
#define is_bool_flonum(f) ((void)(f), 0)
|
|
#define is_fixnum_flonum(i) ((void)(i), 0)
|
|
#define is_flonum_fixnum(i) ((void)(i), 0)
|
|
#define flonum_from_flonum(l, f) (f)
|
|
#define flonum_from_fixnum(x) ((flonum_t)(x))
|
|
#define bool_from_flonum(f) ((void)(f), 0)
|
|
#define void_from_flonum(l, f) (void)(f)
|
|
union iod { cxoint_t i; double d; };
|
|
static double flonum_from_obj(obj o) {
|
|
union iod u;
|
|
assert(is_flonum_obj(o));
|
|
u.i = ~o;
|
|
return u.d;
|
|
}
|
|
static obj obj_from_flonum(int rc, double d) {
|
|
union iod u;
|
|
u.d = d;
|
|
assert(is_flonum_obj(~u.i));
|
|
return ~u.i;
|
|
}
|
|
#else /* FLONUMS_BOXED */
|
|
static cxtype_t cxt_flonum = { "flonum", free };
|
|
cxtype_t *FLONUM_NTAG = &cxt_flonum;
|
|
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);
|
|
flonum_t *dupflonum(flonum_t f) {
|
|
flonum_t *pf = cxm_cknull(malloc(sizeof(flonum_t)), "malloc(flonum)");
|
|
*pf = f; return pf;
|
|
}
|
|
#endif
|
|
/* characters */
|
|
#define CHAR_ITAG 2
|
|
typedef int char_t;
|
|
#define ischar(o) (isimm(o, CHAR_ITAG))
|
|
#define is_char_obj(o) (isimm(o, CHAR_ITAG))
|
|
#define is_char_char(i) ((void)(i), 1)
|
|
#define is_char_bool(i) ((void)(i), 0)
|
|
#define is_bool_char(i) ((void)(i), 0)
|
|
#define is_char_fixnum(i) ((void)(i), 0)
|
|
#define is_fixnum_char(i) ((void)(i), 0)
|
|
#define is_char_flonum(i) ((void)(i), 0)
|
|
#define is_flonum_char(i) ((void)(i), 0)
|
|
#define char_from_obj(o) ((int)getimmu(o, CHAR_ITAG))
|
|
#define char_from_char(i) (i)
|
|
#define bool_from_char(i) ((void)(i), 1)
|
|
#define void_from_char(i) (void)(i)
|
|
#define obj_from_char(i) mkimm(i, CHAR_ITAG)
|
|
/* strings */
|
|
static cxtype_t cxt_string = { "string", free };
|
|
cxtype_t *STRING_NTAG = &cxt_string;
|
|
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)
|
|
char* stringref(obj o, int i) {
|
|
int *d = stringdata(o); assert(i >= 0 && i < *d);
|
|
return sdatachars(d)+i;
|
|
}
|
|
#ifdef NDEBUG
|
|
#define stringref(o, i) (stringchars(o)+(i))
|
|
#else
|
|
extern char* stringref(obj o, int i);
|
|
#endif
|
|
extern int *newstring(char *s);
|
|
int *newstring(char *s) {
|
|
int l, *d; assert(s); l = (int)strlen(s);
|
|
d = cxm_cknull(malloc(sizeof(int)+l+1), "malloc(string)");
|
|
*d = l; strcpy(sdatachars(d), s); return d;
|
|
}
|
|
extern int *newstringn(char *s, int n);
|
|
int *newstringn(char *s, int n) {
|
|
int *d; char *ns; assert(s); assert(n >= 0);
|
|
d = cxm_cknull(malloc(sizeof(int)+n+1), "malloc(stringn)");
|
|
*d = n; memcpy((ns = sdatachars(d)), s, n); ns[n] = 0; return d;
|
|
}
|
|
extern int *allocstring(int n, int c);
|
|
int *allocstring(int n, int c) {
|
|
int *d; char *s; assert(n+1 > 0);
|
|
d = cxm_cknull(malloc(sizeof(int)+n+1), "malloc(string)");
|
|
*d = n; s = sdatachars(d); memset(s, c, n); s[n] = 0;
|
|
return d;
|
|
}
|
|
extern int *substring(int *d, int from, int to);
|
|
int *substring(int *d0, int from, int to) {
|
|
int n = to-from, *d1; char *s0, *s1; assert(d0);
|
|
assert(0 <= from && from <= to && to <= *d0);
|
|
d1 = cxm_cknull(malloc(sizeof(int)+n+1), "malloc(string)");
|
|
*d1 = n; s0 = sdatachars(d0); s1 = sdatachars(d1);
|
|
memcpy(s1, s0+from, n); s1[n] = 0;
|
|
return d1;
|
|
}
|
|
extern int *stringcat(int *d0, int *d1);
|
|
int *stringcat(int *d0, int *d1) {
|
|
int l0 = *d0, l1 = *d1, n = l0+l1; char *s0, *s1, *s;
|
|
int *d = cxm_cknull(malloc(sizeof(int)+n+1), "malloc(string)");
|
|
*d = n; s = sdatachars(d); s0 = sdatachars(d0); s1 = sdatachars(d1);
|
|
memcpy(s, s0, l0); memcpy(s+l0, s1, l1); s[n] = 0;
|
|
return d;
|
|
}
|
|
extern int *dupstring(int *d);
|
|
int *dupstring(int *d0) {
|
|
int n = *d0, *d1 = cxm_cknull(malloc(sizeof(int)+n+1), "malloc(string)");
|
|
memcpy(d1, d0, sizeof(int)+n+1);
|
|
return d1;
|
|
}
|
|
extern void stringfill(int *d, int c);
|
|
void stringfill(int *d, int c) {
|
|
int l = *d, i; char *s = sdatachars(d);
|
|
for (i = 0; i < l; ++i) s[i] = c;
|
|
}
|
|
extern int strcmp_ci(char *s1, char *s2);
|
|
int strcmp_ci(char *s1, char *s2) {
|
|
int c1, c2, d;
|
|
do { c1 = *s1++; c2 = *s2++; d = (unsigned)tolower(c1) - (unsigned)tolower(c2); } while (!d && c1 && c2);
|
|
return d;
|
|
}
|
|
/* 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 */
|
|
static cxtype_t cxt_bytevector = { "bytevector", free };
|
|
cxtype_t *BYTEVECTOR_NTAG = &cxt_bytevector;
|
|
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)
|
|
#define mallocbvdata(n) cxm_cknull(malloc(sizeof(int)+(n)), "malloc(bytevector)")
|
|
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))
|
|
unsigned char* bytevectorref(obj o, int i) {
|
|
int *d = bytevectordata(o); assert(i >= 0 && i < *d); return (bvdatabytes(d))+i;
|
|
}
|
|
#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);
|
|
int *newbytevector(unsigned char *s, int n) {
|
|
int *d; assert(s); assert(n >= 0);
|
|
d = mallocbvdata(n); *d = n; memcpy(bvdatabytes(d), s, n); return d;
|
|
}
|
|
extern int *makebytevector(int n, int c);
|
|
int *makebytevector(int n, int c) {
|
|
int *d; assert(n >= 0);
|
|
d = mallocbvdata(n); *d = n; memset(bvdatabytes(d), c, n);
|
|
return d;
|
|
}
|
|
extern int *allocbytevector(int n);
|
|
int *allocbytevector(int n) {
|
|
int *d = mallocbvdata(n); *d = n; return d;
|
|
}
|
|
extern int *dupbytevector(int *d);
|
|
int *dupbytevector(int *d0) {
|
|
int *d1 = mallocbvdata(*d0); *d1 = *d0;
|
|
memcpy(bvdatabytes(d1), bvdatabytes(d0), *d0);
|
|
return d1;
|
|
}
|
|
extern int bytevectoreq(int *d0, int *d1);
|
|
int bytevectoreq(int *d0, int *d1) {
|
|
int l0 = *d0, l1 = *d1;
|
|
return (l0 != l1) ? 0 : memcmp(bvdatabytes(d0), bvdatabytes(d1), l0) == 0;
|
|
}
|
|
extern int *subbytevector(int *d, int from, int to);
|
|
int *subbytevector(int *d0, int from, int to) {
|
|
int n = to-from, *d1; unsigned char *s0, *s1; assert(d0);
|
|
assert(0 <= from && from <= to && to <= *d0);
|
|
d1 = mallocbvdata(n); *d1 = n; s0 = bvdatabytes(d0); s1 = bvdatabytes(d1);
|
|
memcpy(s1, s0+from, n); return d1;
|
|
}
|
|
/* 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);
|
|
int islist(obj l) {
|
|
obj s = l;
|
|
for (;;) {
|
|
if (isnull(l)) return 1;
|
|
else if (!ispair(l)) return 0;
|
|
else if ((l = cdr(l)) == s) return 0;
|
|
else if (isnull(l)) return 1;
|
|
else if (!ispair(l)) return 0;
|
|
else if ((l = cdr(l)) == s) return 0;
|
|
else s = cdr(s);
|
|
}
|
|
}
|
|
/* 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)
|
|
static struct { char **a; char ***v; size_t sz; size_t u; size_t maxu; } symt;
|
|
static unsigned long hashs(char *s) {
|
|
unsigned long i = 0, l = (unsigned long)strlen(s), h = l;
|
|
while (i < l) h = (h << 4) ^ (h >> 28) ^ s[i++];
|
|
return h ^ (h >> 10) ^ (h >> 20);
|
|
}
|
|
extern char *symbolname(int sym);
|
|
char *symbolname(int sym) {
|
|
assert(sym >= 0); assert(sym < (int)symt.u);
|
|
return symt.a[sym];
|
|
}
|
|
extern int internsym(char *name);
|
|
int internsym(char *name) {
|
|
size_t i, j; /* based on a code (C) 1998, 1999 by James Clark. */
|
|
if (symt.sz == 0) { /* init */
|
|
symt.a = cxm_cknull(calloc(64, sizeof(char*)), "symtab[0]");
|
|
symt.v = cxm_cknull(calloc(64, sizeof(char**)), "symtab[1]");
|
|
symt.sz = 64, symt.maxu = 64 / 2;
|
|
i = hashs(name) & (symt.sz-1);
|
|
} else {
|
|
unsigned long h = hashs(name);
|
|
for (i = h & (symt.sz-1); symt.v[i]; i = (i-1) & (symt.sz-1))
|
|
if (strcmp(name, *symt.v[i]) == 0) return (int)(symt.v[i] - symt.a);
|
|
if (symt.u == symt.maxu) { /* rehash */
|
|
size_t nsz = symt.sz * 2;
|
|
char **na = cxm_cknull(calloc(nsz, sizeof(char*)), "symtab[2]");
|
|
char ***nv = cxm_cknull(calloc(nsz, sizeof(char**)), "symtab[3]");
|
|
for (i = 0; i < symt.sz; i++)
|
|
if (symt.v[i]) {
|
|
for (j = hashs(*symt.v[i]) & (nsz-1); nv[j]; j = (j-1) & (nsz-1)) ;
|
|
nv[j] = symt.v[i] - symt.a + na;
|
|
}
|
|
free(symt.v); symt.v = nv; symt.sz = nsz; symt.maxu = nsz / 2;
|
|
memcpy(na, symt.a, symt.u * sizeof(char*)); free(symt.a); symt.a = na;
|
|
for (i = h & (symt.sz-1); symt.v[i]; i = (i-1) & (symt.sz-1)) ;
|
|
}
|
|
}
|
|
*(symt.v[i] = symt.a + symt.u) =
|
|
strcpy(cxm_cknull(malloc(strlen(name)+1), "symtab[4]"), name);
|
|
return (int)((symt.u)++);
|
|
}
|
|
/* records */
|
|
#define isrecord(o) istyped(o)
|
|
#define recordrtd(r) *typedtype(r)
|
|
#define recordlen(r) typedlen(r)
|
|
#define recordref(r, i) *typedref(r, i)
|
|
int isprocedure(obj o) {
|
|
if (!o) return 0;
|
|
else if (isaptr(o) && !isobjptr(o)) return 1;
|
|
else if (!isobjptr(o)) return 0;
|
|
else { obj h = objptr_from_obj(o)[-1];
|
|
return notaptr(h) && size_from_obj(h) >= 1
|
|
&& isaptr(hblkref(o, 0)); }
|
|
}
|
|
int procedurelen(obj o) {
|
|
assert(isprocedure(o));
|
|
return isobjptr(o) ? hblklen(o) : 1;
|
|
}
|
|
obj* procedureref(obj o, int i) {
|
|
int len; assert(isprocedure(o));
|
|
len = isobjptr(o) ? hblklen(o) : 1;
|
|
assert(i >= 0 && i < len);
|
|
return &hblkref(o, i);
|
|
}
|
|
/* procedures */
|
|
extern int isprocedure(obj o);
|
|
extern int procedurelen(obj o);
|
|
extern obj* procedureref(obj o, int i);
|
|
/* apply and dotted lambda list */
|
|
extern obj appcases[];
|
|
/* apply/dotted lambda adapter entry points */
|
|
static obj apphost(obj);
|
|
obj appcases[5] = { (obj)apphost, (obj)apphost, (obj)apphost, (obj)apphost , (obj)apphost };
|
|
/* apphost procedure */
|
|
#define APPLY_MAX_REGS 1024 /* limit on rc for apply & friends */
|
|
static obj apphost(obj pc)
|
|
{
|
|
register obj *r = cxg_regs;
|
|
register obj *hp = cxg_hp;
|
|
register int rc = cxg_rc;
|
|
jump:
|
|
switch (objptr_from_obj(pc)-appcases) {
|
|
|
|
case 0: /* apply */
|
|
/* clo k f arg... arglist */
|
|
assert(rc >= 4);
|
|
{ int i; obj l;
|
|
rreserve(APPLY_MAX_REGS);
|
|
l = r[--rc];
|
|
r[0] = r[2];
|
|
/* k in r[1] */
|
|
for (i = 3; i < rc; ++i) r[i-1] = r[i];
|
|
for (--rc; l != mknull(); l = cdr(l)) r[rc++] = car(l);
|
|
/* f k arg... arg... */
|
|
assert(rc <= APPLY_MAX_REGS);
|
|
pc = objptr_from_obj(r[0])[0];
|
|
goto jump; }
|
|
|
|
case 1: /* dotted lambda adapter */
|
|
/* clo k arg... */
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
int n = fixnum_from_obj(p[1]) + 2;
|
|
r[0] = p[2]; /* f */
|
|
/* k in r[1] */
|
|
assert(rc >= n);
|
|
rreserve(n+1);
|
|
if (rc == n) r[rc++] = mknull();
|
|
else { /* collect rest list */
|
|
obj l = mknull();
|
|
hreserve(hbsz(3)*(rc-n), rc);
|
|
while (rc > n) { *--hp = l; *--hp = r[--rc];
|
|
*--hp = obj_from_size(PAIR_BTAG); l = hendblk(3); }
|
|
r[rc++] = l; }
|
|
/* f k arg... arglist */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
goto jump; }
|
|
|
|
case 2: /* void continuation adapter */
|
|
/* cclo ek arg ... */
|
|
assert(rc >= 2);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[0] = p[1]; /* cont */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
/* ek in r[1] */
|
|
rreserve(3);
|
|
r[2] = obj_from_void(0);
|
|
rc = 3;
|
|
goto jump; }
|
|
|
|
case 3: /* argc dispatcher */
|
|
/* clo k arg... */
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
obj pv = p[1]; int vl = vectorlen(pv); assert(vl > 0);
|
|
if (rc-2 < vl-1) r[0] = vectorref(pv, rc-2); /* matching slot */
|
|
else r[0] = vectorref(pv, vl-1); /* catch-all slot */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
goto jump; }
|
|
|
|
case 4: /* case lambda dispatcher */
|
|
/* clo k arg... */
|
|
{ obj* p = objptr_from_obj(r[0]); int bl = hblklen(p), i;
|
|
for (i = 1; i < bl; i += 3) {
|
|
int min = fixnum_from_obj(hblkref(p, i)), max = fixnum_from_obj(hblkref(p, i+1));
|
|
if (min <= rc-2 && rc-2 <= max) { r[0] = hblkref(p, i+2); break; }
|
|
} assert(i < bl); /* at least one of the cases should match! */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
goto jump; }
|
|
|
|
default: /* inter-host call */
|
|
cxg_hp = hp;
|
|
cxm_rgc(r, 1);
|
|
cxg_rc = rc;
|
|
return pc;
|
|
}
|
|
}
|
|
/* eof */
|
|
#define EOF_ITAG 7
|
|
#define mkeof() mkimm(0, EOF_ITAG)
|
|
#define iseof(o) ((o) == mkimm(0, EOF_ITAG))
|
|
/* input ports */
|
|
typedef struct { /* extends cxtype_t */
|
|
const char *tname;
|
|
void (*free)(void*);
|
|
int (*close)(void*);
|
|
int (*getch)(void*);
|
|
int (*ungetch)(int, void*);
|
|
} cxtype_iport_t;
|
|
extern cxtype_t *IPORT_CLOSED_NTAG;
|
|
extern cxtype_t *IPORT_FILE_NTAG;
|
|
extern cxtype_t *IPORT_STRING_NTAG;
|
|
extern cxtype_t *IPORT_BYTEVECTOR_NTAG;
|
|
static cxtype_iport_t *iportvt(obj o) {
|
|
cxtype_t *pt; if (!isobjptr(o)) return NULL;
|
|
pt = (cxtype_t*)objptr_from_obj(o)[-1];
|
|
if (pt != IPORT_CLOSED_NTAG && pt != IPORT_FILE_NTAG &&
|
|
pt != IPORT_STRING_NTAG && pt != IPORT_BYTEVECTOR_NTAG) return NULL;
|
|
else return (cxtype_iport_t*)pt; }
|
|
#define ckiportvt(o) ((cxtype_iport_t*)cxm_cknull(iportvt(o), "iportvt"))
|
|
#define isiport(o) (iportvt(o) != NULL)
|
|
#define iportdata(o) ((void*)(*objptr_from_obj(o)))
|
|
static int iportgetc(obj o) {
|
|
cxtype_iport_t *vt = iportvt(o); void *pp = iportdata(o);
|
|
assert(vt); return vt->getch(pp);
|
|
}
|
|
static int iportpeekc(obj o) {
|
|
cxtype_iport_t *vt = iportvt(o); void *pp = iportdata(o); int c;
|
|
assert(vt); c = vt->getch(pp); if (c != EOF) vt->ungetch(c, pp); return c;
|
|
}
|
|
/* closed input ports */
|
|
static void cifree(void *p) {}
|
|
static int ciclose(void *p) { return 0; }
|
|
static int cigetch(void *p) { return EOF; }
|
|
static int ciungetch(int c) { return c; }
|
|
static cxtype_iport_t cxt_iport_closed = {
|
|
"closed-input-port", (void (*)(void*))cifree, (int (*)(void*))ciclose,
|
|
(int (*)(void*))cigetch, (int (*)(int, void*))ciungetch };
|
|
cxtype_t *IPORT_CLOSED_NTAG = (cxtype_t *)&cxt_iport_closed;
|
|
static void ffree(void *vp) {
|
|
/* FILE *fp = vp; assert(fp); cannot fclose(fp) here because of FILE reuse! */ }
|
|
static cxtype_iport_t cxt_iport_file = {
|
|
"file-input-port", ffree, (int (*)(void*))fclose,
|
|
(int (*)(void*))(fgetc), (int (*)(int, void*))(ungetc) };
|
|
cxtype_t *IPORT_FILE_NTAG = (cxtype_t *)&cxt_iport_file;
|
|
#define mkiport_file(l, fp) hpushptr(fp, IPORT_FILE_NTAG, l)
|
|
/* string input ports */
|
|
typedef struct { char *p; void *base; } sifile_t;
|
|
sifile_t *sialloc(char *p, void *base) {
|
|
sifile_t *fp = cxm_cknull(malloc(sizeof(sifile_t)), "malloc(sifile)");
|
|
fp->p = p; fp->base = base; return fp; }
|
|
extern sifile_t *sialloc(char *p, void *base);
|
|
static void sifree(sifile_t *fp) {
|
|
assert(fp); if (fp->base) free(fp->base); free(fp); }
|
|
static int siclose(sifile_t *fp) {
|
|
assert(fp); if (fp->base) free(fp->base); fp->base = NULL; fp->p = ""; return 0; }
|
|
static int sigetch(sifile_t *fp) {
|
|
int c; assert(fp && fp->p); if (!(c = *(fp->p))) return EOF; ++(fp->p); return c; }
|
|
static int siungetch(int c, sifile_t *fp) {
|
|
assert(fp && fp->p); --(fp->p); assert(c == *(fp->p)); return c; }
|
|
static cxtype_iport_t cxt_iport_string = {
|
|
"string-input-port", (void (*)(void*))sifree, (int (*)(void*))siclose,
|
|
(int (*)(void*))sigetch, (int (*)(int, void*))siungetch };
|
|
cxtype_t *IPORT_STRING_NTAG = (cxtype_t *)&cxt_iport_string;
|
|
#define mkiport_string(l, fp) hpushptr(fp, IPORT_STRING_NTAG, l)
|
|
/* bytevector input ports */
|
|
typedef struct { unsigned char *p, *e; void *base; } bvifile_t;
|
|
bvifile_t *bvialloc(unsigned char *p, unsigned char *e, void *base) {
|
|
bvifile_t *fp = cxm_cknull(malloc(sizeof(bvifile_t)), "malloc(bvifile)");
|
|
fp->p = p; fp->e = e; fp->base = base; return fp; }
|
|
extern bvifile_t *bvialloc(unsigned char *p, unsigned char *e, void *base);
|
|
static void bvifree(bvifile_t *fp) {
|
|
assert(fp); if (fp->base) free(fp->base); free(fp); }
|
|
static int bviclose(bvifile_t *fp) {
|
|
assert(fp); if (fp->base) free(fp->base); fp->base = NULL;
|
|
fp->p = fp->e = (unsigned char *)""; return 0; }
|
|
static int bvigetch(bvifile_t *fp) {
|
|
assert(fp && fp->p && fp->e); return (fp->p >= fp->e) ? EOF : (0xff & *(fp->p)++); }
|
|
static int bviungetch(int c, bvifile_t *fp) {
|
|
assert(fp && fp->p && fp->e); --(fp->p); assert(c == *(fp->p)); return c; }
|
|
static cxtype_iport_t cxt_iport_bytevector = {
|
|
"bytevector-input-port", (void (*)(void*))bvifree, (int (*)(void*))bviclose,
|
|
(int (*)(void*))bvigetch, (int (*)(int, void*))bviungetch };
|
|
cxtype_t *IPORT_BYTEVECTOR_NTAG = (cxtype_t *)&cxt_iport_bytevector;
|
|
#define mkiport_bytevector(l, fp) hpushptr(fp, IPORT_BYTEVECTOR_NTAG, l)
|
|
/* output ports */
|
|
typedef struct { /* extends cxtype_t */
|
|
const char *tname;
|
|
void (*free)(void*);
|
|
int (*close)(void*);
|
|
int (*putch)(int, void*);
|
|
int (*flush)(void*);
|
|
} cxtype_oport_t;
|
|
extern cxtype_t *OPORT_CLOSED_NTAG;
|
|
extern cxtype_t *OPORT_FILE_NTAG;
|
|
extern cxtype_t *OPORT_STRING_NTAG;
|
|
extern cxtype_t *OPORT_BYTEVECTOR_NTAG;
|
|
static cxtype_oport_t *oportvt(obj o) {
|
|
cxtype_t *pt; if (!isobjptr(o)) return NULL;
|
|
pt = (cxtype_t*)objptr_from_obj(o)[-1];
|
|
if (pt != OPORT_CLOSED_NTAG && pt != OPORT_FILE_NTAG &&
|
|
pt != OPORT_STRING_NTAG && pt != OPORT_BYTEVECTOR_NTAG) return NULL;
|
|
else return (cxtype_oport_t*)pt; }
|
|
#define ckoportvt(o) ((cxtype_oport_t*)cxm_cknull(oportvt(o), "oportvt"))
|
|
#define isoport(o) (oportvt(o) != NULL)
|
|
#define oportdata(o) ((void*)(*objptr_from_obj(o)))
|
|
static void oportputc(int c, obj o) {
|
|
cxtype_oport_t *vt = oportvt(o); void *pp = oportdata(o);
|
|
assert(vt); vt->putch(c, pp);
|
|
}
|
|
static void oportputs(char *s, obj o) {
|
|
cxtype_oport_t *vt = oportvt(o); void *pp = oportdata(o);
|
|
assert(vt); while (*s) vt->putch(*s++, pp);
|
|
}
|
|
static void oportwrite(char *s, int n, obj o) {
|
|
cxtype_oport_t *vt = oportvt(o); void *pp = oportdata(o);
|
|
assert(vt); while (n-- > 0) vt->putch(*s++, pp);
|
|
}
|
|
static void oportflush(obj o) {
|
|
cxtype_oport_t *vt = oportvt(o); void *pp = oportdata(o);
|
|
assert(vt); vt->flush(pp);
|
|
}
|
|
/* closed output ports */
|
|
static void cofree(void *p) {}
|
|
static int coclose(void *p) { return 0; }
|
|
static int coputch(int c, void *p) { return EOF; }
|
|
static int coflush(void *p) { return EOF; }
|
|
static cxtype_oport_t cxt_oport_closed = {
|
|
"closed-output-port", (void (*)(void*))cofree, (int (*)(void*))coclose,
|
|
(int (*)(int, void*))coputch, (int (*)(void*))coflush };
|
|
cxtype_t *OPORT_CLOSED_NTAG = (cxtype_t *)&cxt_oport_closed;
|
|
static cxtype_oport_t cxt_oport_file = {
|
|
"file-output-port", ffree, (int (*)(void*))fclose,
|
|
(int (*)(int, void*))(fputc), (int (*)(void*))fflush };
|
|
cxtype_t *OPORT_FILE_NTAG = (cxtype_t *)&cxt_oport_file;
|
|
#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);
|
|
cbuf_t* newcb(void) {
|
|
cbuf_t* pcb = cxm_cknull(malloc(sizeof(cbuf_t)), "malloc(cbuf)");
|
|
pcb->fill = pcb->buf = cxm_cknull(malloc(64), "malloc(cbdata)");
|
|
pcb->end = pcb->buf + 64; return pcb;
|
|
}
|
|
extern void freecb(cbuf_t* pcb);
|
|
void freecb(cbuf_t* pcb) { if (pcb) { free(pcb->buf); free(pcb); } }
|
|
static void cbgrow(cbuf_t* pcb, size_t n) {
|
|
size_t oldsz = pcb->end - pcb->buf, newsz = oldsz*2;
|
|
size_t cnt = pcb->fill - pcb->buf;
|
|
if (oldsz + n > newsz) newsz += n;
|
|
pcb->buf = cxm_cknull(realloc(pcb->buf, newsz), "realloc(cbdata)");
|
|
pcb->fill = pcb->buf + cnt, pcb->end = pcb->buf + newsz;
|
|
}
|
|
extern int cbputc(int c, cbuf_t* pcb);
|
|
int cbputc(int c, cbuf_t* pcb) {
|
|
if ((pcb)->fill == (pcb)->end) cbgrow(pcb, 1); *((pcb)->fill)++ = c; return c;
|
|
}
|
|
static int cbflush(cbuf_t* pcb) { return 0; }
|
|
static int cbclose(cbuf_t* pcb) { free(pcb->buf); pcb->buf = NULL; return 0; }
|
|
extern size_t cblen(cbuf_t* pcb);
|
|
size_t cblen(cbuf_t* pcb) { return pcb->fill - pcb->buf; }
|
|
extern char* cbdata(cbuf_t* pcb);
|
|
char* cbdata(cbuf_t* pcb) {
|
|
if (pcb->fill == pcb->end) cbgrow(pcb, 1); *(pcb->fill) = 0; return pcb->buf;
|
|
}
|
|
static cxtype_oport_t cxt_oport_string = {
|
|
"string-output-port", (void (*)(void*))freecb, (int (*)(void*))cbclose,
|
|
(int (*)(int, void*))cbputc, (int (*)(void*))cbflush };
|
|
cxtype_t *OPORT_STRING_NTAG = (cxtype_t *)&cxt_oport_string;
|
|
#define mkoport_string(l, fp) hpushptr(fp, OPORT_STRING_NTAG, l)
|
|
/* bytevector output ports */
|
|
static cxtype_oport_t cxt_oport_bytevector = {
|
|
"bytevector-output-port", (void (*)(void*))freecb, (int (*)(void*))cbclose,
|
|
(int (*)(int, void*))cbputc, (int (*)(void*))cbflush };
|
|
cxtype_t *OPORT_BYTEVECTOR_NTAG = (cxtype_t *)&cxt_oport_bytevector;
|
|
#define mkoport_bytevector(l, fp) hpushptr(fp, OPORT_BYTEVECTOR_NTAG, l)
|
|
/* eq hash table for circular/sharing checks and safe equal? */
|
|
typedef struct { obj *v; obj *r; size_t sz; size_t u, maxu, c; } stab_t;
|
|
static stab_t *staballoc(void) {
|
|
stab_t *p = cxm_cknull(calloc(1, sizeof(stab_t)), "newstab");
|
|
p->v = cxm_cknull(calloc(64, sizeof(obj)), "newstab[1]");
|
|
p->sz = 64, p->maxu = 64 / 2; return p;
|
|
}
|
|
static stab_t *stabfree(stab_t *p) {
|
|
if (p) { free(p->v); free(p->r); free(p); }
|
|
return NULL;
|
|
}
|
|
static int stabnew(obj o, stab_t *p, int circ) {
|
|
if (!o || notaptr(o) || notobjptr(o) || (circ && isaptr(objptr_from_obj(o)[-1]))) return 0;
|
|
else if (circ && isaptr(objptr_from_obj(o)[0])) return 0; /* opaque */
|
|
else { /* v[i] is 0 or heap obj, possibly with lower bit set if it's not new */
|
|
unsigned long h = (unsigned long)o; size_t sz = p->sz, i, j;
|
|
for (i = h & (sz-1); p->v[i]; i = (i-1) & (sz-1))
|
|
if ((p->v[i] & ~1) == o) { p->v[i] |= 1; return 0; }
|
|
if (p->u == p->maxu) { /* rehash */
|
|
size_t nsz = sz * 2; obj *nv = cxm_cknull(calloc(nsz, sizeof(obj)), "stabnew");
|
|
for (i = 0; i < sz; ++i) if (p->v[i] & ~1) {
|
|
for (j = (unsigned long)(p->v[i] & ~1) & (nsz-1); nv[j]; j = (j-1) & (nsz-1)) ;
|
|
nv[j] = p->v[i];
|
|
}
|
|
free(p->v); p->v = nv; sz = p->sz = nsz; p->maxu = nsz / 2;
|
|
for (i = h & (sz-1); p->v[i]; i = (i-1) & (sz-1)) ;
|
|
}
|
|
p->v[i] = o; p->u += 1; return 1;
|
|
}
|
|
}
|
|
static void stabdelifu(obj o, stab_t *p) {
|
|
unsigned long h = (unsigned long)o; size_t sz = p->sz, i;
|
|
for (i = h & (sz-1); p->v[i]; i = (i-1) & (sz-1)) if ((p->v[i] & ~1) == o) {
|
|
if (p->v[i] & 1) /* keep */; else p->v[i] = 1; /* del */
|
|
return;
|
|
}
|
|
}
|
|
static void stabpushp(obj o, stab_t *p) {
|
|
obj *r = p->r; if (!r) { p->r = r = cxm_cknull(calloc(sizeof(obj), 12), "stabpushp"); r[1] = 10; }
|
|
else if (r[0] == r[1]) { p->r = r = cxm_cknull(realloc(r, sizeof(obj)*(2+(size_t)r[1]*2)), "stabpushp"); r[1] *= 2; }
|
|
r[2 + r[0]++] = o;
|
|
}
|
|
static void stabpopp(stab_t *p) {
|
|
obj *r = p->r; assert(r && r[0] > 0); r[0] -= 1;
|
|
}
|
|
static void stabcircular(obj o, stab_t *p) {
|
|
tail: if (stabnew(o, p, 1)) {
|
|
obj *op = objptr_from_obj(o), fo = op[-1];
|
|
if (notaptr(fo)) {
|
|
obj *fop = op + size_from_obj(fo);
|
|
stabpushp(0, p); while (op+1 < fop) stabcircular(*op++, p); stabpopp(p);
|
|
if (op+1 == fop) { stabpushp(o, p); o = *op; goto tail; }
|
|
}
|
|
} else {
|
|
obj *r = p->r; if (r) {
|
|
obj *op = r+2, *fop = op+r[0];
|
|
while (fop > op && fop[-1] != 0) stabdelifu(*--fop, p);
|
|
r[0] = fop - op;
|
|
}
|
|
}
|
|
}
|
|
static void stabshared(obj o, stab_t *p) {
|
|
tail: if (stabnew(o, p, 0)) {
|
|
obj *op = objptr_from_obj(o), fo = op[-1];
|
|
if (notaptr(fo)) {
|
|
obj *fop = op + size_from_obj(fo);
|
|
while (op+1 < fop) stabshared(*op++, p);
|
|
if (op+1 == fop) { o = *op; goto tail; }
|
|
}
|
|
}
|
|
}
|
|
static stab_t *stabend(stab_t *p) {
|
|
size_t nz, i, sz = p->sz;
|
|
for (nz = i = 0; i < sz; ++i) if ((p->v[i] & ~1) && (p->v[i] & 1)) ++nz;
|
|
if (nz) {
|
|
size_t nsz, j; obj *nv; for (nsz = 8; nsz < nz*2; nsz *= 2) ;
|
|
nv = cxm_cknull(calloc(nsz, sizeof(obj)), "stabend");
|
|
for (i = 0; i < sz; ++i) if ((p->v[i] & ~1) && (p->v[i] & 1)) {
|
|
for (j = (unsigned long)(p->v[i] & ~1) & (nsz-1); nv[j]; j = (j-1) & (nsz-1)) ;
|
|
nv[j] = p->v[i];
|
|
}
|
|
free(p->v); p->v = nv; sz = p->sz = nsz; p->maxu = nsz / 2;
|
|
free(p->r); p->r = NULL;
|
|
} else p = stabfree(p);
|
|
return p;
|
|
}
|
|
static long stabri(size_t i, stab_t *p, int upd) {
|
|
obj *pri, ri; if (!p->r) p->r = cxm_cknull(calloc(p->sz, sizeof(obj)), "stabri");
|
|
pri = p->r + i; ri = *pri; if (!ri) *pri = ri = ++(p->c);
|
|
if (upd && ri > 0) *pri = -ri; return (long)ri;
|
|
}
|
|
static long stabref(obj o, stab_t *p, int upd) {
|
|
if (!p || !o || notaptr(o) || notobjptr(o)) return 0; else {
|
|
unsigned long h = (unsigned long)o; size_t sz = p->sz, i;
|
|
for (i = h & (sz-1); p->v[i]; i = (i-1) & (sz-1))
|
|
if ((p->v[i] & ~1) == o) return (p->v[i] & 1) ? stabri(i, p, upd) : 0;
|
|
return 0;
|
|
}
|
|
}
|
|
static int stabufind(obj x, obj y, stab_t *p) {
|
|
size_t sz = p->sz, i, ix=0, iy=0; /* bogus 0 inits to silence gcc */ obj *r = p->r;
|
|
for (i = (unsigned long)x & (sz-1); p->v[i]; i = (i-1) & (sz-1)) if ((p->v[i] & ~1) == x) { ix = i; break; }
|
|
for (i = ix; r[i] >= 0; ) i = (size_t)r[i]; if (i != ix) ix = (size_t)(r[ix] = i);
|
|
for (i = (unsigned long)y & (sz-1); p->v[i]; i = (i-1) & (sz-1)) if ((p->v[i] & ~1) == y) { iy = i; break; }
|
|
for (i = iy; r[i] >= 0; ) i = (size_t)r[i]; if (i != iy) iy = (size_t)(r[iy] = i);
|
|
if (ix == iy) return 1; /* same class, assumed to be equal */
|
|
if (r[ix] < r[iy]) { r[ix] += r[iy]; r[iy] = ix; } else { r[iy] += r[ix]; r[ix] = iy; } return 0;
|
|
}
|
|
static int stabequal(obj x, obj y, stab_t *p) {
|
|
obj h; int i, n; loop: if (x == y) return 1;
|
|
if (!x || !y || notaptr(x) || notaptr(y) || notobjptr(x) || notobjptr(y)) return 0;
|
|
if ((h = objptr_from_obj(x)[-1]) != objptr_from_obj(y)[-1]) return 0;
|
|
#ifdef FLONUMS_BOXED
|
|
if (h == (obj)FLONUM_NTAG) return flonum_from_obj(x) == flonum_from_obj(y);
|
|
#endif
|
|
if (h == (obj)STRING_NTAG) return strcmp(stringchars(x), stringchars(y)) == 0;
|
|
if (h == (obj)BYTEVECTOR_NTAG) return bytevectoreq(bytevectordata(x), bytevectordata(y));
|
|
if (isaptr(h) || !(n = size_from_obj(h)) || hblkref(x, 0) != hblkref(y, 0)) return 0;
|
|
if (stabufind(x, y, p)) return 1; /* seen before and decided to be equal */
|
|
for (i = 1; i < n-1; ++i) if (!stabequal(hblkref(x, i), hblkref(y, i), p)) return 0;
|
|
if (i == n-1) { x = hblkref(x, i); y = hblkref(y, i); goto loop; } else return 1;
|
|
}
|
|
static int boundequal(obj x, obj y, int fuel) { /* => remaining fuel or <0 on failure */
|
|
obj h; int i, n; loop: assert(fuel > 0); if (x == y) return fuel-1;
|
|
if (!x || !y || notaptr(x) || notaptr(y) || notobjptr(x) || notobjptr(y)) return -1;
|
|
if ((h = objptr_from_obj(x)[-1]) != objptr_from_obj(y)[-1]) return -1;
|
|
#ifdef FLONUMS_BOXED
|
|
if (h == (obj)FLONUM_NTAG) return flonum_from_obj(x) == flonum_from_obj(y) ? fuel-1 : -1;
|
|
#endif
|
|
if (h == (obj)STRING_NTAG) return strcmp(stringchars(x), stringchars(y)) == 0 ? fuel-1 : -1;
|
|
if (h == (obj)BYTEVECTOR_NTAG) return bytevectoreq(bytevectordata(x), bytevectordata(y)) ? fuel-1 : -1;
|
|
if (isaptr(h) || !(n = size_from_obj(h)) || hblkref(x, 0) != hblkref(y, 0)) return -1;
|
|
if (--fuel == 0) return 0; /* we must spend fuel while comparing objects themselves */
|
|
for (i = 1; i < n-1; ++i) if ((fuel = boundequal(hblkref(x, i), hblkref(y, i), fuel)) <= 0) return fuel;
|
|
if (i == n-1) { x = hblkref(x, i); y = hblkref(y, i); goto loop; } else return fuel;
|
|
}
|
|
extern int iscircular(obj x);
|
|
int iscircular(obj x) {
|
|
if (!x || notaptr(x) || notobjptr(x)) return 0;
|
|
else { stab_t *p = staballoc(); stabcircular(x, p); p = stabend(p); stabfree(p); return p != NULL; }
|
|
}
|
|
extern int iseqv(obj x, obj y);
|
|
int iseqv(obj x, obj y) {
|
|
obj h; if (x == y) return 1;
|
|
if (!x || !y || notaptr(x) || notaptr(y) || notobjptr(x) || notobjptr(y)) return 0;
|
|
if ((h = objptr_from_obj(x)[-1]) != objptr_from_obj(y)[-1]) return 0;
|
|
#ifdef FLONUMS_BOXED
|
|
if (h == (obj)FLONUM_NTAG) return *(flonum_t*)objptr_from_obj(x)[0] == *(flonum_t*)objptr_from_obj(y)[0];
|
|
#endif
|
|
return 0;
|
|
}
|
|
extern obj ismemv(obj x, obj l);
|
|
obj ismemv(obj x, obj l) {
|
|
if (!x || notaptr(x) || notobjptr(x)) {
|
|
for (; l != mknull(); l = cdr(l))
|
|
{ if (car(l) == x) return l; }
|
|
} else if (is_flonum_obj(x)) {
|
|
flonum_t fx = flonum_from_obj(x);
|
|
for (; l != mknull(); l = cdr(l))
|
|
{ obj y = car(l); if (is_flonum_obj(y) && fx == flonum_from_obj(y)) return l; }
|
|
} else { /* for others, memv == memq */
|
|
for (; l != mknull(); l = cdr(l))
|
|
{ if (car(l) == x) return l; }
|
|
} return 0;
|
|
}
|
|
extern obj isassv(obj x, obj l);
|
|
obj isassv(obj x, obj l) {
|
|
if (!x || notaptr(x) || notobjptr(x)) {
|
|
for (; l != mknull(); l = cdr(l))
|
|
{ obj p = car(l); if (car(p) == x) return p; }
|
|
} else if (is_flonum_obj(x)) {
|
|
flonum_t fx = flonum_from_obj(x);
|
|
for (; l != mknull(); l = cdr(l))
|
|
{ obj p = car(l), y = car(p); if (is_flonum_obj(y) && fx == flonum_from_obj(y)) return p; }
|
|
} else { /* for others, assv == assq */
|
|
for (; l != mknull(); l = cdr(l))
|
|
{ obj p = car(l); if (car(p) == x) return p; }
|
|
} return 0;
|
|
}
|
|
extern int isequal(obj x, obj y);
|
|
int isequal(obj x, obj y) {
|
|
stab_t *p; obj *r; size_t i; int res = boundequal(x, y, 500);
|
|
if (res != 0) return res > 0; /* small/non-circular/easy */
|
|
p = staballoc(); stabshared(x, p); stabshared(y, p);
|
|
r = p->r = cxm_cknull(calloc(p->sz, sizeof(obj)), "isequal");
|
|
for (i = 0; i < p->sz; ++i) if (p->v[i] & ~1) r[i] = -1;
|
|
res = stabequal(x, y, p); stabfree(p); return res;
|
|
}
|
|
extern obj ismember(obj x, obj l);
|
|
obj ismember(obj x, obj l) {
|
|
if (!x || notaptr(x) || notobjptr(x)) {
|
|
for (; l != mknull(); l = cdr(l))
|
|
{ if (car(l) == x) return l; }
|
|
} else if (is_flonum_obj(x)) {
|
|
flonum_t fx = flonum_from_obj(x);
|
|
for (; l != mknull(); l = cdr(l))
|
|
{ obj y = car(l); if (is_flonum_obj(y) && fx == flonum_from_obj(y)) return l; }
|
|
} else if (isstring(x)) {
|
|
char *xs = stringchars(x);
|
|
for (; l != mknull(); l = cdr(l))
|
|
{ obj y = car(l); if (isstring(y) && 0 == strcmp(xs, stringchars(y))) return l; }
|
|
} else {
|
|
for (; l != mknull(); l = cdr(l))
|
|
{ if (isequal(car(l), x)) return l; }
|
|
} return 0;
|
|
}
|
|
extern obj isassoc(obj x, obj l);
|
|
obj isassoc(obj x, obj l) {
|
|
if (!x || notaptr(x) || notobjptr(x)) {
|
|
for (; l != mknull(); l = cdr(l))
|
|
{ obj p = car(l); if (car(p) == x) return p; }
|
|
} else if (is_flonum_obj(x)) {
|
|
flonum_t fx = flonum_from_obj(x);
|
|
for (; l != mknull(); l = cdr(l))
|
|
{ obj p = car(l), y = car(p); if (is_flonum_obj(y) && fx == flonum_from_obj(y)) return p; }
|
|
} else if (isstring(x)) {
|
|
char *xs = stringchars(x);
|
|
for (; l != mknull(); l = cdr(l))
|
|
{ obj p = car(l), y = car(p); if (isstring(y) && 0 == strcmp(xs, stringchars(y))) return p; }
|
|
} else {
|
|
for (; l != mknull(); l = cdr(l))
|
|
{ obj p = car(l); if (isequal(car(p), x)) return p; }
|
|
} return 0;
|
|
}
|
|
/* internal recursive write procedure */
|
|
typedef struct { stab_t *pst; int disp; cxtype_oport_t *vt; void *pp; } wenv_t;
|
|
static void wrc(int c, wenv_t *e) { e->vt->putch(c, e->pp); }
|
|
static void wrs(char *s, wenv_t *e) {
|
|
cxtype_oport_t *vt = e->vt; void *pp = e->pp;
|
|
assert(vt); while (*s) vt->putch(*s++, pp);
|
|
}
|
|
static int cleansymname(char *s) {
|
|
char *inits = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!$%&*/:<=>?@^_~";
|
|
char *subss = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!$%&*/:<=>?@^_~0123456789.@+-";
|
|
if (s[0] == 0 || s[strspn(s, subss)] != 0) return 0; else if (strchr(inits, s[0])) return 1;
|
|
else if (s[0] == '+' || s[0] == '-') return s[1] == 0 || (s[1] == '.' && s[2] && !isdigit(s[2])) || !isdigit(s[1]);
|
|
else return s[0] == '.' && s[1] && !isdigit(s[1]);
|
|
}
|
|
static void wrdatum(obj o, wenv_t *e) {
|
|
long ref;
|
|
tail: ref = stabref(o, e->pst, 1); /* update ref after access */
|
|
if (ref < 0) { char buf[30]; sprintf(buf, "#%ld#", -ref-1); wrs(buf, e); return; }
|
|
if (ref > 0) { char buf[30]; sprintf(buf, "#%ld=", +ref-1); wrs(buf, e); }
|
|
if (is_bool_obj(o)) {
|
|
wrs(bool_from_obj(o) ? "#t" : "#f", e);
|
|
} else if (is_fixnum_obj(o)) {
|
|
char buf[30]; sprintf(buf, "%ld", fixnum_from_obj(o)); wrs(buf, e);
|
|
} else if (is_flonum_obj(o)) {
|
|
char buf[30], *s; double d = flonum_from_obj(o); sprintf(buf, "%.15g", d);
|
|
for (s = buf; *s != 0; s++) if (strchr(".eE", *s)) break;
|
|
if (d != d) strcpy(buf, "+nan.0"); else if (d <= -HUGE_VAL) strcpy(buf, "-inf.0");
|
|
else if (d >= HUGE_VAL) strcpy(buf, "+inf.0"); else if (*s == 'E') *s = 'e';
|
|
else if (*s == 0) { *s++ = '.'; *s++ = '0'; *s = 0; }
|
|
wrs(buf, e);
|
|
} else if (iseof(o)) {
|
|
wrs("#<eof>", e);
|
|
} else if (o == obj_from_void(0)) {
|
|
wrs("#<void>", e);
|
|
} else if (o == obj_from_unit()) {
|
|
wrs("#<values>", e);
|
|
} else if (isiport(o)) {
|
|
char buf[60]; sprintf(buf, "#<%s>", ckiportvt(o)->tname); wrs(buf, e);
|
|
} else if (isoport(o)) {
|
|
char buf[60]; sprintf(buf, "#<%s>", ckoportvt(o)->tname); wrs(buf, e);
|
|
} else if (issymbol(o)) {
|
|
char *s = symbolname(getsymbol(o));
|
|
if (e->disp || cleansymname(s)) wrs(s, e);
|
|
else {
|
|
wrc('|', e);
|
|
while (*s) {
|
|
int c = *s++;
|
|
switch(c) {
|
|
case '|': wrs("\\|", e); break;
|
|
case '\\': wrs("\\\\", e); break;
|
|
default: wrc(c, e); break;
|
|
}
|
|
}
|
|
wrc('|', e);
|
|
}
|
|
|
|
} else if (isnull(o)) {
|
|
wrs("()", e);
|
|
} else if (ispair(o)) {
|
|
wrc('(', e); wrdatum(car(o), e);
|
|
while (ispair(cdr(o)) && !stabref(cdr(o), e->pst, 0)) { wrc(' ', e); o = cdr(o); wrdatum(car(o), e); }
|
|
if (!isnull(cdr(o))) { wrs(" . ", e); wrdatum(cdr(o), e); }
|
|
wrc(')', e);
|
|
} else if (is_char_obj(o)) {
|
|
int c = char_from_obj(o);
|
|
if (e->disp) wrc(c, e);
|
|
else switch(c) {
|
|
case 0x00: wrs("#\\null", e); break;
|
|
case 0x07: wrs("#\\alarm", e); break;
|
|
case 0x08: wrs("#\\backspace", e); break;
|
|
case 0x7f: wrs("#\\delete", e); break;
|
|
case 0x1b: wrs("#\\escape", e); break;
|
|
case '\t': wrs("#\\tab", e); break;
|
|
case '\n': wrs("#\\newline", e); break;
|
|
case '\r': wrs("#\\return", e); break;
|
|
case ' ': wrs("#\\space", e); break;
|
|
default: wrs("#\\", e); wrc(c, e); break;
|
|
}
|
|
} else if (isstring(o)) {
|
|
char *s = stringchars(o);
|
|
if (e->disp) wrs(s, e);
|
|
else {
|
|
wrc('\"', e);
|
|
while (*s) {
|
|
int c = *s++;
|
|
switch(c) {
|
|
case '\"': wrs("\\\"", e); break;
|
|
case '\\': wrs("\\\\", e); break;
|
|
default: wrc(c, e); break;
|
|
}
|
|
}
|
|
wrc('\"', e);
|
|
}
|
|
} else if (isvector(o)) {
|
|
int i, n = vectorlen(o);
|
|
wrs("#(", e);
|
|
for (i = 0; i < n; ++i) {
|
|
if (i) wrc(' ', e); wrdatum(vectorref(o, i), e);
|
|
}
|
|
wrc(')', e);
|
|
} else if (isbytevector(o)) {
|
|
int i, n = bytevectorlen(o);
|
|
wrs("#u8(", e);
|
|
for (i = 0; i < n; ++i) {
|
|
char buf[30]; sprintf(buf, "%d", *bytevectorref(o, i));
|
|
if (i) wrc(' ', e); wrs(buf, e);
|
|
}
|
|
wrc(')', e);
|
|
} else if (isbox(o)) {
|
|
wrs("#&", e); o = boxref(o); goto tail;
|
|
} else if (istagged(o, 0)) {
|
|
int i, n = taggedlen(o, 0);
|
|
wrs("#<values", e);
|
|
for (i = 0; i < n; ++i) {
|
|
wrc(' ', e); wrdatum(*taggedref(o, 0, i), e);
|
|
}
|
|
wrc('>', e);
|
|
} else if (isprocedure(o)) {
|
|
char buf[60];
|
|
if (isobjptr(hblkref(o, 0))) sprintf(buf, "#<vmclosure @%p>", objptr_from_obj(o));
|
|
else sprintf(buf, "#<procedure @%p>", objptr_from_obj(o));
|
|
wrs(buf, e);
|
|
} else if (isrecord(o)) {
|
|
int i, n = recordlen(o);
|
|
wrs("#<record ", e);
|
|
wrdatum(recordrtd(o), e); // TODO: no need to show as shared!
|
|
for (i = 0; i < n; ++i) {
|
|
wrc(' ', e); wrdatum(recordref(o, i), e);
|
|
}
|
|
wrc('>', e);
|
|
} else if (isvoid(o)) {
|
|
wrs("#<void>", e);
|
|
} else {
|
|
wrs("#<unknown>", e);
|
|
}
|
|
}
|
|
/* 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);
|
|
/* S-expression writers */
|
|
void oportputsimple(obj x, obj p, int disp) {
|
|
wenv_t e; e.pst = NULL; e.disp = disp; e.vt = oportvt(p); e.pp = oportdata(p);
|
|
wrdatum(x, &e);
|
|
}
|
|
void oportputcircular(obj x, obj p, int disp) {
|
|
wenv_t e; e.pst = staballoc(); e.disp = disp; e.vt = oportvt(p); e.pp = oportdata(p);
|
|
stabcircular(x, e.pst); e.pst = stabend(e.pst);
|
|
wrdatum(x, &e);
|
|
stabfree(e.pst);
|
|
}
|
|
void oportputshared(obj x, obj p, int disp) {
|
|
wenv_t e; e.pst = staballoc(); e.disp = disp; e.vt = oportvt(p); e.pp = oportdata(p);
|
|
stabshared(x, e.pst); e.pst = stabend(e.pst);
|
|
wrdatum(x, &e);
|
|
stabfree(e.pst);
|
|
}
|
|
|
|
/* cx globals */
|
|
obj cx__25append; /* %append */
|
|
obj cx__25assoc; /* %assoc */
|
|
obj cx__25bytevectors_2Dcopy_2Dinto_21; /* %bytevectors-copy-into! */
|
|
obj cx__25bytevectors_2Dsum_2Dlength; /* %bytevectors-sum-length */
|
|
obj cx__25fail_2Dlambda; /* %fail-lambda */
|
|
obj cx__25make_2Dlist; /* %make-list */
|
|
obj cx__25member; /* %member */
|
|
obj cx__25read; /* %read */
|
|
obj cx__25read_2Dline; /* %read-line */
|
|
obj cx__25residual_2A; /* %residual* */
|
|
obj cx__25residual_2B; /* %residual+ */
|
|
obj cx__25residual_2D; /* %residual- */
|
|
obj cx__25residual_2D_25make_2Dvector; /* %residual-%make-vector */
|
|
obj cx__25residual_2D_25new_2Dvector; /* %residual-%new-vector */
|
|
obj cx__25residual_2D_25string_2Dappend; /* %residual-%string-append */
|
|
obj cx__25residual_2D_25string_2Dcopy; /* %residual-%string-copy */
|
|
obj cx__25residual_2D_25string_2Dfill_21; /* %residual-%string-fill! */
|
|
obj cx__25residual_2Dabort; /* %residual-abort */
|
|
obj cx__25residual_2Dabs; /* %residual-abs */
|
|
obj cx__25residual_2Dacos; /* %residual-acos */
|
|
obj cx__25residual_2Dangle; /* %residual-angle */
|
|
obj cx__25residual_2Dappend; /* %residual-append */
|
|
obj cx__25residual_2Dargc_2Ddispatch_2Dlambda_3F; /* %residual-argc-dispatch-lambda? */
|
|
obj cx__25residual_2Dargv_2Dref; /* %residual-argv-ref */
|
|
obj cx__25residual_2Dasin; /* %residual-asin */
|
|
obj cx__25residual_2Dassl; /* %residual-assl */
|
|
obj cx__25residual_2Dassoc; /* %residual-assoc */
|
|
obj cx__25residual_2Dassq; /* %residual-assq */
|
|
obj cx__25residual_2Dassv; /* %residual-assv */
|
|
obj cx__25residual_2Datan; /* %residual-atan */
|
|
obj cx__25residual_2Datom_3F; /* %residual-atom? */
|
|
obj cx__25residual_2Dboolean_3D_3F; /* %residual-boolean=? */
|
|
obj cx__25residual_2Dboolean_3F; /* %residual-boolean? */
|
|
obj cx__25residual_2Dbox; /* %residual-box */
|
|
obj cx__25residual_2Dbox_3F; /* %residual-box? */
|
|
obj cx__25residual_2Dbyte_3F; /* %residual-byte? */
|
|
obj cx__25residual_2Dbytevector; /* %residual-bytevector */
|
|
obj cx__25residual_2Dbytevector_2Dlength; /* %residual-bytevector-length */
|
|
obj cx__25residual_2Dbytevector_2Du8_2Dref; /* %residual-bytevector-u8-ref */
|
|
obj cx__25residual_2Dbytevector_2Du8_2Dset_21; /* %residual-bytevector-u8-set! */
|
|
obj cx__25residual_2Dbytevector_3D_3F; /* %residual-bytevector=? */
|
|
obj cx__25residual_2Dbytevector_3F; /* %residual-bytevector? */
|
|
obj cx__25residual_2Dcaaaar; /* %residual-caaaar */
|
|
obj cx__25residual_2Dcaaadr; /* %residual-caaadr */
|
|
obj cx__25residual_2Dcaaar; /* %residual-caaar */
|
|
obj cx__25residual_2Dcaadar; /* %residual-caadar */
|
|
obj cx__25residual_2Dcaaddr; /* %residual-caaddr */
|
|
obj cx__25residual_2Dcaadr; /* %residual-caadr */
|
|
obj cx__25residual_2Dcaar; /* %residual-caar */
|
|
obj cx__25residual_2Dcadaar; /* %residual-cadaar */
|
|
obj cx__25residual_2Dcadadr; /* %residual-cadadr */
|
|
obj cx__25residual_2Dcadar; /* %residual-cadar */
|
|
obj cx__25residual_2Dcaddar; /* %residual-caddar */
|
|
obj cx__25residual_2Dcadddr; /* %residual-cadddr */
|
|
obj cx__25residual_2Dcaddr; /* %residual-caddr */
|
|
obj cx__25residual_2Dcadr; /* %residual-cadr */
|
|
obj cx__25residual_2Dcall_2Dwith_2Dvalues; /* %residual-call-with-values */
|
|
obj cx__25residual_2Dcar; /* %residual-car */
|
|
obj cx__25residual_2Dcdaaar; /* %residual-cdaaar */
|
|
obj cx__25residual_2Dcdaadr; /* %residual-cdaadr */
|
|
obj cx__25residual_2Dcdaar; /* %residual-cdaar */
|
|
obj cx__25residual_2Dcdadar; /* %residual-cdadar */
|
|
obj cx__25residual_2Dcdaddr; /* %residual-cdaddr */
|
|
obj cx__25residual_2Dcdadr; /* %residual-cdadr */
|
|
obj cx__25residual_2Dcdar; /* %residual-cdar */
|
|
obj cx__25residual_2Dcddaar; /* %residual-cddaar */
|
|
obj cx__25residual_2Dcddadr; /* %residual-cddadr */
|
|
obj cx__25residual_2Dcddar; /* %residual-cddar */
|
|
obj cx__25residual_2Dcdddar; /* %residual-cdddar */
|
|
obj cx__25residual_2Dcddddr; /* %residual-cddddr */
|
|
obj cx__25residual_2Dcdddr; /* %residual-cdddr */
|
|
obj cx__25residual_2Dcddr; /* %residual-cddr */
|
|
obj cx__25residual_2Dcdr; /* %residual-cdr */
|
|
obj cx__25residual_2Dceiling; /* %residual-ceiling */
|
|
obj cx__25residual_2Dchar_2D_3Einteger; /* %residual-char->integer */
|
|
obj cx__25residual_2Dchar_2Dalphabetic_3F; /* %residual-char-alphabetic? */
|
|
obj cx__25residual_2Dchar_2Dci_3C_3D_3F; /* %residual-char-ci<=? */
|
|
obj cx__25residual_2Dchar_2Dci_3C_3F; /* %residual-char-ci<? */
|
|
obj cx__25residual_2Dchar_2Dci_3D_3F; /* %residual-char-ci=? */
|
|
obj cx__25residual_2Dchar_2Dci_3E_3D_3F; /* %residual-char-ci>=? */
|
|
obj cx__25residual_2Dchar_2Dci_3E_3F; /* %residual-char-ci>? */
|
|
obj cx__25residual_2Dchar_2Ddowncase; /* %residual-char-downcase */
|
|
obj cx__25residual_2Dchar_2Dlower_2Dcase_3F; /* %residual-char-lower-case? */
|
|
obj cx__25residual_2Dchar_2Dnumeric_3F; /* %residual-char-numeric? */
|
|
obj cx__25residual_2Dchar_2Dready_3F; /* %residual-char-ready? */
|
|
obj cx__25residual_2Dchar_2Dupcase; /* %residual-char-upcase */
|
|
obj cx__25residual_2Dchar_2Dupper_2Dcase_3F; /* %residual-char-upper-case? */
|
|
obj cx__25residual_2Dchar_2Dwhitespace_3F; /* %residual-char-whitespace? */
|
|
obj cx__25residual_2Dchar_3C_3D_3F; /* %residual-char<=? */
|
|
obj cx__25residual_2Dchar_3C_3F; /* %residual-char<? */
|
|
obj cx__25residual_2Dchar_3D_3F; /* %residual-char=? */
|
|
obj cx__25residual_2Dchar_3E_3D_3F; /* %residual-char>=? */
|
|
obj cx__25residual_2Dchar_3E_3F; /* %residual-char>? */
|
|
obj cx__25residual_2Dchar_3F; /* %residual-char? */
|
|
obj cx__25residual_2Dcircular_3F; /* %residual-circular? */
|
|
obj cx__25residual_2Dcons; /* %residual-cons */
|
|
obj cx__25residual_2Dcons_2A; /* %residual-cons* */
|
|
obj cx__25residual_2Dcos; /* %residual-cos */
|
|
obj cx__25residual_2Dcurrent_2Derror_2Dport; /* %residual-current-error-port */
|
|
obj cx__25residual_2Dcurrent_2Dinput_2Dport; /* %residual-current-input-port */
|
|
obj cx__25residual_2Dcurrent_2Djiffy; /* %residual-current-jiffy */
|
|
obj cx__25residual_2Dcurrent_2Doutput_2Dport; /* %residual-current-output-port */
|
|
obj cx__25residual_2Dcurrent_2Dsecond; /* %residual-current-second */
|
|
obj cx__25residual_2Ddenominator; /* %residual-denominator */
|
|
obj cx__25residual_2Ddigit_2Dvalue; /* %residual-digit-value */
|
|
obj cx__25residual_2Ddisplay; /* %residual-display */
|
|
obj cx__25residual_2Ddisplay_2Dfixnum; /* %residual-display-fixnum */
|
|
obj cx__25residual_2Ddisplay_2Dflonum; /* %residual-display-flonum */
|
|
obj cx__25residual_2Ddisplay_2Dinput_2Dport; /* %residual-display-input-port */
|
|
obj cx__25residual_2Ddisplay_2Doutput_2Dport; /* %residual-display-output-port */
|
|
obj cx__25residual_2Ddisplay_2Dprocedure; /* %residual-display-procedure */
|
|
obj cx__25residual_2Deof_2Dobject; /* %residual-eof-object */
|
|
obj cx__25residual_2Deof_2Dobject_3F; /* %residual-eof-object? */
|
|
obj cx__25residual_2Deq_3F; /* %residual-eq? */
|
|
obj cx__25residual_2Dequal_3F; /* %residual-equal? */
|
|
obj cx__25residual_2Deqv_3F; /* %residual-eqv? */
|
|
obj cx__25residual_2Deven_3F; /* %residual-even? */
|
|
obj cx__25residual_2Dexact; /* %residual-exact */
|
|
obj cx__25residual_2Dexit; /* %residual-exit */
|
|
obj cx__25residual_2Dexp; /* %residual-exp */
|
|
obj cx__25residual_2Dexpt; /* %residual-expt */
|
|
obj cx__25residual_2Dfinite_3F; /* %residual-finite? */
|
|
obj cx__25residual_2Dfixnum_2D_3Eflonum; /* %residual-fixnum->flonum */
|
|
obj cx__25residual_2Dfixnum_2Dwidth; /* %residual-fixnum-width */
|
|
obj cx__25residual_2Dfixnum_3F; /* %residual-fixnum? */
|
|
obj cx__25residual_2Dfl_2A; /* %residual-fl* */
|
|
obj cx__25residual_2Dfl_2B; /* %residual-fl+ */
|
|
obj cx__25residual_2Dfl_2D; /* %residual-fl- */
|
|
obj cx__25residual_2Dfl_2F; /* %residual-fl/ */
|
|
obj cx__25residual_2Dfl_3C_3D_3F; /* %residual-fl<=? */
|
|
obj cx__25residual_2Dfl_3C_3F; /* %residual-fl<? */
|
|
obj cx__25residual_2Dfl_3D_3F; /* %residual-fl=? */
|
|
obj cx__25residual_2Dfl_3E_3D_3F; /* %residual-fl>=? */
|
|
obj cx__25residual_2Dfl_3E_3F; /* %residual-fl>? */
|
|
obj cx__25residual_2Dflabs; /* %residual-flabs */
|
|
obj cx__25residual_2Dflacos; /* %residual-flacos */
|
|
obj cx__25residual_2Dflasin; /* %residual-flasin */
|
|
obj cx__25residual_2Dflatan; /* %residual-flatan */
|
|
obj cx__25residual_2Dflceiling; /* %residual-flceiling */
|
|
obj cx__25residual_2Dflcos; /* %residual-flcos */
|
|
obj cx__25residual_2Dfleven_3F; /* %residual-fleven? */
|
|
obj cx__25residual_2Dflexp; /* %residual-flexp */
|
|
obj cx__25residual_2Dflexpt; /* %residual-flexpt */
|
|
obj cx__25residual_2Dflfloor; /* %residual-flfloor */
|
|
obj cx__25residual_2Dflgcd; /* %residual-flgcd */
|
|
obj cx__25residual_2Dflinfinite_3F; /* %residual-flinfinite? */
|
|
obj cx__25residual_2Dflinteger_3F; /* %residual-flinteger? */
|
|
obj cx__25residual_2Dfllog; /* %residual-fllog */
|
|
obj cx__25residual_2Dfllog10; /* %residual-fllog10 */
|
|
obj cx__25residual_2Dflmax; /* %residual-flmax */
|
|
obj cx__25residual_2Dflmin; /* %residual-flmin */
|
|
obj cx__25residual_2Dflmodquo; /* %residual-flmodquo */
|
|
obj cx__25residual_2Dflmodulo; /* %residual-flmodulo */
|
|
obj cx__25residual_2Dflnan_3F; /* %residual-flnan? */
|
|
obj cx__25residual_2Dflnegative_3F; /* %residual-flnegative? */
|
|
obj cx__25residual_2Dflodd_3F; /* %residual-flodd? */
|
|
obj cx__25residual_2Dflonum_2D_3Efixnum; /* %residual-flonum->fixnum */
|
|
obj cx__25residual_2Dflonum_3F; /* %residual-flonum? */
|
|
obj cx__25residual_2Dfloor; /* %residual-floor */
|
|
obj cx__25residual_2Dflpositive_3F; /* %residual-flpositive? */
|
|
obj cx__25residual_2Dflquotient; /* %residual-flquotient */
|
|
obj cx__25residual_2Dflremainder; /* %residual-flremainder */
|
|
obj cx__25residual_2Dflround; /* %residual-flround */
|
|
obj cx__25residual_2Dflsin; /* %residual-flsin */
|
|
obj cx__25residual_2Dflsqrt; /* %residual-flsqrt */
|
|
obj cx__25residual_2Dfltan; /* %residual-fltan */
|
|
obj cx__25residual_2Dfltruncate; /* %residual-fltruncate */
|
|
obj cx__25residual_2Dflush_2Doutput_2Dport; /* %residual-flush-output-port */
|
|
obj cx__25residual_2Dflzero_3F; /* %residual-flzero? */
|
|
obj cx__25residual_2Dfor_2Deach; /* %residual-for-each */
|
|
obj cx__25residual_2Dfx_2A; /* %residual-fx* */
|
|
obj cx__25residual_2Dfx_2B; /* %residual-fx+ */
|
|
obj cx__25residual_2Dfx_2D; /* %residual-fx- */
|
|
obj cx__25residual_2Dfx_2F; /* %residual-fx/ */
|
|
obj cx__25residual_2Dfx_3C_3D_3F; /* %residual-fx<=? */
|
|
obj cx__25residual_2Dfx_3C_3F; /* %residual-fx<? */
|
|
obj cx__25residual_2Dfx_3D_3F; /* %residual-fx=? */
|
|
obj cx__25residual_2Dfx_3E_3D_3F; /* %residual-fx>=? */
|
|
obj cx__25residual_2Dfx_3E_3F; /* %residual-fx>? */
|
|
obj cx__25residual_2Dfxabs; /* %residual-fxabs */
|
|
obj cx__25residual_2Dfxand; /* %residual-fxand */
|
|
obj cx__25residual_2Dfxarithmetic_2Dshift_2Dleft; /* %residual-fxarithmetic-shift-left */
|
|
obj cx__25residual_2Dfxarithmetic_2Dshift_2Dright; /* %residual-fxarithmetic-shift-right */
|
|
obj cx__25residual_2Dfxeuq; /* %residual-fxeuq */
|
|
obj cx__25residual_2Dfxeur; /* %residual-fxeur */
|
|
obj cx__25residual_2Dfxeven_3F; /* %residual-fxeven? */
|
|
obj cx__25residual_2Dfxexpt; /* %residual-fxexpt */
|
|
obj cx__25residual_2Dfxfl_2F; /* %residual-fxfl/ */
|
|
obj cx__25residual_2Dfxgcd; /* %residual-fxgcd */
|
|
obj cx__25residual_2Dfxior; /* %residual-fxior */
|
|
obj cx__25residual_2Dfxmax; /* %residual-fxmax */
|
|
obj cx__25residual_2Dfxmin; /* %residual-fxmin */
|
|
obj cx__25residual_2Dfxmodquo; /* %residual-fxmodquo */
|
|
obj cx__25residual_2Dfxmodulo; /* %residual-fxmodulo */
|
|
obj cx__25residual_2Dfxnegative_3F; /* %residual-fxnegative? */
|
|
obj cx__25residual_2Dfxnot; /* %residual-fxnot */
|
|
obj cx__25residual_2Dfxodd_3F; /* %residual-fxodd? */
|
|
obj cx__25residual_2Dfxpositive_3F; /* %residual-fxpositive? */
|
|
obj cx__25residual_2Dfxquotient; /* %residual-fxquotient */
|
|
obj cx__25residual_2Dfxremainder; /* %residual-fxremainder */
|
|
obj cx__25residual_2Dfxsqrt; /* %residual-fxsqrt */
|
|
obj cx__25residual_2Dfxxor; /* %residual-fxxor */
|
|
obj cx__25residual_2Dfxzero_3F; /* %residual-fxzero? */
|
|
obj cx__25residual_2Dgcd; /* %residual-gcd */
|
|
obj cx__25residual_2Dget_2Denvironment_2Dvariable; /* %residual-get-environment-variable */
|
|
obj cx__25residual_2Dget_2Doutput_2Dbytevector; /* %residual-get-output-bytevector */
|
|
obj cx__25residual_2Dget_2Doutput_2Dstring; /* %residual-get-output-string */
|
|
obj cx__25residual_2Dgreatest_2Dfixnum; /* %residual-greatest-fixnum */
|
|
obj cx__25residual_2Dimag_2Dpart; /* %residual-imag-part */
|
|
obj cx__25residual_2Dinexact; /* %residual-inexact */
|
|
obj cx__25residual_2Dinfinite_3F; /* %residual-infinite? */
|
|
obj cx__25residual_2Dinput_2Dport_2Dopen_3F; /* %residual-input-port-open? */
|
|
obj cx__25residual_2Dinput_2Dport_3F; /* %residual-input-port? */
|
|
obj cx__25residual_2Dinteger_2D_3Echar; /* %residual-integer->char */
|
|
obj cx__25residual_2Dinteger_3F; /* %residual-integer? */
|
|
obj cx__25residual_2Djiffies_2Dper_2Dsecond; /* %residual-jiffies-per-second */
|
|
obj cx__25residual_2Dlast_2Dpair; /* %residual-last-pair */
|
|
obj cx__25residual_2Dlcm; /* %residual-lcm */
|
|
obj cx__25residual_2Dleast_2Dfixnum; /* %residual-least-fixnum */
|
|
obj cx__25residual_2Dlength; /* %residual-length */
|
|
obj cx__25residual_2Dlist; /* %residual-list */
|
|
obj cx__25residual_2Dlist_2Dref; /* %residual-list-ref */
|
|
obj cx__25residual_2Dlist_2Dset_21; /* %residual-list-set! */
|
|
obj cx__25residual_2Dlist_2Dtail; /* %residual-list-tail */
|
|
obj cx__25residual_2Dlist_3F; /* %residual-list? */
|
|
obj cx__25residual_2Dlog; /* %residual-log */
|
|
obj cx__25residual_2Dmagnitude; /* %residual-magnitude */
|
|
obj cx__25residual_2Dmake_2Dargc_2Ddispatch_2Dlambda; /* %residual-make-argc-dispatch-lambda */
|
|
obj cx__25residual_2Dmake_2Dbytevector; /* %residual-make-bytevector */
|
|
obj cx__25residual_2Dmake_2Dcase_2Dlambda; /* %residual-make-case-lambda */
|
|
obj cx__25residual_2Dmake_2Dimproper_2Dlambda; /* %residual-make-improper-lambda */
|
|
obj cx__25residual_2Dmake_2Dlist; /* %residual-make-list */
|
|
obj cx__25residual_2Dmake_2Dpolar; /* %residual-make-polar */
|
|
obj cx__25residual_2Dmake_2Drecord; /* %residual-make-record */
|
|
obj cx__25residual_2Dmake_2Drectangular; /* %residual-make-rectangular */
|
|
obj cx__25residual_2Dmake_2Dstring; /* %residual-make-string */
|
|
obj cx__25residual_2Dmake_2Dvector; /* %residual-make-vector */
|
|
obj cx__25residual_2Dmake_2Dvoid_2Dcontinuation; /* %residual-make-void-continuation */
|
|
obj cx__25residual_2Dmap; /* %residual-map */
|
|
obj cx__25residual_2Dmax; /* %residual-max */
|
|
obj cx__25residual_2Dmax_2F2; /* %residual-max/2 */
|
|
obj cx__25residual_2Dmember; /* %residual-member */
|
|
obj cx__25residual_2Dmeml; /* %residual-meml */
|
|
obj cx__25residual_2Dmemq; /* %residual-memq */
|
|
obj cx__25residual_2Dmemv; /* %residual-memv */
|
|
obj cx__25residual_2Dmin; /* %residual-min */
|
|
obj cx__25residual_2Dmin_2F2; /* %residual-min/2 */
|
|
obj cx__25residual_2Dmodquo; /* %residual-modquo */
|
|
obj cx__25residual_2Dmodulo; /* %residual-modulo */
|
|
obj cx__25residual_2Dnan_3F; /* %residual-nan? */
|
|
obj cx__25residual_2Dnegative_3F; /* %residual-negative? */
|
|
obj cx__25residual_2Dnew_2Drecord_2Dtype; /* %residual-new-record-type */
|
|
obj cx__25residual_2Dnewline; /* %residual-newline */
|
|
obj cx__25residual_2Dnot; /* %residual-not */
|
|
obj cx__25residual_2Dnull_3F; /* %residual-null? */
|
|
obj cx__25residual_2Dnumber_2D_3Estring; /* %residual-number->string */
|
|
obj cx__25residual_2Dnumerator; /* %residual-numerator */
|
|
obj cx__25residual_2Dodd_3F; /* %residual-odd? */
|
|
obj cx__25residual_2Dopen_2Dbinary_2Dinput_2Dfile; /* %residual-open-binary-input-file */
|
|
obj cx__25residual_2Dopen_2Dbinary_2Doutput_2Dfile; /* %residual-open-binary-output-file */
|
|
obj cx__25residual_2Dopen_2Dfile_2A; /* %residual-open-file* */
|
|
obj cx__25residual_2Dopen_2Dinput_2Dbytevector; /* %residual-open-input-bytevector */
|
|
obj cx__25residual_2Dopen_2Dinput_2Dfile; /* %residual-open-input-file */
|
|
obj cx__25residual_2Dopen_2Dinput_2Dstring; /* %residual-open-input-string */
|
|
obj cx__25residual_2Dopen_2Doutput_2Dbytevector; /* %residual-open-output-bytevector */
|
|
obj cx__25residual_2Dopen_2Doutput_2Dfile; /* %residual-open-output-file */
|
|
obj cx__25residual_2Dopen_2Doutput_2Dstring; /* %residual-open-output-string */
|
|
obj cx__25residual_2Doutput_2Dport_2Dopen_3F; /* %residual-output-port-open? */
|
|
obj cx__25residual_2Doutput_2Dport_3F; /* %residual-output-port? */
|
|
obj cx__25residual_2Dpair_3F; /* %residual-pair? */
|
|
obj cx__25residual_2Dpeek_2Dchar; /* %residual-peek-char */
|
|
obj cx__25residual_2Dpeek_2Du8; /* %residual-peek-u8 */
|
|
obj cx__25residual_2Dport_2Dfold_2Dcase_3F; /* %residual-port-fold-case? */
|
|
obj cx__25residual_2Dport_3F; /* %residual-port? */
|
|
obj cx__25residual_2Dpositive_3F; /* %residual-positive? */
|
|
obj cx__25residual_2Dprocedure_3F; /* %residual-procedure? */
|
|
obj cx__25residual_2Dquotient; /* %residual-quotient */
|
|
obj cx__25residual_2Drationalize; /* %residual-rationalize */
|
|
obj cx__25residual_2Dread; /* %residual-read */
|
|
obj cx__25residual_2Dread_2Dchar; /* %residual-read-char */
|
|
obj cx__25residual_2Dread_2Dline; /* %residual-read-line */
|
|
obj cx__25residual_2Dread_2Dsimple; /* %residual-read-simple */
|
|
obj cx__25residual_2Dread_2Du8; /* %residual-read-u8 */
|
|
obj cx__25residual_2Dreal_2D_3Efixnum; /* %residual-real->fixnum */
|
|
obj cx__25residual_2Dreal_2D_3Eflonum; /* %residual-real->flonum */
|
|
obj cx__25residual_2Dreal_2Dpart; /* %residual-real-part */
|
|
obj cx__25residual_2Dreal_3F; /* %residual-real? */
|
|
obj cx__25residual_2Drecord_2Dlength; /* %residual-record-length */
|
|
obj cx__25residual_2Drecord_2Dref; /* %residual-record-ref */
|
|
obj cx__25residual_2Drecord_2Dset_21; /* %residual-record-set! */
|
|
obj cx__25residual_2Drecord_2Dtype_2Ddescriptor; /* %residual-record-type-descriptor */
|
|
obj cx__25residual_2Drecord_3F; /* %residual-record? */
|
|
obj cx__25residual_2Dremainder; /* %residual-remainder */
|
|
obj cx__25residual_2Dreverse; /* %residual-reverse */
|
|
obj cx__25residual_2Dreverse_21; /* %residual-reverse! */
|
|
obj cx__25residual_2Dround; /* %residual-round */
|
|
obj cx__25residual_2Dset_2Dbox_21; /* %residual-set-box! */
|
|
obj cx__25residual_2Dset_2Dcar_21; /* %residual-set-car! */
|
|
obj cx__25residual_2Dset_2Dcdr_21; /* %residual-set-cdr! */
|
|
obj cx__25residual_2Dset_2Dport_2Dfold_2Dcase_21; /* %residual-set-port-fold-case! */
|
|
obj cx__25residual_2Dsin; /* %residual-sin */
|
|
obj cx__25residual_2Dsqrt; /* %residual-sqrt */
|
|
obj cx__25residual_2Dsquare; /* %residual-square */
|
|
obj cx__25residual_2Dstring; /* %residual-string */
|
|
obj cx__25residual_2Dstring_2D_3Efixnum_2Dor_2Dflonum; /* %residual-string->fixnum-or-flonum */
|
|
obj cx__25residual_2Dstring_2D_3Enumber; /* %residual-string->number */
|
|
obj cx__25residual_2Dstring_2D_3Esymbol; /* %residual-string->symbol */
|
|
obj cx__25residual_2Dstring_2Dappend; /* %residual-string-append */
|
|
obj cx__25residual_2Dstring_2Dci_3C_3D_3F; /* %residual-string-ci<=? */
|
|
obj cx__25residual_2Dstring_2Dci_3C_3F; /* %residual-string-ci<? */
|
|
obj cx__25residual_2Dstring_2Dci_3D_3F; /* %residual-string-ci=? */
|
|
obj cx__25residual_2Dstring_2Dci_3E_3D_3F; /* %residual-string-ci>=? */
|
|
obj cx__25residual_2Dstring_2Dci_3E_3F; /* %residual-string-ci>? */
|
|
obj cx__25residual_2Dstring_2Ddowncase; /* %residual-string-downcase */
|
|
obj cx__25residual_2Dstring_2Dlength; /* %residual-string-length */
|
|
obj cx__25residual_2Dstring_2Dposition; /* %residual-string-position */
|
|
obj cx__25residual_2Dstring_2Dref; /* %residual-string-ref */
|
|
obj cx__25residual_2Dstring_2Dset_21; /* %residual-string-set! */
|
|
obj cx__25residual_2Dstring_2Dupcase; /* %residual-string-upcase */
|
|
obj cx__25residual_2Dstring_3C_3D_3F; /* %residual-string<=? */
|
|
obj cx__25residual_2Dstring_3C_3F; /* %residual-string<? */
|
|
obj cx__25residual_2Dstring_3D_3F; /* %residual-string=? */
|
|
obj cx__25residual_2Dstring_3E_3D_3F; /* %residual-string>=? */
|
|
obj cx__25residual_2Dstring_3E_3F; /* %residual-string>? */
|
|
obj cx__25residual_2Dstring_3F; /* %residual-string? */
|
|
obj cx__25residual_2Dsubbytevector; /* %residual-subbytevector */
|
|
obj cx__25residual_2Dsubstring; /* %residual-substring */
|
|
obj cx__25residual_2Dsymbol_2D_3Estring; /* %residual-symbol->string */
|
|
obj cx__25residual_2Dsymbol_3D_3F; /* %residual-symbol=? */
|
|
obj cx__25residual_2Dsymbol_3F; /* %residual-symbol? */
|
|
obj cx__25residual_2Dsystem; /* %residual-system */
|
|
obj cx__25residual_2Dtan; /* %residual-tan */
|
|
obj cx__25residual_2Dtruncate; /* %residual-truncate */
|
|
obj cx__25residual_2Du8_2Dready_3F; /* %residual-u8-ready? */
|
|
obj cx__25residual_2Dunbox; /* %residual-unbox */
|
|
obj cx__25residual_2Dvalues; /* %residual-values */
|
|
obj cx__25residual_2Dvector; /* %residual-vector */
|
|
obj cx__25residual_2Dvector_2Dlength; /* %residual-vector-length */
|
|
obj cx__25residual_2Dvector_2Dref; /* %residual-vector-ref */
|
|
obj cx__25residual_2Dvector_2Dset_21; /* %residual-vector-set! */
|
|
obj cx__25residual_2Dvector_3F; /* %residual-vector? */
|
|
obj cx__25residual_2Dvoid; /* %residual-void */
|
|
obj cx__25residual_2Dvoid_3F; /* %residual-void? */
|
|
obj cx__25residual_2Dwrite; /* %residual-write */
|
|
obj cx__25residual_2Dwrite_2Dbytevector; /* %residual-write-bytevector */
|
|
obj cx__25residual_2Dwrite_2Dchar; /* %residual-write-char */
|
|
obj cx__25residual_2Dwrite_2Dshared; /* %residual-write-shared */
|
|
obj cx__25residual_2Dwrite_2Dsimple; /* %residual-write-simple */
|
|
obj cx__25residual_2Dwrite_2Dstring; /* %residual-write-string */
|
|
obj cx__25residual_2Dwrite_2Du8; /* %residual-write-u8 */
|
|
obj cx__25residual_2Dzero_3F; /* %residual-zero? */
|
|
obj cx__25residual_2F; /* %residual/ */
|
|
obj cx__25residual_3C; /* %residual< */
|
|
obj cx__25residual_3C_3D; /* %residual<= */
|
|
obj cx__25residual_3D; /* %residual= */
|
|
obj cx__25residual_3E; /* %residual> */
|
|
obj cx__25residual_3E_3D; /* %residual>= */
|
|
obj cx__25substring_2Dvector_2Dcopy_21; /* %substring-vector-copy! */
|
|
obj cx__25subvector_2Dstring_2Dcopy_21; /* %subvector-string-copy! */
|
|
obj cx__25vectors_2Dcopy_2Dinto_21; /* %vectors-copy-into! */
|
|
obj cx__25vectors_2Dsum_2Dlength; /* %vectors-sum-length */
|
|
obj cx__2Acurrent_2Ddynamic_2Dstate_2A; /* *current-dynamic-state* */
|
|
obj cx__2Acurrent_2Derror_2Dport_2A; /* *current-error-port* */
|
|
obj cx__2Acurrent_2Dinput_2Dport_2A; /* *current-input-port* */
|
|
obj cx__2Acurrent_2Doutput_2Dport_2A; /* *current-output-port* */
|
|
obj cx__3Cerror_2Dobject_3E; /* <error-object> */
|
|
obj cx_apply; /* apply */
|
|
obj cx_assertion_2Dviolation; /* assertion-violation */
|
|
obj cx_bytevector_2D_3Elist; /* bytevector->list */
|
|
obj cx_bytevector_2Dappend; /* bytevector-append */
|
|
obj cx_bytevector_2Dcopy; /* bytevector-copy */
|
|
obj cx_bytevector_2Dcopy_21; /* bytevector-copy! */
|
|
obj cx_call_2Dwith_2Dcurrent_2Dcontinuation; /* call-with-current-continuation */
|
|
obj cx_call_2Dwith_2Dinput_2Dfile; /* call-with-input-file */
|
|
obj cx_call_2Dwith_2Doutput_2Dfile; /* call-with-output-file */
|
|
obj cx_call_2Dwith_2Dport; /* call-with-port */
|
|
obj cx_close_2Dinput_2Dport; /* close-input-port */
|
|
obj cx_close_2Doutput_2Dport; /* close-output-port */
|
|
obj cx_close_2Dport; /* close-port */
|
|
obj cx_command_2Dline; /* command-line */
|
|
obj cx_current_2Dexception_2Dhandler; /* current-exception-handler */
|
|
obj cx_delete_2Dfile; /* delete-file */
|
|
obj cx_dynamic_2Dstate_2Dreroot_21; /* dynamic-state-reroot! */
|
|
obj cx_dynamic_2Dwind; /* dynamic-wind */
|
|
obj cx_emergency_2Dexit; /* emergency-exit */
|
|
obj cx_error; /* error */
|
|
obj cx_error_2Dobject; /* error-object */
|
|
obj cx_error_2Dobject_2Dirritants; /* error-object-irritants */
|
|
obj cx_error_2Dobject_2Dkind; /* error-object-kind */
|
|
obj cx_error_2Dobject_2Dmessage; /* error-object-message */
|
|
obj cx_error_2Dobject_3F; /* error-object? */
|
|
obj cx_exact_2Dinteger_2Dsqrt; /* exact-integer-sqrt */
|
|
obj cx_exit; /* exit */
|
|
obj cx_file_2Derror; /* file-error */
|
|
obj cx_file_2Derror_3F; /* file-error? */
|
|
obj cx_file_2Dexists_3F; /* file-exists? */
|
|
obj cx_fixnum_2D_3Estring; /* fixnum->string */
|
|
obj cx_flonum_2D_3Estring; /* flonum->string */
|
|
obj cx_floor_2F; /* floor/ */
|
|
obj cx_force; /* force */
|
|
obj cx_lcm_2F2; /* lcm/2 */
|
|
obj cx_list_2D_3Ebytevector; /* list->bytevector */
|
|
obj cx_list_2D_3Estring; /* list->string */
|
|
obj cx_list_2D_3Evector; /* list->vector */
|
|
obj cx_list_2Dcopy; /* list-copy */
|
|
obj cx_make_2Dlazy_2Dpromise; /* make-lazy-promise */
|
|
obj cx_make_2Dparameter; /* make-parameter */
|
|
obj cx_make_2Dpromise; /* make-promise */
|
|
obj cx_print_2Derror_2Dmessage; /* print-error-message */
|
|
obj cx_promise_3F; /* promise? */
|
|
obj cx_raise; /* raise */
|
|
obj cx_raise_2Dcontinuable; /* raise-continuable */
|
|
obj cx_read_2Dbytevector; /* read-bytevector */
|
|
obj cx_read_2Dbytevector_21; /* read-bytevector! */
|
|
obj cx_read_2Derror; /* read-error */
|
|
obj cx_read_2Derror_3F; /* read-error? */
|
|
obj cx_read_2Dstring; /* read-string */
|
|
obj cx_read_2Dstring_21; /* read-string! */
|
|
obj cx_read_2Dsubbytevector; /* read-subbytevector */
|
|
obj cx_read_2Dsubbytevector_21; /* read-subbytevector! */
|
|
obj cx_read_2Dsubstring; /* read-substring */
|
|
obj cx_read_2Dsubstring_21; /* read-substring! */
|
|
obj cx_rename_2Dfile; /* rename-file */
|
|
obj cx_reset; /* reset */
|
|
obj cx_set_2Dreset_2Dhandler_21; /* set-reset-handler! */
|
|
obj cx_simple_2Derror; /* simple-error */
|
|
obj cx_string_2D_3Efixnum; /* string->fixnum */
|
|
obj cx_string_2D_3Eflonum; /* string->flonum */
|
|
obj cx_string_2D_3Elist; /* string->list */
|
|
obj cx_string_2D_3Eutf8; /* string->utf8 */
|
|
obj cx_string_2D_3Evector; /* string->vector */
|
|
obj cx_string_2Dcopy; /* string-copy */
|
|
obj cx_string_2Dcopy_21; /* string-copy! */
|
|
obj cx_string_2Dfill_21; /* string-fill! */
|
|
obj cx_string_2Dfor_2Deach; /* string-for-each */
|
|
obj cx_string_2Dmap; /* string-map */
|
|
obj cx_subbytevector_2D_3Elist; /* subbytevector->list */
|
|
obj cx_subbytevector_2Dcopy_21; /* subbytevector-copy! */
|
|
obj cx_substring_2D_3Elist; /* substring->list */
|
|
obj cx_substring_2D_3Eutf8; /* substring->utf8 */
|
|
obj cx_substring_2D_3Evector; /* substring->vector */
|
|
obj cx_substring_2Dcopy_21; /* substring-copy! */
|
|
obj cx_substring_2Dfill_21; /* substring-fill! */
|
|
obj cx_subutf8_2D_3Estring; /* subutf8->string */
|
|
obj cx_subvector; /* subvector */
|
|
obj cx_subvector_2D_3Elist; /* subvector->list */
|
|
obj cx_subvector_2D_3Estring; /* subvector->string */
|
|
obj cx_subvector_2Dcopy_21; /* subvector-copy! */
|
|
obj cx_subvector_2Dfill_21; /* subvector-fill! */
|
|
obj cx_truncate_2F; /* truncate/ */
|
|
obj cx_utf8_2D_3Estring; /* utf8->string */
|
|
obj cx_vector_2D_3Elist; /* vector->list */
|
|
obj cx_vector_2D_3Estring; /* vector->string */
|
|
obj cx_vector_2Dappend; /* vector-append */
|
|
obj cx_vector_2Dcopy; /* vector-copy */
|
|
obj cx_vector_2Dcopy_21; /* vector-copy! */
|
|
obj cx_vector_2Dfill_21; /* vector-fill! */
|
|
obj cx_vector_2Dfor_2Deach; /* vector-for-each */
|
|
obj cx_vector_2Dmap; /* vector-map */
|
|
obj cx_with_2Dexception_2Dhandler; /* with-exception-handler */
|
|
obj cx_with_2Dinput_2Dfrom_2Dfile; /* with-input-from-file */
|
|
obj cx_with_2Dinput_2Dfrom_2Dport; /* with-input-from-port */
|
|
obj cx_with_2Doutput_2Dto_2Dfile; /* with-output-to-file */
|
|
obj cx_with_2Doutput_2Dto_2Dport; /* with-output-to-port */
|
|
obj cx_write_2Dsubbytevector; /* write-subbytevector */
|
|
obj cx_write_2Dsubstring; /* write-substring */
|
|
static obj cx__231117; /* constant #1117 */
|
|
static obj cx__231121; /* constant #1121 */
|
|
static obj cx__231125; /* constant #1125 */
|
|
static obj cx__231129; /* constant #1129 */
|
|
static obj cx__231144; /* constant #1144 */
|
|
static obj cx__231148; /* constant #1148 */
|
|
static obj cx__231151; /* constant #1151 */
|
|
static obj cx__231155; /* constant #1155 */
|
|
static obj cx__231377; /* constant #1377 */
|
|
static obj cx__231381; /* constant #1381 */
|
|
static obj cx__231392; /* constant #1392 */
|
|
static obj cx__231416; /* constant #1416 */
|
|
static obj cx__231455; /* constant #1455 */
|
|
static obj cx__231472; /* constant #1472 */
|
|
static obj cx__231474; /* constant #1474 */
|
|
static obj cx__231517; /* constant #1517 */
|
|
static obj cx__231519; /* constant #1519 */
|
|
static obj cx__231520; /* constant #1520 */
|
|
static obj cx__231522; /* constant #1522 */
|
|
static obj cx__231523; /* constant #1523 */
|
|
static obj cx__231525; /* constant #1525 */
|
|
static obj cx__231534; /* constant #1534 */
|
|
static obj cx__231550; /* constant #1550 */
|
|
static obj cx__231558; /* constant #1558 */
|
|
static obj cx__231562; /* constant #1562 */
|
|
static obj cx__231574; /* constant #1574 */
|
|
static obj cx__231580; /* constant #1580 */
|
|
static obj cx__231594; /* constant #1594 */
|
|
static obj cx__231602; /* constant #1602 */
|
|
static obj cx__231608; /* constant #1608 */
|
|
static obj cx__231611; /* constant #1611 */
|
|
static obj cx__231626; /* constant #1626 */
|
|
static obj cx__231627; /* constant #1627 */
|
|
static obj cx__231630; /* constant #1630 */
|
|
static obj cx__231637; /* constant #1637 */
|
|
static obj cx__231642; /* constant #1642 */
|
|
static obj cx__231647; /* constant #1647 */
|
|
static obj cx__231649; /* constant #1649 */
|
|
static obj cx__231653; /* constant #1653 */
|
|
static obj cx__231665; /* constant #1665 */
|
|
static obj cx__231671; /* constant #1671 */
|
|
static obj cx__231674; /* constant #1674 */
|
|
static obj cx__231687; /* constant #1687 */
|
|
static obj cx__231692; /* constant #1692 */
|
|
static obj cx__231697; /* constant #1697 */
|
|
static obj cx__231704; /* constant #1704 */
|
|
static obj cx__231755; /* constant #1755 */
|
|
static obj cx__231758; /* constant #1758 */
|
|
static obj cx__231770; /* constant #1770 */
|
|
static obj cx__231791; /* constant #1791 */
|
|
static obj cx__231805; /* constant #1805 */
|
|
static obj cx__231818; /* constant #1818 */
|
|
static obj cx__231848; /* constant #1848 */
|
|
static obj cx__231874; /* constant #1874 */
|
|
static obj cx__231875; /* constant #1875 */
|
|
static obj cx__231933; /* constant #1933 */
|
|
static obj cx__231994; /* constant #1994 */
|
|
static obj cx__231997; /* constant #1997 */
|
|
static obj cx__232000; /* constant #2000 */
|
|
static obj cx__232056; /* constant #2056 */
|
|
static obj cx__232060; /* constant #2060 */
|
|
static obj cx__232130; /* constant #2130 */
|
|
static obj cx__232184; /* constant #2184 */
|
|
static obj cx__232206; /* constant #2206 */
|
|
static obj cx__232275; /* constant #2275 */
|
|
static obj cx__232287; /* constant #2287 */
|
|
static obj cx__232291; /* constant #2291 */
|
|
static obj cx__233223; /* constant #3223 */
|
|
static obj cx__233240; /* constant #3240 */
|
|
static obj cx__233977; /* constant #3977 */
|
|
static obj cx__234288; /* constant #4288 */
|
|
|
|
/* helper functions */
|
|
/* %residual-real->fixnum */
|
|
static obj cxs__25residual_2Dreal_2D_3Efixnum(obj v78_n)
|
|
{
|
|
return ((is_fixnum_obj(v78_n)) ? (v78_n) : obj_from_fixnum(fxflo(flonum_from_obj(v78_n))));
|
|
}
|
|
|
|
/* %residual-real? */
|
|
static obj cxs__25residual_2Dreal_3F(obj v147_x)
|
|
{
|
|
return ((is_fixnum_obj(v147_x)) ? obj_from_bool(is_fixnum_obj(v147_x)) : obj_from_bool(is_flonum_obj(v147_x)));
|
|
}
|
|
|
|
/* %residual-integer? */
|
|
static obj cxs__25residual_2Dinteger_3F(obj v152_x)
|
|
{
|
|
return ((is_fixnum_obj(v152_x)) ? obj_from_bool(is_fixnum_obj(v152_x)) : ((is_flonum_obj(v152_x)) ? obj_from_bool(flisint(flonum_from_obj(v152_x))) : obj_from_bool(0)));
|
|
}
|
|
|
|
/* %residual-exact */
|
|
static obj cxs__25residual_2Dexact(obj v158_x)
|
|
{
|
|
return ((is_fixnum_obj(v158_x)) ? (v158_x) : obj_from_fixnum(fxflo(flonum_from_obj(v158_x))));
|
|
}
|
|
|
|
/* %residual-zero? */
|
|
static obj cxs__25residual_2Dzero_3F(obj v166_x)
|
|
{
|
|
return ((is_fixnum_obj(v166_x)) ? obj_from_bool(fixnum_from_obj(v166_x) == 0) : obj_from_bool(flonum_from_obj(v166_x) == 0.0));
|
|
}
|
|
|
|
/* %residual-positive? */
|
|
static obj cxs__25residual_2Dpositive_3F(obj v171_x)
|
|
{
|
|
return ((is_fixnum_obj(v171_x)) ? obj_from_bool(fixnum_from_obj(v171_x) > 0) : obj_from_bool(flonum_from_obj(v171_x) > 0.0));
|
|
}
|
|
|
|
/* %residual-negative? */
|
|
static obj cxs__25residual_2Dnegative_3F(obj v176_x)
|
|
{
|
|
return ((is_fixnum_obj(v176_x)) ? obj_from_bool(fixnum_from_obj(v176_x) < 0) : obj_from_bool(flonum_from_obj(v176_x) < 0.0));
|
|
}
|
|
|
|
/* %residual-even? */
|
|
static obj cxs__25residual_2Deven_3F(obj v181_x)
|
|
{
|
|
return ((is_fixnum_obj(v181_x)) ? obj_from_bool((fixnum_from_obj(v181_x) & 1) == 0) : obj_from_bool(flisint(flonum_from_obj(v181_x) / 2.0)));
|
|
}
|
|
|
|
/* %residual-odd? */
|
|
static obj cxs__25residual_2Dodd_3F(obj v186_x)
|
|
{
|
|
return ((is_fixnum_obj(v186_x)) ? obj_from_bool((fixnum_from_obj(v186_x) & 1) != 0) : obj_from_bool(flisint((flonum_from_obj(v186_x) + 1.0) / 2.0)));
|
|
}
|
|
|
|
/* %residual-nan? */
|
|
static obj cxs__25residual_2Dnan_3F(obj v191_x)
|
|
{
|
|
if ((is_flonum_obj(v191_x))) {
|
|
{ /* flnan? */
|
|
flonum_t f = flonum_from_obj(v191_x);
|
|
return obj_from_bool(f != f); };
|
|
} else {
|
|
return obj_from_bool(0);
|
|
}
|
|
}
|
|
|
|
/* %residual-infinite? */
|
|
static obj cxs__25residual_2Dinfinite_3F(obj v195_x)
|
|
{
|
|
if ((is_flonum_obj(v195_x))) {
|
|
{ /* flinfinite? */
|
|
flonum_t f = flonum_from_obj(v195_x);
|
|
return obj_from_bool(f <= -HUGE_VAL || f >= HUGE_VAL); };
|
|
} else {
|
|
return obj_from_bool(0);
|
|
}
|
|
}
|
|
|
|
/* %residual-finite? */
|
|
static obj cxs__25residual_2Dfinite_3F(obj v199_x)
|
|
{
|
|
if ((is_fixnum_obj(v199_x))) {
|
|
return obj_from_bool(is_fixnum_obj(v199_x));
|
|
} else {
|
|
{ /* let */
|
|
obj v5635_tmp;
|
|
{ /* flinfinite? */
|
|
flonum_t f = flonum_from_obj(v199_x);
|
|
v5635_tmp = obj_from_bool(f <= -HUGE_VAL || f >= HUGE_VAL); };
|
|
return obj_from_bool(!bool_from_obj(v5635_tmp));
|
|
}
|
|
}
|
|
}
|
|
|
|
/* %residual-numerator */
|
|
static obj cxs__25residual_2Dnumerator(obj v337_n)
|
|
{
|
|
return (v337_n);
|
|
}
|
|
|
|
/* %residual-rationalize */
|
|
static obj cxs__25residual_2Drationalize(obj v342_n, obj v341_d)
|
|
{
|
|
return (v342_n);
|
|
}
|
|
|
|
/* %residual-digit-value */
|
|
static obj cxs__25residual_2Ddigit_2Dvalue(obj v446_x)
|
|
{
|
|
return (bool_from_obj((('0') <= char_from_obj(v446_x)) ? obj_from_bool(char_from_obj(v446_x) <= ('9')) : obj_from_bool(0)) ? obj_from_fixnum(fxsub(((fixnum_t)char_from_obj(v446_x)), ('0'))) : obj_from_bool(0));
|
|
}
|
|
|
|
/* substring-copy! */
|
|
static obj cxs_substring_2Dcopy_21(obj v478_to, obj v477_at, obj v476_from, obj v475_start, obj v474_end)
|
|
{
|
|
{ /* let */
|
|
obj v482_limit;
|
|
{ /* let */
|
|
obj v480_b = obj_from_fixnum(fxadd(fixnum_from_obj(v475_start), (fxsub((stringlen((v478_to))), fixnum_from_obj(v477_at)))));
|
|
v482_limit = ((fixnum_from_obj(v474_end) < fixnum_from_obj(v480_b)) ? (v474_end) : (v480_b));
|
|
}
|
|
if ((fixnum_from_obj(v477_at) <= fixnum_from_obj(v475_start))) {
|
|
{ /* letrec */
|
|
obj v497_i;
|
|
obj v496_j;
|
|
/* tail call */
|
|
v497_i = (v477_at);
|
|
v496_j = (v475_start);
|
|
goto s_loop_v495;
|
|
s_loop_v495:
|
|
if ((fixnum_from_obj(v496_j) >= fixnum_from_obj(v482_limit))) {
|
|
return ((0) ? obj_from_bool(0) : obj_from_void(0));
|
|
} else {
|
|
(void) obj_from_void(*stringref((v478_to), fixnum_from_obj(v497_i)) = (*(unsigned char*)stringref((v476_from), fixnum_from_obj(v496_j))));
|
|
{ /* let */
|
|
obj v5634_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v496_j), (+1)));
|
|
obj v5633_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v497_i), (+1)));
|
|
/* tail call */
|
|
v497_i = (v5633_tmp);
|
|
v496_j = (v5634_tmp);
|
|
goto s_loop_v495;
|
|
}
|
|
}
|
|
}
|
|
} else {
|
|
{ /* letrec */
|
|
obj v485_i;
|
|
obj v484_j;
|
|
{ /* let */
|
|
obj v5632_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v482_limit), (+1)));
|
|
obj v5631_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v477_at), (fxsub((fxsub(fixnum_from_obj(v474_end), fixnum_from_obj(v475_start))), (+1)))));
|
|
/* tail call */
|
|
v485_i = (v5631_tmp);
|
|
v484_j = (v5632_tmp);
|
|
goto s_loop;
|
|
}
|
|
s_loop:
|
|
if ((fixnum_from_obj(v484_j) < fixnum_from_obj(v475_start))) {
|
|
return ((0) ? obj_from_bool(0) : obj_from_void(0));
|
|
} else {
|
|
(void) obj_from_void(*stringref((v478_to), fixnum_from_obj(v485_i)) = (*(unsigned char*)stringref((v476_from), fixnum_from_obj(v484_j))));
|
|
{ /* let */
|
|
obj v5630_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v484_j), (+1)));
|
|
obj v5629_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v485_i), (+1)));
|
|
/* tail call */
|
|
v485_i = (v5629_tmp);
|
|
v484_j = (v5630_tmp);
|
|
goto s_loop;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/* substring-fill! */
|
|
static obj cxs_substring_2Dfill_21(obj v511_str, obj v510_c, obj v509_start, obj v508_end)
|
|
{
|
|
{ /* letrec */
|
|
obj v513_i;
|
|
/* tail call */
|
|
v513_i = (v509_start);
|
|
goto s_loop;
|
|
s_loop:
|
|
if ((fixnum_from_obj(v513_i) >= fixnum_from_obj(v508_end))) {
|
|
return ((0) ? obj_from_bool(0) : obj_from_void(0));
|
|
} else {
|
|
(void) obj_from_void(*stringref((v511_str), fixnum_from_obj(v513_i)) = char_from_obj(v510_c));
|
|
{ /* let */
|
|
obj v5628_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v513_i), (+1)));
|
|
/* tail call */
|
|
v513_i = (v5628_tmp);
|
|
goto s_loop;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/* subvector-copy! */
|
|
static obj cxs_subvector_2Dcopy_21(obj v548_to, obj v547_at, obj v546_from, obj v545_start, obj v544_end)
|
|
{
|
|
{ /* let */
|
|
obj v552_limit;
|
|
{ /* let */
|
|
obj v550_b = obj_from_fixnum(fxadd(fixnum_from_obj(v545_start), (fxsub((vectorlen((v548_to))), fixnum_from_obj(v547_at)))));
|
|
v552_limit = ((fixnum_from_obj(v544_end) < fixnum_from_obj(v550_b)) ? (v544_end) : (v550_b));
|
|
}
|
|
if ((fixnum_from_obj(v547_at) <= fixnum_from_obj(v545_start))) {
|
|
{ /* letrec */
|
|
obj v567_i;
|
|
obj v566_j;
|
|
/* tail call */
|
|
v567_i = (v547_at);
|
|
v566_j = (v545_start);
|
|
goto s_loop_v565;
|
|
s_loop_v565:
|
|
if ((fixnum_from_obj(v566_j) >= fixnum_from_obj(v552_limit))) {
|
|
return ((0) ? obj_from_bool(0) : obj_from_void(0));
|
|
} else {
|
|
(void) obj_from_void(vectorref((v548_to), fixnum_from_obj(v567_i)) = (vectorref((v546_from), fixnum_from_obj(v566_j))));
|
|
{ /* let */
|
|
obj v5627_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v566_j), (+1)));
|
|
obj v5626_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v567_i), (+1)));
|
|
/* tail call */
|
|
v567_i = (v5626_tmp);
|
|
v566_j = (v5627_tmp);
|
|
goto s_loop_v565;
|
|
}
|
|
}
|
|
}
|
|
} else {
|
|
{ /* letrec */
|
|
obj v555_i;
|
|
obj v554_j;
|
|
{ /* let */
|
|
obj v5625_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v552_limit), (+1)));
|
|
obj v5624_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v547_at), (fxsub((fxsub(fixnum_from_obj(v544_end), fixnum_from_obj(v545_start))), (+1)))));
|
|
/* tail call */
|
|
v555_i = (v5624_tmp);
|
|
v554_j = (v5625_tmp);
|
|
goto s_loop;
|
|
}
|
|
s_loop:
|
|
if ((fixnum_from_obj(v554_j) < fixnum_from_obj(v545_start))) {
|
|
return ((0) ? obj_from_bool(0) : obj_from_void(0));
|
|
} else {
|
|
(void) obj_from_void(vectorref((v548_to), fixnum_from_obj(v555_i)) = (vectorref((v546_from), fixnum_from_obj(v554_j))));
|
|
{ /* let */
|
|
obj v5623_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v554_j), (+1)));
|
|
obj v5622_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v555_i), (+1)));
|
|
/* tail call */
|
|
v555_i = (v5622_tmp);
|
|
v554_j = (v5623_tmp);
|
|
goto s_loop;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/* subvector-fill! */
|
|
static obj cxs_subvector_2Dfill_21(obj v588_vec, obj v587_x, obj v586_start, obj v585_end)
|
|
{
|
|
{ /* letrec */
|
|
obj v590_i;
|
|
/* tail call */
|
|
v590_i = (v586_start);
|
|
goto s_loop;
|
|
s_loop:
|
|
if ((fixnum_from_obj(v590_i) >= fixnum_from_obj(v585_end))) {
|
|
return ((0) ? obj_from_bool(0) : obj_from_void(0));
|
|
} else {
|
|
(void) obj_from_void(vectorref((v588_vec), fixnum_from_obj(v590_i)) = (v587_x));
|
|
{ /* let */
|
|
obj v5621_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v590_i), (+1)));
|
|
/* tail call */
|
|
v590_i = (v5621_tmp);
|
|
goto s_loop;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/* subbytevector-copy! */
|
|
static obj cxs_subbytevector_2Dcopy_21(obj v619_to, obj v618_at, obj v617_from, obj v616_start, obj v615_end)
|
|
{
|
|
{ /* let */
|
|
obj v623_limit;
|
|
{ /* let */
|
|
obj v621_b = obj_from_fixnum(fxadd(fixnum_from_obj(v616_start), (fxsub((bytevectorlen((v619_to))), fixnum_from_obj(v618_at)))));
|
|
v623_limit = ((fixnum_from_obj(v615_end) < fixnum_from_obj(v621_b)) ? (v615_end) : (v621_b));
|
|
}
|
|
if ((fixnum_from_obj(v618_at) <= fixnum_from_obj(v616_start))) {
|
|
{ /* letrec */
|
|
obj v638_i;
|
|
obj v637_j;
|
|
/* tail call */
|
|
v638_i = (v618_at);
|
|
v637_j = (v616_start);
|
|
goto s_loop_v636;
|
|
s_loop_v636:
|
|
if ((fixnum_from_obj(v637_j) >= fixnum_from_obj(v623_limit))) {
|
|
return ((0) ? obj_from_bool(0) : obj_from_void(0));
|
|
} else {
|
|
(void) obj_from_void(*bytevectorref((v619_to), fixnum_from_obj(v638_i)) = byte_from_fixnum((*bytevectorref((v617_from), fixnum_from_obj(v637_j)))));
|
|
{ /* let */
|
|
obj v5620_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v637_j), (+1)));
|
|
obj v5619_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v638_i), (+1)));
|
|
/* tail call */
|
|
v638_i = (v5619_tmp);
|
|
v637_j = (v5620_tmp);
|
|
goto s_loop_v636;
|
|
}
|
|
}
|
|
}
|
|
} else {
|
|
{ /* letrec */
|
|
obj v626_i;
|
|
obj v625_j;
|
|
{ /* let */
|
|
obj v5618_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v623_limit), (+1)));
|
|
obj v5617_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v618_at), (fxsub((fxsub(fixnum_from_obj(v615_end), fixnum_from_obj(v616_start))), (+1)))));
|
|
/* tail call */
|
|
v626_i = (v5617_tmp);
|
|
v625_j = (v5618_tmp);
|
|
goto s_loop;
|
|
}
|
|
s_loop:
|
|
if ((fixnum_from_obj(v625_j) < fixnum_from_obj(v616_start))) {
|
|
return ((0) ? obj_from_bool(0) : obj_from_void(0));
|
|
} else {
|
|
(void) obj_from_void(*bytevectorref((v619_to), fixnum_from_obj(v626_i)) = byte_from_fixnum((*bytevectorref((v617_from), fixnum_from_obj(v625_j)))));
|
|
{ /* let */
|
|
obj v5616_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v625_j), (+1)));
|
|
obj v5615_tmp = obj_from_fixnum(fxsub(fixnum_from_obj(v626_i), (+1)));
|
|
/* tail call */
|
|
v626_i = (v5615_tmp);
|
|
v625_j = (v5616_tmp);
|
|
goto s_loop;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/* %subvector-string-copy! */
|
|
static obj cxs__25subvector_2Dstring_2Dcopy_21(obj v971_to, obj v970_at, obj v969_from, obj v968_start, obj v967_end)
|
|
{
|
|
{ /* letrec */
|
|
obj v978_i;
|
|
obj v977_j;
|
|
/* tail call */
|
|
v978_i = (v970_at);
|
|
v977_j = (v968_start);
|
|
goto s_loop;
|
|
s_loop:
|
|
{ /* let */
|
|
obj v5611_tmp;
|
|
{ /* let */
|
|
obj v5614_tmp;
|
|
{ /* let */
|
|
obj v973_b = obj_from_fixnum(fxadd(fixnum_from_obj(v968_start), (fxsub((stringlen((v971_to))), fixnum_from_obj(v970_at)))));
|
|
v5614_tmp = ((fixnum_from_obj(v967_end) < fixnum_from_obj(v973_b)) ? (v967_end) : (v973_b));
|
|
}
|
|
v5611_tmp = obj_from_bool(fixnum_from_obj(v977_j) >= fixnum_from_obj(v5614_tmp));
|
|
}
|
|
if (bool_from_obj(v5611_tmp)) {
|
|
return (v971_to);
|
|
} else {
|
|
(void) obj_from_void(*stringref((v971_to), fixnum_from_obj(v978_i)) = char_from_obj(vectorref((v969_from), fixnum_from_obj(v977_j))));
|
|
{ /* let */
|
|
obj v5613_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v977_j), (+1)));
|
|
obj v5612_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v978_i), (+1)));
|
|
/* tail call */
|
|
v978_i = (v5612_tmp);
|
|
v977_j = (v5613_tmp);
|
|
goto s_loop;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/* %substring-vector-copy! */
|
|
static obj cxs__25substring_2Dvector_2Dcopy_21(obj v998_to, obj v997_at, obj v996_from, obj v995_start, obj v994_end)
|
|
{
|
|
{ /* letrec */
|
|
obj v1005_i;
|
|
obj v1004_j;
|
|
/* tail call */
|
|
v1005_i = (v997_at);
|
|
v1004_j = (v995_start);
|
|
goto s_loop;
|
|
s_loop:
|
|
{ /* let */
|
|
obj v5607_tmp;
|
|
{ /* let */
|
|
obj v5610_tmp;
|
|
{ /* let */
|
|
obj v1000_b = obj_from_fixnum(fxadd(fixnum_from_obj(v995_start), (fxsub((vectorlen((v998_to))), fixnum_from_obj(v997_at)))));
|
|
v5610_tmp = ((fixnum_from_obj(v994_end) < fixnum_from_obj(v1000_b)) ? (v994_end) : (v1000_b));
|
|
}
|
|
v5607_tmp = obj_from_bool(fixnum_from_obj(v1004_j) >= fixnum_from_obj(v5610_tmp));
|
|
}
|
|
if (bool_from_obj(v5607_tmp)) {
|
|
return (v998_to);
|
|
} else {
|
|
(void) obj_from_void(vectorref((v998_to), fixnum_from_obj(v1005_i)) = obj_from_char(*(unsigned char*)stringref((v996_from), fixnum_from_obj(v1004_j))));
|
|
{ /* let */
|
|
obj v5609_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v1004_j), (+1)));
|
|
obj v5608_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v1005_i), (+1)));
|
|
/* tail call */
|
|
v1005_i = (v5608_tmp);
|
|
v1004_j = (v5609_tmp);
|
|
goto s_loop;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/* %residual-port? */
|
|
static obj cxs__25residual_2Dport_3F(obj v1163_x)
|
|
{
|
|
return ((isiport((v1163_x))) ? obj_from_bool(isiport((v1163_x))) : obj_from_bool(isoport((v1163_x))));
|
|
}
|
|
|
|
/* close-port */
|
|
static obj cxs_close_2Dport(obj v1168_p)
|
|
{
|
|
if ((isiport((v1168_p)))) {
|
|
{ /* close-input-port */
|
|
obj o = (v1168_p); cxtype_iport_t *vt = iportvt(o); assert(vt);
|
|
vt->close(iportdata(o)); vt->free(iportdata(o));
|
|
objptr_from_obj(o)[-1] = (obj)IPORT_CLOSED_NTAG;
|
|
(void) obj_from_void(0); };
|
|
} else {
|
|
(void) obj_from_void(0);
|
|
}
|
|
if ((isoport((v1168_p)))) {
|
|
{ /* close-output-port */
|
|
obj o = (v1168_p); cxtype_oport_t *vt = oportvt(o); assert(vt);
|
|
vt->close(oportdata(o)); vt->free(oportdata(o));
|
|
objptr_from_obj(o)[-1] = (obj)OPORT_CLOSED_NTAG;
|
|
return obj_from_void(0); };
|
|
} else {
|
|
return obj_from_void(0);
|
|
}
|
|
}
|
|
|
|
/* read-substring! */
|
|
static obj cxs_read_2Dsubstring_21(obj v1230_str, obj v1229_start, obj v1228_end, obj v1227_p)
|
|
{
|
|
{ /* letrec */
|
|
obj v1232_i;
|
|
/* tail call */
|
|
v1232_i = (v1229_start);
|
|
goto s_loop;
|
|
s_loop:
|
|
if ((fixnum_from_obj(v1232_i) >= fixnum_from_obj(v1228_end))) {
|
|
return obj_from_fixnum(fxsub(fixnum_from_obj(v1232_i), fixnum_from_obj(v1229_start)));
|
|
} else {
|
|
{ /* let */
|
|
obj v1233_c;
|
|
{ int c = iportgetc((v1227_p)); v1233_c = (c == EOF ? mkeof() : obj_from_char(c)); };
|
|
if ((iseof((v1233_c)))) {
|
|
return ((fixnum_from_obj(v1232_i) == fixnum_from_obj(v1229_start)) ? (v1233_c) : obj_from_fixnum(fxsub(fixnum_from_obj(v1232_i), fixnum_from_obj(v1229_start))));
|
|
} else {
|
|
(void) obj_from_void(*stringref((v1230_str), fixnum_from_obj(v1232_i)) = char_from_obj(v1233_c));
|
|
{ /* let */
|
|
obj v5606_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v1232_i), (+1)));
|
|
/* tail call */
|
|
v1232_i = (v5606_tmp);
|
|
goto s_loop;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/* write-substring */
|
|
static obj cxs_write_2Dsubstring(obj v1255_from, obj v1254_start, obj v1253_end, obj v1252_p)
|
|
{
|
|
{ /* letrec */
|
|
obj v1257_i;
|
|
/* tail call */
|
|
v1257_i = (v1254_start);
|
|
goto s_loop;
|
|
s_loop:
|
|
if ((fixnum_from_obj(v1257_i) >= fixnum_from_obj(v1253_end))) {
|
|
return ((0) ? obj_from_bool(0) : obj_from_void(0));
|
|
} else {
|
|
(void) obj_from_void(oportputc((*(unsigned char*)stringref((v1255_from), fixnum_from_obj(v1257_i))), (v1252_p)));
|
|
{ /* let */
|
|
obj v5605_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v1257_i), (+1)));
|
|
/* tail call */
|
|
v1257_i = (v5605_tmp);
|
|
goto s_loop;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/* read-subbytevector! */
|
|
static obj cxs_read_2Dsubbytevector_21(obj v1268_vec, obj v1267_start, obj v1266_end, obj v1265_p)
|
|
{
|
|
{ /* letrec */
|
|
obj v1270_i;
|
|
/* tail call */
|
|
v1270_i = (v1267_start);
|
|
goto s_loop;
|
|
s_loop:
|
|
if ((fixnum_from_obj(v1270_i) >= fixnum_from_obj(v1266_end))) {
|
|
return obj_from_fixnum(fxsub(fixnum_from_obj(v1270_i), fixnum_from_obj(v1267_start)));
|
|
} else {
|
|
{ /* let */
|
|
obj v1271_u8;
|
|
{ int c = iportgetc((v1265_p)); v1271_u8 = (c == EOF ? mkeof() : obj_from_fixnum(c & 0xff)); };
|
|
if ((iseof((v1271_u8)))) {
|
|
return ((fixnum_from_obj(v1270_i) == fixnum_from_obj(v1267_start)) ? (v1271_u8) : obj_from_fixnum(fxsub(fixnum_from_obj(v1270_i), fixnum_from_obj(v1267_start))));
|
|
} else {
|
|
(void) obj_from_void(*bytevectorref((v1268_vec), fixnum_from_obj(v1270_i)) = byte_from_fixnum(fixnum_from_obj(v1271_u8)));
|
|
{ /* let */
|
|
obj v5604_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v1270_i), (+1)));
|
|
/* tail call */
|
|
v1270_i = (v5604_tmp);
|
|
goto s_loop;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/* write-subbytevector */
|
|
static obj cxs_write_2Dsubbytevector(obj v1293_from, obj v1292_start, obj v1291_end, obj v1290_p)
|
|
{
|
|
{ /* letrec */
|
|
obj v1295_i;
|
|
/* tail call */
|
|
v1295_i = (v1292_start);
|
|
goto s_loop;
|
|
s_loop:
|
|
if ((fixnum_from_obj(v1295_i) >= fixnum_from_obj(v1291_end))) {
|
|
return ((0) ? obj_from_bool(0) : obj_from_void(0));
|
|
} else {
|
|
(void) obj_from_void(oportputc((*bytevectorref((v1293_from), fixnum_from_obj(v1295_i))), (v1290_p)));
|
|
{ /* let */
|
|
obj v5603_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v1295_i), (+1)));
|
|
/* tail call */
|
|
v1295_i = (v5603_tmp);
|
|
goto s_loop;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/* %residual-eqv? */
|
|
static obj cxs__25residual_2Deqv_3F(obj v1309_x, obj v1308_y)
|
|
{
|
|
return (((v1309_x) == (v1308_y)) ? obj_from_bool((v1309_x) == (v1308_y)) : ((is_flonum_obj(v1309_x)) ? ((is_flonum_obj(v1308_y)) ? obj_from_bool(flonum_from_obj(v1309_x) == flonum_from_obj(v1308_y)) : obj_from_bool(0)) : obj_from_bool(0)));
|
|
}
|
|
|
|
/* %residual-real-part */
|
|
static obj cxs__25residual_2Dreal_2Dpart(obj v2307_x)
|
|
{
|
|
return (v2307_x);
|
|
}
|
|
|
|
/* %residual-angle */
|
|
static obj cxs__25residual_2Dangle(obj v2317_x)
|
|
{
|
|
return (bool_from_obj((is_fixnum_obj(v2317_x)) ? obj_from_bool(fixnum_from_obj(v2317_x) < 0) : obj_from_bool(flonum_from_obj(v2317_x) < 0.0)) ? (cx__232291) : obj_from_fixnum(+0));
|
|
}
|
|
|
|
/* %vectors-sum-length */
|
|
static obj cxs__25vectors_2Dsum_2Dlength(obj v2533_vecs)
|
|
{
|
|
{ /* letrec */
|
|
obj v2536_vecs;
|
|
obj v2535_l;
|
|
{ /* let */
|
|
obj v5602_tmp = obj_from_fixnum(+0);
|
|
obj v5601_tmp = (v2533_vecs);
|
|
/* tail call */
|
|
v2536_vecs = (v5601_tmp);
|
|
v2535_l = (v5602_tmp);
|
|
goto s_loop;
|
|
}
|
|
s_loop:
|
|
if ((isnull((v2536_vecs)))) {
|
|
return (v2535_l);
|
|
} else {
|
|
{ /* let */
|
|
obj v5600_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v2535_l), (vectorlen((car((v2536_vecs)))))));
|
|
obj v5599_tmp = (cdr((v2536_vecs)));
|
|
/* tail call */
|
|
v2536_vecs = (v5599_tmp);
|
|
v2535_l = (v5600_tmp);
|
|
goto s_loop;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/* %vectors-copy-into! */
|
|
static obj cxs__25vectors_2Dcopy_2Dinto_21(obj v2546_to, obj v2545_vecs)
|
|
{
|
|
{ /* letrec */
|
|
obj v2549_vecs;
|
|
obj v2548_i;
|
|
{ /* let */
|
|
obj v5598_tmp = obj_from_fixnum(+0);
|
|
obj v5597_tmp = (v2545_vecs);
|
|
/* tail call */
|
|
v2549_vecs = (v5597_tmp);
|
|
v2548_i = (v5598_tmp);
|
|
goto s_loop;
|
|
}
|
|
s_loop:
|
|
if ((isnull((v2549_vecs)))) {
|
|
return (v2546_to);
|
|
} else {
|
|
{ /* let */
|
|
obj v2552_vecs = (cdr((v2549_vecs)));
|
|
obj v2553_vec = (car((v2549_vecs)));
|
|
(void) (cxs_subvector_2Dcopy_21((v2546_to), (v2548_i), (v2553_vec), obj_from_fixnum(+0), obj_from_fixnum(vectorlen((v2553_vec)))));
|
|
{ /* let */
|
|
obj v5596_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v2548_i), (vectorlen((v2553_vec)))));
|
|
obj v5595_tmp = (v2552_vecs);
|
|
/* tail call */
|
|
v2549_vecs = (v5595_tmp);
|
|
v2548_i = (v5596_tmp);
|
|
goto s_loop;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/* %bytevectors-sum-length */
|
|
static obj cxs__25bytevectors_2Dsum_2Dlength(obj v2621_vecs)
|
|
{
|
|
{ /* letrec */
|
|
obj v2624_vecs;
|
|
obj v2623_l;
|
|
{ /* let */
|
|
obj v5594_tmp = obj_from_fixnum(+0);
|
|
obj v5593_tmp = (v2621_vecs);
|
|
/* tail call */
|
|
v2624_vecs = (v5593_tmp);
|
|
v2623_l = (v5594_tmp);
|
|
goto s_loop;
|
|
}
|
|
s_loop:
|
|
if ((isnull((v2624_vecs)))) {
|
|
return (v2623_l);
|
|
} else {
|
|
{ /* let */
|
|
obj v5592_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v2623_l), (bytevectorlen((car((v2624_vecs)))))));
|
|
obj v5591_tmp = (cdr((v2624_vecs)));
|
|
/* tail call */
|
|
v2624_vecs = (v5591_tmp);
|
|
v2623_l = (v5592_tmp);
|
|
goto s_loop;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/* %bytevectors-copy-into! */
|
|
static obj cxs__25bytevectors_2Dcopy_2Dinto_21(obj v2634_to, obj v2633_vecs)
|
|
{
|
|
{ /* letrec */
|
|
obj v2637_vecs;
|
|
obj v2636_i;
|
|
{ /* let */
|
|
obj v5590_tmp = obj_from_fixnum(+0);
|
|
obj v5589_tmp = (v2633_vecs);
|
|
/* tail call */
|
|
v2637_vecs = (v5589_tmp);
|
|
v2636_i = (v5590_tmp);
|
|
goto s_loop;
|
|
}
|
|
s_loop:
|
|
if ((isnull((v2637_vecs)))) {
|
|
return (v2634_to);
|
|
} else {
|
|
{ /* let */
|
|
obj v2640_vecs = (cdr((v2637_vecs)));
|
|
obj v2641_vec = (car((v2637_vecs)));
|
|
(void) (cxs_subbytevector_2Dcopy_21((v2634_to), (v2636_i), (v2641_vec), obj_from_fixnum(+0), obj_from_fixnum(bytevectorlen((v2641_vec)))));
|
|
{ /* let */
|
|
obj v5588_tmp = obj_from_fixnum(fxadd(fixnum_from_obj(v2636_i), (bytevectorlen((v2641_vec)))));
|
|
obj v5587_tmp = (v2640_vecs);
|
|
/* tail call */
|
|
v2637_vecs = (v5587_tmp);
|
|
v2636_i = (v5588_tmp);
|
|
goto s_loop;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
/* gc roots */
|
|
static obj *globv[] = {
|
|
&cx__25fail_2Dlambda,
|
|
&cx__25residual_2A,
|
|
&cx__25residual_2B,
|
|
&cx__25residual_2D,
|
|
&cx__25residual_2Dappend,
|
|
&cx__25residual_2Dassoc,
|
|
&cx__25residual_2Datan,
|
|
&cx__25residual_2Dboolean_3D_3F,
|
|
&cx__25residual_2Dbytevector,
|
|
&cx__25residual_2Dchar_2Dci_3C_3D_3F,
|
|
&cx__25residual_2Dchar_2Dci_3C_3F,
|
|
&cx__25residual_2Dchar_2Dci_3D_3F,
|
|
&cx__25residual_2Dchar_2Dci_3E_3D_3F,
|
|
&cx__25residual_2Dchar_2Dci_3E_3F,
|
|
&cx__25residual_2Dchar_2Dready_3F,
|
|
&cx__25residual_2Dchar_3C_3D_3F,
|
|
&cx__25residual_2Dchar_3C_3F,
|
|
&cx__25residual_2Dchar_3D_3F,
|
|
&cx__25residual_2Dchar_3E_3D_3F,
|
|
&cx__25residual_2Dchar_3E_3F,
|
|
&cx__25residual_2Dcons_2A,
|
|
&cx__25residual_2Dcurrent_2Derror_2Dport,
|
|
&cx__25residual_2Dcurrent_2Dinput_2Dport,
|
|
&cx__25residual_2Dcurrent_2Doutput_2Dport,
|
|
&cx__25residual_2Ddisplay,
|
|
&cx__25residual_2Ddisplay_2Dfixnum,
|
|
&cx__25residual_2Ddisplay_2Dflonum,
|
|
&cx__25residual_2Ddisplay_2Dinput_2Dport,
|
|
&cx__25residual_2Ddisplay_2Doutput_2Dport,
|
|
&cx__25residual_2Ddisplay_2Dprocedure,
|
|
&cx__25residual_2Dexit,
|
|
&cx__25residual_2Dfl_2A,
|
|
&cx__25residual_2Dfl_2B,
|
|
&cx__25residual_2Dfl_2D,
|
|
&cx__25residual_2Dfl_2F,
|
|
&cx__25residual_2Dfl_3C_3D_3F,
|
|
&cx__25residual_2Dfl_3C_3F,
|
|
&cx__25residual_2Dfl_3D_3F,
|
|
&cx__25residual_2Dfl_3E_3D_3F,
|
|
&cx__25residual_2Dfl_3E_3F,
|
|
&cx__25residual_2Dflatan,
|
|
&cx__25residual_2Dflmax,
|
|
&cx__25residual_2Dflmin,
|
|
&cx__25residual_2Dflush_2Doutput_2Dport,
|
|
&cx__25residual_2Dfor_2Deach,
|
|
&cx__25residual_2Dfx_2A,
|
|
&cx__25residual_2Dfx_2B,
|
|
&cx__25residual_2Dfx_2D,
|
|
&cx__25residual_2Dfx_2F,
|
|
&cx__25residual_2Dfx_3C_3D_3F,
|
|
&cx__25residual_2Dfx_3C_3F,
|
|
&cx__25residual_2Dfx_3D_3F,
|
|
&cx__25residual_2Dfx_3E_3D_3F,
|
|
&cx__25residual_2Dfx_3E_3F,
|
|
&cx__25residual_2Dfxmax,
|
|
&cx__25residual_2Dfxmin,
|
|
&cx__25residual_2Dgcd,
|
|
&cx__25residual_2Dlcm,
|
|
&cx__25residual_2Dlist,
|
|
&cx__25residual_2Dlog,
|
|
&cx__25residual_2Dmake_2Dbytevector,
|
|
&cx__25residual_2Dmake_2Dcase_2Dlambda,
|
|
&cx__25residual_2Dmake_2Dlist,
|
|
&cx__25residual_2Dmake_2Dstring,
|
|
&cx__25residual_2Dmake_2Dvector,
|
|
&cx__25residual_2Dmap,
|
|
&cx__25residual_2Dmax,
|
|
&cx__25residual_2Dmember,
|
|
&cx__25residual_2Dmin,
|
|
&cx__25residual_2Dnewline,
|
|
&cx__25residual_2Dnumber_2D_3Estring,
|
|
&cx__25residual_2Dpeek_2Dchar,
|
|
&cx__25residual_2Dpeek_2Du8,
|
|
&cx__25residual_2Dread,
|
|
&cx__25residual_2Dread_2Dchar,
|
|
&cx__25residual_2Dread_2Dline,
|
|
&cx__25residual_2Dread_2Dsimple,
|
|
&cx__25residual_2Dread_2Du8,
|
|
&cx__25residual_2Drecord_3F,
|
|
&cx__25residual_2Dstring,
|
|
&cx__25residual_2Dstring_2D_3Enumber,
|
|
&cx__25residual_2Dstring_2Dappend,
|
|
&cx__25residual_2Dstring_2Dci_3C_3D_3F,
|
|
&cx__25residual_2Dstring_2Dci_3C_3F,
|
|
&cx__25residual_2Dstring_2Dci_3D_3F,
|
|
&cx__25residual_2Dstring_2Dci_3E_3D_3F,
|
|
&cx__25residual_2Dstring_2Dci_3E_3F,
|
|
&cx__25residual_2Dstring_3C_3D_3F,
|
|
&cx__25residual_2Dstring_3C_3F,
|
|
&cx__25residual_2Dstring_3D_3F,
|
|
&cx__25residual_2Dstring_3E_3D_3F,
|
|
&cx__25residual_2Dstring_3E_3F,
|
|
&cx__25residual_2Dsymbol_3D_3F,
|
|
&cx__25residual_2Du8_2Dready_3F,
|
|
&cx__25residual_2Dvalues,
|
|
&cx__25residual_2Dvector,
|
|
&cx__25residual_2Dwrite,
|
|
&cx__25residual_2Dwrite_2Dbytevector,
|
|
&cx__25residual_2Dwrite_2Dchar,
|
|
&cx__25residual_2Dwrite_2Dshared,
|
|
&cx__25residual_2Dwrite_2Dsimple,
|
|
&cx__25residual_2Dwrite_2Dstring,
|
|
&cx__25residual_2Dwrite_2Du8,
|
|
&cx__25residual_2F,
|
|
&cx__25residual_3C,
|
|
&cx__25residual_3C_3D,
|
|
&cx__25residual_3D,
|
|
&cx__25residual_3E,
|
|
&cx__25residual_3E_3D,
|
|
&cx__2Acurrent_2Ddynamic_2Dstate_2A,
|
|
&cx__2Acurrent_2Derror_2Dport_2A,
|
|
&cx__2Acurrent_2Dinput_2Dport_2A,
|
|
&cx__2Acurrent_2Doutput_2Dport_2A,
|
|
&cx__3Cerror_2Dobject_3E,
|
|
&cx_apply,
|
|
&cx_assertion_2Dviolation,
|
|
&cx_bytevector_2D_3Elist,
|
|
&cx_bytevector_2Dappend,
|
|
&cx_bytevector_2Dcopy,
|
|
&cx_bytevector_2Dcopy_21,
|
|
&cx_current_2Dexception_2Dhandler,
|
|
&cx_emergency_2Dexit,
|
|
&cx_error,
|
|
&cx_exit,
|
|
&cx_file_2Derror,
|
|
&cx_make_2Dparameter,
|
|
&cx_read_2Dbytevector,
|
|
&cx_read_2Dbytevector_21,
|
|
&cx_read_2Derror,
|
|
&cx_read_2Dstring,
|
|
&cx_read_2Dstring_21,
|
|
&cx_reset,
|
|
&cx_simple_2Derror,
|
|
&cx_string_2D_3Elist,
|
|
&cx_string_2D_3Eutf8,
|
|
&cx_string_2D_3Evector,
|
|
&cx_string_2Dcopy,
|
|
&cx_string_2Dcopy_21,
|
|
&cx_string_2Dfill_21,
|
|
&cx_string_2Dfor_2Deach,
|
|
&cx_string_2Dmap,
|
|
&cx_utf8_2D_3Estring,
|
|
&cx_vector_2D_3Elist,
|
|
&cx_vector_2D_3Estring,
|
|
&cx_vector_2Dappend,
|
|
&cx_vector_2Dcopy,
|
|
&cx_vector_2Dcopy_21,
|
|
&cx_vector_2Dfill_21,
|
|
&cx_vector_2Dfor_2Deach,
|
|
&cx_vector_2Dmap,
|
|
&cx__231117,
|
|
&cx__231121,
|
|
&cx__231125,
|
|
&cx__231129,
|
|
&cx__231144,
|
|
&cx__231148,
|
|
&cx__231151,
|
|
&cx__231155,
|
|
&cx__231377,
|
|
&cx__231381,
|
|
&cx__231392,
|
|
&cx__231416,
|
|
&cx__231455,
|
|
&cx__231472,
|
|
&cx__231474,
|
|
&cx__231517,
|
|
&cx__231519,
|
|
&cx__231520,
|
|
&cx__231522,
|
|
&cx__231523,
|
|
&cx__231525,
|
|
&cx__231534,
|
|
&cx__231550,
|
|
&cx__231558,
|
|
&cx__231562,
|
|
&cx__231574,
|
|
&cx__231580,
|
|
&cx__231594,
|
|
&cx__231602,
|
|
&cx__231608,
|
|
&cx__231611,
|
|
&cx__231626,
|
|
&cx__231627,
|
|
&cx__231630,
|
|
&cx__231637,
|
|
&cx__231642,
|
|
&cx__231647,
|
|
&cx__231649,
|
|
&cx__231653,
|
|
&cx__231665,
|
|
&cx__231671,
|
|
&cx__231674,
|
|
&cx__231687,
|
|
&cx__231692,
|
|
&cx__231697,
|
|
&cx__231704,
|
|
&cx__231755,
|
|
&cx__231758,
|
|
&cx__231770,
|
|
&cx__231791,
|
|
&cx__231805,
|
|
&cx__231818,
|
|
&cx__231848,
|
|
&cx__231874,
|
|
&cx__231875,
|
|
&cx__231933,
|
|
&cx__231994,
|
|
&cx__231997,
|
|
&cx__232000,
|
|
&cx__232056,
|
|
&cx__232060,
|
|
&cx__232130,
|
|
&cx__232184,
|
|
&cx__232206,
|
|
&cx__232275,
|
|
&cx__232287,
|
|
&cx__232291,
|
|
&cx__233223,
|
|
&cx__233240,
|
|
&cx__233977,
|
|
&cx__234288,
|
|
};
|
|
|
|
static cxroot_t root = {
|
|
sizeof(globv)/sizeof(obj *), globv, NULL
|
|
};
|
|
|
|
/* entry points */
|
|
static obj host(obj);
|
|
static obj cases[688] = {
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host, (obj)host, (obj)host,
|
|
(obj)host, (obj)host, (obj)host,
|
|
};
|
|
|
|
/* host procedure */
|
|
#define MAX_HOSTREGS 68
|
|
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__231117 = (hpushstr(0, newstring("r")));
|
|
cx__231121 = (hpushstr(0, newstring("cannot open input file")));
|
|
cx__231125 = (hpushstr(0, newstring("rb")));
|
|
cx__231129 = (hpushstr(0, newstring("cannot open binary input file")));
|
|
cx__231144 = (hpushstr(0, newstring("w")));
|
|
cx__231148 = (hpushstr(0, newstring("cannot open output file")));
|
|
cx__231151 = (hpushstr(0, newstring("wb")));
|
|
cx__231155 = (hpushstr(0, newstring("cannot open binary output file")));
|
|
cx__231377 = (hpushstr(0, newstring(": ")));
|
|
cx__231381 = (hpushstr(0, newstring(" in ")));
|
|
cx__231392 = (hpushstr(0, newstring("Error")));
|
|
cx__231416 = (hpushstr(0, newstring("Assertion violation")));
|
|
cx__231455 = (hpushstr(0, newstring("unexpected number/symbol char")));
|
|
cx__231472 = (hpushstr(0, newstring("unsupported number syntax (implementation restriction)")));
|
|
cx__231474 = (hpushstr(0, newstring(".")));
|
|
cx__231517 = (hpushstr(0, newstring("+inf.0")));
|
|
cx__231519 = (hpushstr(0, newstring("-inf.0")));
|
|
cx__231520 = (hpushstr(0, newstring("+nan.0")));
|
|
cx__231522 = (hpushstr(0, newstring("-nan.0")));
|
|
cx__231523 = (hpushstr(0, newstring("+i")));
|
|
cx__231525 = (hpushstr(0, newstring("-i")));
|
|
{ static char s[] = { 92, 120, 32, 101, 115, 99, 97, 112, 101, 32, 115, 101, 113, 117, 101, 110, 99, 101, 32, 105, 115, 32, 116, 111, 111, 32, 115, 104, 111, 114, 116, 0 };
|
|
cx__231534 = (hpushstr(0, newstring(s))); }
|
|
{ static char s[] = { 92, 120, 32, 101, 115, 99, 97, 112, 101, 32, 115, 101, 113, 117, 101, 110, 99, 101, 32, 105, 115, 32, 116, 111, 111, 32, 108, 111, 110, 103, 0 };
|
|
cx__231550 = (hpushstr(0, newstring(s))); }
|
|
{ static char s[] = { 117, 110, 101, 120, 112, 101, 99, 116, 101, 100, 32, 99, 104, 97, 114, 32, 105, 110, 32, 92, 120, 32, 101, 115, 99, 97, 112, 101, 32, 115, 101, 113, 117, 101, 110, 99, 101, 0 };
|
|
cx__231558 = (hpushstr(0, newstring(s))); }
|
|
cx__231562 = (hpushstr(0, newstring("end of file within a string")));
|
|
cx__231574 = (hpushstr(0, newstring("invalid char escape in")));
|
|
cx__231580 = (hpushstr(0, newstring("no newline in line ending escape")));
|
|
cx__231594 = (hpushstr(0, newstring("end of file within a")));
|
|
cx__231602 = (hpushstr(0, newstring("invalid byte inside bytevector --")));
|
|
cx__231608 = (hpushstr(0, newstring("error inside bytevector --")));
|
|
cx__231611 = (hpushstr(0, newstring("eof inside bytevector")));
|
|
cx__231626 = (hpushstr(0, newstring("error inside list --")));
|
|
cx__231627 = (hpushstr(0, newstring("dot in #(...)")));
|
|
cx__231630 = (hpushstr(0, newstring("randomness after form after dot")));
|
|
cx__231637 = (hpushstr(0, newstring("eof inside list -- unbalanced parentheses")));
|
|
cx__231642 = (hpushstr(0, newstring("missing car -- ( immediately followed by .")));
|
|
cx__231647 = (hpushstr(0, newstring("illegal character read")));
|
|
cx__231649 = (hpushstr(0, newstring("unknown # syntax")));
|
|
cx__231653 = (hpushstr(0, newstring("invalid terminator for #N notation")));
|
|
cx__231665 = (hpushstr(0, newstring("#n= has another label as target")));
|
|
cx__231671 = (hpushstr(0, newstring("duplicate #n= tag:")));
|
|
cx__231674 = (hpushstr(0, newstring("invalid #n= reference:")));
|
|
cx__231687 = (hpushstr(0, newstring("unknown #n# reference:")));
|
|
cx__231692 = (hpushstr(0, newstring("end of file within a #N notation")));
|
|
cx__231697 = (hpushstr(0, newstring("#N=/#N# notation is not allowed in this mode")));
|
|
{ static char s[] = { 117, 110, 107, 110, 111, 119, 110, 32, 35, 92, 32, 110, 97, 109, 101, 0 };
|
|
cx__231704 = (hpushstr(0, newstring(s))); }
|
|
{ static char s[] = { 101, 110, 100, 32, 111, 102, 32, 102, 105, 108, 101, 32, 97, 102, 116, 101, 114, 32, 35, 92, 0 };
|
|
cx__231755 = (hpushstr(0, newstring(s))); }
|
|
cx__231758 = (hpushstr(0, newstring("invalid bytevector syntax")));
|
|
cx__231770 = (hpushstr(0, newstring("end of file in #| comment")));
|
|
cx__231791 = (hpushstr(0, newstring("unexpected name after #")));
|
|
cx__231805 = (hpushstr(0, newstring("end of file after #")));
|
|
cx__231818 = (hpushstr(0, newstring("end of file within a |symbol|")));
|
|
cx__231848 = (hpushstr(0, newstring("end of file after ,")));
|
|
cx__231874 = (hpushstr(0, newstring("unexpected token:")));
|
|
cx__231875 = (hpushstr(0, newstring("unexpected end of file")));
|
|
{ static char s[] = { 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 33, 36, 37, 38, 42, 47, 58, 60, 61, 62, 63, 94, 95, 126, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 43, 45, 46, 64, 0 };
|
|
cx__231933 = (hpushstr(0, newstring(s))); }
|
|
{ static char s[] = { 34, 32, 46, 32, 34, 0 };
|
|
cx__231994 = (hpushstr(0, newstring(s))); }
|
|
cx__231997 = (hpushstr(0, newstring("right bracket")));
|
|
cx__232000 = (hpushstr(0, newstring("right parenthesis")));
|
|
cx__232056 = (hpushstr(0, newstring("cannot delete file:")));
|
|
cx__232060 = (hpushstr(0, newstring("cannot rename file:")));
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
*--hp = (mknull());
|
|
*--hp = (mksymbol(internsym("irritants")));
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[0] = (hendblk(3)); }
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
*--hp = r[0];
|
|
*--hp = (mksymbol(internsym("message")));
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[0] = (hendblk(3)); }
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
*--hp = r[0];
|
|
*--hp = (mksymbol(internsym("kind")));
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
cx__232130 = (hendblk(3)); }
|
|
cx__232184 = (hpushstr(0, newstring("unhandled exception")));
|
|
cx__232206 = (hpushstr(0, newstring("exception handler returned")));
|
|
cx__232275 = (hpushstr(0, newstring("nonzero imag part not supported")));
|
|
cx__232287 = (hpushstr(0, newstring("angle not supported")));
|
|
cx__232291 = obj_from_flonum(0, +3.141592653589793238462643e+0);
|
|
cx__233223 = obj_from_flonum(0, +0.0e+0);
|
|
cx__233240 = obj_from_flonum(0, +1.0e+0);
|
|
cx__233977 = (hpushstr(0, newstring("")));
|
|
cx__234288 = (hpushstr(0, newstring("unexpected number of arguments")));
|
|
{ static obj c[] = { obj_from_case(1) }; cx__25residual_2Dboolean_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(2) }; cx__25residual_2Dnot = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(3) }; cx__25residual_2Dvoid = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(4) }; cx__25residual_2Dvoid_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(5) }; cx__25residual_2Dfixnum_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(6) }; cx__25residual_2Dfixnum_2Dwidth = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(7) }; cx__25residual_2Dleast_2Dfixnum = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(8) }; cx__25residual_2Dgreatest_2Dfixnum = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(9) }; cx__25residual_2Dfxzero_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(10) }; cx__25residual_2Dfxpositive_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(11) }; cx__25residual_2Dfxnegative_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(12) }; cx__25residual_2Dfxodd_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(13) }; cx__25residual_2Dfxeven_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(14) }; cx__25residual_2Dfxquotient = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(15) }; cx__25residual_2Dfxremainder = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(16) }; cx__25residual_2Dfxmodquo = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(17) }; cx__25residual_2Dfxmodulo = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(18) }; cx__25residual_2Dfxeuq = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(19) }; cx__25residual_2Dfxeur = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(20) }; cx__25residual_2Dfxabs = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(21) }; cx__25residual_2Dfxgcd = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(22) }; cx__25residual_2Dfxexpt = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(23) }; cx__25residual_2Dfxsqrt = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(24) }; cx__25residual_2Dfxnot = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(25) }; cx__25residual_2Dfxand = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(26) }; cx__25residual_2Dfxior = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(27) }; cx__25residual_2Dfxxor = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(28) }; cx__25residual_2Dfxarithmetic_2Dshift_2Dleft = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(29) }; cx__25residual_2Dfxarithmetic_2Dshift_2Dright = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(30) }; cx__25residual_2Dflonum_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(31) }; cx__25residual_2Dfixnum_2D_3Eflonum = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(32) }; cx__25residual_2Dflonum_2D_3Efixnum = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(33) }; cx__25residual_2Dreal_2D_3Eflonum = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(34) }; cx__25residual_2Dreal_2D_3Efixnum = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(35) }; cx__25residual_2Dflinteger_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(36) }; cx__25residual_2Dflzero_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(37) }; cx__25residual_2Dflpositive_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(38) }; cx__25residual_2Dflnegative_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(39) }; cx__25residual_2Dflodd_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(40) }; cx__25residual_2Dfleven_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(41) }; cx__25residual_2Dflnan_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(42) }; cx__25residual_2Dflinfinite_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(43) }; cx__25residual_2Dflquotient = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(44) }; cx__25residual_2Dflremainder = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(45) }; cx__25residual_2Dflmodquo = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(46) }; cx__25residual_2Dflmodulo = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(47) }; cx__25residual_2Dflabs = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(48) }; cx__25residual_2Dflgcd = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(49) }; cx__25residual_2Dflfloor = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(50) }; cx__25residual_2Dflceiling = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(51) }; cx__25residual_2Dfltruncate = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(52) }; cx__25residual_2Dflround = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(53) }; cx__25residual_2Dflsqrt = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(54) }; cx__25residual_2Dflexp = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(55) }; cx__25residual_2Dfllog = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(56) }; cx__25residual_2Dfllog10 = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(57) }; cx__25residual_2Dflsin = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(58) }; cx__25residual_2Dflcos = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(59) }; cx__25residual_2Dfltan = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(60) }; cx__25residual_2Dflasin = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(61) }; cx__25residual_2Dflacos = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(62) }; cx__25residual_2Dflexpt = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(63) }; cx__25residual_2Dfxfl_2F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(64) }; cx__25residual_2Dreal_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(65) }; cx__25residual_2Dinteger_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(66) }; cx__25residual_2Dexact = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(67) }; cx__25residual_2Dinexact = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(68) }; cx__25residual_2Dzero_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(69) }; cx__25residual_2Dpositive_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(70) }; cx__25residual_2Dnegative_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(71) }; cx__25residual_2Deven_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(72) }; cx__25residual_2Dodd_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(73) }; cx__25residual_2Dnan_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(74) }; cx__25residual_2Dinfinite_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(75) }; cx__25residual_2Dfinite_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(76) }; cx__25residual_2Dabs = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(77) }; cx__25residual_2Dquotient = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(78) }; cx__25residual_2Dremainder = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(79) }; cx__25residual_2Dmodquo = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(80) }; cx__25residual_2Dmodulo = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(81) }; cx_lcm_2F2 = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(82) }; cx__25residual_2Dnumerator = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(83) }; cx__25residual_2Ddenominator = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(84) }; cx__25residual_2Drationalize = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(85) }; cx__25residual_2Dfloor = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(86) }; cx__25residual_2Dceiling = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(87) }; cx__25residual_2Dtruncate = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(88) }; cx__25residual_2Dround = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(89) }; cx__25residual_2Dsqrt = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(90) }; cx__25residual_2Dexp = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(91) }; cx__25residual_2Dsin = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(92) }; cx__25residual_2Dcos = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(93) }; cx__25residual_2Dtan = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(94) }; cx__25residual_2Dasin = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(95) }; cx__25residual_2Dacos = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(96) }; cx__25residual_2Dexpt = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(97) }; cx__25residual_2Dsquare = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(98) }; cx__25residual_2Dchar_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(99) }; cx__25residual_2Dchar_2Dalphabetic_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(100) }; cx__25residual_2Dchar_2Dnumeric_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(101) }; cx__25residual_2Dchar_2Dwhitespace_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(102) }; cx__25residual_2Dchar_2Dupper_2Dcase_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(103) }; cx__25residual_2Dchar_2Dlower_2Dcase_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(104) }; cx__25residual_2Dchar_2D_3Einteger = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(105) }; cx__25residual_2Dinteger_2D_3Echar = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(106) }; cx__25residual_2Dchar_2Dupcase = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(107) }; cx__25residual_2Dchar_2Ddowncase = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(108) }; cx__25residual_2Ddigit_2Dvalue = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(109) }; cx__25residual_2Dstring_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(110) }; cx__25residual_2Dstring_2Dlength = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(111) }; cx__25residual_2Dstring_2Dref = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(112) }; cx__25residual_2Dstring_2Dset_21 = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(113) }; cx__25residual_2Dstring_2Dupcase = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(114) }; cx__25residual_2Dstring_2Ddowncase = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(115) }; cx__25residual_2Dsubstring = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(116) }; cx__25residual_2D_25string_2Dappend = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(117) }; cx__25residual_2D_25string_2Dcopy = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(118) }; cx_substring_2Dcopy_21 = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(119) }; cx_substring_2Dfill_21 = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(120) }; cx__25residual_2D_25string_2Dfill_21 = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(121) }; cx__25residual_2Dstring_2Dposition = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(122) }; cx__25residual_2Dvector_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(123) }; cx__25residual_2D_25new_2Dvector = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(124) }; cx__25residual_2D_25make_2Dvector = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(125) }; cx__25residual_2Dvector_2Dlength = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(126) }; cx__25residual_2Dvector_2Dref = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(127) }; cx__25residual_2Dvector_2Dset_21 = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(128) }; cx_subvector_2Dcopy_21 = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(129) }; cx_subvector = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(130) }; cx_subvector_2Dfill_21 = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(131) }; cx__25residual_2Dbyte_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(132) }; cx__25residual_2Dbytevector_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(133) }; cx__25residual_2Dbytevector_2Dlength = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(134) }; cx__25residual_2Dbytevector_2Du8_2Dref = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(135) }; cx__25residual_2Dbytevector_2Du8_2Dset_21 = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(136) }; cx__25residual_2Dbytevector_3D_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(137) }; cx_subbytevector_2Dcopy_21 = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(138) }; cx__25residual_2Dsubbytevector = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(139) }; cx__25residual_2Dbox_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(140) }; cx__25residual_2Dbox = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(141) }; cx__25residual_2Dunbox = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(142) }; cx__25residual_2Dset_2Dbox_21 = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(143) }; cx__25residual_2Dnull_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(144) }; cx__25residual_2Dpair_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(145) }; cx__25residual_2Datom_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(146) }; cx__25residual_2Dlist_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(147) }; cx__25residual_2Dcons = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(148) }; cx__25residual_2Dcar = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(149) }; cx__25residual_2Dset_2Dcar_21 = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(150) }; cx__25residual_2Dcdr = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(151) }; cx__25residual_2Dset_2Dcdr_21 = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(152) }; cx__25residual_2Dcaar = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(153) }; cx__25residual_2Dcadr = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(154) }; cx__25residual_2Dcdar = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(155) }; cx__25residual_2Dcddr = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(156) }; cx__25residual_2Dcaaar = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(157) }; cx__25residual_2Dcaadr = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(158) }; cx__25residual_2Dcadar = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(159) }; cx__25residual_2Dcaddr = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(160) }; cx__25residual_2Dcdaar = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(161) }; cx__25residual_2Dcdadr = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(162) }; cx__25residual_2Dcddar = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(163) }; cx__25residual_2Dcdddr = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(164) }; cx__25residual_2Dcaaaar = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(165) }; cx__25residual_2Dcaaadr = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(166) }; cx__25residual_2Dcaadar = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(167) }; cx__25residual_2Dcaaddr = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(168) }; cx__25residual_2Dcadaar = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(169) }; cx__25residual_2Dcadadr = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(170) }; cx__25residual_2Dcaddar = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(171) }; cx__25residual_2Dcadddr = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(172) }; cx__25residual_2Dcdaaar = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(173) }; cx__25residual_2Dcdaadr = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(174) }; cx__25residual_2Dcdadar = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(175) }; cx__25residual_2Dcdaddr = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(176) }; cx__25residual_2Dcddaar = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(177) }; cx__25residual_2Dcddadr = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(178) }; cx__25residual_2Dcdddar = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(179) }; cx__25residual_2Dcddddr = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(180) }; cx__25make_2Dlist = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(181) }; cx__25residual_2Dlength = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(182) }; cx__25residual_2Dreverse = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(183) }; cx__25residual_2Dreverse_21 = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(184) }; cx__25append = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(185) }; cx_list_2Dcopy = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(187) }; cx__25residual_2Dlist_2Dref = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(188) }; cx__25residual_2Dlist_2Dtail = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(189) }; cx__25residual_2Dlist_2Dset_21 = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(190) }; cx__25residual_2Dlast_2Dpair = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(191) }; cx__25residual_2Dsymbol_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(192) }; cx__25residual_2Dmake_2Drecord = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(193) }; cx__25residual_2Drecord_2Dtype_2Ddescriptor = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(194) }; cx__25residual_2Drecord_2Dlength = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(195) }; cx__25residual_2Drecord_2Dref = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(196) }; cx__25residual_2Drecord_2Dset_21 = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(197) }; cx__25residual_2Dnew_2Drecord_2Dtype = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(198) }; cx__25residual_2Dsymbol_2D_3Estring = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(199) }; cx__25residual_2Dstring_2D_3Esymbol = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(200) }; cx_fixnum_2D_3Estring = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(201) }; cx_flonum_2D_3Estring = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(202) }; cx_string_2D_3Efixnum = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(203) }; cx_string_2D_3Eflonum = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(204) }; cx__25residual_2Dstring_2D_3Efixnum_2Dor_2Dflonum = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(205) }; cx_subvector_2D_3Elist = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(206) }; cx_list_2D_3Evector = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(207) }; cx_list_2D_3Estring = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(208) }; cx_substring_2D_3Elist = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(209) }; cx__25subvector_2Dstring_2Dcopy_21 = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(210) }; cx_subvector_2D_3Estring = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(211) }; cx__25substring_2Dvector_2Dcopy_21 = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(212) }; cx_substring_2D_3Evector = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(213) }; cx_list_2D_3Ebytevector = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(214) }; cx_subbytevector_2D_3Elist = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(215) }; cx__25residual_2Dprocedure_3F = (obj)c; }
|
|
{ /* define apply */
|
|
static obj c[] = { obj_from_objptr(appcases+0) };
|
|
cx_apply = obj_from_objptr(c); }
|
|
{ static obj c[] = { obj_from_case(216) }; cx__25residual_2Dmake_2Dimproper_2Dlambda = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(217) }; cx__25residual_2Dmake_2Dvoid_2Dcontinuation = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(218) }; cx__25residual_2Dmake_2Dargc_2Ddispatch_2Dlambda = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(219) }; cx__25residual_2Dargc_2Ddispatch_2Dlambda_3F = (obj)c; }
|
|
hreserve(hbsz(0+1), 0); /* 0 live regs */
|
|
*--hp = obj_from_case(220);
|
|
r[0] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 1); /* 1 live regs */
|
|
*--hp = obj_from_case(226);
|
|
r[1] = (hendblk(0+1));
|
|
{ /* make-case-lambda */
|
|
hreserve(hbsz(9+1), 2); /* 2 live regs */
|
|
*--hp = (cx__25fail_2Dlambda);
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[0];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = r[1];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+4);
|
|
cx_make_2Dparameter = (hendblk(9+1)); }
|
|
{ static obj c[] = { obj_from_case(230) }; cx_promise_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(231) }; cx_make_2Dpromise = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(232) }; cx_make_2Dlazy_2Dpromise = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(233) }; cx_force = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(235) }; cx__25residual_2Deof_2Dobject = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(236) }; cx__25residual_2Deof_2Dobject_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(237) }; cx__25residual_2Dopen_2Dfile_2A = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(238) }; cx__25residual_2Dinput_2Dport_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(239) }; cx__25residual_2Dport_2Dfold_2Dcase_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(240) }; cx__25residual_2Dset_2Dport_2Dfold_2Dcase_21 = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(241) }; cx_close_2Dinput_2Dport = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(242) }; cx__25residual_2Dinput_2Dport_2Dopen_3F = (obj)c; }
|
|
cx__2Acurrent_2Dinput_2Dport_2A = (mkiport_file(0, stdin));
|
|
{ static obj c[] = { obj_from_case(243) }; cx__25residual_2Dopen_2Dinput_2Dfile = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(244) }; cx__25residual_2Dopen_2Dbinary_2Dinput_2Dfile = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(245) }; cx__25residual_2Dopen_2Dinput_2Dstring = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(246) }; cx__25residual_2Dopen_2Dinput_2Dbytevector = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(247) }; cx__25residual_2Doutput_2Dport_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(248) }; cx_close_2Doutput_2Dport = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(249) }; cx__25residual_2Doutput_2Dport_2Dopen_3F = (obj)c; }
|
|
cx__2Acurrent_2Doutput_2Dport_2A = (mkoport_file(0, stdout));
|
|
cx__2Acurrent_2Derror_2Dport_2A = (mkoport_file(0, stderr));
|
|
{ static obj c[] = { obj_from_case(250) }; cx__25residual_2Dopen_2Doutput_2Dfile = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(251) }; cx__25residual_2Dopen_2Dbinary_2Doutput_2Dfile = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(252) }; cx__25residual_2Dopen_2Doutput_2Dstring = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(253) }; cx__25residual_2Dget_2Doutput_2Dstring = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(254) }; cx__25residual_2Dopen_2Doutput_2Dbytevector = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(255) }; cx__25residual_2Dget_2Doutput_2Dbytevector = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(256) }; cx__25residual_2Dport_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(257) }; cx_close_2Dport = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(258) }; cx_call_2Dwith_2Dinput_2Dfile = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(260) }; cx_call_2Dwith_2Doutput_2Dfile = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(262) }; cx_with_2Dinput_2Dfrom_2Dport = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(268) }; cx_with_2Doutput_2Dto_2Dport = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(274) }; cx_with_2Dinput_2Dfrom_2Dfile = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(276) }; cx_with_2Doutput_2Dto_2Dfile = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(278) }; cx__25read_2Dline = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(279) }; cx_read_2Dsubstring_21 = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(280) }; cx_read_2Dsubstring = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(281) }; cx_write_2Dsubstring = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(282) }; cx_read_2Dsubbytevector_21 = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(283) }; cx_read_2Dsubbytevector = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(284) }; cx_write_2Dsubbytevector = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(285) }; cx__25residual_2Dcircular_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(286) }; cx__25residual_2Deq_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(287) }; cx__25residual_2Deqv_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(288) }; cx__25residual_2Dequal_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(289) }; cx__25residual_2Dmemq = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(290) }; cx__25residual_2Dmemv = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(291) }; cx__25residual_2Dmeml = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(292) }; cx__25member = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(294) }; cx__25residual_2Dassq = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(295) }; cx__25residual_2Dassv = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(296) }; cx__25residual_2Dassl = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(297) }; cx__25assoc = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(299) }; cx_print_2Derror_2Dmessage = (obj)c; }
|
|
hreserve(hbsz(0+1), 0); /* 0 live regs */
|
|
*--hp = obj_from_case(301);
|
|
r[0] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
*--hp = r[0];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx_simple_2Derror = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 0); /* 0 live regs */
|
|
*--hp = obj_from_case(303);
|
|
r[0] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 1); /* 1 live regs */
|
|
*--hp = r[0];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx_assertion_2Dviolation = (hendblk(3)); }
|
|
{ static obj c[] = { obj_from_case(305) }; cx__25read = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(370) }; cx_file_2Dexists_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(371) }; cx_delete_2Dfile = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(372) }; cx_rename_2Dfile = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(373) }; cx__25residual_2Dcall_2Dwith_2Dvalues = (obj)c; }
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
*--hp = (mknull());
|
|
*--hp = obj_from_bool(0);
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
cx__2Acurrent_2Ddynamic_2Dstate_2A = (hendblk(3)); }
|
|
{ static obj c[] = { obj_from_case(375) }; cx_call_2Dwith_2Dcurrent_2Dcontinuation = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(378) }; cx_dynamic_2Dwind = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(383) }; cx_dynamic_2Dstate_2Dreroot_21 = (obj)c; }
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 0); /* 0 live regs */
|
|
*--hp = (cx__232130);
|
|
*--hp = (mksymbol(internsym("<error-object>")));
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
cx__3Cerror_2Dobject_3E = (hendblk(3)); }
|
|
{ static obj c[] = { obj_from_case(385) }; cx_error_2Dobject = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(386) }; cx_error_2Dobject_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(387) }; cx_error_2Dobject_2Dkind = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(388) }; cx_error_2Dobject_2Dmessage = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(389) }; cx_error_2Dobject_2Dirritants = (obj)c; }
|
|
hreserve(hbsz(0+1), 0); /* 0 live regs */
|
|
*--hp = obj_from_case(390);
|
|
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_error = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 0); /* 0 live regs */
|
|
*--hp = obj_from_case(392);
|
|
r[0] = (hendblk(0+1));
|
|
hreserve(hbsz(1), 1); /* 1 live regs */
|
|
*--hp = obj_from_void(0);
|
|
r[1] = (hendblk(1));
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(686);
|
|
r[2] = (hendblk(0+1));
|
|
hreserve(hbsz(1+1), 3); /* 3 live regs */
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(687);
|
|
r[3] = (hendblk(1+1));
|
|
{ /* make-case-lambda */
|
|
hreserve(hbsz(9+1), 4); /* 4 live regs */
|
|
*--hp = (cx__25fail_2Dlambda);
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = r[3];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+4);
|
|
r[2] = (hendblk(9+1)); }
|
|
(void)(objptr_from_obj(r[1])[0] = (r[2]));
|
|
r[1] = (objptr_from_obj(r[1])[0]);
|
|
r[2+0] = (cx_make_2Dparameter);
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = r[0];
|
|
r[2+2] = r[1];
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 1: /* %residual-boolean? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(is_bool_obj(r[1]));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 2: /* %residual-not k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(!bool_from_obj(r[1]));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 3: /* %residual-void k */
|
|
assert(rc == 2);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k */
|
|
r[1+0] = r[0];
|
|
pc = objptr_from_obj(r[1+0])[0];
|
|
r[1+1] = obj_from_ktrap();
|
|
r[1+2] = obj_from_void(0);
|
|
r += 1; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 4: /* %residual-void? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool((r[1]) == obj_from_void(0));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 5: /* %residual-fixnum? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(is_fixnum_obj(r[1]));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 6: /* %residual-fixnum-width k */
|
|
assert(rc == 2);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k */
|
|
r[1+0] = r[0];
|
|
pc = objptr_from_obj(r[1+0])[0];
|
|
r[1+1] = obj_from_ktrap();
|
|
r[1+2] = obj_from_fixnum(FIXNUM_BIT);
|
|
r += 1; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 7: /* %residual-least-fixnum k */
|
|
assert(rc == 2);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k */
|
|
r[1+0] = r[0];
|
|
pc = objptr_from_obj(r[1+0])[0];
|
|
r[1+1] = obj_from_ktrap();
|
|
r[1+2] = obj_from_fixnum(FIXNUM_MIN);
|
|
r += 1; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 8: /* %residual-greatest-fixnum k */
|
|
assert(rc == 2);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k */
|
|
r[1+0] = r[0];
|
|
pc = objptr_from_obj(r[1+0])[0];
|
|
r[1+1] = obj_from_ktrap();
|
|
r[1+2] = obj_from_fixnum(FIXNUM_MAX);
|
|
r += 1; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 9: /* %residual-fxzero? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(fixnum_from_obj(r[1]) == 0);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 10: /* %residual-fxpositive? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(fixnum_from_obj(r[1]) > 0);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 11: /* %residual-fxnegative? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(fixnum_from_obj(r[1]) < 0);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 12: /* %residual-fxodd? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool((fixnum_from_obj(r[1]) & 1) != 0);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 13: /* %residual-fxeven? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool((fixnum_from_obj(r[1]) & 1) == 0);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 14: /* %residual-fxquotient k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = obj_from_fixnum(fxquo(fixnum_from_obj(r[1]), fixnum_from_obj(r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 15: /* %residual-fxremainder k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = obj_from_fixnum(fxrem(fixnum_from_obj(r[1]), fixnum_from_obj(r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 16: /* %residual-fxmodquo k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = obj_from_fixnum(fxmqu(fixnum_from_obj(r[1]), fixnum_from_obj(r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 17: /* %residual-fxmodulo k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = obj_from_fixnum(fxmlo(fixnum_from_obj(r[1]), fixnum_from_obj(r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 18: /* %residual-fxeuq k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = obj_from_fixnum(fxeuq(fixnum_from_obj(r[1]), fixnum_from_obj(r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 19: /* %residual-fxeur k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = obj_from_fixnum(fxeur(fixnum_from_obj(r[1]), fixnum_from_obj(r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 20: /* %residual-fxabs k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_fixnum(fxabs(fixnum_from_obj(r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 21: /* %residual-fxgcd k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = obj_from_fixnum(fxgcd(fixnum_from_obj(r[1]), fixnum_from_obj(r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 22: /* %residual-fxexpt k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
r[3] = obj_from_fixnum(fxpow(fixnum_from_obj(r[1]), fixnum_from_obj(r[2])));
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 23: /* %residual-fxsqrt k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_fixnum(fxsqrt(fixnum_from_obj(r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 24: /* %residual-fxnot k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_fixnum(~fixnum_from_obj(r[1]));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 25: /* %residual-fxand k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = obj_from_fixnum(fixnum_from_obj(r[1]) & fixnum_from_obj(r[2]));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 26: /* %residual-fxior k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = obj_from_fixnum(fixnum_from_obj(r[1]) | fixnum_from_obj(r[2]));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 27: /* %residual-fxxor k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = obj_from_fixnum(fixnum_from_obj(r[1]) ^ fixnum_from_obj(r[2]));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 28: /* %residual-fxarithmetic-shift-left k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = obj_from_fixnum(fxasl(fixnum_from_obj(r[1]), fixnum_from_obj(r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 29: /* %residual-fxarithmetic-shift-right k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = obj_from_fixnum(fxasr(fixnum_from_obj(r[1]), fixnum_from_obj(r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 30: /* %residual-flonum? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(is_flonum_obj(r[1]));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 31: /* %residual-fixnum->flonum k n */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k n */
|
|
r[2] = obj_from_flonum(2, (flonum_t)fixnum_from_obj(r[1]));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 32: /* %residual-flonum->fixnum k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_fixnum(fxflo(flonum_from_obj(r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 33: /* %residual-real->flonum k n */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k n */
|
|
r[2] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, (flonum_t)fixnum_from_obj(r[1])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 34: /* %residual-real->fixnum k n */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k n */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (cxs__25residual_2Dreal_2D_3Efixnum((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 35: /* %residual-flinteger? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(flisint(flonum_from_obj(r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 36: /* %residual-flzero? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(flonum_from_obj(r[1]) == 0.0);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 37: /* %residual-flpositive? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(flonum_from_obj(r[1]) > 0.0);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 38: /* %residual-flnegative? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(flonum_from_obj(r[1]) < 0.0);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 39: /* %residual-flodd? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(flisint((flonum_from_obj(r[1]) + 1.0) / 2.0));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 40: /* %residual-fleven? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(flisint(flonum_from_obj(r[1]) / 2.0));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 41: /* %residual-flnan? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
{ /* flnan? */
|
|
flonum_t f = flonum_from_obj(r[1]);
|
|
r[2] = obj_from_bool(f != f); }
|
|
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 42: /* %residual-flinfinite? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
{ /* flinfinite? */
|
|
flonum_t f = flonum_from_obj(r[1]);
|
|
r[2] = obj_from_bool(f <= -HUGE_VAL || f >= HUGE_VAL); }
|
|
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 43: /* %residual-flquotient k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
r[3] = obj_from_flonum(3, flquo(flonum_from_obj(r[1]), flonum_from_obj(r[2])));
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 44: /* %residual-flremainder k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
r[3] = obj_from_flonum(3, flrem(flonum_from_obj(r[1]), flonum_from_obj(r[2])));
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 45: /* %residual-flmodquo k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
r[3] = obj_from_flonum(3, flmqu(flonum_from_obj(r[1]), flonum_from_obj(r[2])));
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 46: /* %residual-flmodulo k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
r[3] = obj_from_flonum(3, flmlo(flonum_from_obj(r[1]), flonum_from_obj(r[2])));
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 47: /* %residual-flabs k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = obj_from_flonum(2, fabs(flonum_from_obj(r[1])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 48: /* %residual-flgcd k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
r[3] = obj_from_flonum(3, flgcd(flonum_from_obj(r[1]), flonum_from_obj(r[2])));
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 49: /* %residual-flfloor k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = obj_from_flonum(2, floor(flonum_from_obj(r[1])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 50: /* %residual-flceiling k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = obj_from_flonum(2, ceil(flonum_from_obj(r[1])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 51: /* %residual-fltruncate k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
{ /* fltruncate */
|
|
flonum_t x = flonum_from_obj(r[1]);
|
|
double i; modf(x, &i);
|
|
r[2] = obj_from_flonum(2, i); }
|
|
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 52: /* %residual-flround k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = obj_from_flonum(2, flround(flonum_from_obj(r[1])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 53: /* %residual-flsqrt k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = obj_from_flonum(2, sqrt(flonum_from_obj(r[1])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 54: /* %residual-flexp k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = obj_from_flonum(2, exp(flonum_from_obj(r[1])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 55: /* %residual-fllog k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = obj_from_flonum(2, log(flonum_from_obj(r[1])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 56: /* %residual-fllog10 k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = obj_from_flonum(2, log10(flonum_from_obj(r[1])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 57: /* %residual-flsin k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = obj_from_flonum(2, sin(flonum_from_obj(r[1])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 58: /* %residual-flcos k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = obj_from_flonum(2, cos(flonum_from_obj(r[1])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 59: /* %residual-fltan k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = obj_from_flonum(2, tan(flonum_from_obj(r[1])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 60: /* %residual-flasin k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = obj_from_flonum(2, asin(flonum_from_obj(r[1])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 61: /* %residual-flacos k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = obj_from_flonum(2, acos(flonum_from_obj(r[1])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 62: /* %residual-flexpt k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
r[3] = obj_from_flonum(3, pow(flonum_from_obj(r[1]), flonum_from_obj(r[2])));
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 63: /* %residual-fxfl/ k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
{ /* fxfl/ */
|
|
fixnum_t x = fixnum_from_obj(r[1]), y = fixnum_from_obj(r[2]);
|
|
long i; double d;
|
|
if (0) r[3] = (0); /* to fool sfc unboxer */
|
|
else if (fxifdv(x, y, &i, &d)) r[3] = obj_from_fixnum(i);
|
|
else r[3] = obj_from_flonum(3, d); }
|
|
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 64: /* %residual-real? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (cxs__25residual_2Dreal_3F((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 65: /* %residual-integer? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (cxs__25residual_2Dinteger_3F((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 66: /* %residual-exact k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (cxs__25residual_2Dexact((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 67: /* %residual-inexact k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, (flonum_t)fixnum_from_obj(r[1])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 68: /* %residual-zero? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (cxs__25residual_2Dzero_3F((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 69: /* %residual-positive? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (cxs__25residual_2Dpositive_3F((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 70: /* %residual-negative? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (cxs__25residual_2Dnegative_3F((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 71: /* %residual-even? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (cxs__25residual_2Deven_3F((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 72: /* %residual-odd? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (cxs__25residual_2Dodd_3F((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 73: /* %residual-nan? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (cxs__25residual_2Dnan_3F((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 74: /* %residual-infinite? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (cxs__25residual_2Dinfinite_3F((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 75: /* %residual-finite? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (cxs__25residual_2Dfinite_3F((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 76: /* %residual-abs k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = ((is_fixnum_obj(r[1])) ? obj_from_fixnum(fxabs(fixnum_from_obj(r[1]))) : obj_from_flonum(2, fabs(flonum_from_obj(r[1]))));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 77: /* %residual-quotient k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
{ const fixnum_t v14764_x = fixnum_from_obj(r[1]);
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
r[3] = obj_from_fixnum(fxquo((v14764_x), fixnum_from_obj(r[2])));
|
|
} else {
|
|
{ const flonum_t v14765_tmp = ((flonum_t)(v14764_x));
|
|
r[3] = obj_from_flonum(3, flquo((v14765_tmp), flonum_from_obj(r[2]))); }
|
|
} }
|
|
} else {
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
{ const flonum_t v14763_tmp = ((flonum_t)fixnum_from_obj(r[2]));
|
|
r[3] = obj_from_flonum(3, flquo(flonum_from_obj(r[1]), (v14763_tmp))); }
|
|
} else {
|
|
r[3] = obj_from_flonum(3, flquo(flonum_from_obj(r[1]), flonum_from_obj(r[2])));
|
|
}
|
|
}
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 78: /* %residual-remainder k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
{ const fixnum_t v14761_x = fixnum_from_obj(r[1]);
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
r[3] = obj_from_fixnum(fxrem((v14761_x), fixnum_from_obj(r[2])));
|
|
} else {
|
|
{ const flonum_t v14762_tmp = ((flonum_t)(v14761_x));
|
|
r[3] = obj_from_flonum(3, flrem((v14762_tmp), flonum_from_obj(r[2]))); }
|
|
} }
|
|
} else {
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
{ const flonum_t v14760_tmp = ((flonum_t)fixnum_from_obj(r[2]));
|
|
r[3] = obj_from_flonum(3, flrem(flonum_from_obj(r[1]), (v14760_tmp))); }
|
|
} else {
|
|
r[3] = obj_from_flonum(3, flrem(flonum_from_obj(r[1]), flonum_from_obj(r[2])));
|
|
}
|
|
}
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 79: /* %residual-modquo k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
{ const fixnum_t v14758_x = fixnum_from_obj(r[1]);
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
r[3] = obj_from_fixnum(fxmqu((v14758_x), fixnum_from_obj(r[2])));
|
|
} else {
|
|
{ const flonum_t v14759_tmp = ((flonum_t)(v14758_x));
|
|
r[3] = obj_from_flonum(3, flmqu((v14759_tmp), flonum_from_obj(r[2]))); }
|
|
} }
|
|
} else {
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
{ const flonum_t v14757_tmp = ((flonum_t)fixnum_from_obj(r[2]));
|
|
r[3] = obj_from_flonum(3, flmqu(flonum_from_obj(r[1]), (v14757_tmp))); }
|
|
} else {
|
|
r[3] = obj_from_flonum(3, flmqu(flonum_from_obj(r[1]), flonum_from_obj(r[2])));
|
|
}
|
|
}
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 80: /* %residual-modulo k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
{ const fixnum_t v14755_x = fixnum_from_obj(r[1]);
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
r[3] = obj_from_fixnum(fxmlo((v14755_x), fixnum_from_obj(r[2])));
|
|
} else {
|
|
{ const flonum_t v14756_tmp = ((flonum_t)(v14755_x));
|
|
r[3] = obj_from_flonum(3, flmlo((v14756_tmp), flonum_from_obj(r[2]))); }
|
|
} }
|
|
} else {
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
{ const flonum_t v14754_tmp = ((flonum_t)fixnum_from_obj(r[2]));
|
|
r[3] = obj_from_flonum(3, flmlo(flonum_from_obj(r[1]), (v14754_tmp))); }
|
|
} else {
|
|
r[3] = obj_from_flonum(3, flmlo(flonum_from_obj(r[1]), flonum_from_obj(r[2])));
|
|
}
|
|
}
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 81: /* lcm/2 k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
gs_lcm_2F2: /* k x y */
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
{ const fixnum_t v14746_x = fixnum_from_obj(r[1]);
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
r[3] = obj_from_fixnum(fxgcd((v14746_x), fixnum_from_obj(r[2])));
|
|
} else {
|
|
{ const flonum_t v14747_tmp = ((flonum_t)(v14746_x));
|
|
r[3] = obj_from_flonum(3, flgcd((v14747_tmp), flonum_from_obj(r[2]))); }
|
|
} }
|
|
} else {
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
{ const flonum_t v14745_tmp = ((flonum_t)fixnum_from_obj(r[2]));
|
|
r[3] = obj_from_flonum(3, flgcd(flonum_from_obj(r[1]), (v14745_tmp))); }
|
|
} else {
|
|
r[3] = obj_from_flonum(3, flgcd(flonum_from_obj(r[1]), flonum_from_obj(r[2])));
|
|
}
|
|
}
|
|
if (((is_fixnum_obj(r[3])) ? (fixnum_from_obj(r[3]) == 0) : (flonum_from_obj(r[3]) == 0.0))) {
|
|
/* r[3] */
|
|
} else {
|
|
r[4] = ((is_fixnum_obj(r[1])) ? obj_from_fixnum(fxabs(fixnum_from_obj(r[1]))) : obj_from_flonum(4, fabs(flonum_from_obj(r[1]))));
|
|
if ((is_fixnum_obj(r[4]))) {
|
|
{ const fixnum_t v14749_a = fixnum_from_obj(r[4]);
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
r[4] = obj_from_fixnum(fxquo((v14749_a), fixnum_from_obj(r[3])));
|
|
} else {
|
|
{ const flonum_t v14750_tmp = ((flonum_t)(v14749_a));
|
|
r[4] = obj_from_flonum(5, flquo((v14750_tmp), flonum_from_obj(r[3]))); }
|
|
} }
|
|
} else {
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
{ const flonum_t v14748_tmp = ((flonum_t)fixnum_from_obj(r[3]));
|
|
r[4] = obj_from_flonum(5, flquo(flonum_from_obj(r[4]), (v14748_tmp))); }
|
|
} else {
|
|
r[4] = obj_from_flonum(5, flquo(flonum_from_obj(r[4]), flonum_from_obj(r[3])));
|
|
}
|
|
}
|
|
r[5] = ((is_fixnum_obj(r[2])) ? obj_from_fixnum(fxabs(fixnum_from_obj(r[2]))) : obj_from_flonum(5, fabs(flonum_from_obj(r[2]))));
|
|
if ((is_fixnum_obj(r[4]))) {
|
|
{ const fixnum_t v14752_a = fixnum_from_obj(r[4]);
|
|
if ((is_fixnum_obj(r[5]))) {
|
|
r[3] = obj_from_fixnum(fxmul((v14752_a), fixnum_from_obj(r[5])));
|
|
} else {
|
|
{ const flonum_t v14753_tmp = ((flonum_t)(v14752_a));
|
|
r[3] = obj_from_flonum(6, (v14753_tmp) * flonum_from_obj(r[5])); }
|
|
} }
|
|
} else {
|
|
if ((is_fixnum_obj(r[5]))) {
|
|
{ const flonum_t v14751_tmp = ((flonum_t)fixnum_from_obj(r[5]));
|
|
r[3] = obj_from_flonum(6, flonum_from_obj(r[4]) * (v14751_tmp)); }
|
|
} else {
|
|
r[3] = obj_from_flonum(6, flonum_from_obj(r[4]) * flonum_from_obj(r[5]));
|
|
}
|
|
}
|
|
}
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 82: /* %residual-numerator k n */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k n */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (cxs__25residual_2Dnumerator((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 83: /* %residual-denominator k n */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k n */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_fixnum(+1);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 84: /* %residual-rationalize k n d */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k n d */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = (cxs__25residual_2Drationalize((r[1]), (r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 85: /* %residual-floor k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = ((is_fixnum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, floor(flonum_from_obj(r[1]))));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 86: /* %residual-ceiling k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = ((is_fixnum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, ceil(flonum_from_obj(r[1]))));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 87: /* %residual-truncate k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
r[2] = r[1];
|
|
} else {
|
|
{ /* fltruncate */
|
|
flonum_t x = flonum_from_obj(r[1]);
|
|
double i; modf(x, &i);
|
|
r[2] = obj_from_flonum(2, i); }
|
|
}
|
|
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 88: /* %residual-round k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = ((is_fixnum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, flround(flonum_from_obj(r[1]))));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 89: /* %residual-sqrt k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, (flonum_t)fixnum_from_obj(r[1])));
|
|
r[2] = obj_from_flonum(3, sqrt(flonum_from_obj(r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 90: /* %residual-exp k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, (flonum_t)fixnum_from_obj(r[1])));
|
|
r[2] = obj_from_flonum(3, exp(flonum_from_obj(r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 91: /* %residual-sin k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, (flonum_t)fixnum_from_obj(r[1])));
|
|
r[2] = obj_from_flonum(3, sin(flonum_from_obj(r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 92: /* %residual-cos k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, (flonum_t)fixnum_from_obj(r[1])));
|
|
r[2] = obj_from_flonum(3, cos(flonum_from_obj(r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 93: /* %residual-tan k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, (flonum_t)fixnum_from_obj(r[1])));
|
|
r[2] = obj_from_flonum(3, tan(flonum_from_obj(r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 94: /* %residual-asin k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, (flonum_t)fixnum_from_obj(r[1])));
|
|
r[2] = obj_from_flonum(3, asin(flonum_from_obj(r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 95: /* %residual-acos k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(2, (flonum_t)fixnum_from_obj(r[1])));
|
|
r[2] = obj_from_flonum(3, acos(flonum_from_obj(r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 96: /* %residual-expt k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
if (((is_fixnum_obj(r[1])) && ((is_fixnum_obj(r[2])) && (fixnum_from_obj(r[2]) >= (+0))))) {
|
|
r[3] = obj_from_fixnum(fxpow(fixnum_from_obj(r[1]), fixnum_from_obj(r[2])));
|
|
} else {
|
|
r[3] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(3, (flonum_t)fixnum_from_obj(r[1])));
|
|
r[4] = ((is_flonum_obj(r[2])) ? (r[2]) : obj_from_flonum(4, (flonum_t)fixnum_from_obj(r[2])));
|
|
r[3] = obj_from_flonum(5, pow(flonum_from_obj(r[3]), flonum_from_obj(r[4])));
|
|
}
|
|
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 97: /* %residual-square k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
{ const fixnum_t v14744_x = fixnum_from_obj(r[1]);
|
|
r[2] = obj_from_fixnum(fxmul((v14744_x), (v14744_x))); }
|
|
} else {
|
|
{ const flonum_t v14743_tmp = ((flonum_t)fixnum_from_obj(r[1]));
|
|
r[2] = obj_from_flonum(2, (v14743_tmp) * flonum_from_obj(r[1])); }
|
|
}
|
|
} else {
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
{ const flonum_t v14742_tmp = ((flonum_t)fixnum_from_obj(r[1]));
|
|
r[2] = obj_from_flonum(2, flonum_from_obj(r[1]) * (v14742_tmp)); }
|
|
} else {
|
|
r[2] = obj_from_flonum(2, flonum_from_obj(r[1]) * flonum_from_obj(r[1]));
|
|
}
|
|
}
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 98: /* %residual-char? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(is_char_obj(r[1]));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 99: /* %residual-char-alphabetic? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isalpha(char_from_obj(r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 100: /* %residual-char-numeric? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isdigit(char_from_obj(r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 101: /* %residual-char-whitespace? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isspace(char_from_obj(r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 102: /* %residual-char-upper-case? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isupper(char_from_obj(r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 103: /* %residual-char-lower-case? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(islower(char_from_obj(r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 104: /* %residual-char->integer k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_fixnum((fixnum_t)char_from_obj(r[1]));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 105: /* %residual-integer->char k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_char((char_t)fixnum_from_obj(r[1]));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 106: /* %residual-char-upcase k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_char(toupper(char_from_obj(r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 107: /* %residual-char-downcase k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_char(tolower(char_from_obj(r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 108: /* %residual-digit-value k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (cxs__25residual_2Ddigit_2Dvalue((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 109: /* %residual-string? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isstring((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 110: /* %residual-string-length k s */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k s */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_fixnum(stringlen((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 111: /* %residual-string-ref k s k */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k s k */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = obj_from_char(*(unsigned char*)stringref((r[1]), fixnum_from_obj(r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 112: /* %residual-string-set! k s k c */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k s k c */
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = obj_from_void(*stringref((r[1]), fixnum_from_obj(r[2])) = char_from_obj(r[3]));
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 113: /* %residual-string-upcase k s */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k s */
|
|
{ /* string-upcase */
|
|
int *d = dupstring(stringdata((r[1]))); char *s;
|
|
for (s = sdatachars(d); *s; ++s) *s = toupper(*s);
|
|
r[2] = (hpushstr(2, d)); }
|
|
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 114: /* %residual-string-downcase k s */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k s */
|
|
{ /* string-downcase */
|
|
int *d = dupstring(stringdata((r[1]))); char *s;
|
|
for (s = sdatachars(d); *s; ++s) *s = tolower(*s);
|
|
r[2] = (hpushstr(2, d)); }
|
|
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 115: /* %residual-substring k s start end */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k s start end */
|
|
{ /* substring */
|
|
int *d = substring(stringdata((r[1])), fixnum_from_obj(r[2]), fixnum_from_obj(r[3]));
|
|
r[4] = (hpushstr(4, d)); }
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = r[4];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 116: /* %residual-%string-append k s1 s2 */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k s1 s2 */
|
|
{ /* string-append */
|
|
int *d = stringcat(stringdata((r[1])), stringdata((r[2])));
|
|
r[3] = (hpushstr(3, d)); }
|
|
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 117: /* %residual-%string-copy k s */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k s */
|
|
{ /* string-copy */
|
|
int *d = dupstring(stringdata((r[1])));
|
|
r[2] = (hpushstr(2, d)); }
|
|
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 118: /* substring-copy! k to at from start end */
|
|
assert(rc == 7);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k to at from start end */
|
|
r[6+0] = r[0];
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = obj_from_ktrap();
|
|
r[6+2] = (cxs_substring_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5])));
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 119: /* substring-fill! k str c start end */
|
|
assert(rc == 6);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k str c start end */
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = (cxs_substring_2Dfill_21((r[1]), (r[2]), (r[3]), (r[4])));
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 120: /* %residual-%string-fill! k s c */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k s c */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = obj_from_void(stringfill(stringdata((r[1])), char_from_obj(r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 121: /* %residual-string-position k c s */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k c s */
|
|
{ /* string-position */
|
|
char *s = stringchars((r[2])), *p = strchr(s, char_from_obj(r[1]));
|
|
if (p) r[3] = obj_from_fixnum(p-s); else r[3] = obj_from_bool(0); }
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 122: /* %residual-vector? k o */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k o */
|
|
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(isvector((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 123: /* %residual-%new-vector k n */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k n */
|
|
{ /* new-vector */
|
|
int c = fixnum_from_obj(r[1]);
|
|
hreserve(hbsz(c+1), 2); /* 2 live regs */
|
|
hp -= c; memset(hp, 0, c * sizeof(obj));
|
|
*--hp = obj_from_size(VECTOR_BTAG);
|
|
r[2] = (hendblk(c+1)); }
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 124: /* %residual-%make-vector k n i */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k n i */
|
|
{ /* make-vector */
|
|
obj o; int i = 0, c = fixnum_from_obj(r[1]);
|
|
hreserve(hbsz(c+1), 3); /* 3 live regs */
|
|
o = r[2]; /* gc-safe */
|
|
while (i++ < c) *--hp = o;
|
|
*--hp = obj_from_size(VECTOR_BTAG);
|
|
r[3] = (hendblk(c+1)); }
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 125: /* %residual-vector-length k v */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k v */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_fixnum(vectorlen((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 126: /* %residual-vector-ref k v i */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k v i */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = (vectorref((r[1]), fixnum_from_obj(r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 127: /* %residual-vector-set! k v i x */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k v i x */
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = obj_from_void(vectorref((r[1]), fixnum_from_obj(r[2])) = (r[3]));
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 128: /* subvector-copy! k to at from start end */
|
|
assert(rc == 7);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k to at from start end */
|
|
r[6+0] = r[0];
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = obj_from_ktrap();
|
|
r[6+2] = (cxs_subvector_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5])));
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 129: /* subvector k vec start end */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
gs_subvector: /* k vec start end */
|
|
{ /* new-vector */
|
|
int c = (fxsub(fixnum_from_obj(r[3]), fixnum_from_obj(r[2])));
|
|
hreserve(hbsz(c+1), 4); /* 4 live regs */
|
|
hp -= c; memset(hp, 0, c * sizeof(obj));
|
|
*--hp = obj_from_size(VECTOR_BTAG);
|
|
r[4] = (hendblk(c+1)); }
|
|
(void)(cxs_subvector_2Dcopy_21((r[4]), obj_from_fixnum(+0), (r[1]), (r[2]), (r[3])));
|
|
/* r[4] */
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = r[4];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 130: /* subvector-fill! k vec x start end */
|
|
assert(rc == 6);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec x start end */
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = (cxs_subvector_2Dfill_21((r[1]), (r[2]), (r[3]), (r[4])));
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 131: /* %residual-byte? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(is_byte_obj((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 132: /* %residual-bytevector? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isbytevector((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 133: /* %residual-bytevector-length k bv */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k bv */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_fixnum(bytevectorlen((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 134: /* %residual-bytevector-u8-ref k bv k */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k bv k */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = obj_from_fixnum(*bytevectorref((r[1]), fixnum_from_obj(r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 135: /* %residual-bytevector-u8-set! k bv k b */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k bv k b */
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = obj_from_void(*bytevectorref((r[1]), fixnum_from_obj(r[2])) = byte_from_fixnum(fixnum_from_obj(r[3])));
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 136: /* %residual-bytevector=? k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = obj_from_bool(bytevectoreq(bytevectordata((r[1])), bytevectordata((r[2]))));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 137: /* subbytevector-copy! k to at from start end */
|
|
assert(rc == 7);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k to at from start end */
|
|
r[6+0] = r[0];
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = obj_from_ktrap();
|
|
r[6+2] = (cxs_subbytevector_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5])));
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 138: /* %residual-subbytevector k bv start end */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k bv start end */
|
|
{ /* subbytevector */
|
|
int *d = subbytevector(bytevectordata((r[1])), fixnum_from_obj(r[2]), fixnum_from_obj(r[3]));
|
|
r[4] = (hpushu8v(4, d)); }
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = r[4];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 139: /* %residual-box? k o */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k o */
|
|
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(isbox((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 140: /* %residual-box k o */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k o */
|
|
{ /* box */
|
|
hreserve(hbsz(2), 2); /* 2 live regs */
|
|
*--hp = r[1];
|
|
*--hp = obj_from_size(BOX_BTAG);
|
|
r[2] = (hendblk(2)); }
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 141: /* %residual-unbox k b */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k b */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (boxref((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 142: /* %residual-set-box! k b o */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k b o */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = obj_from_void(boxref((r[1])) = (r[2]));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 143: /* %residual-null? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 144: /* %residual-pair? k o */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k o */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(ispair((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 145: /* %residual-atom? k o */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k o */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(!ispair((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 146: /* %residual-list? k o */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k o */
|
|
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(islist((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 147: /* %residual-cons k a d */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k a d */
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[3] = (hendblk(3)); }
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 148: /* %residual-car k p */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k p */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (car((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 149: /* %residual-set-car! k p a */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k p a */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = obj_from_void(car((r[1])) = (r[2]));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 150: /* %residual-cdr k p */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k p */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (cdr((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 151: /* %residual-set-cdr! k p d */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k p d */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = obj_from_void(cdr((r[1])) = (r[2]));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 152: /* %residual-caar k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (car((r[1])));
|
|
r[2] = (car((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 153: /* %residual-cadr k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (cdr((r[1])));
|
|
r[2] = (car((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 154: /* %residual-cdar k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (car((r[1])));
|
|
r[2] = (cdr((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 155: /* %residual-cddr k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (cdr((r[1])));
|
|
r[2] = (cdr((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 156: /* %residual-caaar k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (car((r[1])));
|
|
r[2] = (car((r[2])));
|
|
r[2] = (car((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 157: /* %residual-caadr k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (cdr((r[1])));
|
|
r[2] = (car((r[2])));
|
|
r[2] = (car((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 158: /* %residual-cadar k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (car((r[1])));
|
|
r[2] = (cdr((r[2])));
|
|
r[2] = (car((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 159: /* %residual-caddr k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (cdr((r[1])));
|
|
r[2] = (cdr((r[2])));
|
|
r[2] = (car((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 160: /* %residual-cdaar k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (car((r[1])));
|
|
r[2] = (car((r[2])));
|
|
r[2] = (cdr((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 161: /* %residual-cdadr k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (cdr((r[1])));
|
|
r[2] = (car((r[2])));
|
|
r[2] = (cdr((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 162: /* %residual-cddar k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (car((r[1])));
|
|
r[2] = (cdr((r[2])));
|
|
r[2] = (cdr((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 163: /* %residual-cdddr k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (cdr((r[1])));
|
|
r[2] = (cdr((r[2])));
|
|
r[2] = (cdr((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 164: /* %residual-caaaar k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (car((r[1])));
|
|
r[2] = (car((r[2])));
|
|
r[2] = (car((r[2])));
|
|
r[2] = (car((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 165: /* %residual-caaadr k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (cdr((r[1])));
|
|
r[2] = (car((r[2])));
|
|
r[2] = (car((r[2])));
|
|
r[2] = (car((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 166: /* %residual-caadar k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (car((r[1])));
|
|
r[2] = (cdr((r[2])));
|
|
r[2] = (car((r[2])));
|
|
r[2] = (car((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 167: /* %residual-caaddr k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (cdr((r[1])));
|
|
r[2] = (cdr((r[2])));
|
|
r[2] = (car((r[2])));
|
|
r[2] = (car((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 168: /* %residual-cadaar k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (car((r[1])));
|
|
r[2] = (car((r[2])));
|
|
r[2] = (cdr((r[2])));
|
|
r[2] = (car((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 169: /* %residual-cadadr k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (cdr((r[1])));
|
|
r[2] = (car((r[2])));
|
|
r[2] = (cdr((r[2])));
|
|
r[2] = (car((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 170: /* %residual-caddar k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (car((r[1])));
|
|
r[2] = (cdr((r[2])));
|
|
r[2] = (cdr((r[2])));
|
|
r[2] = (car((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 171: /* %residual-cadddr k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (cdr((r[1])));
|
|
r[2] = (cdr((r[2])));
|
|
r[2] = (cdr((r[2])));
|
|
r[2] = (car((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 172: /* %residual-cdaaar k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (car((r[1])));
|
|
r[2] = (car((r[2])));
|
|
r[2] = (car((r[2])));
|
|
r[2] = (cdr((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 173: /* %residual-cdaadr k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (cdr((r[1])));
|
|
r[2] = (car((r[2])));
|
|
r[2] = (car((r[2])));
|
|
r[2] = (cdr((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 174: /* %residual-cdadar k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (car((r[1])));
|
|
r[2] = (cdr((r[2])));
|
|
r[2] = (car((r[2])));
|
|
r[2] = (cdr((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 175: /* %residual-cdaddr k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (cdr((r[1])));
|
|
r[2] = (cdr((r[2])));
|
|
r[2] = (car((r[2])));
|
|
r[2] = (cdr((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 176: /* %residual-cddaar k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (car((r[1])));
|
|
r[2] = (car((r[2])));
|
|
r[2] = (cdr((r[2])));
|
|
r[2] = (cdr((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 177: /* %residual-cddadr k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (cdr((r[1])));
|
|
r[2] = (car((r[2])));
|
|
r[2] = (cdr((r[2])));
|
|
r[2] = (cdr((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 178: /* %residual-cdddar k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (car((r[1])));
|
|
r[2] = (cdr((r[2])));
|
|
r[2] = (cdr((r[2])));
|
|
r[2] = (cdr((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 179: /* %residual-cddddr k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = (cdr((r[1])));
|
|
r[2] = (cdr((r[2])));
|
|
r[2] = (cdr((r[2])));
|
|
r[2] = (cdr((r[2])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 180: /* %make-list k n i */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
gs__25make_2Dlist: /* k n i */
|
|
r[3+0] = r[0];
|
|
r[3+1] = r[1];
|
|
r[3+2] = (mknull());
|
|
r[3+3] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_loop;
|
|
|
|
s_loop: /* k n l i */
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
r[4] = obj_from_bool(fixnum_from_obj(r[1]) <= (+0));
|
|
} else {
|
|
{ const flonum_t v14741_tmp = ((flonum_t)(+0));
|
|
r[4] = obj_from_bool(flonum_from_obj(r[1]) <= (v14741_tmp)); }
|
|
}
|
|
if (bool_from_obj(r[4])) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
/* r[2] */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
r[4] = obj_from_fixnum(fxsub(fixnum_from_obj(r[1]), (+1)));
|
|
} else {
|
|
{ const flonum_t v14740_tmp = ((flonum_t)(+1));
|
|
r[4] = obj_from_flonum(4, flonum_from_obj(r[1]) - (v14740_tmp)); }
|
|
}
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
*--hp = r[2];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[5] = (hendblk(3)); }
|
|
/* r[0] */
|
|
r[1] = r[4];
|
|
r[2] = r[5];
|
|
/* r[3] */
|
|
goto s_loop;
|
|
}
|
|
|
|
case 181: /* %residual-length k l */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k l */
|
|
{ /* length */
|
|
int n; obj l = r[1];
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
r[2] = obj_from_fixnum(n); }
|
|
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 182: /* %residual-reverse k l */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k l */
|
|
{ fixnum_t v14739_tmp;
|
|
{ /* length */
|
|
int n; obj l = r[1];
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
v14739_tmp = (n); }
|
|
{ /* reverse */
|
|
obj l, o = mknull(); int c = (v14739_tmp);
|
|
hreserve(hbsz(3)*c, 2); /* 2 live regs */
|
|
l = r[1]; /* gc-safe */
|
|
for (; l != mknull(); l = cdr(l)) { *--hp = o; *--hp = car(l);
|
|
*--hp = obj_from_size(PAIR_BTAG); o = hendblk(3); }
|
|
r[2] = (o); } }
|
|
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 183: /* %residual-reverse! k l */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k l */
|
|
{ /* reverse! */
|
|
obj t, v = mknull(), l = r[1];
|
|
while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
|
|
r[2] = (v); }
|
|
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 184: /* %append k l o */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k l o */
|
|
{ fixnum_t v14738_tmp;
|
|
{ /* length */
|
|
int n; obj l = r[1];
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
v14738_tmp = (n); }
|
|
{ /* append */
|
|
obj t, l, o, *p, *d; int c = (v14738_tmp);
|
|
hreserve(hbsz(3)*c, 3); /* 3 live regs */
|
|
l = r[1]; t = r[2]; /* gc-safe */
|
|
o = t; p = &o;
|
|
for (; l != mknull(); l = cdr(l)) {
|
|
*--hp = t; d = hp; *--hp = car(l);
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
*p = hendblk(3); p = d; }
|
|
r[3] = (o); } }
|
|
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 185: /* list-copy k obj */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
gs_list_2Dcopy: /* k obj */
|
|
if ((ispair((r[1])))) {
|
|
hreserve(hbsz(2+1), 2); /* 2 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(186);
|
|
r[2] = (hendblk(2+1));
|
|
r[0] = r[2];
|
|
r[1] = (cdr((r[1])));
|
|
goto gs_list_2Dcopy;
|
|
} else {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = r[1];
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
|
|
case 186: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r k obj */
|
|
{ /* 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 187: /* %residual-list-ref k l n */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k l n */
|
|
{ /* list-ref */
|
|
obj l = r[1]; int c = fixnum_from_obj(r[2]);
|
|
while (c-- > 0) l = cdr(l);
|
|
r[3] = (car(l)); }
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 188: /* %residual-list-tail k l n */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k l n */
|
|
{ /* list-tail */
|
|
obj l = r[1]; int c = fixnum_from_obj(r[2]);
|
|
while (c-- > 0) l = cdr(l);
|
|
r[3] = (l); }
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 189: /* %residual-list-set! k l n obj */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k l n obj */
|
|
{ /* list-tail */
|
|
obj l = (cx__25residual_2Dlist); int c = fixnum_from_obj(r[2]);
|
|
while (c-- > 0) l = cdr(l);
|
|
r[4] = (l); }
|
|
r[4] = obj_from_void(car((r[4])) = (r[3]));
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = r[4];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 190: /* %residual-last-pair k l */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k l */
|
|
{ /* last-pair */
|
|
obj l = (r[1]), p;
|
|
for (p = cdr(l); ispair(p); p = cdr(p)) l = p;
|
|
r[2] = (l); }
|
|
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 191: /* %residual-symbol? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(issymbol((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 192: /* %residual-make-record k rtd n */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k rtd n */
|
|
{ /* make-record */
|
|
int c = fixnum_from_obj(r[2]);
|
|
hreserve(hbsz(c+1), 3); /* 3 live regs */
|
|
hp -= c; memset(hp, 0, c * sizeof(obj));
|
|
*--hp = r[1]; assert(isobjptr(*hp));
|
|
r[3] = (hendblk(c+1)); }
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 193: /* %residual-record-type-descriptor k r */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k r */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (recordrtd((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 194: /* %residual-record-length k r */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k r */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_fixnum(recordlen((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 195: /* %residual-record-ref k r i */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k r i */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = (recordref((r[1]), fixnum_from_obj(r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 196: /* %residual-record-set! k r i x */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k r i x */
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = obj_from_void(recordref((r[1]), fixnum_from_obj(r[2])) = (r[3]));
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 197: /* %residual-new-record-type k name fields */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k name fields */
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[3] = (hendblk(3)); }
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 198: /* %residual-symbol->string k s */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k s */
|
|
r[2] = (hpushstr(2, newstring(symbolname(getsymbol((r[1]))))));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 199: /* %residual-string->symbol k s */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k s */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (mksymbol(internsym(stringchars((r[1])))));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 200: /* fixnum->string k n r */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k n r */
|
|
{ /* fixnum->string */
|
|
char buf[35], *s = buf + sizeof(buf) - 1;
|
|
int neg = 0;
|
|
long num = fixnum_from_obj(r[1]);
|
|
long radix = fixnum_from_obj(r[2]);
|
|
if (num < 0) { neg = 1; num = -num; }
|
|
*s = 0;
|
|
do { int d = num % radix; *--s = d < 10 ? d + '0' : d - 10 + 'a'; }
|
|
while (num /= radix);
|
|
if (neg) *--s = '-';
|
|
r[3] = (hpushstr(3, newstring(s))); }
|
|
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 201: /* flonum->string k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
{ /* flonum->string */
|
|
char buf[30], *s; double d = flonum_from_obj(r[1]); sprintf(buf, "%.15g", d);
|
|
for (s = buf; *s != 0; s++) if (strchr(".eE", *s)) break;
|
|
if (d != d) strcpy(buf, "+nan.0"); else if (d <= -HUGE_VAL) strcpy(buf, "-inf.0");
|
|
else if (d >= HUGE_VAL) strcpy(buf, "+inf.0"); else if (*s == 'E') *s = 'e';
|
|
else if (*s == 0) { *s++ = '.'; *s++ = '0'; *s = 0; }
|
|
r[2] = (hpushstr(2, newstring(buf))); }
|
|
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 202: /* string->fixnum k s r */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k s r */
|
|
{ /* string->fixnum */
|
|
char *e, *s = stringchars((r[1]));
|
|
int radix = fixnum_from_obj(r[2]); long l;
|
|
if (s[0] == '#' && (s[1] == 'b' || s[1] == 'B')) s += 2, radix = 2;
|
|
else if (s[0] == '#' && (s[1] == 'o' || s[1] == 'O')) s += 2, radix = 8;
|
|
else if (s[0] == '#' && (s[1] == 'd' || s[1] == 'D')) s += 2, radix = 10;
|
|
else if (s[0] == '#' && (s[1] == 'x' || s[1] == 'X')) s += 2, radix = 16;
|
|
l = (errno = 0, strtol(s, &e, radix));
|
|
if (errno || l < FIXNUM_MIN || l > FIXNUM_MAX || e == s || *e) r[3] = obj_from_bool(0);
|
|
else r[3] = obj_from_fixnum(l); }
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 203: /* string->flonum k s */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k s */
|
|
{ /* string->flonum */
|
|
char *e = "", *s = stringchars((r[1])); double d; errno = 0;
|
|
if (*s != '+' && *s != '-') d = strtod(s, &e);
|
|
else if (strcmp_ci(s+1, "inf.0") == 0) d = (*s == '-' ? -HUGE_VAL : HUGE_VAL);
|
|
else if (strcmp_ci(s+1, "nan.0") == 0) d = HUGE_VAL - HUGE_VAL;
|
|
else d = strtod(s, &e);
|
|
if (errno || e == s || *e) r[2] = obj_from_bool(0);
|
|
else r[2] = obj_from_flonum(2, d); }
|
|
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 204: /* %residual-string->fixnum-or-flonum k s r */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k s r */
|
|
{ /* string->fixnum-or-flonum */
|
|
char *s = stringchars((r[1]));
|
|
int radix = fixnum_from_obj(r[2]); long l; double d;
|
|
if (0) r[3] = (0); /* to fool sfc unboxer */
|
|
switch (strtofxfl(s, radix, &l, &d)) {
|
|
case 'e': r[3] = obj_from_fixnum(l); break;
|
|
case 'i': r[3] = obj_from_flonum(3, d); break;
|
|
default : r[3] = obj_from_bool(0); break;
|
|
} }
|
|
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 205: /* subvector->list k vec start end */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
gs_subvector_2D_3Elist: /* k vec start end */
|
|
r[4+0] = r[0];
|
|
r[4+1] = obj_from_fixnum(fxsub(fixnum_from_obj(r[3]), (+1)));
|
|
r[4+2] = (mknull());
|
|
r[4+3] = r[1];
|
|
r[4+4] = r[2];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_loop_v13242;
|
|
|
|
s_loop_v13242: /* k i l vec start */
|
|
{ const fixnum_t v14737_i = fixnum_from_obj(r[1]);
|
|
if (((v14737_i) < fixnum_from_obj(r[4]))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
/* r[2] */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[5] = (vectorref((r[3]), (v14737_i)));
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
*--hp = r[2];
|
|
*--hp = r[5];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[5] = (hendblk(3)); }
|
|
/* r[0] */
|
|
r[1] = obj_from_fixnum(fxsub((v14737_i), (+1)));
|
|
r[2] = r[5];
|
|
/* r[3] */
|
|
/* r[4] */
|
|
goto s_loop_v13242;
|
|
} }
|
|
|
|
case 206: /* list->vector k l */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k l */
|
|
{ fixnum_t v14736_tmp;
|
|
{ /* length */
|
|
int n; obj l = r[1];
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
v14736_tmp = (n); }
|
|
{ /* list->vector */
|
|
obj l; int i, c = (v14736_tmp);
|
|
hreserve(hbsz(c+1), 2); /* 2 live regs */
|
|
l = r[1]; /* gc-safe */
|
|
for (i = 0; i < c; ++i, l = cdr(l)) hp[i-c] = car(l);
|
|
hp -= c; *--hp = obj_from_size(VECTOR_BTAG);
|
|
r[2] = (hendblk(c+1)); } }
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 207: /* list->string k l */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k l */
|
|
{ fixnum_t v14735_tmp;
|
|
{ /* length */
|
|
int n; obj l = r[1];
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
v14735_tmp = (n); }
|
|
{ /* list->string */
|
|
int i, c = (v14735_tmp);
|
|
obj o = hpushstr(2, allocstring(c, ' ')); /* 2 live regs */
|
|
obj l = r[1]; /* gc-safe */
|
|
unsigned char *s = (unsigned char *)stringchars(o);
|
|
for (i = 0; i < c; ++i, l = cdr(l)) s[i] = (unsigned char)char_from_obj(car(l));
|
|
r[2] = (o); } }
|
|
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 208: /* substring->list k str start end */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
gs_substring_2D_3Elist: /* k str start end */
|
|
r[4+0] = r[0];
|
|
r[4+1] = obj_from_fixnum(fxsub(fixnum_from_obj(r[3]), (+1)));
|
|
r[4+2] = (mknull());
|
|
r[4+3] = r[1];
|
|
r[4+4] = r[2];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_loop_v13213;
|
|
|
|
s_loop_v13213: /* k i l str start */
|
|
{ const fixnum_t v14734_i = fixnum_from_obj(r[1]);
|
|
if (((v14734_i) < fixnum_from_obj(r[4]))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
/* r[2] */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[5] = obj_from_char(*(unsigned char*)stringref((r[3]), (v14734_i)));
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
*--hp = r[2];
|
|
*--hp = r[5];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[5] = (hendblk(3)); }
|
|
/* r[0] */
|
|
r[1] = obj_from_fixnum(fxsub((v14734_i), (+1)));
|
|
r[2] = r[5];
|
|
/* r[3] */
|
|
/* r[4] */
|
|
goto s_loop_v13213;
|
|
} }
|
|
|
|
case 209: /* %subvector-string-copy! k to at from start end */
|
|
assert(rc == 7);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k to at from start end */
|
|
r[6+0] = r[0];
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = obj_from_ktrap();
|
|
r[6+2] = (cxs__25subvector_2Dstring_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5])));
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 210: /* subvector->string k vec start end */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
gs_subvector_2D_3Estring: /* k vec start end */
|
|
r[4] = (hpushstr(4, allocstring((fxsub(fixnum_from_obj(r[3]), fixnum_from_obj(r[2]))), '?')));
|
|
r[4] = (cxs__25subvector_2Dstring_2Dcopy_21((r[4]), obj_from_fixnum(+0), (r[1]), (r[2]), (r[3])));
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = r[4];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 211: /* %substring-vector-copy! k to at from start end */
|
|
assert(rc == 7);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k to at from start end */
|
|
r[6+0] = r[0];
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = obj_from_ktrap();
|
|
r[6+2] = (cxs__25substring_2Dvector_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5])));
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 212: /* substring->vector k str start end */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k str start end */
|
|
{ /* new-vector */
|
|
int c = (fxsub(fixnum_from_obj(r[3]), fixnum_from_obj(r[2])));
|
|
hreserve(hbsz(c+1), 4); /* 4 live regs */
|
|
hp -= c; memset(hp, 0, c * sizeof(obj));
|
|
*--hp = obj_from_size(VECTOR_BTAG);
|
|
r[4] = (hendblk(c+1)); }
|
|
r[4] = (cxs__25substring_2Dvector_2Dcopy_21((r[4]), obj_from_fixnum(+0), (r[1]), (r[2]), (r[3])));
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = r[4];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 213: /* list->bytevector k l */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k l */
|
|
{ fixnum_t v14733_tmp;
|
|
{ /* length */
|
|
int n; obj l = r[1];
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
v14733_tmp = (n); }
|
|
{ /* list->bytevector */
|
|
int i, c = (v14733_tmp);
|
|
obj o = hpushu8v(2, allocbytevector(c)); /* 2 live regs */
|
|
obj l = r[1]; /* gc-safe */
|
|
unsigned char *s = bytevectorbytes(o);
|
|
for (i = 0; i < c; ++i, l = cdr(l)) s[i] = byte_from_obj(car(l));
|
|
r[2] = (o); } }
|
|
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 214: /* subbytevector->list k vec start end */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
gs_subbytevector_2D_3Elist: /* k vec start end */
|
|
r[4+0] = r[0];
|
|
r[4+1] = obj_from_fixnum(fxsub(fixnum_from_obj(r[3]), (+1)));
|
|
r[4+2] = (mknull());
|
|
r[4+3] = r[1];
|
|
r[4+4] = r[2];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_loop_v13142;
|
|
|
|
s_loop_v13142: /* k i l vec start */
|
|
{ const fixnum_t v14732_i = fixnum_from_obj(r[1]);
|
|
if (((v14732_i) < fixnum_from_obj(r[4]))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
/* r[2] */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[5] = obj_from_fixnum(*bytevectorref((r[3]), (v14732_i)));
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
*--hp = r[2];
|
|
*--hp = r[5];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[5] = (hendblk(3)); }
|
|
/* r[0] */
|
|
r[1] = obj_from_fixnum(fxsub((v14732_i), (+1)));
|
|
r[2] = r[5];
|
|
/* r[3] */
|
|
/* r[4] */
|
|
goto s_loop_v13142;
|
|
} }
|
|
|
|
case 215: /* %residual-procedure? k o */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k o */
|
|
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(isprocedure((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 216: /* %residual-make-improper-lambda k n lam */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k n lam */
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
r[3] = (hendblk(3)); }
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 217: /* %residual-make-void-continuation k k */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k k */
|
|
{ /* make-void-continuation */
|
|
hreserve(hbsz(2), 2); /* 2 live regs */
|
|
*--hp = r[1];
|
|
*--hp = obj_from_objptr(appcases+2);
|
|
r[2] = (hendblk(2)); }
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 218: /* %residual-make-argc-dispatch-lambda k pv */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k pv */
|
|
{ /* make-argc-dispatch-lambda */
|
|
hreserve(hbsz(2), 2); /* 2 live regs */
|
|
*--hp = r[1];
|
|
*--hp = obj_from_objptr(appcases+3);
|
|
r[2] = (hendblk(2)); }
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 219: /* %residual-argc-dispatch-lambda? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
{ /* argc-dispatch-lambda? */
|
|
obj x = r[1];
|
|
r[2] = obj_from_bool(isprocedure(x) && *procedureref(x, 0) == obj_from_objptr(appcases+3)); }
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 220: /* clo k init converter */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k init converter */
|
|
hreserve(hbsz(2+1), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(221);
|
|
r[3] = (hendblk(2+1));
|
|
r[4+0] = r[2];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = r[3];
|
|
r[4+2] = r[1];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 221: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r k converter */
|
|
hreserve(hbsz(1), 4); /* 4 live regs */
|
|
*--hp = r[1];
|
|
r[4] = (hendblk(1));
|
|
hreserve(hbsz(2+1), 5); /* 5 live regs */
|
|
*--hp = r[4];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(222);
|
|
r[5] = (hendblk(2+1));
|
|
hreserve(hbsz(2+1), 6); /* 6 live regs */
|
|
*--hp = r[4];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(223);
|
|
r[6] = (hendblk(2+1));
|
|
hreserve(hbsz(1+1), 7); /* 7 live regs */
|
|
*--hp = r[4];
|
|
*--hp = obj_from_case(225);
|
|
r[7] = (hendblk(1+1));
|
|
{ /* make-case-lambda */
|
|
hreserve(hbsz(12+1), 8); /* 8 live regs */
|
|
*--hp = (cx__25fail_2Dlambda);
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[5];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = r[6];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = r[7];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+4);
|
|
r[4] = (hendblk(12+1)); }
|
|
r[5+0] = r[2];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = r[4];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 222: /* clo k x s */
|
|
assert(rc == 4);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+3] = p[1];
|
|
r[1+4] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x s converter value */
|
|
if (bool_from_obj(r[2])) {
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = (objptr_from_obj(r[4])[0] = (r[1]));
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[5+0] = r[3];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = r[0];
|
|
r[5+2] = r[1];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
|
|
case 223: /* clo k x */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x converter value */
|
|
hreserve(hbsz(2+1), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(224);
|
|
r[4] = (hendblk(2+1));
|
|
r[5+0] = r[2];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = r[4];
|
|
r[5+2] = r[1];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 224: /* clo 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 value */
|
|
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 225: /* clo k */
|
|
assert(rc == 2);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+1] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k value */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (objptr_from_obj(r[1])[0]);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 226: /* clo k value */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k value */
|
|
hreserve(hbsz(1), 2); /* 2 live regs */
|
|
*--hp = r[1];
|
|
r[2] = (hendblk(1));
|
|
hreserve(hbsz(1+1), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(227);
|
|
r[3] = (hendblk(1+1));
|
|
hreserve(hbsz(1+1), 4); /* 4 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(228);
|
|
r[4] = (hendblk(1+1));
|
|
hreserve(hbsz(1+1), 5); /* 5 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(229);
|
|
r[5] = (hendblk(1+1));
|
|
{ /* make-case-lambda */
|
|
hreserve(hbsz(12+1), 6); /* 6 live regs */
|
|
*--hp = (cx__25fail_2Dlambda);
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[3];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = r[4];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = r[5];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+4);
|
|
r[2] = (hendblk(12+1)); }
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 227: /* clo k x s */
|
|
assert(rc == 4);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+3] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x s value */
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = (bool_from_obj(r[2]) ? (objptr_from_obj(r[3])[0] = (r[1])) : (r[1]));
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 228: /* clo k x */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x value */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = (objptr_from_obj(r[2])[0] = (r[1]));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 229: /* clo k */
|
|
assert(rc == 2);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+1] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k value */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (objptr_from_obj(r[1])[0]);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 230: /* promise? k o */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k o */
|
|
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(isbox((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 231: /* make-promise k o */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k o */
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
*--hp = r[1];
|
|
*--hp = obj_from_bool(1);
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[2] = (hendblk(3)); }
|
|
{ /* box */
|
|
hreserve(hbsz(2), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_size(BOX_BTAG);
|
|
r[2] = (hendblk(2)); }
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 232: /* make-lazy-promise k o */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k o */
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 2); /* 2 live regs */
|
|
*--hp = r[1];
|
|
*--hp = obj_from_bool(0);
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[2] = (hendblk(3)); }
|
|
{ /* box */
|
|
hreserve(hbsz(2), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_size(BOX_BTAG);
|
|
r[2] = (hendblk(2)); }
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 233: /* force k p */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
gs_force: /* k p */
|
|
r[2] = (boxref((r[1])));
|
|
if (bool_from_obj(car((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = (cdr((r[2])));
|
|
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(234);
|
|
r[3] = (hendblk(2+1));
|
|
r[4+0] = (cdr((r[2])));
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 2;
|
|
goto jump;
|
|
}
|
|
|
|
case 234: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r k p */
|
|
r[4] = (boxref((r[3])));
|
|
if (bool_from_obj(car((r[4])))) {
|
|
(void)((0) ? obj_from_bool(0) : obj_from_void(0));
|
|
} else {
|
|
r[5] = (boxref((r[1])));
|
|
r[5] = (car((r[5])));
|
|
(void)(car((r[4])) = (r[5]));
|
|
r[5] = (boxref((r[1])));
|
|
r[5] = (cdr((r[5])));
|
|
(void)(cdr((r[4])) = (r[5]));
|
|
(void)(boxref((r[1])) = (r[4]));
|
|
}
|
|
r[0] = r[2];
|
|
r[1] = r[3];
|
|
goto gs_force;
|
|
|
|
case 235: /* %residual-eof-object k */
|
|
assert(rc == 2);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k */
|
|
r[1+0] = r[0];
|
|
pc = objptr_from_obj(r[1+0])[0];
|
|
r[1+1] = obj_from_ktrap();
|
|
r[1+2] = (mkeof());
|
|
r += 1; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 236: /* %residual-eof-object? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(iseof((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 237: /* %residual-open-file* k fn mode */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k fn mode */
|
|
r[3] = ((obj)fopen(stringchars((r[1])), stringchars((r[2]))));
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 238: /* %residual-input-port? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isiport((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 239: /* %residual-port-fold-case? k ip */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k ip */
|
|
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(((void)ckiportvt((r[1])), 0));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 240: /* %residual-set-port-fold-case! k ip b */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k ip b */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = obj_from_void(ckiportvt((r[1])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 241: /* close-input-port k p */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k p */
|
|
{ /* close-input-port */
|
|
obj o = r[1]; cxtype_iport_t *vt = iportvt(o); assert(vt);
|
|
vt->close(iportdata(o)); vt->free(iportdata(o));
|
|
objptr_from_obj(o)[-1] = (obj)IPORT_CLOSED_NTAG;
|
|
r[2] = obj_from_void(0); }
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 242: /* %residual-input-port-open? k p */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k p */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(ckiportvt((r[1])) != (cxtype_iport_t *)IPORT_CLOSED_NTAG);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 243: /* %residual-open-input-file k fn */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k fn */
|
|
r[2] = ((obj)fopen(stringchars((r[1])), stringchars((cx__231117))));
|
|
if (bool_from_obj(r[2])) {
|
|
r[3] = (mkiport_file(3, (void*)((r[2]))));
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = r[3];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3+0] = (cx_file_2Derror);
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = r[0];
|
|
r[3+2] = (cx__231121);
|
|
r[3+3] = r[1];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
}
|
|
|
|
case 244: /* %residual-open-binary-input-file k fn */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k fn */
|
|
r[2] = ((obj)fopen(stringchars((r[1])), stringchars((cx__231125))));
|
|
if (bool_from_obj(r[2])) {
|
|
r[3] = (mkiport_file(3, (void*)((r[2]))));
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = r[3];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3+0] = (cx_file_2Derror);
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = r[0];
|
|
r[3+2] = (cx__231129);
|
|
r[3+3] = r[1];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
}
|
|
|
|
case 245: /* %residual-open-input-string k s */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k s */
|
|
{ /* open-input-string */
|
|
int *d = dupstring(stringdata((r[1])));
|
|
r[2] = (mkiport_string(2, sialloc(sdatachars(d), d))); }
|
|
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 246: /* %residual-open-input-bytevector k s */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k s */
|
|
{ /* open-input-bytevector */
|
|
int *d = dupbytevector(bytevectordata((r[1])));
|
|
unsigned char *p = bvdatabytes(d), *e = p + *d;
|
|
r[2] = (mkiport_bytevector(2, bvialloc(p, e, d))); }
|
|
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 247: /* %residual-output-port? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isoport((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 248: /* close-output-port k p */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k p */
|
|
{ /* close-output-port */
|
|
obj o = r[1]; cxtype_oport_t *vt = oportvt(o); assert(vt);
|
|
vt->close(oportdata(o)); vt->free(oportdata(o));
|
|
objptr_from_obj(o)[-1] = (obj)OPORT_CLOSED_NTAG;
|
|
r[2] = obj_from_void(0); }
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 249: /* %residual-output-port-open? k p */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k p */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(ckoportvt((r[1])) != (cxtype_oport_t *)OPORT_CLOSED_NTAG);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 250: /* %residual-open-output-file k fn */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k fn */
|
|
r[2] = ((obj)fopen(stringchars((r[1])), stringchars((cx__231144))));
|
|
if (bool_from_obj(r[2])) {
|
|
r[3] = (mkoport_file(3, (void*)((r[2]))));
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = r[3];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3+0] = (cx_file_2Derror);
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = r[0];
|
|
r[3+2] = (cx__231148);
|
|
r[3+3] = r[1];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
}
|
|
|
|
case 251: /* %residual-open-binary-output-file k fn */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k fn */
|
|
r[2] = ((obj)fopen(stringchars((r[1])), stringchars((cx__231151))));
|
|
if (bool_from_obj(r[2])) {
|
|
r[3] = (mkoport_file(3, (void*)((r[2]))));
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = r[3];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3+0] = (cx_file_2Derror);
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = r[0];
|
|
r[3+2] = (cx__231155);
|
|
r[3+3] = r[1];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
}
|
|
|
|
case 252: /* %residual-open-output-string k */
|
|
assert(rc == 2);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k */
|
|
{ /* open-output-string */
|
|
r[1] = (mkoport_string(1, newcb())); }
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = r[1];
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 253: /* %residual-get-output-string k p */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k p */
|
|
{ /* get-output-string */
|
|
obj o = r[1]; cxtype_oport_t *vt = ckoportvt(o);
|
|
if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG &&
|
|
vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[2] = (mkeof());
|
|
else { cbuf_t *pcb = oportdata(o);
|
|
r[2] = (hpushstr(2, newstring(cbdata(pcb)))); } }
|
|
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 254: /* %residual-open-output-bytevector k */
|
|
assert(rc == 2);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k */
|
|
{ /* open-output-bytevector */
|
|
r[1] = (mkoport_bytevector(1, newcb())); }
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = r[1];
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 255: /* %residual-get-output-bytevector k p */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k p */
|
|
{ /* get-output-bytevector */
|
|
obj o = r[1]; cxtype_oport_t *vt = ckoportvt(o);
|
|
if (vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG &&
|
|
vt != (cxtype_oport_t *)OPORT_STRING_NTAG) r[2] = (mkeof());
|
|
else { cbuf_t *pcb = oportdata(o); int len = (int)(pcb->fill - pcb->buf);
|
|
r[2] = (hpushu8v(2, newbytevector((unsigned char *)pcb->buf, len))); } }
|
|
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 256: /* %residual-port? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (cxs__25residual_2Dport_3F((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 257: /* close-port k p */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k p */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (cxs_close_2Dport((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 258: /* call-with-input-file k fname proc */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
gs_call_2Dwith_2Dinput_2Dfile: /* k fname proc */
|
|
r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__231117))));
|
|
if (bool_from_obj(r[3])) {
|
|
r[4] = (mkiport_file(4, (void*)((r[3]))));
|
|
/* r[0] */
|
|
r[1] = r[4];
|
|
/* r[2] */
|
|
goto gs_call_2Dwith_2Dport;
|
|
} else {
|
|
hreserve(hbsz(2+1), 4); /* 4 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(259);
|
|
r[4] = (hendblk(2+1));
|
|
r[5+0] = (cx_file_2Derror);
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = r[4];
|
|
r[5+2] = (cx__231121);
|
|
r[5+3] = r[1];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
}
|
|
|
|
case 259: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r proc k */
|
|
r[0] = r[3];
|
|
/* r[1] */
|
|
/* r[2] */
|
|
goto gs_call_2Dwith_2Dport;
|
|
|
|
case 260: /* call-with-output-file k fname proc */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
gs_call_2Dwith_2Doutput_2Dfile: /* k fname proc */
|
|
r[3] = ((obj)fopen(stringchars((r[1])), stringchars((cx__231144))));
|
|
if (bool_from_obj(r[3])) {
|
|
r[4] = (mkoport_file(4, (void*)((r[3]))));
|
|
/* r[0] */
|
|
r[1] = r[4];
|
|
/* r[2] */
|
|
goto gs_call_2Dwith_2Dport;
|
|
} else {
|
|
hreserve(hbsz(2+1), 4); /* 4 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(261);
|
|
r[4] = (hendblk(2+1));
|
|
r[5+0] = (cx_file_2Derror);
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = r[4];
|
|
r[5+2] = (cx__231148);
|
|
r[5+3] = r[1];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
}
|
|
|
|
case 261: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r proc k */
|
|
r[0] = r[3];
|
|
/* r[1] */
|
|
/* r[2] */
|
|
goto gs_call_2Dwith_2Dport;
|
|
|
|
case 262: /* with-input-from-port k port thunk */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
gs_with_2Dinput_2Dfrom_2Dport: /* k port thunk */
|
|
hreserve(hbsz(2+1), 3); /* 3 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(263);
|
|
r[3] = (hendblk(2+1));
|
|
r[4+0] = (cx__25residual_2Dcurrent_2Dinput_2Dport);
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = r[3];
|
|
r[4+2] = r[1];
|
|
r[4+3] = obj_from_bool(0);
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 263: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r thunk k */
|
|
hreserve(hbsz(3+1), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[1];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(264);
|
|
r[4] = (hendblk(3+1));
|
|
r[0] = (cx__25residual_2Dcurrent_2Dinput_2Dport);
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[4];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 2;
|
|
goto jump;
|
|
|
|
case 264: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r thunk r k */
|
|
hreserve(hbsz(1+1), 5); /* 5 live regs */
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(265);
|
|
r[5] = (hendblk(1+1));
|
|
hreserve(hbsz(1+1), 6); /* 6 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(266);
|
|
r[6] = (hendblk(1+1));
|
|
hreserve(hbsz(1+1), 7); /* 7 live regs */
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(267);
|
|
r[7] = (hendblk(1+1));
|
|
r[8+0] = r[4];
|
|
r[8+1] = r[5];
|
|
r[8+2] = r[6];
|
|
r[8+3] = r[7];
|
|
r += 8; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs_dynamic_2Dwind;
|
|
|
|
case 265: /* clo k */
|
|
assert(rc == 2);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+1] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k r */
|
|
r[2+0] = (cx__25residual_2Dcurrent_2Dinput_2Dport);
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = r[0];
|
|
r[2+2] = r[1];
|
|
r[2+3] = obj_from_bool(1);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 266: /* clo k */
|
|
assert(rc == 2);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+1] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k thunk */
|
|
r[2+0] = r[1];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = r[0];
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 2;
|
|
goto jump;
|
|
|
|
case 267: /* clo k */
|
|
assert(rc == 2);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+1] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k r */
|
|
r[2+0] = (cx__25residual_2Dcurrent_2Dinput_2Dport);
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = r[0];
|
|
r[2+2] = r[1];
|
|
r[2+3] = obj_from_bool(1);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 268: /* with-output-to-port k port thunk */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
gs_with_2Doutput_2Dto_2Dport: /* k port thunk */
|
|
hreserve(hbsz(2+1), 3); /* 3 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(269);
|
|
r[3] = (hendblk(2+1));
|
|
r[4+0] = (cx__25residual_2Dcurrent_2Doutput_2Dport);
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = r[3];
|
|
r[4+2] = r[1];
|
|
r[4+3] = obj_from_bool(0);
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 269: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r thunk k */
|
|
hreserve(hbsz(3+1), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[1];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(270);
|
|
r[4] = (hendblk(3+1));
|
|
r[0] = (cx__25residual_2Dcurrent_2Doutput_2Dport);
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[4];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 2;
|
|
goto jump;
|
|
|
|
case 270: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r thunk r k */
|
|
hreserve(hbsz(1+1), 5); /* 5 live regs */
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(271);
|
|
r[5] = (hendblk(1+1));
|
|
hreserve(hbsz(1+1), 6); /* 6 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(272);
|
|
r[6] = (hendblk(1+1));
|
|
hreserve(hbsz(1+1), 7); /* 7 live regs */
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(273);
|
|
r[7] = (hendblk(1+1));
|
|
r[8+0] = r[4];
|
|
r[8+1] = r[5];
|
|
r[8+2] = r[6];
|
|
r[8+3] = r[7];
|
|
r += 8; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs_dynamic_2Dwind;
|
|
|
|
case 271: /* clo k */
|
|
assert(rc == 2);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+1] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k r */
|
|
r[2+0] = (cx__25residual_2Dcurrent_2Doutput_2Dport);
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = r[0];
|
|
r[2+2] = r[1];
|
|
r[2+3] = obj_from_bool(1);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 272: /* clo k */
|
|
assert(rc == 2);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+1] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k thunk */
|
|
r[2+0] = r[1];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = r[0];
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 2;
|
|
goto jump;
|
|
|
|
case 273: /* clo k */
|
|
assert(rc == 2);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+1] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k r */
|
|
r[2+0] = (cx__25residual_2Dcurrent_2Doutput_2Dport);
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = r[0];
|
|
r[2+2] = r[1];
|
|
r[2+3] = obj_from_bool(1);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 274: /* with-input-from-file k fname thunk */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k fname thunk */
|
|
hreserve(hbsz(1+1), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(275);
|
|
r[3] = (hendblk(1+1));
|
|
/* r[0] */
|
|
/* r[1] */
|
|
r[2] = r[3];
|
|
goto gs_call_2Dwith_2Dinput_2Dfile;
|
|
|
|
case 275: /* clo k p */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k p thunk */
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
goto gs_with_2Dinput_2Dfrom_2Dport;
|
|
|
|
case 276: /* with-output-to-file k fname thunk */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k fname thunk */
|
|
hreserve(hbsz(1+1), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(277);
|
|
r[3] = (hendblk(1+1));
|
|
/* r[0] */
|
|
/* r[1] */
|
|
r[2] = r[3];
|
|
goto gs_call_2Dwith_2Doutput_2Dfile;
|
|
|
|
case 277: /* clo k p */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k p thunk */
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
goto gs_with_2Doutput_2Dto_2Dport;
|
|
|
|
case 278: /* %read-line k p */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
gs__25read_2Dline: /* k p */
|
|
{ /* open-output-string */
|
|
r[2] = (mkoport_string(2, newcb())); }
|
|
r[3+0] = r[0];
|
|
r[3+1] = obj_from_bool(1);
|
|
r[3+2] = r[2];
|
|
r[3+3] = r[1];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_loop_v12751;
|
|
|
|
s_loop_v12751: /* k read-nothing? op p */
|
|
{ int c = iportgetc((r[3])); r[4] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
if (((iseof((r[4]))) || (char_from_obj(r[4]) == (10)))) {
|
|
{ /* 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[5] = (mkeof());
|
|
else { cbuf_t *pcb = oportdata(o);
|
|
r[5] = (hpushstr(5, newstring(cbdata(pcb)))); } }
|
|
{ /* close-output-port */
|
|
obj o = r[2]; cxtype_oport_t *vt = oportvt(o); assert(vt);
|
|
vt->close(oportdata(o)); vt->free(oportdata(o));
|
|
objptr_from_obj(o)[-1] = (obj)OPORT_CLOSED_NTAG;
|
|
(void)(0); }
|
|
r[5] = (bool_from_obj((iseof((r[4]))) ? (r[1]) : obj_from_bool(0)) ? (r[4]) : (r[5]));
|
|
r[6+0] = r[0];
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = obj_from_ktrap();
|
|
r[6+2] = r[5];
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((char_from_obj(r[4]) == (13))) {
|
|
/* r[0] */
|
|
r[1] = obj_from_bool(0);
|
|
/* r[2] */
|
|
/* r[3] */
|
|
goto s_loop_v12751;
|
|
} else {
|
|
(void)(oportputc(char_from_obj(r[4]), (r[2])));
|
|
/* r[0] */
|
|
r[1] = obj_from_bool(0);
|
|
/* r[2] */
|
|
/* r[3] */
|
|
goto s_loop_v12751;
|
|
}
|
|
}
|
|
|
|
case 279: /* read-substring! k str start end p */
|
|
assert(rc == 6);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k str start end p */
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = (cxs_read_2Dsubstring_21((r[1]), (r[2]), (r[3]), (r[4])));
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 280: /* read-substring k k p */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
gs_read_2Dsubstring: /* k k p */
|
|
r[3] = (hpushstr(3, allocstring(fixnum_from_obj(r[1]), '?')));
|
|
r[4] = (cxs_read_2Dsubstring_21((r[3]), obj_from_fixnum(+0), (r[1]), (r[2])));
|
|
if ((iseof((r[4])))) {
|
|
r[3] = r[4];
|
|
} else {
|
|
if ((fixnum_from_obj(r[4]) == fixnum_from_obj(r[1]))) {
|
|
/* r[3] */
|
|
} else {
|
|
{ /* substring */
|
|
int *d = substring(stringdata((r[3])), (+0), fixnum_from_obj(r[4]));
|
|
r[3] = (hpushstr(5, d)); }
|
|
}
|
|
}
|
|
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 281: /* write-substring k from start end p */
|
|
assert(rc == 6);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k from start end p */
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = (cxs_write_2Dsubstring((r[1]), (r[2]), (r[3]), (r[4])));
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 282: /* read-subbytevector! k vec start end p */
|
|
assert(rc == 6);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec start end p */
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = (cxs_read_2Dsubbytevector_21((r[1]), (r[2]), (r[3]), (r[4])));
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 283: /* read-subbytevector k k p */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
gs_read_2Dsubbytevector: /* k k p */
|
|
r[3] = (hpushu8v(3, allocbytevector(fixnum_from_obj(r[1]))));
|
|
r[4] = (cxs_read_2Dsubbytevector_21((r[3]), obj_from_fixnum(+0), (r[1]), (r[2])));
|
|
if ((iseof((r[4])))) {
|
|
r[3] = r[4];
|
|
} else {
|
|
if ((fixnum_from_obj(r[4]) == fixnum_from_obj(r[1]))) {
|
|
/* r[3] */
|
|
} else {
|
|
{ /* subbytevector */
|
|
int *d = subbytevector(bytevectordata((r[3])), (+0), fixnum_from_obj(r[4]));
|
|
r[3] = (hpushu8v(5, d)); }
|
|
}
|
|
}
|
|
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 284: /* write-subbytevector k from start end p */
|
|
assert(rc == 6);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k from start end p */
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = (cxs_write_2Dsubbytevector((r[1]), (r[2]), (r[3]), (r[4])));
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 285: /* %residual-circular? k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(iscircular((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 286: /* %residual-eq? k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = obj_from_bool((r[1]) == (r[2]));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 287: /* %residual-eqv? k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = (cxs__25residual_2Deqv_3F((r[1]), (r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 288: /* %residual-equal? k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = obj_from_bool(isequal((r[1]), (r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 289: /* %residual-memq k x l */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x l */
|
|
{ /* 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[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 290: /* %residual-memv 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] = (ismemv((r[1]), (r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 291: /* %residual-meml 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] = (ismember((r[1]), (r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 292: /* %member k x l eq */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
gs__25member: /* k x l eq */
|
|
if ((ispair((r[2])))) {
|
|
hreserve(hbsz(4+1), 4); /* 4 live regs */
|
|
*--hp = r[2];
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(293);
|
|
r[4] = (hendblk(4+1));
|
|
r[5+0] = r[3];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = r[4];
|
|
r[5+2] = r[1];
|
|
r[5+3] = (car((r[2])));
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
|
|
case 293: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3];
|
|
r[1+5] = p[4]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r eq x k l */
|
|
if (bool_from_obj(r[1])) {
|
|
r[0] = r[4];
|
|
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[6+0] = r[4];
|
|
r[6+1] = r[3];
|
|
r[6+2] = (cdr((r[5])));
|
|
r[6+3] = r[2];
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs__25member;
|
|
}
|
|
|
|
case 294: /* %residual-assq k x l */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x l */
|
|
{ /* assq */
|
|
obj x = (r[1]), l = (r[2]), p = mknull();
|
|
for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
|
|
r[3] = (l == mknull() ? obj_from_bool(0) : p); }
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 295: /* %residual-assv 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] = (isassv((r[1]), (r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 296: /* %residual-assl 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] = (isassoc((r[1]), (r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 297: /* %assoc k x al eq */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
gs__25assoc: /* k x al eq */
|
|
if ((ispair((r[2])))) {
|
|
hreserve(hbsz(4+1), 4); /* 4 live regs */
|
|
*--hp = r[2];
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(298);
|
|
r[4] = (hendblk(4+1));
|
|
r[5] = (car((r[2])));
|
|
r[5] = (car((r[5])));
|
|
r[6+0] = r[3];
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = r[4];
|
|
r[6+2] = r[1];
|
|
r[6+3] = r[5];
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
|
|
case 298: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3];
|
|
r[1+5] = p[4]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r eq x k al */
|
|
if (bool_from_obj(r[1])) {
|
|
r[0] = r[4];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = (car((r[5])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[6+0] = r[4];
|
|
r[6+1] = r[3];
|
|
r[6+2] = (cdr((r[5])));
|
|
r[6+3] = r[2];
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs__25assoc;
|
|
}
|
|
|
|
case 299: /* print-error-message k prefix args ep */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
gs_print_2Derror_2Dmessage: /* k prefix args ep */
|
|
(void)(((isstring((r[1]))) || (issymbol((r[1])))) ? (void)(oportputs(stringchars((r[1])), (r[3]))) : (void)(oportputs(stringchars((cx__231392)), (r[3]))));
|
|
hreserve(hbsz(2+1), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(300);
|
|
r[4] = (hendblk(2+1));
|
|
r[0] = r[4];
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_pr_2Dwhere;
|
|
|
|
case 300: /* 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 ep */
|
|
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;
|
|
|
|
s_pr_2Drest: /* k args ep */
|
|
if ((ispair((r[1])))) {
|
|
(void)(oportputc((' '), (r[2])));
|
|
r[3] = (car((r[1])));
|
|
(void)(oportputcircular((r[3]), (r[2]), 0));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
/* r[2] */
|
|
goto s_pr_2Drest;
|
|
} 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;
|
|
}
|
|
|
|
s_pr_2Dmsg: /* k args ep */
|
|
if ((ispair((r[1])))) {
|
|
r[3] = (car((r[1])));
|
|
r[3] = obj_from_bool(isstring((r[3])));
|
|
if (bool_from_obj(r[3])) {
|
|
r[3] = (car((r[1])));
|
|
(void)(oportputcircular((r[3]), (r[2]), 1));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
/* r[2] */
|
|
goto s_pr_2Drest;
|
|
} else {
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
goto s_pr_2Drest;
|
|
}
|
|
} 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;
|
|
}
|
|
|
|
s_pr_2Dwhere: /* k args ep */
|
|
if ((ispair((r[1])))) {
|
|
r[3] = (car((r[1])));
|
|
r[3] = obj_from_bool(!bool_from_obj(r[3]));
|
|
if (bool_from_obj(r[3])) {
|
|
(void)(oportputs(stringchars((cx__231377)), (r[2])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
/* r[2] */
|
|
goto s_pr_2Dmsg;
|
|
} else {
|
|
r[3] = (car((r[1])));
|
|
r[3] = obj_from_bool(issymbol((r[3])));
|
|
if (bool_from_obj(r[3])) {
|
|
(void)(oportputs(stringchars((cx__231381)), (r[2])));
|
|
r[3] = (car((r[1])));
|
|
(void)(oportputcircular((r[3]), (r[2]), 0));
|
|
(void)(oportputs(stringchars((cx__231377)), (r[2])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
/* r[2] */
|
|
goto s_pr_2Dmsg;
|
|
} else {
|
|
(void)(oportputs(stringchars((cx__231377)), (r[2])));
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
goto s_pr_2Dmsg;
|
|
}
|
|
}
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_void(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
|
|
case 301: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
r[2] = (cx__2Acurrent_2Derror_2Dport_2A);
|
|
(void)(oportputc('\n', (r[2])));
|
|
hreserve(hbsz(1+1), 3); /* 3 live regs */
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(302);
|
|
r[3] = (hendblk(1+1));
|
|
r[4+0] = r[3];
|
|
r[4+1] = (cx__231392);
|
|
r[4+2] = r[1];
|
|
r[4+3] = r[2];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs_print_2Derror_2Dmessage;
|
|
|
|
case 302: /* clo ek . */
|
|
assert(rc >= 2);
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek . k */
|
|
r[0] = (cx_reset);
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[2];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 2;
|
|
goto jump;
|
|
|
|
case 303: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
r[2] = (cx__2Acurrent_2Derror_2Dport_2A);
|
|
(void)(oportputc('\n', (r[2])));
|
|
hreserve(hbsz(1+1), 3); /* 3 live regs */
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(304);
|
|
r[3] = (hendblk(1+1));
|
|
r[4+0] = r[3];
|
|
r[4+1] = (cx__231416);
|
|
r[4+2] = r[1];
|
|
r[4+3] = r[2];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs_print_2Derror_2Dmessage;
|
|
|
|
case 304: /* clo ek . */
|
|
assert(rc >= 2);
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek . k */
|
|
{ assert(0); exit(1); r[3] = obj_from_void(0); }
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = r[3];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 305: /* %read k port simple? */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
gs__25read: /* k port simple? */
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
|
*--hp = obj_from_case(306);
|
|
r[3] = (hendblk(0+1));
|
|
hreserve(hbsz(1), 4); /* 4 live regs */
|
|
*--hp = obj_from_void(0);
|
|
r[4] = (hendblk(1));
|
|
hreserve(hbsz(1), 5); /* 5 live regs */
|
|
*--hp = obj_from_void(0);
|
|
r[5] = (hendblk(1));
|
|
hreserve(hbsz(1), 6); /* 6 live regs */
|
|
*--hp = obj_from_void(0);
|
|
r[6] = (hendblk(1));
|
|
hreserve(hbsz(1), 7); /* 7 live regs */
|
|
*--hp = obj_from_void(0);
|
|
r[7] = (hendblk(1));
|
|
hreserve(hbsz(1), 8); /* 8 live regs */
|
|
*--hp = obj_from_void(0);
|
|
r[8] = (hendblk(1));
|
|
hreserve(hbsz(1+1), 9); /* 9 live regs */
|
|
*--hp = r[5];
|
|
*--hp = obj_from_case(307);
|
|
r[9] = (hendblk(1+1));
|
|
hreserve(hbsz(1+1), 10); /* 10 live regs */
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(308);
|
|
r[10] = (hendblk(1+1));
|
|
hreserve(hbsz(2+1), 11); /* 11 live regs */
|
|
*--hp = r[8];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(312);
|
|
r[11] = (hendblk(2+1));
|
|
hreserve(hbsz(1+1), 12); /* 12 live regs */
|
|
*--hp = (r[10]);
|
|
*--hp = obj_from_case(315);
|
|
r[12] = (hendblk(1+1));
|
|
(void)(objptr_from_obj(r[4])[0] = (mknull()));
|
|
(void)(objptr_from_obj(r[5])[0] = obj_from_bool(0));
|
|
(void)(objptr_from_obj(r[6])[0] = obj_from_bool(0));
|
|
(void)(objptr_from_obj(r[7])[0] = obj_from_bool(0));
|
|
(void)(objptr_from_obj(r[8])[0] = obj_from_bool(0));
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 13); /* 13 live regs */
|
|
*--hp = (mknull());
|
|
*--hp = (mksymbol(internsym("reader-token")));
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[13] = (hendblk(3)); }
|
|
(void)(objptr_from_obj(r[5])[0] = (r[13]));
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 14); /* 14 live regs */
|
|
*--hp = (cx__232000);
|
|
*--hp = (r[13]);
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[14] = (hendblk(3)); }
|
|
(void)(objptr_from_obj(r[6])[0] = (r[14]));
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 14); /* 14 live regs */
|
|
*--hp = (cx__231997);
|
|
*--hp = (r[13]);
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[14] = (hendblk(3)); }
|
|
(void)(objptr_from_obj(r[7])[0] = (r[14]));
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 14); /* 14 live regs */
|
|
*--hp = (cx__231994);
|
|
*--hp = (r[13]);
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[14] = (hendblk(3)); }
|
|
(void)(objptr_from_obj(r[8])[0] = (r[14]));
|
|
hreserve(hbsz(0+1), 13); /* 13 live regs */
|
|
*--hp = obj_from_case(358);
|
|
r[13] = (hendblk(0+1));
|
|
hreserve(hbsz(5+1), 14); /* 14 live regs */
|
|
*--hp = r[4];
|
|
*--hp = r[0];
|
|
*--hp = (r[13]);
|
|
*--hp = r[1];
|
|
*--hp = r[9];
|
|
*--hp = obj_from_case(317);
|
|
r[13] = (hendblk(5+1));
|
|
r[14+0] = (r[13]);
|
|
r[14+1] = r[1];
|
|
r[14+2] = r[8];
|
|
r[14+3] = r[2];
|
|
r[14+4] = r[4];
|
|
r[14+5] = r[3];
|
|
r[14+6] = (r[10]);
|
|
r[14+7] = (r[12]);
|
|
r[14+8] = (r[11]);
|
|
r[14+9] = r[7];
|
|
r[14+10] = r[6];
|
|
r[14+11] = r[9];
|
|
r += 14; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_sub_2Dread;
|
|
|
|
case 306: /* clo k c */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k c */
|
|
{ const char_t v14731_c = char_from_obj(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((isspace((v14731_c))) || (((v14731_c) == (')')) || (((v14731_c) == ('(')) || (((v14731_c) == (']')) || (((v14731_c) == ('[')) || (((v14731_c) == (34)) || ((v14731_c) == (';'))))))));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump; }
|
|
|
|
case 307: /* clo k form */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k form reader-token-marker */
|
|
if ((ispair((r[1])))) {
|
|
r[3] = (car((r[1])));
|
|
r[4] = (objptr_from_obj(r[2])[0]);
|
|
r[3] = obj_from_bool((r[3]) == (r[4]));
|
|
} else {
|
|
r[3] = obj_from_bool(0);
|
|
}
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 308: /* clo k p in-string? */
|
|
assert(rc == 4);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+3] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k p in-string? char-delimiter? */
|
|
{ int c = iportpeekc((r[1])); r[4] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
hreserve(hbsz(1+1), 5); /* 5 live regs */
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(309);
|
|
r[5] = (hendblk(1+1));
|
|
r[6+0] = r[0];
|
|
r[6+1] = r[4];
|
|
r[6+2] = (mknull());
|
|
r[6+3] = obj_from_fixnum(+0);
|
|
r[6+4] = r[3];
|
|
r[6+5] = r[5];
|
|
r[6+6] = r[1];
|
|
r[6+7] = r[2];
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_loop_v12451;
|
|
|
|
case 309: /* clo k l */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k l p */
|
|
if ((isnull((r[1])))) {
|
|
r[3+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = r[0];
|
|
r[3+2] = (cx__231534);
|
|
r[3+3] = (mksymbol(internsym("port:")));
|
|
r[3+4] = (r[2]);
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
} else {
|
|
{ /* reverse! */
|
|
obj t, v = mknull(), l = r[1];
|
|
while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
|
|
r[3] = (v); }
|
|
{ fixnum_t v14730_tmp;
|
|
{ /* length */
|
|
int n; obj l = r[3];
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
v14730_tmp = (n); }
|
|
{ /* list->string */
|
|
int i, c = (v14730_tmp);
|
|
obj o = hpushstr(4, allocstring(c, ' ')); /* 4 live regs */
|
|
obj l = r[3]; /* gc-safe */
|
|
unsigned char *s = (unsigned char *)stringchars(o);
|
|
for (i = 0; i < c; ++i, l = cdr(l)) s[i] = (unsigned char)char_from_obj(car(l));
|
|
r[3] = (o); } }
|
|
{ /* string->fixnum */
|
|
char *e, *s = stringchars((r[3]));
|
|
int radix = (+16); long l;
|
|
if (s[0] == '#' && (s[1] == 'b' || s[1] == 'B')) s += 2, radix = 2;
|
|
else if (s[0] == '#' && (s[1] == 'o' || s[1] == 'O')) s += 2, radix = 8;
|
|
else if (s[0] == '#' && (s[1] == 'd' || s[1] == 'D')) s += 2, radix = 10;
|
|
else if (s[0] == '#' && (s[1] == 'x' || s[1] == 'X')) s += 2, radix = 16;
|
|
l = (errno = 0, strtol(s, &e, radix));
|
|
if (errno || l < FIXNUM_MIN || l > FIXNUM_MAX || e == s || *e) r[3] = obj_from_bool(0);
|
|
else r[3] = obj_from_fixnum(l); }
|
|
r[3] = obj_from_char((char_t)fixnum_from_obj(r[3]));
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
|
|
case 310: /* clo k c l cc */
|
|
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; /* shift reg. wnd */
|
|
s_loop_v12451: /* k c l cc char-delimiter? rev-digits->char p in-string? */
|
|
if ((iseof((r[1])))) {
|
|
if (bool_from_obj(r[7])) {
|
|
r[8+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[8+0])[0];
|
|
r[8+1] = r[0];
|
|
r[8+2] = (cx__231562);
|
|
r[8+3] = (mksymbol(internsym("port:")));
|
|
r[8+4] = (r[6]);
|
|
r += 8; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
} else {
|
|
r[8+0] = r[5];
|
|
pc = objptr_from_obj(r[8+0])[0];
|
|
r[8+1] = r[0];
|
|
r[8+2] = r[2];
|
|
r += 8; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
} else {
|
|
if ((bool_from_obj(r[7]) && (char_from_obj(r[1]) == (';')))) {
|
|
{ int c = iportgetc((r[6])); (void)(c == EOF ? mkeof() : obj_from_char(c)); }
|
|
r[8+0] = r[5];
|
|
pc = objptr_from_obj(r[8+0])[0];
|
|
r[8+1] = r[0];
|
|
r[8+2] = r[2];
|
|
r += 8; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
hreserve(hbsz(4+1), 8); /* 8 live regs */
|
|
*--hp = r[7];
|
|
*--hp = r[6];
|
|
*--hp = r[5];
|
|
*--hp = r[4];
|
|
*--hp = obj_from_case(310);
|
|
r[8] = (hendblk(4+1));
|
|
hreserve(hbsz(7+1), 9); /* 9 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[2];
|
|
*--hp = r[5];
|
|
*--hp = r[1];
|
|
*--hp = r[6];
|
|
*--hp = r[3];
|
|
*--hp = r[8];
|
|
*--hp = obj_from_case(311);
|
|
r[8] = (hendblk(7+1));
|
|
if ((!bool_from_obj(r[7]))) {
|
|
r[9+0] = r[4];
|
|
pc = objptr_from_obj(r[9+0])[0];
|
|
r[9+1] = r[8];
|
|
r[9+2] = r[1];
|
|
r += 9; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
hreserve(hbsz(4+1), 9); /* 9 live regs */
|
|
*--hp = r[7];
|
|
*--hp = r[6];
|
|
*--hp = r[5];
|
|
*--hp = r[4];
|
|
*--hp = obj_from_case(310);
|
|
r[9] = (hendblk(4+1));
|
|
r[10+0] = obj_from_ktrap();
|
|
r[10+1] = obj_from_bool(0);
|
|
r[10+2] = r[9];
|
|
r[10+3] = r[3];
|
|
r[10+4] = r[6];
|
|
r[10+5] = r[1];
|
|
r[10+6] = r[5];
|
|
r[10+7] = r[2];
|
|
r[10+8] = r[0];
|
|
r += 10; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_l_v12453;
|
|
}
|
|
}
|
|
}
|
|
|
|
case 311: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3];
|
|
r[1+5] = p[4];
|
|
r[1+6] = p[5];
|
|
r[1+7] = p[6];
|
|
r[1+8] = p[7]; }
|
|
r += 1; /* shift reg. wnd */
|
|
s_l_v12453: /* ek r loop cc p c rev-digits->char l k */
|
|
if (bool_from_obj(r[1])) {
|
|
r[0] = r[6];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[8];
|
|
r[2] = r[7];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
{ const fixnum_t v14729_scalar_2Dvalue = ((fixnum_t)char_from_obj(r[5]));
|
|
r[9] = obj_from_bool(((v14729_scalar_2Dvalue) >= (+48)) && ((v14729_scalar_2Dvalue) <= (+57)));
|
|
if (bool_from_obj(r[9])) {
|
|
/* r[9] */
|
|
} else {
|
|
r[10] = obj_from_bool(((v14729_scalar_2Dvalue) >= (+65)) && ((v14729_scalar_2Dvalue) <= (+70)));
|
|
r[9] = (bool_from_obj(r[10]) ? (r[10]) : obj_from_bool(((v14729_scalar_2Dvalue) >= (+97)) && ((v14729_scalar_2Dvalue) <= (+102))));
|
|
} }
|
|
r[9] = obj_from_bool(!bool_from_obj(r[9]));
|
|
if (bool_from_obj(r[9])) {
|
|
r[9+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[9+0])[0];
|
|
r[9+1] = r[8];
|
|
r[9+2] = (cx__231558);
|
|
r[9+3] = r[5];
|
|
r[9+4] = (mksymbol(internsym("port:")));
|
|
r[9+5] = (r[4]);
|
|
r += 9; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 6;
|
|
goto jump;
|
|
} else {
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
r[9] = obj_from_bool(fixnum_from_obj(r[3]) > (+2));
|
|
} else {
|
|
{ const flonum_t v14728_tmp = ((flonum_t)(+2));
|
|
r[9] = obj_from_bool(flonum_from_obj(r[3]) > (v14728_tmp)); }
|
|
}
|
|
if (bool_from_obj(r[9])) {
|
|
r[0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[8];
|
|
r[2] = (cx__231550);
|
|
r[3] = (mksymbol(internsym("port:")));
|
|
r[4] = (r[4]);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
} else {
|
|
{ int c = iportgetc((r[4])); (void)(c == EOF ? mkeof() : obj_from_char(c)); }
|
|
{ int c = iportpeekc((r[4])); r[9] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 10); /* 10 live regs */
|
|
*--hp = r[7];
|
|
*--hp = r[5];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[10] = (hendblk(3)); }
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
r[11] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1)));
|
|
} else {
|
|
{ const flonum_t v14727_tmp = ((flonum_t)(+1));
|
|
r[11] = obj_from_flonum(11, flonum_from_obj(r[3]) + (v14727_tmp)); }
|
|
}
|
|
r[12+0] = r[2];
|
|
pc = objptr_from_obj(r[12+0])[0];
|
|
r[12+1] = r[8];
|
|
r[12+2] = r[9];
|
|
r[12+3] = (r[10]);
|
|
r[12+4] = (r[11]);
|
|
r += 12; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
}
|
|
}
|
|
}
|
|
|
|
case 312: /* clo k c p */
|
|
assert(rc == 4);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+3] = p[1];
|
|
r[1+4] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k c p char-delimiter? dot */
|
|
{ int c = iportpeekc((r[2])); r[5] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
*--hp = (mknull());
|
|
*--hp = r[1];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[6] = (hendblk(3)); }
|
|
r[7+0] = r[0];
|
|
r[7+1] = r[5];
|
|
r[7+2] = r[6];
|
|
r[7+3] = obj_from_bool(char_from_obj(r[1]) == ('#'));
|
|
r[7+4] = r[3];
|
|
r[7+5] = r[2];
|
|
r[7+6] = r[4];
|
|
r += 7; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_loop_v12428;
|
|
|
|
case 313: /* clo k c l hash? */
|
|
assert(rc == 5);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+4] = p[1];
|
|
r[1+5] = p[2];
|
|
r[1+6] = p[3]; }
|
|
r += 1; /* shift reg. wnd */
|
|
s_loop_v12428: /* k c l hash? char-delimiter? p dot */
|
|
hreserve(hbsz(3+1), 7); /* 7 live regs */
|
|
*--hp = r[6];
|
|
*--hp = r[5];
|
|
*--hp = r[4];
|
|
*--hp = obj_from_case(313);
|
|
r[7] = (hendblk(3+1));
|
|
hreserve(hbsz(7+1), 8); /* 8 live regs */
|
|
*--hp = r[2];
|
|
*--hp = r[3];
|
|
*--hp = r[6];
|
|
*--hp = r[0];
|
|
*--hp = r[5];
|
|
*--hp = r[1];
|
|
*--hp = r[7];
|
|
*--hp = obj_from_case(314);
|
|
r[7] = (hendblk(7+1));
|
|
if ((iseof((r[1])))) {
|
|
hreserve(hbsz(3+1), 8); /* 8 live regs */
|
|
*--hp = r[6];
|
|
*--hp = r[5];
|
|
*--hp = r[4];
|
|
*--hp = obj_from_case(313);
|
|
r[8] = (hendblk(3+1));
|
|
r[9+0] = obj_from_ktrap();
|
|
r[9+1] = obj_from_bool(iseof((r[1])));
|
|
r[9+2] = r[8];
|
|
r[9+3] = r[1];
|
|
r[9+4] = r[5];
|
|
r[9+5] = r[0];
|
|
r[9+6] = r[6];
|
|
r[9+7] = r[3];
|
|
r[9+8] = r[2];
|
|
r += 9; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_l_v12430;
|
|
} else {
|
|
r[8+0] = r[4];
|
|
pc = objptr_from_obj(r[8+0])[0];
|
|
r[8+1] = r[7];
|
|
r[8+2] = r[1];
|
|
r += 8; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
|
|
case 314: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3];
|
|
r[1+5] = p[4];
|
|
r[1+6] = p[5];
|
|
r[1+7] = p[6];
|
|
r[1+8] = p[7]; }
|
|
r += 1; /* shift reg. wnd */
|
|
s_l_v12430: /* ek r loop c p k dot hash? l */
|
|
if (bool_from_obj(r[1])) {
|
|
{ /* reverse! */
|
|
obj t, v = mknull(), l = r[8];
|
|
while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
|
|
r[9] = (v); }
|
|
r[10] = (car((r[9])));
|
|
{ fixnum_t v14723_tmp;
|
|
{ /* length */
|
|
int n; obj l = r[9];
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
v14723_tmp = (n); }
|
|
{ /* list->string */
|
|
int i, c = (v14723_tmp);
|
|
obj o = hpushstr(11, allocstring(c, ' ')); /* 11 live regs */
|
|
obj l = r[9]; /* gc-safe */
|
|
unsigned char *s = (unsigned char *)stringchars(o);
|
|
for (i = 0; i < c; ++i, l = cdr(l)) s[i] = (unsigned char)char_from_obj(car(l));
|
|
r[11] = (o); } }
|
|
if (bool_from_obj(bool_from_obj(r[7]) ? (r[7]) : obj_from_bool((isdigit(char_from_obj(r[10]))) || ((char_from_obj(r[10]) == ('+')) || ((char_from_obj(r[10]) == ('-')) || (char_from_obj(r[10]) == ('.'))))))) {
|
|
if ((strcmp(stringchars((r[11])), stringchars((cx__231474))) == 0)) {
|
|
r[0] = r[5];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = (objptr_from_obj(r[6])[0]);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if (bool_from_obj(bool_from_obj(r[7]) ? (r[7]) : obj_from_bool(isdigit(char_from_obj(r[10]))))) {
|
|
r[12] = obj_from_bool(0);
|
|
} else {
|
|
r[12] = obj_from_bool(strcmp_ci(stringchars((r[11])), stringchars((cx__231523))) == 0);
|
|
r[12] = (bool_from_obj(r[12]) ? (r[12]) : obj_from_bool(strcmp_ci(stringchars((r[11])), stringchars((cx__231525))) == 0));
|
|
if (bool_from_obj(r[12])) {
|
|
r[12] = obj_from_bool(0);
|
|
} else {
|
|
r[12] = obj_from_bool(strcmp_ci(stringchars((r[11])), stringchars((cx__231520))) == 0);
|
|
r[12] = (bool_from_obj(r[12]) ? (r[12]) : obj_from_bool(strcmp_ci(stringchars((r[11])), stringchars((cx__231522))) == 0));
|
|
if (bool_from_obj(r[12])) {
|
|
r[12] = obj_from_bool(0);
|
|
} else {
|
|
r[12] = obj_from_bool(strcmp_ci(stringchars((r[11])), stringchars((cx__231517))) == 0);
|
|
r[12] = (bool_from_obj(r[12]) ? (r[12]) : obj_from_bool(strcmp_ci(stringchars((r[11])), stringchars((cx__231519))) == 0));
|
|
if (bool_from_obj(r[12])) {
|
|
r[12] = obj_from_bool(0);
|
|
} else {
|
|
if (((char_from_obj(r[10]) == ('+')) || (char_from_obj(r[10]) == ('-')))) {
|
|
r[12] = (cdr((r[9])));
|
|
r[12] = obj_from_bool(isnull((r[12])));
|
|
if (bool_from_obj(r[12])) {
|
|
r[12] = obj_from_bool(1);
|
|
} else {
|
|
r[12] = (cdr((r[9])));
|
|
r[12] = (car((r[12])));
|
|
r[12] = obj_from_bool(char_from_obj(r[12]) == ('.'));
|
|
if (bool_from_obj(r[12])) {
|
|
r[12] = (cdr((r[9])));
|
|
r[12] = (cdr((r[12])));
|
|
r[12] = obj_from_bool(ispair((r[12])));
|
|
if (bool_from_obj(r[12])) {
|
|
{ bool_t v14726_tmp;
|
|
r[12] = (cdr((r[9])));
|
|
r[12] = (cdr((r[12])));
|
|
r[12] = (car((r[12])));
|
|
v14726_tmp = (isdigit(char_from_obj(r[12])));
|
|
r[12] = obj_from_bool(!(v14726_tmp)); }
|
|
} else {
|
|
r[12] = obj_from_bool(0);
|
|
}
|
|
} else {
|
|
{ bool_t v14725_tmp;
|
|
r[12] = (cdr((r[9])));
|
|
r[12] = (car((r[12])));
|
|
v14725_tmp = (isdigit(char_from_obj(r[12])));
|
|
r[12] = obj_from_bool(!(v14725_tmp)); }
|
|
}
|
|
}
|
|
} else {
|
|
if ((char_from_obj(r[10]) == ('.'))) {
|
|
r[12] = (cdr((r[9])));
|
|
r[12] = obj_from_bool(ispair((r[12])));
|
|
if (bool_from_obj(r[12])) {
|
|
{ bool_t v14724_tmp;
|
|
r[12] = (cdr((r[9])));
|
|
r[12] = (car((r[12])));
|
|
v14724_tmp = (isdigit(char_from_obj(r[12])));
|
|
r[12] = obj_from_bool(!(v14724_tmp)); }
|
|
} else {
|
|
r[12] = obj_from_bool(0);
|
|
}
|
|
} else {
|
|
r[12] = obj_from_bool(0);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
if (bool_from_obj(r[12])) {
|
|
r[0] = r[5];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = (mksymbol(internsym(stringchars((r[11])))));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
{ /* string->fixnum-or-flonum */
|
|
char *s = stringchars((r[11]));
|
|
int radix = (+10); long l; double d;
|
|
if (0) r[12] = (0); /* to fool sfc unboxer */
|
|
switch (strtofxfl(s, radix, &l, &d)) {
|
|
case 'e': r[12] = obj_from_fixnum(l); break;
|
|
case 'i': r[12] = obj_from_flonum(12, d); break;
|
|
default : r[12] = obj_from_bool(0); break;
|
|
} }
|
|
if (bool_from_obj(r[12])) {
|
|
r[0] = r[5];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = (r[12]);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[13+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[13+0])[0];
|
|
r[13+1] = r[5];
|
|
r[13+2] = (cx__231472);
|
|
r[13+3] = (r[11]);
|
|
r[13+4] = (mksymbol(internsym("port:")));
|
|
r[13+5] = (r[4]);
|
|
r += 13; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 6;
|
|
goto jump;
|
|
}
|
|
}
|
|
}
|
|
} else {
|
|
r[0] = r[5];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = (mksymbol(internsym(stringchars((r[11])))));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
} else {
|
|
if ((char_from_obj(r[3]) == ('#'))) {
|
|
{ int c = iportgetc((r[4])); (void)(c == EOF ? mkeof() : obj_from_char(c)); }
|
|
{ int c = iportpeekc((r[4])); r[9] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 10); /* 10 live regs */
|
|
*--hp = r[8];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[10] = (hendblk(3)); }
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[5];
|
|
r[2] = r[9];
|
|
r[3] = (r[10]);
|
|
r[4] = obj_from_bool(1);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
} else {
|
|
{ /* string-position */
|
|
char *s = stringchars((cx__231933)), *p = strchr(s, char_from_obj(r[3]));
|
|
if (p) r[9] = obj_from_fixnum(p-s); else r[9] = obj_from_bool(0); }
|
|
if (bool_from_obj(r[9])) {
|
|
{ int c = iportgetc((r[4])); (void)(c == EOF ? mkeof() : obj_from_char(c)); }
|
|
{ int c = iportpeekc((r[4])); r[9] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 10); /* 10 live regs */
|
|
*--hp = r[8];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[10] = (hendblk(3)); }
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[5];
|
|
r[2] = r[9];
|
|
r[3] = (r[10]);
|
|
r[4] = r[7];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
} else {
|
|
r[9+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[9+0])[0];
|
|
r[9+1] = r[5];
|
|
r[9+2] = (cx__231455);
|
|
r[9+3] = r[3];
|
|
r[9+4] = (mksymbol(internsym("port:")));
|
|
r[9+5] = (r[4]);
|
|
r += 9; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 6;
|
|
goto jump;
|
|
}
|
|
}
|
|
}
|
|
|
|
case 315: /* clo k p what */
|
|
assert(rc == 4);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+3] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k p what sub-read-x-char-escape */
|
|
{ int c = iportgetc((r[1])); r[4] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
hreserve(hbsz(5+1), 5); /* 5 live regs */
|
|
*--hp = r[4];
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(316);
|
|
r[5] = (hendblk(5+1));
|
|
if ((iseof((r[4])))) {
|
|
r[6+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = r[5];
|
|
r[6+2] = (cx__231594);
|
|
r[6+3] = r[2];
|
|
r[6+4] = (mksymbol(internsym("port:")));
|
|
r[6+5] = (r[1]);
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 6;
|
|
goto jump;
|
|
} else {
|
|
r[6+0] = obj_from_ktrap();
|
|
r[6+1] = obj_from_void(0);
|
|
r[6+2] = r[2];
|
|
r[6+3] = r[3];
|
|
r[6+4] = r[1];
|
|
r[6+5] = r[0];
|
|
r[6+6] = r[4];
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_l_v12408;
|
|
}
|
|
|
|
case 316: /* clo ek . */
|
|
assert(rc >= 2);
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3];
|
|
r[1+5] = p[4];
|
|
r[1+6] = p[5]; }
|
|
r += 1; /* shift reg. wnd */
|
|
s_l_v12408: /* ek . what sub-read-x-char-escape p k c */
|
|
if (((char_from_obj(r[6]) == (92)) || ((char_from_obj(r[6]) == (34)) || (char_from_obj(r[6]) == ('|'))))) {
|
|
r[0] = r[5];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = r[6];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((char_from_obj(r[6]) == ('a'))) {
|
|
r[0] = r[5];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_char(7);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((char_from_obj(r[6]) == ('b'))) {
|
|
r[0] = r[5];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_char(8);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((char_from_obj(r[6]) == ('t'))) {
|
|
r[0] = r[5];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_char(9);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((char_from_obj(r[6]) == ('n'))) {
|
|
r[0] = r[5];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_char(10);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((char_from_obj(r[6]) == ('v'))) {
|
|
r[0] = r[5];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_char(11);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((char_from_obj(r[6]) == ('f'))) {
|
|
r[0] = r[5];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_char(12);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((char_from_obj(r[6]) == ('r'))) {
|
|
r[0] = r[5];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_char(13);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((char_from_obj(r[6]) == ('x'))) {
|
|
r[0] = r[3];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[5];
|
|
r[2] = r[4];
|
|
r[3] = obj_from_bool(1);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
} else {
|
|
if ((((r[2]) == (mksymbol(internsym("string")))) && (isspace(char_from_obj(r[6]))))) {
|
|
{ int c = iportpeekc((r[4])); r[7] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
r[0] = r[5];
|
|
r[1] = obj_from_bool(char_from_obj(r[6]) == (10));
|
|
r[2] = r[7];
|
|
r[3] = r[4];
|
|
goto s_loop_v12409;
|
|
} else {
|
|
r[7+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[7+0])[0];
|
|
r[7+1] = r[5];
|
|
r[7+2] = (cx__231574);
|
|
r[7+3] = r[2];
|
|
r[7+4] = (mksymbol(internsym(":")));
|
|
r[7+5] = (r[6]);
|
|
r[7+6] = (mksymbol(internsym("port:")));
|
|
r[7+7] = (r[4]);
|
|
r += 7; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 8;
|
|
goto jump;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
s_loop_v12409: /* k gotnl nc p */
|
|
if (((iseof((r[2]))) || (!(isspace(char_from_obj(r[2])))))) {
|
|
if (bool_from_obj(r[1])) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[4+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = r[0];
|
|
r[4+2] = (cx__231580);
|
|
r[4+3] = (mksymbol(internsym("port:")));
|
|
r[4+4] = (r[3]);
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
}
|
|
} else {
|
|
if ((bool_from_obj(r[1]) && (char_from_obj(r[2]) == (10)))) {
|
|
/* 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 {
|
|
{ int c = iportgetc((r[3])); (void)(c == EOF ? mkeof() : obj_from_char(c)); }
|
|
{ int c = iportpeekc((r[3])); r[4] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
/* r[0] */
|
|
r[1] = (bool_from_obj(r[1]) ? (r[1]) : obj_from_bool(char_from_obj(r[2]) == (10)));
|
|
r[2] = r[4];
|
|
/* r[3] */
|
|
goto s_loop_v12409;
|
|
}
|
|
}
|
|
|
|
case 317: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3];
|
|
r[1+5] = p[4];
|
|
r[1+6] = p[5]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r reader-token? port patch-shared k shared */
|
|
hreserve(hbsz(5+1), 7); /* 7 live regs */
|
|
*--hp = r[6];
|
|
*--hp = r[1];
|
|
*--hp = r[5];
|
|
*--hp = r[4];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(318);
|
|
r[7] = (hendblk(5+1));
|
|
r[8+0] = r[2];
|
|
pc = objptr_from_obj(r[8+0])[0];
|
|
r[8+1] = r[7];
|
|
r[8+2] = r[1];
|
|
r += 8; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 318: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3];
|
|
r[1+5] = p[4];
|
|
r[1+6] = p[5]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r port patch-shared k r shared */
|
|
if ((!bool_from_obj(r[1]))) {
|
|
r[7] = (objptr_from_obj(r[6])[0]);
|
|
r[7] = obj_from_bool(isnull((r[7])));
|
|
if (bool_from_obj(r[7])) {
|
|
r[0] = r[4];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = r[5];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[0] = r[3];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[4];
|
|
r[2] = r[5];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
} else {
|
|
r[7+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[7+0])[0];
|
|
r[7+1] = r[4];
|
|
r[7+2] = (cx__231874);
|
|
r[7+3] = (cdr((r[5])));
|
|
r[7+4] = (mksymbol(internsym("port:")));
|
|
r[7+5] = (r[2]);
|
|
r += 7; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 6;
|
|
goto jump;
|
|
}
|
|
|
|
s_sub_2Dread_2Dbyte_2Dlist: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape sub-read-strsym-char-escape sub-read-number-or-symbol close-bracket close-paren reader-token? */
|
|
hreserve(hbsz(10+1), 12); /* 12 live regs */
|
|
*--hp = (r[11]);
|
|
*--hp = (r[10]);
|
|
*--hp = r[9];
|
|
*--hp = r[8];
|
|
*--hp = r[7];
|
|
*--hp = r[6];
|
|
*--hp = r[5];
|
|
*--hp = r[4];
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(331);
|
|
r[12] = (hendblk(10+1));
|
|
hreserve(hbsz(5+1), 13); /* 13 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = (r[10]);
|
|
*--hp = (r[12]);
|
|
*--hp = (r[11]);
|
|
*--hp = obj_from_case(319);
|
|
r[13] = (hendblk(5+1));
|
|
r[0] = (r[13]);
|
|
/* r[1] */
|
|
/* r[2] */
|
|
/* r[3] */
|
|
/* r[4] */
|
|
/* r[5] */
|
|
/* r[6] */
|
|
/* r[7] */
|
|
/* r[8] */
|
|
/* r[9] */
|
|
r[10] = (r[10]);
|
|
r[11] = (r[11]);
|
|
goto s_sub_2Dread;
|
|
|
|
case 319: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3];
|
|
r[1+5] = p[4];
|
|
r[1+6] = p[5]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r reader-token? sub-read close-paren p k */
|
|
r[0] = r[6];
|
|
/* r[1] */
|
|
/* r[2] */
|
|
/* r[3] */
|
|
/* r[4] */
|
|
/* r[5] */
|
|
goto s_recur;
|
|
|
|
case 320: /* clo k form */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3];
|
|
r[1+5] = p[4]; }
|
|
r += 1; /* shift reg. wnd */
|
|
s_recur: /* k form reader-token? sub-read close-paren p */
|
|
if ((iseof((r[1])))) {
|
|
r[6+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = r[0];
|
|
r[6+2] = (cx__231611);
|
|
r[6+3] = (mksymbol(internsym("port:")));
|
|
r[6+4] = (r[5]);
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
} else {
|
|
r[6] = (objptr_from_obj(r[4])[0]);
|
|
r[6] = obj_from_bool((r[1]) == (r[6]));
|
|
if (bool_from_obj(r[6])) {
|
|
/* 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(4+1), 6); /* 6 live regs */
|
|
*--hp = r[5];
|
|
*--hp = r[4];
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(320);
|
|
r[6] = (hendblk(4+1));
|
|
hreserve(hbsz(5+1), 7); /* 7 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = r[5];
|
|
*--hp = r[6];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(321);
|
|
r[6] = (hendblk(5+1));
|
|
r[7+0] = r[2];
|
|
pc = objptr_from_obj(r[7+0])[0];
|
|
r[7+1] = r[6];
|
|
r[7+2] = r[1];
|
|
r += 7; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 321: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3];
|
|
r[1+5] = p[4];
|
|
r[1+6] = p[5]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r sub-read recur p form k */
|
|
if (bool_from_obj(r[1])) {
|
|
r[7+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[7+0])[0];
|
|
r[7+1] = r[6];
|
|
r[7+2] = (cx__231608);
|
|
r[7+3] = (cdr((r[5])));
|
|
r[7+4] = (mksymbol(internsym("port:")));
|
|
r[7+5] = (r[4]);
|
|
r += 7; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 6;
|
|
goto jump;
|
|
} else {
|
|
r[7] = obj_from_bool(!(is_fixnum_obj(r[5])));
|
|
r[7] = (bool_from_obj(r[7]) ? (r[7]) : obj_from_bool((fixnum_from_obj(r[5]) < (+0)) || (fixnum_from_obj(r[5]) > (+255))));
|
|
if (bool_from_obj(r[7])) {
|
|
r[7+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[7+0])[0];
|
|
r[7+1] = r[6];
|
|
r[7+2] = (cx__231602);
|
|
r[7+3] = r[5];
|
|
r[7+4] = (mksymbol(internsym("port:")));
|
|
r[7+5] = (r[4]);
|
|
r += 7; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 6;
|
|
goto jump;
|
|
} else {
|
|
hreserve(hbsz(3+1), 7); /* 7 live regs */
|
|
*--hp = r[5];
|
|
*--hp = r[6];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(322);
|
|
r[7] = (hendblk(3+1));
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[7];
|
|
r[2] = r[4];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 322: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r recur k form */
|
|
hreserve(hbsz(2+1), 5); /* 5 live regs */
|
|
*--hp = r[4];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(323);
|
|
r[5] = (hendblk(2+1));
|
|
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; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 323: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r k form */
|
|
{ /* 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;
|
|
|
|
s_sub_2Dread_2Dlist: /* k c p close-token dot? dot simple? shared char-delimiter? sub-read-x-char-escape sub-read-strsym-char-escape sub-read-number-or-symbol close-bracket close-paren reader-token? */
|
|
hreserve(hbsz(10+1), 15); /* 15 live regs */
|
|
*--hp = (r[14]);
|
|
*--hp = (r[13]);
|
|
*--hp = (r[12]);
|
|
*--hp = (r[11]);
|
|
*--hp = (r[10]);
|
|
*--hp = r[9];
|
|
*--hp = r[8];
|
|
*--hp = r[7];
|
|
*--hp = r[6];
|
|
*--hp = r[5];
|
|
*--hp = obj_from_case(331);
|
|
r[15] = (hendblk(10+1));
|
|
hreserve(hbsz(10+1), 16); /* 16 live regs */
|
|
*--hp = (r[14]);
|
|
*--hp = (r[13]);
|
|
*--hp = (r[12]);
|
|
*--hp = (r[11]);
|
|
*--hp = (r[10]);
|
|
*--hp = r[9];
|
|
*--hp = r[8];
|
|
*--hp = r[7];
|
|
*--hp = r[6];
|
|
*--hp = r[5];
|
|
*--hp = obj_from_case(355);
|
|
r[16] = (hendblk(10+1));
|
|
hreserve(hbsz(8+1), 17); /* 17 live regs */
|
|
*--hp = r[5];
|
|
*--hp = r[0];
|
|
*--hp = r[2];
|
|
*--hp = r[3];
|
|
*--hp = r[4];
|
|
*--hp = (r[15]);
|
|
*--hp = (r[16]);
|
|
*--hp = (r[14]);
|
|
*--hp = obj_from_case(324);
|
|
r[16] = (hendblk(8+1));
|
|
r[0] = (r[16]);
|
|
r[1] = r[2];
|
|
r[2] = r[5];
|
|
r[3] = r[6];
|
|
r[4] = r[7];
|
|
r[5] = r[8];
|
|
r[6] = r[9];
|
|
r[7] = (r[10]);
|
|
r[8] = (r[11]);
|
|
r[9] = (r[12]);
|
|
r[10] = (r[13]);
|
|
r[11] = (r[14]);
|
|
goto s_sub_2Dread;
|
|
|
|
case 324: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+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 reader-token? sub-read-carefully sub-read dot? close-token p k dot */
|
|
r[10] = (objptr_from_obj(r[9])[0]);
|
|
r[10] = obj_from_bool((r[1]) == (r[10]));
|
|
if (bool_from_obj(r[10])) {
|
|
r[0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[8];
|
|
r[2] = (cx__231642);
|
|
r[3] = (mksymbol(internsym("port:")));
|
|
r[4] = (r[7]);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
} else {
|
|
r[10+0] = r[8];
|
|
r[10+1] = r[1];
|
|
r[10+2] = r[2];
|
|
r[10+3] = r[3];
|
|
r[10+4] = r[4];
|
|
r[10+5] = r[5];
|
|
r[10+6] = r[9];
|
|
r[10+7] = r[6];
|
|
r[10+8] = r[7];
|
|
r += 10; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_recur_v12274;
|
|
}
|
|
|
|
case 325: /* clo k form */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3];
|
|
r[1+5] = p[4];
|
|
r[1+6] = p[5];
|
|
r[1+7] = p[6];
|
|
r[1+8] = p[7]; }
|
|
r += 1; /* shift reg. wnd */
|
|
s_recur_v12274: /* k form reader-token? sub-read-carefully sub-read dot? dot close-token p */
|
|
if ((iseof((r[1])))) {
|
|
r[9+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[9+0])[0];
|
|
r[9+1] = r[0];
|
|
r[9+2] = (cx__231637);
|
|
r[9+3] = (mksymbol(internsym("port:")));
|
|
r[9+4] = (r[8]);
|
|
r += 9; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
} else {
|
|
if (((r[1]) == (r[7]))) {
|
|
/* 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[9] = (objptr_from_obj(r[6])[0]);
|
|
r[9] = obj_from_bool((r[1]) == (r[9]));
|
|
if (bool_from_obj(r[9])) {
|
|
if (bool_from_obj(r[5])) {
|
|
hreserve(hbsz(4+1), 9); /* 9 live regs */
|
|
*--hp = r[7];
|
|
*--hp = r[0];
|
|
*--hp = r[8];
|
|
*--hp = r[4];
|
|
*--hp = obj_from_case(326);
|
|
r[9] = (hendblk(4+1));
|
|
r[10+0] = r[3];
|
|
pc = objptr_from_obj(r[10+0])[0];
|
|
r[10+1] = r[9];
|
|
r[10+2] = r[8];
|
|
r += 10; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[9+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[9+0])[0];
|
|
r[9+1] = r[0];
|
|
r[9+2] = (cx__231627);
|
|
r[9+3] = (mksymbol(internsym("port:")));
|
|
r[9+4] = (r[8]);
|
|
r += 9; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
}
|
|
} else {
|
|
hreserve(hbsz(7+1), 9); /* 9 live regs */
|
|
*--hp = r[8];
|
|
*--hp = r[7];
|
|
*--hp = r[6];
|
|
*--hp = r[5];
|
|
*--hp = r[4];
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(325);
|
|
r[9] = (hendblk(7+1));
|
|
hreserve(hbsz(5+1), 10); /* 10 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = r[8];
|
|
*--hp = r[9];
|
|
*--hp = r[4];
|
|
*--hp = obj_from_case(328);
|
|
r[9] = (hendblk(5+1));
|
|
r[10+0] = r[2];
|
|
pc = objptr_from_obj(r[10+0])[0];
|
|
r[10+1] = r[9];
|
|
r[10+2] = r[1];
|
|
r += 10; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
}
|
|
|
|
case 326: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(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 sub-read p k close-token */
|
|
hreserve(hbsz(4+1), 6); /* 6 live regs */
|
|
*--hp = r[5];
|
|
*--hp = r[1];
|
|
*--hp = r[4];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(327);
|
|
r[6] = (hendblk(4+1));
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[6];
|
|
r[2] = r[3];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 327: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3];
|
|
r[1+5] = p[4]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r p k r close-token */
|
|
if (((r[1]) == (r[5]))) {
|
|
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[6+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = r[3];
|
|
r[6+2] = (cx__231630);
|
|
r[6+3] = r[1];
|
|
r[6+4] = (mksymbol(internsym("port:")));
|
|
r[6+5] = (r[2]);
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 6;
|
|
goto jump;
|
|
}
|
|
|
|
case 328: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3];
|
|
r[1+5] = p[4];
|
|
r[1+6] = p[5]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r sub-read recur p form k */
|
|
if (bool_from_obj(r[1])) {
|
|
r[7+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[7+0])[0];
|
|
r[7+1] = r[6];
|
|
r[7+2] = (cx__231626);
|
|
r[7+3] = (cdr((r[5])));
|
|
r[7+4] = (mksymbol(internsym("port:")));
|
|
r[7+5] = (r[4]);
|
|
r += 7; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 6;
|
|
goto jump;
|
|
} else {
|
|
hreserve(hbsz(3+1), 7); /* 7 live regs */
|
|
*--hp = r[5];
|
|
*--hp = r[6];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(329);
|
|
r[7] = (hendblk(3+1));
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[7];
|
|
r[2] = r[4];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
|
|
case 329: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r recur k form */
|
|
hreserve(hbsz(2+1), 5); /* 5 live regs */
|
|
*--hp = r[4];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(330);
|
|
r[5] = (hendblk(2+1));
|
|
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; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 330: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r k form */
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[4] = (hendblk(3)); }
|
|
r[5+0] = r[2];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = r[4];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 331: /* clo k p */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3];
|
|
r[1+5] = p[4];
|
|
r[1+6] = p[5];
|
|
r[1+7] = p[6];
|
|
r[1+8] = p[7];
|
|
r[1+9] = p[8];
|
|
r[1+10] = p[9];
|
|
r[1+11] = p[10]; }
|
|
r += 1; /* shift reg. wnd */
|
|
s_sub_2Dread: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape sub-read-strsym-char-escape sub-read-number-or-symbol close-bracket close-paren reader-token? */
|
|
hreserve(hbsz(10+1), 12); /* 12 live regs */
|
|
*--hp = (r[11]);
|
|
*--hp = (r[10]);
|
|
*--hp = r[9];
|
|
*--hp = r[8];
|
|
*--hp = r[7];
|
|
*--hp = r[6];
|
|
*--hp = r[5];
|
|
*--hp = r[4];
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(355);
|
|
r[12] = (hendblk(10+1));
|
|
hreserve(hbsz(10+1), 13); /* 13 live regs */
|
|
*--hp = (r[11]);
|
|
*--hp = (r[10]);
|
|
*--hp = r[9];
|
|
*--hp = r[8];
|
|
*--hp = r[7];
|
|
*--hp = r[6];
|
|
*--hp = r[5];
|
|
*--hp = r[4];
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(331);
|
|
r[13] = (hendblk(10+1));
|
|
{ int c = iportgetc((r[1])); r[14] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
if ((iseof((r[14])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = (r[14]);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((isspace(char_from_obj(r[14])))) {
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
/* r[3] */
|
|
/* r[4] */
|
|
/* r[5] */
|
|
/* r[6] */
|
|
/* r[7] */
|
|
/* r[8] */
|
|
/* r[9] */
|
|
r[10] = (r[10]);
|
|
r[11] = (r[11]);
|
|
goto s_sub_2Dread;
|
|
} else {
|
|
if ((char_from_obj(r[14]) == ('('))) {
|
|
r[15] = (objptr_from_obj(r[10])[0]);
|
|
r[16+0] = r[0];
|
|
r[16+1] = (r[14]);
|
|
r[16+2] = r[1];
|
|
r[16+3] = (r[15]);
|
|
r[16+4] = obj_from_bool(1);
|
|
r[16+5] = r[2];
|
|
r[16+6] = r[3];
|
|
r[16+7] = r[4];
|
|
r[16+8] = r[5];
|
|
r[16+9] = r[6];
|
|
r[16+10] = r[7];
|
|
r[16+11] = r[8];
|
|
r[16+12] = r[9];
|
|
r[16+13] = (r[10]);
|
|
r[16+14] = (r[11]);
|
|
r += 16; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_sub_2Dread_2Dlist;
|
|
} else {
|
|
if ((char_from_obj(r[14]) == (')'))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = (objptr_from_obj(r[10])[0]);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((char_from_obj(r[14]) == ('['))) {
|
|
r[15] = (objptr_from_obj(r[9])[0]);
|
|
r[16+0] = r[0];
|
|
r[16+1] = (r[14]);
|
|
r[16+2] = r[1];
|
|
r[16+3] = (r[15]);
|
|
r[16+4] = obj_from_bool(1);
|
|
r[16+5] = r[2];
|
|
r[16+6] = r[3];
|
|
r[16+7] = r[4];
|
|
r[16+8] = r[5];
|
|
r[16+9] = r[6];
|
|
r[16+10] = r[7];
|
|
r[16+11] = r[8];
|
|
r[16+12] = r[9];
|
|
r[16+13] = (r[10]);
|
|
r[16+14] = (r[11]);
|
|
r += 16; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_sub_2Dread_2Dlist;
|
|
} else {
|
|
if ((char_from_obj(r[14]) == (']'))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = (objptr_from_obj(r[9])[0]);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((char_from_obj(r[14]) == (39))) {
|
|
hreserve(hbsz(1+1), 15); /* 15 live regs */
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(332);
|
|
r[15] = (hendblk(1+1));
|
|
r[0] = (r[15]);
|
|
/* r[1] */
|
|
/* r[2] */
|
|
/* r[3] */
|
|
/* r[4] */
|
|
/* r[5] */
|
|
/* r[6] */
|
|
/* r[7] */
|
|
/* r[8] */
|
|
/* r[9] */
|
|
r[10] = (r[10]);
|
|
r[11] = (r[11]);
|
|
goto s_sub_2Dread_2Dcarefully;
|
|
} else {
|
|
if ((char_from_obj(r[14]) == ('`'))) {
|
|
hreserve(hbsz(1+1), 15); /* 15 live regs */
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(333);
|
|
r[15] = (hendblk(1+1));
|
|
r[0] = (r[15]);
|
|
/* r[1] */
|
|
/* r[2] */
|
|
/* r[3] */
|
|
/* r[4] */
|
|
/* r[5] */
|
|
/* r[6] */
|
|
/* r[7] */
|
|
/* r[8] */
|
|
/* r[9] */
|
|
r[10] = (r[10]);
|
|
r[11] = (r[11]);
|
|
goto s_sub_2Dread_2Dcarefully;
|
|
} else {
|
|
{ /* string-position */
|
|
char *s = stringchars((cx__231933)), *p = strchr(s, char_from_obj(r[14]));
|
|
if (p) r[15] = obj_from_fixnum(p-s); else r[15] = obj_from_bool(0); }
|
|
if (bool_from_obj(r[15])) {
|
|
r[15+0] = r[8];
|
|
pc = objptr_from_obj(r[15+0])[0];
|
|
r[15+1] = r[0];
|
|
r[15+2] = (r[14]);
|
|
r[15+3] = r[1];
|
|
r += 15; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
} else {
|
|
if ((char_from_obj(r[14]) == (';'))) {
|
|
{ int c = iportgetc((r[1])); r[15] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
hreserve(hbsz(3+1), 16); /* 16 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = (r[13]);
|
|
*--hp = obj_from_case(334);
|
|
r[16] = (hendblk(3+1));
|
|
r[17+0] = (r[16]);
|
|
r[17+1] = (r[15]);
|
|
r[17+2] = r[1];
|
|
r += 17; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_loop_v12238;
|
|
} else {
|
|
if ((char_from_obj(r[14]) == (','))) {
|
|
{ int c = iportpeekc((r[1])); r[15] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
if ((iseof((r[15])))) {
|
|
r[16+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[16+0])[0];
|
|
r[16+1] = r[0];
|
|
r[16+2] = (cx__231848);
|
|
r[16+3] = (mksymbol(internsym("port:")));
|
|
r[16+4] = (r[1]);
|
|
r += 16; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
} else {
|
|
if ((char_from_obj(r[15]) == ('@'))) {
|
|
{ int c = iportgetc((r[1])); (void)(c == EOF ? mkeof() : obj_from_char(c)); }
|
|
hreserve(hbsz(1+1), 16); /* 16 live regs */
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(335);
|
|
r[16] = (hendblk(1+1));
|
|
r[0] = (r[16]);
|
|
/* r[1] */
|
|
/* r[2] */
|
|
/* r[3] */
|
|
/* r[4] */
|
|
/* r[5] */
|
|
/* r[6] */
|
|
/* r[7] */
|
|
/* r[8] */
|
|
/* r[9] */
|
|
r[10] = (r[10]);
|
|
r[11] = (r[11]);
|
|
goto s_sub_2Dread_2Dcarefully;
|
|
} else {
|
|
hreserve(hbsz(1+1), 16); /* 16 live regs */
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(336);
|
|
r[16] = (hendblk(1+1));
|
|
r[0] = (r[16]);
|
|
/* r[1] */
|
|
/* r[2] */
|
|
/* r[3] */
|
|
/* r[4] */
|
|
/* r[5] */
|
|
/* r[6] */
|
|
/* r[7] */
|
|
/* r[8] */
|
|
/* r[9] */
|
|
r[10] = (r[10]);
|
|
r[11] = (r[11]);
|
|
goto s_sub_2Dread_2Dcarefully;
|
|
}
|
|
}
|
|
} else {
|
|
if ((char_from_obj(r[14]) == (34))) {
|
|
r[15+0] = r[0];
|
|
r[15+1] = (mknull());
|
|
r[15+2] = r[7];
|
|
r[15+3] = r[1];
|
|
r += 15; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_loop_v12209;
|
|
} else {
|
|
if ((char_from_obj(r[14]) == ('|'))) {
|
|
r[15+0] = r[0];
|
|
r[15+1] = (mknull());
|
|
r[15+2] = r[7];
|
|
r[15+3] = r[1];
|
|
r += 15; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_loop_v12198;
|
|
} else {
|
|
if ((char_from_obj(r[14]) == ('#'))) {
|
|
{ int c = iportpeekc((r[1])); r[15] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
if ((iseof((r[15])))) {
|
|
r[16+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[16+0])[0];
|
|
r[16+1] = r[0];
|
|
r[16+2] = (cx__231805);
|
|
r[16+3] = (mksymbol(internsym("port:")));
|
|
r[16+4] = (r[1]);
|
|
r += 16; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
} else {
|
|
if (((tolower(char_from_obj(r[15])) == tolower(('t'))) || (tolower(char_from_obj(r[15])) == tolower(('f'))))) {
|
|
hreserve(hbsz(2+1), 16); /* 16 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(341);
|
|
r[16] = (hendblk(2+1));
|
|
r[0] = (r[16]);
|
|
/* r[1] */
|
|
/* r[2] */
|
|
/* r[3] */
|
|
/* r[4] */
|
|
/* r[5] */
|
|
/* r[6] */
|
|
/* r[7] */
|
|
/* r[8] */
|
|
/* r[9] */
|
|
r[10] = (r[10]);
|
|
r[11] = (r[11]);
|
|
goto s_sub_2Dread_2Dcarefully;
|
|
} else {
|
|
if (((tolower(char_from_obj(r[15])) == tolower(('b'))) || ((tolower(char_from_obj(r[15])) == tolower(('o'))) || ((tolower(char_from_obj(r[15])) == tolower(('d'))) || ((tolower(char_from_obj(r[15])) == tolower(('x'))) || ((tolower(char_from_obj(r[15])) == tolower(('i'))) || (tolower(char_from_obj(r[15])) == tolower(('e'))))))))) {
|
|
r[16+0] = r[8];
|
|
pc = objptr_from_obj(r[16+0])[0];
|
|
r[16+1] = r[0];
|
|
r[16+2] = obj_from_char('#');
|
|
r[16+3] = r[1];
|
|
r += 16; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
} else {
|
|
if ((char_from_obj(r[15]) == ('&'))) {
|
|
{ int c = iportgetc((r[1])); (void)(c == EOF ? mkeof() : obj_from_char(c)); }
|
|
hreserve(hbsz(1+1), 16); /* 16 live regs */
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(342);
|
|
r[16] = (hendblk(1+1));
|
|
r[0] = (r[16]);
|
|
/* r[1] */
|
|
/* r[2] */
|
|
/* r[3] */
|
|
/* r[4] */
|
|
/* r[5] */
|
|
/* r[6] */
|
|
/* r[7] */
|
|
/* r[8] */
|
|
/* r[9] */
|
|
r[10] = (r[10]);
|
|
r[11] = (r[11]);
|
|
goto s_sub_2Dread_2Dcarefully;
|
|
} else {
|
|
if ((char_from_obj(r[15]) == (';'))) {
|
|
{ int c = iportgetc((r[1])); (void)(c == EOF ? mkeof() : obj_from_char(c)); }
|
|
hreserve(hbsz(3+1), 16); /* 16 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = (r[13]);
|
|
*--hp = obj_from_case(343);
|
|
r[16] = (hendblk(3+1));
|
|
r[0] = (r[16]);
|
|
/* r[1] */
|
|
/* r[2] */
|
|
/* r[3] */
|
|
/* r[4] */
|
|
/* r[5] */
|
|
/* r[6] */
|
|
/* r[7] */
|
|
/* r[8] */
|
|
/* r[9] */
|
|
r[10] = (r[10]);
|
|
r[11] = (r[11]);
|
|
goto s_sub_2Dread_2Dcarefully;
|
|
} else {
|
|
if ((char_from_obj(r[15]) == ('|'))) {
|
|
{ int c = iportgetc((r[1])); (void)(c == EOF ? mkeof() : obj_from_char(c)); }
|
|
hreserve(hbsz(3+1), 16); /* 16 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = (r[13]);
|
|
*--hp = obj_from_case(346);
|
|
r[16] = (hendblk(3+1));
|
|
r[0] = (r[16]);
|
|
/* r[1] */
|
|
goto s_recur_v12171;
|
|
} else {
|
|
if ((char_from_obj(r[15]) == ('('))) {
|
|
{ int c = iportgetc((r[1])); (void)(c == EOF ? mkeof() : obj_from_char(c)); }
|
|
r[16] = (objptr_from_obj(r[10])[0]);
|
|
hreserve(hbsz(1+1), 17); /* 17 live regs */
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(347);
|
|
r[17] = (hendblk(1+1));
|
|
r[18+0] = (r[17]);
|
|
r[18+1] = (r[15]);
|
|
r[18+2] = r[1];
|
|
r[18+3] = (r[16]);
|
|
r[18+4] = obj_from_bool(0);
|
|
r[18+5] = r[2];
|
|
r[18+6] = r[3];
|
|
r[18+7] = r[4];
|
|
r[18+8] = r[5];
|
|
r[18+9] = r[6];
|
|
r[18+10] = r[7];
|
|
r[18+11] = r[8];
|
|
r[18+12] = r[9];
|
|
r[18+13] = (r[10]);
|
|
r[18+14] = (r[11]);
|
|
r += 18; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_sub_2Dread_2Dlist;
|
|
} else {
|
|
if ((char_from_obj(r[15]) == ('u'))) {
|
|
{ int c = iportgetc((r[1])); (void)(c == EOF ? mkeof() : obj_from_char(c)); }
|
|
{ int c = iportgetc((r[1])); r[16] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
r[16] = obj_from_bool((r[16]) == obj_from_char('8'));
|
|
if (bool_from_obj(r[16])) {
|
|
{ int c = iportgetc((r[1])); r[16] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
r[16] = obj_from_bool((r[16]) == obj_from_char('('));
|
|
} else {
|
|
r[16] = obj_from_bool(0);
|
|
}
|
|
if (bool_from_obj(r[16])) {
|
|
hreserve(hbsz(1+1), 16); /* 16 live regs */
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(348);
|
|
r[16] = (hendblk(1+1));
|
|
r[0] = (r[16]);
|
|
/* r[1] */
|
|
/* r[2] */
|
|
/* r[3] */
|
|
/* r[4] */
|
|
/* r[5] */
|
|
/* r[6] */
|
|
/* r[7] */
|
|
/* r[8] */
|
|
/* r[9] */
|
|
r[10] = (r[10]);
|
|
r[11] = (r[11]);
|
|
goto s_sub_2Dread_2Dbyte_2Dlist;
|
|
} else {
|
|
r[16+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[16+0])[0];
|
|
r[16+1] = r[0];
|
|
r[16+2] = (cx__231758);
|
|
r[16+3] = (mksymbol(internsym("port:")));
|
|
r[16+4] = (r[1]);
|
|
r += 16; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
}
|
|
} else {
|
|
if ((char_from_obj(r[15]) == (92))) {
|
|
{ int c = iportgetc((r[1])); (void)(c == EOF ? mkeof() : obj_from_char(c)); }
|
|
{ int c = iportpeekc((r[1])); r[16] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
if ((iseof((r[16])))) {
|
|
r[17+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[17+0])[0];
|
|
r[17+1] = r[0];
|
|
r[17+2] = (cx__231755);
|
|
r[17+3] = (mksymbol(internsym("port:")));
|
|
r[17+4] = (r[1]);
|
|
r += 17; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
} else {
|
|
if ((('x') == char_from_obj(r[16]))) {
|
|
{ int c = iportgetc((r[1])); (void)(c == EOF ? mkeof() : obj_from_char(c)); }
|
|
hreserve(hbsz(4+1), 17); /* 17 live regs */
|
|
*--hp = (r[16]);
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = r[6];
|
|
*--hp = obj_from_case(349);
|
|
r[17] = (hendblk(4+1));
|
|
{ int c = iportpeekc((r[1])); r[18] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
r[19+0] = r[5];
|
|
pc = objptr_from_obj(r[19+0])[0];
|
|
r[19+1] = (r[17]);
|
|
r[19+2] = (r[18]);
|
|
r += 19; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((isalpha(char_from_obj(r[16])))) {
|
|
hreserve(hbsz(3+1), 17); /* 17 live regs */
|
|
*--hp = (r[16]);
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(350);
|
|
r[17] = (hendblk(3+1));
|
|
r[0] = (r[17]);
|
|
/* r[1] */
|
|
/* r[2] */
|
|
/* r[3] */
|
|
/* r[4] */
|
|
/* r[5] */
|
|
/* r[6] */
|
|
/* r[7] */
|
|
/* r[8] */
|
|
/* r[9] */
|
|
r[10] = (r[10]);
|
|
r[11] = (r[11]);
|
|
goto s_sub_2Dread_2Dcarefully;
|
|
} else {
|
|
{ int c = iportgetc((r[1])); (void)(c == EOF ? mkeof() : obj_from_char(c)); }
|
|
r[17] = (r[16]);
|
|
r[18+0] = r[0];
|
|
pc = objptr_from_obj(r[18+0])[0];
|
|
r[18+1] = obj_from_ktrap();
|
|
r[18+2] = (r[17]);
|
|
r += 18; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
}
|
|
} else {
|
|
if ((isdigit(char_from_obj(r[15])))) {
|
|
hreserve(hbsz(4+1), 16); /* 16 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = r[4];
|
|
*--hp = (r[12]);
|
|
*--hp = obj_from_case(351);
|
|
r[16] = (hendblk(4+1));
|
|
if (bool_from_obj(r[3])) {
|
|
r[17+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[17+0])[0];
|
|
r[17+1] = (r[16]);
|
|
r[17+2] = (cx__231697);
|
|
r[17+3] = (mksymbol(internsym("port:")));
|
|
r[17+4] = (r[1]);
|
|
r += 17; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
} else {
|
|
r[17+0] = obj_from_ktrap();
|
|
r[17+1] = obj_from_void(0);
|
|
r[17+2] = (r[12]);
|
|
r[17+3] = r[4];
|
|
r[17+4] = r[1];
|
|
r[17+5] = r[0];
|
|
r += 17; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_l_v12115;
|
|
}
|
|
} else {
|
|
r[16+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[16+0])[0];
|
|
r[16+1] = r[0];
|
|
r[16+2] = (cx__231649);
|
|
r[16+3] = (r[15]);
|
|
r[16+4] = (mksymbol(internsym("port:")));
|
|
r[16+5] = (r[1]);
|
|
r += 16; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 6;
|
|
goto jump;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
} else {
|
|
r[15+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[15+0])[0];
|
|
r[15+1] = r[0];
|
|
r[15+2] = (cx__231647);
|
|
r[15+3] = (r[14]);
|
|
r[15+4] = (mksymbol(internsym("port:")));
|
|
r[15+5] = (r[1]);
|
|
r += 15; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 6;
|
|
goto jump;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
case 332: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r k */
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = (mknull());
|
|
*--hp = r[1];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[3] = (hendblk(3)); }
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = (mksymbol(internsym("quote")));
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[4] = (hendblk(3)); }
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = r[4];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 333: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r k */
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = (mknull());
|
|
*--hp = r[1];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[3] = (hendblk(3)); }
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = (mksymbol(internsym("quasiquote")));
|
|
*--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;
|
|
|
|
s_loop_v12238: /* k c p */
|
|
if ((iseof((r[1])))) {
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = obj_from_bool(iseof((r[1])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((char_from_obj(r[1]) == (10))) {
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = obj_from_bool(char_from_obj(r[1]) == (10));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
{ int c = iportgetc((r[2])); r[3] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
/* r[2] */
|
|
goto s_loop_v12238;
|
|
}
|
|
}
|
|
|
|
case 334: /* clo ek . */
|
|
assert(rc >= 2);
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek . sub-read p k */
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[4];
|
|
r[2] = r[3];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 335: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r k */
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = (mknull());
|
|
*--hp = r[1];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[3] = (hendblk(3)); }
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = (mksymbol(internsym("unquote-splicing")));
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[4] = (hendblk(3)); }
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = r[4];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 336: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r k */
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = (mknull());
|
|
*--hp = r[1];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[3] = (hendblk(3)); }
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = (mksymbol(internsym("unquote")));
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[4] = (hendblk(3)); }
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = r[4];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 337: /* clo k l */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
s_loop_v12209: /* k l sub-read-strsym-char-escape p */
|
|
hreserve(hbsz(2+1), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(337);
|
|
r[4] = (hendblk(2+1));
|
|
{ int c = iportgetc((r[3])); r[5] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
if ((iseof((r[5])))) {
|
|
r[6+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = r[0];
|
|
r[6+2] = (cx__231562);
|
|
r[6+3] = (mksymbol(internsym("port:")));
|
|
r[6+4] = (r[3]);
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
} else {
|
|
if ((char_from_obj(r[5]) == (92))) {
|
|
hreserve(hbsz(3+1), 6); /* 6 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = r[4];
|
|
*--hp = obj_from_case(338);
|
|
r[6] = (hendblk(3+1));
|
|
r[7+0] = r[2];
|
|
pc = objptr_from_obj(r[7+0])[0];
|
|
r[7+1] = r[6];
|
|
r[7+2] = r[3];
|
|
r[7+3] = (mksymbol(internsym("string")));
|
|
r += 7; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
} else {
|
|
if ((char_from_obj(r[5]) == (34))) {
|
|
{ /* reverse! */
|
|
obj t, v = mknull(), l = r[1];
|
|
while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
|
|
r[6] = (v); }
|
|
{ fixnum_t v14722_tmp;
|
|
{ /* length */
|
|
int n; obj l = r[6];
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
v14722_tmp = (n); }
|
|
{ /* list->string */
|
|
int i, c = (v14722_tmp);
|
|
obj o = hpushstr(7, allocstring(c, ' ')); /* 7 live regs */
|
|
obj l = r[6]; /* gc-safe */
|
|
unsigned char *s = (unsigned char *)stringchars(o);
|
|
for (i = 0; i < c; ++i, l = cdr(l)) s[i] = (unsigned char)char_from_obj(car(l));
|
|
r[6] = (o); } }
|
|
r[7+0] = r[0];
|
|
pc = objptr_from_obj(r[7+0])[0];
|
|
r[7+1] = obj_from_ktrap();
|
|
r[7+2] = r[6];
|
|
r += 7; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[5];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[6] = (hendblk(3)); }
|
|
/* r[0] */
|
|
r[1] = r[6];
|
|
/* r[2] */
|
|
/* r[3] */
|
|
goto s_loop_v12209;
|
|
}
|
|
}
|
|
}
|
|
|
|
case 338: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r loop l k */
|
|
if (bool_from_obj(r[1])) {
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[5] = (hendblk(3)); }
|
|
} else {
|
|
r[5] = r[3];
|
|
}
|
|
r[6+0] = r[2];
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = r[4];
|
|
r[6+2] = r[5];
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 339: /* clo k l */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
s_loop_v12198: /* k l sub-read-strsym-char-escape p */
|
|
hreserve(hbsz(2+1), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(339);
|
|
r[4] = (hendblk(2+1));
|
|
{ int c = iportgetc((r[3])); r[5] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
if ((iseof((r[5])))) {
|
|
r[6+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = r[0];
|
|
r[6+2] = (cx__231818);
|
|
r[6+3] = (mksymbol(internsym("port:")));
|
|
r[6+4] = (r[3]);
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
} else {
|
|
if ((char_from_obj(r[5]) == (92))) {
|
|
hreserve(hbsz(3+1), 6); /* 6 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = r[4];
|
|
*--hp = obj_from_case(340);
|
|
r[6] = (hendblk(3+1));
|
|
r[7+0] = r[2];
|
|
pc = objptr_from_obj(r[7+0])[0];
|
|
r[7+1] = r[6];
|
|
r[7+2] = r[3];
|
|
r[7+3] = (mksymbol(internsym("symbol")));
|
|
r += 7; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
} else {
|
|
if ((char_from_obj(r[5]) == ('|'))) {
|
|
{ /* reverse! */
|
|
obj t, v = mknull(), l = r[1];
|
|
while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
|
|
r[6] = (v); }
|
|
{ fixnum_t v14721_tmp;
|
|
{ /* length */
|
|
int n; obj l = r[6];
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
v14721_tmp = (n); }
|
|
{ /* list->string */
|
|
int i, c = (v14721_tmp);
|
|
obj o = hpushstr(7, allocstring(c, ' ')); /* 7 live regs */
|
|
obj l = r[6]; /* gc-safe */
|
|
unsigned char *s = (unsigned char *)stringchars(o);
|
|
for (i = 0; i < c; ++i, l = cdr(l)) s[i] = (unsigned char)char_from_obj(car(l));
|
|
r[6] = (o); } }
|
|
r[6] = (mksymbol(internsym(stringchars((r[6])))));
|
|
r[7+0] = r[0];
|
|
pc = objptr_from_obj(r[7+0])[0];
|
|
r[7+1] = obj_from_ktrap();
|
|
r[7+2] = r[6];
|
|
r += 7; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[5];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[6] = (hendblk(3)); }
|
|
/* r[0] */
|
|
r[1] = r[6];
|
|
/* r[2] */
|
|
/* r[3] */
|
|
goto s_loop_v12198;
|
|
}
|
|
}
|
|
}
|
|
|
|
case 340: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r loop l k */
|
|
if (bool_from_obj(r[1])) {
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[5] = (hendblk(3)); }
|
|
} else {
|
|
r[5] = r[3];
|
|
}
|
|
r[6+0] = r[2];
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = r[4];
|
|
r[6+2] = r[5];
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 341: /* clo 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 p k */
|
|
if ((((r[1]) == (mksymbol(internsym("t")))) ? (1) : (((r[1]) == (mksymbol(internsym("true")))) && (1)))) {
|
|
r[0] = r[3];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(1);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((((r[1]) == (mksymbol(internsym("f")))) ? (1) : (((r[1]) == (mksymbol(internsym("false")))) && (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 {
|
|
r[4+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = r[3];
|
|
r[4+2] = (cx__231791);
|
|
r[4+3] = r[1];
|
|
r[4+4] = (mksymbol(internsym("port:")));
|
|
r[4+5] = (r[2]);
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 6;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 342: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r k */
|
|
{ /* box */
|
|
hreserve(hbsz(2), 3); /* 3 live regs */
|
|
*--hp = r[1];
|
|
*--hp = obj_from_size(BOX_BTAG);
|
|
r[3] = (hendblk(2)); }
|
|
r[4+0] = r[2];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 343: /* clo ek . */
|
|
assert(rc >= 2);
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek . sub-read p k */
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[4];
|
|
r[2] = r[3];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 344: /* clo k */
|
|
assert(rc == 2);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+1] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
s_recur_v12171: /* k p */
|
|
hreserve(hbsz(1+1), 2); /* 2 live regs */
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(344);
|
|
r[2] = (hendblk(1+1));
|
|
{ int c = iportgetc((r[1])); r[3] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
if ((iseof((r[3])))) {
|
|
r[4+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = r[0];
|
|
r[4+2] = (cx__231770);
|
|
r[4+3] = (mksymbol(internsym("port:")));
|
|
r[4+4] = (r[1]);
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
} else {
|
|
if ((char_from_obj(r[3]) == ('|'))) {
|
|
{ int c = iportpeekc((r[1])); r[4] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
if ((iseof((r[4])))) {
|
|
r[5+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = r[0];
|
|
r[5+2] = (cx__231770);
|
|
r[5+3] = (mksymbol(internsym("port:")));
|
|
r[5+4] = (r[1]);
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
} else {
|
|
if ((char_from_obj(r[4]) == ('#'))) {
|
|
{ int c = iportgetc((r[1])); r[5] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
r[6+0] = r[0];
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = obj_from_ktrap();
|
|
r[6+2] = r[5];
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
/* r[0] */
|
|
/* r[1] */
|
|
goto s_recur_v12171;
|
|
}
|
|
}
|
|
} else {
|
|
if ((char_from_obj(r[3]) == ('#'))) {
|
|
{ int c = iportpeekc((r[1])); r[4] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
if ((iseof((r[4])))) {
|
|
r[5+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = r[0];
|
|
r[5+2] = (cx__231770);
|
|
r[5+3] = (mksymbol(internsym("port:")));
|
|
r[5+4] = (r[1]);
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
} else {
|
|
if ((char_from_obj(r[4]) == ('|'))) {
|
|
{ int c = iportgetc((r[1])); (void)(c == EOF ? mkeof() : obj_from_char(c)); }
|
|
hreserve(hbsz(2+1), 5); /* 5 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(345);
|
|
r[5] = (hendblk(2+1));
|
|
r[0] = r[5];
|
|
/* r[1] */
|
|
goto s_recur_v12171;
|
|
} else {
|
|
/* r[0] */
|
|
/* r[1] */
|
|
goto s_recur_v12171;
|
|
}
|
|
}
|
|
} else {
|
|
/* r[0] */
|
|
/* r[1] */
|
|
goto s_recur_v12171;
|
|
}
|
|
}
|
|
}
|
|
|
|
case 345: /* clo ek . */
|
|
assert(rc >= 2);
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek . recur k */
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[3];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 2;
|
|
goto jump;
|
|
|
|
case 346: /* clo ek . */
|
|
assert(rc >= 2);
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek . sub-read p k */
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[4];
|
|
r[2] = r[3];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 347: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r k */
|
|
{ fixnum_t v14720_tmp;
|
|
{ /* length */
|
|
int n; obj l = r[1];
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
v14720_tmp = (n); }
|
|
{ /* list->vector */
|
|
obj l; int i, c = (v14720_tmp);
|
|
hreserve(hbsz(c+1), 3); /* 3 live regs */
|
|
l = r[1]; /* gc-safe */
|
|
for (i = 0; i < c; ++i, l = cdr(l)) hp[i-c] = car(l);
|
|
hp -= c; *--hp = obj_from_size(VECTOR_BTAG);
|
|
r[3] = (hendblk(c+1)); } }
|
|
r[4+0] = r[2];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 348: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r k */
|
|
{ fixnum_t v14719_tmp;
|
|
{ /* length */
|
|
int n; obj l = r[1];
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
v14719_tmp = (n); }
|
|
{ /* list->bytevector */
|
|
int i, c = (v14719_tmp);
|
|
obj o = hpushu8v(3, allocbytevector(c)); /* 3 live regs */
|
|
obj l = r[1]; /* gc-safe */
|
|
unsigned char *s = bytevectorbytes(o);
|
|
for (i = 0; i < c; ++i, l = cdr(l)) s[i] = byte_from_obj(car(l));
|
|
r[3] = (o); } }
|
|
r[4+0] = r[2];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 349: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3];
|
|
r[1+5] = p[4]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r sub-read-x-char-escape p k c */
|
|
if (bool_from_obj(r[1])) {
|
|
r[0] = r[4];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = r[5];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[4];
|
|
r[2] = r[3];
|
|
r[3] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
}
|
|
|
|
case 350: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_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 p k c */
|
|
{ fixnum_t v14718_a;
|
|
r[5] = (hpushstr(5, newstring(symbolname(getsymbol((r[1]))))));
|
|
v14718_a = (stringlen((r[5])));
|
|
r[5] = obj_from_bool((v14718_a) == (+1)); }
|
|
if (bool_from_obj(r[5])) {
|
|
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 {
|
|
if ((((r[1]) == (mksymbol(internsym("null")))) && (1))) {
|
|
r[0] = r[3];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_char((char_t)(+0));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((((r[1]) == (mksymbol(internsym("space")))) && (1))) {
|
|
r[0] = r[3];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_char(' ');
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((((r[1]) == (mksymbol(internsym("alarm")))) && (1))) {
|
|
r[0] = r[3];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_char(7);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((((r[1]) == (mksymbol(internsym("backspace")))) && (1))) {
|
|
r[0] = r[3];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_char(8);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((((r[1]) == (mksymbol(internsym("delete")))) && (1))) {
|
|
r[0] = r[3];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_char((char_t)(+127));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((((r[1]) == (mksymbol(internsym("escape")))) && (1))) {
|
|
r[0] = r[3];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_char((char_t)(+27));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((((r[1]) == (mksymbol(internsym("tab")))) && (1))) {
|
|
r[0] = r[3];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_char(9);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((((r[1]) == (mksymbol(internsym("newline")))) ? (1) : (((r[1]) == (mksymbol(internsym("linefeed")))) && (1)))) {
|
|
r[0] = r[3];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_char(10);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((((r[1]) == (mksymbol(internsym("vtab")))) && (1))) {
|
|
r[0] = r[3];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_char(11);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((((r[1]) == (mksymbol(internsym("page")))) && (1))) {
|
|
r[0] = r[3];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_char(12);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((((r[1]) == (mksymbol(internsym("return")))) && (1))) {
|
|
r[0] = r[3];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_char(13);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[5+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = r[3];
|
|
r[5+2] = (cx__231704);
|
|
r[5+3] = r[1];
|
|
r[5+4] = (mksymbol(internsym("port:")));
|
|
r[5+5] = (r[2]);
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 6;
|
|
goto jump;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
case 351: /* clo ek . */
|
|
assert(rc >= 2);
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3];
|
|
r[1+5] = p[4]; }
|
|
r += 1; /* shift reg. wnd */
|
|
s_l_v12115: /* ek . sub-read-carefully shared p k */
|
|
r[0] = r[5];
|
|
r[1] = (mknull());
|
|
/* r[2] */
|
|
/* r[3] */
|
|
/* r[4] */
|
|
goto s_loop_v12116;
|
|
|
|
s_loop_v12116: /* k l sub-read-carefully shared p */
|
|
{ int c = iportgetc((r[4])); r[5] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
if ((iseof((r[5])))) {
|
|
r[6+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = r[0];
|
|
r[6+2] = (cx__231692);
|
|
r[6+3] = (mksymbol(internsym("port:")));
|
|
r[6+4] = (r[4]);
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
} else {
|
|
if ((isdigit(char_from_obj(r[5])))) {
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[5];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[6] = (hendblk(3)); }
|
|
/* r[0] */
|
|
r[1] = r[6];
|
|
/* r[2] */
|
|
/* r[3] */
|
|
/* r[4] */
|
|
goto s_loop_v12116;
|
|
} else {
|
|
if ((char_from_obj(r[5]) == ('#'))) {
|
|
{ /* reverse! */
|
|
obj t, v = mknull(), l = r[1];
|
|
while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
|
|
r[6] = (v); }
|
|
{ fixnum_t v14717_tmp;
|
|
{ /* length */
|
|
int n; obj l = r[6];
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
v14717_tmp = (n); }
|
|
{ /* list->string */
|
|
int i, c = (v14717_tmp);
|
|
obj o = hpushstr(7, allocstring(c, ' ')); /* 7 live regs */
|
|
obj l = r[6]; /* gc-safe */
|
|
unsigned char *s = (unsigned char *)stringchars(o);
|
|
for (i = 0; i < c; ++i, l = cdr(l)) s[i] = (unsigned char)char_from_obj(car(l));
|
|
r[6] = (o); } }
|
|
{ /* string->fixnum-or-flonum */
|
|
char *s = stringchars((r[6]));
|
|
int radix = (+10); long l; double d;
|
|
if (0) r[7] = (0); /* to fool sfc unboxer */
|
|
switch (strtofxfl(s, radix, &l, &d)) {
|
|
case 'e': r[7] = obj_from_fixnum(l); break;
|
|
case 'i': r[7] = obj_from_flonum(7, d); break;
|
|
default : r[7] = obj_from_bool(0); break;
|
|
} }
|
|
if ((is_fixnum_obj(r[7]))) {
|
|
r[8] = (objptr_from_obj(r[3])[0]);
|
|
{ /* assq */
|
|
obj x = (r[7]), l = (r[8]), p = mknull();
|
|
for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
|
|
r[8] = (l == mknull() ? obj_from_bool(0) : p); }
|
|
} else {
|
|
r[8] = obj_from_bool(0);
|
|
}
|
|
if (bool_from_obj(r[8])) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = (cdr((r[8])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[9+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[9+0])[0];
|
|
r[9+1] = r[0];
|
|
r[9+2] = r[6];
|
|
r[9+3] = (mksymbol(internsym("port:")));
|
|
r[9+4] = (cx__231687);
|
|
r += 9; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
}
|
|
} else {
|
|
if ((char_from_obj(r[5]) == ('='))) {
|
|
{ /* reverse! */
|
|
obj t, v = mknull(), l = r[1];
|
|
while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
|
|
r[6] = (v); }
|
|
{ fixnum_t v14716_tmp;
|
|
{ /* length */
|
|
int n; obj l = r[6];
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
v14716_tmp = (n); }
|
|
{ /* list->string */
|
|
int i, c = (v14716_tmp);
|
|
obj o = hpushstr(7, allocstring(c, ' ')); /* 7 live regs */
|
|
obj l = r[6]; /* gc-safe */
|
|
unsigned char *s = (unsigned char *)stringchars(o);
|
|
for (i = 0; i < c; ++i, l = cdr(l)) s[i] = (unsigned char)char_from_obj(car(l));
|
|
r[6] = (o); } }
|
|
{ /* string->fixnum-or-flonum */
|
|
char *s = stringchars((r[6]));
|
|
int radix = (+10); long l; double d;
|
|
if (0) r[7] = (0); /* to fool sfc unboxer */
|
|
switch (strtofxfl(s, radix, &l, &d)) {
|
|
case 'e': r[7] = obj_from_fixnum(l); break;
|
|
case 'i': r[7] = obj_from_flonum(7, d); break;
|
|
default : r[7] = obj_from_bool(0); break;
|
|
} }
|
|
hreserve(hbsz(6+1), 8); /* 8 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[7];
|
|
*--hp = r[0];
|
|
*--hp = r[6];
|
|
*--hp = r[4];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(352);
|
|
r[8] = (hendblk(6+1));
|
|
if ((!(is_fixnum_obj(r[7])))) {
|
|
r[0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[8];
|
|
r[2] = r[6];
|
|
r[3] = (mksymbol(internsym("port:")));
|
|
r[4] = (cx__231674);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
} else {
|
|
r[9] = (objptr_from_obj(r[3])[0]);
|
|
{ /* assq */
|
|
obj x = (r[7]), l = (r[9]), p = mknull();
|
|
for (; l != mknull(); l = cdr(l)) { p = car(l); if (car(p) == x) break; }
|
|
r[9] = (l == mknull() ? obj_from_bool(0) : p); }
|
|
if (bool_from_obj(r[9])) {
|
|
r[0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[8];
|
|
r[2] = r[7];
|
|
r[3] = (mksymbol(internsym("port:")));
|
|
r[4] = (cx__231671);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
} else {
|
|
r[9+0] = obj_from_ktrap();
|
|
r[9+1] = ((0) ? obj_from_bool(0) : obj_from_void(0));
|
|
r[9+2] = r[2];
|
|
r[9+3] = r[4];
|
|
r[9+4] = r[6];
|
|
r[9+5] = r[0];
|
|
r[9+6] = r[7];
|
|
r[9+7] = r[3];
|
|
r += 9; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_l_v12118;
|
|
}
|
|
}
|
|
} else {
|
|
r[6+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = r[0];
|
|
r[6+2] = (cx__231653);
|
|
r[6+3] = (mksymbol(internsym("port:")));
|
|
r[6+4] = (r[4]);
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
case 352: /* clo ek . */
|
|
assert(rc >= 2);
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3];
|
|
r[1+5] = p[4];
|
|
r[1+6] = p[5];
|
|
r[1+7] = p[6]; }
|
|
r += 1; /* shift reg. wnd */
|
|
s_l_v12118: /* ek . sub-read-carefully p s k n shared */
|
|
{ /* box */
|
|
hreserve(hbsz(2), 8); /* 8 live regs */
|
|
*--hp = obj_from_bool(0);
|
|
*--hp = obj_from_size(BOX_BTAG);
|
|
r[8] = (hendblk(2)); }
|
|
r[9] = (objptr_from_obj(r[7])[0]);
|
|
hreserve(hbsz(1+1), 10); /* 10 live regs */
|
|
*--hp = r[8];
|
|
*--hp = obj_from_case(353);
|
|
r[10] = (hendblk(1+1));
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 11); /* 11 live regs */
|
|
*--hp = (r[10]);
|
|
*--hp = r[6];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[10] = (hendblk(3)); }
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 11); /* 11 live regs */
|
|
*--hp = r[9];
|
|
*--hp = (r[10]);
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[9] = (hendblk(3)); }
|
|
(void)(objptr_from_obj(r[7])[0] = (r[9]));
|
|
hreserve(hbsz(3+1), 9); /* 9 live regs */
|
|
*--hp = r[5];
|
|
*--hp = r[4];
|
|
*--hp = r[8];
|
|
*--hp = obj_from_case(354);
|
|
r[9] = (hendblk(3+1));
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[9];
|
|
r[2] = r[3];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 353: /* clo k */
|
|
assert(rc == 2);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+1] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k loc */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (boxref((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 354: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_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 loc s k */
|
|
if ((isprocedure((r[1])))) {
|
|
r[0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[4];
|
|
r[2] = r[3];
|
|
r[3] = (mksymbol(internsym("port:")));
|
|
r[4] = (cx__231665);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
} else {
|
|
(void)(boxref((r[2])) = (r[1]));
|
|
r[5] = r[1];
|
|
r[6+0] = r[4];
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = obj_from_ktrap();
|
|
r[6+2] = r[5];
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
|
|
case 355: /* clo k p */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3];
|
|
r[1+5] = p[4];
|
|
r[1+6] = p[5];
|
|
r[1+7] = p[6];
|
|
r[1+8] = p[7];
|
|
r[1+9] = p[8];
|
|
r[1+10] = p[9];
|
|
r[1+11] = p[10]; }
|
|
r += 1; /* shift reg. wnd */
|
|
s_sub_2Dread_2Dcarefully: /* k p dot simple? shared char-delimiter? sub-read-x-char-escape sub-read-strsym-char-escape sub-read-number-or-symbol close-bracket close-paren reader-token? */
|
|
hreserve(hbsz(3+1), 12); /* 12 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = (r[11]);
|
|
*--hp = obj_from_case(356);
|
|
r[12] = (hendblk(3+1));
|
|
r[0] = (r[12]);
|
|
/* r[1] */
|
|
/* r[2] */
|
|
/* r[3] */
|
|
/* r[4] */
|
|
/* r[5] */
|
|
/* r[6] */
|
|
/* r[7] */
|
|
/* r[8] */
|
|
/* r[9] */
|
|
r[10] = (r[10]);
|
|
r[11] = (r[11]);
|
|
goto s_sub_2Dread;
|
|
|
|
case 356: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_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 reader-token? p k */
|
|
if ((iseof((r[1])))) {
|
|
r[5+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = r[4];
|
|
r[5+2] = (cx__231875);
|
|
r[5+3] = (mksymbol(internsym("port:")));
|
|
r[5+4] = (r[3]);
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
} else {
|
|
hreserve(hbsz(3+1), 5); /* 5 live regs */
|
|
*--hp = r[4];
|
|
*--hp = r[1];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(357);
|
|
r[5] = (hendblk(3+1));
|
|
r[6+0] = r[2];
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = r[5];
|
|
r[6+2] = r[1];
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
|
|
case 357: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_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 p r k */
|
|
if (bool_from_obj(r[1])) {
|
|
r[5+0] = (cx_read_2Derror);
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = r[4];
|
|
r[5+2] = (cx__231874);
|
|
r[5+3] = (cdr((r[3])));
|
|
r[5+4] = (mksymbol(internsym("port:")));
|
|
r[5+5] = (r[2]);
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 6;
|
|
goto jump;
|
|
} else {
|
|
r[0] = r[4];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = r[3];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
|
|
case 358: /* clo k form */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k form */
|
|
hreserve(hbsz(2+1), 2); /* 2 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(359);
|
|
r[2] = (hendblk(2+1));
|
|
r[0] = r[2];
|
|
/* r[1] */
|
|
goto s_patch_2Dshared_21;
|
|
|
|
case 359: /* clo ek . */
|
|
assert(rc >= 2);
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek . k form */
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = r[3];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 360: /* clo k form */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
s_patch_2Dshared_21: /* k form */
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(368);
|
|
r[2] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
|
*--hp = obj_from_case(360);
|
|
r[3] = (hendblk(0+1));
|
|
if ((ispair((r[1])))) {
|
|
hreserve(hbsz(4+1), 4); /* 4 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[0];
|
|
*--hp = r[2];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(361);
|
|
r[4] = (hendblk(4+1));
|
|
r[5] = (car((r[1])));
|
|
r[5] = obj_from_bool(isprocedure((r[5])));
|
|
if (bool_from_obj(r[5])) {
|
|
r[5] = (car((r[1])));
|
|
hreserve(hbsz(2+1), 6); /* 6 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[4];
|
|
*--hp = obj_from_case(363);
|
|
r[6] = (hendblk(2+1));
|
|
r[0] = r[6];
|
|
r[1] = r[5];
|
|
goto s_patch_2Dref_21;
|
|
} else {
|
|
r[5] = (car((r[1])));
|
|
r[0] = r[4];
|
|
r[1] = r[5];
|
|
goto s_patch_2Dshared_21;
|
|
}
|
|
} else {
|
|
if ((isvector((r[1])))) {
|
|
r[4+0] = r[0];
|
|
r[4+1] = obj_from_fixnum(+0);
|
|
r[4+2] = r[3];
|
|
r[4+3] = r[2];
|
|
r[4+4] = r[1];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_loop_v12010;
|
|
} else {
|
|
if ((isbox((r[1])))) {
|
|
r[4] = (boxref((r[1])));
|
|
r[4] = obj_from_bool(isprocedure((r[4])));
|
|
if (bool_from_obj(r[4])) {
|
|
r[4] = (boxref((r[1])));
|
|
hreserve(hbsz(2+1), 5); /* 5 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(367);
|
|
r[5] = (hendblk(2+1));
|
|
r[0] = r[5];
|
|
r[1] = r[4];
|
|
goto s_patch_2Dshared_21;
|
|
} else {
|
|
r[4] = (boxref((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[4];
|
|
goto s_patch_2Dshared_21;
|
|
}
|
|
} else {
|
|
/* 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;
|
|
}
|
|
}
|
|
}
|
|
|
|
case 361: /* clo ek . */
|
|
assert(rc >= 2);
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3];
|
|
r[1+5] = p[4]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek . patch-shared! patch-ref! k form */
|
|
r[6] = (cdr((r[5])));
|
|
r[6] = obj_from_bool(isprocedure((r[6])));
|
|
if (bool_from_obj(r[6])) {
|
|
hreserve(hbsz(2+1), 6); /* 6 live regs */
|
|
*--hp = r[5];
|
|
*--hp = r[4];
|
|
*--hp = obj_from_case(362);
|
|
r[6] = (hendblk(2+1));
|
|
r[0] = r[3];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[6];
|
|
r[2] = (cdr((r[5])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[4];
|
|
r[2] = (cdr((r[5])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
|
|
case 362: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r k form */
|
|
r[4+0] = r[2];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = obj_from_void(cdr((r[3])) = (r[1]));
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 363: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r k form */
|
|
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(car((r[3])) = (r[1]));
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 364: /* clo k i */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3]; }
|
|
r += 1; /* shift reg. wnd */
|
|
s_loop_v12010: /* k i patch-shared! patch-ref! form */
|
|
if ((fixnum_from_obj(r[1]) < (vectorlen((r[4]))))) {
|
|
r[5] = (vectorref((r[4]), fixnum_from_obj(r[1])));
|
|
hreserve(hbsz(3+1), 6); /* 6 live regs */
|
|
*--hp = r[4];
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(364);
|
|
r[6] = (hendblk(3+1));
|
|
hreserve(hbsz(3+1), 7); /* 7 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = r[6];
|
|
*--hp = obj_from_case(365);
|
|
r[6] = (hendblk(3+1));
|
|
if ((isprocedure((r[5])))) {
|
|
hreserve(hbsz(3+1), 7); /* 7 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[4];
|
|
*--hp = r[6];
|
|
*--hp = obj_from_case(366);
|
|
r[7] = (hendblk(3+1));
|
|
r[0] = r[3];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[7];
|
|
r[2] = r[5];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[6];
|
|
r[2] = r[5];
|
|
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_void(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
|
|
case 365: /* clo ek . */
|
|
assert(rc >= 2);
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek . loop i k */
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[4];
|
|
r[2] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1)));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 366: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r k form i */
|
|
r[5+0] = r[2];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = obj_from_void(vectorref((r[3]), fixnum_from_obj(r[4])) = (r[1]));
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 367: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r k form */
|
|
r[4+0] = r[2];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = obj_from_void(boxref((r[3])) = (r[1]));
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 368: /* clo k form */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
s_patch_2Dref_21: /* k form */
|
|
if ((isprocedure((r[1])))) {
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(368);
|
|
r[2] = (hendblk(0+1));
|
|
hreserve(hbsz(2+1), 3); /* 3 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(369);
|
|
r[2] = (hendblk(2+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;
|
|
} else {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = r[1];
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
|
|
case 369: /* clo 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 patch-ref! k */
|
|
r[4+0] = r[2];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = r[3];
|
|
r[4+2] = r[1];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 370: /* file-exists? k fn */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k fn */
|
|
{ /* file-exists? */
|
|
FILE *f = fopen(stringchars((r[1])), "r");
|
|
if (f != NULL) fclose(f);
|
|
r[2] = obj_from_bool(f != NULL); }
|
|
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 371: /* delete-file k fn */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k fn */
|
|
{ /* delete-file */
|
|
int res = remove(stringchars((r[1])));
|
|
r[2] = obj_from_bool(res == 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] = ((0) ? obj_from_bool(0) : obj_from_void(0));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2+0] = (cx_file_2Derror);
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = r[0];
|
|
r[2+2] = (cx__232056);
|
|
r[2+3] = r[1];
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
}
|
|
|
|
case 372: /* rename-file k fnold fnnew */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k fnold fnnew */
|
|
{ /* rename-file */
|
|
int res = rename(stringchars((r[1])), stringchars((r[2])));
|
|
r[3] = obj_from_bool(res == 0); }
|
|
if (bool_from_obj(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[3+0] = (cx_file_2Derror);
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = r[0];
|
|
r[3+2] = (cx__232060);
|
|
r[3+3] = r[1];
|
|
r[3+4] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
}
|
|
|
|
case 373: /* %residual-call-with-values k producer consumer */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k producer consumer */
|
|
hreserve(hbsz(2+1), 3); /* 3 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(374);
|
|
r[3] = (hendblk(2+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] = r[1];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 2;
|
|
goto jump;
|
|
|
|
case 374: /* clo k results */
|
|
assert(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 results consumer k */
|
|
{ /* define apply */
|
|
static obj c[] = { obj_from_objptr(appcases+0) };
|
|
r[4] = obj_from_objptr(c); }
|
|
r[5+0] = r[4];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = r[3];
|
|
r[5+2] = r[2];
|
|
r[5+3] = r[1];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 375: /* call-with-current-continuation k proc */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
gs_call_2Dwith_2Dcurrent_2Dcontinuation: /* k proc */
|
|
r[2] = (cx__2Acurrent_2Ddynamic_2Dstate_2A);
|
|
hreserve(hbsz(2+1), 3); /* 3 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(376);
|
|
r[3] = (hendblk(2+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] = r[1];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = r[0];
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 376: /* clo k results */
|
|
assert(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 results here k */
|
|
hreserve(hbsz(3+1), 4); /* 4 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[3];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(377);
|
|
r[4] = (hendblk(3+1));
|
|
r[0] = r[4];
|
|
r[1] = r[2];
|
|
goto gs_dynamic_2Dstate_2Dreroot_21;
|
|
|
|
case 377: /* clo ek . */
|
|
assert(rc >= 2);
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek . results k k */
|
|
{ /* define apply */
|
|
static obj c[] = { obj_from_objptr(appcases+0) };
|
|
r[5] = obj_from_objptr(c); }
|
|
r[6+0] = r[5];
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = r[4];
|
|
r[6+2] = r[3];
|
|
r[6+3] = r[2];
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 378: /* dynamic-wind k before during after */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
gs_dynamic_2Dwind: /* k before during after */
|
|
r[4] = (cx__2Acurrent_2Ddynamic_2Dstate_2A);
|
|
hreserve(hbsz(3+1), 5); /* 5 live regs */
|
|
*--hp = r[4];
|
|
*--hp = r[0];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(379);
|
|
r[5] = (hendblk(3+1));
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[6] = (hendblk(3)); }
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 7); /* 7 live regs */
|
|
*--hp = r[4];
|
|
*--hp = r[6];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[6] = (hendblk(3)); }
|
|
r[0] = r[5];
|
|
r[1] = r[6];
|
|
goto gs_dynamic_2Dstate_2Dreroot_21;
|
|
|
|
case 379: /* clo ek . */
|
|
assert(rc >= 2);
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek . during k here */
|
|
hreserve(hbsz(1+1), 5); /* 5 live regs */
|
|
*--hp = r[4];
|
|
*--hp = obj_from_case(380);
|
|
r[5] = (hendblk(1+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
*--hp = r[5];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
r[5] = (hendblk(3)); }
|
|
hreserve(hbsz(2+1), 6); /* 6 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[5];
|
|
*--hp = obj_from_case(382);
|
|
r[6] = (hendblk(2+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 7); /* 7 live regs */
|
|
*--hp = r[6];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
r[6] = (hendblk(3)); }
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[6];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 2;
|
|
goto jump;
|
|
|
|
case 380: /* clo k results */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k results here */
|
|
hreserve(hbsz(2+1), 3); /* 3 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(381);
|
|
r[3] = (hendblk(2+1));
|
|
r[0] = r[3];
|
|
r[1] = r[2];
|
|
goto gs_dynamic_2Dstate_2Dreroot_21;
|
|
|
|
case 381: /* 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 . results k */
|
|
{ /* define apply */
|
|
static obj c[] = { obj_from_objptr(appcases+0) };
|
|
r[4] = obj_from_objptr(c); }
|
|
r[5+0] = r[4];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = r[3];
|
|
r[5+2] = (cx__25residual_2Dvalues);
|
|
r[5+3] = r[2];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 382: /* clo k results */
|
|
assert(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 results consumer k */
|
|
{ /* define apply */
|
|
static obj c[] = { obj_from_objptr(appcases+0) };
|
|
r[4] = obj_from_objptr(c); }
|
|
r[5+0] = r[4];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = r[3];
|
|
r[5+2] = r[2];
|
|
r[5+3] = r[1];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 383: /* dynamic-state-reroot! k there */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
gs_dynamic_2Dstate_2Dreroot_21: /* k there */
|
|
{ const bool_t v14715_tmp = ((cx__2Acurrent_2Ddynamic_2Dstate_2A) == (r[1]));
|
|
r[2] = obj_from_bool(!(v14715_tmp)); }
|
|
if (bool_from_obj(r[2])) {
|
|
hreserve(hbsz(2+1), 2); /* 2 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(384);
|
|
r[2] = (hendblk(2+1));
|
|
r[0] = r[2];
|
|
r[1] = (cdr((r[1])));
|
|
goto gs_dynamic_2Dstate_2Dreroot_21;
|
|
} 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 384: /* clo ek . */
|
|
assert(rc >= 2);
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek . k there */
|
|
r[4] = (car((r[3])));
|
|
r[4] = (car((r[4])));
|
|
r[5] = (car((r[3])));
|
|
r[5] = (cdr((r[5])));
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
*--hp = r[4];
|
|
*--hp = r[5];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[6] = (hendblk(3)); }
|
|
(void)(car((cx__2Acurrent_2Ddynamic_2Dstate_2A)) = (r[6]));
|
|
(void)(cdr((cx__2Acurrent_2Ddynamic_2Dstate_2A)) = (r[3]));
|
|
(void)(car((r[3])) = obj_from_bool(0));
|
|
(void)(cdr((r[3])) = (mknull()));
|
|
cx__2Acurrent_2Ddynamic_2Dstate_2A = r[3];
|
|
r[0] = r[4];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[2];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 2;
|
|
goto jump;
|
|
|
|
case 385: /* error-object k kind message irritants */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
gs_error_2Dobject: /* k kind message irritants */
|
|
{ /* make-record */
|
|
int c = (+3);
|
|
hreserve(hbsz(c+1), 4); /* 4 live regs */
|
|
hp -= c; memset(hp, 0, c * sizeof(obj));
|
|
*--hp = (cx__3Cerror_2Dobject_3E); assert(isobjptr(*hp));
|
|
r[4] = (hendblk(c+1)); }
|
|
(void)(recordref((r[4]), (+0)) = (r[1]));
|
|
(void)(recordref((r[4]), (+1)) = (r[2]));
|
|
(void)(recordref((r[4]), (+2)) = (r[3]));
|
|
/* r[4] */
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = r[4];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 386: /* error-object? k obj */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k obj */
|
|
{ /* record? */
|
|
obj o = (r[1]), t = (cx__3Cerror_2Dobject_3E);
|
|
if (!isrecord(o)) r[2] = obj_from_bool(0);
|
|
else r[2] = obj_from_bool(recordrtd(o) == t); }
|
|
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 387: /* error-object-kind k obj */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k obj */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (recordref((r[1]), (+0)));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 388: /* error-object-message k obj */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k obj */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (recordref((r[1]), (+1)));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 389: /* error-object-irritants k obj */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k obj */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (recordref((r[1]), (+2)));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 390: /* clo k msg args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k msg args */
|
|
hreserve(hbsz(1+1), 3); /* 3 live regs */
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(391);
|
|
r[3] = (hendblk(1+1));
|
|
r[4+0] = r[3];
|
|
r[4+1] = obj_from_bool(0);
|
|
r[4+2] = r[1];
|
|
r[4+3] = r[2];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs_error_2Dobject;
|
|
|
|
case 391: /* 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_raise;
|
|
|
|
case 392: /* clo ek r */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r */
|
|
cx_current_2Dexception_2Dhandler = r[1];
|
|
{ static obj c[] = { obj_from_case(393) }; cx_with_2Dexception_2Dhandler = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(402) }; cx_raise = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(412) }; cx_raise_2Dcontinuable = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(420) }; cx__25residual_2Dabort = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(421) }; cx_reset = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(422) }; cx_set_2Dreset_2Dhandler_21 = (obj)c; }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(423);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx_read_2Derror = (hendblk(3)); }
|
|
{ static obj c[] = { obj_from_case(425) }; cx_read_2Derror_3F = (obj)c; }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(426);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx_file_2Derror = (hendblk(3)); }
|
|
{ static obj c[] = { obj_from_case(428) }; cx_file_2Derror_3F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(429) }; cx__25residual_2Dcurrent_2Djiffy = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(430) }; cx__25residual_2Djiffies_2Dper_2Dsecond = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(431) }; cx__25residual_2Dcurrent_2Dsecond = (obj)c; }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(432);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
r[2] = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
|
*--hp = obj_from_case(433);
|
|
r[3] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 4); /* 4 live regs */
|
|
*--hp = obj_from_case(434);
|
|
r[4] = (hendblk(0+1));
|
|
{ /* make-case-lambda */
|
|
hreserve(hbsz(12+1), 5); /* 5 live regs */
|
|
*--hp = (cx__25fail_2Dlambda);
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[3];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = r[4];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+4);
|
|
cx_emergency_2Dexit = (hendblk(12+1)); }
|
|
r[2] = (cx__2Acurrent_2Ddynamic_2Dstate_2A);
|
|
hreserve(hbsz(1+1), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(435);
|
|
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);
|
|
cx_exit = (hendblk(3)); }
|
|
{ static obj c[] = { obj_from_case(437) }; cx__25residual_2Dargv_2Dref = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(438) }; cx_command_2Dline = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(439) }; cx__25residual_2Dget_2Denvironment_2Dvariable = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(440) }; cx__25residual_2Dsystem = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(441) }; cx__25residual_2Dmake_2Drectangular = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(442) }; cx__25residual_2Dmake_2Dpolar = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(443) }; cx__25residual_2Dreal_2Dpart = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(444) }; cx__25residual_2Dimag_2Dpart = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(445) }; cx__25residual_2Dmagnitude = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(446) }; cx__25residual_2Dangle = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(447) }; cx_truncate_2F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(449) }; cx_floor_2F = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(451) }; cx_exact_2Dinteger_2Dsqrt = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(453) }; cx_call_2Dwith_2Dport = (obj)c; }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(456);
|
|
r[2] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
|
*--hp = obj_from_case(457);
|
|
r[3] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 4); /* 4 live regs */
|
|
*--hp = obj_from_case(458);
|
|
r[4] = (hendblk(0+1));
|
|
{ /* make-case-lambda */
|
|
hreserve(hbsz(12+1), 5); /* 5 live regs */
|
|
*--hp = (cx__25fail_2Dlambda);
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = r[3];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = r[4];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+4);
|
|
cx_string_2D_3Elist = (hendblk(12+1)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(459);
|
|
r[2] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
|
*--hp = obj_from_case(460);
|
|
r[3] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 4); /* 4 live regs */
|
|
*--hp = obj_from_case(461);
|
|
r[4] = (hendblk(0+1));
|
|
{ /* make-case-lambda */
|
|
hreserve(hbsz(12+1), 5); /* 5 live regs */
|
|
*--hp = (cx__25fail_2Dlambda);
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = r[3];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = r[4];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+4);
|
|
cx_string_2Dcopy = (hendblk(12+1)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(462);
|
|
r[2] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
|
*--hp = obj_from_case(463);
|
|
r[3] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 4); /* 4 live regs */
|
|
*--hp = obj_from_case(464);
|
|
r[4] = (hendblk(0+1));
|
|
{ /* make-case-lambda */
|
|
hreserve(hbsz(12+1), 5); /* 5 live regs */
|
|
*--hp = (cx__25fail_2Dlambda);
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+5);
|
|
*--hp = obj_from_fixnum(+5);
|
|
*--hp = r[3];
|
|
*--hp = obj_from_fixnum(+4);
|
|
*--hp = obj_from_fixnum(+4);
|
|
*--hp = r[4];
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = obj_from_objptr(appcases+4);
|
|
cx_string_2Dcopy_21 = (hendblk(12+1)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(465);
|
|
r[2] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
|
*--hp = obj_from_case(466);
|
|
r[3] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 4); /* 4 live regs */
|
|
*--hp = obj_from_case(467);
|
|
r[4] = (hendblk(0+1));
|
|
{ /* make-case-lambda */
|
|
hreserve(hbsz(12+1), 5); /* 5 live regs */
|
|
*--hp = (cx__25fail_2Dlambda);
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+4);
|
|
*--hp = obj_from_fixnum(+4);
|
|
*--hp = r[3];
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = r[4];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_objptr(appcases+4);
|
|
cx_string_2Dfill_21 = (hendblk(12+1)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(468);
|
|
r[2] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
|
*--hp = obj_from_case(469);
|
|
r[3] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 4); /* 4 live regs */
|
|
*--hp = obj_from_case(470);
|
|
r[4] = (hendblk(0+1));
|
|
{ /* make-case-lambda */
|
|
hreserve(hbsz(12+1), 5); /* 5 live regs */
|
|
*--hp = (cx__25fail_2Dlambda);
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = r[3];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = r[4];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+4);
|
|
cx_vector_2D_3Elist = (hendblk(12+1)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(471);
|
|
r[2] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
|
*--hp = obj_from_case(472);
|
|
r[3] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 4); /* 4 live regs */
|
|
*--hp = obj_from_case(473);
|
|
r[4] = (hendblk(0+1));
|
|
{ /* make-case-lambda */
|
|
hreserve(hbsz(12+1), 5); /* 5 live regs */
|
|
*--hp = (cx__25fail_2Dlambda);
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = r[3];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = r[4];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+4);
|
|
cx_vector_2D_3Estring = (hendblk(12+1)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(474);
|
|
r[2] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
|
*--hp = obj_from_case(475);
|
|
r[3] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 4); /* 4 live regs */
|
|
*--hp = obj_from_case(476);
|
|
r[4] = (hendblk(0+1));
|
|
{ /* make-case-lambda */
|
|
hreserve(hbsz(12+1), 5); /* 5 live regs */
|
|
*--hp = (cx__25fail_2Dlambda);
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = r[3];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = r[4];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+4);
|
|
cx_string_2D_3Evector = (hendblk(12+1)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(477);
|
|
r[2] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
|
*--hp = obj_from_case(478);
|
|
r[3] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 4); /* 4 live regs */
|
|
*--hp = obj_from_case(479);
|
|
r[4] = (hendblk(0+1));
|
|
{ /* make-case-lambda */
|
|
hreserve(hbsz(12+1), 5); /* 5 live regs */
|
|
*--hp = (cx__25fail_2Dlambda);
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+5);
|
|
*--hp = obj_from_fixnum(+5);
|
|
*--hp = r[3];
|
|
*--hp = obj_from_fixnum(+4);
|
|
*--hp = obj_from_fixnum(+4);
|
|
*--hp = r[4];
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = obj_from_objptr(appcases+4);
|
|
cx_vector_2Dcopy_21 = (hendblk(12+1)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(480);
|
|
r[2] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
|
*--hp = obj_from_case(481);
|
|
r[3] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 4); /* 4 live regs */
|
|
*--hp = obj_from_case(482);
|
|
r[4] = (hendblk(0+1));
|
|
{ /* make-case-lambda */
|
|
hreserve(hbsz(12+1), 5); /* 5 live regs */
|
|
*--hp = (cx__25fail_2Dlambda);
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = r[3];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = r[4];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+4);
|
|
cx_vector_2Dcopy = (hendblk(12+1)); }
|
|
{ static obj c[] = { obj_from_case(483) }; cx__25vectors_2Dsum_2Dlength = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(484) }; cx__25vectors_2Dcopy_2Dinto_21 = (obj)c; }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(485);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx_vector_2Dappend = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(486);
|
|
r[2] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
|
*--hp = obj_from_case(487);
|
|
r[3] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 4); /* 4 live regs */
|
|
*--hp = obj_from_case(488);
|
|
r[4] = (hendblk(0+1));
|
|
{ /* make-case-lambda */
|
|
hreserve(hbsz(12+1), 5); /* 5 live regs */
|
|
*--hp = (cx__25fail_2Dlambda);
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+4);
|
|
*--hp = obj_from_fixnum(+4);
|
|
*--hp = r[3];
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = r[4];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_objptr(appcases+4);
|
|
cx_vector_2Dfill_21 = (hendblk(12+1)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(489);
|
|
r[2] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
|
*--hp = obj_from_case(490);
|
|
r[3] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 4); /* 4 live regs */
|
|
*--hp = obj_from_case(491);
|
|
r[4] = (hendblk(0+1));
|
|
{ /* make-case-lambda */
|
|
hreserve(hbsz(12+1), 5); /* 5 live regs */
|
|
*--hp = (cx__25fail_2Dlambda);
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = r[3];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = r[4];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+4);
|
|
cx_bytevector_2D_3Elist = (hendblk(12+1)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(492);
|
|
r[2] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
|
*--hp = obj_from_case(493);
|
|
r[3] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 4); /* 4 live regs */
|
|
*--hp = obj_from_case(494);
|
|
r[4] = (hendblk(0+1));
|
|
{ /* make-case-lambda */
|
|
hreserve(hbsz(12+1), 5); /* 5 live regs */
|
|
*--hp = (cx__25fail_2Dlambda);
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+5);
|
|
*--hp = obj_from_fixnum(+5);
|
|
*--hp = r[3];
|
|
*--hp = obj_from_fixnum(+4);
|
|
*--hp = obj_from_fixnum(+4);
|
|
*--hp = r[4];
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = obj_from_objptr(appcases+4);
|
|
cx_bytevector_2Dcopy_21 = (hendblk(12+1)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(495);
|
|
r[2] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
|
*--hp = obj_from_case(496);
|
|
r[3] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 4); /* 4 live regs */
|
|
*--hp = obj_from_case(497);
|
|
r[4] = (hendblk(0+1));
|
|
{ /* make-case-lambda */
|
|
hreserve(hbsz(12+1), 5); /* 5 live regs */
|
|
*--hp = (cx__25fail_2Dlambda);
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = r[3];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = r[4];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+4);
|
|
cx_bytevector_2Dcopy = (hendblk(12+1)); }
|
|
{ static obj c[] = { obj_from_case(498) }; cx__25bytevectors_2Dsum_2Dlength = (obj)c; }
|
|
{ static obj c[] = { obj_from_case(499) }; cx__25bytevectors_2Dcopy_2Dinto_21 = (obj)c; }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(500);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx_bytevector_2Dappend = (hendblk(3)); }
|
|
{ static obj c[] = { obj_from_case(501) }; cx_subutf8_2D_3Estring = (obj)c; }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(502);
|
|
r[2] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
|
*--hp = obj_from_case(503);
|
|
r[3] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 4); /* 4 live regs */
|
|
*--hp = obj_from_case(504);
|
|
r[4] = (hendblk(0+1));
|
|
{ /* make-case-lambda */
|
|
hreserve(hbsz(12+1), 5); /* 5 live regs */
|
|
*--hp = (cx__25fail_2Dlambda);
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = r[3];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = r[4];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+4);
|
|
cx_utf8_2D_3Estring = (hendblk(12+1)); }
|
|
{ static obj c[] = { obj_from_case(505) }; cx_substring_2D_3Eutf8 = (obj)c; }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(506);
|
|
r[2] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
|
*--hp = obj_from_case(507);
|
|
r[3] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 4); /* 4 live regs */
|
|
*--hp = obj_from_case(508);
|
|
r[4] = (hendblk(0+1));
|
|
{ /* make-case-lambda */
|
|
hreserve(hbsz(12+1), 5); /* 5 live regs */
|
|
*--hp = (cx__25fail_2Dlambda);
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = r[3];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = r[4];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+4);
|
|
cx_string_2D_3Eutf8 = (hendblk(12+1)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(509);
|
|
r[2] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
|
*--hp = obj_from_case(510);
|
|
r[3] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 4); /* 4 live regs */
|
|
*--hp = obj_from_case(511);
|
|
r[4] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 5); /* 5 live regs */
|
|
*--hp = obj_from_case(512);
|
|
r[5] = (hendblk(0+1));
|
|
{ /* make-case-lambda */
|
|
hreserve(hbsz(15+1), 6); /* 6 live regs */
|
|
*--hp = (cx__25fail_2Dlambda);
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+4);
|
|
*--hp = obj_from_fixnum(+4);
|
|
*--hp = r[3];
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = r[4];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = r[5];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+4);
|
|
cx_read_2Dstring_21 = (hendblk(15+1)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(513);
|
|
r[2] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
|
*--hp = obj_from_case(514);
|
|
r[3] = (hendblk(0+1));
|
|
{ /* make-case-lambda */
|
|
hreserve(hbsz(9+1), 4); /* 4 live regs */
|
|
*--hp = (cx__25fail_2Dlambda);
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = r[3];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+4);
|
|
cx_read_2Dstring = (hendblk(9+1)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(515);
|
|
r[2] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
|
*--hp = obj_from_case(516);
|
|
r[3] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 4); /* 4 live regs */
|
|
*--hp = obj_from_case(517);
|
|
r[4] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 5); /* 5 live regs */
|
|
*--hp = obj_from_case(518);
|
|
r[5] = (hendblk(0+1));
|
|
{ /* make-case-lambda */
|
|
hreserve(hbsz(15+1), 6); /* 6 live regs */
|
|
*--hp = (cx__25fail_2Dlambda);
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+4);
|
|
*--hp = obj_from_fixnum(+4);
|
|
*--hp = r[3];
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = obj_from_fixnum(+3);
|
|
*--hp = r[4];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = r[5];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+4);
|
|
cx_read_2Dbytevector_21 = (hendblk(15+1)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(519);
|
|
r[2] = (hendblk(0+1));
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
|
*--hp = obj_from_case(520);
|
|
r[3] = (hendblk(0+1));
|
|
{ /* make-case-lambda */
|
|
hreserve(hbsz(9+1), 4); /* 4 live regs */
|
|
*--hp = (cx__25fail_2Dlambda);
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = r[3];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+4);
|
|
cx_read_2Dbytevector = (hendblk(9+1)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(521);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dvalues = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(523);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dboolean_3D_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(524);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dfx_3D_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(525);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dfx_3C_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(526);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dfx_3E_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(527);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dfx_3C_3D_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(528);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dfx_3E_3D_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(529);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dfl_3D_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(530);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dfl_3C_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(531);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dfl_3E_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(532);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dfl_3C_3D_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(533);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dfl_3E_3D_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(534);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_3D = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(535);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_3C = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(536);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_3E = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(537);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_3C_3D = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(538);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_3E_3D = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(539);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dfxmax = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(540);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dfxmin = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(541);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dflmax = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(542);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dflmin = (hendblk(3)); }
|
|
{ static obj c[] = { obj_from_case(543) }; cx__25residual_2Dmax_2F2 = (obj)c; }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(544);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dmax = (hendblk(3)); }
|
|
{ static obj c[] = { obj_from_case(547) }; cx__25residual_2Dmin_2F2 = (obj)c; }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(548);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dmin = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(551);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dfx_2B = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(552);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dfx_2A = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(553);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dfl_2B = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(554);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dfl_2A = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(555);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2B = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(556);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2A = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(557);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dgcd = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(558);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dlcm = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(561);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dfx_2D = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(562);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dfx_2F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(563);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dfl_2D = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(564);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dfl_2F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(565);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2D = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(566);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(567);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dlog = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(568);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dflatan = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(569);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Datan = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(570);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dmember = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(571);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dassoc = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(572);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dmap = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(582);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dfor_2Deach = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(592);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx_string_2Dmap = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(599);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx_vector_2Dmap = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(606);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx_string_2Dfor_2Deach = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(612);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+2);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx_vector_2Dfor_2Deach = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(618);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dchar_3D_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(619);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dchar_3C_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(620);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dchar_3E_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(621);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dchar_3C_3D_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(622);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dchar_3E_3D_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(623);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dchar_2Dci_3D_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(624);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dchar_2Dci_3C_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(625);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dchar_2Dci_3E_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(626);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dchar_2Dci_3C_3D_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(627);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dchar_2Dci_3E_3D_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(628);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dmake_2Dstring = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(629);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dstring = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(630);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dstring_2Dappend = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(632);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dstring_3D_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(633);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dstring_3C_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(634);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dstring_3E_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(635);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dstring_3C_3D_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(636);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dstring_3E_3D_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(637);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dstring_2Dci_3D_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(638);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dstring_2Dci_3C_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(639);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dstring_2Dci_3E_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(640);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dstring_2Dci_3C_3D_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(641);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dstring_2Dci_3E_3D_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(642);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dmake_2Dvector = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(643);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dvector = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(644);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dmake_2Dbytevector = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(645);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dbytevector = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(646);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dlist = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(647);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dmake_2Dlist = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(648);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dcons_2A = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(650);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dappend = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(652);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Drecord_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(653);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dnumber_2D_3Estring = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(654);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dstring_2D_3Enumber = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(655);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dsymbol_3D_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(656);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25fail_2Dlambda = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(657);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dmake_2Dcase_2Dlambda = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(658);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dcurrent_2Dinput_2Dport = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(659);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dcurrent_2Doutput_2Dport = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(660);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dcurrent_2Derror_2Dport = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(661);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dread_2Dchar = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(662);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dpeek_2Dchar = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(663);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dchar_2Dready_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(664);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dread_2Dline = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(665);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Ddisplay_2Dfixnum = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(666);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Ddisplay_2Dflonum = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(667);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Ddisplay_2Dprocedure = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(668);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Ddisplay_2Dinput_2Dport = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(669);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Ddisplay_2Doutput_2Dport = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(670);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dwrite_2Dchar = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(671);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dwrite_2Dstring = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(672);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dnewline = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(673);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dflush_2Doutput_2Dport = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(674);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dread_2Du8 = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(675);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dpeek_2Du8 = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(676);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Du8_2Dready_3F = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(677);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dwrite_2Du8 = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(678);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dwrite_2Dbytevector = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(679);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dwrite_2Dsimple = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(680);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dwrite_2Dshared = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(681);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dwrite = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(682);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Ddisplay = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(683);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dread = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(684);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dread_2Dsimple = (hendblk(3)); }
|
|
hreserve(hbsz(0+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_case(685);
|
|
r[2] = (hendblk(0+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
cx__25residual_2Dexit = (hendblk(3)); }
|
|
r[2] = obj_from_void(0);
|
|
r[3+0] = r[0];
|
|
pc = 0; /* exit from module init */
|
|
r[3+1] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rc = 2;
|
|
goto jump;
|
|
|
|
case 393: /* with-exception-handler k handler thunk */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k handler thunk */
|
|
hreserve(hbsz(3+1), 3); /* 3 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[2];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(394);
|
|
r[3] = (hendblk(3+1));
|
|
r[4+0] = (cx_current_2Dexception_2Dhandler);
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 2;
|
|
goto jump;
|
|
|
|
case 394: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_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 handler thunk k */
|
|
hreserve(hbsz(2+1), 5); /* 5 live regs */
|
|
*--hp = r[4];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(395);
|
|
r[5] = (hendblk(2+1));
|
|
hreserve(hbsz(1+1), 6); /* 6 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(400);
|
|
r[6] = (hendblk(1+1));
|
|
hreserve(hbsz(1+1), 7); /* 7 live regs */
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(401);
|
|
r[7] = (hendblk(1+1));
|
|
{ /* make-case-lambda */
|
|
hreserve(hbsz(9+1), 8); /* 8 live regs */
|
|
*--hp = (cx__25fail_2Dlambda);
|
|
*--hp = obj_from_fixnum(FIXNUM_MAX);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = r[6];
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = obj_from_fixnum(+1);
|
|
*--hp = r[7];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+4);
|
|
r[6] = (hendblk(9+1)); }
|
|
r[7+0] = (cx_current_2Dexception_2Dhandler);
|
|
pc = objptr_from_obj(r[7+0])[0];
|
|
r[7+1] = r[5];
|
|
r[7+2] = r[6];
|
|
r[7+3] = obj_from_bool(0);
|
|
r += 7; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 395: /* clo 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 thunk k */
|
|
hreserve(hbsz(3+1), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[1];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(396);
|
|
r[4] = (hendblk(3+1));
|
|
r[0] = (cx_current_2Dexception_2Dhandler);
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[4];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 2;
|
|
goto jump;
|
|
|
|
case 396: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r thunk r k */
|
|
hreserve(hbsz(1+1), 5); /* 5 live regs */
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(397);
|
|
r[5] = (hendblk(1+1));
|
|
hreserve(hbsz(1+1), 6); /* 6 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(398);
|
|
r[6] = (hendblk(1+1));
|
|
hreserve(hbsz(1+1), 7); /* 7 live regs */
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(399);
|
|
r[7] = (hendblk(1+1));
|
|
r[8+0] = r[4];
|
|
r[8+1] = r[5];
|
|
r[8+2] = r[6];
|
|
r[8+3] = r[7];
|
|
r += 8; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs_dynamic_2Dwind;
|
|
|
|
case 397: /* clo k */
|
|
assert(rc == 2);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+1] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k r */
|
|
r[2+0] = (cx_current_2Dexception_2Dhandler);
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = r[0];
|
|
r[2+2] = r[1];
|
|
r[2+3] = obj_from_bool(1);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 398: /* clo k */
|
|
assert(rc == 2);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+1] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k thunk */
|
|
r[2+0] = r[1];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = r[0];
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 2;
|
|
goto jump;
|
|
|
|
case 399: /* clo k */
|
|
assert(rc == 2);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+1] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k r */
|
|
r[2+0] = (cx_current_2Dexception_2Dhandler);
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = r[0];
|
|
r[2+2] = r[1];
|
|
r[2+3] = obj_from_bool(1);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 400: /* clo k obj */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k obj handler */
|
|
r[3+0] = r[2];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = r[0];
|
|
r[3+2] = r[1];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 401: /* clo k */
|
|
assert(rc == 2);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+1] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k r */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = r[1];
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 402: /* raise k obj */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
gs_raise: /* k obj */
|
|
hreserve(hbsz(2+1), 2); /* 2 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(403);
|
|
r[2] = (hendblk(2+1));
|
|
r[3+0] = (cx_current_2Dexception_2Dhandler);
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 2;
|
|
goto jump;
|
|
|
|
case 403: /* clo 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 obj k */
|
|
hreserve(hbsz(3+1), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(404);
|
|
r[4] = (hendblk(3+1));
|
|
r[0] = r[1];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[4];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 2;
|
|
goto jump;
|
|
|
|
case 404: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r r obj k */
|
|
hreserve(hbsz(3+1), 5); /* 5 live regs */
|
|
*--hp = r[4];
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(405);
|
|
r[5] = (hendblk(3+1));
|
|
r[6+0] = (cx_current_2Dexception_2Dhandler);
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = r[5];
|
|
r[6+2] = r[1];
|
|
r[6+3] = obj_from_bool(0);
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 405: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_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 obj k */
|
|
hreserve(hbsz(4+1), 5); /* 5 live regs */
|
|
*--hp = r[4];
|
|
*--hp = r[1];
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(406);
|
|
r[5] = (hendblk(4+1));
|
|
r[0] = (cx_current_2Dexception_2Dhandler);
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[5];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 2;
|
|
goto jump;
|
|
|
|
case 406: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3];
|
|
r[1+5] = p[4]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r r obj r k */
|
|
hreserve(hbsz(1+1), 6); /* 6 live regs */
|
|
*--hp = r[4];
|
|
*--hp = obj_from_case(407);
|
|
r[6] = (hendblk(1+1));
|
|
hreserve(hbsz(2+1), 7); /* 7 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(408);
|
|
r[7] = (hendblk(2+1));
|
|
hreserve(hbsz(1+1), 8); /* 8 live regs */
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(411);
|
|
r[8] = (hendblk(1+1));
|
|
r[9+0] = r[5];
|
|
r[9+1] = r[6];
|
|
r[9+2] = r[7];
|
|
r[9+3] = r[8];
|
|
r += 9; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs_dynamic_2Dwind;
|
|
|
|
case 407: /* clo k */
|
|
assert(rc == 2);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+1] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k r */
|
|
r[2+0] = (cx_current_2Dexception_2Dhandler);
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = r[0];
|
|
r[2+2] = r[1];
|
|
r[2+3] = obj_from_bool(1);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 408: /* clo k */
|
|
assert(rc == 2);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+1] = p[1];
|
|
r[1+2] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k r obj */
|
|
hreserve(hbsz(3+1), 3); /* 3 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[2];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(409);
|
|
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] = r[2];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 409: /* clo ek . */
|
|
assert(rc >= 2);
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek . r obj k */
|
|
hreserve(hbsz(1+1), 5); /* 5 live regs */
|
|
*--hp = r[4];
|
|
*--hp = obj_from_case(410);
|
|
r[5] = (hendblk(1+1));
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
*--hp = (mknull());
|
|
*--hp = r[3];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[6] = (hendblk(3)); }
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 7); /* 7 live regs */
|
|
*--hp = r[6];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[6] = (hendblk(3)); }
|
|
r[7+0] = r[5];
|
|
r[7+1] = (mksymbol(internsym("raise")));
|
|
r[7+2] = (cx__232206);
|
|
r[7+3] = (r[6]);
|
|
r += 7; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs_error_2Dobject;
|
|
|
|
case 410: /* 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_raise;
|
|
|
|
case 411: /* clo k */
|
|
assert(rc == 2);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+1] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k r */
|
|
r[2+0] = (cx_current_2Dexception_2Dhandler);
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = r[0];
|
|
r[2+2] = r[1];
|
|
r[2+3] = obj_from_bool(1);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 412: /* raise-continuable k obj */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k obj */
|
|
hreserve(hbsz(2+1), 2); /* 2 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(413);
|
|
r[2] = (hendblk(2+1));
|
|
r[3+0] = (cx_current_2Dexception_2Dhandler);
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 2;
|
|
goto jump;
|
|
|
|
case 413: /* clo 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 obj k */
|
|
hreserve(hbsz(3+1), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(414);
|
|
r[4] = (hendblk(3+1));
|
|
r[0] = r[1];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[4];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 2;
|
|
goto jump;
|
|
|
|
case 414: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_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 obj k */
|
|
hreserve(hbsz(3+1), 5); /* 5 live regs */
|
|
*--hp = r[4];
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(415);
|
|
r[5] = (hendblk(3+1));
|
|
r[6+0] = (cx_current_2Dexception_2Dhandler);
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = r[5];
|
|
r[6+2] = r[1];
|
|
r[6+3] = obj_from_bool(0);
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 415: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_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 obj k */
|
|
hreserve(hbsz(4+1), 5); /* 5 live regs */
|
|
*--hp = r[4];
|
|
*--hp = r[1];
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(416);
|
|
r[5] = (hendblk(4+1));
|
|
r[0] = (cx_current_2Dexception_2Dhandler);
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[5];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 2;
|
|
goto jump;
|
|
|
|
case 416: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3];
|
|
r[1+5] = p[4]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r r obj r k */
|
|
hreserve(hbsz(1+1), 6); /* 6 live regs */
|
|
*--hp = r[4];
|
|
*--hp = obj_from_case(417);
|
|
r[6] = (hendblk(1+1));
|
|
hreserve(hbsz(2+1), 7); /* 7 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(418);
|
|
r[7] = (hendblk(2+1));
|
|
hreserve(hbsz(1+1), 8); /* 8 live regs */
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(419);
|
|
r[8] = (hendblk(1+1));
|
|
r[9+0] = r[5];
|
|
r[9+1] = r[6];
|
|
r[9+2] = r[7];
|
|
r[9+3] = r[8];
|
|
r += 9; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs_dynamic_2Dwind;
|
|
|
|
case 417: /* clo k */
|
|
assert(rc == 2);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+1] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k r */
|
|
r[2+0] = (cx_current_2Dexception_2Dhandler);
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = r[0];
|
|
r[2+2] = r[1];
|
|
r[2+3] = obj_from_bool(1);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 418: /* clo k */
|
|
assert(rc == 2);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+1] = p[1];
|
|
r[1+2] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k r obj */
|
|
r[3+0] = r[1];
|
|
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;
|
|
|
|
case 419: /* clo k */
|
|
assert(rc == 2);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+1] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k r */
|
|
r[2+0] = (cx_current_2Dexception_2Dhandler);
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = r[0];
|
|
r[2+2] = r[1];
|
|
r[2+3] = obj_from_bool(1);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 420: /* %residual-abort k */
|
|
assert(rc == 2);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k */
|
|
r[1+0] = r[0];
|
|
pc = objptr_from_obj(r[1+0])[0];
|
|
r[1+1] = obj_from_ktrap();
|
|
r[1+2] = obj_from_void(exit(1));
|
|
r += 1; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 421: /* reset k */
|
|
assert(rc == 2);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k */
|
|
r[1+0] = r[0];
|
|
pc = objptr_from_obj(r[1+0])[0];
|
|
r[1+1] = obj_from_ktrap();
|
|
r[1+2] = obj_from_void(exit(1));
|
|
r += 1; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 422: /* set-reset-handler! k fn */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k fn */
|
|
cx_reset = r[1];
|
|
r[2] = obj_from_void(0);
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 423: /* clo k msg args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k msg args */
|
|
hreserve(hbsz(1+1), 3); /* 3 live regs */
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(424);
|
|
r[3] = (hendblk(1+1));
|
|
r[4+0] = r[3];
|
|
r[4+1] = (mksymbol(internsym("read")));
|
|
r[4+2] = (r[1]);
|
|
r[4+3] = (r[2]);
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs_error_2Dobject;
|
|
|
|
case 424: /* 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_raise;
|
|
|
|
case 425: /* read-error? k obj */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k obj */
|
|
{ /* record? */
|
|
obj o = (r[1]), t = (cx__3Cerror_2Dobject_3E);
|
|
if (!isrecord(o)) r[2] = obj_from_bool(0);
|
|
else r[2] = obj_from_bool(recordrtd(o) == t); }
|
|
if (bool_from_obj(r[2])) {
|
|
r[2] = (recordref((r[1]), (+0)));
|
|
r[2] = obj_from_bool((r[2]) == (mksymbol(internsym("read"))));
|
|
} else {
|
|
r[2] = obj_from_bool(0);
|
|
}
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 426: /* clo k msg args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k msg args */
|
|
hreserve(hbsz(1+1), 3); /* 3 live regs */
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(427);
|
|
r[3] = (hendblk(1+1));
|
|
r[4+0] = r[3];
|
|
r[4+1] = (mksymbol(internsym("file")));
|
|
r[4+2] = (r[1]);
|
|
r[4+3] = (r[2]);
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs_error_2Dobject;
|
|
|
|
case 427: /* 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_raise;
|
|
|
|
case 428: /* file-error? k obj */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k obj */
|
|
{ /* record? */
|
|
obj o = (r[1]), t = (cx__3Cerror_2Dobject_3E);
|
|
if (!isrecord(o)) r[2] = obj_from_bool(0);
|
|
else r[2] = obj_from_bool(recordrtd(o) == t); }
|
|
if (bool_from_obj(r[2])) {
|
|
r[2] = (recordref((r[1]), (+0)));
|
|
r[2] = obj_from_bool((r[2]) == (mksymbol(internsym("file"))));
|
|
} else {
|
|
r[2] = obj_from_bool(0);
|
|
}
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 429: /* %residual-current-jiffy k */
|
|
assert(rc == 2);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k */
|
|
r[1] = obj_from_flonum(1, clock());
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = r[1];
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 430: /* %residual-jiffies-per-second k */
|
|
assert(rc == 2);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k */
|
|
r[1] = obj_from_flonum(1, CLOCKS_PER_SEC);
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = r[1];
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 431: /* %residual-current-second k */
|
|
assert(rc == 2);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k */
|
|
r[1] = obj_from_flonum(1, difftime(time(NULL), 0)+37.0);
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = r[1];
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 432: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
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(exit(1));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 433: /* clo k n */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k n */
|
|
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(((r[1]) == obj_from_bool(1)) ? (void)(exit(0)) : (void)((is_fixnum_obj(r[1])) ? (void)(exit(fixnum_from_obj(r[1]))) : (void)(exit(1))));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 434: /* clo k */
|
|
assert(rc == 2);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k */
|
|
r[1+0] = r[0];
|
|
pc = objptr_from_obj(r[1+0])[0];
|
|
r[1+1] = obj_from_ktrap();
|
|
r[1+2] = obj_from_void(exit(0));
|
|
r += 1; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 435: /* 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 exit-ds */
|
|
hreserve(hbsz(2+1), 3); /* 3 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(436);
|
|
r[3] = (hendblk(2+1));
|
|
r[0] = r[3];
|
|
r[1] = r[2];
|
|
goto gs_dynamic_2Dstate_2Dreroot_21;
|
|
|
|
case 436: /* 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 . args k */
|
|
{ /* define apply */
|
|
static obj c[] = { obj_from_objptr(appcases+0) };
|
|
r[4] = obj_from_objptr(c); }
|
|
r[5+0] = r[4];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = r[3];
|
|
r[5+2] = (cx_emergency_2Dexit);
|
|
r[5+3] = r[2];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 437: /* %residual-argv-ref k argv i */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k argv i */
|
|
{ /* argv-ref */
|
|
int i = fixnum_from_obj(r[2]);
|
|
char *s = ((char **)((r[1])))[i];
|
|
if (s) r[3] = (hpushstr(3, newstring(s)));
|
|
else r[3] = obj_from_bool(0); }
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 438: /* command-line k */
|
|
assert(rc == 2);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k */
|
|
r[1+0] = r[0];
|
|
r[1+1] = (mknull());
|
|
r[1+2] = obj_from_fixnum(0);
|
|
r += 1; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_loop_v11567;
|
|
|
|
s_loop_v11567: /* k r i */
|
|
{ const fixnum_t v14714_i = fixnum_from_obj(r[2]);
|
|
{ /* argv-ref */
|
|
int i = (v14714_i);
|
|
char *s = ((char **)((cxg_argv)))[i];
|
|
if (s) r[3] = (hpushstr(3, newstring(s)));
|
|
else r[3] = obj_from_bool(0); }
|
|
if (bool_from_obj(r[3])) {
|
|
{ /* 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[0] */
|
|
r[1] = r[4];
|
|
r[2] = obj_from_fixnum(fxadd((v14714_i), (1)));
|
|
goto s_loop_v11567;
|
|
} else {
|
|
{ /* reverse! */
|
|
obj t, v = mknull(), l = r[1];
|
|
while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
|
|
r[4] = (v); }
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = r[4];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} }
|
|
|
|
case 439: /* %residual-get-environment-variable k s */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k s */
|
|
{ /* get-environment-variable */
|
|
char *v = getenv(stringchars((r[1])));
|
|
if (v) r[2] = (hpushstr(2, newstring(v)));
|
|
else r[2] = obj_from_bool(0); }
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 440: /* %residual-system k cmd */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k cmd */
|
|
{ /* system */
|
|
int res = system(stringchars((r[1])));
|
|
r[2] = obj_from_fixnum(res); }
|
|
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 441: /* %residual-make-rectangular k r i */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k r i */
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
r[3] = obj_from_bool(fixnum_from_obj(r[2]) == (+0));
|
|
} else {
|
|
{ const flonum_t v14713_tmp = ((flonum_t)(+0));
|
|
r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14713_tmp)); }
|
|
}
|
|
if (bool_from_obj(r[3])) {
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[1];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3+0] = (cx_error);
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = r[0];
|
|
r[3+2] = (mksymbol(internsym("make-rectangular")));
|
|
r[3+3] = (cx__232275);
|
|
r[3+4] = (r[2]);
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
}
|
|
|
|
case 442: /* %residual-make-polar k m a */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k m a */
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
r[3] = obj_from_bool(fixnum_from_obj(r[2]) == (+0));
|
|
} else {
|
|
{ const flonum_t v14712_tmp = ((flonum_t)(+0));
|
|
r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14712_tmp)); }
|
|
}
|
|
if (bool_from_obj(r[3])) {
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[1];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
{ const fixnum_t v14710_a = fixnum_from_obj(r[2]);
|
|
if ((is_fixnum_obj(cx__232291))) {
|
|
r[3] = obj_from_bool((v14710_a) == fixnum_from_obj(cx__232291));
|
|
} else {
|
|
{ const flonum_t v14711_tmp = ((flonum_t)(v14710_a));
|
|
r[3] = obj_from_bool((v14711_tmp) == flonum_from_obj(cx__232291)); }
|
|
} }
|
|
} else {
|
|
if ((is_fixnum_obj(cx__232291))) {
|
|
{ const flonum_t v14709_tmp = ((flonum_t)fixnum_from_obj(cx__232291));
|
|
r[3] = obj_from_bool(flonum_from_obj(r[2]) == (v14709_tmp)); }
|
|
} else {
|
|
r[3] = obj_from_bool(flonum_from_obj(r[2]) == flonum_from_obj(cx__232291));
|
|
}
|
|
}
|
|
if (bool_from_obj(r[3])) {
|
|
r[3] = ((is_fixnum_obj(r[1])) ? obj_from_fixnum(fxneg(fixnum_from_obj(r[1]))) : obj_from_flonum(3, -flonum_from_obj(r[1])));
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3+0] = (cx_error);
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = r[0];
|
|
r[3+2] = (mksymbol(internsym("make-polar")));
|
|
r[3+3] = (cx__232287);
|
|
r[3+4] = (r[2]);
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 443: /* %residual-real-part k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (cxs__25residual_2Dreal_2Dpart((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 444: /* %residual-imag-part k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_fixnum(+0);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 445: /* %residual-magnitude k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2] = ((is_fixnum_obj(r[1])) ? obj_from_fixnum(fxabs(fixnum_from_obj(r[1]))) : obj_from_flonum(2, fabs(flonum_from_obj(r[1]))));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 446: /* %residual-angle k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (cxs__25residual_2Dangle((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 447: /* truncate/ k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
hreserve(hbsz(2+1), 3); /* 3 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(448);
|
|
r[3] = (hendblk(2+1));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
goto gs_call_2Dwith_2Dcurrent_2Dcontinuation;
|
|
|
|
case 448: /* 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 y x */
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
{ const fixnum_t v14707_x = fixnum_from_obj(r[3]);
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
r[4] = obj_from_fixnum(fxquo((v14707_x), fixnum_from_obj(r[2])));
|
|
} else {
|
|
{ const flonum_t v14708_tmp = ((flonum_t)(v14707_x));
|
|
r[4] = obj_from_flonum(4, flquo((v14708_tmp), flonum_from_obj(r[2]))); }
|
|
} }
|
|
} else {
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
{ const flonum_t v14706_tmp = ((flonum_t)fixnum_from_obj(r[2]));
|
|
r[4] = obj_from_flonum(4, flquo(flonum_from_obj(r[3]), (v14706_tmp))); }
|
|
} else {
|
|
r[4] = obj_from_flonum(4, flquo(flonum_from_obj(r[3]), flonum_from_obj(r[2])));
|
|
}
|
|
}
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
{ const fixnum_t v14704_x = fixnum_from_obj(r[3]);
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
r[5] = obj_from_fixnum(fxrem((v14704_x), fixnum_from_obj(r[2])));
|
|
} else {
|
|
{ const flonum_t v14705_tmp = ((flonum_t)(v14704_x));
|
|
r[5] = obj_from_flonum(5, flrem((v14705_tmp), flonum_from_obj(r[2]))); }
|
|
} }
|
|
} else {
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
{ const flonum_t v14703_tmp = ((flonum_t)fixnum_from_obj(r[2]));
|
|
r[5] = obj_from_flonum(5, flrem(flonum_from_obj(r[3]), (v14703_tmp))); }
|
|
} else {
|
|
r[5] = obj_from_flonum(5, flrem(flonum_from_obj(r[3]), flonum_from_obj(r[2])));
|
|
}
|
|
}
|
|
r[6+0] = r[1];
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = obj_from_ktrap();
|
|
r[6+2] = r[4];
|
|
r[6+3] = r[5];
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 449: /* floor/ k x y */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y */
|
|
hreserve(hbsz(2+1), 3); /* 3 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(450);
|
|
r[3] = (hendblk(2+1));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
goto gs_call_2Dwith_2Dcurrent_2Dcontinuation;
|
|
|
|
case 450: /* 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 y x */
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
{ const fixnum_t v14701_x = fixnum_from_obj(r[3]);
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
r[4] = obj_from_fixnum(fxmqu((v14701_x), fixnum_from_obj(r[2])));
|
|
} else {
|
|
{ const flonum_t v14702_tmp = ((flonum_t)(v14701_x));
|
|
r[4] = obj_from_flonum(4, flmqu((v14702_tmp), flonum_from_obj(r[2]))); }
|
|
} }
|
|
} else {
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
{ const flonum_t v14700_tmp = ((flonum_t)fixnum_from_obj(r[2]));
|
|
r[4] = obj_from_flonum(4, flmqu(flonum_from_obj(r[3]), (v14700_tmp))); }
|
|
} else {
|
|
r[4] = obj_from_flonum(4, flmqu(flonum_from_obj(r[3]), flonum_from_obj(r[2])));
|
|
}
|
|
}
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
{ const fixnum_t v14698_x = fixnum_from_obj(r[3]);
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
r[5] = obj_from_fixnum(fxmlo((v14698_x), fixnum_from_obj(r[2])));
|
|
} else {
|
|
{ const flonum_t v14699_tmp = ((flonum_t)(v14698_x));
|
|
r[5] = obj_from_flonum(5, flmlo((v14699_tmp), flonum_from_obj(r[2]))); }
|
|
} }
|
|
} else {
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
{ const flonum_t v14697_tmp = ((flonum_t)fixnum_from_obj(r[2]));
|
|
r[5] = obj_from_flonum(5, flmlo(flonum_from_obj(r[3]), (v14697_tmp))); }
|
|
} else {
|
|
r[5] = obj_from_flonum(5, flmlo(flonum_from_obj(r[3]), flonum_from_obj(r[2])));
|
|
}
|
|
}
|
|
r[6+0] = r[1];
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = obj_from_ktrap();
|
|
r[6+2] = r[4];
|
|
r[6+3] = r[5];
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 451: /* exact-integer-sqrt k x */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x */
|
|
hreserve(hbsz(2+1), 2); /* 2 live regs */
|
|
*--hp = obj_from_fixnum(fxsqrt(fixnum_from_obj(r[1])));
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(452);
|
|
r[2] = (hendblk(2+1));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
goto gs_call_2Dwith_2Dcurrent_2Dcontinuation;
|
|
|
|
case 452: /* 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 x r */
|
|
{ const fixnum_t v14695_b = (fxmul(fixnum_from_obj(r[3]), fixnum_from_obj(r[3])));
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
r[4] = obj_from_fixnum(fxsub(fixnum_from_obj(r[2]), (v14695_b)));
|
|
} else {
|
|
{ const flonum_t v14696_tmp = ((flonum_t)(v14695_b));
|
|
r[4] = obj_from_flonum(4, flonum_from_obj(r[2]) - (v14696_tmp)); }
|
|
} }
|
|
r[5+0] = r[1];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = r[3];
|
|
r[5+3] = r[4];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 453: /* call-with-port k port proc */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
gs_call_2Dwith_2Dport: /* k port proc */
|
|
hreserve(hbsz(1+1), 3); /* 3 live regs */
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(454);
|
|
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)); }
|
|
hreserve(hbsz(2+1), 4); /* 4 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(455);
|
|
r[4] = (hendblk(2+1));
|
|
{ /* make-improper-lambda */
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
*--hp = r[4];
|
|
*--hp = obj_from_fixnum(+0);
|
|
*--hp = obj_from_objptr(appcases+1);
|
|
r[4] = (hendblk(3)); }
|
|
r[5+0] = r[2];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = r[4];
|
|
r[5+2] = r[1];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 454: /* clo k vals */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vals port */
|
|
(void)(cxs_close_2Dport((r[2])));
|
|
{ /* define apply */
|
|
static obj c[] = { obj_from_objptr(appcases+0) };
|
|
r[3] = obj_from_objptr(c); }
|
|
r[4+0] = r[3];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = r[0];
|
|
r[4+2] = (cx__25residual_2Dvalues);
|
|
r[4+3] = r[1];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 455: /* clo k results */
|
|
assert(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 results consumer k */
|
|
{ /* define apply */
|
|
static obj c[] = { obj_from_objptr(appcases+0) };
|
|
r[4] = obj_from_objptr(c); }
|
|
r[5+0] = r[4];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = r[3];
|
|
r[5+2] = r[2];
|
|
r[5+3] = r[1];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 456: /* clo k str start end */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k str start end */
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
/* r[3] */
|
|
goto gs_substring_2D_3Elist;
|
|
|
|
case 457: /* clo k str start */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k str start */
|
|
r[3+0] = r[0];
|
|
r[3+1] = r[1];
|
|
r[3+2] = r[2];
|
|
r[3+3] = obj_from_fixnum(stringlen((r[1])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs_substring_2D_3Elist;
|
|
|
|
case 458: /* clo k str */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k str */
|
|
r[2+0] = r[0];
|
|
r[2+1] = r[1];
|
|
r[2+2] = obj_from_fixnum(+0);
|
|
r[2+3] = obj_from_fixnum(stringlen((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs_substring_2D_3Elist;
|
|
|
|
case 459: /* clo k str start end */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k str start end */
|
|
{ /* substring */
|
|
int *d = substring(stringdata((r[1])), fixnum_from_obj(r[2]), fixnum_from_obj(r[3]));
|
|
r[4] = (hpushstr(4, d)); }
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = r[4];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 460: /* clo k str start */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k str start */
|
|
{ /* substring */
|
|
int *d = substring(stringdata((r[1])), fixnum_from_obj(r[2]), (stringlen((r[1]))));
|
|
r[3] = (hpushstr(3, d)); }
|
|
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 461: /* clo k str */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k str */
|
|
{ /* string-copy */
|
|
int *d = dupstring(stringdata((r[1])));
|
|
r[2] = (hpushstr(2, d)); }
|
|
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 462: /* clo k to at from start end */
|
|
assert(rc == 7);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k to at from start end */
|
|
r[6+0] = r[0];
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = obj_from_ktrap();
|
|
r[6+2] = (cxs_substring_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5])));
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 463: /* clo k to at from start */
|
|
assert(rc == 6);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k to at from start */
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = (cxs_substring_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), obj_from_fixnum(stringlen((r[3])))));
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 464: /* clo k to at from */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k to at from */
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = (cxs_substring_2Dcopy_21((r[1]), (r[2]), (r[3]), obj_from_fixnum(+0), obj_from_fixnum(stringlen((r[3])))));
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 465: /* clo k str c start end */
|
|
assert(rc == 6);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k str c start end */
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = (cxs_substring_2Dfill_21((r[1]), (r[2]), (r[3]), (r[4])));
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 466: /* clo k str c start */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k str c start */
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = (cxs_substring_2Dfill_21((r[1]), (r[2]), (r[3]), obj_from_fixnum(stringlen((r[1])))));
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 467: /* clo k str c */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k str c */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = obj_from_void(stringfill(stringdata((r[1])), char_from_obj(r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 468: /* clo k vec start end */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec start end */
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
/* r[3] */
|
|
goto gs_subvector_2D_3Elist;
|
|
|
|
case 469: /* clo k vec start */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec start */
|
|
r[3+0] = r[0];
|
|
r[3+1] = r[1];
|
|
r[3+2] = r[2];
|
|
r[3+3] = obj_from_fixnum(vectorlen((r[1])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs_subvector_2D_3Elist;
|
|
|
|
case 470: /* clo k vec */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec */
|
|
r[2+0] = r[0];
|
|
r[2+1] = r[1];
|
|
r[2+2] = obj_from_fixnum(+0);
|
|
r[2+3] = obj_from_fixnum(vectorlen((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs_subvector_2D_3Elist;
|
|
|
|
case 471: /* clo k vec start end */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec start end */
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
/* r[3] */
|
|
goto gs_subvector_2D_3Estring;
|
|
|
|
case 472: /* clo k vec start */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec start */
|
|
r[3+0] = r[0];
|
|
r[3+1] = r[1];
|
|
r[3+2] = r[2];
|
|
r[3+3] = obj_from_fixnum(vectorlen((r[1])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs_subvector_2D_3Estring;
|
|
|
|
case 473: /* clo k vec */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec */
|
|
r[2+0] = r[0];
|
|
r[2+1] = r[1];
|
|
r[2+2] = obj_from_fixnum(+0);
|
|
r[2+3] = obj_from_fixnum(vectorlen((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs_subvector_2D_3Estring;
|
|
|
|
case 474: /* clo k str start end */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k str start end */
|
|
{ /* new-vector */
|
|
int c = (fxsub(fixnum_from_obj(r[3]), fixnum_from_obj(r[2])));
|
|
hreserve(hbsz(c+1), 4); /* 4 live regs */
|
|
hp -= c; memset(hp, 0, c * sizeof(obj));
|
|
*--hp = obj_from_size(VECTOR_BTAG);
|
|
r[4] = (hendblk(c+1)); }
|
|
r[4] = (cxs__25substring_2Dvector_2Dcopy_21((r[4]), obj_from_fixnum(+0), (r[1]), (r[2]), (r[3])));
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = r[4];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 475: /* clo k str start */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k str start */
|
|
{ /* new-vector */
|
|
int c = (fxsub((stringlen((r[1]))), fixnum_from_obj(r[2])));
|
|
hreserve(hbsz(c+1), 3); /* 3 live regs */
|
|
hp -= c; memset(hp, 0, c * sizeof(obj));
|
|
*--hp = obj_from_size(VECTOR_BTAG);
|
|
r[3] = (hendblk(c+1)); }
|
|
r[3] = (cxs__25substring_2Dvector_2Dcopy_21((r[3]), obj_from_fixnum(+0), (r[1]), (r[2]), obj_from_fixnum(stringlen((r[1])))));
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 476: /* clo k str */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k str */
|
|
{ /* new-vector */
|
|
int c = (fxsub((stringlen((r[1]))), (+0)));
|
|
hreserve(hbsz(c+1), 2); /* 2 live regs */
|
|
hp -= c; memset(hp, 0, c * sizeof(obj));
|
|
*--hp = obj_from_size(VECTOR_BTAG);
|
|
r[2] = (hendblk(c+1)); }
|
|
r[2] = (cxs__25substring_2Dvector_2Dcopy_21((r[2]), obj_from_fixnum(+0), (r[1]), obj_from_fixnum(+0), obj_from_fixnum(stringlen((r[1])))));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 477: /* clo k to at from start end */
|
|
assert(rc == 7);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k to at from start end */
|
|
r[6+0] = r[0];
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = obj_from_ktrap();
|
|
r[6+2] = (cxs_subvector_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5])));
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 478: /* clo k to at from start */
|
|
assert(rc == 6);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k to at from start */
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = (cxs_subvector_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), obj_from_fixnum(vectorlen((r[3])))));
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 479: /* clo k to at from */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k to at from */
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = (cxs_subvector_2Dcopy_21((r[1]), (r[2]), (r[3]), obj_from_fixnum(+0), obj_from_fixnum(vectorlen((r[3])))));
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 480: /* clo k vec start end */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec start end */
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
/* r[3] */
|
|
goto gs_subvector;
|
|
|
|
case 481: /* clo k vec start */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec start */
|
|
r[3+0] = r[0];
|
|
r[3+1] = r[1];
|
|
r[3+2] = r[2];
|
|
r[3+3] = obj_from_fixnum(vectorlen((r[1])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs_subvector;
|
|
|
|
case 482: /* clo k vec */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec */
|
|
r[2+0] = r[0];
|
|
r[2+1] = r[1];
|
|
r[2+2] = obj_from_fixnum(+0);
|
|
r[2+3] = obj_from_fixnum(vectorlen((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs_subvector;
|
|
|
|
case 483: /* %vectors-sum-length k vecs */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vecs */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (cxs__25vectors_2Dsum_2Dlength((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 484: /* %vectors-copy-into! k to vecs */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k to vecs */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = (cxs__25vectors_2Dcopy_2Dinto_21((r[1]), (r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 485: /* clo k vecs */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vecs */
|
|
r[2] = (cxs__25vectors_2Dsum_2Dlength((r[1])));
|
|
{ /* new-vector */
|
|
int c = fixnum_from_obj(r[2]);
|
|
hreserve(hbsz(c+1), 3); /* 3 live regs */
|
|
hp -= c; memset(hp, 0, c * sizeof(obj));
|
|
*--hp = obj_from_size(VECTOR_BTAG);
|
|
r[2] = (hendblk(c+1)); }
|
|
r[2] = (cxs__25vectors_2Dcopy_2Dinto_21((r[2]), (r[1])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 486: /* clo k vec x start end */
|
|
assert(rc == 6);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec x start end */
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = (cxs_subvector_2Dfill_21((r[1]), (r[2]), (r[3]), (r[4])));
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 487: /* clo k vec x start */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec x start */
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = (cxs_subvector_2Dfill_21((r[1]), (r[2]), (r[3]), obj_from_fixnum(vectorlen((r[1])))));
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 488: /* clo k vec x */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec x */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = (cxs_subvector_2Dfill_21((r[1]), (r[2]), obj_from_fixnum(+0), obj_from_fixnum(vectorlen((r[1])))));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 489: /* clo k vec start end */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec start end */
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
/* r[3] */
|
|
goto gs_subbytevector_2D_3Elist;
|
|
|
|
case 490: /* clo k vec start */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec start */
|
|
r[3+0] = r[0];
|
|
r[3+1] = r[1];
|
|
r[3+2] = r[2];
|
|
r[3+3] = obj_from_fixnum(bytevectorlen((r[1])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs_subbytevector_2D_3Elist;
|
|
|
|
case 491: /* clo k vec */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec */
|
|
r[2+0] = r[0];
|
|
r[2+1] = r[1];
|
|
r[2+2] = obj_from_fixnum(+0);
|
|
r[2+3] = obj_from_fixnum(bytevectorlen((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs_subbytevector_2D_3Elist;
|
|
|
|
case 492: /* clo k to at from start end */
|
|
assert(rc == 7);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k to at from start end */
|
|
r[6+0] = r[0];
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = obj_from_ktrap();
|
|
r[6+2] = (cxs_subbytevector_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), (r[5])));
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 493: /* clo k to at from start */
|
|
assert(rc == 6);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k to at from start */
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = (cxs_subbytevector_2Dcopy_21((r[1]), (r[2]), (r[3]), (r[4]), obj_from_fixnum(bytevectorlen((r[3])))));
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 494: /* clo k to at from */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k to at from */
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = (cxs_subbytevector_2Dcopy_21((r[1]), (r[2]), (r[3]), obj_from_fixnum(+0), obj_from_fixnum(bytevectorlen((r[3])))));
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 495: /* clo k vec start end */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec start end */
|
|
{ /* subbytevector */
|
|
int *d = subbytevector(bytevectordata((r[1])), fixnum_from_obj(r[2]), fixnum_from_obj(r[3]));
|
|
r[4] = (hpushu8v(4, d)); }
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = r[4];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 496: /* clo k vec start */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec start */
|
|
{ /* subbytevector */
|
|
int *d = subbytevector(bytevectordata((r[1])), fixnum_from_obj(r[2]), (bytevectorlen((r[1]))));
|
|
r[3] = (hpushu8v(3, d)); }
|
|
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 497: /* clo k vec */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec */
|
|
{ /* subbytevector */
|
|
int *d = subbytevector(bytevectordata((r[1])), (+0), (bytevectorlen((r[1]))));
|
|
r[2] = (hpushu8v(2, d)); }
|
|
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 498: /* %bytevectors-sum-length k vecs */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vecs */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (cxs__25bytevectors_2Dsum_2Dlength((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 499: /* %bytevectors-copy-into! k to vecs */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k to vecs */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = (cxs__25bytevectors_2Dcopy_2Dinto_21((r[1]), (r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 500: /* clo k vecs */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vecs */
|
|
r[2] = (cxs__25bytevectors_2Dsum_2Dlength((r[1])));
|
|
r[2] = (hpushu8v(3, allocbytevector(fixnum_from_obj(r[2]))));
|
|
r[2] = (cxs__25bytevectors_2Dcopy_2Dinto_21((r[2]), (r[1])));
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 501: /* subutf8->string k vec start end */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
gs_subutf8_2D_3Estring: /* k vec start end */
|
|
{ /* open-output-string */
|
|
r[4] = (mkoport_string(4, newcb())); }
|
|
(void)(cxs_write_2Dsubbytevector((r[1]), (r[2]), (r[3]), (r[4])));
|
|
{ /* get-output-string */
|
|
obj o = r[4]; cxtype_oport_t *vt = ckoportvt(o);
|
|
if (vt != (cxtype_oport_t *)OPORT_STRING_NTAG &&
|
|
vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG) r[5] = (mkeof());
|
|
else { cbuf_t *pcb = oportdata(o);
|
|
r[5] = (hpushstr(5, newstring(cbdata(pcb)))); } }
|
|
{ /* close-output-port */
|
|
obj o = r[4]; cxtype_oport_t *vt = oportvt(o); assert(vt);
|
|
vt->close(oportdata(o)); vt->free(oportdata(o));
|
|
objptr_from_obj(o)[-1] = (obj)OPORT_CLOSED_NTAG;
|
|
(void)(0); }
|
|
r[4] = r[5];
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = r[4];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 502: /* clo k vec start end */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec start end */
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
/* r[3] */
|
|
goto gs_subutf8_2D_3Estring;
|
|
|
|
case 503: /* clo k vec start */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec start */
|
|
r[3+0] = r[0];
|
|
r[3+1] = r[1];
|
|
r[3+2] = r[2];
|
|
r[3+3] = obj_from_fixnum(bytevectorlen((r[1])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs_subutf8_2D_3Estring;
|
|
|
|
case 504: /* clo k vec */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec */
|
|
{ /* bytevector->string */
|
|
int *d = bytevectordata((r[1]));
|
|
r[2] = (hpushstr(2, newstringn((char *)bvdatabytes(d), *d))); }
|
|
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 505: /* substring->utf8 k str start end */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
gs_substring_2D_3Eutf8: /* k str start end */
|
|
{ /* open-output-bytevector */
|
|
r[4] = (mkoport_bytevector(4, newcb())); }
|
|
(void)(cxs_write_2Dsubstring((r[1]), (r[2]), (r[3]), (r[4])));
|
|
{ /* get-output-bytevector */
|
|
obj o = r[4]; cxtype_oport_t *vt = ckoportvt(o);
|
|
if (vt != (cxtype_oport_t *)OPORT_BYTEVECTOR_NTAG &&
|
|
vt != (cxtype_oport_t *)OPORT_STRING_NTAG) r[5] = (mkeof());
|
|
else { cbuf_t *pcb = oportdata(o); int len = (int)(pcb->fill - pcb->buf);
|
|
r[5] = (hpushu8v(5, newbytevector((unsigned char *)pcb->buf, len))); } }
|
|
{ /* close-output-port */
|
|
obj o = r[4]; cxtype_oport_t *vt = oportvt(o); assert(vt);
|
|
vt->close(oportdata(o)); vt->free(oportdata(o));
|
|
objptr_from_obj(o)[-1] = (obj)OPORT_CLOSED_NTAG;
|
|
(void)(0); }
|
|
r[4] = r[5];
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = r[4];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 506: /* clo k str start end */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k str start end */
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
/* r[3] */
|
|
goto gs_substring_2D_3Eutf8;
|
|
|
|
case 507: /* clo k str start */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k str start */
|
|
r[3+0] = r[0];
|
|
r[3+1] = r[1];
|
|
r[3+2] = r[2];
|
|
r[3+3] = obj_from_fixnum(stringlen((r[1])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs_substring_2D_3Eutf8;
|
|
|
|
case 508: /* clo k str */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k str */
|
|
{ /* string->bytevector */
|
|
int *d = stringdata((r[1]));
|
|
r[2] = (hpushu8v(2, newbytevector((unsigned char *)sdatachars(d), *d))); }
|
|
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 509: /* clo k str p start end */
|
|
assert(rc == 6);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k str p start end */
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = (cxs_read_2Dsubstring_21((r[1]), (r[3]), (r[4]), (r[2])));
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 510: /* clo k str p start */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k str p start */
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = (cxs_read_2Dsubstring_21((r[1]), (r[3]), obj_from_fixnum(stringlen((r[1]))), (r[2])));
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 511: /* clo k str p */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k str p */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = (cxs_read_2Dsubstring_21((r[1]), obj_from_fixnum(+0), obj_from_fixnum(stringlen((r[1]))), (r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 512: /* clo k str */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k str */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (cxs_read_2Dsubstring_21((r[1]), obj_from_fixnum(+0), obj_from_fixnum(stringlen((r[1]))), (cx__2Acurrent_2Dinput_2Dport_2A)));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 513: /* clo k k p */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k k p */
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
goto gs_read_2Dsubstring;
|
|
|
|
case 514: /* clo k k */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k k */
|
|
r[2+0] = r[0];
|
|
r[2+1] = r[1];
|
|
r[2+2] = (cx__2Acurrent_2Dinput_2Dport_2A);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs_read_2Dsubstring;
|
|
|
|
case 515: /* clo k vec p start end */
|
|
assert(rc == 6);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec p start end */
|
|
r[5+0] = r[0];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = (cxs_read_2Dsubbytevector_21((r[1]), (r[3]), (r[4]), (r[2])));
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 516: /* clo k vec p start */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec p start */
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = (cxs_read_2Dsubbytevector_21((r[1]), (r[3]), obj_from_fixnum(bytevectorlen((r[1]))), (r[2])));
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 517: /* clo k vec p */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec p */
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = (cxs_read_2Dsubbytevector_21((r[1]), obj_from_fixnum(+0), obj_from_fixnum(bytevectorlen((r[1]))), (r[2])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 518: /* clo k vec */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k vec */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (cxs_read_2Dsubbytevector_21((r[1]), obj_from_fixnum(+0), obj_from_fixnum(bytevectorlen((r[1]))), (cx__2Acurrent_2Dinput_2Dport_2A)));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 519: /* clo k k p */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k k p */
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
goto gs_read_2Dsubbytevector;
|
|
|
|
case 520: /* clo k k */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k k */
|
|
r[2+0] = r[0];
|
|
r[2+1] = r[1];
|
|
r[2+2] = (cx__2Acurrent_2Dinput_2Dport_2A);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs_read_2Dsubbytevector;
|
|
|
|
case 521: /* clo k l */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k l */
|
|
hreserve(hbsz(1+1), 2); /* 2 live regs */
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(522);
|
|
r[2] = (hendblk(1+1));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
goto gs_call_2Dwith_2Dcurrent_2Dcontinuation;
|
|
|
|
case 522: /* clo k k */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k k l */
|
|
{ /* define apply */
|
|
static obj c[] = { obj_from_objptr(appcases+0) };
|
|
r[3] = obj_from_objptr(c); }
|
|
r[4+0] = r[3];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[1];
|
|
r[4+3] = r[2];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 523: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v10862;
|
|
}
|
|
|
|
s_loop_v10862: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((bool_from_obj(r[1]) == bool_from_obj(r[3]))) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10862;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 524: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v10849;
|
|
}
|
|
|
|
s_loop_v10849: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((fixnum_from_obj(r[1]) == fixnum_from_obj(r[3]))) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10849;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 525: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v10836;
|
|
}
|
|
|
|
s_loop_v10836: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((fixnum_from_obj(r[1]) < fixnum_from_obj(r[3]))) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10836;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 526: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v10823;
|
|
}
|
|
|
|
s_loop_v10823: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((fixnum_from_obj(r[1]) > fixnum_from_obj(r[3]))) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10823;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 527: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v10810;
|
|
}
|
|
|
|
s_loop_v10810: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((fixnum_from_obj(r[1]) <= fixnum_from_obj(r[3]))) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10810;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 528: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v10797;
|
|
}
|
|
|
|
s_loop_v10797: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((fixnum_from_obj(r[1]) >= fixnum_from_obj(r[3]))) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10797;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 529: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v10784;
|
|
}
|
|
|
|
s_loop_v10784: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((flonum_from_obj(r[1]) == flonum_from_obj(r[3]))) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10784;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 530: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v10771;
|
|
}
|
|
|
|
s_loop_v10771: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((flonum_from_obj(r[1]) < flonum_from_obj(r[3]))) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10771;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 531: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v10758;
|
|
}
|
|
|
|
s_loop_v10758: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((flonum_from_obj(r[1]) > flonum_from_obj(r[3]))) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10758;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 532: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v10745;
|
|
}
|
|
|
|
s_loop_v10745: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((flonum_from_obj(r[1]) <= flonum_from_obj(r[3]))) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10745;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 533: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v10732;
|
|
}
|
|
|
|
s_loop_v10732: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((flonum_from_obj(r[1]) >= flonum_from_obj(r[3]))) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10732;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 534: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v10719;
|
|
}
|
|
|
|
s_loop_v10719: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
{ const fixnum_t v14693_x = fixnum_from_obj(r[1]);
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
r[4] = obj_from_bool((v14693_x) == fixnum_from_obj(r[3]));
|
|
} else {
|
|
{ const flonum_t v14694_tmp = ((flonum_t)(v14693_x));
|
|
r[4] = obj_from_bool((v14694_tmp) == flonum_from_obj(r[3])); }
|
|
} }
|
|
} else {
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
{ const flonum_t v14692_tmp = ((flonum_t)fixnum_from_obj(r[3]));
|
|
r[4] = obj_from_bool(flonum_from_obj(r[1]) == (v14692_tmp)); }
|
|
} else {
|
|
r[4] = obj_from_bool(flonum_from_obj(r[1]) == flonum_from_obj(r[3]));
|
|
}
|
|
}
|
|
if (bool_from_obj(r[4])) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10719;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 535: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v10706;
|
|
}
|
|
|
|
s_loop_v10706: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
{ const fixnum_t v14690_x = fixnum_from_obj(r[1]);
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
r[4] = obj_from_bool((v14690_x) < fixnum_from_obj(r[3]));
|
|
} else {
|
|
{ const flonum_t v14691_tmp = ((flonum_t)(v14690_x));
|
|
r[4] = obj_from_bool((v14691_tmp) < flonum_from_obj(r[3])); }
|
|
} }
|
|
} else {
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
{ const flonum_t v14689_tmp = ((flonum_t)fixnum_from_obj(r[3]));
|
|
r[4] = obj_from_bool(flonum_from_obj(r[1]) < (v14689_tmp)); }
|
|
} else {
|
|
r[4] = obj_from_bool(flonum_from_obj(r[1]) < flonum_from_obj(r[3]));
|
|
}
|
|
}
|
|
if (bool_from_obj(r[4])) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10706;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 536: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v10693;
|
|
}
|
|
|
|
s_loop_v10693: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
{ const fixnum_t v14687_x = fixnum_from_obj(r[1]);
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
r[4] = obj_from_bool((v14687_x) > fixnum_from_obj(r[3]));
|
|
} else {
|
|
{ const flonum_t v14688_tmp = ((flonum_t)(v14687_x));
|
|
r[4] = obj_from_bool((v14688_tmp) > flonum_from_obj(r[3])); }
|
|
} }
|
|
} else {
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
{ const flonum_t v14686_tmp = ((flonum_t)fixnum_from_obj(r[3]));
|
|
r[4] = obj_from_bool(flonum_from_obj(r[1]) > (v14686_tmp)); }
|
|
} else {
|
|
r[4] = obj_from_bool(flonum_from_obj(r[1]) > flonum_from_obj(r[3]));
|
|
}
|
|
}
|
|
if (bool_from_obj(r[4])) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10693;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 537: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v10680;
|
|
}
|
|
|
|
s_loop_v10680: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
{ const fixnum_t v14684_x = fixnum_from_obj(r[1]);
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
r[4] = obj_from_bool((v14684_x) <= fixnum_from_obj(r[3]));
|
|
} else {
|
|
{ const flonum_t v14685_tmp = ((flonum_t)(v14684_x));
|
|
r[4] = obj_from_bool((v14685_tmp) <= flonum_from_obj(r[3])); }
|
|
} }
|
|
} else {
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
{ const flonum_t v14683_tmp = ((flonum_t)fixnum_from_obj(r[3]));
|
|
r[4] = obj_from_bool(flonum_from_obj(r[1]) <= (v14683_tmp)); }
|
|
} else {
|
|
r[4] = obj_from_bool(flonum_from_obj(r[1]) <= flonum_from_obj(r[3]));
|
|
}
|
|
}
|
|
if (bool_from_obj(r[4])) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10680;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 538: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v10667;
|
|
}
|
|
|
|
s_loop_v10667: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
{ const fixnum_t v14681_x = fixnum_from_obj(r[1]);
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
r[4] = obj_from_bool((v14681_x) >= fixnum_from_obj(r[3]));
|
|
} else {
|
|
{ const flonum_t v14682_tmp = ((flonum_t)(v14681_x));
|
|
r[4] = obj_from_bool((v14682_tmp) >= flonum_from_obj(r[3])); }
|
|
} }
|
|
} else {
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
{ const flonum_t v14680_tmp = ((flonum_t)fixnum_from_obj(r[3]));
|
|
r[4] = obj_from_bool(flonum_from_obj(r[1]) >= (v14680_tmp)); }
|
|
} else {
|
|
r[4] = obj_from_bool(flonum_from_obj(r[1]) >= flonum_from_obj(r[3]));
|
|
}
|
|
}
|
|
if (bool_from_obj(r[4])) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10667;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 539: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
goto s_loop_v10652;
|
|
|
|
s_loop_v10652: /* k x args */
|
|
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[3] = ((fixnum_from_obj(r[1]) > fixnum_from_obj(r[3])) ? (r[1]) : (r[3]));
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10652;
|
|
}
|
|
|
|
case 540: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
goto s_loop_v10637;
|
|
|
|
s_loop_v10637: /* k x args */
|
|
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[3] = ((fixnum_from_obj(r[1]) < fixnum_from_obj(r[3])) ? (r[1]) : (r[3]));
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10637;
|
|
}
|
|
|
|
case 541: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
goto s_loop_v10622;
|
|
|
|
s_loop_v10622: /* k x args */
|
|
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[3] = ((flonum_from_obj(r[1]) > flonum_from_obj(r[3])) ? (r[1]) : (r[3]));
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10622;
|
|
}
|
|
|
|
case 542: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
goto s_loop_v10607;
|
|
|
|
s_loop_v10607: /* k x args */
|
|
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[3] = ((flonum_from_obj(r[1]) < flonum_from_obj(r[3])) ? (r[1]) : (r[3]));
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10607;
|
|
}
|
|
|
|
case 543: /* %residual-max/2 k a b */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
gs__25residual_2Dmax_2F2: /* k a b */
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
r[3] = ((fixnum_from_obj(r[1]) > fixnum_from_obj(r[2])) ? (r[1]) : (r[2]));
|
|
} else {
|
|
r[3] = obj_from_flonum(3, (flonum_t)fixnum_from_obj(r[1]));
|
|
r[3] = ((flonum_from_obj(r[3]) > flonum_from_obj(r[2])) ? (r[3]) : (r[2]));
|
|
}
|
|
} else {
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
r[3] = obj_from_flonum(3, (flonum_t)fixnum_from_obj(r[2]));
|
|
r[3] = ((flonum_from_obj(r[1]) > flonum_from_obj(r[3])) ? (r[1]) : (r[3]));
|
|
} else {
|
|
r[3] = ((flonum_from_obj(r[1]) > flonum_from_obj(r[2])) ? (r[1]) : (r[2]));
|
|
}
|
|
}
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 544: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
goto s_loop_v10578;
|
|
|
|
case 545: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
s_loop_v10578: /* k x args */
|
|
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 {
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
|
*--hp = obj_from_case(545);
|
|
r[3] = (hendblk(0+1));
|
|
hreserve(hbsz(3+1), 4); /* 4 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[2];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(546);
|
|
r[3] = (hendblk(3+1));
|
|
r[0] = r[3];
|
|
/* r[1] */
|
|
r[2] = (car((r[2])));
|
|
goto gs__25residual_2Dmax_2F2;
|
|
}
|
|
|
|
case 546: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_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 args k */
|
|
r[5+0] = r[2];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = r[4];
|
|
r[5+2] = r[1];
|
|
r[5+3] = (cdr((r[3])));
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 547: /* %residual-min/2 k a b */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
gs__25residual_2Dmin_2F2: /* k a b */
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
r[3] = ((fixnum_from_obj(r[1]) < fixnum_from_obj(r[2])) ? (r[1]) : (r[2]));
|
|
} else {
|
|
r[3] = obj_from_flonum(3, (flonum_t)fixnum_from_obj(r[1]));
|
|
r[3] = ((flonum_from_obj(r[3]) < flonum_from_obj(r[2])) ? (r[3]) : (r[2]));
|
|
}
|
|
} else {
|
|
if ((is_fixnum_obj(r[2]))) {
|
|
r[3] = obj_from_flonum(3, (flonum_t)fixnum_from_obj(r[2]));
|
|
r[3] = ((flonum_from_obj(r[1]) < flonum_from_obj(r[3])) ? (r[1]) : (r[3]));
|
|
} else {
|
|
r[3] = ((flonum_from_obj(r[1]) < flonum_from_obj(r[2])) ? (r[1]) : (r[2]));
|
|
}
|
|
}
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 548: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
goto s_loop_v10549;
|
|
|
|
case 549: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
s_loop_v10549: /* k x args */
|
|
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 {
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
|
*--hp = obj_from_case(549);
|
|
r[3] = (hendblk(0+1));
|
|
hreserve(hbsz(3+1), 4); /* 4 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[2];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(550);
|
|
r[3] = (hendblk(3+1));
|
|
r[0] = r[3];
|
|
/* r[1] */
|
|
r[2] = (car((r[2])));
|
|
goto gs__25residual_2Dmin_2F2;
|
|
}
|
|
|
|
case 550: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r loop args k */
|
|
r[5+0] = r[2];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = r[4];
|
|
r[5+2] = r[1];
|
|
r[5+3] = (cdr((r[3])));
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 551: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
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_fixnum(+0);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v10536;
|
|
}
|
|
|
|
s_loop_v10536: /* k x args */
|
|
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[3] = obj_from_fixnum(fxadd(fixnum_from_obj(r[1]), fixnum_from_obj(r[3])));
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10536;
|
|
}
|
|
|
|
case 552: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
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_fixnum(+1);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v10523;
|
|
}
|
|
|
|
s_loop_v10523: /* k x args */
|
|
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[3] = obj_from_fixnum(fxmul(fixnum_from_obj(r[1]), fixnum_from_obj(r[3])));
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10523;
|
|
}
|
|
|
|
case 553: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
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] = (cx__233223);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v10510;
|
|
}
|
|
|
|
s_loop_v10510: /* k x args */
|
|
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[3] = obj_from_flonum(4, flonum_from_obj(r[1]) + flonum_from_obj(r[3]));
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10510;
|
|
}
|
|
|
|
case 554: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
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] = (cx__233240);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v10497;
|
|
}
|
|
|
|
s_loop_v10497: /* k x args */
|
|
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[3] = obj_from_flonum(4, flonum_from_obj(r[1]) * flonum_from_obj(r[3]));
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10497;
|
|
}
|
|
|
|
case 555: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
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_fixnum(+0);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v10484;
|
|
}
|
|
|
|
s_loop_v10484: /* k x args */
|
|
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])));
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
{ const fixnum_t v14678_x = fixnum_from_obj(r[1]);
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
r[3] = obj_from_fixnum(fxadd((v14678_x), fixnum_from_obj(r[3])));
|
|
} else {
|
|
{ const flonum_t v14679_tmp = ((flonum_t)(v14678_x));
|
|
r[3] = obj_from_flonum(4, (v14679_tmp) + flonum_from_obj(r[3])); }
|
|
} }
|
|
} else {
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
{ const flonum_t v14677_tmp = ((flonum_t)fixnum_from_obj(r[3]));
|
|
r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) + (v14677_tmp)); }
|
|
} else {
|
|
r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) + flonum_from_obj(r[3]));
|
|
}
|
|
}
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10484;
|
|
}
|
|
|
|
case 556: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
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_fixnum(+1);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v10471;
|
|
}
|
|
|
|
s_loop_v10471: /* k x args */
|
|
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])));
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
{ const fixnum_t v14675_x = fixnum_from_obj(r[1]);
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
r[3] = obj_from_fixnum(fxmul((v14675_x), fixnum_from_obj(r[3])));
|
|
} else {
|
|
{ const flonum_t v14676_tmp = ((flonum_t)(v14675_x));
|
|
r[3] = obj_from_flonum(4, (v14676_tmp) * flonum_from_obj(r[3])); }
|
|
} }
|
|
} else {
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
{ const flonum_t v14674_tmp = ((flonum_t)fixnum_from_obj(r[3]));
|
|
r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) * (v14674_tmp)); }
|
|
} else {
|
|
r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) * flonum_from_obj(r[3]));
|
|
}
|
|
}
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10471;
|
|
}
|
|
|
|
case 557: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
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_fixnum(+0);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v10458;
|
|
}
|
|
|
|
s_loop_v10458: /* k x args */
|
|
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])));
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
{ const fixnum_t v14672_x = fixnum_from_obj(r[1]);
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
r[3] = obj_from_fixnum(fxgcd((v14672_x), fixnum_from_obj(r[3])));
|
|
} else {
|
|
{ const flonum_t v14673_tmp = ((flonum_t)(v14672_x));
|
|
r[3] = obj_from_flonum(4, flgcd((v14673_tmp), flonum_from_obj(r[3]))); }
|
|
} }
|
|
} else {
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
{ const flonum_t v14671_tmp = ((flonum_t)fixnum_from_obj(r[3]));
|
|
r[3] = obj_from_flonum(4, flgcd(flonum_from_obj(r[1]), (v14671_tmp))); }
|
|
} else {
|
|
r[3] = obj_from_flonum(4, flgcd(flonum_from_obj(r[1]), flonum_from_obj(r[3])));
|
|
}
|
|
}
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10458;
|
|
}
|
|
|
|
case 558: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
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_fixnum(+1);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v10439;
|
|
}
|
|
|
|
case 559: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
s_loop_v10439: /* k x args */
|
|
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 {
|
|
hreserve(hbsz(0+1), 3); /* 3 live regs */
|
|
*--hp = obj_from_case(559);
|
|
r[3] = (hendblk(0+1));
|
|
hreserve(hbsz(3+1), 4); /* 4 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[2];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(560);
|
|
r[3] = (hendblk(3+1));
|
|
r[0] = r[3];
|
|
/* r[1] */
|
|
r[2] = (car((r[2])));
|
|
goto gs_lcm_2F2;
|
|
}
|
|
|
|
case 560: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_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 args k */
|
|
r[5+0] = r[2];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = r[4];
|
|
r[5+2] = r[1];
|
|
r[5+3] = (cdr((r[3])));
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 561: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
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] = obj_from_fixnum(fxneg(fixnum_from_obj(r[1])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
goto s_loop_v10424;
|
|
}
|
|
|
|
s_loop_v10424: /* k x args */
|
|
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[3] = obj_from_fixnum(fxsub(fixnum_from_obj(r[1]), fixnum_from_obj(r[3])));
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10424;
|
|
}
|
|
|
|
case 562: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
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] = obj_from_fixnum(fxdiv(1, fixnum_from_obj(r[1])));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
goto s_loop_v10409;
|
|
}
|
|
|
|
s_loop_v10409: /* k x args */
|
|
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[3] = obj_from_fixnum(fxdiv(fixnum_from_obj(r[1]), fixnum_from_obj(r[3])));
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10409;
|
|
}
|
|
|
|
case 563: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
if ((isnull((r[2])))) {
|
|
r[3] = obj_from_flonum(3, -flonum_from_obj(r[1]));
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
goto s_loop_v10394;
|
|
}
|
|
|
|
s_loop_v10394: /* k x args */
|
|
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[3] = obj_from_flonum(4, flonum_from_obj(r[1]) - flonum_from_obj(r[3]));
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10394;
|
|
}
|
|
|
|
case 564: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
if ((isnull((r[2])))) {
|
|
r[3] = obj_from_flonum(3, 1.0/flonum_from_obj(r[1]));
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
goto s_loop_v10379;
|
|
}
|
|
|
|
s_loop_v10379: /* k x args */
|
|
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[3] = obj_from_flonum(4, flonum_from_obj(r[1]) / flonum_from_obj(r[3]));
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10379;
|
|
}
|
|
|
|
case 565: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
if ((isnull((r[2])))) {
|
|
r[3] = ((is_fixnum_obj(r[1])) ? obj_from_fixnum(fxneg(fixnum_from_obj(r[1]))) : obj_from_flonum(3, -flonum_from_obj(r[1])));
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
goto s_loop_v10364;
|
|
}
|
|
|
|
s_loop_v10364: /* k x args */
|
|
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])));
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
{ const fixnum_t v14669_x = fixnum_from_obj(r[1]);
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
r[3] = obj_from_fixnum(fxsub((v14669_x), fixnum_from_obj(r[3])));
|
|
} else {
|
|
{ const flonum_t v14670_tmp = ((flonum_t)(v14669_x));
|
|
r[3] = obj_from_flonum(4, (v14670_tmp) - flonum_from_obj(r[3])); }
|
|
} }
|
|
} else {
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
{ const flonum_t v14668_tmp = ((flonum_t)fixnum_from_obj(r[3]));
|
|
r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) - (v14668_tmp)); }
|
|
} else {
|
|
r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) - flonum_from_obj(r[3]));
|
|
}
|
|
}
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10364;
|
|
}
|
|
|
|
case 566: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
if ((isnull((r[2])))) {
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
{ /* fxfl/ */
|
|
fixnum_t x = (+1), y = fixnum_from_obj(r[1]);
|
|
long i; double d;
|
|
if (0) r[3] = (0); /* to fool sfc unboxer */
|
|
else if (fxifdv(x, y, &i, &d)) r[3] = obj_from_fixnum(i);
|
|
else r[3] = obj_from_flonum(3, d); }
|
|
} else {
|
|
r[3] = obj_from_flonum(3, 1.0/flonum_from_obj(r[1]));
|
|
}
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
goto s_loop_v10349;
|
|
}
|
|
|
|
s_loop_v10349: /* k x args */
|
|
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])));
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
{ const fixnum_t v14666_x = fixnum_from_obj(r[1]);
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
{ /* fxfl/ */
|
|
fixnum_t x = (v14666_x), y = fixnum_from_obj(r[3]);
|
|
long i; double d;
|
|
if (0) r[3] = (0); /* to fool sfc unboxer */
|
|
else if (fxifdv(x, y, &i, &d)) r[3] = obj_from_fixnum(i);
|
|
else r[3] = obj_from_flonum(4, d); }
|
|
} else {
|
|
{ const flonum_t v14667_tmp = ((flonum_t)(v14666_x));
|
|
r[3] = obj_from_flonum(4, (v14667_tmp) / flonum_from_obj(r[3])); }
|
|
} }
|
|
} else {
|
|
if ((is_fixnum_obj(r[3]))) {
|
|
{ const flonum_t v14665_tmp = ((flonum_t)fixnum_from_obj(r[3]));
|
|
r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) / (v14665_tmp)); }
|
|
} else {
|
|
r[3] = obj_from_flonum(4, flonum_from_obj(r[1]) / flonum_from_obj(r[3]));
|
|
}
|
|
}
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v10349;
|
|
}
|
|
|
|
case 567: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
if ((isnull((r[2])))) {
|
|
r[3] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(3, (flonum_t)fixnum_from_obj(r[1])));
|
|
r[3] = obj_from_flonum(4, log(flonum_from_obj(r[3])));
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
r[3] = obj_from_bool(fixnum_from_obj(r[3]) == (+10));
|
|
if (bool_from_obj(r[3])) {
|
|
r[3] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(3, (flonum_t)fixnum_from_obj(r[1])));
|
|
r[3] = obj_from_flonum(4, log10(flonum_from_obj(r[3])));
|
|
} else {
|
|
{ flonum_t v14664_tmp;
|
|
{ flonum_t v14663_tmp;
|
|
r[3] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(3, (flonum_t)fixnum_from_obj(r[1])));
|
|
v14664_tmp = (log(flonum_from_obj(r[3])));
|
|
r[3] = (car((r[2])));
|
|
r[3] = ((is_flonum_obj(r[3])) ? (r[3]) : obj_from_flonum(4, (flonum_t)fixnum_from_obj(r[3])));
|
|
v14663_tmp = (log(flonum_from_obj(r[3])));
|
|
r[3] = obj_from_flonum(3, (v14664_tmp) / (v14663_tmp)); } }
|
|
}
|
|
}
|
|
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 568: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
{ const flonum_t v14662_x = flonum_from_obj(r[1]);
|
|
if ((isnull((r[2])))) {
|
|
r[3] = obj_from_flonum(3, atan((v14662_x)));
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
r[3] = obj_from_flonum(4, atan2((v14662_x), flonum_from_obj(r[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; }
|
|
|
|
case 569: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
if ((isnull((r[2])))) {
|
|
r[3] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(3, (flonum_t)fixnum_from_obj(r[1])));
|
|
r[3] = obj_from_flonum(4, atan(flonum_from_obj(r[3])));
|
|
} else {
|
|
r[3] = ((is_flonum_obj(r[1])) ? (r[1]) : obj_from_flonum(3, (flonum_t)fixnum_from_obj(r[1])));
|
|
r[4] = (car((r[2])));
|
|
r[4] = ((is_flonum_obj(r[4])) ? (r[4]) : obj_from_flonum(5, (flonum_t)fixnum_from_obj(r[4])));
|
|
r[3] = obj_from_flonum(5, atan2(flonum_from_obj(r[3]), flonum_from_obj(r[4])));
|
|
}
|
|
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 570: /* clo k x y args */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y args */
|
|
if ((isnull((r[3])))) {
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = (ismember((r[1]), (r[2])));
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
r[3] = (car((r[3])));
|
|
goto gs__25member;
|
|
}
|
|
|
|
case 571: /* clo k x y args */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x y args */
|
|
if ((isnull((r[3])))) {
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = (isassoc((r[1]), (r[2])));
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
r[3] = (car((r[3])));
|
|
goto gs__25assoc;
|
|
}
|
|
|
|
case 572: /* clo k p l l* */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k p l l* */
|
|
if ((isnull((r[3])))) {
|
|
r[4+0] = r[0];
|
|
r[4+1] = r[2];
|
|
r[4+2] = (mknull());
|
|
r[4+3] = r[1];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_loop_v10282;
|
|
} else {
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[4] = (hendblk(3)); }
|
|
r[5+0] = r[0];
|
|
r[5+1] = r[4];
|
|
r[5+2] = (mknull());
|
|
r[5+3] = r[1];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_loop_v10224;
|
|
}
|
|
|
|
case 573: /* clo k l r */
|
|
assert(rc == 4);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+3] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
s_loop_v10282: /* k l r p */
|
|
if ((ispair((r[1])))) {
|
|
hreserve(hbsz(1+1), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(573);
|
|
r[4] = (hendblk(1+1));
|
|
hreserve(hbsz(4+1), 5); /* 5 live regs */
|
|
*--hp = r[2];
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = r[4];
|
|
*--hp = obj_from_case(574);
|
|
r[4] = (hendblk(4+1));
|
|
r[5+0] = r[3];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = r[4];
|
|
r[5+2] = (car((r[1])));
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
{ /* reverse! */
|
|
obj t, v = mknull(), l = r[2];
|
|
while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
|
|
r[4] = (v); }
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = r[4];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
|
|
case 574: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(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 l k r */
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
*--hp = r[5];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[6] = (hendblk(3)); }
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[4];
|
|
r[2] = (cdr((r[3])));
|
|
r[3] = r[6];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 575: /* clo k l* r */
|
|
assert(rc == 4);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+3] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
s_loop_v10224: /* k l* r p */
|
|
hreserve(hbsz(1+1), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(575);
|
|
r[4] = (hendblk(1+1));
|
|
hreserve(hbsz(5+1), 5); /* 5 live regs */
|
|
*--hp = r[2];
|
|
*--hp = r[0];
|
|
*--hp = r[4];
|
|
*--hp = r[3];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(576);
|
|
r[4] = (hendblk(5+1));
|
|
r[0] = r[4];
|
|
/* r[1] */
|
|
goto s_lp;
|
|
|
|
s_lp: /* k l* */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[2] = obj_from_bool(ispair((r[2])));
|
|
if (bool_from_obj(r[2])) {
|
|
r[2] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
goto s_lp;
|
|
} else {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(0);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 576: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3];
|
|
r[1+5] = p[4];
|
|
r[1+6] = p[5]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r l* p loop k r */
|
|
if (bool_from_obj(r[1])) {
|
|
hreserve(hbsz(5+1), 7); /* 7 live regs */
|
|
*--hp = r[6];
|
|
*--hp = r[5];
|
|
*--hp = r[4];
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(578);
|
|
r[7] = (hendblk(5+1));
|
|
r[0] = r[7];
|
|
r[1] = r[2];
|
|
goto s_loop_v10256;
|
|
} else {
|
|
{ /* reverse! */
|
|
obj t, v = mknull(), l = r[6];
|
|
while (l != mknull()) t = cdr(l), cdr(l) = v, v = l, l = t;
|
|
r[7] = (v); }
|
|
r[0] = r[5];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = r[7];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
|
|
s_loop_v10256: /* k l */
|
|
if ((ispair((r[1])))) {
|
|
r[2] = (cdr((r[1])));
|
|
hreserve(hbsz(2+1), 3); /* 3 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(577);
|
|
r[3] = (hendblk(2+1));
|
|
r[0] = r[3];
|
|
r[1] = r[2];
|
|
goto s_loop_v10256;
|
|
} 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 577: /* clo 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[4] = (cdr((r[4])));
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[4];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[4] = (hendblk(3)); }
|
|
r[5+0] = r[2];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = r[4];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 578: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3];
|
|
r[1+5] = p[4];
|
|
r[1+6] = p[5]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r l* p loop k r */
|
|
hreserve(hbsz(5+1), 7); /* 7 live regs */
|
|
*--hp = r[6];
|
|
*--hp = r[5];
|
|
*--hp = r[1];
|
|
*--hp = r[4];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(580);
|
|
r[7] = (hendblk(5+1));
|
|
r[0] = r[7];
|
|
r[1] = r[2];
|
|
goto s_loop_v10241;
|
|
|
|
s_loop_v10241: /* k l */
|
|
if ((ispair((r[1])))) {
|
|
r[2] = (cdr((r[1])));
|
|
hreserve(hbsz(2+1), 3); /* 3 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(579);
|
|
r[3] = (hendblk(2+1));
|
|
r[0] = r[3];
|
|
r[1] = r[2];
|
|
goto s_loop_v10241;
|
|
} 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 579: /* clo 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[4] = (car((r[4])));
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[4];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[4] = (hendblk(3)); }
|
|
r[5+0] = r[2];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = r[4];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 580: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = 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 p loop r k r */
|
|
{ /* define apply */
|
|
static obj c[] = { obj_from_objptr(appcases+0) };
|
|
r[7] = obj_from_objptr(c); }
|
|
hreserve(hbsz(4+1), 8); /* 8 live regs */
|
|
*--hp = r[6];
|
|
*--hp = r[5];
|
|
*--hp = r[4];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(581);
|
|
r[8] = (hendblk(4+1));
|
|
r[9+0] = r[7];
|
|
pc = objptr_from_obj(r[9+0])[0];
|
|
r[9+1] = r[8];
|
|
r[9+2] = r[2];
|
|
r[9+3] = r[1];
|
|
r += 9; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 581: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3];
|
|
r[1+5] = p[4]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r loop r k r */
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 6); /* 6 live regs */
|
|
*--hp = r[5];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[6] = (hendblk(3)); }
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[4];
|
|
r[2] = r[3];
|
|
r[3] = r[6];
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 582: /* clo k p l l* */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k p l l* */
|
|
if ((isnull((r[3])))) {
|
|
r[4+0] = r[0];
|
|
r[4+1] = r[2];
|
|
r[4+2] = r[1];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_loop_v10203;
|
|
} else {
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[4] = (hendblk(3)); }
|
|
r[5+0] = r[0];
|
|
r[5+1] = r[4];
|
|
r[5+2] = r[1];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_loop_v10147;
|
|
}
|
|
|
|
case 583: /* clo k l */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
s_loop_v10203: /* k l p */
|
|
if ((ispair((r[1])))) {
|
|
hreserve(hbsz(1+1), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(583);
|
|
r[3] = (hendblk(1+1));
|
|
hreserve(hbsz(3+1), 4); /* 4 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(584);
|
|
r[3] = (hendblk(3+1));
|
|
r[4+0] = r[2];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = r[3];
|
|
r[4+2] = (car((r[1])));
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_void(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
|
|
case 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+4] = p[3]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek . loop l k */
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[4];
|
|
r[2] = (cdr((r[3])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 585: /* clo k l* */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
s_loop_v10147: /* k l* p */
|
|
hreserve(hbsz(1+1), 3); /* 3 live regs */
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(585);
|
|
r[3] = (hendblk(1+1));
|
|
hreserve(hbsz(4+1), 4); /* 4 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[3];
|
|
*--hp = r[1];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(586);
|
|
r[3] = (hendblk(4+1));
|
|
r[0] = r[3];
|
|
/* r[1] */
|
|
goto s_lp_v10194;
|
|
|
|
s_lp_v10194: /* k l* */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[2] = obj_from_bool(ispair((r[2])));
|
|
if (bool_from_obj(r[2])) {
|
|
r[2] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
goto s_lp_v10194;
|
|
} else {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(0);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 586: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(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 p l* loop k */
|
|
if (bool_from_obj(r[1])) {
|
|
hreserve(hbsz(4+1), 6); /* 6 live regs */
|
|
*--hp = r[5];
|
|
*--hp = r[4];
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(588);
|
|
r[6] = (hendblk(4+1));
|
|
r[0] = r[6];
|
|
r[1] = r[3];
|
|
goto s_loop_v10179;
|
|
} else {
|
|
r[0] = r[5];
|
|
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;
|
|
}
|
|
|
|
s_loop_v10179: /* k l */
|
|
if ((ispair((r[1])))) {
|
|
r[2] = (cdr((r[1])));
|
|
hreserve(hbsz(2+1), 3); /* 3 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(587);
|
|
r[3] = (hendblk(2+1));
|
|
r[0] = r[3];
|
|
r[1] = r[2];
|
|
goto s_loop_v10179;
|
|
} 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 587: /* clo 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[4] = (car((r[4])));
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[4];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[4] = (hendblk(3)); }
|
|
r[5+0] = r[2];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = r[4];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 588: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(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 p l* loop k */
|
|
{ /* define apply */
|
|
static obj c[] = { obj_from_objptr(appcases+0) };
|
|
r[6] = obj_from_objptr(c); }
|
|
hreserve(hbsz(3+1), 7); /* 7 live regs */
|
|
*--hp = r[5];
|
|
*--hp = r[4];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(589);
|
|
r[7] = (hendblk(3+1));
|
|
r[8+0] = r[6];
|
|
pc = objptr_from_obj(r[8+0])[0];
|
|
r[8+1] = r[7];
|
|
r[8+2] = r[2];
|
|
r[8+3] = r[1];
|
|
r += 8; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 4;
|
|
goto jump;
|
|
|
|
case 589: /* clo ek . */
|
|
assert(rc >= 2);
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek . l* loop k */
|
|
hreserve(hbsz(2+1), 5); /* 5 live regs */
|
|
*--hp = r[4];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(591);
|
|
r[5] = (hendblk(2+1));
|
|
r[0] = r[5];
|
|
r[1] = r[2];
|
|
goto s_loop_v10160;
|
|
|
|
s_loop_v10160: /* k l */
|
|
if ((ispair((r[1])))) {
|
|
r[2] = (cdr((r[1])));
|
|
hreserve(hbsz(2+1), 3); /* 3 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(590);
|
|
r[3] = (hendblk(2+1));
|
|
r[0] = r[3];
|
|
r[1] = r[2];
|
|
goto s_loop_v10160;
|
|
} 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 590: /* clo 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[4] = (cdr((r[4])));
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 5); /* 5 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[4];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[4] = (hendblk(3)); }
|
|
r[5+0] = r[2];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = r[4];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 591: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r loop k */
|
|
r[4+0] = r[2];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = r[3];
|
|
r[4+2] = r[1];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 592: /* clo k p s s* */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k p s s* */
|
|
if ((isnull((r[3])))) {
|
|
r[4] = (hpushstr(4, allocstring((stringlen((r[2]))), '?')));
|
|
r[5+0] = r[0];
|
|
r[5+1] = obj_from_fixnum(+0);
|
|
r[5+2] = r[1];
|
|
r[5+3] = r[4];
|
|
r[5+4] = r[2];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_loop_v10126;
|
|
} else {
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[4] = (hendblk(3)); }
|
|
hreserve(hbsz(2+1), 5); /* 5 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(597);
|
|
r[5] = (hendblk(2+1));
|
|
r[0] = r[5];
|
|
r[1] = r[4];
|
|
goto s_loop_v10109;
|
|
}
|
|
|
|
case 593: /* clo k i */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3]; }
|
|
r += 1; /* shift reg. wnd */
|
|
s_loop_v10126: /* k i p res s */
|
|
if ((fixnum_from_obj(r[1]) >= (stringlen((r[4]))))) {
|
|
/* 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 {
|
|
hreserve(hbsz(3+1), 5); /* 5 live regs */
|
|
*--hp = r[4];
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(593);
|
|
r[5] = (hendblk(3+1));
|
|
hreserve(hbsz(4+1), 6); /* 6 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[3];
|
|
*--hp = r[0];
|
|
*--hp = r[5];
|
|
*--hp = obj_from_case(594);
|
|
r[5] = (hendblk(4+1));
|
|
r[6+0] = r[2];
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = r[5];
|
|
r[6+2] = obj_from_char(*(unsigned char*)stringref((r[4]), fixnum_from_obj(r[1])));
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
|
|
case 594: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(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 k res i */
|
|
{ const fixnum_t v14661_i = fixnum_from_obj(r[5]);
|
|
(void)(*stringref((r[4]), (v14661_i)) = char_from_obj(r[1]));
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[3];
|
|
r[2] = obj_from_fixnum(fxadd((v14661_i), (+1)));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump; }
|
|
|
|
s_loop_v10109: /* k l */
|
|
if ((ispair((r[1])))) {
|
|
r[2] = (cdr((r[1])));
|
|
hreserve(hbsz(2+1), 3); /* 3 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(595);
|
|
r[3] = (hendblk(2+1));
|
|
r[0] = r[3];
|
|
r[1] = r[2];
|
|
goto s_loop_v10109;
|
|
} 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 595: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r l k */
|
|
hreserve(hbsz(2+1), 4); /* 4 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(596);
|
|
r[4] = (hendblk(2+1));
|
|
r[0] = (cx_string_2D_3Elist);
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[4];
|
|
r[2] = (car((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 596: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r k r */
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[4] = (hendblk(3)); }
|
|
r[5+0] = r[2];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = r[4];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 597: /* clo 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 p k */
|
|
{ /* define apply */
|
|
static obj c[] = { obj_from_objptr(appcases+0) };
|
|
r[4] = obj_from_objptr(c); }
|
|
hreserve(hbsz(1+1), 5); /* 5 live regs */
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(598);
|
|
r[5] = (hendblk(1+1));
|
|
r[6+0] = r[4];
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = r[5];
|
|
r[6+2] = (cx__25residual_2Dmap);
|
|
r[6+3] = r[2];
|
|
r[6+4] = r[1];
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
|
|
case 598: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r k */
|
|
{ fixnum_t v14660_tmp;
|
|
{ /* length */
|
|
int n; obj l = r[1];
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
v14660_tmp = (n); }
|
|
{ /* list->string */
|
|
int i, c = (v14660_tmp);
|
|
obj o = hpushstr(3, allocstring(c, ' ')); /* 3 live regs */
|
|
obj l = r[1]; /* gc-safe */
|
|
unsigned char *s = (unsigned char *)stringchars(o);
|
|
for (i = 0; i < c; ++i, l = cdr(l)) s[i] = (unsigned char)char_from_obj(car(l));
|
|
r[3] = (o); } }
|
|
r[4+0] = r[2];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 599: /* clo k p v v* */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k p v v* */
|
|
if ((isnull((r[3])))) {
|
|
{ /* new-vector */
|
|
int c = (vectorlen((r[2])));
|
|
hreserve(hbsz(c+1), 4); /* 4 live regs */
|
|
hp -= c; memset(hp, 0, c * sizeof(obj));
|
|
*--hp = obj_from_size(VECTOR_BTAG);
|
|
r[4] = (hendblk(c+1)); }
|
|
r[5+0] = r[0];
|
|
r[5+1] = obj_from_fixnum(+0);
|
|
r[5+2] = r[1];
|
|
r[5+3] = r[4];
|
|
r[5+4] = r[2];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_loop_v10076;
|
|
} else {
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[4] = (hendblk(3)); }
|
|
hreserve(hbsz(2+1), 5); /* 5 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(604);
|
|
r[5] = (hendblk(2+1));
|
|
r[0] = r[5];
|
|
r[1] = r[4];
|
|
goto s_loop_v10059;
|
|
}
|
|
|
|
case 600: /* clo k i */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3]; }
|
|
r += 1; /* shift reg. wnd */
|
|
s_loop_v10076: /* k i p res v */
|
|
if ((fixnum_from_obj(r[1]) >= (vectorlen((r[4]))))) {
|
|
/* 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 {
|
|
hreserve(hbsz(3+1), 5); /* 5 live regs */
|
|
*--hp = r[4];
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(600);
|
|
r[5] = (hendblk(3+1));
|
|
hreserve(hbsz(4+1), 6); /* 6 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[3];
|
|
*--hp = r[0];
|
|
*--hp = r[5];
|
|
*--hp = obj_from_case(601);
|
|
r[5] = (hendblk(4+1));
|
|
r[6+0] = r[2];
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = r[5];
|
|
r[6+2] = (vectorref((r[4]), fixnum_from_obj(r[1])));
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
|
|
case 601: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(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 k res i */
|
|
{ const fixnum_t v14659_i = fixnum_from_obj(r[5]);
|
|
(void)(vectorref((r[4]), (v14659_i)) = (r[1]));
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[3];
|
|
r[2] = obj_from_fixnum(fxadd((v14659_i), (+1)));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump; }
|
|
|
|
s_loop_v10059: /* k l */
|
|
if ((ispair((r[1])))) {
|
|
r[2] = (cdr((r[1])));
|
|
hreserve(hbsz(2+1), 3); /* 3 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(602);
|
|
r[3] = (hendblk(2+1));
|
|
r[0] = r[3];
|
|
r[1] = r[2];
|
|
goto s_loop_v10059;
|
|
} 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 602: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r l k */
|
|
hreserve(hbsz(2+1), 4); /* 4 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(603);
|
|
r[4] = (hendblk(2+1));
|
|
r[0] = (cx_vector_2D_3Elist);
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[4];
|
|
r[2] = (car((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 603: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r k r */
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[4] = (hendblk(3)); }
|
|
r[5+0] = r[2];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = r[4];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 604: /* clo 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 p k */
|
|
{ /* define apply */
|
|
static obj c[] = { obj_from_objptr(appcases+0) };
|
|
r[4] = obj_from_objptr(c); }
|
|
hreserve(hbsz(1+1), 5); /* 5 live regs */
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(605);
|
|
r[5] = (hendblk(1+1));
|
|
r[6+0] = r[4];
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = r[5];
|
|
r[6+2] = (cx__25residual_2Dmap);
|
|
r[6+3] = r[2];
|
|
r[6+4] = r[1];
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
|
|
case 605: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r k */
|
|
{ fixnum_t v14658_tmp;
|
|
{ /* length */
|
|
int n; obj l = r[1];
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
v14658_tmp = (n); }
|
|
{ /* list->vector */
|
|
obj l; int i, c = (v14658_tmp);
|
|
hreserve(hbsz(c+1), 3); /* 3 live regs */
|
|
l = r[1]; /* gc-safe */
|
|
for (i = 0; i < c; ++i, l = cdr(l)) hp[i-c] = car(l);
|
|
hp -= c; *--hp = obj_from_size(VECTOR_BTAG);
|
|
r[3] = (hendblk(c+1)); } }
|
|
r[4+0] = r[2];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 606: /* clo k p s s* */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k p s s* */
|
|
if ((isnull((r[3])))) {
|
|
r[4+0] = r[0];
|
|
r[4+1] = obj_from_fixnum(+0);
|
|
r[4+2] = r[1];
|
|
r[4+3] = r[2];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_loop_v10026;
|
|
} else {
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[4] = (hendblk(3)); }
|
|
hreserve(hbsz(2+1), 5); /* 5 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(611);
|
|
r[5] = (hendblk(2+1));
|
|
r[0] = r[5];
|
|
r[1] = r[4];
|
|
goto s_loop_v10009;
|
|
}
|
|
|
|
case 607: /* clo k i */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
s_loop_v10026: /* k i p s */
|
|
if ((fixnum_from_obj(r[1]) >= (stringlen((r[3]))))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = ((0) ? obj_from_bool(0) : obj_from_void(0));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
hreserve(hbsz(2+1), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(607);
|
|
r[4] = (hendblk(2+1));
|
|
hreserve(hbsz(3+1), 5); /* 5 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = r[4];
|
|
*--hp = obj_from_case(608);
|
|
r[4] = (hendblk(3+1));
|
|
r[5+0] = r[2];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = r[4];
|
|
r[5+2] = obj_from_char(*(unsigned char*)stringref((r[3]), fixnum_from_obj(r[1])));
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
|
|
case 608: /* clo ek . */
|
|
assert(rc >= 2);
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek . loop i k */
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[4];
|
|
r[2] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1)));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
s_loop_v10009: /* k l */
|
|
if ((ispair((r[1])))) {
|
|
r[2] = (cdr((r[1])));
|
|
hreserve(hbsz(2+1), 3); /* 3 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(609);
|
|
r[3] = (hendblk(2+1));
|
|
r[0] = r[3];
|
|
r[1] = r[2];
|
|
goto s_loop_v10009;
|
|
} 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 609: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r l k */
|
|
hreserve(hbsz(2+1), 4); /* 4 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(610);
|
|
r[4] = (hendblk(2+1));
|
|
r[0] = (cx_string_2D_3Elist);
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[4];
|
|
r[2] = (car((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 610: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r k r */
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[4] = (hendblk(3)); }
|
|
r[5+0] = r[2];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = r[4];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 611: /* clo 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 p k */
|
|
{ /* define apply */
|
|
static obj c[] = { obj_from_objptr(appcases+0) };
|
|
r[4] = obj_from_objptr(c); }
|
|
r[5+0] = r[4];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = r[3];
|
|
r[5+2] = (cx__25residual_2Dfor_2Deach);
|
|
r[5+3] = r[2];
|
|
r[5+4] = r[1];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
|
|
case 612: /* clo k p v v* */
|
|
assert(rc == 5);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k p v v* */
|
|
if ((isnull((r[3])))) {
|
|
r[4+0] = r[0];
|
|
r[4+1] = obj_from_fixnum(+0);
|
|
r[4+2] = r[1];
|
|
r[4+3] = r[2];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto s_loop_v9982;
|
|
} else {
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[4] = (hendblk(3)); }
|
|
hreserve(hbsz(2+1), 5); /* 5 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(617);
|
|
r[5] = (hendblk(2+1));
|
|
r[0] = r[5];
|
|
r[1] = r[4];
|
|
goto s_loop_v9965;
|
|
}
|
|
|
|
case 613: /* clo k i */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
s_loop_v9982: /* k i p v */
|
|
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 {
|
|
hreserve(hbsz(2+1), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[2];
|
|
*--hp = obj_from_case(613);
|
|
r[4] = (hendblk(2+1));
|
|
hreserve(hbsz(3+1), 5); /* 5 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = r[4];
|
|
*--hp = obj_from_case(614);
|
|
r[4] = (hendblk(3+1));
|
|
r[5+0] = r[2];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = r[4];
|
|
r[5+2] = (vectorref((r[3]), fixnum_from_obj(r[1])));
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
|
|
case 614: /* clo ek . */
|
|
assert(rc >= 2);
|
|
r[2] = obj_from_void(0); /* ignored */
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2];
|
|
r[1+4] = p[3]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek . loop i k */
|
|
r[0] = r[2];
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[4];
|
|
r[2] = obj_from_fixnum(fxadd(fixnum_from_obj(r[3]), (+1)));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
s_loop_v9965: /* k l */
|
|
if ((ispair((r[1])))) {
|
|
r[2] = (cdr((r[1])));
|
|
hreserve(hbsz(2+1), 3); /* 3 live regs */
|
|
*--hp = r[0];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_case(615);
|
|
r[3] = (hendblk(2+1));
|
|
r[0] = r[3];
|
|
r[1] = r[2];
|
|
goto s_loop_v9965;
|
|
} 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 615: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r l k */
|
|
hreserve(hbsz(2+1), 4); /* 4 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_case(616);
|
|
r[4] = (hendblk(2+1));
|
|
r[0] = (cx_vector_2D_3Elist);
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = r[4];
|
|
r[2] = (car((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 616: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r k r */
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
*--hp = r[3];
|
|
*--hp = r[1];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[4] = (hendblk(3)); }
|
|
r[5+0] = r[2];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = r[4];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 617: /* clo 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 p k */
|
|
{ /* define apply */
|
|
static obj c[] = { obj_from_objptr(appcases+0) };
|
|
r[4] = obj_from_objptr(c); }
|
|
r[5+0] = r[4];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = r[3];
|
|
r[5+2] = (cx__25residual_2Dfor_2Deach);
|
|
r[5+3] = r[2];
|
|
r[5+4] = r[1];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
|
|
case 618: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v9946;
|
|
}
|
|
|
|
s_loop_v9946: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((char_from_obj(r[1]) == char_from_obj(r[3]))) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v9946;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 619: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v9933;
|
|
}
|
|
|
|
s_loop_v9933: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((char_from_obj(r[1]) < char_from_obj(r[3]))) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v9933;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 620: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v9920;
|
|
}
|
|
|
|
s_loop_v9920: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((char_from_obj(r[1]) > char_from_obj(r[3]))) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v9920;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 621: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v9907;
|
|
}
|
|
|
|
s_loop_v9907: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((char_from_obj(r[1]) <= char_from_obj(r[3]))) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v9907;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 622: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v9894;
|
|
}
|
|
|
|
s_loop_v9894: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((char_from_obj(r[1]) >= char_from_obj(r[3]))) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v9894;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 623: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v9881;
|
|
}
|
|
|
|
s_loop_v9881: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((tolower(char_from_obj(r[1])) == tolower(char_from_obj(r[3])))) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v9881;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 624: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v9868;
|
|
}
|
|
|
|
s_loop_v9868: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((tolower(char_from_obj(r[1])) < tolower(char_from_obj(r[3])))) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v9868;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 625: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v9855;
|
|
}
|
|
|
|
s_loop_v9855: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((tolower(char_from_obj(r[1])) > tolower(char_from_obj(r[3])))) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v9855;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 626: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v9842;
|
|
}
|
|
|
|
s_loop_v9842: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((tolower(char_from_obj(r[1])) <= tolower(char_from_obj(r[3])))) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v9842;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 627: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v9829;
|
|
}
|
|
|
|
s_loop_v9829: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((tolower(char_from_obj(r[1])) >= tolower(char_from_obj(r[3])))) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v9829;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 628: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
{ const fixnum_t v14657_x = fixnum_from_obj(r[1]);
|
|
if ((isnull((r[2])))) {
|
|
r[3] = (hpushstr(3, allocstring((v14657_x), '?')));
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
r[3] = (hpushstr(4, allocstring((v14657_x), char_from_obj(r[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; }
|
|
|
|
case 629: /* clo k l */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k l */
|
|
{ fixnum_t v14656_tmp;
|
|
{ /* length */
|
|
int n; obj l = r[1];
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
v14656_tmp = (n); }
|
|
{ /* list->string */
|
|
int i, c = (v14656_tmp);
|
|
obj o = hpushstr(2, allocstring(c, ' ')); /* 2 live regs */
|
|
obj l = r[1]; /* gc-safe */
|
|
unsigned char *s = (unsigned char *)stringchars(o);
|
|
for (i = 0; i < c; ++i, l = cdr(l)) s[i] = (unsigned char)char_from_obj(car(l));
|
|
r[2] = (o); } }
|
|
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 630: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
/* r[0] */
|
|
/* r[1] */
|
|
goto s_loop_v9798;
|
|
|
|
s_loop_v9798: /* k args */
|
|
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] = (cx__233977);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (cdr((r[1])));
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
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] = (car((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (cdr((r[1])));
|
|
hreserve(hbsz(2+1), 3); /* 3 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(631);
|
|
r[3] = (hendblk(2+1));
|
|
r[0] = r[3];
|
|
r[1] = r[2];
|
|
goto s_loop_v9798;
|
|
}
|
|
}
|
|
|
|
case 631: /* clo 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((car((r[3])))), stringdata((r[1])));
|
|
r[4] = (hpushstr(4, d)); }
|
|
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 632: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v9785;
|
|
}
|
|
|
|
s_loop_v9785: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((strcmp(stringchars((r[1])), stringchars((r[3]))) == 0)) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v9785;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 633: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v9772;
|
|
}
|
|
|
|
s_loop_v9772: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((strcmp(stringchars((r[1])), stringchars((r[3]))) < 0)) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v9772;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 634: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v9759;
|
|
}
|
|
|
|
s_loop_v9759: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((strcmp(stringchars((r[1])), stringchars((r[3]))) > 0)) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v9759;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 635: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v9746;
|
|
}
|
|
|
|
s_loop_v9746: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((strcmp(stringchars((r[1])), stringchars((r[3]))) <= 0)) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v9746;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 636: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v9733;
|
|
}
|
|
|
|
s_loop_v9733: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((strcmp(stringchars((r[1])), stringchars((r[3]))) >= 0)) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v9733;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 637: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v9720;
|
|
}
|
|
|
|
s_loop_v9720: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((strcmp_ci(stringchars((r[1])), stringchars((r[3]))) == 0)) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v9720;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 638: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v9707;
|
|
}
|
|
|
|
s_loop_v9707: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((strcmp_ci(stringchars((r[1])), stringchars((r[3]))) < 0)) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v9707;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 639: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v9694;
|
|
}
|
|
|
|
s_loop_v9694: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((strcmp_ci(stringchars((r[1])), stringchars((r[3]))) > 0)) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v9694;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 640: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v9681;
|
|
}
|
|
|
|
s_loop_v9681: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((strcmp_ci(stringchars((r[1])), stringchars((r[3]))) <= 0)) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v9681;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 641: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v9668;
|
|
}
|
|
|
|
s_loop_v9668: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((strcmp_ci(stringchars((r[1])), stringchars((r[3]))) >= 0)) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v9668;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 642: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
{ const fixnum_t v14655_x = fixnum_from_obj(r[1]);
|
|
if ((isnull((r[2])))) {
|
|
{ /* new-vector */
|
|
int c = (v14655_x);
|
|
hreserve(hbsz(c+1), 3); /* 3 live regs */
|
|
hp -= c; memset(hp, 0, c * sizeof(obj));
|
|
*--hp = obj_from_size(VECTOR_BTAG);
|
|
r[3] = (hendblk(c+1)); }
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
{ /* make-vector */
|
|
obj o; int i = 0, c = (v14655_x);
|
|
hreserve(hbsz(c+1), 4); /* 4 live regs */
|
|
o = r[3]; /* gc-safe */
|
|
while (i++ < c) *--hp = o;
|
|
*--hp = obj_from_size(VECTOR_BTAG);
|
|
r[3] = (hendblk(c+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; }
|
|
|
|
case 643: /* clo k l */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k l */
|
|
{ fixnum_t v14654_tmp;
|
|
{ /* length */
|
|
int n; obj l = r[1];
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
v14654_tmp = (n); }
|
|
{ /* list->vector */
|
|
obj l; int i, c = (v14654_tmp);
|
|
hreserve(hbsz(c+1), 2); /* 2 live regs */
|
|
l = r[1]; /* gc-safe */
|
|
for (i = 0; i < c; ++i, l = cdr(l)) hp[i-c] = car(l);
|
|
hp -= c; *--hp = obj_from_size(VECTOR_BTAG);
|
|
r[2] = (hendblk(c+1)); } }
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 644: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
{ const fixnum_t v14653_x = fixnum_from_obj(r[1]);
|
|
if ((isnull((r[2])))) {
|
|
r[3] = (hpushu8v(3, allocbytevector((v14653_x))));
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
r[3] = (hpushu8v(4, makebytevector((v14653_x), byte_from_fixnum(fixnum_from_obj(r[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; }
|
|
|
|
case 645: /* clo k l */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k l */
|
|
{ fixnum_t v14652_tmp;
|
|
{ /* length */
|
|
int n; obj l = r[1];
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
v14652_tmp = (n); }
|
|
{ /* list->bytevector */
|
|
int i, c = (v14652_tmp);
|
|
obj o = hpushu8v(2, allocbytevector(c)); /* 2 live regs */
|
|
obj l = r[1]; /* gc-safe */
|
|
unsigned char *s = bytevectorbytes(o);
|
|
for (i = 0; i < c; ++i, l = cdr(l)) s[i] = byte_from_obj(car(l));
|
|
r[2] = (o); } }
|
|
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 646: /* clo k l */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k l */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = r[1];
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 647: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
/* r[1] */
|
|
r[2] = obj_from_void(0);
|
|
goto gs__25make_2Dlist;
|
|
} else {
|
|
/* r[0] */
|
|
/* r[1] */
|
|
r[2] = (car((r[2])));
|
|
goto gs__25make_2Dlist;
|
|
}
|
|
|
|
case 648: /* clo k x l */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x l */
|
|
/* r[0] */
|
|
/* r[1] */
|
|
/* r[2] */
|
|
goto s_loop_v9605;
|
|
|
|
s_loop_v9605: /* k x l */
|
|
if ((isnull((r[2])))) {
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[1];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
r[4] = (cdr((r[2])));
|
|
hreserve(hbsz(2+1), 5); /* 5 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(649);
|
|
r[5] = (hendblk(2+1));
|
|
r[0] = r[5];
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v9605;
|
|
}
|
|
|
|
case 649: /* clo ek r */
|
|
assert(rc == 3);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+2] = p[1];
|
|
r[1+3] = p[2]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* ek r k x */
|
|
{ /* cons */
|
|
hreserve(hbsz(3), 4); /* 4 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[3];
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
r[4] = (hendblk(3)); }
|
|
r[5+0] = r[2];
|
|
pc = objptr_from_obj(r[5+0])[0];
|
|
r[5+1] = obj_from_ktrap();
|
|
r[5+2] = r[4];
|
|
r += 5; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 650: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
/* r[0] */
|
|
/* r[1] */
|
|
goto s_loop_v9588;
|
|
|
|
s_loop_v9588: /* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = (mknull());
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (cdr((r[1])));
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
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] = (car((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (cdr((r[1])));
|
|
hreserve(hbsz(2+1), 3); /* 3 live regs */
|
|
*--hp = r[1];
|
|
*--hp = r[0];
|
|
*--hp = obj_from_case(651);
|
|
r[3] = (hendblk(2+1));
|
|
r[0] = r[3];
|
|
r[1] = r[2];
|
|
goto s_loop_v9588;
|
|
}
|
|
}
|
|
|
|
case 651: /* clo 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 */
|
|
r[4] = (car((r[3])));
|
|
{ fixnum_t v14651_tmp;
|
|
{ /* length */
|
|
int n; obj l = r[4];
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
v14651_tmp = (n); }
|
|
{ /* append */
|
|
obj t, l, o, *p, *d; int c = (v14651_tmp);
|
|
hreserve(hbsz(3)*c, 5); /* 5 live regs */
|
|
l = r[4]; t = r[1]; /* gc-safe */
|
|
o = t; p = &o;
|
|
for (; l != mknull(); l = cdr(l)) {
|
|
*--hp = t; d = hp; *--hp = car(l);
|
|
*--hp = obj_from_size(PAIR_BTAG);
|
|
*p = hendblk(3); p = d; }
|
|
r[5] = (o); } }
|
|
r[6+0] = r[2];
|
|
pc = objptr_from_obj(r[6+0])[0];
|
|
r[6+1] = obj_from_ktrap();
|
|
r[6+2] = r[5];
|
|
r += 6; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 652: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
if ((isnull((r[2])))) {
|
|
r[3] = obj_from_bool(isrecord((r[1])));
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
{ /* record? */
|
|
obj o = (r[1]), t = r[3];
|
|
if (!isrecord(o)) r[3] = obj_from_bool(0);
|
|
else r[3] = obj_from_bool(recordrtd(o) == t); }
|
|
}
|
|
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 653: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
if ((isnull((r[2])))) {
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
{ /* fixnum->string */
|
|
char buf[35], *s = buf + sizeof(buf) - 1;
|
|
int neg = 0;
|
|
long num = fixnum_from_obj(r[1]);
|
|
long radix = (+10);
|
|
if (num < 0) { neg = 1; num = -num; }
|
|
*s = 0;
|
|
do { int d = num % radix; *--s = d < 10 ? d + '0' : d - 10 + 'a'; }
|
|
while (num /= radix);
|
|
if (neg) *--s = '-';
|
|
r[3] = (hpushstr(3, newstring(s))); }
|
|
} else {
|
|
{ /* flonum->string */
|
|
char buf[30], *s; double d = flonum_from_obj(r[1]); sprintf(buf, "%.15g", d);
|
|
for (s = buf; *s != 0; s++) if (strchr(".eE", *s)) break;
|
|
if (d != d) strcpy(buf, "+nan.0"); else if (d <= -HUGE_VAL) strcpy(buf, "-inf.0");
|
|
else if (d >= HUGE_VAL) strcpy(buf, "+inf.0"); else if (*s == 'E') *s = 'e';
|
|
else if (*s == 0) { *s++ = '.'; *s++ = '0'; *s = 0; }
|
|
r[3] = (hpushstr(3, newstring(buf))); }
|
|
}
|
|
} else {
|
|
if ((is_fixnum_obj(r[1]))) {
|
|
r[3] = (car((r[2])));
|
|
{ /* fixnum->string */
|
|
char buf[35], *s = buf + sizeof(buf) - 1;
|
|
int neg = 0;
|
|
long num = fixnum_from_obj(r[1]);
|
|
long radix = fixnum_from_obj(r[3]);
|
|
if (num < 0) { neg = 1; num = -num; }
|
|
*s = 0;
|
|
do { int d = num % radix; *--s = d < 10 ? d + '0' : d - 10 + 'a'; }
|
|
while (num /= radix);
|
|
if (neg) *--s = '-';
|
|
r[3] = (hpushstr(4, newstring(s))); }
|
|
} else {
|
|
{ /* flonum->string */
|
|
char buf[30], *s; double d = flonum_from_obj(r[1]); sprintf(buf, "%.15g", d);
|
|
for (s = buf; *s != 0; s++) if (strchr(".eE", *s)) break;
|
|
if (d != d) strcpy(buf, "+nan.0"); else if (d <= -HUGE_VAL) strcpy(buf, "-inf.0");
|
|
else if (d >= HUGE_VAL) strcpy(buf, "+inf.0"); else if (*s == 'E') *s = 'e';
|
|
else if (*s == 0) { *s++ = '.'; *s++ = '0'; *s = 0; }
|
|
r[3] = (hpushstr(3, newstring(buf))); }
|
|
}
|
|
}
|
|
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 654: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
if ((isnull((r[2])))) {
|
|
{ /* string->fixnum-or-flonum */
|
|
char *s = stringchars((r[1]));
|
|
int radix = (+10); long l; double d;
|
|
if (0) r[3] = (0); /* to fool sfc unboxer */
|
|
switch (strtofxfl(s, radix, &l, &d)) {
|
|
case 'e': r[3] = obj_from_fixnum(l); break;
|
|
case 'i': r[3] = obj_from_flonum(3, d); break;
|
|
default : r[3] = obj_from_bool(0); break;
|
|
} }
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
{ /* string->fixnum-or-flonum */
|
|
char *s = stringchars((r[1]));
|
|
int radix = fixnum_from_obj(r[3]); long l; double d;
|
|
if (0) r[3] = (0); /* to fool sfc unboxer */
|
|
switch (strtofxfl(s, radix, &l, &d)) {
|
|
case 'e': r[3] = obj_from_fixnum(l); break;
|
|
case 'i': r[3] = obj_from_flonum(4, d); break;
|
|
default : r[3] = obj_from_bool(0); break;
|
|
} }
|
|
}
|
|
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 655: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool(isnull((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[3] = (cdr((r[1])));
|
|
/* r[0] */
|
|
r[1] = r[2];
|
|
r[2] = r[3];
|
|
goto s_loop_v9551;
|
|
}
|
|
|
|
s_loop_v9551: /* k x args */
|
|
if ((isnull((r[2])))) {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
if ((getsymbol((r[1])) == getsymbol((r[3])))) {
|
|
r[4] = (cdr((r[2])));
|
|
/* r[0] */
|
|
r[1] = r[3];
|
|
r[2] = r[4];
|
|
goto s_loop_v9551;
|
|
} else {
|
|
/* r[0] */
|
|
pc = objptr_from_obj(r[0])[0];
|
|
r[1] = obj_from_ktrap();
|
|
r[2] = obj_from_bool(0);
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
}
|
|
|
|
case 656: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
r[2+0] = (cx_error);
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = r[0];
|
|
r[2+2] = (mksymbol(internsym("case-lambda")));
|
|
r[2+3] = (cx__234288);
|
|
r[2+4] = (r[1]);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
|
|
case 657: /* clo k l */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k l */
|
|
{ fixnum_t v14650_tmp;
|
|
{ /* length */
|
|
int n; obj l = r[1];
|
|
for (n = 0; l != mknull(); ++n, l = cdr(l)) ;
|
|
v14650_tmp = (n); }
|
|
{ /* %residual-make-case-lambda */
|
|
obj l; int i, c = (v14650_tmp);
|
|
hreserve(hbsz(c+1), 2); /* 2 live regs */
|
|
l = r[1]; /* gc-safe */
|
|
for (i = 0; i < c; ++i, l = cdr(l)) hp[i-c] = car(l);
|
|
hp -= c; *--hp = obj_from_objptr(appcases+4);
|
|
r[2] = (hendblk(c+1)); } }
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 658: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2] = (cx__2Acurrent_2Dinput_2Dport_2A);
|
|
} else {
|
|
r[2] = (cdr((r[1])));
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
if (bool_from_obj(r[2])) {
|
|
cx__2Acurrent_2Dinput_2Dport_2A = (car((r[1])));
|
|
r[2] = obj_from_void(0);
|
|
} else {
|
|
r[2] = (cdr((r[1])));
|
|
r[2] = (car((r[2])));
|
|
if (bool_from_obj(r[2])) {
|
|
cx__2Acurrent_2Dinput_2Dport_2A = (car((r[1])));
|
|
r[2] = obj_from_void(0);
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
}
|
|
}
|
|
}
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 659: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2] = (cx__2Acurrent_2Doutput_2Dport_2A);
|
|
} else {
|
|
r[2] = (cdr((r[1])));
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
if (bool_from_obj(r[2])) {
|
|
cx__2Acurrent_2Doutput_2Dport_2A = (car((r[1])));
|
|
r[2] = obj_from_void(0);
|
|
} else {
|
|
r[2] = (cdr((r[1])));
|
|
r[2] = (car((r[2])));
|
|
if (bool_from_obj(r[2])) {
|
|
cx__2Acurrent_2Doutput_2Dport_2A = (car((r[1])));
|
|
r[2] = obj_from_void(0);
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
}
|
|
}
|
|
}
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 660: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2] = (cx__2Acurrent_2Derror_2Dport_2A);
|
|
} else {
|
|
r[2] = (cdr((r[1])));
|
|
r[2] = obj_from_bool(isnull((r[2])));
|
|
if (bool_from_obj(r[2])) {
|
|
cx__2Acurrent_2Derror_2Dport_2A = (car((r[1])));
|
|
r[2] = obj_from_void(0);
|
|
} else {
|
|
r[2] = (cdr((r[1])));
|
|
r[2] = (car((r[2])));
|
|
if (bool_from_obj(r[2])) {
|
|
cx__2Acurrent_2Derror_2Dport_2A = (car((r[1])));
|
|
r[2] = obj_from_void(0);
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
}
|
|
}
|
|
}
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 661: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
{ int c = iportgetc((cx__2Acurrent_2Dinput_2Dport_2A)); r[2] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
{ int c = iportgetc((r[2])); r[2] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
}
|
|
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 662: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
{ int c = iportpeekc((cx__2Acurrent_2Dinput_2Dport_2A)); r[2] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
{ int c = iportpeekc((r[2])); r[2] = (c == EOF ? mkeof() : obj_from_char(c)); }
|
|
}
|
|
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 663: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool((isnull((r[1]))) ? (1) : (1));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 664: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
/* r[0] */
|
|
r[1] = (cx__2Acurrent_2Dinput_2Dport_2A);
|
|
goto gs__25read_2Dline;
|
|
} else {
|
|
/* r[0] */
|
|
r[1] = (car((r[1])));
|
|
goto gs__25read_2Dline;
|
|
}
|
|
|
|
case 665: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
{ const fixnum_t v14649_x = fixnum_from_obj(r[1]);
|
|
if ((isnull((r[2])))) {
|
|
{ /* display-fixnum */
|
|
char buf[30]; sprintf(buf, "%ld", (v14649_x));
|
|
r[3] = obj_from_void(oportputs(buf, (cx__2Acurrent_2Doutput_2Dport_2A))); }
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
{ /* display-fixnum */
|
|
char buf[30]; sprintf(buf, "%ld", (v14649_x));
|
|
r[3] = obj_from_void(oportputs(buf, (r[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; }
|
|
|
|
case 666: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
{ const flonum_t v14648_x = flonum_from_obj(r[1]);
|
|
if ((isnull((r[2])))) {
|
|
{ /* display-flonum */
|
|
char buf[30], *s; double d = (v14648_x); sprintf(buf, "%.15g", d);
|
|
for (s = buf; *s != 0; s++) if (strchr(".eE", *s)) break;
|
|
if (d != d) strcpy(buf, "+nan.0"); else if (d <= -HUGE_VAL) strcpy(buf, "-inf.0");
|
|
else if (d >= HUGE_VAL) strcpy(buf, "+inf.0"); else if (*s == 'E') *s = 'e';
|
|
else if (*s == 0) { *s++ = '.'; *s++ = '0'; *s = 0; }
|
|
r[3] = obj_from_void(oportputs(buf, (cx__2Acurrent_2Doutput_2Dport_2A))); }
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
{ /* display-flonum */
|
|
char buf[30], *s; double d = (v14648_x); sprintf(buf, "%.15g", d);
|
|
for (s = buf; *s != 0; s++) if (strchr(".eE", *s)) break;
|
|
if (d != d) strcpy(buf, "+nan.0"); else if (d <= -HUGE_VAL) strcpy(buf, "-inf.0");
|
|
else if (d >= HUGE_VAL) strcpy(buf, "+inf.0"); else if (*s == 'E') *s = 'e';
|
|
else if (*s == 0) { *s++ = '.'; *s++ = '0'; *s = 0; }
|
|
r[3] = obj_from_void(oportputs(buf, (r[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; }
|
|
|
|
case 667: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
if ((isnull((r[2])))) {
|
|
{ /* display-procedure */
|
|
char buf[60]; sprintf(buf, "#<procedure @%p>", objptr_from_obj((r[1])));
|
|
r[3] = obj_from_void(oportputs(buf, (cx__2Acurrent_2Doutput_2Dport_2A))); }
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
{ /* display-procedure */
|
|
char buf[60]; sprintf(buf, "#<procedure @%p>", objptr_from_obj((r[1])));
|
|
r[3] = obj_from_void(oportputs(buf, (r[3]))); }
|
|
}
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 668: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
if ((isnull((r[2])))) {
|
|
{ /* display-input-port */
|
|
char buf[60]; sprintf(buf, "#<%s>", ckiportvt((r[1]))->tname);
|
|
r[3] = obj_from_void(oportputs(buf, (cx__2Acurrent_2Doutput_2Dport_2A))); }
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
{ /* display-input-port */
|
|
char buf[60]; sprintf(buf, "#<%s>", ckiportvt((r[1]))->tname);
|
|
r[3] = obj_from_void(oportputs(buf, (r[3]))); }
|
|
}
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 669: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
if ((isnull((r[2])))) {
|
|
{ /* display-output-port */
|
|
char buf[60]; sprintf(buf, "#<%s>", ckoportvt((r[1]))->tname);
|
|
r[3] = obj_from_void(oportputs(buf, (cx__2Acurrent_2Doutput_2Dport_2A))); }
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
{ /* display-output-port */
|
|
char buf[60]; sprintf(buf, "#<%s>", ckoportvt((r[1]))->tname);
|
|
r[3] = obj_from_void(oportputs(buf, (r[3]))); }
|
|
}
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 670: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
{ const char_t v14647_x = char_from_obj(r[1]);
|
|
if ((isnull((r[2])))) {
|
|
r[3] = obj_from_void(oportputc((v14647_x), (cx__2Acurrent_2Doutput_2Dport_2A)));
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
r[3] = obj_from_void(oportputc((v14647_x), (r[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; }
|
|
|
|
case 671: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
if ((isnull((r[2])))) {
|
|
r[3] = obj_from_void(oportputs(stringchars((r[1])), (cx__2Acurrent_2Doutput_2Dport_2A)));
|
|
} else {
|
|
r[3] = (cdr((r[2])));
|
|
r[3] = obj_from_bool(isnull((r[3])));
|
|
if (bool_from_obj(r[3])) {
|
|
r[3] = (car((r[2])));
|
|
r[3] = obj_from_void(oportputs(stringchars((r[1])), (r[3])));
|
|
} else {
|
|
r[3] = (cdr((r[2])));
|
|
r[3] = (cdr((r[3])));
|
|
r[3] = obj_from_bool(isnull((r[3])));
|
|
if (bool_from_obj(r[3])) {
|
|
r[3] = (cdr((r[2])));
|
|
r[3] = (car((r[3])));
|
|
r[4] = (car((r[2])));
|
|
r[3] = (cxs_write_2Dsubstring((r[1]), (r[3]), obj_from_fixnum(stringlen((r[1]))), (r[4])));
|
|
} else {
|
|
r[3] = (cdr((r[2])));
|
|
r[3] = (car((r[3])));
|
|
r[4] = (cdr((r[2])));
|
|
r[4] = (cdr((r[4])));
|
|
r[4] = (car((r[4])));
|
|
r[5] = (car((r[2])));
|
|
r[3] = (cxs_write_2Dsubstring((r[1]), (r[3]), (r[4]), (r[5])));
|
|
}
|
|
}
|
|
}
|
|
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 672: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2] = obj_from_void(oportputc('\n', (cx__2Acurrent_2Doutput_2Dport_2A)));
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[2] = obj_from_void(oportputc('\n', (r[2])));
|
|
}
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 673: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2] = obj_from_void(oportflush((cx__2Acurrent_2Doutput_2Dport_2A)));
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
r[2] = obj_from_void(oportflush((r[2])));
|
|
}
|
|
r[3+0] = r[0];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = obj_from_ktrap();
|
|
r[3+2] = r[2];
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 674: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
{ int c = iportgetc((cx__2Acurrent_2Dinput_2Dport_2A)); r[2] = (c == EOF ? mkeof() : obj_from_fixnum(c & 0xff)); }
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
{ int c = iportgetc((r[2])); r[2] = (c == EOF ? mkeof() : obj_from_fixnum(c & 0xff)); }
|
|
}
|
|
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 675: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
{ int c = iportpeekc((cx__2Acurrent_2Dinput_2Dport_2A)); r[2] = (c == EOF ? mkeof() : obj_from_fixnum(c & 0xff)); }
|
|
} else {
|
|
r[2] = (car((r[1])));
|
|
{ int c = iportpeekc((r[2])); r[2] = (c == EOF ? mkeof() : obj_from_fixnum(c & 0xff)); }
|
|
}
|
|
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 676: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
r[2+0] = r[0];
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = obj_from_ktrap();
|
|
r[2+2] = obj_from_bool((isnull((r[1]))) ? (1) : (1));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 677: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
{ const fixnum_t v14646_x = fixnum_from_obj(r[1]);
|
|
if ((isnull((r[2])))) {
|
|
r[3] = obj_from_void(oportputc((v14646_x), (cx__2Acurrent_2Doutput_2Dport_2A)));
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
r[3] = obj_from_void(oportputc((v14646_x), (r[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; }
|
|
|
|
case 678: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
if ((isnull((r[2])))) {
|
|
{ /* write-bytevector */
|
|
int *d = bytevectordata((r[1]));
|
|
r[3] = obj_from_void(oportwrite((char *)bvdatabytes(d), *d, (cx__2Acurrent_2Doutput_2Dport_2A))); }
|
|
} else {
|
|
r[3] = (cdr((r[2])));
|
|
r[3] = obj_from_bool(isnull((r[3])));
|
|
if (bool_from_obj(r[3])) {
|
|
r[3] = (car((r[2])));
|
|
{ /* write-bytevector */
|
|
int *d = bytevectordata((r[1]));
|
|
r[3] = obj_from_void(oportwrite((char *)bvdatabytes(d), *d, (r[3]))); }
|
|
} else {
|
|
r[3] = (cdr((r[2])));
|
|
r[3] = (cdr((r[3])));
|
|
r[3] = obj_from_bool(isnull((r[3])));
|
|
if (bool_from_obj(r[3])) {
|
|
r[3] = (cdr((r[2])));
|
|
r[3] = (car((r[3])));
|
|
r[4] = (car((r[2])));
|
|
r[3] = (cxs_write_2Dsubbytevector((r[1]), (r[3]), obj_from_fixnum(bytevectorlen((r[1]))), (r[4])));
|
|
} else {
|
|
r[3] = (cdr((r[2])));
|
|
r[3] = (car((r[3])));
|
|
r[4] = (cdr((r[2])));
|
|
r[4] = (cdr((r[4])));
|
|
r[4] = (car((r[4])));
|
|
r[5] = (car((r[2])));
|
|
r[3] = (cxs_write_2Dsubbytevector((r[1]), (r[3]), (r[4]), (r[5])));
|
|
}
|
|
}
|
|
}
|
|
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 679: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
if ((isnull((r[2])))) {
|
|
r[3] = obj_from_void(oportputsimple((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
r[3] = obj_from_void(oportputsimple((r[1]), (r[3]), 0));
|
|
}
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 680: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
if ((isnull((r[2])))) {
|
|
r[3] = obj_from_void(oportputshared((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
r[3] = obj_from_void(oportputshared((r[1]), (r[3]), 0));
|
|
}
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 681: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
if ((isnull((r[2])))) {
|
|
r[3] = obj_from_void(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 0));
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
r[3] = obj_from_void(oportputcircular((r[1]), (r[3]), 0));
|
|
}
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 682: /* clo k x args */
|
|
assert(rc == 4);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k x args */
|
|
if ((isnull((r[2])))) {
|
|
r[3] = obj_from_void(oportputcircular((r[1]), (cx__2Acurrent_2Doutput_2Dport_2A), 1));
|
|
} else {
|
|
r[3] = (car((r[2])));
|
|
r[3] = obj_from_void(oportputcircular((r[1]), (r[3]), 1));
|
|
}
|
|
r[4+0] = r[0];
|
|
pc = objptr_from_obj(r[4+0])[0];
|
|
r[4+1] = obj_from_ktrap();
|
|
r[4+2] = r[3];
|
|
r += 4; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
|
|
case 683: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
r[2+1] = (cx__2Acurrent_2Dinput_2Dport_2A);
|
|
r[2+2] = obj_from_bool(0);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs__25read;
|
|
} else {
|
|
r[2+0] = r[0];
|
|
r[2+1] = (car((r[1])));
|
|
r[2+2] = obj_from_bool(0);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs__25read;
|
|
}
|
|
|
|
case 684: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = r[0];
|
|
r[2+1] = (cx__2Acurrent_2Dinput_2Dport_2A);
|
|
r[2+2] = obj_from_bool(1);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs__25read;
|
|
} else {
|
|
r[2+0] = r[0];
|
|
r[2+1] = (car((r[1])));
|
|
r[2+2] = obj_from_bool(1);
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
goto gs__25read;
|
|
}
|
|
|
|
case 685: /* clo k args */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k args */
|
|
if ((isnull((r[1])))) {
|
|
r[2+0] = (cx_exit);
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = r[0];
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 2;
|
|
goto jump;
|
|
} else {
|
|
r[2+0] = (cx_exit);
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = r[0];
|
|
r[2+2] = (car((r[1])));
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 3;
|
|
goto jump;
|
|
}
|
|
|
|
case 686: /* clo k obj */
|
|
assert(rc == 3);
|
|
r += 1; /* shift reg. wnd */
|
|
/* k obj */
|
|
{ /* record? */
|
|
obj o = (r[1]), t = (cx__3Cerror_2Dobject_3E);
|
|
if (!isrecord(o)) r[2] = obj_from_bool(0);
|
|
else r[2] = obj_from_bool(recordrtd(o) == t); }
|
|
if (bool_from_obj(r[2])) {
|
|
{ /* define apply */
|
|
static obj c[] = { obj_from_objptr(appcases+0) };
|
|
r[2] = obj_from_objptr(c); }
|
|
r[3+0] = r[2];
|
|
pc = objptr_from_obj(r[3+0])[0];
|
|
r[3+1] = r[0];
|
|
r[3+2] = (cx_simple_2Derror);
|
|
r[3+3] = (recordref((r[1]), (+0)));
|
|
r[3+4] = (recordref((r[1]), (+1)));
|
|
r[3+5] = (recordref((r[1]), (+2)));
|
|
r += 3; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 6;
|
|
goto jump;
|
|
} else {
|
|
r[2+0] = (cx_simple_2Derror);
|
|
pc = objptr_from_obj(r[2+0])[0];
|
|
r[2+1] = r[0];
|
|
r[2+2] = obj_from_bool(0);
|
|
r[2+3] = (cx__232184);
|
|
r[2+4] = r[1];
|
|
r += 2; /* shift reg wnd */
|
|
rreserve(MAX_HOSTREGS);
|
|
rc = 5;
|
|
goto jump;
|
|
}
|
|
|
|
case 687: /* clo k */
|
|
assert(rc == 2);
|
|
{ obj* p = objptr_from_obj(r[0]);
|
|
r[1+1] = p[1]; }
|
|
r += 1; /* shift reg. wnd */
|
|
/* k default-handler */
|
|
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;
|
|
|
|
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);
|
|
}
|
|
}
|