From: ceriel <none@none>
Date: Wed, 19 Aug 1987 15:27:15 +0000 (+0000)
Subject: minor adaption: index array with int, not long
X-Git-Tag: release-5-5~3880
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=9bcd5473adc1e0c590296e6ec58c236b1d8d8ab8;p=ack.git

minor adaption: index array with int, not long
---

diff --git a/util/opt/peephole.c b/util/opt/peephole.c
index fdbc8af39..059517ec8 100644
--- a/util/opt/peephole.c
+++ b/util/opt/peephole.c
@@ -405,7 +405,7 @@ eval_t compute(pexp) register expr_p pexp; {
 			    leaf2.e_v.e_con < 0 ||
 			    leaf2.e_v.e_con >= MAXROM)
 				return(undefres);
-			res.e_v.e_con = sp->s_rom[leaf2.e_v.e_con];
+			res.e_v.e_con = sp->s_rom[(int)(leaf2.e_v.e_con)];
 			break;
 		} else
 			return(undefres);