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

Extra gc preservation.

Browse source
This commit is contained in:
Alex Shinn 2013-05-11 12:58:20 +09:00
parent 7a08f86b3d
commit 5db2afb02d
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lib/srfi/95/qsort.c
View file

@ -81,7 +81,7 @@ static int sexp_object_compare (sexp ctx, sexp a, sexp b) {
#endif #endif
#if SEXP_USE_RATIOS #if SEXP_USE_RATIOS
case SEXP_RATIO: case SEXP_RATIO:
res = sexp_ratio_compare(ctx, a, b); res = sexp_unbox_fixnum(sexp_ratio_compare(ctx, a, b));
break; break;
#endif #endif
#if SEXP_USE_COMPLEX #if SEXP_USE_COMPLEX
@ -165,9 +165,9 @@ static sexp sexp_qsort_less (sexp ctx, sexp *vec,
sexp_sint_t lo, sexp_sint_t hi, sexp_sint_t lo, sexp_sint_t hi,
sexp less, sexp key) { sexp less, sexp key) {
sexp_sint_t mid, i, j; sexp_sint_t mid, i, j;
sexp tmp, res, args1; sexp args1;
sexp_gc_var3(a, b, args2); sexp_gc_var5(a, b, tmp, args2, res);
sexp_gc_preserve3(ctx, a, b, args2); sexp_gc_preserve5(ctx, a, b, tmp, args2, res);
args2 = sexp_list2(ctx, SEXP_VOID, SEXP_VOID); args2 = sexp_list2(ctx, SEXP_VOID, SEXP_VOID);
args1 = sexp_cdr(args2); args1 = sexp_cdr(args2);
loop: loop:
@ -213,7 +213,7 @@ static sexp sexp_qsort_less (sexp ctx, sexp *vec,
} }
} }
done: done:
sexp_gc_release3(ctx); sexp_gc_release5(ctx);
return res; return res;
} }