boot/ficl/words.c

581     FICL_WORD *pFW = pVM->runningWord;
585     stackPush(pVM->pStack, pFW->param[0]);
591     FICL_WORD *pFW = pVM->runningWord;
595     stackPush(pVM->pStack, pFW->param[0]); /* lo */
596     stackPush(pVM->pStack, pFW->param[1]); /* hi */
1630         FICL_WORD *pFW = pSys->parseList[i];
1632         if (pFW == NULL)
1635         if (pFW->code == parseStepParen)
1638             pStep = (FICL_PARSE_STEP)(pFW->param->fn);
1646             ficlExecXT(pVM, pFW);
1757     FICL_WORD *pFW = pVM->runningWord;
1758     FICL_PARSE_STEP pStep = (FICL_PARSE_STEP)(pFW->param->fn);
2461     FICL_WORD *pFW = NULL;
2467     pFW = dictLookup(vmGetDict(pVM), si);
2468     if (!pFW)
2473     PUSHPTR(pFW);
2497     FICL_WORD *pFW;
2502     pFW = stackGetTop(pVM->pStack).p;
2503     if (wordIsImmediate(pFW))
2526     FICL_WORD *pFW;
2531     pFW = stackPopPtr(pVM->pStack);
2532     vmExecute(pVM, pFW);
2571     FICL_WORD *pFW = (FICL_WORD *)stackPopPtr(pVM->pStack);
2573     flag = ((pFW != NULL) && (pFW->flags & FW_ISOBJECT)) ? FICL_TRUE : FICL_FALSE;
2825     FICL_WORD *pFW;
2831     pFW = POPPTR();
2832     PUSHPTR(pFW->param + 1);
2861     FICL_WORD *pFW;
2866     pFW = POPPTR();
2867     PUSHPTR(pFW->name);
2868     PUSHUNS(pFW->nName);
3389     FICL_WORD *pFW;
3399     pFW = dictLookup(envp, si);
3401     if (pFW != NULL)
3403         vmExecute(pVM, pFW);
3633     FICL_WORD *pFW;
3635     pFW = dictLookup(vmGetDict(pVM), si);
3636     if (pFW)
3638         PUSHPTR(pFW);
3639         PUSHINT((wordIsImmediate(pFW) ? 1 : -1));
4044     FICL_WORD *pFW;
4051     pFW = dictAppendWord2(dp, si, colonParen, FW_DEFAULT | FW_SMUDGE);
4052     PUSHPTR(pFW);
4114     FICL_WORD *pFW;
4120         pFW = dictLookup(pLoc, si);
4121         if (pFW && (pFW->code == doLocalIm))
4124             dictAppendCell(dp, LVALUEtoCELL(pFW->param[0]));
4127         else if (pFW && pFW->code == do2LocalIm)
4130             dictAppendCell(dp, LVALUEtoCELL(pFW->param[0]));
4138     pFW = dictLookup(dp, si);
4139     if (!pFW)
4146         pFW->param[0] = stackPop(pVM->pStack);
4149         PUSHPTR(&pFW->param[0]);
4569     FICL_WORD   *pFW;
4584     pFW = stackPopPtr(pVM->pStack);
4620         vmExecute(pVM, pFW);
4773 WORDKIND ficlWordClassify(FICL_WORD *pFW)
4805     FICL_CODE code = pFW->code;