~ chicken-core (chicken-5) 71eca8c921eb317db42fbf1cdcf772b0aecaaec3
commit 71eca8c921eb317db42fbf1cdcf772b0aecaaec3
Author: Peter Bex <peter@more-magic.net>
AuthorDate: Sat Aug 22 18:16:43 2015 +0200
Commit: Peter Bex <peter@more-magic.net>
CommitDate: Sat Aug 22 19:37:26 2015 +0200
C_save_and_reclaim clobbered count
diff --git a/runtime.c b/runtime.c
index 5f535934..c28dcf74 100644
--- a/runtime.c
+++ b/runtime.c
@@ -3117,10 +3117,12 @@ void C_save_and_reclaim(void *trampoline, int n, C_word *av)
void C_save_and_reclaim_args(void *trampoline, int n, ...)
{
va_list v;
+ int i;
va_start(v, n);
- while(n--) C_save(va_arg(v, C_word));
+ for(i = 0; i < n; ++i)
+ C_save(va_arg(v, C_word));
va_end(v);
C_reclaim(trampoline, n);
Trap