4 static const fixnum fixnum_max = (((fixnum)1 << (WORD_SIZE - TAG_BITS - 1)) - 1);
5 static const fixnum fixnum_min = (-((fixnum)1 << (WORD_SIZE - TAG_BITS - 1)));
6 static const fixnum array_size_max = ((cell)1 << (WORD_SIZE - TAG_BITS - 2));
9 inline cell factor_vm::from_signed_cell(fixnum x)
11 if(x < fixnum_min || x > fixnum_max)
12 return tag<bignum>(fixnum_to_bignum(x));
17 /* Allocates memory */
18 inline cell factor_vm::from_unsigned_cell(cell x)
20 if(x > (cell)fixnum_max)
21 return tag<bignum>(cell_to_bignum(x));
26 /* Allocates memory */
27 inline cell factor_vm::allot_float(double n)
29 boxed_float *flo = allot<boxed_float>(sizeof(boxed_float));
34 /* Allocates memory */
35 inline bignum *factor_vm::float_to_bignum(cell tagged)
37 return double_to_bignum(untag_float(tagged));
40 inline double factor_vm::untag_float(cell tagged)
42 return untag<boxed_float>(tagged)->n;
45 inline double factor_vm::untag_float_check(cell tagged)
47 return untag_check<boxed_float>(tagged)->n;
50 inline fixnum factor_vm::float_to_fixnum(cell tagged)
52 return (fixnum)untag_float(tagged);
55 inline double factor_vm::fixnum_to_float(cell tagged)
57 return (double)untag_fixnum(tagged);
60 inline cell factor_vm::unbox_array_size()
62 cell obj = ctx->peek();
63 if(TAG(obj) == FIXNUM_TYPE)
65 fixnum n = untag_fixnum(obj);
66 if(n >= 0 && n < (fixnum)array_size_max)
73 return unbox_array_size_slow();
76 VM_C_API cell from_signed_cell(fixnum integer, factor_vm *vm);
77 VM_C_API cell from_unsigned_cell(cell integer, factor_vm *vm);
78 VM_C_API cell from_signed_8(s64 n, factor_vm *vm);
79 VM_C_API cell from_unsigned_8(u64 n, factor_vm *vm);
81 VM_C_API s64 to_signed_8(cell obj, factor_vm *parent);
82 VM_C_API u64 to_unsigned_8(cell obj, factor_vm *parent);
84 VM_C_API fixnum to_fixnum(cell tagged, factor_vm *vm);
85 VM_C_API cell to_cell(cell tagged, factor_vm *vm);
87 VM_C_API void overflow_fixnum_add(fixnum x, fixnum y, factor_vm *parent);
88 VM_C_API void overflow_fixnum_subtract(fixnum x, fixnum y, factor_vm *parent);
89 VM_C_API void overflow_fixnum_multiply(fixnum x, fixnum y, factor_vm *parent);