gcl.git - GNU Common Lisp

diff --git a/gcl/o/cfun.c b/gcl/o/cfun.c
index 2639d34c1..3f79f3388 100755
--- a/gcl/o/cfun.c
+++ b/gcl/o/cfun.c

@@ -337,7 +337,7 @@ turbo_closure(object fun)

for (n = 0, l = fun->cc.cc_env; !endp(l); n++, l = l->c.c_cdr);

{

block= AR_ALLOC(alloc_relblock,(1+n),object);

- *block=make_fixnum(n);

+ *block=(object)(long)n;

fun->cc.cc_turbo = block+1; /* equivalent to &block[1] */

for (n = 0, l = fun->cc.cc_env; !endp(l); n++, l = l->c.c_cdr)

fun->cc.cc_turbo[n] = l;}

diff --git a/gcl/o/gbc.c b/gcl/o/gbc.c
index f51e9be0e..f1616bb35 100755
--- a/gcl/o/gbc.c
+++ b/gcl/o/gbc.c

@@ -807,9 +807,8 @@ mark_object(object x) {

mark_object(x->cc.cc_env);

mark_object(x->cc.cc_data);

if (x->cc.cc_turbo!=NULL) {

- mark_object(*(x->cc.cc_turbo-1));

if (COLLECT_RELBLOCK_P)

- x->cc.cc_turbo=(void *)copy_relblock((char *)(x->cc.cc_turbo-1),(1+fix(*(x->cc.cc_turbo-1)))*sizeof(object))+sizeof(object);

+ x->cc.cc_turbo=(void *)copy_relblock((char *)(x->cc.cc_turbo-1),(1+*(fixnum *)(x->cc.cc_turbo-1))*sizeof(object))+sizeof(object);

}

break;