Year date changes for Modula-2 source tree.

[gcc.git] / gcc / m2 / gm2-compiler / M2Comp.mod

diff --git a/gcc/m2/gm2-compiler/M2Comp.mod b/gcc/m2/gm2-compiler/M2Comp.mod
index b5dca0466de51b65575c4b26409b467d42344cc2..09adf6806173ea86d48edd4d53371a14d40231f1 100644 (file)
--- a/gcc/m2/gm2-compiler/M2Comp.mod
+++ b/gcc/m2/gm2-compiler/M2Comp.mod
@@ -1,6 +1,6 @@
 (* M2Comp.mod continually calls the compiler for every source file.
 
-Copyright (C) 2001-2021 Free Software Foundation, Inc.
+Copyright (C) 2001-2022 Free Software Foundation, Inc.
 Contributed by Gaius Mulley <gaius.mulley@southwales.ac.uk>.
 
 This file is part of GNU Modula-2.
@@ -35,7 +35,9 @@ FROM M2FileName IMPORT CalculateFileName ;
 FROM M2Preprocess IMPORT PreprocessModule ;
 FROM libc IMPORT exit ;
 
-FROM M2Error IMPORT ErrorStringAt, ErrorStringAt2, ErrorStringsAt2, WriteFormat0, FlushErrors, FlushWarnings ;
+FROM M2Error IMPORT ErrorStringAt, ErrorStringAt2, ErrorStringsAt2,
+                    WriteFormat0, FlushErrors, FlushWarnings, ResetErrorScope ;
+
 FROM M2MetaError IMPORT MetaErrorString1, MetaError0, MetaError1 ;
 FROM FormatStrings IMPORT Sprintf1 ;
 FROM P0SymBuild IMPORT P0Init, P1Init ;
@@ -124,20 +126,20 @@ PROCEDURE Compile (s: String) ;
 BEGIN
    DoPass0(s) ;
    FlushWarnings ; FlushErrors ;
-   ResetForNewPass ;
+   ResetForNewPass ; ResetErrorScope ;
    qprintf0('Pass 1: scopes, enumerated types, imports and exports\n') ;
    DoPass1 ;
    FlushWarnings ; FlushErrors ;
    qprintf0('Pass 2: constants and types\n') ;
-   ResetForNewPass ;
+   ResetForNewPass ; ResetErrorScope ;
    DoPass2 ;
    FlushWarnings ; FlushErrors ;
    qprintf0('Pass C: aggregate constants\n') ;
-   ResetForNewPass ;
+   ResetForNewPass ; ResetErrorScope ;
    DoPassC ;
    FlushWarnings ; FlushErrors ;
    qprintf0('Pass 3: quadruple generation\n') ;
-   ResetForNewPass ;
+   ResetForNewPass ; ResetErrorScope ;
    DoPass3 ;
    FlushWarnings ; FlushErrors ;
    qprintf0('Pass 4: gcc tree generation\n') ;