ficlCell
ficlDictionaryAppendCell(ficlDictionary *dictionary, ficlCell c)
ficlCell c;
ficlCell c;
nAlloc = sizeof (ficlDictionary) + (size * sizeof (ficlCell))
ficlDictionaryFindEnclosingWord(ficlDictionary *dictionary, ficlCell *cell)
(cell + 1 - (sizeof (ficlWord) / sizeof (ficlCell)));
ficlCell *cell = word->param;
ficlCell *param0 = cell;
ficlCell c, c2;
cell = (ficlCell *)
cell = (ficlCell *)
(long)((ficlCell *)c.p - param0));
(long)((ficlCell *)c.p - param0));
dictionary->here = (ficlCell *)word->name;
ficlCell *
ficlCell oldSourceId;
ficlCell sourceId; /* -1 if EVALUATE, 0 if normal input, >0 if a file */
ficlCell user[FICL_USER_CELLS];
FICL_PLATFORM_EXTERN ficlCell ficlVmPop(ficlVm *vm);
FICL_PLATFORM_EXTERN void ficlVmPush(ficlVm *vm, ficlCell c);
ficlCell param[1]; /* First data cell of the word */
((sizeof (ficlWord) + FICL_NAME_LENGTH + sizeof (ficlCell)) \
/ (sizeof (ficlCell)))
ficlCell *here;
ficlCell base[1]; /* Base of dictionary memory */
ficlDictionaryAppendCell(ficlDictionary *dictionary, ficlCell c);
FICL_PLATFORM_EXTERN ficlCell *ficlDictionaryWhere(ficlDictionary *dictionary);
ficlDictionaryFindEnclosingWord(ficlDictionary *dictionary, ficlCell *cell);
ficlCell *localsFixup;
#define FICL_BITS_PER_CELL (sizeof (ficlCell) * 8)
#define FICL_POINTER_TO_CELL(p) ((ficlCell *)(void *)p)
ficlCell *frame; /* link reg for stack frame */
ficlCell *top; /* stack pointer */
ficlCell base[1]; /* Top of stack */
FICL_PLATFORM_EXTERN ficlCell ficlStackFetch(ficlStack *stack, int n);
FICL_PLATFORM_EXTERN ficlCell ficlStackGetTop(ficlStack *stack);
FICL_PLATFORM_EXTERN ficlCell ficlStackPop(ficlStack *stack);
FICL_PLATFORM_EXTERN void ficlStackPush(ficlStack *stack, ficlCell c);
FICL_PLATFORM_EXTERN void ficlStackSetTop(ficlStack *stack, ficlCell c);
FICL_PLATFORM_EXTERN void ficlStackStore(ficlStack *stack, int n, ficlCell c);
typedef ficlInteger (*ficlStackWalkFunction)(void *constant, ficlCell *cell);
ficlCell id = vm->sourceId;
ficlFloatStackDisplayCallback(void *c, ficlCell *cell)
ficlCell cell;
ficlCell data;
ficlCell id;
ficlCell c;
ficlCell *patchAddr, c;
ficlCell *pBase, c;
pBase = (ficlCell *)(&vm->base);
patchAddr = (ficlCell *)ficlStackPopPointer(vm->dataStack);
ficlCell c;
ficlCell *patchAddr;
ficlCell c;
patchAddr = (ficlCell *)ficlStackPopPointer(vm->dataStack);
ficlCell *patchAddr;
ficlCell c;
patchAddr = (ficlCell *)ficlStackPopPointer(vm->dataStack);
ficlCell id;
ficlCell c;
ficlCell c;
ficlCell c;
ficlCell *patchAddr;
patchAddr = (ficlCell *)ficlStackPopPointer(vm->dataStack);
ficlCell *patchAddr;
patchAddr = (ficlCell *)ficlStackPopPointer(vm->dataStack);
ficlCell *fallthroughFixup = NULL;
ficlCell *patchAddr;
patchAddr = (ficlCell *)ficlStackPopPointer(vm->dataStack);
ficlCell *patchAddr;
patchAddr = (ficlCell *)ficlStackPopPointer(vm->dataStack);
ficlCell c;
ficlCell
ficlStackStore(ficlStack *stack, int n, ficlCell c)
ficlCell
ficlCell
ficlStackPush(ficlStack *stack, ficlCell c)
ficlCell c;
ficlCell c;
ficlCell c;
ficlCell c;
ficlCell c;
ficlCell *cell;
ficlStackSetTop(ficlStack *stack, ficlCell c)
ficlCell *cell;
size_t totalSize = sizeof (ficlStack) + (size * sizeof (ficlCell));
ficlCell c;
ficlVmGetDictionary(vm), (ficlCell *)(vm->ip));
ficlStackDisplayCallback(void *c, ficlCell *cell)
ficlStackDisplaySimpleCallback(void *c, ficlCell *cell)
ficlReturnStackDisplayCallback(void *c, ficlCell *cell)
int offset = (ficlCell *)cell->p - &word->param[0];
ficlCell index, limit;
ficlCell index, limit, leave;
ficlCell *cell;
dataTop->i *= sizeof (ficlCell);
dataTop->i += sizeof (ficlCell);
ficlCell *cell;
cell = (ficlCell *)(dataTop--)->p;
i * sizeof (ficlCell));
ficlStackCheckNospill(ficlStack *stack, ficlCell *top, int popCells,
i * sizeof (ficlCell));
ficlCell c2;
ficlCell *oldTop = stack->top;
ficlCell
ficlVmPush(ficlVm *vm, ficlCell c)
ficlCell id = vm->sourceId;
register ficlCell *dataTop;
register ficlCell *returnTop;
register ficlCell *floatTop;
register ficlCell *frame;
ficlCell c;
ficlCell *cell;
(int)sizeof (ficlCell) < cells)) {
(int)sizeof (ficlCell) < -cells)) {
ficlCell c;
ficlCell swap;
i * sizeof (ficlCell));
i * sizeof (ficlCell));
ficlCell c2;
ficlCell *cell;
cell = (ficlCell *)(dataTop--)->p;