Changeset 13c5e19 for libcfa/src/concurrency/kernel_private.hfa

Timestamp:

Jun 23, 2020, 4:42:58 PM (3 years ago)

Author:

Thierry Delisle <tdelisle@…>

Branches:

arm-eh, enum, forall-pointer-decay, jacob/cs343-translation, master, new-ast, new-ast-unique-expr, pthread-emulation, qualifiedEnum

Children:

de917da3

Parents:

b232745

Message:

• Moved snzi and subqueues outside of ready_queue.cfa.
• Added random.hfa with multiple prng.
• Minor optimizations to ready-queue
• Stats now track number of local pops( bias pops )
• Fixed stats for io
• Fixed calculaton of nprocessors
• Fixed IO to work with new ready-queue

File:

• libcfa/src/concurrency/kernel_private.hfa (modified) (4 diffs)

libcfa/src/concurrency/kernel_private.hfa

@@ -22 +22 @@
 #include "stats.hfa"
 
+#include "bits/random.hfa"
+
 
 //-----------------------------------------------------------------------------
@@ -89 +91 @@
 #define KERNEL_STORAGE(T,X) __attribute((aligned(__alignof__(T)))) static char storage_##X[sizeof(T)]
 
-static inline uint32_t __tls_rand() {
-        kernelTLS.rand_seed ^= kernelTLS.rand_seed << 6;
-        kernelTLS.rand_seed ^= kernelTLS.rand_seed >> 21;
-        kernelTLS.rand_seed ^= kernelTLS.rand_seed << 7;
-        return kernelTLS.rand_seed;
+static inline uint64_t __tls_rand() {
+        // kernelTLS.rand_seed ^= kernelTLS.rand_seed << 6;
+        // kernelTLS.rand_seed ^= kernelTLS.rand_seed >> 21;
+        // kernelTLS.rand_seed ^= kernelTLS.rand_seed << 7;
+        // return kernelTLS.rand_seed;
+        return __lehmer64( kernelTLS.rand_seed );
 }
 
@@ -102 +105 @@
 void doregister( struct cluster * cltr, struct $thread & thrd );
 void unregister( struct cluster * cltr, struct $thread & thrd );
-
-void doregister( struct cluster * cltr, struct processor * proc );
-void unregister( struct cluster * cltr, struct processor * proc );
 
 //=======================================================================
@@ -264 +264 @@
 
 //-----------------------------------------------------------------------
+// remove thread from the ready queue of a cluster
+// returns bool if it wasn't found
+bool remove_head(struct cluster * cltr, struct $thread * thrd);
+
+//-----------------------------------------------------------------------
 // Increase the width of the ready queue (number of lanes) by 4
 void ready_queue_grow  (struct cluster * cltr);