Lines Matching refs:pSys
473 pVM->pSys->nLocals = 0; in colon()
519 assert(pVM->pSys->pSemiParen); in semicolonCoIm()
523 assert(pVM->pSys->pUnLinkParen); in semicolonCoIm()
524 if (pVM->pSys->nLocals > 0) in semicolonCoIm()
526 FICL_DICT *pLoc = ficlGetLoc(pVM->pSys); in semicolonCoIm()
528 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pUnLinkParen)); in semicolonCoIm()
530 pVM->pSys->nLocals = 0; in semicolonCoIm()
533 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pSemiParen)); in semicolonCoIm()
558 assert(pVM->pSys->pExitParen); in exitCoIm()
562 if (pVM->pSys->nLocals > 0) in exitCoIm()
564 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pUnLinkParen)); in exitCoIm()
567 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pExitParen)); in exitCoIm()
1280 assert(pVM->pSys->pBranch0); in ifCoIm()
1282 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pBranch0)); in ifCoIm()
1308 assert(pVM->pSys->pBranchParen); in elseCoIm()
1310 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pBranchParen)); in elseCoIm()
1373 assert(pVM->pSys->pDrop); in endcaseCoIm()
1403 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pDrop)); in endcaseCoIm()
1450 assert(pVM->pSys->pBranch0); in ofCoIm()
1466 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pOfParen)); in ofCoIm()
1496 assert(pVM->pSys->pBranchParen); in endofCoIm()
1508 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pBranchParen)); in endofCoIm()
1550 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pBranchParen)); in fallthroughCoIm()
1603 FICL_SYSTEM *pSys; in interpret() local
1607 pSys = pVM->pSys; in interpret()
1630 FICL_WORD *pFW = pSys->parseList[i]; in interpret()
1690 if (pVM->pSys->nLocals > 0) in ficlParseWord()
1692 tempFW = ficlLookupLoc(pVM->pSys, si); in ficlParseWord()
1778 ficlAddParseStep(pVM->pSys, pStep); in addParseStep()
1825 assert(pVM->pSys->pLitParen); in literalIm()
1827 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pLitParen)); in literalIm()
1837 assert(pVM->pSys->pTwoLitParen); in twoLiteralIm()
1839 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pTwoLitParen)); in twoLiteralIm()
2010 assert(pVM->pSys->pDoParen); in doCoIm()
2012 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pDoParen)); in doCoIm()
2050 assert(pVM->pSys->pQDoParen); in qDoCoIm()
2052 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pQDoParen)); in qDoCoIm()
2120 assert(pVM->pSys->pLoopParen); in loopCoIm()
2122 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pLoopParen)); in loopCoIm()
2133 assert(pVM->pSys->pPLoopParen); in plusLoopCoIm()
2135 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pPLoopParen)); in plusLoopCoIm()
2498 FICL_WORD *pComma = ficlLookup(pVM->pSys, ","); in postponeCoIm()
2606 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pCStringLit)); in cstringQuoteIm()
2647 FICL_WORD *pType = ficlLookup(pVM->pSys, "type"); in dotQuoteCoIm()
2649 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pStringLit)); in dotQuoteCoIm()
2706 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pStringLit)); in sLiteralCoIm()
2800 assert(pVM->pSys->pUnLinkParen); in doesCoIm()
2801 if (pVM->pSys->nLocals > 0) in doesCoIm()
2803 FICL_DICT *pLoc = ficlGetLoc(pVM->pSys); in doesCoIm()
2805 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pUnLinkParen)); in doesCoIm()
2808 pVM->pSys->nLocals = 0; in doesCoIm()
2812 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pDoesParen)); in doesCoIm()
3225 assert(pVM->pSys->pBranch0); in untilCoIm()
3227 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pBranch0)); in untilCoIm()
3236 assert(pVM->pSys->pBranch0); in whileCoIm()
3238 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pBranch0)); in whileCoIm()
3249 assert(pVM->pSys->pBranchParen); in repeatCoIm()
3250 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pBranchParen)); in repeatCoIm()
3264 assert(pVM->pSys->pBranchParen); in againCoIm()
3265 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pBranchParen)); in againCoIm()
3395 envp = pVM->pSys->envp; in environmentQ()
3469 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pStringLit)); in stringQuoteIm()
4117 if ((pVM->pSys->nLocals > 0) && (pVM->state == COMPILE)) in toValue()
4119 FICL_DICT *pLoc = ficlGetLoc(pVM->pSys); in toValue()
4123 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pToLocalParen)); in toValue()
4129 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pTo2LocalParen)); in toValue()
4136 assert(pVM->pSys->pStore); in toValue()
4151 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pStore)); in toValue()
4253 dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->pGetLocal0)); in doLocalIm()
4257 dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->pGetLocal1)); in doLocalIm()
4261 dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->pGetLocalParen)); in doLocalIm()
4306 FICL_DICT *pLoc = ficlGetLoc(pVM->pSys); in localParen()
4307 if (pVM->pSys->nLocals >= FICL_MAX_LOCALS) in localParen()
4313 dictAppendCell(pLoc, LVALUEtoCELL(pVM->pSys->nLocals)); in localParen()
4315 if (pVM->pSys->nLocals == 0) in localParen()
4317 dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->pLinkParen)); in localParen()
4319 pVM->pSys->pMarkLocals = pDict->here; in localParen()
4320 dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->nLocals)); in localParen()
4322 dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->pToLocal0)); in localParen()
4324 else if (pVM->pSys->nLocals == 1) in localParen()
4326 dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->pToLocal1)); in localParen()
4330 dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->pToLocalParen)); in localParen()
4331 dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->nLocals)); in localParen()
4334 (pVM->pSys->nLocals)++; in localParen()
4336 else if (pVM->pSys->nLocals > 0) in localParen()
4338 *(FICL_INT *)(pVM->pSys->pMarkLocals) = pVM->pSys->nLocals; in localParen()
4366 dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->pGet2LocalParen)); in do2LocalIm()
4391 FICL_DICT *pLoc = ficlGetLoc(pVM->pSys); in twoLocalParen()
4392 if (pVM->pSys->nLocals >= FICL_MAX_LOCALS) in twoLocalParen()
4398 dictAppendCell(pLoc, LVALUEtoCELL(pVM->pSys->nLocals)); in twoLocalParen()
4400 if (pVM->pSys->nLocals == 0) in twoLocalParen()
4402 dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->pLinkParen)); in twoLocalParen()
4404 pVM->pSys->pMarkLocals = pDict->here; in twoLocalParen()
4405 dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->nLocals)); in twoLocalParen()
4408 dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->pTo2LocalParen)); in twoLocalParen()
4409 dictAppendCell(pDict, LVALUEtoCELL(pVM->pSys->nLocals)); in twoLocalParen()
4411 pVM->pSys->nLocals += 2; in twoLocalParen()
4413 else if (pVM->pSys->nLocals > 0) in twoLocalParen()
4415 *(FICL_INT *)(pVM->pSys->pMarkLocals) = pVM->pSys->nLocals; in twoLocalParen()
4572 assert(pVM->pSys->pExitInner); in ficlCatch()
4619 vmPushIP(pVM, &(pVM->pSys->pExitInner)); /* Open mouth, insert emetic */ in ficlCatch()
4845 void ficlCompileCore(FICL_SYSTEM *pSys) in ficlCompileCore() argument
4847 FICL_DICT *dp = pSys->dp; in ficlCompileCore()
4855 pSys->pStore = in ficlCompileCore()
4923 pSys->pDrop = in ficlCompileCore()
5021 ficlSetEnv(pSys, "/counted-string", FICL_STRING_MAX); in ficlCompileCore()
5022 ficlSetEnv(pSys, "/hold", nPAD); in ficlCompileCore()
5023 ficlSetEnv(pSys, "/pad", nPAD); in ficlCompileCore()
5024 ficlSetEnv(pSys, "address-unit-bits", 8); in ficlCompileCore()
5025 ficlSetEnv(pSys, "core", FICL_TRUE); in ficlCompileCore()
5026 ficlSetEnv(pSys, "core-ext", FICL_FALSE); in ficlCompileCore()
5027 ficlSetEnv(pSys, "floored", FICL_FALSE); in ficlCompileCore()
5028 ficlSetEnv(pSys, "max-char", UCHAR_MAX); in ficlCompileCore()
5029 ficlSetEnvD(pSys,"max-d", 0x7fffffff, 0xffffffff); in ficlCompileCore()
5030 ficlSetEnv(pSys, "max-n", 0x7fffffff); in ficlCompileCore()
5031 ficlSetEnv(pSys, "max-u", 0xffffffff); in ficlCompileCore()
5032 ficlSetEnvD(pSys,"max-ud", 0xffffffff, 0xffffffff); in ficlCompileCore()
5033 ficlSetEnv(pSys, "return-stack-cells",FICL_DEFAULT_STACK); in ficlCompileCore()
5034 ficlSetEnv(pSys, "stack-cells", FICL_DEFAULT_STACK); in ficlCompileCore()
5051 ficlSetEnv(pSys, "exception", FICL_TRUE); in ficlCompileCore()
5052 ficlSetEnv(pSys, "exception-ext", FICL_TRUE); in ficlCompileCore()
5059 pSys->pLinkParen = in ficlCompileCore()
5061 pSys->pUnLinkParen = in ficlCompileCore()
5064 pSys->pGetLocalParen = in ficlCompileCore()
5066 pSys->pToLocalParen = in ficlCompileCore()
5068 pSys->pGetLocal0 = in ficlCompileCore()
5070 pSys->pToLocal0 = in ficlCompileCore()
5072 pSys->pGetLocal1 = in ficlCompileCore()
5074 pSys->pToLocal1 = in ficlCompileCore()
5078 pSys->pGet2LocalParen = in ficlCompileCore()
5080 pSys->pTo2LocalParen = in ficlCompileCore()
5084 ficlSetEnv(pSys, "locals", FICL_TRUE); in ficlCompileCore()
5085 ficlSetEnv(pSys, "locals-ext", FICL_TRUE); in ficlCompileCore()
5086 ficlSetEnv(pSys, "#locals", FICL_MAX_LOCALS); in ficlCompileCore()
5097 ficlSetEnv(pSys, "memory-alloc", FICL_TRUE); in ficlCompileCore()
5102 ficlCompileSearch(pSys); in ficlCompileCore()
5107 ficlCompileTools(pSys); in ficlCompileCore()
5113 ficlCompileFile(pSys); in ficlCompileCore()
5160 pSys->pExitParen = in ficlCompileCore()
5162 pSys->pSemiParen = in ficlCompileCore()
5164 pSys->pLitParen = in ficlCompileCore()
5166 pSys->pTwoLitParen = in ficlCompileCore()
5168 pSys->pStringLit = in ficlCompileCore()
5170 pSys->pCStringLit = in ficlCompileCore()
5172 pSys->pBranch0 = in ficlCompileCore()
5174 pSys->pBranchParen = in ficlCompileCore()
5176 pSys->pDoParen = in ficlCompileCore()
5178 pSys->pDoesParen = in ficlCompileCore()
5180 pSys->pQDoParen = in ficlCompileCore()
5182 pSys->pLoopParen = in ficlCompileCore()
5184 pSys->pPLoopParen = in ficlCompileCore()
5186 pSys->pInterpret = in ficlCompileCore()
5189 pSys->pOfParen = in ficlCompileCore()
5195 pSys->pExitInner = in ficlCompileCore()
5201 pSys->pInterp[0] = pSys->pInterpret; in ficlCompileCore()
5202 pSys->pInterp[1] = pSys->pBranchParen; in ficlCompileCore()
5203 pSys->pInterp[2] = (FICL_WORD *)(void *)(-2); in ficlCompileCore()