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

Allow the checking of definition modules

Browse source
This commit is contained in:
ceriel 1988-01-22 12:04:27 +00:00
parent 9dfa2f6979
commit a7cdd16125
4 changed files with 13 additions and 8 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.30"; static char Version[] = "ACK Modula-2 compiler Version 0.31";

4
lang/m2/comp/options.c
View file

@ -71,7 +71,7 @@ DoOption(text)
} }
} }
} }
else warning_classes = 0; else warning_classes = W_ALWAYS;
break; break;
case 'W': case 'W':
@ -94,7 +94,7 @@ DoOption(text)
} }
} }
} }
else warning_classes = W_OLDFASHIONED|W_STRICT|W_ORDINARY; else warning_classes = W_ALL;
break; break;
case 'M': { /* maximum identifier length */ case 'M': { /* maximum identifier length */

10
lang/m2/comp/program.g
View file

@ -137,7 +137,7 @@ DefinitionModule
df->df_flags |= ForeignFlag; df->df_flags |= ForeignFlag;
if (!Defined) Defined = df; if (!Defined) Defined = df;
CurrentScope->sc_definedby = df; CurrentScope->sc_definedby = df;
if (df->df_idf != DefId) { if (DefId && df->df_idf != DefId) {
error("DEFINITION MODULE name is \"%s\", not \"%s\"", error("DEFINITION MODULE name is \"%s\", not \"%s\"",
df->df_idf->id_text, DefId->id_text); df->df_idf->id_text, DefId->id_text);
} }
@ -239,8 +239,12 @@ ProgramModule
; ;
Module: Module:
DEFINITION { error("Compiling a definition module");
{ fatal("Compiling a definition module"); } open_scope(CLOSEDSCOPE);
state = DEFINITION;
}
DefinitionModule
{ close_scope(SC_CHKFORW); }
| %default | %default
[ [
IMPLEMENTATION { state = IMPLEMENTATION; } IMPLEMENTATION { state = IMPLEMENTATION; }

5
lang/m2/comp/warning.h
View file

@ -20,10 +20,11 @@
#define W_ORDINARY 1 #define W_ORDINARY 1
#define W_STRICT 2 #define W_STRICT 2
#define W_OLDFASHIONED 4 #define W_OLDFASHIONED 4
#define W_ALWAYS 010 /* always given */
#define W_ALL (W_ORDINARY|W_STRICT|W_OLDFASHIONED) #define W_ALL (W_ORDINARY|W_STRICT|W_OLDFASHIONED|W_ALWAYS)
#define W_INITIAL (W_ORDINARY | W_OLDFASHIONED) #define W_INITIAL (W_ORDINARY | W_OLDFASHIONED | W_ALWAYS)
/* The bit mask itself: */ /* The bit mask itself: */
extern int warning_classes; extern int warning_classes;