Updated with previous fix to Bit2Word.pm

Bug fix for MATH.pm.


git-svn-id: https://redoubt.ligo-wa.caltech.edu/svn/advLigoRTS/branches/branch-3.2@4821 6dcd42c9-f523-4c6d-aada-af552506706e

NEWS

 ==================================================================================================
+Changes for 3.2.4
+- Bug Fix for MATH.pm: improper case when EPICS part is used as input ie produced plocalepics
+  instead of proper pLocalEpics variable.
+==================================================================================================
+==================================================================================================
+Changes for 3.2.3
+==================================================================================================
+- Bug Fix for FRS ticket 11066: Bit2Word.pm
+==================================================================================================
 Changes for 3.2.2
 ==================================================================================================
 - Bug Fixes:

src/epics/util/lib/Bit2Word.pm

@@ -75,7 +75,7 @@ sub frontEndCode {
         for (0 .. $::partInCnt[$i]-2) {
            $calcExp .= "\t$::fromExp[$_],\n";
         }
-        $calcExp .= "\t$::fromExp[$partInCnt[$i]-1]\n";
+        $calcExp .= "\t$::fromExp[$::partInCnt[$i]-1]\n";
         $calcExp .= "};\n";
         $calcExp .= "\L$::xpartName[$i] = 0;\n";
         $calcExp .= "for (ii = 0; ii < $::partInCnt[$i]; ii++)\n{\n";

src/epics/util/lib/MATH.pm

@@ -77,7 +77,7 @@ sub frontEndCode {
         if ($op eq "square") { 
 	return <<SQEND;
 // MATH FUNCTION - SQUARE
-\L$::xpartName[$i] = $::fromExp[0] * $::fromExp[0];
+\L$::xpartName[$i] \E= $::fromExp[0] * $::fromExp[0];
 SQEND
         }
 
@@ -85,7 +85,7 @@ SQEND
 	return <<SQRTEND;
 // MATH FUNCTION - SQUARE ROOT
 if ($::fromExp[0] > 0.0) {
-	\L$::xpartName[$i] = lsqrt($::fromExp[0]);
+	\L$::xpartName[$i] \E= lsqrt($::fromExp[0]);
 }
 else {
 	\L$::xpartName[$i] = 0.0;
@@ -97,7 +97,7 @@ SQRTEND
 	return <<RECEND;
 // MATH FUNCTION - RECIPROCAL
 if ($::fromExp[0] != 0.0) {
-	\L$::xpartName[$i] = 1.0/$::fromExp[0];
+	\L$::xpartName[$i] \E= 1.0/$::fromExp[0];
 }
 else {
 	\L$::xpartName[$i] = 0.0;
@@ -109,7 +109,7 @@ RECEND
 	return <<MODEND;
 // MATH FUNCTION - MODULO
 if ((int) $::fromExp[1] != 0) {
-	\L$::xpartName[$i] = (double) ((int)$::fromExp[0] % (int)$::fromExp[1]);
+	\L$::xpartName[$i] \E= (double) ((int)$::fromExp[0] % (int)$::fromExp[1]);
 }
 else {
 	\L$::xpartName[$i] = 0.0;
@@ -120,7 +120,7 @@ MODEND
         if ($op eq "log10") { 
 return <<LOGEND;
 // MATH FUNCTION - LOG10
-	\L$::xpartName[$i] = llog10($::fromExp[0]);
+	\L$::xpartName[$i] \E= llog10($::fromExp[0]);
 LOGEND
         }
 }