Export int2bignum

This commit is contained in:
Justin Ethier 2017-02-17 17:02:04 +00:00
parent 80290db8d5
commit ea24b00361
2 changed files with 4 additions and 1 deletions

View file

@ -673,8 +673,11 @@ typedef union {
void **vpbuffer_realloc(void **buf, int *len);
void **vpbuffer_add(void **buf, int *len, int i, void *obj);
void vpbuffer_free(void **buf);
/* Bignum utility functions */
double mp_get_double(mp_int *a);
int Cyc_bignum_cmp(bn_cmp_type type, object x, int tx, object y, int ty);
void Cyc_int2bignum(int n, mp_int *bn);
/* GC prototypes */
void gc_initialize();

View file

@ -1233,7 +1233,7 @@ object Cyc_bignum_normalize(void *data, object n)
return result;
}
static void Cyc_int2bignum(int n, mp_int *bn)
void Cyc_int2bignum(int n, mp_int *bn)
{
mp_set_int(bn, abs(n));
if (n < 0) {