75     FICL_STACK *pStack = pVM->pStack;  in vmCheckStack()  local
76     int nFree = pStack->base + pStack->nCells - pStack->sp;  in vmCheckStack()
78     if (popCells > STKDEPTH(pStack))  in vmCheckStack()
117     FICL_STACK *pStack = ficlMalloc(size);  in stackCreate()  local
121     assert (pStack != NULL);  in stackCreate()
124     pStack->nCells = nCells;  in stackCreate()
125     pStack->sp     = pStack->base;  in stackCreate()
126     pStack->pFrame = NULL;  in stackCreate()
127     return pStack;  in stackCreate()
136 void stackDelete(FICL_STACK *pStack)  in stackDelete()  argument
138     if (pStack)  in stackDelete()
139         ficlFree(pStack);  in stackDelete()
149 int stackDepth(FICL_STACK *pStack)  in stackDepth()  argument
151     return STKDEPTH(pStack);  in stackDepth()
159 void stackDrop(FICL_STACK *pStack, int n)  in stackDrop()  argument
164     pStack->sp -= n;  in stackDrop()
174 CELL stackFetch(FICL_STACK *pStack, int n)  in stackFetch()  argument
176     return pStack->sp[-n-1];  in stackFetch()
179 void stackStore(FICL_STACK *pStack, int n, CELL c)  in stackStore()  argument
181     pStack->sp[-n-1] = c;  in stackStore()
191 CELL stackGetTop(FICL_STACK *pStack)  in stackGetTop()  argument
193     return pStack->sp[-1];  in stackGetTop()
206 void stackLink(FICL_STACK *pStack, int nCells)  in stackLink()  argument
208     stackPushPtr(pStack, pStack->pFrame);  in stackLink()
209     pStack->pFrame = pStack->sp;  in stackLink()
210     pStack->sp += nCells;  in stackLink()
222 void stackUnlink(FICL_STACK *pStack)  in stackUnlink()  argument
224     pStack->sp = pStack->pFrame;  in stackUnlink()
225     pStack->pFrame = stackPopPtr(pStack);  in stackUnlink()
235 void stackPick(FICL_STACK *pStack, int n)  in stackPick()  argument
237     stackPush(pStack, stackFetch(pStack, n));  in stackPick()
247 CELL stackPop(FICL_STACK *pStack)  in stackPop()  argument
249     return *--pStack->sp;  in stackPop()
252 void *stackPopPtr(FICL_STACK *pStack)  in stackPopPtr()  argument
254     return (*--pStack->sp).p;  in stackPopPtr()
257 FICL_UNS stackPopUNS(FICL_STACK *pStack)  in stackPopUNS()  argument
259     return (*--pStack->sp).u;  in stackPopUNS()
262 FICL_INT stackPopINT(FICL_STACK *pStack)  in stackPopINT()  argument
264     return (*--pStack->sp).i;  in stackPopINT()
268 float stackPopFloat(FICL_STACK *pStack)  in stackPopFloat()  argument
270     return (*(--pStack->sp)).f;  in stackPopFloat()
279 void stackPush(FICL_STACK *pStack, CELL c)  in stackPush()  argument
281     *pStack->sp++ = c;  in stackPush()
284 void stackPushPtr(FICL_STACK *pStack, void *ptr)  in stackPushPtr()  argument
286     *pStack->sp++ = LVALUEtoCELL(ptr);  in stackPushPtr()
289 void stackPushUNS(FICL_STACK *pStack, FICL_UNS u)  in stackPushUNS()  argument
291     *pStack->sp++ = LVALUEtoCELL(u);  in stackPushUNS()
294 void stackPushINT(FICL_STACK *pStack, FICL_INT i)  in stackPushINT()  argument
296     *pStack->sp++ = LVALUEtoCELL(i);  in stackPushINT()
300 void stackPushFloat(FICL_STACK *pStack, FICL_FLOAT f)  in stackPushFloat()  argument
302     *pStack->sp++ = LVALUEtoCELL(f);  in stackPushFloat()
311 void stackReset(FICL_STACK *pStack)  in stackReset()  argument
313     pStack->sp = pStack->base;  in stackReset()
326 void stackRoll(FICL_STACK *pStack, int n)  in stackRoll()  argument
335         pCell = pStack->sp - n - 1;  in stackRoll()
347         pCell = pStack->sp - 1;  in stackRoll()
366 void stackSetTop(FICL_STACK *pStack, CELL c)  in stackSetTop()  argument
368     pStack->sp[-1] = c;  in stackSetTop()