diff options
author | Nitin A Kamble <nitin.a.kamble@intel.com> | 2012-01-13 18:19:36 -0800 |
---|---|---|
committer | Richard Purdie <richard.purdie@linuxfoundation.org> | 2012-01-19 13:26:12 +0000 |
commit | 34f4ab18bdcac475ab703d00c3ccb989592633e3 (patch) | |
tree | fa60f1fb331a734be4a4fb6bd6c70ff8396f4bf3 /meta/recipes-devtools/guile/files/opensuse | |
parent | 225a24a390beb07c9e2bf86f8e2102e929c66a56 (diff) | |
download | poky-34f4ab18bdcac475ab703d00c3ccb989592633e3.tar.gz |
guile: new recipe for autogen
guile recipe is needed by autogen.
Imported & updated the guile-cross-config generation & guile-2.0.pc
manipulation code from the meta-oe guile recipe.
(From OE-Core rev: 7726884826332387180cd24ebe565cd13a193e13)
Signed-off-by: Nitin A Kamble <nitin.a.kamble@intel.com>
Signed-off-by: Richard Purdie <richard.purdie@linuxfoundation.org>
Diffstat (limited to 'meta/recipes-devtools/guile/files/opensuse')
-rw-r--r-- | meta/recipes-devtools/guile/files/opensuse/guile-64bit.patch | 38 | ||||
-rw-r--r-- | meta/recipes-devtools/guile/files/opensuse/guile-turn-off-gc-test.patch | 48 |
2 files changed, 86 insertions, 0 deletions
diff --git a/meta/recipes-devtools/guile/files/opensuse/guile-64bit.patch b/meta/recipes-devtools/guile/files/opensuse/guile-64bit.patch new file mode 100644 index 0000000000..be3191a039 --- /dev/null +++ b/meta/recipes-devtools/guile/files/opensuse/guile-64bit.patch | |||
@@ -0,0 +1,38 @@ | |||
1 | |||
2 | Upstream-Status: Inappropriate [opensuse patch] | ||
3 | |||
4 | Index: guile-2.0.3/libguile/hash.c | ||
5 | =================================================================== | ||
6 | --- guile-2.0.3.orig/libguile/hash.c 2011-07-06 15:49:59.000000000 -0700 | ||
7 | +++ guile-2.0.3/libguile/hash.c 2012-01-13 21:49:43.332844884 -0800 | ||
8 | @@ -270,7 +270,7 @@ scm_hasher(SCM obj, unsigned long n, siz | ||
9 | unsigned long | ||
10 | scm_ihashq (SCM obj, unsigned long n) | ||
11 | { | ||
12 | - return (SCM_UNPACK (obj) >> 1) % n; | ||
13 | + return ((unsigned long) SCM_UNPACK (obj) >> 1) % n; | ||
14 | } | ||
15 | |||
16 | |||
17 | @@ -306,7 +306,7 @@ scm_ihashv (SCM obj, unsigned long n) | ||
18 | if (SCM_NUMP(obj)) | ||
19 | return (unsigned long) scm_hasher(obj, n, 10); | ||
20 | else | ||
21 | - return SCM_UNPACK (obj) % n; | ||
22 | + return (unsigned long) SCM_UNPACK (obj) % n; | ||
23 | } | ||
24 | |||
25 | |||
26 | Index: guile-2.0.3/libguile/struct.c | ||
27 | =================================================================== | ||
28 | --- guile-2.0.3.orig/libguile/struct.c 2011-07-06 15:50:00.000000000 -0700 | ||
29 | +++ guile-2.0.3/libguile/struct.c 2012-01-13 21:49:43.332844884 -0800 | ||
30 | @@ -942,7 +942,7 @@ scm_struct_ihashq (SCM obj, unsigned lon | ||
31 | { | ||
32 | /* The length of the hash table should be a relative prime it's not | ||
33 | necessary to shift down the address. */ | ||
34 | - return SCM_UNPACK (obj) % n; | ||
35 | + return (unsigned long) SCM_UNPACK (obj) % n; | ||
36 | } | ||
37 | |||
38 | SCM_DEFINE (scm_struct_vtable_name, "struct-vtable-name", 1, 0, 0, | ||
diff --git a/meta/recipes-devtools/guile/files/opensuse/guile-turn-off-gc-test.patch b/meta/recipes-devtools/guile/files/opensuse/guile-turn-off-gc-test.patch new file mode 100644 index 0000000000..ed56694a98 --- /dev/null +++ b/meta/recipes-devtools/guile/files/opensuse/guile-turn-off-gc-test.patch | |||
@@ -0,0 +1,48 @@ | |||
1 | |||
2 | Upstream-Status: Inappropriate [opensuse patch] | ||
3 | |||
4 | See http://debbugs.gnu.org/cgi/bugreport.cgi?bug=10096 | ||
5 | why this test is turned off. | ||
6 | Index: guile-2.0.3/test-suite/tests/gc.test | ||
7 | =================================================================== | ||
8 | --- guile-2.0.3.orig/test-suite/tests/gc.test 2011-10-15 09:34:40.000000000 -0700 | ||
9 | +++ guile-2.0.3/test-suite/tests/gc.test 2012-01-13 21:52:10.282540355 -0800 | ||
10 | @@ -65,23 +65,23 @@ | ||
11 | foo))) | ||
12 | |||
13 | |||
14 | -(with-test-prefix "gc" | ||
15 | - (pass-if "Unused modules are removed" | ||
16 | - (let* ((guard (make-guardian)) | ||
17 | - (total 1000)) | ||
18 | - | ||
19 | - (for-each (lambda (x) (guard (make-module))) (iota total)) | ||
20 | +;;(with-test-prefix "gc" | ||
21 | +;; (pass-if "Unused modules are removed" | ||
22 | +;; (let* ((guard (make-guardian)) | ||
23 | +;; (total 1000)) | ||
24 | +;; | ||
25 | +;; (for-each (lambda (x) (guard (make-module))) (iota total)) | ||
26 | |||
27 | ;; Avoid false references to the modules on the stack. | ||
28 | - (stack-cleanup 20) | ||
29 | +;; (stack-cleanup 20) | ||
30 | |||
31 | - (gc) | ||
32 | - (gc) ;; twice: have to kill the weak vectors. | ||
33 | - (gc) ;; thrice: because the test doesn't succeed with only | ||
34 | +;; (gc) | ||
35 | +;; (gc) ;; twice: have to kill the weak vectors. | ||
36 | +;; (gc) ;; thrice: because the test doesn't succeed with only | ||
37 | ;; one gc round. not sure why. | ||
38 | |||
39 | - (= (let lp ((i 0)) | ||
40 | - (if (guard) | ||
41 | - (lp (1+ i)) | ||
42 | - i)) | ||
43 | - total)))) | ||
44 | +;; (= (let lp ((i 0)) | ||
45 | +;; (if (guard) | ||
46 | +;; (lp (1+ i)) | ||
47 | +;; i)) | ||
48 | +;; total)))) | ||