Back to two 32 bit tsc calls

25713063 · Ezekiel Dohmen · a806fefe · 25713063
Commit 25713063 authored 2 years ago by Ezekiel Dohmen
--- a/src/epics/util/lib/Noise.pm
+++ b/src/epics/util/lib/Noise.pm
@@ -93,7 +93,9 @@ sub frontEndInitCode {
    if ($init_code_printed) { return ""; }
    my $calcExp  =  "\L$::xpartName[$i] = 0;\n";
    $calcExp    .=  "if (noise_seed == 0) {\n";
-    $calcExp    .=  "    rdtscll(noise_seed);\n";
+    $calcExp    .=  "    rdtscl(noise_seed);\n";
+    $calcExp    .=  "    rdtscl(noise_w);\n";
+    $calcExp    .=  "    noise_seed |= (noise_w << 32ULL)\n";
    $calcExp    .=  "}\n";
    $calcExp    .=  "noise_set_seed(noise_seed);\n";