aboutsummaryrefslogtreecommitdiffstats
path: root/main/guile/0002-Mark-mutex-with-owner-not-retained-threads-test-as-u.patch
diff options
context:
space:
mode:
authorTimo Teräs <timo.teras@iki.fi>2015-08-28 08:08:57 +0000
committerTimo Teräs <timo.teras@iki.fi>2015-08-28 08:27:59 +0000
commitad76680320da987e08545018d476c8dbd4060441 (patch)
tree226067fc2d1c356c95fb4d181aafbbc6e853ec6f /main/guile/0002-Mark-mutex-with-owner-not-retained-threads-test-as-u.patch
parent90faba1d9dd647e1f5751208ad4d766872a043b1 (diff)
downloadaports-ad76680320da987e08545018d476c8dbd4060441.tar.gz
aports-ad76680320da987e08545018d476c8dbd4060441.tar.bz2
aports-ad76680320da987e08545018d476c8dbd4060441.tar.xz
main/guile: cherry-pick patches from debian/upstream
fixes arm build among other issues
Diffstat (limited to 'main/guile/0002-Mark-mutex-with-owner-not-retained-threads-test-as-u.patch')
-rw-r--r--main/guile/0002-Mark-mutex-with-owner-not-retained-threads-test-as-u.patch29
1 files changed, 29 insertions, 0 deletions
diff --git a/main/guile/0002-Mark-mutex-with-owner-not-retained-threads-test-as-u.patch b/main/guile/0002-Mark-mutex-with-owner-not-retained-threads-test-as-u.patch
new file mode 100644
index 0000000000..cbe194dfd5
--- /dev/null
+++ b/main/guile/0002-Mark-mutex-with-owner-not-retained-threads-test-as-u.patch
@@ -0,0 +1,29 @@
+From be9d97e0eeb2423b86fad7094a462b142f5176f7 Mon Sep 17 00:00:00 2001
+From: Rob Browning <rlb@defaultvalue.org>
+Date: Sun, 18 Mar 2012 13:28:24 -0500
+Subject: Mark "mutex with owner not retained" threads test as unresolved.
+
+As per discussion with upstream, mark this test as unresolved since it
+may produce false negatives, depending on the behavior/timing of the
+garbage collector.
+---
+ test-suite/tests/threads.test | 6 ++++--
+ 1 file changed, 4 insertions(+), 2 deletions(-)
+
+diff --git a/test-suite/tests/threads.test b/test-suite/tests/threads.test
+index 8178120..7d180de 100644
+--- a/test-suite/tests/threads.test
++++ b/test-suite/tests/threads.test
+@@ -412,8 +412,10 @@
+
+ (gc) (gc)
+ (let ((m (g)))
+- (and (mutex? m)
+- (eq? (mutex-owner m) (current-thread)))))))
++ (or
++ (and (mutex? m)
++ (eq? (mutex-owner m) (current-thread)))
++ (throw 'unresolved))))))
+
+ ;;
+ ;; mutex lock levels