[Guile-commits] GNU Guile branch, branch_release-1-8, updated. release_1-8-8-12-g62bc107

[Ludovic Courtès]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "GNU Guile".

http://git.savannah.gnu.org/cgit/guile.git/commit/?id=62bc1072c19e81bb0f9e42a5034e7ab8c27d3b94

The branch, branch_release-1-8 has been updated
       via  62bc1072c19e81bb0f9e42a5034e7ab8c27d3b94 (commit)
      from  a3467025d9195948dd5af2a775767bff619c7778 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 62bc1072c19e81bb0f9e42a5034e7ab8c27d3b94
Author: Ludovic Courtès <address@hidden>
Date:   Sun Jul 1 17:32:03 2012 +0200

    Fix stack growth direction check.
    
    Backport of 236f901b0e2b18093421e2e440cf80d00fb98757 from `stable-2.0'.
    Fixes <http://bugs.gnu.org/11845>.
    Reported by Cyprien Nicolas <address@hidden>.
    
    * configure.in: Pull stack growth direction check from upstream
      Autoconf.  See
      http://lists.gnu.org/archive/html/bug-autoconf/2011-06/msg00035.html
      for a discussion.

-----------------------------------------------------------------------

Summary of changes:
 configure.in |   21 +++++++++------------
 1 files changed, 9 insertions(+), 12 deletions(-)

diff --git a/configure.in b/configure.in
index f058841..682e31f 100644
--- a/configure.in
+++ b/configure.in
@@ -1244,23 +1244,20 @@ SCM_I_GSC_STACK_GROWS_UP=0
 AC_RUN_IFELSE([AC_LANG_SOURCE(
 [AC_INCLUDES_DEFAULT
 int
-find_stack_direction ()
+find_stack_direction (int *addr, int depth)
 {
-  static char *addr = 0;
-  auto char dummy;
-  if (addr == 0)
-    {
-      addr = &dummy;
-      return find_stack_direction ();
-    }
-  else
-    return (&dummy > addr) ? 1 : -1;
+  int dir, dummy = 0;
+  if (! addr)
+    addr = &dummy;
+  *addr = addr < &dummy ? 1 : addr == &dummy ? 0 : -1;
+  dir = depth ? find_stack_direction (addr, depth - 1) : 0;
+  return dir + dummy;
 }
 
 int
-main ()
+main (int argc, char **argv)
 {
-  return find_stack_direction () < 0;
+  return find_stack_direction (0, argc + !argv + 20) < 0;
 }])],
               [SCM_I_GSC_STACK_GROWS_UP=1],
               [],


hooks/post-receive
-- 
GNU Guile