godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix: got into infinite loop

Browse Source
This commit is contained in:
ceriel 1995-05-02 12:23:28 +00:00
parent 3a1dc8fd59
commit b16b1c714e
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lang/m2/comp/enter.c
View File

@ -254,7 +254,15 @@ ImportEffects(idef, scope, flag)
register t_def *df = idef; register t_def *df = idef;
register t_type *tp; register t_type *tp;
while (df->df_kind & D_IMPORTED) { while ((df->df_kind & D_IMPORTED) && df->imp_def != df) {
/* The second condition could occur on some (erroneous and
obscure) input such as:
IMPLEMENTATION MODULE Test;
FROM X IMPORT XType, XType;
END Test.
when X does not exist.
*/
df = df->imp_def; df = df->imp_def;
} }