stand/ficl/tools.c

87     FICL_WORD *pStep = ficlLookup(pVM->pSys, "step-break");
192 	FICL_WORD *pSemiParen = ficlLookup(pVM->pSys, "(;)");
398         vmSetBreak(pVM, &(pVM->pSys->bpStep));
428     vmSetBreak(pVM, &(pVM->pSys->bpStep));
445     FICL_WORD *pStep = ficlLookup(pVM->pSys, "step-break");
459         pVM->pSys->bpStep.address = pVM->ip + 1;
460         pVM->pSys->bpStep.origXT =  pVM->ip[1];
497         assert(pVM->pSys->bpStep.address);
498         assert(pVM->pSys->bpStep.origXT);
504         pVM->ip = (IPTYPE)(pVM->pSys->bpStep.address);
505         *pVM->ip = pVM->pSys->bpStep.origXT;
510         pOnStep = ficlLookup(pVM->pSys, "on-step");
517         pFW = pVM->pSys->bpStep.origXT;
818     FICL_DICT *dp = pVM->pSys->envp;
854     ficlSetEnv(pVM->pSys, pVM->pad, (FICL_UNS)value);
869     ficlSetEnvD(pVM->pSys, pVM->pad, v1, v2);
879 void ficlCompileTools(FICL_SYSTEM *pSys)
881     FICL_DICT *dp = pSys->dp;
896     ficlSetEnv(pSys, "tools",            FICL_TRUE);
897     ficlSetEnv(pSys, "tools-ext",        FICL_FALSE);