76 lines
1.6 KiB
C
76 lines
1.6 KiB
C
typedef struct {
|
|
/* C sucks. */
|
|
union {
|
|
CELL header;
|
|
long long padding;
|
|
};
|
|
double n;
|
|
} F_FLOAT;
|
|
|
|
/* for punning */
|
|
typedef union {
|
|
double x;
|
|
u64 y;
|
|
} DOUBLE_BITS;
|
|
|
|
typedef union {
|
|
float x;
|
|
u32 y;
|
|
} FLOAT_BITS;
|
|
|
|
INLINE F_FLOAT* make_float(double n)
|
|
{
|
|
F_FLOAT* flo = allot_object(FLOAT_TYPE,sizeof(F_FLOAT));
|
|
flo->n = n;
|
|
return flo;
|
|
}
|
|
|
|
INLINE double untag_float_fast(CELL tagged)
|
|
{
|
|
return ((F_FLOAT*)UNTAG(tagged))->n;
|
|
}
|
|
|
|
INLINE CELL tag_float(double flo)
|
|
{
|
|
return RETAG(make_float(flo),FLOAT_TYPE);
|
|
}
|
|
|
|
double to_float(CELL tagged);
|
|
void primitive_to_float(void);
|
|
void primitive_str_to_float(void);
|
|
void primitive_float_to_str(void);
|
|
void primitive_float_to_bits(void);
|
|
|
|
void primitive_float_add(void);
|
|
void primitive_float_subtract(void);
|
|
void primitive_float_multiply(void);
|
|
void primitive_float_divfloat(void);
|
|
void primitive_float_mod(void);
|
|
void primitive_float_less(void);
|
|
void primitive_float_lesseq(void);
|
|
void primitive_float_greater(void);
|
|
void primitive_float_greatereq(void);
|
|
|
|
void primitive_facos(void);
|
|
void primitive_fasin(void);
|
|
void primitive_fatan(void);
|
|
void primitive_fatan2(void);
|
|
void primitive_fcos(void);
|
|
void primitive_fexp(void);
|
|
void primitive_fcosh(void);
|
|
void primitive_flog(void);
|
|
void primitive_fpow(void);
|
|
void primitive_fsin(void);
|
|
void primitive_fsinh(void);
|
|
void primitive_fsqrt(void);
|
|
|
|
void primitive_float_bits(void);
|
|
void primitive_bits_float(void);
|
|
void primitive_double_bits(void);
|
|
void primitive_bits_double(void);
|
|
|
|
DLLEXPORT void box_float(float flo);
|
|
DLLEXPORT float unbox_float(void);
|
|
DLLEXPORT void box_double(double flo);
|
|
DLLEXPORT double unbox_double(void);
|