Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-10 14:37:34 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Need to GC preserve earlier in sexp_sqrt.

Browse source
This commit is contained in:
Alex Shinn 2013-04-14 05:01:38 +00:00
parent 52001c7d5e
commit 0659ad4484
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
eval.c
View file

@ -1398,6 +1398,7 @@ sexp sexp_sqrt (sexp ctx, sexp self, sexp_sint_t n, sexp z) {
#endif #endif
double d, r; double d, r;
sexp_gc_var1(res); sexp_gc_var1(res);
sexp_gc_preserve1(ctx, res);
#if SEXP_USE_BIGNUMS #if SEXP_USE_BIGNUMS
if (sexp_bignump(z)) { if (sexp_bignump(z)) {
negativep = sexp_bignum_sign(z) < 0; negativep = sexp_bignum_sign(z) < 0;
@ -1410,9 +1411,10 @@ sexp sexp_sqrt (sexp ctx, sexp self, sexp_sint_t n, sexp z) {
d = (double)sexp_unbox_fixnum(z); d = (double)sexp_unbox_fixnum(z);
maybe_convert_ratio(z) /* XXXX add ratio sqrt */ maybe_convert_ratio(z) /* XXXX add ratio sqrt */
maybe_convert_complex(z, sexp_complex_sqrt) maybe_convert_complex(z, sexp_complex_sqrt)
else else {
sexp_gc_release1(ctx);
return sexp_type_exception(ctx, self, SEXP_NUMBER, z); return sexp_type_exception(ctx, self, SEXP_NUMBER, z);
sexp_gc_preserve1(ctx, res); }
#if SEXP_USE_COMPLEX #if SEXP_USE_COMPLEX
if (d < 0) { if (d < 0) {
negativep = 1; negativep = 1;