diff options
Diffstat (limited to 'gcc/m2/gm2-compiler/P3SymBuild.mod')
| -rw-r--r-- | gcc/m2/gm2-compiler/P3SymBuild.mod | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/m2/gm2-compiler/P3SymBuild.mod b/gcc/m2/gm2-compiler/P3SymBuild.mod index b0bb160..8d8e12f 100644 --- a/gcc/m2/gm2-compiler/P3SymBuild.mod +++ b/gcc/m2/gm2-compiler/P3SymBuild.mod @@ -117,13 +117,13 @@ END P3StartBuildDefModule ; |------------| |-----------| *) -PROCEDURE P3EndBuildDefModule ; +PROCEDURE P3EndBuildDefModule (tokno: CARDINAL) ; VAR NameStart, NameEnd : CARDINAL ; BEGIN Assert(CompilingDefinitionModule()) ; - CheckForUnknownInModule ; + CheckForUnknownInModule (tokno) ; EndScope ; M2StackSpell.Pop ; PopT(NameEnd) ; @@ -187,13 +187,13 @@ END P3StartBuildImpModule ; |------------| |-----------| *) -PROCEDURE P3EndBuildImpModule ; +PROCEDURE P3EndBuildImpModule (tokno: CARDINAL) ; VAR NameStart, NameEnd : Name ; BEGIN Assert(CompilingImplementationModule()) ; - CheckForUnknownInModule ; + CheckForUnknownInModule (tokno) ; EndScope ; M2StackSpell.Pop ; PopT(NameEnd) ; @@ -262,13 +262,13 @@ END P3StartBuildProgModule ; |------------| |-----------| *) -PROCEDURE P3EndBuildProgModule ; +PROCEDURE P3EndBuildProgModule (tokno: CARDINAL) ; VAR NameStart, NameEnd : Name ; BEGIN Assert(CompilingProgramModule()) ; - CheckForUnknownInModule ; + CheckForUnknownInModule (tokno) ; EndScope ; PopT(NameEnd) ; PopT(NameStart) ; @@ -334,12 +334,12 @@ END StartBuildInnerModule ; |------------| |-----------| *) -PROCEDURE EndBuildInnerModule ; +PROCEDURE EndBuildInnerModule (tokno: CARDINAL) ; VAR NameStart, NameEnd : Name ; BEGIN - CheckForUnknownInModule ; + CheckForUnknownInModule (tokno) ; EndScope ; PopT(NameEnd) ; PopT(NameStart) ; |