From 39fee04619d671721a34266e034b757622a5adbb Mon Sep 17 00:00:00 2001 From: ceriel Date: Mon, 11 Jun 1990 15:17:50 +0000 Subject: [PATCH] fix previous fix --- lang/m2/comp/chk_expr.c | 2 +- lang/m2/comp/type.c | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) 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 -- 2.34.1