Bug#298430: sbcl: FTBFS (amd64/gcc-4.0): static declaration of 'dynamic_space_free_pointer' follows non-static declaration

[Andreas Jochens]

Package: sbcl
Severity: normal
Tags: patch

When building 'sbcl' on amd64 with gcc-4.0,
I get the following error:

cc -g -Wall -O3 -fno-omit-frame-pointer -DSBCL_HOME='"/usr/lib/sbcl/"' -I.  -c 
-o purify.o purify.c
In file included from purify.c:29:
interr.h:15: warning: type qualifiers ignored on function return type
purify.c:46: error: static declaration of 'dynamic_space_free_pointer' follows 
non-static declaration
globals.h:33: error: previous declaration of 'dynamic_space_free_pointer' was 
here

With the attached patch 'sbcl' can be compiled
on amd64 using gcc-4.0.

Regards
Andreas Jochens

diff -urN ../tmp-orig/sbcl-0.8.19.39/src/runtime/purify.c ./src/runtime/purify.c
--- ../tmp-orig/sbcl-0.8.19.39/src/runtime/purify.c     2005-01-10 
07:48:25.000000000 +0100
+++ ./src/runtime/purify.c      2005-03-07 15:33:14.097915083 +0100
@@ -43,7 +43,7 @@
  * call is active, but in gencgc there's no such variable and we have
  * to keep our own
  */
-static lispobj *dynamic_space_free_pointer;
+lispobj *dynamic_space_free_pointer;
 #endif
 extern unsigned long bytes_consed_between_gcs;
 
diff -urN ../tmp-orig/sbcl-0.8.19.39/src/runtime/x86-64-arch.c 
./src/runtime/x86-64-arch.c
--- ../tmp-orig/sbcl-0.8.19.39/src/runtime/x86-64-arch.c        2005-01-06 
13:48:04.000000000 +0100
+++ ./src/runtime/x86-64-arch.c 2005-03-07 15:38:43.416350549 +0100
@@ -84,7 +84,7 @@
            vlen = *(char*)(*os_context_pc_addr(context))++;
            /* Skip Lisp error arg data bytes. */
            while (vlen-- > 0) {
-               ( (char*)(*os_context_pc_addr(context)) )++;
+               *os_context_pc_addr(context) = 
(char*)(*os_context_pc_addr(context)) + 1;
            }
            break;
 
@@ -264,12 +264,12 @@
        break;
 
     case trap_Breakpoint:
-       (char*)(*os_context_pc_addr(context)) -= 1;
+       *os_context_pc_addr(context) = (char*)(*os_context_pc_addr(context)) - 
1;
        handle_breakpoint(signal, info, context);
        break;
 
     case trap_FunEndBreakpoint:
-       (char*)(*os_context_pc_addr(context)) -= 1;
+       *os_context_pc_addr(context) = (char*)(*os_context_pc_addr(context)) - 
1;
        *os_context_pc_addr(context) =
            (int)handle_fun_end_breakpoint(signal, info, context);
        break;


-- 
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]