factor/native/complex.h

20 lines
348 B
C
Raw Normal View History

2004-08-06 02:51:32 -04:00
typedef struct {
CELL real;
CELL imaginary;
} COMPLEX;
INLINE COMPLEX* untag_complex(CELL tagged)
{
type_check(COMPLEX_TYPE,tagged);
return (COMPLEX*)UNTAG(tagged);
}
INLINE CELL tag_complex(COMPLEX* complex)
2004-08-06 02:51:32 -04:00
{
return RETAG(complex,COMPLEX_TYPE);
2004-08-06 02:51:32 -04:00
}
void primitive_real(void);
void primitive_imaginary(void);
void primitive_from_rect(void);