Home
last modified time | relevance | path

Searched refs:pSys (Results 1 – 12 of 12) sorted by relevance

/NextBSD/sys/boot/ficl/
HDficl.c83 static void ficlSetVersionEnv(FICL_SYSTEM *pSys);
101 FICL_SYSTEM *pSys = ficlMalloc(sizeof (FICL_SYSTEM)); in ficlInitSystemEx() local
103 assert(pSys); in ficlInitSystemEx()
106 memset(pSys, 0, sizeof (FICL_SYSTEM)); in ficlInitSystemEx()
116 pSys->dp = dictCreateHashed((unsigned)nDictCells, HASHSIZE); in ficlInitSystemEx()
117 pSys->dp->pForthWords->name = "forth-wordlist"; in ficlInitSystemEx()
119 pSys->envp = dictCreate((unsigned)nEnvCells); in ficlInitSystemEx()
120 pSys->envp->pForthWords->name = "environment"; in ficlInitSystemEx()
122 pSys->textOut = fsi->textOut; in ficlInitSystemEx()
123 pSys->pExtend = fsi->pExtend; in ficlInitSystemEx()
[all …]
HDwords.c473 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()
[all …]
HDtestmain.c292 void buildTestInterface(FICL_SYSTEM *pSys) in buildTestInterface() argument
294 ficlBuild(pSys, "break", ficlBreak, FW_DEFAULT); in buildTestInterface()
295 ficlBuild(pSys, "clock", ficlClock, FW_DEFAULT); in buildTestInterface()
296 ficlBuild(pSys, "cd", ficlChDir, FW_DEFAULT); in buildTestInterface()
297 ficlBuild(pSys, "execxt", execxt, FW_DEFAULT); in buildTestInterface()
298 ficlBuild(pSys, "load", ficlLoad, FW_DEFAULT); in buildTestInterface()
299 ficlBuild(pSys, "pwd", ficlGetCWD, FW_DEFAULT); in buildTestInterface()
300 ficlBuild(pSys, "system", ficlSystem, FW_DEFAULT); in buildTestInterface()
301 ficlBuild(pSys, "spewhash", spewHash, FW_DEFAULT); in buildTestInterface()
302 ficlBuild(pSys, "clocks/sec", in buildTestInterface()
[all …]
HDtools.c87 FICL_WORD *pStep = ficlLookup(pVM->pSys, "step-break"); in vmSetBreak()
192 FICL_WORD *pSemiParen = ficlLookup(pVM->pSys, "(;)"); in seeColon()
398 vmSetBreak(pVM, &(pVM->pSys->bpStep)); in ficlDebugXT()
428 vmSetBreak(pVM, &(pVM->pSys->bpStep)); in stepIn()
445 FICL_WORD *pStep = ficlLookup(pVM->pSys, "step-break"); in stepOver()
459 pVM->pSys->bpStep.address = pVM->ip + 1; in stepOver()
460 pVM->pSys->bpStep.origXT = pVM->ip[1]; in stepOver()
497 assert(pVM->pSys->bpStep.address); in stepBreak()
498 assert(pVM->pSys->bpStep.origXT); in stepBreak()
504 pVM->ip = (IPTYPE)(pVM->pSys->bpStep.address); in stepBreak()
[all …]
HDficl.h477 FICL_SYSTEM *pSys; /* Which system this VM belongs to */ member
772 FICL_WORD *ficlLookupLoc (FICL_SYSTEM *pSys, STRINGINFO si);
810 int ficlAddParseStep(FICL_SYSTEM *pSys, FICL_WORD *pFW); /* ficl.c */
811 void ficlAddPrecompiledParseStep(FICL_SYSTEM *pSys, char *name, FICL_PARSE_STEP pStep);
933 void ficlTermSystem(FICL_SYSTEM *pSys);
989 FICL_VM *ficlNewVM(FICL_SYSTEM *pSys);
1012 FICL_WORD *ficlLookup(FICL_SYSTEM *pSys, char *name);
1019 FICL_DICT *ficlGetDict(FICL_SYSTEM *pSys);
1020 FICL_DICT *ficlGetEnv (FICL_SYSTEM *pSys);
1021 void ficlSetEnv (FICL_SYSTEM *pSys, char *name, FICL_UNS value);
[all …]
HDprefix.c77 FICL_WORD *pFW = ficlLookup(pVM->pSys, list_name); in ficlParsePrefix()
158 void ficlCompilePrefix(FICL_SYSTEM *pSys) in ficlCompilePrefix() argument
160 FICL_DICT *dp = pSys->dp; in ficlCompilePrefix()
190 pFW = ficlLookup(pSys, "\\"); in ficlCompilePrefix()
HDsearch.c355 void ficlCompileSearch(FICL_SYSTEM *pSys) in ficlCompileSearch() argument
357 FICL_DICT *dp = pSys->dp; in ficlCompileSearch()
383 ficlSetEnv(pSys, "search-order", FICL_TRUE); in ficlCompileSearch()
384 ficlSetEnv(pSys, "search-order-ext", FICL_TRUE); in ficlCompileSearch()
385 ficlSetEnv(pSys, "wordlists", FICL_DEFAULT_VOCS); in ficlCompileSearch()
HDloader.c872 stackPushINT(pVM->pStack, dictCellsAvail(ficlGetDict(pVM->pSys))); in freeHeap()
892 void ficlCompilePlatform(FICL_SYSTEM *pSys) in ficlCompilePlatform() argument
894 FICL_DICT *dp = pSys->dp; in ficlCompilePlatform()
943 ficlSetEnv(pSys, "arch-pc98", FICL_TRUE); in ficlCompilePlatform()
945 ficlSetEnv(pSys, "arch-i386", FICL_TRUE); in ficlCompilePlatform()
946 ficlSetEnv(pSys, "arch-powerpc", FICL_FALSE); in ficlCompilePlatform()
948 ficlSetEnv(pSys, "arch-i386", FICL_FALSE); in ficlCompilePlatform()
949 ficlSetEnv(pSys, "arch-powerpc", FICL_TRUE); in ficlCompilePlatform()
HDfileaccess.c393 void ficlCompileFile(FICL_SYSTEM *pSys) in ficlCompileFile() argument
396 FICL_DICT *dp = pSys->dp; in ficlCompileFile()
419 ficlSetEnv(pSys, "file", FICL_TRUE); in ficlCompileFile()
420 ficlSetEnv(pSys, "file-ext", FICL_TRUE); in ficlCompileFile()
423 (void)pSys; in ficlCompileFile()
HDfloat.c662 FICL_WORD *pfLitParen = ficlLookup(pVM->pSys, "(fliteral)"); in fliteralIm()
992 void ficlCompileFloat(FICL_SYSTEM *pSys) in ficlCompileFloat() argument
994 FICL_DICT *dp = pSys->dp; in ficlCompileFloat()
1061 ficlSetEnv(pSys, "floating", FICL_FALSE); /* not all required words are present */ in ficlCompileFloat()
1062 ficlSetEnv(pSys, "floating-ext", FICL_FALSE); in ficlCompileFloat()
1063 ficlSetEnv(pSys, "floating-stack", FICL_DEFAULT_STACK); in ficlCompileFloat()
HDdict.c587 FICL_WORD *ficlLookupLoc(FICL_SYSTEM *pSys, STRINGINFO si) in ficlLookupLoc() argument
590 FICL_DICT *pDict = pSys->dp; in ficlLookupLoc()
591 FICL_HASH *pHash = ficlGetLoc(pSys)->pForthWords; in ficlLookupLoc()
HDvm.c257 return pVM->pSys->dp; in vmGetDict()