~ chicken-core (chicken-5) 1ec74707a74ffde0de9abcfff11d46bf1c7377c1

commit 1ec74707a74ffde0de9abcfff11d46bf1c7377c1
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Wed Oct 12 09:57:33 2011 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Wed Oct 12 09:57:33 2011 +0200

    Use correct type in allocate_vector_2 for "bytes" argument
    (by Christian Kellermann)
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>

diff --git a/runtime.c b/runtime.c
index 17329f34..5e2f161b 100644
--- a/runtime.c
+++ b/runtime.c
@@ -7078,14 +7078,14 @@ void C_ccall C_allocate_vector(C_word c, C_word closure, C_word k, C_word size,
 
 void allocate_vector_2(void *dummy)
 {
-  C_word mode = C_restore;
-  int bytes = C_unfix(C_restore);
-  C_word align8 = C_restore,
-         bvecf = C_restore,
-         init = C_restore;
-  C_word size = C_unfix(C_restore);
-  C_word k = C_restore,
-         *v0, v;
+  C_word  mode = C_restore;
+  C_uword bytes = C_unfix(C_restore);
+  C_word  align8 = C_restore,
+          bvecf = C_restore,
+          init = C_restore;
+  C_word  size = C_unfix(C_restore);
+  C_word  k = C_restore,
+          *v0, v;
 
   if(C_truep(mode)) {
     while((C_uword)(C_fromspace_limit - C_fromspace_top) < (bytes + stack_size)) {