diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2009-04-29 23:10:21 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2009-04-29 23:10:21 +0000 |
| commit | 3cebfcc5c66e5337e8551a30cd6d29edc9aae9c8 (patch) | |
| tree | 1eb925fe9ac0daa64343cebeedf8d15f314f4a29 /gcc/ada/err_vars.ads | |
| parent | 9933b56afffcf56331c8818f729e97c1acf1ab59 (diff) | |
| download | gcc-3cebfcc5c66e5337e8551a30cd6d29edc9aae9c8.zip gcc-3cebfcc5c66e5337e8551a30cd6d29edc9aae9c8.tar.gz gcc-3cebfcc5c66e5337e8551a30cd6d29edc9aae9c8.tar.bz2 | |
Revert
2009-04-29 Vincent Celier <celier@adacore.com>
* sinput-l.adb (Load_File): When preprocessing, set temporarily the
Source_File_Index_Table entries for the source, to avoid crash when
reporting an error.
* gnatcmd.adb (Test_If_Relative_Path): Use
Makeutl.Test_If_Relative_Path.
* makeutl.adb:(Test_If_Relative_Path): Process switches --RTS= only if
Including_RTS is True.
* makeutl.ads (Test_If_Relative_Path): New Boolean parameter
Including_RTS defaulted to False.
* sinput.ads, scans.ads, err_vars.ads: Initialize some variables with
a default value.
From-SVN: r146991
Diffstat (limited to 'gcc/ada/err_vars.ads')
| -rw-r--r-- | gcc/ada/err_vars.ads | 19 |
1 files changed, 6 insertions, 13 deletions
diff --git a/gcc/ada/err_vars.ads b/gcc/ada/err_vars.ads index c4c28da..58fca61 100644 --- a/gcc/ada/err_vars.ads +++ b/gcc/ada/err_vars.ads @@ -32,31 +32,24 @@ with Uintp; use Uintp; package Err_Vars is - -- All of these variables are set when needed, so they do not need to be - -- initialized. However, there is code that saves and restores existing - -- values, which may malfunction in -gnatVa mode if the variable has never - -- been iniitalized, so we initialize some variables to avoid exceptions - -- from invalid values in such cases. - ------------------ -- Error Counts -- ------------------ - Serious_Errors_Detected : Nat := 0; + Serious_Errors_Detected : Nat; -- This is a count of errors that are serious enough to stop expansion, -- and hence to prevent generation of an object file even if the -- switch -gnatQ is set. Initialized to zero at the start of compilation. - -- Initialized for -gnatVa use, see comment above. - Total_Errors_Detected : Nat := 0; + Total_Errors_Detected : Nat; -- Number of errors detected so far. Includes count of serious errors and -- non-serious errors, so this value is always greater than or equal to the -- Serious_Errors_Detected value. Initialized to zero at the start of - -- compilation. Initialized for -gnatVa use, see comment above. + -- compilation. - Warnings_Detected : Nat := 0; + Warnings_Detected : Nat; -- Number of warnings detected. Initialized to zero at the start of - -- compilation. Initialized for -gnatVa use, see comment above. + -- compilation. ---------------------------------- -- Error Message Mode Variables -- @@ -82,7 +75,7 @@ package Err_Vars is -- generated on the instantiation (referring to the template) rather -- than on the template itself. - Raise_Exception_On_Error : Nat := 0; + Raise_Exception_On_Error : Nat; -- If this value is non-zero, then any attempt to generate an error -- message raises the exception Error_Msg_Exception, and the error -- message is not output. This is used for defending against junk |