A different way of detecting conformant arrays

1987-07-22 17:02:54 +00:00
parent d57b630002
commit 026a3b5011
3 changed files with 10 additions and 14 deletions
--- a/lang/m2/comp/declar.g
+++ b/lang/m2/comp/declar.g
@@ -143,7 +143,10 @@ FormalType(struct type **ptp;)
 	extern arith ArrayElSize();
 } :
 	ARRAY OF qualtype(ptp)
-		{ register struct type *tp = construct_type(T_ARRAY, NULLTYPE);
+		{ /* index type of conformant array is "CARDINAL".
+		     Recognize a conformant array by size 0.
+		  */
+		  register struct type *tp = construct_type(T_ARRAY, card_type);

 		  tp->arr_elem = *ptp;
 		  *ptp = tp;