Changeset d2ad151 for tests

Timestamp:

Nov 20, 2022, 10:24:14 PM (3 years ago)

Author:

Peter A. Buhr <pabuhr@…>

Branches:

ADT, ast-experimental, master

Children:

910e1d0

Parents:

25b0fde

Message:

major update of PRNG

Location:

tests

Files:

• .expect/PRNG.txt (deleted)
• .expect/PRNG.x64.txt (added)
• .expect/nested_function.txt (modified) (1 diff)
• PRNG.cfa (modified) (7 diffs)
• concurrent/barrier/generation.cfa (modified) (2 diffs)
• concurrent/barrier/order.cfa (modified) (1 diff)
• concurrent/once.cfa (modified) (1 diff)
• concurrent/readyQ/leader_spin.cfa (modified) (1 diff)
• io/away_fair.cfa (modified) (1 diff)
• io/comp_basic.cfa (modified) (1 diff)
• io/comp_fair.cfa (modified) (1 diff)

tests/.expect/nested_function.txt

@@ -1 @@
-total 105
+total 80

tests/PRNG.cfa

@@ -8 +8 @@
 // Created On       : Wed Dec 29 09:38:12 2021
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Sat Apr  9 15:21:14 2022
-// Update Count     : 344
+// Last Modified On : Sun Nov 20 22:17:35 2022
+// Update Count     : 377
 // 
 
@@ -22 +22 @@
 #include <mutex_stmt.hfa>
 
+#ifdef __x86_64__                                                                               // 64-bit architecture
+#define PRNG PRNG64
+#else                                                                                                   // 32-bit architecture
+#define PRNG PRNG32
+#endif // __x86_64__
+
 #ifdef TIME                                                                                             // use -O2 -nodebug
 #define STARTTIME start = timeHiRes()
@@ -54 +60 @@
 
 
-uint32_t seed = 1009;
+unsigned int seed = 1009;
 
 thread T1 {};
@@ -158 +164 @@
 #if 1
         PRNG prng;
+
         if ( seed != 0 ) set_seed( prng, seed );
 
@@ -164 +171 @@
         for ( 20 ) {
                 sout | wd(13, prng( prng )) | nonl;                             // cascading => side-effect functions called in arbitary order
-                sout | wd(10, prng( prng, 5 )) | nonl;
-                sout | wd(13, prng( prng, 0, 5 ));
+                sout | wd(10, prng( prng, 5z )) | nonl;
+                sout | wd(13, prng( prng, 0, 5z ));
         } // for
         sout | sepEnable;
@@ -199 +206 @@
         for ( 20 ) {
                 sout | wd(13, prng()) | nonl;                                   // cascading => side-effect functions called in arbitary order
-                sout | wd(10, prng( 5 )) | nonl;
-                sout | wd(13, prng( 0, 5 ));
+                sout | wd(10, prng( 5z )) | nonl;
+                sout | wd(13, prng( 0, 5z ));
         } // for
         sout | sepEnable;
@@ -235 +242 @@
         for ( 20 ) {
                 sout | wd(13, prng( th )) | nonl;                               // cascading => side-effect functions called in arbitary order
-                sout | wd(10, prng( th, 5 )) | nonl;
-                sout | wd(13, prng( th, 0, 5 ));
+                sout | wd(10, prng( th, 5z )) | nonl;
+                sout | wd(13, prng( th, 0, 5z ));
         } // for
         sout | sepEnable;

tests/concurrent/barrier/generation.cfa

@@ -37 +37 @@
                 for(c; 'A' ~= 'Z') {
                         // Yield for chaos
-                        yield(prng(this, 10));
+                        yield( (unsigned)prng(this, 10) );
 
                         // Print the generation, no newline because
@@ -43 +43 @@
 
                         // Yield again for more chaos
-                        yield(prng(this, 10));
+                        yield( (unsigned)prng(this, 10) );
 
                         // Block on the barrier

tests/concurrent/barrier/order.cfa

@@ -37 +37 @@
         for(l; NUM_LAPS) {
                 // Yield for chaos
-                yield(prng(this, 10));
+                yield( (unsigned)prng(this, 10) );
 
                 // Block and what order we arrived

tests/concurrent/once.cfa

@@ -30 +30 @@
 
                 // sometime yields
-                yield(prng(this, 3));
+                yield( (unsigned)prng(this, 3) );
         }
 }

tests/concurrent/readyQ/leader_spin.cfa

@@ -26 +26 @@
 }
 
-PRNG lead_rng;
+PRNG64 lead_rng;
 volatile unsigned leader;
 volatile size_t lead_idx;
 
-const unsigned nthreads = 17;
-const unsigned stop_count = 327;
+const uint64_t nthreads = 17;
+const uint64_t stop_count = 327;
 
 thread$ * the_main;

tests/io/away_fair.cfa

@@ -67 +67 @@
                 #endif
 
-                yield( prng( this, 15 ) );
+                yield( (unsigned)prng( this, 15 ) );
 
                 #if CFA_HAVE_LINUX_IO_URING_H

tests/io/comp_basic.cfa

@@ -58 +58 @@
                 block( globals.bar );
 
-                yield( prng( this, 15 ) );
+                yield( (unsigned)prng( this, 15 ) );
 
                 unsigned i = __atomic_add_fetch( &counter, 1, __ATOMIC_SEQ_CST );

tests/io/comp_fair.cfa

@@ -78 +78 @@
                 block( globals.bar );
 
-                yield( prng( this, 15 ) );
+                yield( (unsigned)prng( this, 15 ) );
 
                 unsigned i = __atomic_add_fetch( &counter, 1, __ATOMIC_SEQ_CST );