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

minor fixes

Browse Source
This commit is contained in:
ceriel
1986-12-09 17:41:06 +00:00
parent 7752bb27f6
commit fe2e67d1c6
12 changed files with 63 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lang/m2/comp/defmodule.c
View File

@@ -22,6 +22,8 @@
long sys_filesize();
#endif
struct idf *DefId;
STATIC
GetFile(name)
char *name;
@@ -56,7 +58,6 @@ GetDefinitionModule(id, incr)
struct def *df;
static int level;
struct scopelist *vis;
int didread = 0;
level += incr;
df = lookup(id, GlobalScope, 1);
@@ -69,7 +70,7 @@ GetDefinitionModule(id, incr)
else {
open_scope(CLOSEDSCOPE);
if (!is_anon_idf(id) && GetFile(id->id_text)) {
didread = 1;
DefId = id;
DefModule();
if (level == 1) {
/* The module is directly imported by
@@ -95,9 +96,6 @@ GetDefinitionModule(id, incr)
}
df = lookup(id, GlobalScope, 1);
if (! df) {
if (didread) {
error("did not read a DEFINITION MODULE for \"%s\"", id->id_text);
}
df = MkDef(id, GlobalScope, D_ERROR);
df->df_type = error_type;
df->mod_vis = vis;