Lines Matching refs:vm
56 ficlPrimitiveFConstant(ficlVm *vm) in ficlPrimitiveFConstant() argument
58 ficlDictionary *dictionary = ficlVmGetDictionary(vm); in ficlPrimitiveFConstant()
59 ficlString name = ficlVmGetWord(vm); in ficlPrimitiveFConstant()
61 FICL_STACK_CHECK(vm->floatStack, 1, 0); in ficlPrimitiveFConstant()
65 ficlDictionaryAppendCell(dictionary, ficlStackPop(vm->floatStack)); in ficlPrimitiveFConstant()
94 ficlPrimitiveF2Constant(ficlVm *vm) in ficlPrimitiveF2Constant() argument
96 ficlDictionary *dictionary = ficlVmGetDictionary(vm); in ficlPrimitiveF2Constant()
97 ficlString name = ficlVmGetWord(vm); in ficlPrimitiveF2Constant()
99 FICL_STACK_CHECK(vm->floatStack, 2, 0); in ficlPrimitiveF2Constant()
103 ficlDictionaryAppendCell(dictionary, ficlStackPop(vm->floatStack)); in ficlPrimitiveF2Constant()
104 ficlDictionaryAppendCell(dictionary, ficlStackPop(vm->floatStack)); in ficlPrimitiveF2Constant()
132 ficlPrimitiveFDot(ficlVm *vm) in ficlPrimitiveFDot() argument
136 FICL_STACK_CHECK(vm->floatStack, 1, 0); in ficlPrimitiveFDot()
138 f = ficlStackPopFloat(vm->floatStack); in ficlPrimitiveFDot()
139 sprintf(vm->pad, "%#f ", f); in ficlPrimitiveFDot()
140 ficlVmTextOut(vm, vm->pad); in ficlPrimitiveFDot()
148 ficlPrimitiveEDot(ficlVm *vm) in ficlPrimitiveEDot() argument
152 FICL_STACK_CHECK(vm->floatStack, 1, 0); in ficlPrimitiveEDot()
154 f = ficlStackPopFloat(vm->floatStack); in ficlPrimitiveEDot()
155 sprintf(vm->pad, "%#e ", f); in ficlPrimitiveEDot()
156 ficlVmTextOut(vm, vm->pad); in ficlPrimitiveEDot()
166 ficlVm *vm; member
182 ficlVmTextOut(context->vm, buffer); in ficlFloatStackDisplayCallback()
187 ficlVmDisplayFloatStack(ficlVm *vm) in ficlVmDisplayFloatStack() argument
190 context.vm = vm; in ficlVmDisplayFloatStack()
192 ficlStackDisplay(vm->floatStack, ficlFloatStackDisplayCallback, in ficlVmDisplayFloatStack()
201 ficlPrimitiveFDepth(ficlVm *vm) in ficlPrimitiveFDepth() argument
205 FICL_STACK_CHECK(vm->dataStack, 0, 1); in ficlPrimitiveFDepth()
207 i = ficlStackDepth(vm->floatStack); in ficlPrimitiveFDepth()
208 ficlStackPushInteger(vm->dataStack, i); in ficlPrimitiveFDepth()
215 ficlPrimitiveFLiteralImmediate(ficlVm *vm) in ficlPrimitiveFLiteralImmediate() argument
217 ficlDictionary *dictionary = ficlVmGetDictionary(vm); in ficlPrimitiveFLiteralImmediate()
220 FICL_STACK_CHECK(vm->floatStack, 1, 0); in ficlPrimitiveFLiteralImmediate()
222 cell = ficlStackPop(vm->floatStack); in ficlPrimitiveFLiteralImmediate()
260 ficlVmParseFloatNumber(ficlVm *vm, ficlString s) in ficlVmParseFloatNumber() argument
273 FICL_STACK_CHECK(vm->floatStack, 0, 1); in ficlVmParseFloatNumber()
278 if (vm->base != 10) in ficlVmParseFloatNumber()
381 ficlStackPushFloat(vm->floatStack, accum); in ficlVmParseFloatNumber()
382 if (vm->state == FICL_VM_STATE_COMPILE) in ficlVmParseFloatNumber()
383 ficlPrimitiveFLiteralImmediate(vm); in ficlVmParseFloatNumber()
391 ficlPrimitiveFLocalParen(ficlVm *vm) in ficlPrimitiveFLocalParen() argument
393 ficlLocalParen(vm, 0, 1); in ficlPrimitiveFLocalParen()
397 ficlPrimitiveF2LocalParen(ficlVm *vm) in ficlPrimitiveF2LocalParen() argument
399 ficlLocalParen(vm, 1, 1); in ficlPrimitiveF2LocalParen()