Changes in libcfa/src/concurrency/thread.cfa [5d1ebb9:1959528]

File:

• libcfa/src/concurrency/thread.cfa (modified) (3 diffs)

libcfa/src/concurrency/thread.cfa

@@ -10 +10 @@
 // Created On       : Tue Jan 17 12:27:26 2017
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Thu Jan 13 20:11:55 2022
-// Update Count     : 42
+// Last Modified On : Wed Jan 12 18:28:18 2022
+// Update Count     : 35
 //
 
@@ -24 +24 @@
 #define __CFA_INVOKE_PRIVATE__
 #include "invoke.h"
+
+uint64_t thread_rand();
 
 extern uint32_t __global_random_seed;
@@ -172 +174 @@
 }
 
-//-----------------------------------------------------------------------------
+uint64_t thread_rand() {
+        disable_interrupts();
+        uint64_t ret = __tls_rand();
+        enable_interrupts();
+        return ret;
+}
+ 
 #define GENERATOR LCG
 
-void set_seed( uint32_t seed ) {
-        active_thread()->random_state = __global_random_seed = seed;
-        GENERATOR( active_thread()->random_state );
-} // set_seed
+static inline uint32_t MarsagliaXor( uint32_t & state ) {
+        uint32_t ret = state;
+        state ^= state << 6;
+        state ^= state >> 21;
+        state ^= state << 7;
+        return ret;
+} // MarsagliaXor
+
+static inline uint32_t LCG( uint32_t & state ) {                // linear congruential generator
+        uint32_t ret = state;
+        state = 36969 * (state & 65535) + (state >> 16);        // 36969 is NOT prime! No not change it!
+        return ret;
+} // LCG
+
+void set_seed( uint32_t seed ) { active_thread()->random_state = seed; __global_random_seed = seed; }
 uint32_t prng( void ) { return GENERATOR( active_thread()->random_state ); } // [0,UINT_MAX]