Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-15 16:57:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Export int2bignum

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

3
include/cyclone/types.h
View file

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

2
runtime.c
View file

@ -1233,7 +1233,7 @@ object Cyc_bignum_normalize(void *data, object n)
return result; 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)); mp_set_int(bn, abs(n));
if (n < 0) { if (n < 0) {