X-Git-Url: http://git.sourceforge.jp/view?a=blobdiff_plain;f=gcc%2Fada%2Fg-casuti.ads;h=b32036d674534e5b1be24cbb6fdd6b74b723db18;hb=da31da6faf00197d0460c8de63d3517f07b80d8a;hp=ddb6236ba26ea636a53ba5df2500351ab2c5cd69;hpb=8bed087ed528783bb68ea3f8b65734158d09fcb7;p=pf3gnuchains%2Fgcc-fork.git

diff --git a/gcc/ada/g-casuti.ads b/gcc/ada/g-casuti.ads
index ddb6236ba26..b32036d6745 100644
--- a/gcc/ada/g-casuti.ads
+++ b/gcc/ada/g-casuti.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---                     Copyright (C) 1995-2005 AdaCore                      --
+--                     Copyright (C) 1995-2008, AdaCore                     --
 --                                                                          --
 -- 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- --
@@ -16,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, --
@@ -43,13 +43,12 @@
 with System.Case_Util;
 
 package GNAT.Case_Util is
-pragma Pure (Case_Util);
-
-pragma Elaborate_Body;
---  The elaborate body is because we have a dummy body to deal with bootstrap
---  path problems (we used to have a real body, and now we don't need it any
---  more, but the bootstrap requires that we have a dummy body, since otherwise
---  the old body gets picked up.
+   pragma Pure;
+   pragma Elaborate_Body;
+   --  The elaborate body is because we have a dummy body to deal with
+   --  bootstrap path problems (we used to have a real body, and now we don't
+   --  need it any more, but the bootstrap requires that we have a dummy body,
+   --  since otherwise the old body gets picked up.
 
    --  Note: all the following functions handle the full Latin-1 set
 
@@ -60,7 +59,7 @@ pragma Elaborate_Body;
 
    procedure To_Upper (A : in out String)
      renames System.Case_Util.To_Upper;
-   --  Folds all characters of string A to upper csae
+   --  Folds all characters of string A to upper case
 
    function To_Lower (A : Character) return Character
      renames System.Case_Util.To_Lower;