Home
last modified time | relevance | path

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

/freebsd/stand/ficl/
H A Dficl.c82 static void ficlSetVersionEnv(FICL_SYSTEM *pSys);
100 FICL_SYSTEM *pSys = ficlMalloc(sizeof (FICL_SYSTEM)); in ficlInitSystemEx() local
102 assert(pSys); in ficlInitSystemEx()
105 memset(pSys, 0, sizeof (FICL_SYSTEM)); in ficlInitSystemEx()
115 pSys->dp = dictCreateHashed((unsigned)nDictCells, HASHSIZE); in ficlInitSystemEx()
116 pSys->dp->pForthWords->name = "forth-wordlist"; in ficlInitSystemEx()
118 pSys->envp = dictCreate((unsigned)nEnvCells); in ficlInitSystemEx()
119 pSys->envp->pForthWords->name = "environment"; in ficlInitSystemEx()
121 pSys->textOut = fsi->textOut; in ficlInitSystemEx()
122 pSys->pExtend = fsi->pExtend; in ficlInitSystemEx()
[all …]
H A Dwords.c472 pVM->pSys->nLocals = 0; in colon()
518 assert(pVM->pSys->pSemiParen); in semicolonCoIm()
522 assert(pVM->pSys->pUnLinkParen); in semicolonCoIm()
523 if (pVM->pSys->nLocals > 0) in semicolonCoIm()
525 FICL_DICT *pLoc = ficlGetLoc(pVM->pSys); in semicolonCoIm()
527 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pUnLinkParen)); in semicolonCoIm()
529 pVM->pSys->nLocals = 0; in semicolonCoIm()
532 dictAppendCell(dp, LVALUEtoCELL(pVM->pSys->pSemiParen)); in semicolonCoIm()
557 assert(pVM->pSys->pExitParen); in exitCoIm()
561 if (pVM->pSys->nLocals > 0) in exitCoIm()
[all …]
H A Dtestmain.c291 void buildTestInterface(FICL_SYSTEM *pSys) in buildTestInterface() argument
293 ficlBuild(pSys, "break", ficlBreak, FW_DEFAULT); in buildTestInterface()
294 ficlBuild(pSys, "clock", ficlClock, FW_DEFAULT); in buildTestInterface()
295 ficlBuild(pSys, "cd", ficlChDir, FW_DEFAULT); in buildTestInterface()
296 ficlBuild(pSys, "execxt", execxt, FW_DEFAULT); in buildTestInterface()
297 ficlBuild(pSys, "load", ficlLoad, FW_DEFAULT); in buildTestInterface()
298 ficlBuild(pSys, "pwd", ficlGetCWD, FW_DEFAULT); in buildTestInterface()
299 ficlBuild(pSys, "system", ficlSystem, FW_DEFAULT); in buildTestInterface()
300 ficlBuild(pSys, "spewhash", spewHash, FW_DEFAULT); in buildTestInterface()
301 ficlBuild(pSys, "clocks/sec", in buildTestInterface()
[all …]
H A Dtools.c86 FICL_WORD *pStep = ficlLookup(pVM->pSys, "step-break"); in vmSetBreak()
191 FICL_WORD *pSemiParen = ficlLookup(pVM->pSys, "(;)"); in seeColon()
397 vmSetBreak(pVM, &(pVM->pSys->bpStep)); in ficlDebugXT()
427 vmSetBreak(pVM, &(pVM->pSys->bpStep)); in stepIn()
444 FICL_WORD *pStep = ficlLookup(pVM->pSys, "step-break"); in stepOver()
458 pVM->pSys->bpStep.address = pVM->ip + 1; in stepOver()
459 pVM->pSys->bpStep.origXT = pVM->ip[1]; in stepOver()
496 assert(pVM->pSys->bpStep.address); in stepBreak()
497 assert(pVM->pSys->bpStep.origXT); in stepBreak()
503 pVM->ip = (IPTYPE)(pVM->pSys->bpStep.address); in stepBreak()
[all …]
H A Dficl.h476 FICL_SYSTEM *pSys; /* Which system this VM belongs to */ member
771 FICL_WORD *ficlLookupLoc (FICL_SYSTEM *pSys, STRINGINFO si);
809 int ficlAddParseStep(FICL_SYSTEM *pSys, FICL_WORD *pFW); /* ficl.c */
810 void ficlAddPrecompiledParseStep(FICL_SYSTEM *pSys, char *name, FICL_PARSE_STEP pStep);
932 void ficlTermSystem(FICL_SYSTEM *pSys);
988 FICL_VM *ficlNewVM(FICL_SYSTEM *pSys);
1011 FICL_WORD *ficlLookup(FICL_SYSTEM *pSys, char *name);
1018 FICL_DICT *ficlGetDict(FICL_SYSTEM *pSys);
1019 FICL_DICT *ficlGetEnv (FICL_SYSTEM *pSys);
1020 void ficlSetEnv (FICL_SYSTEM *pSys, char *name, FICL_UNS value);
[all …]
H A Dprefix.c76 FICL_WORD *pFW = ficlLookup(pVM->pSys, list_name); in ficlParsePrefix()
157 void ficlCompilePrefix(FICL_SYSTEM *pSys) in ficlCompilePrefix() argument
159 FICL_DICT *dp = pSys->dp; in ficlCompilePrefix()
189 pFW = ficlLookup(pSys, "\\"); in ficlCompilePrefix()
H A Dsearch.c354 void ficlCompileSearch(FICL_SYSTEM *pSys) in ficlCompileSearch() argument
356 FICL_DICT *dp = pSys->dp; in ficlCompileSearch()
382 ficlSetEnv(pSys, "search-order", FICL_TRUE); in ficlCompileSearch()
383 ficlSetEnv(pSys, "search-order-ext", FICL_TRUE); in ficlCompileSearch()
384 ficlSetEnv(pSys, "wordlists", FICL_DEFAULT_VOCS); in ficlCompileSearch()
H A Dloader.c813 stackPushINT(pVM->pStack, dictCellsAvail(ficlGetDict(pVM->pSys))); in freeHeap()
833 void ficlCompilePlatform(FICL_SYSTEM *pSys) in ficlCompilePlatform() argument
836 FICL_DICT *dp = pSys->dp; in ficlCompilePlatform()
869 (*fnpp)(pSys); in ficlCompilePlatform()
872 ficlSetEnv(pSys, "arch-i386", FICL_TRUE); in ficlCompilePlatform()
873 ficlSetEnv(pSys, "arch-powerpc", FICL_FALSE); in ficlCompilePlatform()
875 ficlSetEnv(pSys, "arch-i386", FICL_FALSE); in ficlCompilePlatform()
876 ficlSetEnv(pSys, "arch-powerpc", FICL_TRUE); in ficlCompilePlatform()
H A Dfileaccess.c399 void ficlCompileFile(FICL_SYSTEM *pSys) in ficlCompileFile() argument
402 FICL_DICT *dp = pSys->dp; in ficlCompileFile()
425 ficlSetEnv(pSys, "file", FICL_TRUE); in ficlCompileFile()
426 ficlSetEnv(pSys, "file-ext", FICL_TRUE); in ficlCompileFile()
429 (void)pSys; in ficlCompileFile()
H A Dfloat.c661 FICL_WORD *pfLitParen = ficlLookup(pVM->pSys, "(fliteral)"); in fliteralIm()
991 void ficlCompileFloat(FICL_SYSTEM *pSys) in ficlCompileFloat() argument
993 FICL_DICT *dp = pSys->dp; in ficlCompileFloat()
1060 ficlSetEnv(pSys, "floating", FICL_FALSE); /* not all required words are present */ in ficlCompileFloat()
1061 ficlSetEnv(pSys, "floating-ext", FICL_FALSE); in ficlCompileFloat()
1062 ficlSetEnv(pSys, "floating-stack", FICL_DEFAULT_STACK); in ficlCompileFloat()
H A Dgfx_loader.c238 static void ficlCompileGfx(FICL_SYSTEM *pSys) in ficlCompileGfx() argument
241 FICL_DICT *dp = pSys->dp; in ficlCompileGfx()
H A Ddict.c586 FICL_WORD *ficlLookupLoc(FICL_SYSTEM *pSys, STRINGINFO si) in ficlLookupLoc() argument
589 FICL_DICT *pDict = pSys->dp; in ficlLookupLoc()
590 FICL_HASH *pHash = ficlGetLoc(pSys)->pForthWords; in ficlLookupLoc()
H A Dvm.c256 return pVM->pSys->dp; in vmGetDict()
/freebsd/stand/ficl/x86/
H A Dsysdep.c39 static void ficlCompileCpufunc(FICL_SYSTEM *pSys) in ficlCompileCpufunc() argument
41 FICL_DICT *dp = pSys->dp; in ficlCompileCpufunc()