d0p1/ack
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

fix previous fix

Browse source
This commit is contained in:
ceriel 1990-06-11 15:17:50 +00:00
parent f234f061a1
commit 39fee04619
2 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lang/m2/comp/chk_expr.c
View file

@ -37,7 +37,7 @@
extern char *symbol2str(); extern char *symbol2str();
extern char *sprint(); extern char *sprint();
extern arith flt2arith(); extern arith flt_flt2arith();
STATIC int STATIC int
df_error(nd, mess, edf) df_error(nd, mess, edf)

8
lang/m2/comp/type.c
View file

@ -726,8 +726,8 @@ RemoveEqual(tpx)
} }
int int
type_or_forward(ptp) type_or_forward(tp)
t_type **ptp; t_type *tp;
{ {
/* POINTER TO IDENTIFIER construction. The IDENTIFIER resides /* POINTER TO IDENTIFIER construction. The IDENTIFIER resides
in "dot". This routine handles the different cases. in "dot". This routine handles the different cases.
@ -748,7 +748,7 @@ type_or_forward(ptp)
case D_FORWTYPE: case D_FORWTYPE:
nd = dot2node(0, NULLNODE, df1->df_forw_node); nd = dot2node(0, NULLNODE, df1->df_forw_node);
df1->df_forw_node = nd; df1->df_forw_node = nd;
nd->nd_type = *ptp; nd->nd_type = tp;
return 0; return 0;
default: default:
return 1; return 1;
@ -777,7 +777,7 @@ type_or_forward(ptp)
df = define(nd->nd_IDF, CurrentScope, D_FORWTYPE); df = define(nd->nd_IDF, CurrentScope, D_FORWTYPE);
assert(df->df_kind == D_FORWTYPE); assert(df->df_kind == D_FORWTYPE);
df->df_flags |= D_USED | D_DEFINED; df->df_flags |= D_USED | D_DEFINED;
nd->nd_type = *ptp; nd->nd_type = tp;
df->df_forw_node = nd; df->df_forw_node = nd;
if (df != df1 && (df1->df_kind & (D_TYPE | D_FORWTYPE))) { if (df != df1 && (df1->df_kind & (D_TYPE | D_FORWTYPE))) {
/* "df1" refers to a possible identification, but /* "df1" refers to a possible identification, but