Changeset 29702ad for libcfa/src/bits

Timestamp:

Nov 22, 2022, 10:18:04 AM (3 years ago)

Author:

Thierry Delisle <tdelisle@…>

Branches:

ADT, ast-experimental, master

Children:

20cf96d

Parents:

1553a55 (diff), d41735a (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge branch 'master' of plg.uwaterloo.ca:software/cfa/cfa-cc

File:

• libcfa/src/bits/random.hfa (modified) (4 diffs)

libcfa/src/bits/random.hfa

@@ -10 +10 @@
 // Created On       : Fri Jan 14 07:18:11 2022
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Fri Jan 14 07:18:58 2022
-// Update Count     : 1
+// Last Modified On : Mon Nov 21 17:50:12 2022
+// Update Count     : 15
 // 
 
@@ -17 +17 @@
 
 #include <stdint.h>
+
+// Set default PRNG for architecture size.
+#ifdef __x86_64__                                                                               // 64-bit architecture
+#define LEHMER64
+#else                                                                                                   // 32-bit architecture
+#define XORSHIFT_6_21_7
+#endif // __x86_64__
+
+// C/CFA PRNG name and random-state.
+#ifdef LEHMER64
+#define PRNG_NAME lehmer64
+#define PRNG_ARG_T __uint128_t
+#endif // LEHMER64
+
+#ifdef XORSHIFT_6_21_7
+#define PRNG_NAME xorshift_6_21_7
+#define PRNG_ARG_T uint32_t
+#endif // XORSHIFT_6_21_7
+
+#ifdef __cforall                                                                                // don't include in C code (invoke.h)
 
 // Pipelined to allow out-of-order overlap with reduced dependencies. Critically, the current random state is returned
@@ -61 +81 @@
 //--------------------------------------------------
 typedef struct {
-  uint32_t a, b, c, d;
-  uint32_t counter;
+        uint32_t a, b, c, d;
+        uint32_t counter;
 } xorwow__state_t;
 
@@ -116 +136 @@
 #undef C
 #undef D
+
+#endif // __cforall