From d3fce00c03ebc19c6f129fb4e62c609bd55bec58 Mon Sep 17 00:00:00 2001
From: Ralph Lange <Ralph.Lange@bessy.de>
Date: Wed, 9 Aug 2000 13:51:08 +0000
Subject: [PATCH] MODULO bug (range was limited to short int) fixed.

---
 src/libCom/calc/calcPerform.c | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/libCom/calc/calcPerform.c b/src/libCom/calc/calcPerform.c
index 729bed3d3..9984aae42 100644
--- a/src/libCom/calc/calcPerform.c
+++ b/src/libCom/calc/calcPerform.c
@@ -128,7 +128,6 @@ epicsShareFunc long epicsShareAPI
 	double *pstacktop;	/* stack of values	*/
 	double		stack[80];
 	short		temp1;
-	short	i;
 	double 		*top;
 	int 		itop;		/* integer top value	*/
 	int 		inexttop;	/* ineteger next to top value 	*/
@@ -140,7 +139,7 @@ epicsShareFunc long epicsShareAPI
 	pstacktop = &stack[0];
 
 /* DEBUG print statements
-for (i=0;i<184;i++){
+for (short i=0;i<184;i++){
 printf ("%d_",post[i]);
 if ( post[i] == END_STACK ) break;
 if ( post[i] == 71 ) i=i+8;
@@ -331,8 +330,7 @@ printf ("*FINISHED*\n");
 			inexttop = (int)*(pstacktop+1);
 			if (inexttop == 0)
 				return(-1);
-			i =  itop % inexttop;
-			*pstacktop = i;
+			*pstacktop =  itop % inexttop;
 			break;
 
 		case REL_OR: