diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-09-10 15:53:51 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-09-10 15:53:51 +0200 |
commit | a113c55d5aaa0764c6455405f3235abe14a74320 (patch) | |
tree | da363269b7e9c22cabda04b9e23777bcc7a1589d /gcc/ada/errout.ads | |
parent | 0856403616ac03ee6eb8cd2cb83f1e7274f9f909 (diff) | |
download | gcc-a113c55d5aaa0764c6455405f3235abe14a74320.zip gcc-a113c55d5aaa0764c6455405f3235abe14a74320.tar.gz gcc-a113c55d5aaa0764c6455405f3235abe14a74320.tar.bz2 |
[multiple changes]
2010-09-10 Vincent Celier <celier@adacore.com>
* vms_data.ads: Add new GNAT BIND qualifiers /32_MALLOC (for -H32) and
/64_MALLOC (for -H64).
2010-09-10 Robert Dewar <dewar@adacore.com>
* errout.adb (Error_Msg_Internal): Test Parsing_Main_Subunit flag
(Error_Msg_NW): Test Parsing_Main_Subunit flag
* errout.ads (Parsing_Main_Subunit): New flag
* lib-load.adb (Load_Unit): Set Parsing_Main_Subunit flag
* par-ch6.adb: Minor style fix (remove redandant parentheses)
* par-ch9.adb: Minor style fix (remove redundant parens)
* par-load.adb: (Load): Deal with setting Parsing_Main_Subunit
2010-09-10 Vincent Celier <celier@adacore.com>
* make.adb (Create_Binder_Mapping_File): Remove procedure. Replaced by
function of the same name in Makeutl.
(Gnatmake): Call function Create_Binder_Mapping_File in Makeutl, instead
of removed procedure when creating a binder mapping file.
* makeutl.adb (Create_Binder_Mapping_File): New function. Was a
procedure in Make.
* makeutl.ads (Create_Binder_Mapping_File): New function
From-SVN: r164176
Diffstat (limited to 'gcc/ada/errout.ads')
-rw-r--r-- | gcc/ada/errout.ads | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/gcc/ada/errout.ads b/gcc/ada/errout.ads index 4aea9d8..29fa5d1 100644 --- a/gcc/ada/errout.ads +++ b/gcc/ada/errout.ads @@ -63,9 +63,17 @@ package Errout is type Compiler_State_Type is (Parsing, Analyzing); Compiler_State : Compiler_State_Type; -- Indicates current state of compilation. This is put in the Errout spec - -- because it affects the action of the error message handling. In - -- particular, an attempt is made by Errout to suppress cascaded error - -- messages in Parsing mode, but not in the other modes. + -- because it affects the handling of error messages. In particular, an + -- attempt is made by Errout to suppress cascaded error messages in Parsing + -- mode, but not in the other modes. + + Parsing_Main_Subunit : Boolean := False; + -- Set True if we are currently parsing a subunit that is part of the main + -- extended source. We need this flag, since the In_Main_Extended_Source + -- test may produce an improper False value if called too early during the + -- parsing process. This is put in the Errout spec because it affects error + -- message handling. In particular, warnings and style messages during + -- parsing are only generated if this flag is set to True. Current_Error_Source_File : Source_File_Index renames Err_Vars.Current_Error_Source_File; |