From: ceriel <none@none>
Date: Mon, 21 Jul 1986 09:53:44 +0000 (+0000)
Subject: Some changes needed for the new 4-4 Pascal compiler.
X-Git-Tag: release-5-5~5265
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=3c76cbaa1e05f83c6ee1c3293f98ba09a58bc60a;p=ack.git

Some changes needed for the new 4-4 Pascal compiler.
---

diff --git a/util/ack/pc/em_pc.c b/util/ack/pc/em_pc.c
index 921e74726..ffda726d9 100644
--- a/util/ack/pc/em_pc.c
+++ b/util/ack/pc/em_pc.c
@@ -49,12 +49,15 @@ char    *eflag;
 char    *wflag;
 
 int     sizes[sz_last+1] = {
-	2,      /* sz_addr */
+	4,      /* sz_addr */
 	8,      /* sz_real */
 	0,      /* sz_head */
 	512,    /* sz_buff */
 	4096,   /* sz_mset */
-	2,      /* sz_iset */
+	4,      /* sz_iset */
+	4,      /* sz_word */
+	4,      /* sz_int */
+	4,      /* sz_long */
 };
 
 #define CALLSIZE                60
@@ -193,12 +196,17 @@ initsizes(f) FILE *f; {
 		case 'b': sz_buff = i; continue;
 		case 'm': sz_mset = i; continue;
 		case 'j': sz_iset = i; continue;
-		case 'w':
-		case 'i': if (i == 2) continue; break;
-		case 'l': if (i == 4) continue; break;
+		case 'w': sz_word = i; continue;
+		case 'i': sz_int  = i; continue;
+		case 'l': sz_long = i; continue;
 		}
 		fatal("bad V-flag %s",vvflag);
 	}
+	if (sz_word != sz_int ||
+	    (sz_int != 2 && sz_int != 4) ||
+	    (sz_long != 4)) {
+		fatal("bad V-flag %s",vvflag);
+	}
 	if (sz_head == 0)
 		sz_head = 6*sz_word + 2*sz_addr;
 	for (i = 0; i <= sz_last; i++)