From 3e422a42457c0366bcd4a7bd00f397a6df5bbdc7 Mon Sep 17 00:00:00 2001
From: Ezekiel Dohmen <ezekiel.dohmen@ligo.org>
Date: Fri, 1 Apr 2022 15:11:54 -0700
Subject: [PATCH] UL type so using UL
---
src/epics/util/lib/Noise.pm | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/epics/util/lib/Noise.pm b/src/epics/util/lib/Noise.pm
index 66ac2e1fb..73e824ce6 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";
--
GitLab