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

(number->string) support for bignums

Browse source
This commit is contained in:
Justin Ethier 2017-02-16 17:24:16 -05:00
parent 2f0f9ac322
commit 964614f9bb
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
runtime.c
View file

@ -1721,6 +1721,14 @@ object Cyc_number2string2(void *data, object cont, int argc, object n, ...)
snprintf(buffer, 1024, "%d", ((integer_type *) n)->value); snprintf(buffer, 1024, "%d", ((integer_type *) n)->value);
} else if (type_of(n) == double_tag) { } else if (type_of(n) == double_tag) {
double2buffer(buffer, 1024, ((double_type *) n)->value); double2buffer(buffer, 1024, ((double_type *) n)->value);
} else if (type_of(n) == bignum_tag) {
int sz;
mp_radix_size(&bignum_value(n), 10, &sz);
if (sz > 1024) {
// TODO: just temporary, need to handle this better
Cyc_rt_raise(data, "number->string - bignum is too large to print");
}
mp_toradix(&bignum_value(n), buffer, 10);
} else { } else {
Cyc_rt_raise2(data, "number->string - Unexpected object", n); Cyc_rt_raise2(data, "number->string - Unexpected object", n);
} }