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

too many changes: some cosmetic; some for 2/4; some for added options

Browse Source
This commit is contained in:
ceriel
1988-03-21 17:22:26 +00:00
parent f93981d377
commit a13429db0c
6 changed files with 184 additions and 117 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -52,7 +52,9 @@ EnterType(name, type)
"type" in the Current Scope.
*/
Enter(name, D_TYPE, type, 0);
if (! Enter(name, D_TYPE, type, 0)) {
assert(0);
}
}
EnterEnumList(Idlist, type)
@@ -158,7 +160,7 @@ EnterVarList(Idlist, type, local)
df->var_name = df->df_idf->id_text;
}
else {
sprint(buf,"%s_%s", sc->sc_scope->sc_name,
sprint(buf,"_%s_%s", sc->sc_scope->sc_name,
df->df_idf->id_text);
df->var_name = Salloc(buf,
(unsigned)(strlen(buf)+1));
@@ -473,7 +475,7 @@ node_error(FromId,"identifier \"%s\" does not represent a module",module_name);
module_name);
df->df_flags |= D_QEXPORTED;
}
DoImport(df, CurrentScope);
if (! DoImport(df, CurrentScope)) assert(0);
}
if (!forwflag) FreeNode(FromId);
@@ -493,10 +495,10 @@ EnterImportList(idlist, local)
f = file_info;
for (; idlist; idlist = idlist->nd_left) {
DoImport(local ?
if (! DoImport(local ?
ForwDef(idlist, sc) :
GetDefinitionModule(idlist->nd_IDF, 1),
CurrentScope);
CurrentScope)) assert(0);
file_info = f;
}
}