From 4515c00a4d37269f0e15d15296ee1938a2df29c6 Mon Sep 17 00:00:00 2001
From: Marcus Comstedt <marcus@mc.pp.se>
Date: Sat, 23 May 2020 13:38:21 +0200
Subject: [PATCH] Thread.Condition: Backport fallback implementation from 8.1
This is needed by Concurrent.
Thread.Condition: Fix edge case in fallback implementation
---
lib/modules/Thread.pmod | 32 ++++++++++++++++++++++++++++++++
1 file changed, 32 insertions(+)
diff --git a/lib/modules/Thread.pmod b/lib/modules/Thread.pmod
index 5da43ac968..f61f6fab45 100644
--- a/lib/modules/Thread.pmod
+++ b/lib/modules/Thread.pmod
@@ -1022,6 +1022,38 @@ optional class Mutex
locks++;
return MutexKey (dec_locks);
}
+
+ Condition condition ()
+ {
+ return Condition(this);
+ }
+}
+
+// Fallback implementation of Thread.Condition.
+class Condition (protected Mutex|void mutex)
+{
+ variant void wait(MutexKey key, void|int|float seconds)
+ {
+ if (!seconds || seconds == 0.0) {
+ // To be really accurate we should hang now, but somehow
+ // that doesn't seem too useful.
+ error ("Deadlock detected.\n");
+ }
+ sleep(seconds);
+ }
+
+ variant void wait(MutexKey key, int seconds, int nanos)
+ {
+ wait(key, seconds + nanos*1e-9);
+ }
+
+ void signal()
+ {
+ }
+
+ void broadcast()
+ {
+ }
}
// Fallback implementation of Thread.Fifo.
--
GitLab