Changeset 29702ad for tests/PRNG.cfa

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:

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

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;