/freebsd/stand/ficl/ |
H A D | words.c | 651 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 D | tools.c | 287 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 D | float.c | 63 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 D | loader.c | 67 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 D | vm.c | 84 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 D | fileaccess.c | 26 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 D | testmain.c | 61 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 D | gfx_loader.c | 71 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 D | search.c | 57 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 D | ficl.h | 513 #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 D | ficl.c | 257 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 D | prefix.c | 103 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 D | stack.c | 72 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 D | dict.c | 308 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 D | sysdep.c | 10 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 D | sysdep.c | 52 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) in ficlTextOut() argument 54 IGNORE(pVM); in ficlTextOut()
|
H A D | sysdep.h | 386 void ficlTextOut(struct vm *pVM, char *msg, int fNewline);
|
/freebsd/stand/ficl/amd64/ |
H A D | sysdep.c | 54 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) in ficlTextOut() argument 56 IGNORE(pVM); in ficlTextOut()
|
H A D | sysdep.h | 387 void ficlTextOut(struct vm *pVM, char *msg, int fNewline);
|
/freebsd/stand/ficl/i386/ |
H A D | sysdep.c | 54 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) in ficlTextOut() argument 56 IGNORE(pVM); in ficlTextOut()
|
H A D | sysdep.h | 385 void ficlTextOut(struct vm *pVM, char *msg, int fNewline);
|
/freebsd/stand/ficl/aarch64/ |
H A D | sysdep.c | 52 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) in ficlTextOut() argument 54 IGNORE(pVM); in ficlTextOut()
|
H A D | sysdep.h | 375 void ficlTextOut(struct vm *pVM, char *msg, int fNewline);
|
/freebsd/stand/ficl/powerpc/ |
H A D | sysdep.c | 52 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) in ficlTextOut() argument 54 IGNORE(pVM); in ficlTextOut()
|
/freebsd/stand/ficl/riscv/ |
H A D | sysdep.c | 52 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) in ficlTextOut() argument 54 IGNORE(pVM); in ficlTextOut()
|