34 lines
551 B
C
34 lines
551 B
C
|
typedef struct {
|
||
|
|
CELL header;
|
||
|
|
DCELL n;
|
||
|
|
} BIGNUM;
|
||
|
|
|
||
|
|
/* untagged */
|
||
|
|
INLINE BIGNUM* allot_bignum()
|
||
|
|
{
|
||
|
|
return (BIGNUM*)allot_object(BIGNUM_TYPE,sizeof(BIGNUM));
|
||
|
|
}
|
||
|
|
|
||
|
|
/* untagged */
|
||
|
|
INLINE BIGNUM* bignum(DCELL n)
|
||
|
|
{
|
||
|
|
BIGNUM* bignum = allot_bignum();
|
||
|
|
bignum->n = n;
|
||
|
|
return bignum;
|
||
|
|
}
|
||
|
|
|
||
|
|
INLINE BIGNUM* untag_bignum(CELL tagged)
|
||
|
|
{
|
||
|
|
type_check(BIGNUM_TYPE,tagged);
|
||
|
|
return (BIGNUM*)UNTAG(tagged);
|
||
|
|
}
|
||
|
|
|
||
|
|
INLINE CELL tag_bignum(BIGNUM* untagged)
|
||
|
|
{
|
||
|
|
return RETAG(untagged,OBJECT_TYPE);
|
||
|
|
}
|
||
|
|
|
||
|
|
BIGNUM* allot_bignum();
|
||
|
|
BIGNUM* bignum(DCELL n);
|
||
|
|
void primitive_bignump(void);
|