CELL
char CELL[64];
_kafs_foldup(CELL, cell);
if (strcmp(CELL, realm) == 0) {
NULL, CELL, uid, kt);
cell, CELL, uid, kt);
&& strcmp(vl_realm, CELL) != 0) {
CELL c;
ptr = (CELL *)c.p;
if ((unsigned)n <= dictCellsAvail(pDict) * sizeof (CELL))
if ((unsigned)n <= dictCellsUsed(pDict) * sizeof (CELL))
cp -= dictCellsUsed(pDict) * sizeof (CELL);
void dictAppendCell(FICL_DICT *pDict, CELL c)
if ((n >= 0) && (dictCellsAvail(pDict) * (int)sizeof(CELL) < n))
if ((n <= 0) && (dictCellsUsed(pDict) * (int)sizeof(CELL) < -n))
nAlloc = sizeof (FICL_HASH) + nCells * sizeof (CELL)
CELL dictThreshold;
CELL dictIncrease;
CELL *dictWhere(FICL_DICT *pDict)
dp->dict = ficlMalloc( dictIncrease.u * sizeof (CELL) );
pDict->here = (CELL *)pFW->name;
assert(dictCellsAvail(pSys->dp) > sizeof (FICL_WORD) / sizeof (CELL));
CELL id = pVM->sourceID;
extern CELL dictThreshold;
extern CELL dictIncrease;
#define LVALUEtoCELL(v) (*(CELL *)&v)
#define PTRtoCELL (CELL *)(void *)
CELL *pFrame; /* link reg for stack frame */
CELL *sp; /* stack pointer */
CELL base[1]; /* Top of stack */
CELL stackFetch (FICL_STACK *pStack, int n);
CELL stackGetTop (FICL_STACK *pStack);
CELL stackPop (FICL_STACK *pStack);
void stackPush (FICL_STACK *pStack, CELL c);
void stackSetTop (FICL_STACK *pStack, CELL c);
void stackStore (FICL_STACK *pStack, int n, CELL c);
CELL sourceID; /* -1 if EVALUATE, 0 if normal input */
CELL user[FICL_USER_CELLS];
CELL param[1]; /* First data cell of the word */
( (sizeof (FICL_WORD) + nFICLNAME + sizeof (CELL)) \
/ (sizeof (CELL)) )
CELL vmPop (FICL_VM *pVM);
void vmPush (FICL_VM *pVM, CELL c);
CELL *here;
CELL *dict; /* Base of dictionary memory */
void dictAppendCell (FICL_DICT *pDict, CELL c);
CELL *dictWhere (FICL_DICT *pDict);
CELL *pMarkLocals;
CELL id = pVM->sourceID;
CELL id = pVM->sourceID;
CELL *pCell;
CELL c = POP();
CELL c;
CELL *pCell;
pCell = (CELL *)POPPTR();
CELL *pCell;
pCell = (CELL *)POPPTR();
CELL *pCell;
pCell = (CELL *)POPPTR();
CELL c;
CELL c;
CELL c;
CELL c;
CELL c;
CELL id;
CELL c;
size_t size = sizeof (FICL_STACK) + nCells * sizeof (CELL);
CELL stackFetch(FICL_STACK *pStack, int n)
void stackStore(FICL_STACK *pStack, int n, CELL c)
CELL stackGetTop(FICL_STACK *pStack)
CELL stackPop(FICL_STACK *pStack)
void stackPush(FICL_STACK *pStack, CELL c)
CELL c;
CELL *pCell;
void stackSetTop(FICL_STACK *pStack, CELL c)
CELL id;
static FICL_WORD *findEnclosingWord(FICL_VM *pVM, CELL *cp)
pFW = (FICL_WORD *)(cp + 1 - (sizeof (FICL_WORD) / sizeof (CELL)));
static void seeColon(FICL_VM *pVM, CELL *pc)
CELL *param0 = pc;
CELL c;
pc = (CELL *)alignPtr(sp->text + sp->count + 1) - 1;
pc = (CELL *)alignPtr(sp->text + sp->count + 1) - 1;
sprintf(cp, "?do (leave %d)", (int)((CELL *)c.p-param0));
sprintf(cp, "do (leave %d)", (int)((CELL *)c.p-param0));
seeColon(pVM, (CELL *)pFW->param->p);
xt = findEnclosingWord(pVM, (CELL *)(pVM->ip));
CELL *pCell;
CELL *pCell;
CELL c = *pCell++;
int offset = (CELL *)c.p - &pFW->param[0];
typedef CELL *IPTYPE;
CELL c;
CELL vmPop(FICL_VM *pVM)
void vmPush(FICL_VM *pVM, CELL c)
CELL *pCell;
pCell = (CELL *)stackPopPtr(pVM->pStack);
CELL *pCell;
pCell = (CELL *)stackPopPtr(pVM->pStack);
CELL *pCell;
pCell = (CELL *)stackPopPtr(pVM->pStack);
CELL *pCell;
pCell = (CELL *)stackPopPtr(pVM->pStack);
CELL *pCell;
pCell = (CELL *)stackPopPtr(pVM->pStack);
CELL *patchAddr;
CELL *patchAddr;
(CELL *)stackPopPtr(pVM->pStack); /* (2) pop "if" patch addr */
patchAddr = (CELL *)stackPopPtr(pVM->pStack);
CELL *patchAddr;
patchAddr = (CELL *)stackPopPtr(pVM->pStack);
CELL *fallthroughFixup = NULL;
CELL *patchAddr;
patchAddr = (CELL *)stackPopPtr(pVM->pStack);
CELL *patchAddr;
CELL *patchAddr;
patchAddr = (CELL *)stackPopPtr(pVM->pStack);
patchAddr = (CELL *)stackPopPtr(pVM->pStack);
CELL *patchAddr;
CELL c;
CELL c;
CELL c;
patchAddr = (CELL *)stackPopPtr(pVM->pStack);
CELL x, y;
CELL x, y;
CELL x, y;
CELL x, y;
CELL x, y;
CELL x, y;
CELL x;
CELL index, limit;
CELL index, limit;
CELL index = stackGetTop(pVM->rStack);
CELL index = stackFetch(pVM->rStack, 3);
CELL index = stackFetch(pVM->rStack, 6);
CELL *pBase;
pBase = (CELL *)(&pVM->base);
CELL c;
PUSHINT(i * (FICL_INT)sizeof (CELL));
PUSHPTR(cp + sizeof (CELL));
CELL *pCell;
CELL *pCell;
CELL id;
CELL c;
CELL c;
CELL c;
CELL c = stackPop(pVM->pStack);
CELL c;