diff options
Diffstat (limited to 'gcc/m2/gm2-compiler/PCSymBuild.mod')
| -rw-r--r-- | gcc/m2/gm2-compiler/PCSymBuild.mod | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/gcc/m2/gm2-compiler/PCSymBuild.mod b/gcc/m2/gm2-compiler/PCSymBuild.mod index 4db2730..5e44997 100644 --- a/gcc/m2/gm2-compiler/PCSymBuild.mod +++ b/gcc/m2/gm2-compiler/PCSymBuild.mod @@ -257,13 +257,13 @@ END PCStartBuildDefModule ; |------------| |-----------| *) -PROCEDURE PCEndBuildDefModule ; +PROCEDURE PCEndBuildDefModule (tokno: CARDINAL) ; VAR NameStart, NameEnd : CARDINAL ; BEGIN Assert(CompilingDefinitionModule()) ; - CheckForUnknownInModule ; + CheckForUnknownInModule (tokno) ; EndScope ; PopT(NameEnd) ; PopT(NameStart) ; @@ -325,13 +325,13 @@ END PCStartBuildImpModule ; |------------| |-----------| *) -PROCEDURE PCEndBuildImpModule ; +PROCEDURE PCEndBuildImpModule (tokno: CARDINAL) ; VAR NameStart, NameEnd : Name ; BEGIN Assert(CompilingImplementationModule()) ; - CheckForUnknownInModule ; + CheckForUnknownInModule (tokno) ; EndScope ; PopT(NameEnd) ; PopT(NameStart) ; @@ -398,13 +398,13 @@ END PCStartBuildProgModule ; |------------| |-----------| *) -PROCEDURE PCEndBuildProgModule ; +PROCEDURE PCEndBuildProgModule (tokno: CARDINAL) ; VAR NameStart, NameEnd : Name ; BEGIN Assert(CompilingProgramModule()) ; - CheckForUnknownInModule ; + CheckForUnknownInModule (tokno) ; EndScope ; PopT(NameEnd) ; PopT(NameStart) ; @@ -468,12 +468,12 @@ END PCStartBuildInnerModule ; |------------| |-----------| *) -PROCEDURE PCEndBuildInnerModule ; +PROCEDURE PCEndBuildInnerModule (tokno: CARDINAL) ; VAR NameStart, NameEnd : Name ; BEGIN - CheckForUnknownInModule ; + CheckForUnknownInModule (tokno) ; EndScope ; PopT(NameEnd) ; PopT(NameStart) ; |