0eaee4abb1
Currently, when a new thread needs to use the RANDOM_NUMBER intrinsic, the per-thread PRNG state is initialized by copying the master state and then jumping forwards N*2**128 entries in the stream so that the PRNG streams for different threads don't alias each other, where N is the number of threads that have so far initialized the PRNG. With this patch the master state itself is jumped forwards once each time a new thread initializes the PRNG, thus obviating the need to jump through all the N-1 previous streams. Effectively turning an O(N) algorithm into an O(1) one. Regtested on x86_64-pc-linux-gnu. libgfortran/ChangeLog: 2019-09-05 Janne Blomqvist <jb@gcc.gnu.org> * intrinsics/random.c (master_init): Replace with master_state.init. (njumps): Remove variable. (master_state): Make instance of struct prng_state. (init_rand_state): When jumping, update the master_state once instead of keeping track of how many jumps need to be done. (SZU64): Modify to handle new master_state. (SZ): Likewise. (random_seed_i4): Likewise. (random_seed_i8): Likewise. From-SVN: r275397 |
||
|---|---|---|
| .. | ||
| caf | ||
| config | ||
| generated | ||
| ieee | ||
| intrinsics | ||
| io | ||
| m4 | ||
| runtime | ||
| acinclude.m4 | ||
| aclocal.m4 | ||
| c99_protos.h | ||
| ChangeLog | ||
| ChangeLog-2002 | ||
| ChangeLog-2003 | ||
| ChangeLog-2004 | ||
| ChangeLog-2005 | ||
| ChangeLog-2006 | ||
| ChangeLog-2007 | ||
| ChangeLog-2008 | ||
| ChangeLog-2009 | ||
| ChangeLog-2010 | ||
| ChangeLog-2011 | ||
| ChangeLog-2012 | ||
| ChangeLog-2013 | ||
| ChangeLog-2014 | ||
| ChangeLog-2015 | ||
| ChangeLog-2016 | ||
| ChangeLog-2017 | ||
| ChangeLog-2018 | ||
| config.h.in | ||
| configure | ||
| configure.ac | ||
| configure.host | ||
| gfortran.map | ||
| ISO_Fortran_binding.h | ||
| kinds-override.h | ||
| libgfortran.h | ||
| libgfortran.spec.in | ||
| libtool-version | ||
| Makefile.am | ||
| Makefile.in | ||
| mk-kinds-h.sh | ||
| mk-sik-inc.sh | ||
| mk-srk-inc.sh | ||