diff options
Diffstat (limited to 'meta/recipes-devtools/guile/files/opensuse')
-rw-r--r-- | meta/recipes-devtools/guile/files/opensuse/guile-64bit.patch | 39 | ||||
-rw-r--r-- | meta/recipes-devtools/guile/files/opensuse/guile-turn-off-gc-test.patch | 49 |
2 files changed, 88 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..d3e312f770 --- /dev/null +++ b/meta/recipes-devtools/guile/files/opensuse/guile-64bit.patch | |||
@@ -0,0 +1,39 @@ | |||
1 | Upstream-Status: Inappropriate [opensuse patch] | ||
2 | |||
3 | Signed-Off-by: Nitin A Kamble <nitin.a.kamble@intel.com> | ||
4 | |||
5 | Index: guile-2.0.3/libguile/hash.c | ||
6 | =================================================================== | ||
7 | --- guile-2.0.3.orig/libguile/hash.c 2011-07-06 15:49:59.000000000 -0700 | ||
8 | +++ guile-2.0.3/libguile/hash.c 2012-01-13 21:49:43.332844884 -0800 | ||
9 | @@ -270,7 +270,7 @@ scm_hasher(SCM obj, unsigned long n, siz | ||
10 | unsigned long | ||
11 | scm_ihashq (SCM obj, unsigned long n) | ||
12 | { | ||
13 | - return (SCM_UNPACK (obj) >> 1) % n; | ||
14 | + return ((unsigned long) SCM_UNPACK (obj) >> 1) % n; | ||
15 | } | ||
16 | |||
17 | |||
18 | @@ -306,7 +306,7 @@ scm_ihashv (SCM obj, unsigned long n) | ||
19 | if (SCM_NUMP(obj)) | ||
20 | return (unsigned long) scm_hasher(obj, n, 10); | ||
21 | else | ||
22 | - return SCM_UNPACK (obj) % n; | ||
23 | + return (unsigned long) SCM_UNPACK (obj) % n; | ||
24 | } | ||
25 | |||
26 | |||
27 | Index: guile-2.0.3/libguile/struct.c | ||
28 | =================================================================== | ||
29 | --- guile-2.0.3.orig/libguile/struct.c 2011-07-06 15:50:00.000000000 -0700 | ||
30 | +++ guile-2.0.3/libguile/struct.c 2012-01-13 21:49:43.332844884 -0800 | ||
31 | @@ -942,7 +942,7 @@ scm_struct_ihashq (SCM obj, unsigned lon | ||
32 | { | ||
33 | /* The length of the hash table should be a relative prime it's not | ||
34 | necessary to shift down the address. */ | ||
35 | - return SCM_UNPACK (obj) % n; | ||
36 | + return (unsigned long) SCM_UNPACK (obj) % n; | ||
37 | } | ||
38 | |||
39 | 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..e201486284 --- /dev/null +++ b/meta/recipes-devtools/guile/files/opensuse/guile-turn-off-gc-test.patch | |||
@@ -0,0 +1,49 @@ | |||
1 | Upstream-Status: Inappropriate [opensuse patch] | ||
2 | |||
3 | Signed-Off-by: Nitin A Kamble <nitin.a.kamble@intel.com> | ||
4 | |||
5 | See http://debbugs.gnu.org/cgi/bugreport.cgi?bug=10096 | ||
6 | why this test is turned off. | ||
7 | Index: guile-2.0.3/test-suite/tests/gc.test | ||
8 | =================================================================== | ||
9 | --- guile-2.0.3.orig/test-suite/tests/gc.test 2011-10-15 09:34:40.000000000 -0700 | ||
10 | +++ guile-2.0.3/test-suite/tests/gc.test 2012-01-13 21:52:10.282540355 -0800 | ||
11 | @@ -65,23 +65,23 @@ | ||
12 | foo))) | ||
13 | |||
14 | |||
15 | -(with-test-prefix "gc" | ||
16 | - (pass-if "Unused modules are removed" | ||
17 | - (let* ((guard (make-guardian)) | ||
18 | - (total 1000)) | ||
19 | - | ||
20 | - (for-each (lambda (x) (guard (make-module))) (iota total)) | ||
21 | +;;(with-test-prefix "gc" | ||
22 | +;; (pass-if "Unused modules are removed" | ||
23 | +;; (let* ((guard (make-guardian)) | ||
24 | +;; (total 1000)) | ||
25 | +;; | ||
26 | +;; (for-each (lambda (x) (guard (make-module))) (iota total)) | ||
27 | |||
28 | ;; Avoid false references to the modules on the stack. | ||
29 | - (stack-cleanup 20) | ||
30 | +;; (stack-cleanup 20) | ||
31 | |||
32 | - (gc) | ||
33 | - (gc) ;; twice: have to kill the weak vectors. | ||
34 | - (gc) ;; thrice: because the test doesn't succeed with only | ||
35 | +;; (gc) | ||
36 | +;; (gc) ;; twice: have to kill the weak vectors. | ||
37 | +;; (gc) ;; thrice: because the test doesn't succeed with only | ||
38 | ;; one gc round. not sure why. | ||
39 | |||
40 | - (= (let lp ((i 0)) | ||
41 | - (if (guard) | ||
42 | - (lp (1+ i)) | ||
43 | - i)) | ||
44 | - total)))) | ||
45 | +;; (= (let lp ((i 0)) | ||
46 | +;; (if (guard) | ||
47 | +;; (lp (1+ i)) | ||
48 | +;; i)) | ||
49 | +;; total)))) | ||