From: ceriel <none@none>
Date: Mon, 11 Jun 1990 15:17:50 +0000 (+0000)
Subject: fix previous fix
X-Git-Tag: release-5-5~1684
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=39fee04619d671721a34266e034b757622a5adbb;p=ack.git

fix previous fix
---

diff --git a/lang/m2/comp/chk_expr.c b/lang/m2/comp/chk_expr.c
index 8e7f30c42..90da07971 100644
--- a/lang/m2/comp/chk_expr.c
+++ b/lang/m2/comp/chk_expr.c
@@ -37,7 +37,7 @@
 
 extern char *symbol2str();
 extern char *sprint();
-extern arith flt2arith();
+extern arith flt_flt2arith();
 
 STATIC int
 df_error(nd, mess, edf)
diff --git a/lang/m2/comp/type.c b/lang/m2/comp/type.c
index 76bee53aa..26d0dbd1f 100644
--- a/lang/m2/comp/type.c
+++ b/lang/m2/comp/type.c
@@ -726,8 +726,8 @@ RemoveEqual(tpx)
 }
 
 int
-type_or_forward(ptp)
-	t_type **ptp;
+type_or_forward(tp)
+	t_type *tp;
 {
 	/*	POINTER TO IDENTIFIER construction. The IDENTIFIER resides
 		in "dot". This routine handles the different cases.
@@ -748,7 +748,7 @@ type_or_forward(ptp)
 		case D_FORWTYPE:
 			nd = dot2node(0, NULLNODE, df1->df_forw_node);
 			df1->df_forw_node = nd;
-			nd->nd_type = *ptp;
+			nd->nd_type = tp;
 			return 0;
 		default:
 			return 1;
@@ -777,7 +777,7 @@ type_or_forward(ptp)
 	df = define(nd->nd_IDF, CurrentScope, D_FORWTYPE);
 	assert(df->df_kind == D_FORWTYPE);
 	df->df_flags |= D_USED | D_DEFINED;
-	nd->nd_type = *ptp;
+	nd->nd_type = tp;
 	df->df_forw_node = nd;
 	if (df != df1 && (df1->df_kind & (D_TYPE | D_FORWTYPE))) {
 		/*	"df1" refers to a possible identification, but