Home
last modified time | relevance | path

Searched refs:pVM (Results 1 – 25 of 27) sorted by relevance

12

/freebsd/stand/ficl/
H A Dwords.c651 ltoa((c).i, pVM->pad, pVM->base); in displayCell()
653 vmTextOut(pVM, pVM->pad, 0); in displayCell()
664 ultoa(u, pVM->pad, pVM->base); in uDot()
666 vmTextOut(pVM, pVM->pad, 0); in uDot()
680 vmTextOut(pVM, pVM->pad, 0); in hexDot()
1234 vmBranchRelative(pVM, (uintptr_t)*(pVM->ip)); in branchParen()
1432 vmBranchRelative(pVM, *(int *)(pVM->ip)); in ofParen()
2049 stackPushPtr(pVM->rStack, *(pVM->ip++)); in doParen()
2089 stackPushPtr(pVM->rStack, *(pVM->ip++)); in qDoParen()
2685 vmTextOut(pVM, pVM->pad, 0); in dotParen()
[all …]
H A Dtools.c287 vmTextOut(pVM, pVM->pad, 1); in seeColon()
313 vmTextOut(pVM, pVM->pad, 1); in seeXT()
329 vmTextOut(pVM, pVM->pad, 1); in seeXT()
336 vmTextOut(pVM, pVM->pad, 1); in seeXT()
343 vmTextOut(pVM, pVM->pad, 1); in seeXT()
347 vmTextOut(pVM, pVM->pad, 1); in seeXT()
525 vmTextOut(pVM, pVM->pad, 1); in stepBreak()
638 vmTextOut(pVM, ltoa((*pCell++).i, pVM->pad, pVM->base), 0); in displayPStack()
681 vmTextOut(pVM, ltoa(c.i, pVM->pad, pVM->base), 0); in displayRStack()
806 vmTextOut(pVM, pVM->pad, 1); in listWords()
[all …]
H A Dfloat.c63 vmCheckFStack(pVM, 2, 1); in Fadd()
148 vmCheckStack(pVM, 1, 0); in Faddi()
166 vmCheckStack(pVM, 1, 0); in Fsubi()
325 vmTextOut(pVM, pVM->pad, 0); in FDot()
342 vmTextOut(pVM, pVM->pad, 0); in EDot()
364 ltoa(d, &pVM->pad[1], pVM->base); in displayFStack()
365 pVM->pad[0] = '['; in displayFStack()
367 vmTextOut(pVM,pVM->pad,0); in displayFStack()
373 vmTextOut(pVM,pVM->pad,0); in displayFStack()
852 if (pVM->base != 10) in ficlParseFloatNumber()
[all …]
H A Dloader.c67 ficlSetenv(FICL_VM *pVM) in ficlSetenv() argument
76 vmCheckStack(pVM, 4, 0); in ficlSetenv()
142 ficlGetenv(FICL_VM *pVM) in ficlGetenv() argument
206 ficlCopyin(FICL_VM *pVM) in ficlCopyin() argument
315 ficlCcall(FICL_VM *pVM) in ficlCcall() argument
426 id = pVM->sourceID; in ficlExecFD()
454 ficlExec(pVM, ""); in ficlExecFD()
467 ltoa((c).i, pVM->pad, pVM->base); in displayCellNoPad()
468 vmTextOut(pVM, pVM->pad, 0); in displayCellNoPad()
676 ficlExecFD(pVM, fd); in pfload()
[all …]
H A Dvm.c84 if (pVM == NULL) in vmCreate()
107 vmReset(pVM); in vmCreate()
108 return pVM; in vmCreate()
119 if (pVM) in vmDelete()
255 assert(pVM); in vmGetDict()
450 pVM->ip = (IPTYPE)(stackPopPtr(pVM->rStack)); in vmPopIP()
461 stackPushPtr(pVM->rStack, (void *)pVM->ip); in vmPushIP()
520 vmQuit(pVM); in vmReset()
552 assert(pVM); in vmTextOut()
554 (pVM->textOut)(pVM, text, fNewline); in vmTextOut()
[all …]
H A Dfileaccess.c26 stackPushINT(pVM->pStack, ior); in pushIor()
84 pushIor(pVM, f != NULL); in ficlFopen()
91 ficlFopen(pVM, "a"); in ficlOpenFile()
97 ficlFopen(pVM, "w"); in ficlCreateFile()
183 pushIor(pVM, ud != -1); in ficlFilePosition()
204 pushIor(pVM, ud != -1); in ficlFileSize()
213 CELL id = pVM->sourceID; in ficlIncludeFile()
233 CELL id = pVM->sourceID; in ficlIncludeFile()
272 pVM->sourceID.i = -1; in ficlIncludeFile()
273 ficlExec(pVM, ""); in ficlIncludeFile()
[all …]
H A Dtestmain.c61 vmTextOut(pVM, cp, 1); in ficlGetCWD()
112 vmTextOut(pVM, pVM->pad, 1); in ficlSystem()
171 id = pVM->sourceID; in ficlLoad()
196 pVM->sourceID.i = -1; in ficlLoad()
197 ficlExec(pVM, ""); in ficlLoad()
199 pVM->sourceID = id; in ficlLoad()
259 pVM->state = pVM->state; in ficlBreak()
281 vmCheckStack(pVM, 1, 0); in execxt()
285 ficlExecXT(pVM, pFW); in execxt()
311 FICL_VM *pVM; in main() local
[all …]
H A Dgfx_loader.c71 vmCheckStack(pVM, 7, 1); in ficl_term_putimage()
112 ficl_fb_putimage(FICL_VM *pVM) in ficl_fb_putimage() argument
122 vmCheckStack(pVM, 7, 1); in ficl_fb_putimage()
151 ficl_fb_setpixel(FICL_VM *pVM) in ficl_fb_setpixel() argument
156 vmCheckStack(pVM, 2, 0); in ficl_fb_setpixel()
165 ficl_fb_line(FICL_VM *pVM) in ficl_fb_line() argument
170 vmCheckStack(pVM, 5, 0); in ficl_fb_line()
182 ficl_fb_bezier(FICL_VM *pVM) in ficl_fb_bezier() argument
187 vmCheckStack(pVM, 7, 0); in ficl_fb_bezier()
206 vmCheckStack(pVM, 5, 0); in ficl_fb_drawrect()
[all …]
H A Dsearch.c57 static void definitions(FICL_VM *pVM) in definitions() argument
92 static void getCurrent(FICL_VM *pVM) in getCurrent() argument
95 stackPushPtr(pVM->pStack, vmGetDict(pVM)->pCompile); in getCurrent()
109 static void getOrder(FICL_VM *pVM) in getOrder() argument
191 static void setOrder(FICL_VM *pVM) in setOrder() argument
195 FICL_DICT *dp = vmGetDict(pVM); in setOrder()
239 FICL_DICT *dp = vmGetDict(pVM); in ficlWordlist()
244 vmCheckStack(pVM, 1, 1); in ficlWordlist()
258 static void searchPop(FICL_VM *pVM) in searchPop() argument
309 vmPush(pVM, LVALUEtoCELL(cp)); in widGetName()
[all …]
H A Dficl.h513 #define VM_ASSERT(pVM) assert((*(pVM->ip - 1)) == pVM->runningWord)
515 #define VM_ASSERT(pVM) argument
594 #define vmGetRunningWord(pVM) ((pVM)->runningWord) argument
601 #define M_VM_STEP(pVM) \ argument
611 #define vmInnerLoop(pVM) M_INNER_LOOP(pVM) argument
639 #define vmGetInBuf(pVM) ((pVM)->tib.cp + (pVM)->tib.index) argument
640 #define vmGetInBufLen(pVM) ((pVM)->tib.end - (pVM)->tib.cp) argument
641 #define vmGetInBufEnd(pVM) ((pVM)->tib.end) argument
642 #define vmGetTibIndex(pVM) (pVM)->tib.index argument
643 #define vmSetTibIndex(pVM, i) (pVM)->tib.index = i argument
[all …]
H A Dficl.c257 pVM->pSys = pSys; in ficlNewVM()
262 return pVM; in ficlNewVM()
377 assert(pVM); in ficlExecC()
397 pVM->runningWord->code(pVM); in ficlExecC()
414 vmPopIP(pVM); in ficlExecC()
416 if ((pVM->state != COMPILE) && (pVM->sourceID.i == 0)) in ficlExecC()
434 vmQuit(pVM); in ficlExecC()
449 vmReset(pVM); in ficlExecC()
483 assert(pVM); in ficlExecXT()
499 vmPopIP(pVM); in ficlExecXT()
[all …]
H A Dprefix.c103 vmSetTibIndex(pVM, si.cp + n - pVM->tib.cp ); in ficlParsePrefix()
118 int oldbase = pVM->base; in tempBase()
121 pVM->base = base; in tempBase()
122 if (!ficlParseNumber(pVM, si)) in tempBase()
128 pVM->base = oldbase; in tempBase()
132 static void fTempBase(FICL_VM *pVM) in fTempBase() argument
135 tempBase(pVM, base); in fTempBase()
139 static void prefixHex(FICL_VM *pVM) in prefixHex() argument
141 tempBase(pVM, 16); in prefixHex()
144 static void prefixTen(FICL_VM *pVM) in prefixTen() argument
[all …]
H A Dstack.c72 void vmCheckStack(FICL_VM *pVM, int popCells, int pushCells) in vmCheckStack() argument
74 FICL_STACK *pStack = pVM->pStack; in vmCheckStack()
79 vmThrowErr(pVM, "Error: stack underflow"); in vmCheckStack()
84 vmThrowErr(pVM, "Error: stack overflow"); in vmCheckStack()
91 void vmCheckFStack(FICL_VM *pVM, int popCells, int pushCells) in vmCheckFStack() argument
93 FICL_STACK *fStack = pVM->fStack; in vmCheckFStack()
98 vmThrowErr(pVM, "Error: float stack underflow"); in vmCheckFStack()
103 vmThrowErr(pVM, "Error: float stack overflow"); in vmCheckFStack()
H A Ddict.c308 void dictCheck(FICL_DICT *pDict, FICL_VM *pVM, int n) in dictCheck() argument
312 vmThrowErr(pVM, "Error: dictionary full"); in dictCheck()
317 vmThrowErr(pVM, "Error: dictionary underflow"); in dictCheck()
323 vmThrowErr(pVM, "Error: search order overflow"); in dictCheck()
328 vmThrowErr(pVM, "Error: search order underflow"); in dictCheck()
475 void dictHashSummary(FICL_VM *pVM) in dictHashSummary() argument
477 FICL_DICT *dp = vmGetDict(pVM); in dictHashSummary()
490 dictCheck(dp, pVM, 0); in dictHashSummary()
526 sprintf(pVM->pad, in dictHashSummary()
534 ficlTextOut(pVM, pVM->pad, 1); in dictHashSummary()
/freebsd/stand/ficl/x86/
H A Dsysdep.c10 ficlOutb(FICL_VM *pVM) in ficlOutb() argument
15 port=stackPopUNS(pVM->pStack); in ficlOutb()
16 c=(u_char)stackPopINT(pVM->pStack); in ficlOutb()
25 ficlInb(FICL_VM *pVM) in ficlInb() argument
30 port=stackPopUNS(pVM->pStack); in ficlInb()
32 stackPushINT(pVM->pStack,c); in ficlInb()
/freebsd/stand/ficl/arm/
H A Dsysdep.c52 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) in ficlTextOut() argument
54 IGNORE(pVM); in ficlTextOut()
H A Dsysdep.h386 void ficlTextOut(struct vm *pVM, char *msg, int fNewline);
/freebsd/stand/ficl/amd64/
H A Dsysdep.c54 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) in ficlTextOut() argument
56 IGNORE(pVM); in ficlTextOut()
H A Dsysdep.h387 void ficlTextOut(struct vm *pVM, char *msg, int fNewline);
/freebsd/stand/ficl/i386/
H A Dsysdep.c54 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) in ficlTextOut() argument
56 IGNORE(pVM); in ficlTextOut()
H A Dsysdep.h385 void ficlTextOut(struct vm *pVM, char *msg, int fNewline);
/freebsd/stand/ficl/aarch64/
H A Dsysdep.c52 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) in ficlTextOut() argument
54 IGNORE(pVM); in ficlTextOut()
H A Dsysdep.h375 void ficlTextOut(struct vm *pVM, char *msg, int fNewline);
/freebsd/stand/ficl/powerpc/
H A Dsysdep.c52 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) in ficlTextOut() argument
54 IGNORE(pVM); in ficlTextOut()
/freebsd/stand/ficl/riscv/
H A Dsysdep.c52 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) in ficlTextOut() argument
54 IGNORE(pVM); in ficlTextOut()

12