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

GC-preserving intermediate sexp_fixnum_to_bignum result in sexp_expt.

Browse source 
Patch from Lorenzo.
This commit is contained in:
Alex Shinn 2013-09-24 15:51:12 +09:00
parent 7d2b60e1aa
commit a9d4bf434c
1 changed files with 9 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
eval.c
View file

@ -1501,6 +1501,9 @@ sexp sexp_expt_op (sexp ctx, sexp self, sexp_sint_t n, sexp x, sexp e) {
#else #else
long double f, x1, e1; long double f, x1, e1;
sexp res; sexp res;
#if SEXP_USE_BIGNUMS
sexp_gc_var1(tmp);
#endif
#if SEXP_USE_COMPLEX #if SEXP_USE_COMPLEX
if (sexp_complexp(x) || sexp_complexp(e)) if (sexp_complexp(x) || sexp_complexp(e))
return sexp_complex_expt(ctx, x, e); return sexp_complex_expt(ctx, x, e);
@ -1548,9 +1551,12 @@ sexp sexp_expt_op (sexp ctx, sexp self, sexp_sint_t n, sexp x, sexp e) {
if ((f*1000.0 > SEXP_MAX_FIXNUM) || (f*1000.0 < SEXP_MIN_FIXNUM) if ((f*1000.0 > SEXP_MAX_FIXNUM) || (f*1000.0 < SEXP_MIN_FIXNUM)
|| (! sexp_fixnump(x)) || (! sexp_fixnump(e))) { || (! sexp_fixnump(x)) || (! sexp_fixnump(e))) {
#if SEXP_USE_BIGNUMS #if SEXP_USE_BIGNUMS
if (sexp_fixnump(x) && sexp_fixnump(e)) if (sexp_fixnump(x) && sexp_fixnump(e)) {
res = sexp_bignum_expt(ctx, sexp_fixnum_to_bignum(ctx, x), e); sexp_gc_preserve1(ctx, tmp);
else tmp = sexp_fixnum_to_bignum(ctx, x);
res = sexp_bignum_expt(ctx, tmp, e);
sexp_gc_release1(ctx);
} else
#endif #endif
res = sexp_make_flonum(ctx, f); res = sexp_make_flonum(ctx, f);
} else } else