1 |
commit: 56631f8f78afd6f46d29e1bdbd5cc0ee7978b9a2 |
2 |
Author: Cyprien Nicolas (fulax) <c.nicolas+gentoo <AT> gmail <DOT> com> |
3 |
AuthorDate: Tue Jul 3 21:48:35 2012 +0000 |
4 |
Commit: Cyprien Nicolas <c.nicolas+gentoo <AT> gmail <DOT> com> |
5 |
CommitDate: Tue Jul 3 21:48:35 2012 +0000 |
6 |
URL: http://git.overlays.gentoo.org/gitweb/?p=proj/lisp.git;a=commit;h=56631f8f |
7 |
|
8 |
dev-scheme/guile-1.8.8-r2: Import upstream patch for bug #424475. No revbump as it fixes a build-time failure. |
9 |
|
10 |
(Portage version: 2.2.0_alpha110/git/Linux i686, signed Manifest commit with key 0xBE63A96F) |
11 |
|
12 |
--- |
13 |
...uile-1.8.8-fix_stack-grow-direction-check.patch | 53 ++++++++++++++++++++ |
14 |
dev-scheme/guile/guile-1.8.8-r2.ebuild | 8 ++-- |
15 |
2 files changed, 57 insertions(+), 4 deletions(-) |
16 |
|
17 |
diff --git a/dev-scheme/guile/files/guile-1.8.8-fix_stack-grow-direction-check.patch b/dev-scheme/guile/files/guile-1.8.8-fix_stack-grow-direction-check.patch |
18 |
new file mode 100644 |
19 |
index 0000000..a9fe226 |
20 |
--- /dev/null |
21 |
+++ b/dev-scheme/guile/files/guile-1.8.8-fix_stack-grow-direction-check.patch |
22 |
@@ -0,0 +1,53 @@ |
23 |
+From 62bc1072c19e81bb0f9e42a5034e7ab8c27d3b94 Mon Sep 17 00:00:00 2001 |
24 |
+From: Ludovic Courtès <ludo@×××.org> |
25 |
+Date: Sun, 01 Jul 2012 15:32:03 +0000 |
26 |
+Subject: Fix stack growth direction check. |
27 |
+ |
28 |
+Backport of 236f901b0e2b18093421e2e440cf80d00fb98757 from `stable-2.0'. |
29 |
+Fixes <http://bugs.gnu.org/11845>. |
30 |
+Reported by Cyprien Nicolas <c.nicolas@×××××.com>. |
31 |
+ |
32 |
+* configure.in: Pull stack growth direction check from upstream |
33 |
+ Autoconf. See |
34 |
+ http://lists.gnu.org/archive/html/bug-autoconf/2011-06/msg00035.html |
35 |
+ for a discussion. |
36 |
+--- |
37 |
+diff --git a/configure.in b/configure.in |
38 |
+index f058841..682e31f 100644 |
39 |
+--- a/configure.in |
40 |
++++ b/configure.in |
41 |
+@@ -1244,23 +1244,20 @@ SCM_I_GSC_STACK_GROWS_UP=0 |
42 |
+ AC_RUN_IFELSE([AC_LANG_SOURCE( |
43 |
+ [AC_INCLUDES_DEFAULT |
44 |
+ int |
45 |
+-find_stack_direction () |
46 |
++find_stack_direction (int *addr, int depth) |
47 |
+ { |
48 |
+- static char *addr = 0; |
49 |
+- auto char dummy; |
50 |
+- if (addr == 0) |
51 |
+- { |
52 |
+- addr = &dummy; |
53 |
+- return find_stack_direction (); |
54 |
+- } |
55 |
+- else |
56 |
+- return (&dummy > addr) ? 1 : -1; |
57 |
++ int dir, dummy = 0; |
58 |
++ if (! addr) |
59 |
++ addr = &dummy; |
60 |
++ *addr = addr < &dummy ? 1 : addr == &dummy ? 0 : -1; |
61 |
++ dir = depth ? find_stack_direction (addr, depth - 1) : 0; |
62 |
++ return dir + dummy; |
63 |
+ } |
64 |
+ |
65 |
+ int |
66 |
+-main () |
67 |
++main (int argc, char **argv) |
68 |
+ { |
69 |
+- return find_stack_direction () < 0; |
70 |
++ return find_stack_direction (0, argc + !argv + 20) < 0; |
71 |
+ }])], |
72 |
+ [SCM_I_GSC_STACK_GROWS_UP=1], |
73 |
+ [], |
74 |
+-- |
75 |
+cgit v0.9.0.2 |
76 |
|
77 |
diff --git a/dev-scheme/guile/guile-1.8.8-r2.ebuild b/dev-scheme/guile/guile-1.8.8-r2.ebuild |
78 |
index ffac522..82fce01 100644 |
79 |
--- a/dev-scheme/guile/guile-1.8.8-r2.ebuild |
80 |
+++ b/dev-scheme/guile/guile-1.8.8-r2.ebuild |
81 |
@@ -1,8 +1,8 @@ |
82 |
-# Copyright 1999-2011 Gentoo Foundation |
83 |
+# Copyright 1999-2012 Gentoo Foundation |
84 |
# Distributed under the terms of the GNU General Public License v2 |
85 |
-# $Header: /var/cvsroot/gentoo-x86/dev-scheme/guile/guile-1.8.8-r1.ebuild,v 1.10 2011/07/09 11:18:15 xarthisius Exp $ |
86 |
+# $Header: $ |
87 |
|
88 |
-EAPI=3 |
89 |
+EAPI=4 |
90 |
inherit eutils autotools flag-o-matic elisp-common |
91 |
|
92 |
DESCRIPTION="Scheme interpreter" |
93 |
@@ -29,8 +29,8 @@ SLOT="12" |
94 |
MAJOR="1.8" |
95 |
|
96 |
src_prepare() { |
97 |
- # |
98 |
epatch "${FILESDIR}/${P}-fix_guile-config.patch" |
99 |
+ epatch "${FILESDIR}/${P}-fix_stack-grow-direction-check.patch" |
100 |
eautoreconf |
101 |
} |