UL type so using UL

3e422a42 · Ezekiel Dohmen · 9c4ac3c5 · 3e422a42
Commit 3e422a42 authored 2 years ago by Ezekiel Dohmen
--- a/src/epics/util/lib/Noise.pm
+++ b/src/epics/util/lib/Noise.pm
@@ -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";