diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-03-02 14:50:15 +0100 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-03-02 14:50:15 +0100 |
commit | 555360a506f2439bd66447dc30d303372ee0ed75 (patch) | |
tree | ffca003370276e7fdf11cb7188a875852481cff5 /gcc/ada/errout.ads | |
parent | c24938d49f6373ddbf29927e3bdacdf633a01ab4 (diff) | |
download | gcc-555360a506f2439bd66447dc30d303372ee0ed75.zip gcc-555360a506f2439bd66447dc30d303372ee0ed75.tar.gz gcc-555360a506f2439bd66447dc30d303372ee0ed75.tar.bz2 |
[multiple changes]
2004-03-02 Emmanuel Briot <briot@act-europe.fr>
* ali.adb (Read_Instantiation_Instance): Do not modify the
current_file_num when reading information about instantiations, since
this corrupts files in later references.
2004-03-02 Vincent Celier <celier@gnat.com>
* bcheck.adb (Check_Consistency): Get the full path of an ALI file
before checking if it is read-only.
* bld.adb (Recursive_Process): Concatenate <PROJECT>.src_dirs in front
of SRC_DIRS and eliminate duplicates.
* gprcmd.adb: Replace command "path" with command "path_sep" to return
the path separator.
(Usage): Document path_sep
* Makefile.generic: For Ada and GNU C++ cases, link directly with the
C++ compiler. No need for a script.
Replace use of C*_INCLUDE_PATH env var for GCC compilers with CPATH.
Do not call gprcmd to build the C*_INCLUDE_PATHs, do it with function
subst.
* prj-env.adb (For_All_Source_Dirs): Only add source dirs in project
where there are Ada sources.
(Set_Ada_Paths): Only add to the include path the source dirs of project
with Ada sources.
(Add_To_Path): Add the Display_Values of the directories, not their
Values.
* prj-nmsc.adb (Find_Sources): Set flag Sources_Present in the project
data.
* prj-nmsc.adb (Add_ALI_For): Make sure that the element Display_Value
is not No_Name.
(Find_Source_Dirs): Set Display_Value to a non canonicalized value, only
Value is canonicalized.
(Language_Independent_Check): Do not copy Value to Display_Value when
canonicalizing Value.
* prj-part.adb (Post_Parse_Context_Clause): Compare canonical cased
path to find limited with cycles.
(Parse_Single_Project): Use canonical cased path to find the end of a
with cycle.
2004-03-02 Ed Schonberg <schonberg@gnat.com>
* sem_ch10.adb (Optional_Subunit): Verify that unit contains a subunit
and not a child unit.
* sinfo.ads, sinfo.adb: Rearrange flags so that Private_Present can
appear in a with_clause.
* decl.c (gnat_to_gnu_type): If entity is a generic type, which can
only happen in type_annotate mode, do not try to elaborate it.
* exp_util.adb (Force_Evaluation): If expression is a selected
component on the left of an assignment, use a renaming rather than a
temporary to remove side effects.
* freeze.adb (Freeze_Entity): Do not freeze a global entity within an
inlined instance body, which is analyzed before the end of the
enclosing scope.
2004-03-02 Robert Dewar <dewar@gnat.com>
* par-ch10.adb, par-ch3.adb, par-ch4.adb, scng.adb,
sem_ch4.adb: Use new feature for substitution of keywords in VMS
* errout.ads, errout.adb: Implement new circuit for substitution of
keywords in VMS.
* sem_case.adb (Analyze_Choices): Place message properly when case is
a subtype reference rather than an explicit range.
* sem_elim.adb, s-tpobop.ads, exp_ch2.adb: Minor reformatting
2004-03-02 Doug Rupp <rupp@gnat.com>
* init.c (__gnat_initialize)[VMS]: Resignal RDB-E-STREAM_EOF.
2004-03-02 Thomas Quinot <quinot@act-europe.fr>
* s-tporft.adb: Add missing locking around call to Initialize_ATCB.
2004-03-02 Richard Kenner <kenner@vlsi1.ultra.nyu.edu>
* utils.c (finish_record_type): Do not set DECL_NONADDRESSABLE for a
BLKmode bitfield.
From-SVN: r78758
Diffstat (limited to 'gcc/ada/errout.ads')
-rw-r--r-- | gcc/ada/errout.ads | 39 |
1 files changed, 38 insertions, 1 deletions
diff --git a/gcc/ada/errout.ads b/gcc/ada/errout.ads index 58eaac6..75ebfe9 100644 --- a/gcc/ada/errout.ads +++ b/gcc/ada/errout.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2003 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2004 Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -276,6 +276,43 @@ package Errout is -- to be non-serious, and does not cause Serious_Errors_Detected -- to be incremented (so expansion is not prevented by such a msg). + ---------------------------------------- + -- Specialization of Messages for VMS -- + ---------------------------------------- + + -- Some messages mention gcc-style switch names. When using an OpenVMS + -- host, such switch names must be converted to their corresponding VMS + -- qualifer. The following table controls this translation. In each case + -- the original message must contain the string "-xxx switch", where xxx + -- is the Gname? entry from below, and this string will be replaced by + -- "/yyy qualifier", where yyy is the corresponding Vname? entry. + + Gname1 : aliased constant String := "fno-strict-aliasing"; + Vname1 : aliased constant String := "OPTIMIZE=NO_ALIASING"; + + Gname2 : aliased constant String := "gnatX"; + Vname2 : aliased constant String := "EXTENSIONS_ALLOWED"; + + Gname3 : aliased constant String := "gnatW"; + Vname3 : aliased constant String := "WIDE_CHARACTER_ENCODING"; + + Gname4 : aliased constant String := "gnatf"; + Vname4 : aliased constant String := "REPORT_ERRORS=FULL"; + + type Cstring_Ptr is access constant String; + + Gnames : array (Nat range <>) of Cstring_Ptr := + (Gname1'Access, + Gname2'Access, + Gname3'Access, + Gname4'Access); + + Vnames : array (Nat range <>) of Cstring_Ptr := + (Vname1'Access, + Vname2'Access, + Vname3'Access, + Vname4'Access); + ----------------------------------------------------- -- Global Values Used for Error Message Insertions -- ----------------------------------------------------- |