Skip to content
Snippets Groups Projects

Adding Noise module parameter that will allow the designer to specify a seed in order to re-run with the same RNG, also initializing the RNG with a tsc based seed by default. Updating some language around seeding the noise part.

Merged Adding Noise module parameter that will allow the designer to specify a seed in order to re-run with the same RNG, also initializing the RNG with a tsc based seed by default. Updating some language around seeding the noise part.
ezekiel.dohmen/advligorts:branch-4.2-noise-rng into branch-4.2
Merged Ezekiel Dohmen requested to merge ezekiel.dohmen/advligorts:branch-4.2-noise-rng into branch-4.2
Compare
and
Show latest version
1 file
+ 2
− 2
Compare changes
  • Side-by-side
  • Inline
src/epics/util/lib/Noise.pm
+ 2
− 2
@@ -39,7 +39,7 @@ sub printFrontEndVars {
my ($i) = @_;
print ::OUT "static double \L$::xpartName[$i];\n";
if ($printed) { return; }
print ::OUT "static unsigned long noise_seed = " . $::noiseGeneratorSeed . "ULL;\n";
print ::OUT "static unsigned long noise_seed = " . $::noiseGeneratorSeed . "UL;\n";
print ::OUT << "END";
static unsigned long noise_u = 0, noise_v = 0, noise_w = 0;
@@ -89,7 +89,7 @@ sub frontEndInitCode {
$calcExp .= "if (noise_seed == 0) {\n";
$calcExp .= " rdtscl(noise_seed);\n";
$calcExp .= " rdtscl(noise_w);\n";
$calcExp .= " noise_seed |= (noise_w << 32ULL);\n";
$calcExp .= " noise_seed |= (noise_w << 32UL);\n";
$calcExp .= "}\n";
$calcExp .= "noise_set_seed(noise_seed);\n";