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

bug fixes, name changes

Browse Source
This commit is contained in:
ceriel
1987-07-16 19:51:40 +00:00
parent 4804ab14b8
commit e04230a126
17 changed files with 85 additions and 82 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lang/m2/comp/def.c
View File

@@ -74,7 +74,7 @@ MkDef(id, scope, kind)
df->df_idf = id;
df->df_scope = scope;
df->df_kind = kind;
df->next = id->id_def;
df->df_next = id->id_def;
id->id_def = df;
/* enter the definition in the list of definitions in this scope
@@ -211,13 +211,13 @@ RemoveFromIdList(df)
register struct idf *id = df->df_idf;
register struct def *df1;
if ((df1 = id->id_def) == df) id->id_def = df->next;
if ((df1 = id->id_def) == df) id->id_def = df->df_next;
else {
while (df1->next != df) {
assert(df1->next != 0);
df1 = df1->next;
while (df1->df_next != df) {
assert(df1->df_next != 0);
df1 = df1->df_next;
}
df1->next = df->next;
df1->df_next = df->df_next;
}
}