2007-04-20 Ed Schonberg <schonberg@adacore.com>

[pf3gnuchains/gcc-fork.git] / gcc / ada / s-wchjis.ads

diff --git a/gcc/ada/s-wchjis.ads b/gcc/ada/s-wchjis.ads
index 406c4a7..45354ae 100644 (file)
--- a/gcc/ada/s-wchjis.ads
+++ b/gcc/ada/s-wchjis.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---           Copyright (C) 1992-2005 Free Software Foundation, Inc.         --
+--          Copyright (C) 1992-2006, 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- --
@@ -35,7 +35,7 @@
 --  JIS codes and the two external forms we support (EUC and Shift-JIS)
 
 package System.WCh_JIS is
-pragma Pure (WCh_JIS);
+   pragma Pure;
 
    function EUC_To_JIS (EUC1, EUC2 : Character) return Wide_Character;
    --  Given the two bytes of a EUC representation, return the
@@ -43,7 +43,7 @@ pragma Pure (WCh_JIS);
    --  if the two characters are not a valid EUC encoding.
 
    procedure JIS_To_EUC
-     (J    : in Wide_Character;
+     (J    : Wide_Character;
       EUC1 : out Character;
       EUC2 : out Character);
 
@@ -56,7 +56,7 @@ pragma Pure (WCh_JIS);
    --  the input code is assumed to be in an appropriate range.
 
    procedure JIS_To_Shift_JIS
-     (J   : in Wide_Character;
+     (J   : Wide_Character;
       SJ1 : out Character;
       SJ2 : out Character);
    --  Given a wide character code in JIS form, produce the corresponding