2006-10-31 Robert Dewar <dewar@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / csets.adb

diff --git a/gcc/ada/csets.adb b/gcc/ada/csets.adb
index 8e4f993..4f46502 100644 (file)
--- a/gcc/ada/csets.adb
+++ b/gcc/ada/csets.adb
@@ -6,9 +6,7 @@
 --                                                                          --
 --                                 B o d y                                  --
 --                                                                          --
---                            $Revision$
---                                                                          --
---          Copyright (C) 1992-2002, Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2005, 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- --
@@ -18,8 +16,8 @@
 -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
 -- for  more details.  You should have  received  a copy of the GNU General --
 -- Public License  distributed with GNAT;  see file COPYING.  If not, write --
--- to  the Free Software Foundation,  59 Temple Place - Suite 330,  Boston, --
--- MA 02111-1307, USA.                                                      --
+-- to  the  Free Software Foundation,  51  Franklin  Street,  Fifth  Floor, --
+-- Boston, MA 02110-1301, USA.                                              --
 --                                                                          --
 -- As a special exception,  if other files  instantiate  generics from this --
 -- unit, or you link  this unit with other files  to produce an executable, --
@@ -29,7 +27,7 @@
 -- covered by the  GNU Public License.                                      --
 --                                                                          --
 -- GNAT was originally developed  by the GNAT team at  New York University. --
--- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
+-- Extensive contributions were provided by Ada Core Technologies Inc.      --
 --                                                                          --
 ------------------------------------------------------------------------------
 
@@ -172,7 +170,7 @@ package body Csets is
    -- Definitions for Latin-1 (ISO 8859-1) --
    ------------------------------------------
 
-   Fold_Latin_1 : Translate_Table := Translate_Table'(
+   Fold_Latin_1 : constant Translate_Table := Translate_Table'(
 
       'a' => 'A',  X_E0 => X_C0,  X_F0 => X_D0,
       'b' => 'B',  X_E1 => X_C1,  X_F1 => X_D1,
@@ -247,7 +245,7 @@ package body Csets is
    -- Definitions for Latin-2 (ISO 8859-2) --
    ------------------------------------------
 
-   Fold_Latin_2 : Translate_Table := Translate_Table'(
+   Fold_Latin_2 : constant Translate_Table := Translate_Table'(
 
       'a' => 'A',  X_E0 => X_C0,  X_F0 => X_D0,
       'b' => 'B',  X_E1 => X_C1,  X_F1 => X_D1,  X_B1 => X_A1,
@@ -322,7 +320,7 @@ package body Csets is
    -- Definitions for Latin-3 (ISO 8859-3) --
    ------------------------------------------
 
-   Fold_Latin_3 : Translate_Table := Translate_Table'(
+   Fold_Latin_3 : constant Translate_Table := Translate_Table'(
 
       'a' => 'A',  X_E0 => X_C0,
       'b' => 'B',  X_E1 => X_C1,  X_F1 => X_D1,  X_B1 => X_A1,
@@ -397,7 +395,7 @@ package body Csets is
    -- Definitions for Latin-4 (ISO 8859-4) --
    ------------------------------------------
 
-   Fold_Latin_4 : Translate_Table := Translate_Table'(
+   Fold_Latin_4 : constant Translate_Table := Translate_Table'(
 
       'a' => 'A',  X_E0 => X_C0,  X_F0 => X_D0,
       'b' => 'B',  X_E1 => X_C1,  X_F1 => X_D1,  X_B1 => X_A1,
@@ -472,7 +470,7 @@ package body Csets is
    -- Definitions for Latin-5 (Cyrillic ISO-8859-5) --
    ---------------------------------------------------
 
-   Fold_Latin_5 : Translate_Table := Translate_Table'(
+   Fold_Latin_5 : constant Translate_Table := Translate_Table'(
 
       'a' => 'A',  X_D0 => X_B0,  X_E0 => X_C0,
       'b' => 'B',  X_D1 => X_B1,  X_E1 => X_C1,  X_F1 => X_A1,
@@ -547,7 +545,7 @@ package body Csets is
    -- Definitions for Latin-9 (ISO 8859-9) --
    ------------------------------------------
 
-   Fold_Latin_9 : Translate_Table := Translate_Table'(
+   Fold_Latin_9 : constant Translate_Table := Translate_Table'(
 
       'a' => 'A',  X_E0 => X_C0,  X_F0 => X_D0,
       'b' => 'B',  X_E1 => X_C1,  X_F1 => X_D1,
@@ -626,7 +624,7 @@ package body Csets is
    --  for PC's in the US, it corresponds to the original PC character set.
    --  See also the definitions for code page 850.
 
-   Fold_IBM_PC_437 : Translate_Table := Translate_Table'(
+   Fold_IBM_PC_437 : constant Translate_Table := Translate_Table'(
 
       'a' => 'A',
       'b' => 'B',
@@ -761,7 +759,7 @@ package body Csets is
    --  set to include the additional characters defined in ISO Latin-1.
    --  See also the definitions for code page 437.
 
-   Fold_IBM_PC_850 : Translate_Table := Translate_Table'(
+   Fold_IBM_PC_850 : constant Translate_Table := Translate_Table'(
 
       'a' => 'A',
       'b' => 'B',
@@ -909,7 +907,7 @@ package body Csets is
    --  The full upper half set allows all upper half characters as letters,
    --  and does not recognize any upper/lower case equivalences in this half.
 
-   Fold_Full_Upper_Half : Translate_Table := Translate_Table'(
+   Fold_Full_Upper_Half : constant Translate_Table := Translate_Table'(
 
       'a' => 'A',
       'b' => 'B',
@@ -1022,7 +1020,7 @@ package body Csets is
    --  thus there are no upper/lower case equivalences in this half. This set
    --  corresponds to the Ada 83 rules.
 
-   Fold_No_Upper_Half : Translate_Table := Translate_Table'(
+   Fold_No_Upper_Half : constant Translate_Table := Translate_Table'(
 
       'a' => 'A',
       'b' => 'B',
@@ -1161,8 +1159,7 @@ package body Csets is
       Identifier_Char ('[') := True;
 
       --  Add entry for ESC if wide characters in use with a wide character
-      --  encoding method active that uses the ESC code for encoding. Also
-      --  add entry for left bracket to capture use of brackets notation.
+      --  encoding method active that uses the ESC code for encoding.
 
       if Identifier_Character_Set = 'w'
         and then Wide_Character_Encoding_Method in WC_ESC_Encoding_Method