/freebsd/stand/ficl/ |
H A D | stack.c | 74 FICL_STACK *pStack = pVM->pStack; in vmCheckStack() local 75 int nFree = pStack->base + pStack->nCells - pStack->sp; in vmCheckStack() 77 if (popCells > STKDEPTH(pStack)) in vmCheckStack() 116 FICL_STACK *pStack = ficlMalloc(size); in stackCreate() local 120 assert (pStack != NULL); in stackCreate() 123 pStack->nCells = nCells; in stackCreate() 124 pStack->sp = pStack->base; in stackCreate() 125 pStack->pFrame = NULL; in stackCreate() 126 return pStack; in stackCreate() 135 void stackDelete(FICL_STACK *pStack) in stackDelete() argument [all …]
|
H A D | loader.c | 78 names = stackPopINT(pVM->pStack); in ficlSetenv() 79 namep = (char*) stackPopPtr(pVM->pStack); in ficlSetenv() 80 values = stackPopINT(pVM->pStack); in ficlSetenv() 81 valuep = (char*) stackPopPtr(pVM->pStack); in ficlSetenv() 115 overwrite = stackPopINT(pVM->pStack); in ficlSetenvq() 116 names = stackPopINT(pVM->pStack); in ficlSetenvq() 117 namep = (char*) stackPopPtr(pVM->pStack); in ficlSetenvq() 118 values = stackPopINT(pVM->pStack); in ficlSetenvq() 119 valuep = (char*) stackPopPtr(pVM->pStack); in ficlSetenvq() 153 names = stackPopINT(pVM->pStack); in ficlGetenv() [all …]
|
H A D | gfx_loader.c | 73 names = stackPopINT(pVM->pStack); in ficl_term_putimage() 74 namep = (char *) stackPopPtr(pVM->pStack); in ficl_term_putimage() 75 y2 = stackPopINT(pVM->pStack); in ficl_term_putimage() 76 x2 = stackPopINT(pVM->pStack); in ficl_term_putimage() 77 y1 = stackPopINT(pVM->pStack); in ficl_term_putimage() 78 x1 = stackPopINT(pVM->pStack); in ficl_term_putimage() 79 f = stackPopINT(pVM->pStack); in ficl_term_putimage() 107 stackPushUNS(pVM->pStack, ret); in ficl_term_putimage() 124 names = stackPopINT(pVM->pStack); in ficl_fb_putimage() 125 namep = (char *) stackPopPtr(pVM->pStack); in ficl_fb_putimage() [all …]
|
H A D | fileaccess.c | 26 stackPushINT(pVM->pStack, ior); in pushIor() 33 int fam = stackPopINT(pVM->pStack); in ficlFopen() 34 int length = stackPopINT(pVM->pStack); in ficlFopen() 35 void *address = (void *)stackPopPtr(pVM->pStack); in ficlFopen() 48 stackPushPtr(pVM->pStack, NULL); in ficlFopen() 49 stackPushINT(pVM->pStack, EINVAL); in ficlFopen() 67 stackPushPtr(pVM->pStack, NULL); in ficlFopen() 73 stackPushPtr(pVM->pStack, NULL); in ficlFopen() 80 stackPushPtr(pVM->pStack, ff); in ficlFopen() 110 ficlFILE *ff = (ficlFILE *)stackPopPtr(pVM->pStack); in ficlCloseFile() [all …]
|
H A D | words.c | 108 cp = (char *)stackPopPtr(pVM->pStack); in matchControlTag() 135 patchAddr = (CELL *)stackPopPtr(pVM->pStack); in resolveBackBranch() 158 patchAddr = (CELL *)stackPopPtr(pVM->pStack); in resolveForwardBranch() 178 cp = stackPopPtr(pVM->pStack); in resolveAbsBranch() 188 patchAddr = (CELL *)stackPopPtr(pVM->pStack); in resolveAbsBranch() 284 i = stackPopINT(pVM->pStack); in add() 285 i += stackGetTop(pVM->pStack).i; in add() 286 stackSetTop(pVM->pStack, LVALUEtoCELL(i)); in add() 296 i = stackPopINT(pVM->pStack); in sub() 297 i = stackGetTop(pVM->pStack).i - i; in sub() [all …]
|
H A D | search.c | 82 stackPushPtr(pVM->pStack, pHash); in forthWordlist() 95 stackPushPtr(pVM->pStack, vmGetDict(pVM)->pCompile); in getCurrent() 118 stackPushPtr(pVM->pStack, pDict->pSearch[i]); in getOrder() 121 stackPushUNS(pVM->pStack, nLists); in getOrder() 140 FICL_HASH *pHash = stackPopPtr(pVM->pStack); in searchWordlist() 142 si.count = (FICL_COUNT)stackPopUNS(pVM->pStack); in searchWordlist() 143 si.cp = stackPopPtr(pVM->pStack); in searchWordlist() 152 stackPushPtr(pVM->pStack, pFW); in searchWordlist() 153 stackPushINT(pVM->pStack, (wordIsImmediate(pFW) ? 1 : -1)); in searchWordlist() 157 stackPushUNS(pVM->pStack, 0); in searchWordlist() [all …]
|
H A D | ficl.h | 370 void stackDelete (FICL_STACK *pStack); 371 int stackDepth (FICL_STACK *pStack); 372 void stackDrop (FICL_STACK *pStack, int n); 373 CELL stackFetch (FICL_STACK *pStack, int n); 374 CELL stackGetTop (FICL_STACK *pStack); 375 void stackLink (FICL_STACK *pStack, int nCells); 376 void stackPick (FICL_STACK *pStack, int n); 377 CELL stackPop (FICL_STACK *pStack); 378 void *stackPopPtr (FICL_STACK *pStack); 379 FICL_UNS stackPopUNS (FICL_STACK *pStack); [all …]
|
H A D | vm.c | 91 if (pVM->pStack) in vmCreate() 92 stackDelete(pVM->pStack); in vmCreate() 93 pVM->pStack = stackCreate(nPStack); in vmCreate() 121 ficlFree(pVM->pStack); in vmDelete() 198 FICL_STACK *pStack = pVM->pStack; 207 stackPushINT(pStack, 0); 210 stackPushINT(pStack, 1); 213 stackPushINT(pStack, 2); 216 stackPushINT(pStack, -1); 219 stackPushINT(pStack, -2); [all …]
|
H A D | math64.c | 215 void i64Push(FICL_STACK *pStack, DPINT i64) in i64Push() argument 217 stackPushINT(pStack, i64.lo); in i64Push() 218 stackPushINT(pStack, i64.hi); in i64Push() 222 void u64Push(FICL_STACK *pStack, DPUNS u64) in u64Push() argument 224 stackPushINT(pStack, u64.lo); in u64Push() 225 stackPushINT(pStack, u64.hi); in u64Push() 236 DPINT i64Pop(FICL_STACK *pStack) in i64Pop() argument 239 ret.hi = stackPopINT(pStack); in i64Pop() 240 ret.lo = stackPopINT(pStack); in i64Pop() 244 DPUNS u64Pop(FICL_STACK *pStack) in u64Pop() argument [all …]
|
H A D | math64.h | 57 void i64Push(FICL_STACK *pStack, DPINT i64); 58 DPINT i64Pop(FICL_STACK *pStack); 59 void u64Push(FICL_STACK *pStack, DPUNS u64); 60 DPUNS u64Pop(FICL_STACK *pStack);
|
H A D | tools.c | 306 pFW = (FICL_WORD *)stackPopPtr(pVM->pStack); in seeXT() 383 FICL_WORD *xt = stackPopPtr(pVM->pStack); in ficlDebugXT() 386 stackPushPtr(pVM->pStack, xt); in ficlDebugXT() 549 stackPushPtr(pVM->pStack, xt); in stepBreak() 624 FICL_STACK *pStk = pVM->pStack; in displayPStack() 699 pHash = (FICL_HASH *)stackPopPtr(pVM->pStack); in forgetWid() 725 where = ((FICL_WORD *)stackPopPtr(pVM->pStack))->name; in forget()
|
H A D | testmain.c | 266 stackPushUNS(pVM->pStack, (FICL_UNS)now); in ficlClock() 272 stackPushUNS(pVM->pStack, CLOCKS_PER_SEC); in clocksPerSec() 284 pFW = stackPopPtr(pVM->pStack); in execxt()
|
H A D | prefix.c | 134 int base = stackPopINT(pVM->pStack); in fTempBase()
|
H A D | float.c | 791 stackPush(pVM->pStack, c); in FFrom() 804 c = stackPop(pVM->pStack); in ToF()
|
/freebsd/stand/ficl/x86/ |
H A D | sysdep.c | 15 port=stackPopUNS(pVM->pStack); in ficlOutb() 16 c=(u_char)stackPopINT(pVM->pStack); in ficlOutb() 30 port=stackPopUNS(pVM->pStack); in ficlInb() 32 stackPushINT(pVM->pStack,c); in ficlInb()
|
/freebsd/stand/common/ |
H A D | interp_forth.c | 92 if (stackPopINT(vm->pStack)) { in bf_command() 100 nstrings = stackPopINT(vm->pStack); in bf_command() 102 len += stackFetch(vm->pStack, i * 2).i + 1; in bf_command() 108 len = stackPopINT(vm->pStack); in bf_command() 109 cp = stackPopPtr(vm->pStack); in bf_command() 156 stackPushINT(vm->pStack,result); in bf_command()
|