90 lines
2.5 KiB
C++
90 lines
2.5 KiB
C++
namespace factor
|
|
{
|
|
|
|
static const fixnum fixnum_max = (((fixnum)1 << (WORD_SIZE - TAG_BITS - 1)) - 1);
|
|
static const fixnum fixnum_min = (-((fixnum)1 << (WORD_SIZE - TAG_BITS - 1)));
|
|
static const fixnum array_size_max = ((cell)1 << (WORD_SIZE - TAG_BITS - 2));
|
|
|
|
PRIMITIVE(fixnum_add);
|
|
PRIMITIVE(fixnum_subtract);
|
|
PRIMITIVE(fixnum_multiply);
|
|
|
|
PRIMITIVE(bignum_to_fixnum);
|
|
PRIMITIVE(float_to_fixnum);
|
|
|
|
PRIMITIVE(fixnum_divint);
|
|
PRIMITIVE(fixnum_divmod);
|
|
PRIMITIVE(fixnum_shift);
|
|
|
|
PRIMITIVE(fixnum_to_bignum);
|
|
PRIMITIVE(float_to_bignum);
|
|
PRIMITIVE(bignum_eq);
|
|
PRIMITIVE(bignum_add);
|
|
PRIMITIVE(bignum_subtract);
|
|
PRIMITIVE(bignum_multiply);
|
|
PRIMITIVE(bignum_divint);
|
|
PRIMITIVE(bignum_divmod);
|
|
PRIMITIVE(bignum_mod);
|
|
PRIMITIVE(bignum_and);
|
|
PRIMITIVE(bignum_or);
|
|
PRIMITIVE(bignum_xor);
|
|
PRIMITIVE(bignum_shift);
|
|
PRIMITIVE(bignum_less);
|
|
PRIMITIVE(bignum_lesseq);
|
|
PRIMITIVE(bignum_greater);
|
|
PRIMITIVE(bignum_greatereq);
|
|
PRIMITIVE(bignum_not);
|
|
PRIMITIVE(bignum_bitp);
|
|
PRIMITIVE(bignum_log2);
|
|
PRIMITIVE(byte_array_to_bignum);
|
|
|
|
PRIMITIVE(fixnum_to_float);
|
|
PRIMITIVE(bignum_to_float);
|
|
PRIMITIVE(str_to_float);
|
|
PRIMITIVE(float_to_str);
|
|
PRIMITIVE(float_to_bits);
|
|
|
|
PRIMITIVE(float_eq);
|
|
PRIMITIVE(float_add);
|
|
PRIMITIVE(float_subtract);
|
|
PRIMITIVE(float_multiply);
|
|
PRIMITIVE(float_divfloat);
|
|
PRIMITIVE(float_mod);
|
|
PRIMITIVE(float_less);
|
|
PRIMITIVE(float_lesseq);
|
|
PRIMITIVE(float_greater);
|
|
PRIMITIVE(float_greatereq);
|
|
|
|
PRIMITIVE(float_bits);
|
|
PRIMITIVE(bits_float);
|
|
PRIMITIVE(double_bits);
|
|
PRIMITIVE(bits_double);
|
|
|
|
VM_C_API void box_float(float flo, factorvm *vm);
|
|
VM_C_API float to_float(cell value, factorvm *vm);
|
|
VM_C_API void box_double(double flo, factorvm *vm);
|
|
VM_C_API double to_double(cell value, factorvm *vm);
|
|
|
|
VM_C_API void box_signed_1(s8 n, factorvm *vm);
|
|
VM_C_API void box_unsigned_1(u8 n, factorvm *vm);
|
|
VM_C_API void box_signed_2(s16 n, factorvm *vm);
|
|
VM_C_API void box_unsigned_2(u16 n, factorvm *vm);
|
|
VM_C_API void box_signed_4(s32 n, factorvm *vm);
|
|
VM_C_API void box_unsigned_4(u32 n, factorvm *vm);
|
|
VM_C_API void box_signed_cell(fixnum integer, factorvm *vm);
|
|
VM_C_API void box_unsigned_cell(cell cell, factorvm *vm);
|
|
VM_C_API void box_signed_8(s64 n, factorvm *vm);
|
|
VM_C_API void box_unsigned_8(u64 n, factorvm *vm);
|
|
|
|
VM_C_API s64 to_signed_8(cell obj, factorvm *vm);
|
|
VM_C_API u64 to_unsigned_8(cell obj, factorvm *vm);
|
|
|
|
VM_C_API fixnum to_fixnum(cell tagged, factorvm *vm);
|
|
VM_C_API cell to_cell(cell tagged, factorvm *vm);
|
|
|
|
VM_ASM_API void overflow_fixnum_add(fixnum x, fixnum y);
|
|
VM_ASM_API void overflow_fixnum_subtract(fixnum x, fixnum y);
|
|
VM_ASM_API void overflow_fixnum_multiply(fixnum x, fixnum y);
|
|
|
|
}
|