1
0
mirror of https://git.yoctoproject.org/poky synced 2026-06-01 13:09:50 +00:00

guile: updated to 2.0.6

Some patches (disable_goops_optimizations, fix_cross_compilation) don't
seem to be needed anymore. Others (change-install-data-hook, mark-unused-modules)
were updated to work on 2.0.6. Tested by building and running guile under
QEMU with core-image-sato-sdk and also builing guile on MIPS.

(From OE-Core rev: 310f169d3d89f3a4fc6a540974a30c7eb565db3a)

Signed-off-by: Bogdan Marinescu <bogdan.a.marinescu@intel.com>
Signed-off-by: Richard Purdie <richard.purdie@linuxfoundation.org>
This commit is contained in:
Bogdan Marinescu
2012-07-31 15:33:25 +03:00
committed by Richard Purdie
parent a4b1e34848
commit 2db74c67cb
7 changed files with 23 additions and 132 deletions
@@ -15,24 +15,25 @@ garbage collector.
1 files changed, 6 insertions(+), 5 deletions(-)
diff --git a/test-suite/tests/gc.test b/test-suite/tests/gc.test
index 97eeb19..58e4936 100644
index a969752..8c8e13e 100644
--- a/test-suite/tests/gc.test
+++ b/test-suite/tests/gc.test
@@ -80,11 +80,12 @@
(gc) ;; thrice: because the test doesn't succeed with only
@@ -84,11 +84,13 @@
;; one gc round. not sure why.
- (= (let lp ((i 0))
- (if (guard)
- (lp (1+ i))
- i))
- total)))
+ (or (= (let lp ((i 0))
+ (if (guard)
+ (lp (1+ i))
+ i))
+ total)
+ (throw 'unresolved))))
(maybe-gc-flakiness
- (= (let lp ((i 0))
- (if (guard)
- (lp (1+ i))
- i))
- total))))
+ (or (= (let lp ((i 0))
+ (if (guard)
+ (lp (1+ i))
+ i))
+ total)
+ (throw 'unresolved)))))
+
(pass-if "Lexical vars are collectable"
(let ((l (compile