mirror of
https://github.com/Interlisp/maiko.git
synced 2026-01-13 23:27:12 +00:00
4cc267856b
The "fillpointer" and "totalsize" fields of the array header and the "offst" of the sequence descriptor were declared as LispPTR, an unsigned type that represents an offset into the Lisp memory, however the Lisp datatype declaration indicates that these are FIXP (int32_t) rather than pointers.
225 lines
6.5 KiB
C
225 lines
6.5 KiB
C
#ifndef ARRAY_H
|
|
#define ARRAY_H 1
|
|
/* $Id: array.h,v 1.2 1999/01/03 02:05:53 sybalsky Exp $ (C) Copyright Venue, All Rights Reserved */
|
|
|
|
/************************************************************************/
|
|
/* */
|
|
/* (C) Copyright 1989-92 Venue. All Rights Reserved. */
|
|
/* Manufactured in the United States of America. */
|
|
/* */
|
|
/************************************************************************/
|
|
|
|
#include "lispemul.h" /* for LispPTR, DLword */
|
|
#include "version.h" /* for BIGVM */
|
|
|
|
#ifndef BYTESWAP
|
|
/********************************/
|
|
/* Normal byte-order version */
|
|
/********************************/
|
|
#ifdef BIGVM
|
|
typedef struct sequencedescriptor {
|
|
unsigned orig :1;
|
|
unsigned nil :1;
|
|
unsigned readonly :1;
|
|
unsigned nil2 :1;
|
|
unsigned base :28;
|
|
unsigned typ :4;
|
|
unsigned length :28;
|
|
int32_t offst;
|
|
} Arrayp;
|
|
|
|
struct arrayheader {
|
|
unsigned nil :4;
|
|
unsigned base :28;
|
|
unsigned readonlyp :1;
|
|
unsigned indirectp :1;
|
|
unsigned bitp :1;
|
|
unsigned stringp :1;
|
|
unsigned adjustablep :1;
|
|
unsigned displacedp :1;
|
|
unsigned fillpointerp :1;
|
|
unsigned extendablep :1;
|
|
unsigned typenumber :8;
|
|
DLword offset;
|
|
int32_t fillpointer;
|
|
int32_t totalsize;
|
|
};
|
|
#else
|
|
typedef struct sequencedescriptor {
|
|
unsigned orig :1;
|
|
unsigned nil :1;
|
|
unsigned readonly :1;
|
|
unsigned nil2 :1;
|
|
unsigned typ :4;
|
|
unsigned base :24;
|
|
DLword length;
|
|
DLword offst;
|
|
} Arrayp;
|
|
|
|
struct arrayheader {
|
|
unsigned nil :8;
|
|
unsigned base :24;
|
|
unsigned readonlyp :1;
|
|
unsigned indirectp :1;
|
|
unsigned bitp :1;
|
|
unsigned stringp :1;
|
|
unsigned adjustablep :1;
|
|
unsigned displacedp :1;
|
|
unsigned fillpointerp :1;
|
|
unsigned extendablep :1;
|
|
unsigned typenumber :8;
|
|
DLword offset;
|
|
DLword fillpointer;
|
|
DLword totalsize;
|
|
};
|
|
#endif /* BIGVM */
|
|
|
|
struct arrayblock {
|
|
unsigned password :13;
|
|
unsigned gctype :2;
|
|
unsigned inuse :1;
|
|
DLword arlen;
|
|
LispPTR fwd;
|
|
LispPTR bkwd;
|
|
};
|
|
|
|
struct abdum {
|
|
DLword abflags;
|
|
};
|
|
|
|
|
|
#else
|
|
/********************************/
|
|
/* Byte-swapped version, for */
|
|
/* e.g., 80386's */
|
|
/********************************/
|
|
#ifdef BIGVM
|
|
typedef struct sequencedescriptor {
|
|
unsigned base :28;
|
|
unsigned nil2 :1;
|
|
unsigned readonly :1;
|
|
unsigned nil :1;
|
|
unsigned orig :1;
|
|
unsigned length :28;
|
|
unsigned typ :4;
|
|
int32_t offst;
|
|
} Arrayp;
|
|
|
|
struct arrayheader {
|
|
unsigned base :28;
|
|
unsigned nil :4;
|
|
DLword offset;
|
|
unsigned typenumber :8;
|
|
unsigned extendablep :1;
|
|
unsigned fillpointerp :1;
|
|
unsigned displacedp :1;
|
|
unsigned adjustablep :1;
|
|
unsigned stringp :1;
|
|
unsigned bitp :1;
|
|
unsigned indirectp :1;
|
|
unsigned readonlyp :1;
|
|
int32_t totalsize;
|
|
int32_t fillpointer;
|
|
};
|
|
#else
|
|
typedef struct sequencedescriptor {
|
|
unsigned base :24;
|
|
unsigned typ :4;
|
|
unsigned nil2 :1;
|
|
unsigned readonly :1;
|
|
unsigned nil :1;
|
|
unsigned orig :1;
|
|
DLword offst;
|
|
DLword length;
|
|
} Arrayp;
|
|
|
|
struct arrayheader {
|
|
unsigned base :24;
|
|
unsigned nil :8;
|
|
DLword offset;
|
|
unsigned typenumber :8;
|
|
unsigned extendablep :1;
|
|
unsigned fillpointerp :1;
|
|
unsigned displacedp :1;
|
|
unsigned adjustablep :1;
|
|
unsigned stringp :1;
|
|
unsigned bitp :1;
|
|
unsigned indirectp :1;
|
|
unsigned readonlyp :1;
|
|
DLword totalsize;
|
|
DLword fillpointer;
|
|
};
|
|
#endif /* BIGVM */
|
|
struct arrayblock {
|
|
DLword arlen;
|
|
unsigned inuse :1;
|
|
unsigned gctype :2;
|
|
unsigned password :13;
|
|
LispPTR fwd;
|
|
LispPTR bkwd;
|
|
};
|
|
|
|
struct abdum
|
|
{
|
|
DLword abflags;
|
|
};
|
|
|
|
|
|
#endif /* BYTESWAP */
|
|
|
|
|
|
|
|
|
|
/****************************************************************************/
|
|
/* */
|
|
/* The following data are the constant values for array itself. */
|
|
/* */
|
|
/****************************************************************************/
|
|
|
|
/* #define ST_BYTE 0 in lsptypes.h */
|
|
/* #define ST_POS16 1 in lsptypes.h */
|
|
#define ST_INT32 2
|
|
/*#define ST_CODE 4 in load.h */
|
|
#define ST_PTR 6
|
|
#define ST_FLOAT 7
|
|
#define ST_BIT 8
|
|
#define ST_PTR2 11
|
|
|
|
/****************************************************************************/
|
|
/* */
|
|
/* The following data are the constant values for array reclaimer. */
|
|
/* */
|
|
/****************************************************************************/
|
|
|
|
#define MAXARRAYBLOCKSIZE 65535
|
|
#define MAXARRAYLEN 65535
|
|
#define ARRAYBLOCKHEADERCELLS 1
|
|
#define ARRAYBLOCKTRAILERCELLS 1
|
|
#define ARRAYBLOCKOVERHEADCELLS (ARRAYBLOCKHEADERCELLS+ARRAYBLOCKTRAILERCELLS)
|
|
#define MAXARRAYNCELLS (MAXARRAYBLOCKSIZE-ARRAYBLOCKOVERHEADCELLS)
|
|
#define ARRAYBLOCKHEADERWORDS 2
|
|
#define ARRAYBLOCKTRAILERWORDS 2
|
|
#define ARRAYBLOCKOVERHEADWORDS (ARRAYBLOCKHEADERWORDS+ARRAYBLOCKTRAILERWORDS)
|
|
#define ARRAYBLOCKLINKINGCELLS 2
|
|
#define MINARRAYBLOCKSIZE (ARRAYBLOCKOVERHEADCELLS+ARRAYBLOCKLINKINGCELLS)
|
|
#define MAXBUCKETINDEX 30
|
|
#define UNBOXEDBLOCK_GCT 0
|
|
#define PTRBLOCK_GCT 1
|
|
#define CODEBLOCK_GCT 2
|
|
#define ABPASSWORDSHIFT 3
|
|
#define ARRAYBLOCKPASSWORD (43690 >> ABPASSWORDSHIFT)
|
|
/* = 1010101010101010 >> 3 = 5461 */
|
|
#define FREEARRAYFLAGWORD ((ARRAYBLOCKPASSWORD << ABPASSWORDSHIFT) | (UNBOXEDBLOCK_GCT << 1))
|
|
/* = 43688 */
|
|
#define USEDARRAYFLAGWORD ((ARRAYBLOCKPASSWORD << ABPASSWORDSHIFT) | 1)
|
|
#define CODEARRAYFLAGWORD ((ARRAYBLOCKPASSWORD << ABPASSWORDSHIFT) | ((CODEBLOCK_GCT << 1) | 1))
|
|
#define FIRSTARRAYSEGMENT 19
|
|
#define MAXCELLSPERHUNK 64
|
|
|
|
/****************************************************************************/
|
|
/* */
|
|
/* End of Definitions */
|
|
/* */
|
|
/****************************************************************************/
|
|
#endif /* ARRAY_H */
|