From: ceriel <none@none>
Date: Wed, 25 Sep 1991 15:04:02 +0000 (+0000)
Subject: Fixed illegal array descriptors
X-Git-Tag: release-5-5~816
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=ce1dba9caca1388351eab365fe13d2f2e4233159;p=ack.git

Fixed illegal array descriptors
---

diff --git a/lang/occam/comp/em.c b/lang/occam/comp/em.c
index 47df1849e..ca6d5f84b 100644
--- a/lang/occam/comp/em.c
+++ b/lang/occam/comp/em.c
@@ -39,12 +39,13 @@ void meswp()
 
 void maxdes()
 {
+	long max = (1L << (8*wz-1)) - 1;
 	C_df_dnam("maxcdes");
-	rom(wz, 0L); rom(wz, -1L); rom(wz, (long) (wz+vz));
+	rom(wz, 0L); rom(wz, max); rom(wz, (long) (wz+vz));
 	C_df_dnam("maxwdes");
-	rom(wz, 0L); rom(wz, -1L); rom(wz, (long) vz);
+	rom(wz, 0L); rom(wz, max); rom(wz, (long) vz);
 	C_df_dnam("maxbdes");
-	rom(wz, 0L); rom(wz, -1L); rom(wz, 1L);
+	rom(wz, 0L); rom(wz, max); rom(wz, 1L);
 }
 
 int new_label(L) register *L;