From aff96250e70bf4435a95c7930e74473607e39f67 Mon Sep 17 00:00:00 2001
From: Kirk McKusick <mckusick@ucbvax.Berkeley.EDU>
Date: Fri, 11 Jan 1985 02:42:16 -0800
Subject: [PATCH] remove -r1.13 conformant array productions for this release;
 hopefully they will be properly implemented some day

SCCS-vsn: usr.bin/pascal/src/pas.y 2.2
---
 usr/src/usr.bin/pascal/src/pas.y | 29 +++--------------------------
 1 file changed, 3 insertions(+), 26 deletions(-)

diff --git a/usr/src/usr.bin/pascal/src/pas.y b/usr/src/usr.bin/pascal/src/pas.y
index bbaed64ae0..e99c7f5c41 100644
--- a/usr/src/usr.bin/pascal/src/pas.y
+++ b/usr/src/usr.bin/pascal/src/pas.y
@@ -88,7 +88,7 @@
 
 /* Copyright (c) 1979 Regents of the University of California */
 
-/* static	char sccsid[] = "@(#)pas.y 2.1 %G%"; */
+/* static	char sccsid[] = "@(#)pas.y 2.2 %G%"; */
 
 /*
  * The following line marks the end of the yacc
@@ -98,7 +98,7 @@
 ##
 /* Copyright (c) 1979 Regents of the University of California */
 
-static	char sccsid[] = "@(#)pas.y 2.1 %G%";
+static	char sccsid[] = "@(#)pas.y 2.2 %G%";
 
 #include "whoami.h"
 #include "0.h"
@@ -320,7 +320,7 @@ param:
 	id_list ':' type
 		= $$.tr_entry = tree3(T_PVAL, (int) fixlist($1.tr_entry), $3.tr_entry);
 		|
-	YVAR id_list ':' vtype
+	YVAR id_list ':' type
 		= $$.tr_entry = tree3(T_PVAR, (int) fixlist($2.tr_entry), $4.tr_entry);
 		|
 	YFUNCTION id_list params ftype
@@ -340,28 +340,6 @@ ftype:
 	/* lambda */
 		= $$.tr_entry = TR_NIL;
 		;
-vtype:
-	type_id
-		|
-	c_ary
-		;
-c_ary:
-	YARRAY '[' i_type_list ']' YOF vtype
-		= $$.tr_entry = tree4(T_TYCARY, lineof($1.i_entry),
-				fixlist($3.tr_entry), $6.tr_entry);
-		;
-i_type_list:
-	i_type
-		= $$.tr_entry = newlist($1.tr_entry);
-		|
-	i_type_list ';' i_type
-		= $$.tr_entry = addlist($1.tr_entry, $3.tr_entry);
-		;
-i_type:
-	YID YDOTDOT YID ':' type_id
-		= $$.tr_entry = tree5(T_TYCRANG,lineof($2.i_entry), $1.tr_entry,
-				$3.tr_entry, $5.tr_entry);
-		;
 param_list:
 	param
 		= $$.tr_entry = newlist($1.tr_entry);
@@ -369,7 +347,6 @@ param_list:
 	param_list ';' param
 		= $$.tr_entry = addlist($1.tr_entry, $3.tr_entry);
 		;
-
 
 /*
  * CONSTANTS
-- 
2.20.1