diff --git a/src/epics/util/lib/Noise.pm b/src/epics/util/lib/Noise.pm index 66ac2e1fbd36cb2460e9528d54be11ab91561ba7..73e824ce633b7a8bb7197a5b7786d635565e6779 100644 --- 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";