stand/ficl/words.c

109     cp = (char *)stackPopPtr(pVM->pStack);
136     patchAddr = (CELL *)stackPopPtr(pVM->pStack);
159     patchAddr = (CELL *)stackPopPtr(pVM->pStack);
179     cp = stackPopPtr(pVM->pStack);
189     patchAddr = (CELL *)stackPopPtr(pVM->pStack);
285     i = stackPopINT(pVM->pStack);
286     i += stackGetTop(pVM->pStack).i;
287     stackSetTop(pVM->pStack, LVALUEtoCELL(i));
297     i = stackPopINT(pVM->pStack);
298     i = stackGetTop(pVM->pStack).i - i;
299     stackSetTop(pVM->pStack, LVALUEtoCELL(i));
309     i = stackPopINT(pVM->pStack);
310     i *= stackGetTop(pVM->pStack).i;
311     stackSetTop(pVM->pStack, LVALUEtoCELL(i));
321     i = -stackPopINT(pVM->pStack);
332     i = stackPopINT(pVM->pStack);
333     i = stackGetTop(pVM->pStack).i / i;
334     stackSetTop(pVM->pStack, LVALUEtoCELL(i));
356     n2    = stackPopINT(pVM->pStack);
357     n1.lo = stackPopINT(pVM->pStack);
372     i = stackGetTop(pVM->pStack).i;
374     stackSetTop(pVM->pStack, LVALUEtoCELL(i));
384     i = stackGetTop(pVM->pStack).i;
386     stackSetTop(pVM->pStack, LVALUEtoCELL(i));
396     i = stackGetTop(pVM->pStack).i;
398     stackSetTop(pVM->pStack, LVALUEtoCELL(i));
408     i = stackGetTop(pVM->pStack).i;
410     stackSetTop(pVM->pStack, LVALUEtoCELL(i));
421     z = stackPopINT(pVM->pStack);
422     y = stackPopINT(pVM->pStack);
423     x = stackPopINT(pVM->pStack);
441     z = stackPopINT(pVM->pStack);
442     y = stackPopINT(pVM->pStack);
443     x = stackPopINT(pVM->pStack);
585     stackPush(pVM->pStack, pFW->param[0]);
595     stackPush(pVM->pStack, pFW->param[0]); /* lo */
596     stackPush(pVM->pStack, pFW->param[1]); /* hi */
617     dictAppendCell(dp, stackPop(pVM->pStack));
631     c = stackPop(pVM->pStack);
633     dictAppendCell(dp, stackPop(pVM->pStack));
651     c = stackPop(pVM->pStack);
664     u = stackPopUNS(pVM->pStack);
678     u = stackPopUNS(pVM->pStack);
696 	char *address = (char *)stackPopPtr(ficlVM->pStack);
697 	stackPushINT(ficlVM->pStack, strlen(address));
728 	int bufferLength = stackPopINT(pVM->pStack);
729 	char *buffer = (char *)stackPopPtr(pVM->pStack);
732 	int formatLength = stackPopINT(pVM->pStack);
733 	char *format = (char *)stackPopPtr(pVM->pStack);
779 				desiredLength = stackPopINT(pVM->pStack);
791 					actualLength = stackPopINT(pVM->pStack);
792 					source = (char *)stackPopPtr(pVM->pStack);
804 					int integer = stackPopINT(pVM->pStack);
846 	stackPushPtr(pVM->pStack, bufferStart);
847 	stackPushINT(pVM->pStack, buffer - bufferStart);
848 	stackPushINT(pVM->pStack, append);
863     i = stackDepth(pVM->pStack);
874     stackDrop(pVM->pStack, 1);
884     stackDrop(pVM->pStack, 2);
894     stackPick(pVM->pStack, 0);
904     stackPick(pVM->pStack, 1);
905     stackPick(pVM->pStack, 1);
915     stackPick(pVM->pStack, 1);
924     stackPick(pVM->pStack, 3);
925     stackPick(pVM->pStack, 3);
932     CELL c = stackPop(pVM->pStack);
936     stackPick(pVM->pStack, c.i);
947     c = stackGetTop(pVM->pStack);
950         stackPick(pVM->pStack, 0);
958     int i = stackPop(pVM->pStack).i;
963     stackRoll(pVM->pStack, i);
970     int i = stackPop(pVM->pStack).i;
975     stackRoll(pVM->pStack, -i);
985     stackRoll(pVM->pStack, 2);
995     stackRoll(pVM->pStack, 1);
1005     stackRoll(pVM->pStack, 3);
1006     stackRoll(pVM->pStack, 3);
1024     i = stackPopINT(pVM->pStack);
1096     pCell = (CELL *)stackPopPtr(pVM->pStack);
1097     stackPush(pVM->pStack, *pCell);
1113     pCell = (CELL *)stackPopPtr(pVM->pStack);
1114     stackPush(pVM->pStack, *pCell++);
1115     stackPush(pVM->pStack, *pCell);
1130     pCell = (CELL *)stackPopPtr(pVM->pStack);
1131     *pCell = stackPop(pVM->pStack);
1146     pCell = (CELL *)stackPopPtr(pVM->pStack);
1147     *pCell++    = stackPop(pVM->pStack);
1148     *pCell      = stackPop(pVM->pStack);
1157     pCell = (CELL *)stackPopPtr(pVM->pStack);
1158     pCell->i += stackPop(pVM->pStack).i;
1168     pw = (UNS32 *)stackPopPtr(pVM->pStack);
1179     pw = (UNS32 *)stackPopPtr(pVM->pStack);
1180     *pw = (UNS32)(stackPop(pVM->pStack).u);
1189     pw = (UNS16 *)stackPopPtr(pVM->pStack);
1200     pw = (UNS16 *)stackPopPtr(pVM->pStack);
1201     *pw = (UNS16)(stackPop(pVM->pStack).u);
1210     pc = (UNS8 *)stackPopPtr(pVM->pStack);
1221     pc = (UNS8 *)stackPopPtr(pVM->pStack);
1222     *pc = (UNS8)(stackPop(pVM->pStack).u);
1253     flag = stackPopUNS(pVM->pStack);
1313         (CELL *)stackPopPtr(pVM->pStack);   /* (2) pop "if" patch addr */
1380 	if (stackGetTop(pVM->pStack).p == fallthroughTag)
1407 		patchAddr = (CELL *)stackPopPtr(pVM->pStack);
1424 	b = stackGetTop(pVM->pStack).u;
1428 		stackDrop(pVM->pStack, 1);
1456 	if (stackGetTop(pVM->pStack).p == fallthroughTag)
1501     patchAddr = (CELL *)stackPopPtr(pVM->pStack);
1542     patchAddr = (CELL *)stackPopPtr(pVM->pStack);
1573     SI_SETLEN(si, stackPopUNS(pVM->pStack));
1574     SI_SETPTR(si, stackPopPtr(pVM->pStack));
1644             stackPushPtr(pVM->pStack, SI_PTR(si));
1645             stackPushUNS(pVM->pStack, SI_COUNT(si));
1647             if (stackPopINT(pVM->pStack))
1739     SI_SETLEN(si, stackPopUNS(pVM->pStack));
1740     SI_SETPTR(si, stackPopPtr(pVM->pStack));
1741     stackPushINT(pVM->pStack, ficlParseWord(pVM, si));
1760     SI_SETLEN(si, stackPopINT(pVM->pStack));
1761     SI_SETPTR(si, stackPopPtr(pVM->pStack));
1776     pStep = (FICL_WORD *)(stackPop(pVM->pStack).p);
1828     dictAppendCell(dp, stackPop(pVM->pStack));
1840     dictAppendCell(dp, stackPop(pVM->pStack));
1841     dictAppendCell(dp, stackPop(pVM->pStack));
1857     c.i = FICL_BOOL(stackPopINT(pVM->pStack) == 0);
1858     stackPush(pVM->pStack, c);
1868     c.i = FICL_BOOL(stackPopINT(pVM->pStack) < 0);
1869     stackPush(pVM->pStack, c);
1879     c.i = FICL_BOOL(stackPopINT(pVM->pStack) > 0);
1880     stackPush(pVM->pStack, c);
1891     x = stackPop(pVM->pStack);
1892     y = stackPop(pVM->pStack);
1903     y = stackPop(pVM->pStack);
1904     x = stackPop(pVM->pStack);
1915     u2 = stackPopUNS(pVM->pStack);
1916     u1 = stackPopUNS(pVM->pStack);
1927     y = stackPop(pVM->pStack);
1928     x = stackPop(pVM->pStack);
1939     u2 = stackPopUNS(pVM->pStack);
1940     u1 = stackPopUNS(pVM->pStack);
1951     x = stackPop(pVM->pStack);
1952     y = stackPop(pVM->pStack);
1963     x = stackPop(pVM->pStack);
1964     y = stackPop(pVM->pStack);
1975     x = stackPop(pVM->pStack);
1976     y = stackPop(pVM->pStack);
1987     x = stackPop(pVM->pStack);
2046     index = stackPop(pVM->pStack);
2047     limit = stackPop(pVM->pStack);
2086     index = stackPop(pVM->pStack);
2087     limit = stackPop(pVM->pStack);
2214     stackPush(pVM->pStack, index);
2223     stackPush(pVM->pStack, index);
2232     stackPush(pVM->pStack, index);
2274     stackRoll(pVM->pStack, 1);
2275     stackPush(pVM->rStack, stackPop(pVM->pStack));
2276     stackPush(pVM->rStack, stackPop(pVM->pStack));
2285     stackPush(pVM->pStack, stackPop(pVM->rStack));
2286     stackPush(pVM->pStack, stackPop(pVM->rStack));
2287     stackRoll(pVM->pStack, 1);
2296     stackPush(pVM->pStack, stackFetch(pVM->rStack, 1));
2297     stackPush(pVM->pStack, stackFetch(pVM->rStack, 0));
2354     stackPush(pVM->pStack, LVALUEtoCELL(pBase));
2514     pFW = stackGetTop(pVM->pStack).p;
2517         dictAppendCell(dp, stackPop(pVM->pStack));
2543     pFW = stackPopPtr(pVM->pStack);
2583     FICL_WORD *pFW = (FICL_WORD *)stackPopPtr(pVM->pStack);
2586     stackPushINT(pVM->pStack, flag);
2599     stackPushPtr(pVM->pStack, sp);
2612         stackPushPtr(pVM->pStack, sp);
2946     u = u64Pop(pVM->pStack);
2949     u64Push(pVM->pStack, u);
2992     u = u64Pop(pVM->pStack);
3001     u64Push(pVM->pStack, u);
3075     accum = u64Pop(pVM->pStack);
3096     u64Push(pVM->pStack, accum);
3172     count = stackPopINT(pVM->pStack);
3173     cp    = stackPopPtr(pVM->pStack);
3408     si.count = (FICL_COUNT)stackPopUNS(pVM->pStack);
3409     si.cp    = stackPopPtr(pVM->pStack);
3496     FICL_UNS count = stackPopUNS(pVM->pStack);
3497     char *cp    = stackPopPtr(pVM->pStack);
3701     si.count = stackPopINT(pVM->pStack);
3702     si.cp = stackPopPtr(pVM->pStack);
3727     d1 = i64Pop(pVM->pStack);
3753     d1 = i64Pop(pVM->pStack);
3793     u1    = stackPopUNS(pVM->pStack);
3794     ud    = u64Pop(pVM->pStack);
3865     i64Push(pVM->pStack, d);
3883     u64Push(pVM->pStack, ud);
4101     c = stackPop(pVM->pStack);
4158         pFW->param[0] = stackPop(pVM->pStack);
4202     stackPush(pVM->pStack, pVM->rStack->pFrame[nLocal]);
4210     pVM->rStack->pFrame[nLocal] = stackPop(pVM->pStack);
4217     stackPush(pVM->pStack, pVM->rStack->pFrame[0]);
4224     pVM->rStack->pFrame[0] = stackPop(pVM->pStack);
4231     stackPush(pVM->pStack, pVM->rStack->pFrame[1]);
4238     pVM->rStack->pFrame[1] = stackPop(pVM->pStack);
4258         stackPush(pVM->pStack, pVM->rStack->pFrame[nLocal]);
4360     stackPush(pVM->pStack, pVM->rStack->pFrame[nLocal]);
4361     stackPush(pVM->pStack, pVM->rStack->pFrame[nLocal+1]);
4373         stackPush(pVM->pStack, pVM->rStack->pFrame[nLocal]);
4374         stackPush(pVM->pStack, pVM->rStack->pFrame[nLocal+1]);
4388     pVM->rStack->pFrame[nLocal+1] = stackPop(pVM->pStack);
4389     pVM->rStack->pFrame[nLocal]   = stackPop(pVM->pStack);
4398     SI_SETLEN(si, stackPopUNS(pVM->pStack));
4399     SI_SETPTR(si, (char *)stackPopPtr(pVM->pStack));
4456     u2  = stackPopUNS(pVM->pStack);
4457     cp2 = (char *)stackPopPtr(pVM->pStack);
4458     u1  = stackPopUNS(pVM->pStack);
4459     cp1 = (char *)stackPopPtr(pVM->pStack);
4507     stackPushPtr(pVM->pStack, pVM->pad);
4579     FICL_STACK  pStack;
4596     pFW = stackPopPtr(pVM->pStack);
4610     memcpy((void*)&pStack, (void*)pVM->pStack, sizeof(FICL_STACK));
4653         memcpy((void*)pVM->pStack, (void*)&pStack, sizeof(FICL_STACK));
4676     except = stackPopINT(pVM->pStack);
4692     size = stackPopINT(pVM->pStack);
4710     p = stackPopPtr(pVM->pStack);
4725     size = stackPopINT(pVM->pStack);
4726     old = stackPopPtr(pVM->pStack);
4758     DPINT i = i64Pop(pVM->pStack);
4760     i64Push(pVM->pStack, i);