Changeset 470618c0

Timestamp:

Feb 12, 2022, 1:55:07 PM (2 years ago)

Author:

Peter A. Buhr <pabuhr@…>

Branches:

ADT, ast-experimental, enum, master, pthread-emulation, qualifiedEnum

Children:

4708eaa

Parents:

c655650

Message:

add mutex statement for concurrent printing

File:

• tests/PRNG.cfa (modified) (4 diffs)

tests/PRNG.cfa

@@ -8 +8 @@
 // Created On       : Wed Dec 29 09:38:12 2021
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Fri Feb 11 08:16:43 2022
-// Update Count     : 328
+// Last Modified On : Sat Feb 12 12:23:57 2022
+// Update Count     : 342
 // 
 
@@ -20 +20 @@
 #include <malloc.h>                                                                             // malloc_stats
 #include <locale.h>                                                                             // setlocale
+#include <mutex_stmt.hfa>
 
 // FIX ME: spurious characters appear in output
@@ -50 +51 @@
         } // for
         double std = sqrt( sum / BUCKETS );
-        sout | "trials"  | TRIALS | "buckets" | BUCKETS
-                 | "min" | min | "max" | max
-                 | "avg" | wd(0,1, avg) | "std" | wd(0,1, std) | "rstd" | wd(0,1, (avg == 0 ? 0.0 : std / avg * 100)) | "%";
+        mutex( sout ) sout | "trials"  | TRIALS | "buckets" | BUCKETS
+                | "min" | min | "max" | max
+                | "avg" | wd(0,1, avg) | "std" | wd(0,1, std) | "rstd" | wd(0,1, (avg == 0 ? 0.0 : std / avg * 100)) | "%";
 } // avgstd
 
+
 uint32_t seed = 1009;
-
 
 thread T1 {};
@@ -94 +95 @@
         unsigned int * buckets = calloc( BUCKETS );                     // too big for task stack
         for ( TRIALS ) {
-                buckets[prng( (thread$ &)th ) % BUCKETS] += 1;  // concurrent
+                buckets[prng( th ) % BUCKETS] += 1;     // concurrent
         } // for
         avgstd( buckets );