mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-09 23:40:29 +02:00
Code Activity

Fix stack growth direction check.

Browse source 
Backport of 236f901b0e from `stable-2.0'.
Fixes <http://bugs.gnu.org/11845>.
Reported by Cyprien Nicolas <c.nicolas@gmail.com>.

* 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.
This commit is contained in:
Ludovic Courtès 2012-07-01 17:32:03 +02:00
parent a3467025d9
commit 62bc1072c1
1 changed files with 9 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

21
configure.in
View file

@ -1244,23 +1244,20 @@ SCM_I_GSC_STACK_GROWS_UP=0
AC_RUN_IFELSE([AC_LANG_SOURCE( AC_RUN_IFELSE([AC_LANG_SOURCE(
[AC_INCLUDES_DEFAULT [AC_INCLUDES_DEFAULT
int int
find_stack_direction () find_stack_direction (int *addr, int depth)
{ {
static char *addr = 0; int dir, dummy = 0;
auto char dummy; if (! addr)
if (addr == 0) addr = &dummy;
{ *addr = addr < &dummy ? 1 : addr == &dummy ? 0 : -1;
addr = &dummy; dir = depth ? find_stack_direction (addr, depth - 1) : 0;
return find_stack_direction (); return dir + dummy;
}
else
return (&dummy > addr) ? 1 : -1;
} }
int 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], [SCM_I_GSC_STACK_GROWS_UP=1],
[], [],