guile-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Patch for gc_os_dep.c with Sun Forte compiler


From: Matthias Koeppe
Subject: Patch for gc_os_dep.c with Sun Forte compiler
Date: Thu, 23 Aug 2001 16:06:04 +0200

When compiling the "stable" CVS Guile with the Sun Forte compiler, I
was getting an error:

"gc_os_dep.c", line 1766: identifier redeclared: GC_noop1
       current : static function() returning void
      previous: function() returning int : "gc_os_dep.c", line 1753

I had to move the definition of GC_noop1 in front of its first use, or
it would be declared implicitly as an external function returning
int.  Here is a patch.

Index: gc_os_dep.c
===================================================================
RCS file: /cvs/guile/guile-core/libguile/gc_os_dep.c,v
retrieving revision 1.7.4.3
diff -u -u -r1.7.4.3 gc_os_dep.c
--- gc_os_dep.c 2001/07/26 16:57:27     1.7.4.3
+++ gc_os_dep.c 2001/08/23 14:03:15
@@ -1727,6 +1727,15 @@
 #       endif
     }
 
+    /* Single argument version, robust against whole program analysis. */
+    static void
+    GC_noop1(x)
+    word x;
+    {
+      static VOLATILE word sink;
+      sink = x;
+    }
+
     /* Return the first nonaddressible location > p (up) or    */
     /* the smallest location q s.t. [q,p] is addressible (!up).        */
     static ptr_t GC_find_limit(p, up)
@@ -1758,15 +1767,6 @@
            result += MIN_PAGE_SIZE;
        }
        return(result);
-    }
-
-    /* Single argument version, robust against whole program analysis. */
-    static void
-    GC_noop1(x)
-    word x;
-    {
-      static VOLATILE word sink;
-      sink = x;
     }
 
 # endif

-- 
Matthias Köppe -- http://www.math.uni-magdeburg.de/~mkoeppe



reply via email to

[Prev in Thread] Current Thread [Next in Thread]