Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 13:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Avoid using alloca in fixnum

Browse source
This commit is contained in:
Ekaitz Zarraga 2020-05-23 15:33:29 +02:00
parent a2312503c4
commit 3745c16c8c
1 changed files with 22 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
lib/chibi/json.c
View file

@ -327,10 +327,29 @@ sexp unparse_json_fixnum(sexp ctx, sexp self, const sexp obj) {
sexp_gc_var2(res, tmp); sexp_gc_var2(res, tmp);
sexp_gc_preserve2(ctx, res, tmp); sexp_gc_preserve2(ctx, res, tmp);
res = SEXP_NULL; res = SEXP_NULL;
int sign = 1;
long num = sexp_unbox_fixnum(obj); long num = sexp_unbox_fixnum(obj);
char* buff = alloca( num==0 ? 2 : (log10(abs(num))+3) ); char digit;
sprintf(buff, "%ld", num); if (num == 0) {
res = sexp_c_string(ctx, buff, -1); res = sexp_c_string(ctx, "0", -1);
} else {
if (num < 0) {
sign = -1;
num = labs(num);
}
while (num > 0) {
digit = '0' + num%10;
num /= 10;
tmp = sexp_c_string(ctx, &digit, 1);
res = sexp_cons(ctx, tmp, res);
}
if (sign==-1) {
tmp = sexp_c_string(ctx, "-", -1);
res = sexp_cons(ctx, tmp, res);
}
res = sexp_string_concatenate(ctx, res, SEXP_FALSE);
}
sexp_gc_release2(ctx); sexp_gc_release2(ctx);
return res; return res;
} }