Home
last modified time | relevance | path

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

12

/freebsd-11-stable/stand/ficl/
HDwords.c58 static void colonParen(FICL_VM *pVM);
59 static void literalIm(FICL_VM *pVM);
60 static int ficlParseWord(FICL_VM *pVM, STRINGINFO si);
79 static void doLocalIm(FICL_VM *pVM);
80 static void do2LocalIm(FICL_VM *pVM);
90 static void markBranch(FICL_DICT *dp, FICL_VM *pVM, char *tag) in markBranch() argument
97 static void markControlTag(FICL_VM *pVM, char *tag) in markControlTag() argument
103 static void matchControlTag(FICL_VM *pVM, char *tag) in matchControlTag() argument
107 vmCheckStack(pVM, 1, 0); in matchControlTag()
109 cp = (char *)stackPopPtr(pVM->pStack); in matchControlTag()
[all …]
HDtools.c85 static void vmSetBreak(FICL_VM *pVM, FICL_BREAKPOINT *pBP) in vmSetBreak() argument
87 FICL_WORD *pStep = ficlLookup(pVM->pSys, "step-break"); in vmSetBreak()
90 pBP->address = pVM->ip; in vmSetBreak()
91 pBP->origXT = *pVM->ip; in vmSetBreak()
92 *pVM->ip = pStep; in vmSetBreak()
99 static void debugPrompt(FICL_VM *pVM) in debugPrompt() argument
101 vmTextOut(pVM, "dbg> ", 0); in debugPrompt()
154 static FICL_WORD *findEnclosingWord(FICL_VM *pVM, CELL *cp) in findEnclosingWord() argument
157 FICL_DICT *pd = vmGetDict(pVM); in findEnclosingWord()
187 static void seeColon(FICL_VM *pVM, CELL *pc) in seeColon() argument
[all …]
HDfloat.c59 static void Fadd(FICL_VM *pVM) in Fadd() argument
64 vmCheckFStack(pVM, 2, 1); in Fadd()
76 static void Fsub(FICL_VM *pVM) in Fsub() argument
81 vmCheckFStack(pVM, 2, 1); in Fsub()
93 static void Fmul(FICL_VM *pVM) in Fmul() argument
98 vmCheckFStack(pVM, 2, 1); in Fmul()
110 static void Fnegate(FICL_VM *pVM) in Fnegate() argument
115 vmCheckFStack(pVM, 1, 1); in Fnegate()
126 static void Fdiv(FICL_VM *pVM) in Fdiv() argument
131 vmCheckFStack(pVM, 2, 1); in Fdiv()
[all …]
HDloader.c69 ficlSetenv(FICL_VM *pVM) in ficlSetenv() argument
78 vmCheckStack(pVM, 4, 0); in ficlSetenv()
80 names = stackPopINT(pVM->pStack); in ficlSetenv()
81 namep = (char*) stackPopPtr(pVM->pStack); in ficlSetenv()
82 values = stackPopINT(pVM->pStack); in ficlSetenv()
83 valuep = (char*) stackPopPtr(pVM->pStack); in ficlSetenv()
88 vmThrowErr(pVM, "Error: out of memory"); in ficlSetenv()
93 vmThrowErr(pVM, "Error: out of memory"); in ficlSetenv()
106 ficlSetenvq(FICL_VM *pVM) in ficlSetenvq() argument
115 vmCheckStack(pVM, 5, 0); in ficlSetenvq()
[all …]
HDvm.c70 void vmBranchRelative(FICL_VM *pVM, int offset) in vmBranchRelative() argument
72 pVM->ip += offset; in vmBranchRelative()
83 FICL_VM *vmCreate(FICL_VM *pVM, unsigned nPStack, unsigned nRStack) in vmCreate() argument
85 if (pVM == NULL) in vmCreate()
87 pVM = (FICL_VM *)ficlMalloc(sizeof (FICL_VM)); in vmCreate()
88 assert (pVM); in vmCreate()
89 memset(pVM, 0, sizeof (FICL_VM)); in vmCreate()
92 if (pVM->pStack) in vmCreate()
93 stackDelete(pVM->pStack); in vmCreate()
94 pVM->pStack = stackCreate(nPStack); in vmCreate()
[all …]
HDfileaccess.c20 static void pushIor(FICL_VM *pVM, int success) in pushIor() argument
27 stackPushINT(pVM->pStack, ior); in pushIor()
32 static void ficlFopen(FICL_VM *pVM, char *writeMode) /* ( c-addr u fam -- fileid ior ) */ in ficlFopen() argument
34 int fam = stackPopINT(pVM->pStack); in ficlFopen()
35 int length = stackPopINT(pVM->pStack); in ficlFopen()
36 void *address = (void *)stackPopPtr(pVM->pStack); in ficlFopen()
49 stackPushPtr(pVM->pStack, NULL); in ficlFopen()
50 stackPushINT(pVM->pStack, EINVAL); in ficlFopen()
68 stackPushPtr(pVM->pStack, NULL); in ficlFopen()
74 stackPushPtr(pVM->pStack, ff); in ficlFopen()
[all …]
HDtestmain.c57 static void ficlGetCWD(FICL_VM *pVM) in ficlGetCWD() argument
62 vmTextOut(pVM, cp, 1); in ficlGetCWD()
74 static void ficlChDir(FICL_VM *pVM) in ficlChDir() argument
76 FICL_STRING *pFS = (FICL_STRING *)pVM->pad; in ficlChDir()
77 vmGetString(pVM, pFS, '\n'); in ficlChDir()
83 vmTextOut(pVM, "Error: path not found", 1); in ficlChDir()
84 vmThrow(pVM, VM_QUIT); in ficlChDir()
89 vmTextOut(pVM, "Warning (chdir): nothing happened", 1); in ficlChDir()
102 static void ficlSystem(FICL_VM *pVM) in ficlSystem() argument
104 FICL_STRING *pFS = (FICL_STRING *)pVM->pad; in ficlSystem()
[all …]
HDsearch.c58 static void definitions(FICL_VM *pVM) in definitions() argument
60 FICL_DICT *pDict = vmGetDict(pVM); in definitions()
65 vmThrowErr(pVM, "DEFINITIONS error - empty search order"); in definitions()
80 static void forthWordlist(FICL_VM *pVM) in forthWordlist() argument
82 FICL_HASH *pHash = vmGetDict(pVM)->pForthWords; in forthWordlist()
83 stackPushPtr(pVM->pStack, pHash); in forthWordlist()
93 static void getCurrent(FICL_VM *pVM) in getCurrent() argument
96 stackPushPtr(pVM->pStack, vmGetDict(pVM)->pCompile); in getCurrent()
110 static void getOrder(FICL_VM *pVM) in getOrder() argument
112 FICL_DICT *pDict = vmGetDict(pVM); in getOrder()
[all …]
HDficl.h400 #define PUSHPTR(p) stackPushPtr(pVM->pStack,p)
401 #define PUSHUNS(u) stackPushUNS(pVM->pStack,u)
402 #define PUSHINT(i) stackPushINT(pVM->pStack,i)
403 #define PUSHFLOAT(f) stackPushFloat(pVM->fStack,f)
404 #define PUSH(c) stackPush(pVM->pStack,c)
405 #define POPPTR() stackPopPtr(pVM->pStack)
406 #define POPUNS() stackPopUNS(pVM->pStack)
407 #define POPINT() stackPopINT(pVM->pStack)
408 #define POPFLOAT() stackPopFloat(pVM->fStack)
409 #define POP() stackPop(pVM->pStack)
[all …]
HDficl.c228 void ficlListParseSteps(FICL_VM *pVM) in ficlListParseSteps() argument
231 FICL_SYSTEM *pSys = pVM->pSys; in ficlListParseSteps()
234 vmTextOut(pVM, "Parse steps:", 1); in ficlListParseSteps()
235 vmTextOut(pVM, "lookup", 1); in ficlListParseSteps()
241 vmTextOut(pVM, pSys->parseList[i]->name, 1); in ficlListParseSteps()
256 FICL_VM *pVM = vmCreate(NULL, defaultStack, defaultStack); in ficlNewVM() local
257 pVM->link = pSys->vmList; in ficlNewVM()
258 pVM->pSys = pSys; in ficlNewVM()
259 pVM->pExtend = pSys->pExtend; in ficlNewVM()
260 vmSetTextOut(pVM, pSys->textOut); in ficlNewVM()
[all …]
HDprefix.c73 int ficlParsePrefix(FICL_VM *pVM, STRINGINFO si) in ficlParsePrefix() argument
77 FICL_WORD *pFW = ficlLookup(pVM->pSys, list_name); in ficlParsePrefix()
104 vmSetTibIndex(pVM, si.cp + n - pVM->tib.cp ); in ficlParsePrefix()
105 vmExecute(pVM, pFW); in ficlParsePrefix()
117 static void tempBase(FICL_VM *pVM, int base) in tempBase() argument
119 int oldbase = pVM->base; in tempBase()
120 STRINGINFO si = vmGetWord0(pVM); in tempBase()
122 pVM->base = base; in tempBase()
123 if (!ficlParseNumber(pVM, si)) in tempBase()
126 vmThrowErr(pVM, "%.*s not recognized", i, SI_PTR(si)); in tempBase()
[all …]
HDstack.c73 void vmCheckStack(FICL_VM *pVM, int popCells, int pushCells) in vmCheckStack() argument
75 FICL_STACK *pStack = pVM->pStack; in vmCheckStack()
80 vmThrowErr(pVM, "Error: stack underflow"); in vmCheckStack()
85 vmThrowErr(pVM, "Error: stack overflow"); in vmCheckStack()
92 void vmCheckFStack(FICL_VM *pVM, int popCells, int pushCells) in vmCheckFStack() argument
94 FICL_STACK *fStack = pVM->fStack; in vmCheckFStack()
99 vmThrowErr(pVM, "Error: float stack underflow"); in vmCheckFStack()
104 vmThrowErr(pVM, "Error: float stack overflow"); in vmCheckFStack()
HDdict.c309 void dictCheck(FICL_DICT *pDict, FICL_VM *pVM, int n) in dictCheck() argument
313 vmThrowErr(pVM, "Error: dictionary full"); in dictCheck()
318 vmThrowErr(pVM, "Error: dictionary underflow"); in dictCheck()
324 vmThrowErr(pVM, "Error: search order overflow"); in dictCheck()
329 vmThrowErr(pVM, "Error: search order underflow"); in dictCheck()
476 void dictHashSummary(FICL_VM *pVM) in dictHashSummary() argument
478 FICL_DICT *dp = vmGetDict(pVM); in dictHashSummary()
491 dictCheck(dp, pVM, 0); in dictHashSummary()
527 sprintf(pVM->pad, in dictHashSummary()
535 ficlTextOut(pVM, pVM->pad, 1); in dictHashSummary()
/freebsd-11-stable/stand/ficl/i386/
HDsysdep.c56 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) in ficlTextOut() argument
58 IGNORE(pVM); in ficlTextOut()
89 ficlOutb(FICL_VM *pVM) in ficlOutb() argument
94 port=stackPopUNS(pVM->pStack); in ficlOutb()
95 c=(u_char)stackPopINT(pVM->pStack); in ficlOutb()
104 ficlInb(FICL_VM *pVM) in ficlInb() argument
109 port=stackPopUNS(pVM->pStack); in ficlInb()
111 stackPushINT(pVM->pStack,c); in ficlInb()
/freebsd-11-stable/stand/ficl/aarch64/
HDsysdep.c53 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) in ficlTextOut() argument
55 IGNORE(pVM); in ficlTextOut()
HDsysdep.h376 void ficlTextOut(struct vm *pVM, char *msg, int fNewline);
/freebsd-11-stable/stand/ficl/powerpc/
HDsysdep.c53 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) in ficlTextOut() argument
55 IGNORE(pVM); in ficlTextOut()
/freebsd-11-stable/stand/ficl/amd64/
HDsysdep.c53 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) in ficlTextOut() argument
55 IGNORE(pVM); in ficlTextOut()
HDsysdep.h388 void ficlTextOut(struct vm *pVM, char *msg, int fNewline);
/freebsd-11-stable/stand/ficl/sparc64/
HDsysdep.c53 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) in ficlTextOut() argument
55 IGNORE(pVM); in ficlTextOut()
/freebsd-11-stable/stand/ficl/mips/
HDsysdep.c53 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) in ficlTextOut() argument
55 IGNORE(pVM); in ficlTextOut()
/freebsd-11-stable/stand/ficl/mips64/
HDsysdep.c53 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) in ficlTextOut() argument
55 IGNORE(pVM); in ficlTextOut()
/freebsd-11-stable/stand/ficl/riscv/
HDsysdep.c53 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) in ficlTextOut() argument
55 IGNORE(pVM); in ficlTextOut()
HDsysdep.h376 void ficlTextOut(struct vm *pVM, char *msg, int fNewline);
/freebsd-11-stable/stand/ficl/arm/
HDsysdep.c53 void ficlTextOut(FICL_VM *pVM, char *msg, int fNewline) in ficlTextOut() argument
55 IGNORE(pVM); in ficlTextOut()

12