58 static void Fadd(FICL_VM *pVM)  in Fadd()  argument
63     vmCheckFStack(pVM, 2, 1);  in Fadd()
75 static void Fsub(FICL_VM *pVM)  in Fsub()  argument
80     vmCheckFStack(pVM, 2, 1);  in Fsub()
92 static void Fmul(FICL_VM *pVM)  in Fmul()  argument
97     vmCheckFStack(pVM, 2, 1);  in Fmul()
109 static void Fnegate(FICL_VM *pVM)  in Fnegate()  argument
114     vmCheckFStack(pVM, 1, 1);  in Fnegate()
125 static void Fdiv(FICL_VM *pVM)  in Fdiv()  argument
130     vmCheckFStack(pVM, 2, 1);  in Fdiv()
142 static void Faddi(FICL_VM *pVM)  in Faddi()  argument
147     vmCheckFStack(pVM, 1, 1);  in Faddi()
148     vmCheckStack(pVM, 1, 0);  in Faddi()
160 static void Fsubi(FICL_VM *pVM)  in Fsubi()  argument
165     vmCheckFStack(pVM, 1, 1);  in Fsubi()
166     vmCheckStack(pVM, 1, 0);  in Fsubi()
178 static void Fmuli(FICL_VM *pVM)  in Fmuli()  argument
183     vmCheckFStack(pVM, 1, 1);  in Fmuli()
184     vmCheckStack(pVM, 1, 0);  in Fmuli()
196 static void Fdivi(FICL_VM *pVM)  in Fdivi()  argument
201     vmCheckFStack(pVM, 1, 1);  in Fdivi()
202     vmCheckStack(pVM, 1, 0);  in Fdivi()
214 static void isubf(FICL_VM *pVM)  in isubf()  argument
219     vmCheckFStack(pVM, 1, 1);  in isubf()
220     vmCheckStack(pVM, 1, 0);  in isubf()
232 static void idivf(FICL_VM *pVM)  in idivf()  argument
237     vmCheckFStack(pVM, 1,1);  in idivf()
238     vmCheckStack(pVM, 1, 0);  in idivf()
250 static void itof(FICL_VM *pVM)  in itof()  argument
255     vmCheckStack(pVM, 1, 0);  in itof()
256     vmCheckFStack(pVM, 0, 1);  in itof()
267 static void Ftoi(FICL_VM *pVM)  in Ftoi()  argument
272     vmCheckStack(pVM, 0, 1);  in Ftoi()
273     vmCheckFStack(pVM, 1, 0);  in Ftoi()
283 void FconstantParen(FICL_VM *pVM)  in FconstantParen()  argument
285     FICL_WORD *pFW = pVM->runningWord;  in FconstantParen()
288     vmCheckFStack(pVM, 0, 1);  in FconstantParen()
298 static void Fconstant(FICL_VM *pVM)  in Fconstant()  argument
300     FICL_DICT *dp = vmGetDict(pVM);  in Fconstant()
301     STRINGINFO si = vmGetWord(pVM);  in Fconstant()
304     vmCheckFStack(pVM, 1, 0);  in Fconstant()
308     dictAppendCell(dp, stackPop(pVM->fStack));  in Fconstant()
315 static void FDot(FICL_VM *pVM)  in FDot()  argument
320     vmCheckFStack(pVM, 1, 0);  in FDot()
324     sprintf(pVM->pad,"%#f ",f);  in FDot()
325     vmTextOut(pVM, pVM->pad, 0);  in FDot()
332 static void EDot(FICL_VM *pVM)  in EDot()  argument
337     vmCheckFStack(pVM, 1, 0);  in EDot()
341     sprintf(pVM->pad,"%#e ",f);  in EDot()
342     vmTextOut(pVM, pVM->pad, 0);  in EDot()
350 static void displayFStack(FICL_VM *pVM)  in displayFStack()  argument
352     int d = stackDepth(pVM->fStack);  in displayFStack()
356     vmCheckFStack(pVM, 0, 0);  in displayFStack()
358     vmTextOut(pVM, "F:", 0);  in displayFStack()
361         vmTextOut(pVM, "[0]", 0);  in displayFStack()
364         ltoa(d, &pVM->pad[1], pVM->base);  in displayFStack()
365         pVM->pad[0] = '[';  in displayFStack()
366         strcat(pVM->pad,"] ");  in displayFStack()
367         vmTextOut(pVM,pVM->pad,0);  in displayFStack()
369         pCell = pVM->fStack->sp - d;  in displayFStack()
372             sprintf(pVM->pad,"%#f ",(*pCell++).f);  in displayFStack()
373             vmTextOut(pVM,pVM->pad,0);  in displayFStack()
382 static void Fdepth(FICL_VM *pVM)  in Fdepth()  argument
387     vmCheckStack(pVM, 0, 1);  in Fdepth()
390     i = stackDepth(pVM->fStack);  in Fdepth()
398 static void Fdrop(FICL_VM *pVM)  in Fdrop()  argument
401     vmCheckFStack(pVM, 1, 0);  in Fdrop()
411 static void FtwoDrop(FICL_VM *pVM)  in FtwoDrop()  argument
414     vmCheckFStack(pVM, 2, 0);  in FtwoDrop()
424 static void Fdup(FICL_VM *pVM)  in Fdup()  argument
427     vmCheckFStack(pVM, 1, 2);  in Fdup()
437 static void FtwoDup(FICL_VM *pVM)  in FtwoDup()  argument
440     vmCheckFStack(pVM, 2, 4);  in FtwoDup()
451 static void Fover(FICL_VM *pVM)  in Fover()  argument
454     vmCheckFStack(pVM, 2, 3);  in Fover()
464 static void FtwoOver(FICL_VM *pVM)  in FtwoOver()  argument
467     vmCheckFStack(pVM, 4, 6);  in FtwoOver()
478 static void Fpick(FICL_VM *pVM)  in Fpick()  argument
483     vmCheckFStack(pVM, c.i+1, c.i+2);  in Fpick()
493 static void FquestionDup(FICL_VM *pVM)  in FquestionDup()  argument
498     vmCheckFStack(pVM, 1, 2);  in FquestionDup()
510 static void Froll(FICL_VM *pVM)  in Froll()  argument
516     vmCheckFStack(pVM, i+1, i+1);  in Froll()
526 static void FminusRoll(FICL_VM *pVM)  in FminusRoll()  argument
532     vmCheckFStack(pVM, i+1, i+1);  in FminusRoll()
542 static void Frot(FICL_VM *pVM)  in Frot()  argument
545     vmCheckFStack(pVM, 3, 3);  in Frot()
555 static void Fminusrot(FICL_VM *pVM)  in Fminusrot()  argument
558     vmCheckFStack(pVM, 3, 3);  in Fminusrot()
568 static void Fswap(FICL_VM *pVM)  in Fswap()  argument
571     vmCheckFStack(pVM, 2, 2);  in Fswap()
581 static void FtwoSwap(FICL_VM *pVM)  in FtwoSwap()  argument
584     vmCheckFStack(pVM, 4, 4);  in FtwoSwap()
595 static void Ffetch(FICL_VM *pVM)  in Ffetch()  argument
600     vmCheckFStack(pVM, 0, 1);  in Ffetch()
601     vmCheckStack(pVM, 1, 0);  in Ffetch()
612 static void Fstore(FICL_VM *pVM)  in Fstore()  argument
617     vmCheckFStack(pVM, 1, 0);  in Fstore()
618     vmCheckStack(pVM, 1, 0);  in Fstore()
629 static void FplusStore(FICL_VM *pVM)  in FplusStore()  argument
634     vmCheckStack(pVM, 1, 0);  in FplusStore()
635     vmCheckFStack(pVM, 1, 0);  in FplusStore()
645 static void fliteralParen(FICL_VM *pVM)  in fliteralParen()  argument
648     vmCheckStack(pVM, 0, 1);  in fliteralParen()
651     PUSHFLOAT(*(float*)(pVM->ip));  in fliteralParen()
652     vmBranchRelative(pVM, 1);  in fliteralParen()
658 static void fliteralIm(FICL_VM *pVM)  in fliteralIm()  argument
660     FICL_DICT *dp = vmGetDict(pVM);  in fliteralIm()
661     FICL_WORD *pfLitParen = ficlLookup(pVM->pSys, "(fliteral)");  in fliteralIm()
664     vmCheckFStack(pVM, 1, 0);  in fliteralIm()
668     dictAppendCell(dp, stackPop(pVM->fStack));  in fliteralIm()
675 static void FzeroEquals(FICL_VM *pVM)  in FzeroEquals()  argument
680     vmCheckFStack(pVM, 1, 0);                   /* Make sure something on float stack. */  in FzeroEquals()
681     vmCheckStack(pVM, 0, 1);                    /* Make sure room for result. */  in FzeroEquals()
692 static void FzeroLess(FICL_VM *pVM)  in FzeroLess()  argument
697     vmCheckFStack(pVM, 1, 0);                   /* Make sure something on float stack. */  in FzeroLess()
698     vmCheckStack(pVM, 0, 1);                    /* Make sure room for result. */  in FzeroLess()
709 static void FzeroGreater(FICL_VM *pVM)  in FzeroGreater()  argument
714     vmCheckFStack(pVM, 1, 0);  in FzeroGreater()
715     vmCheckStack(pVM, 0, 1);  in FzeroGreater()
726 static void FisEqual(FICL_VM *pVM)  in FisEqual()  argument
731     vmCheckFStack(pVM, 2, 0);  in FisEqual()
732     vmCheckStack(pVM, 0, 1);  in FisEqual()
744 static void FisLess(FICL_VM *pVM)  in FisLess()  argument
749     vmCheckFStack(pVM, 2, 0);  in FisLess()
750     vmCheckStack(pVM, 0, 1);  in FisLess()
762 static void FisGreater(FICL_VM *pVM)  in FisGreater()  argument
767     vmCheckFStack(pVM, 2, 0);  in FisGreater()
768     vmCheckStack(pVM, 0, 1);  in FisGreater()
781 static void FFrom(FICL_VM *pVM)  in FFrom()  argument
786     vmCheckFStack(pVM, 1, 0);  in FFrom()
787     vmCheckStack(pVM, 0, 1);  in FFrom()
790     c = stackPop(pVM->fStack);  in FFrom()
791     stackPush(pVM->pStack, c);  in FFrom()
795 static void ToF(FICL_VM *pVM)  in ToF()  argument
800     vmCheckFStack(pVM, 0, 1);  in ToF()
801     vmCheckStack(pVM, 1, 0);  in ToF()
804     c = stackPop(pVM->pStack);  in ToF()
805     stackPush(pVM->fStack, c);  in ToF()
833 int ficlParseFloatNumber( FICL_VM *pVM, STRINGINFO si )  in ficlParseFloatNumber()  argument
846     vmCheckFStack(pVM, 0, 1);  in ficlParseFloatNumber()
852     if (pVM->base != 10)  in ficlParseFloatNumber()
979     if (pVM->state == COMPILE)  in ficlParseFloatNumber()
980         fliteralIm(pVM);  in ficlParseFloatNumber()