summaryrefslogtreecommitdiff
path: root/user/guile20/0002-Mark-mutex-with-owner-not-retained-threads-test-as-u.patch
diff options
context:
space:
mode:
authorA. Wilcox <AWilcox@Wilcox-Tech.com>2018-07-28 04:02:30 -0500
committerA. Wilcox <AWilcox@Wilcox-Tech.com>2018-07-28 04:02:30 -0500
commit16a519c002f49f510aa208319f6138854e34478a (patch)
treee5762be8957f3138dfea49152b7f9fd3d611f4f1 /user/guile20/0002-Mark-mutex-with-owner-not-retained-threads-test-as-u.patch
parent3d31e1350afd762076e6a6ef6b8a00807c33baaf (diff)
downloadpackages-16a519c002f49f510aa208319f6138854e34478a.tar.gz
packages-16a519c002f49f510aa208319f6138854e34478a.tar.bz2
packages-16a519c002f49f510aa208319f6138854e34478a.tar.xz
packages-16a519c002f49f510aa208319f6138854e34478a.zip
user/guile: -ppc; user/guile20: add, +ppc
Diffstat (limited to 'user/guile20/0002-Mark-mutex-with-owner-not-retained-threads-test-as-u.patch')
-rw-r--r--user/guile20/0002-Mark-mutex-with-owner-not-retained-threads-test-as-u.patch29
1 files changed, 29 insertions, 0 deletions
diff --git a/user/guile20/0002-Mark-mutex-with-owner-not-retained-threads-test-as-u.patch b/user/guile20/0002-Mark-mutex-with-owner-not-retained-threads-test-as-u.patch
new file mode 100644
index 000000000..cbe194dfd
--- /dev/null
+++ b/user/guile20/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