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

fixed another POINTER TO IDENT problem

Browse source
This commit is contained in:
ceriel 1989-01-19 10:58:43 +00:00
parent b83fca4445
commit d55d4bb69f
2 changed files with 11 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -1 +1 @@
static char Version[] = "ACK Modula-2 compiler Version 0.44"; static char Version[] = "ACK Modula-2 compiler Version 0.45";

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

@ -727,12 +727,20 @@ type_or_forward(ptp)
/* Either a Module or a Type, but in both cases defined /* Either a Module or a Type, but in both cases defined
in this scope, so this is the correct identification in this scope, so this is the correct identification
*/ */
if (df1->df_kind == D_FORWTYPE) { switch(df1->df_kind) {
case D_FORWARD:
FreeNode(df1->for_node);
df1->df_kind = D_FORWTYPE;
df1->df_forw_node = 0;
/* Fall through */
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 = *ptp;
return 0;
default:
return 1;
} }
return 1;
} }
nd = dot2leaf(0); nd = dot2leaf(0);
if ((df1 = lookfor(nd, CurrVis, 0, D_USED))->df_kind == D_MODULE) { if ((df1 = lookfor(nd, CurrVis, 0, D_USED))->df_kind == D_MODULE) {