gcl.git - GNU Common Lisp

diff --git a/gcl/o/gbc.c b/gcl/o/gbc.c
index 964afb147..c75397107 100755
--- a/gcl/o/gbc.c
+++ b/gcl/o/gbc.c

@@ -89,7 +89,7 @@ cb_print(void) {

int i;

for (cbpp=&cb_pointer,i=0;*cbpp;cbpp=&((*cbpp)->cb_link),i++) {

- fprintf(stderr,"%u at %p\n",(*cbpp)->cb_size,*cbpp);

+ fprintf(stderr,"%lu at %p\n",(*cbpp)->cb_size,*cbpp);

fflush(stderr);

}

fprintf(stderr,"%u blocks\n",i);

diff --git a/gcl/o/sgbc.c b/gcl/o/sgbc.c
index 9e4b06d69..bb82a5726 100755
--- a/gcl/o/sgbc.c
+++ b/gcl/o/sgbc.c

@@ -867,8 +867,7 @@ sgc_quit(void) {

struct typemanager *tm;

struct contblock *tmp_cb_pointer,*next;

- unsigned long i,j,np;

- char *p;

+ unsigned long i,np;

struct pageinfo *v;

memory_protect(0);