minor fixes

1986-12-09 17:41:06 +00:00
parent 7752bb27f6
commit fe2e67d1c6
12 changed files with 63 additions and 57 deletions
--- a/lang/m2/comp/declar.g
+++ b/lang/m2/comp/declar.g
@@ -46,7 +46,12 @@ ProcedureHeading(struct def **pdf; int type;)
 	PROCEDURE IDENT
 			{ *pdf = DeclProc(type, dot.TOK_IDF); }
 	FormalParameters(&pr, &parmaddr, &tp)?
-			{ CheckWithDef(*pdf, proc_type(tp, pr, parmaddr)); }
+			{ CheckWithDef(*pdf, proc_type(tp, pr, parmaddr));
+			  if (tp && IsConstructed(tp)) {
+warning(W_STRICT, "procedure \"%s\" has a constructed result type",
+	(*pdf)->df_idf->id_text);
+			  }
+			}
 ;

 block(struct node **pnd;) :