system-unixware.ads, [...]: Minor comment update for AI-362 (unit is Pure).

2005-06-14  Robert Dewar  <dewar@adacore.com>

	* system-unixware.ads, system-linux-ia64.ads, system-freebsd-x86.ads,
	system-lynxos-ppc.ads, system-lynxos-x86.ads, system-linux-x86_64.ads,
	system-tru64.ads, system-aix.ads, system-vxworks-sparcv9.ads,
	system-vxworks-xscale.ads, system-solaris-x86.ads, system-irix-o32.ads,
	system-irix-n32.ads, system-hpux.ads, system-vxworks-m68k.ads,
	system-linux-x86.ads, system-vxworks-mips.ads, system-vxworks-mips.ads,
	system-os2.ads, system-interix.ads, system-solaris-sparc.ads,
	system-solaris-sparcv9.ads, system-vms.ads, system-mingw.ads,
	system-vms-zcx.ads, system-vxworks-ppc.ads, system.ads,
	system-darwin-ppc.ads, system-vxworks-x86.ads, system-linux-ppc.ads,
	system-linux-hppa.ads, system-vms_64.ads,
	system-vxworks-alpha.ads: Minor comment update for
	AI-362 (unit is Pure).

	* a-chahan.ads, a-chahan.adb: Move Wide_Wide functions to Conversions
	Add pragma Pure_05 for AI-362
	Make remaining conversion functions obsolescent in Ada 95

	* impunit.adb: Change a-swunha to a-swuwha and a-szunha to a-szuzha
	Make Ada.Wide_Characters[.Unicode] available in Ada 95 mode
	Add entries for a-wichun and a-zchuni
	Add a-widcha a-zchara for AI-395
	Add a-chacon (Ada.Characters.Conversions) to list of Ada 2005 routines

	* Makefile.rtl: Change a-swunha to a-swuwha and a-szunha to a-szuzha
	Add entries for a-wichun.o and a-zchuni.o
	Entries for a-widcha.o and a-zchara.o
	Add entry for a-chacon.o

	* a-ztenau.adb: Add with of Ada.Characters.Conversions

	* a-chacon.ads, a-chacon.adb: New files.

	* a-taside.adb, a-exstat.adb, a-excach.adb: Add warnings off to allow
	categorization violations.

	* a-strmap.ads: Add pragma Pure_05 for AI-362
	* a-strmap.ads: Add note on implicit categorization for AI-362

	* a-tgdico.ads, a-taside.ads: Add pragma Preelaborate_05 for AI-362

	* par-prag.adb: Dummy entry for pragma Persistent_BSS
	Set Ada_Version_Explicit, for implementation of AI-362
	Add processing for pragma Pure_05 and Preelaborate_05
	Add entry for Assertion_Policy pragma

	* sem.adb: Make sure predefined units are compiled with GNAT_Mode true
	when needed for proper processing of categorization stuff

	* sem_cat.adb:
	For several cases, make errors in preealborate units warnings,
	instead of errors, if GNAT_Mode is set. For AI-362.

	* sem_elab.adb (Check_Elab_Call): Call to non-static subprogram in
	preelaborate unit is now warning if in GNAT mode

	* s-stoele.ads: Document AI-362 for pragma preelaborate

From-SVN: r101016

1 files changed, 0 insertions, 141 deletions

diff --git a/gcc/ada/a-chahan.adb b/gcc/ada/a-chahan.adb
index c94a999..c707d32 100644
--- a/gcc/ada/a-chahan.adb
+++ b/gcc/ada/a-chahan.adb
@@ -304,11 +304,6 @@ package body Ada.Characters.Handling is
       return Wide_Character'Pos (Item) < 256;
    end Is_Character;
 
-   function Is_Character (Item : Wide_Wide_Character) return Boolean is
-   begin
-      return Wide_Wide_Character'Pos (Item) < 256;
-   end Is_Character;
-
    ----------------
    -- Is_Control --
    ----------------
@@ -410,17 +405,6 @@ package body Ada.Characters.Handling is
       return True;
    end Is_String;
 
-   function Is_String (Item : Wide_Wide_String) return Boolean is
-   begin
-      for J in Item'Range loop
-         if Wide_Wide_Character'Pos (Item (J)) >= 256 then
-            return False;
-         end if;
-      end loop;
-
-      return True;
-   end Is_String;
-
    --------------
    -- Is_Upper --
    --------------
@@ -430,30 +414,6 @@ package body Ada.Characters.Handling is
       return (Char_Map (Item) and Upper) /= 0;
    end Is_Upper;
 
-   -----------------------
-   -- Is_Wide_Character --
-   -----------------------
-
-   function Is_Wide_Character (Item : Wide_Wide_Character) return Boolean is
-   begin
-      return Wide_Wide_Character'Pos (Item) < 2**16;
-   end Is_Wide_Character;
-
-   --------------------
-   -- Is_Wide_String --
-   --------------------
-
-   function Is_Wide_String (Item : Wide_Wide_String) return Boolean is
-   begin
-      for J in Item'Range loop
-         if Wide_Wide_Character'Pos (Item (J)) >= 2**16 then
-            return False;
-         end if;
-      end loop;
-
-      return True;
-   end Is_Wide_String;
-
    --------------
    -- To_Basic --
    --------------
@@ -490,18 +450,6 @@ package body Ada.Characters.Handling is
       end if;
    end To_Character;
 
-   function To_Character
-     (Item       : Wide_Wide_Character;
-      Substitute : Character := ' ') return Character
-   is
-   begin
-      if Is_Character (Item) then
-         return Character'Val (Wide_Wide_Character'Pos (Item));
-      else
-         return Substitute;
-      end if;
-   end To_Character;
-
    ----------------
    -- To_ISO_646 --
    ----------------
@@ -574,20 +522,6 @@ package body Ada.Characters.Handling is
       return Result;
    end To_String;
 
-   function To_String
-     (Item       : Wide_Wide_String;
-      Substitute : Character := ' ') return String
-   is
-      Result : String (1 .. Item'Length);
-
-   begin
-      for J in Item'Range loop
-         Result (J - (Item'First - 1)) := To_Character (Item (J), Substitute);
-      end loop;
-
-      return Result;
-   end To_String;
-
    --------------
    -- To_Upper --
    --------------
@@ -623,18 +557,6 @@ package body Ada.Characters.Handling is
       return Wide_Character'Val (Character'Pos (Item));
    end To_Wide_Character;
 
-   function To_Wide_Character
-     (Item       : Wide_Wide_Character;
-      Substitute : Wide_Character := ' ') return Wide_Character
-   is
-   begin
-      if Wide_Wide_Character'Pos (Item) < 2**16 then
-         return Wide_Character'Val (Wide_Wide_Character'Pos (Item));
-      else
-         return Substitute;
-      end if;
-   end To_Wide_Character;
-
    --------------------
    -- To_Wide_String --
    --------------------
@@ -652,67 +574,4 @@ package body Ada.Characters.Handling is
       return Result;
    end To_Wide_String;
 
-   function To_Wide_String
-     (Item       : Wide_Wide_String;
-      Substitute : Wide_Character := ' ') return Wide_String
-   is
-      Result : Wide_String (1 .. Item'Length);
-
-   begin
-      for J in Item'Range loop
-         Result (J - (Item'First - 1)) :=
-           To_Wide_Character (Item (J), Substitute);
-      end loop;
-
-      return Result;
-   end To_Wide_String;
-
-   ----------------------------
-   -- To_Wide_Wide_Character --
-   ----------------------------
-
-   function To_Wide_Wide_Character
-     (Item : Character) return Wide_Wide_Character
-   is
-   begin
-      return Wide_Wide_Character'Val (Character'Pos (Item));
-   end To_Wide_Wide_Character;
-
-   function To_Wide_Wide_Character
-     (Item : Wide_Character) return Wide_Wide_Character
-   is
-   begin
-      return Wide_Wide_Character'Val (Wide_Character'Pos (Item));
-   end To_Wide_Wide_Character;
-
-   -------------------------
-   -- To_Wide_Wide_String --
-   -------------------------
-
-   function To_Wide_Wide_String
-     (Item : String) return Wide_Wide_String
-   is
-      Result : Wide_Wide_String (1 .. Item'Length);
-
-   begin
-      for J in Item'Range loop
-         Result (J - (Item'First - 1)) := To_Wide_Wide_Character (Item (J));
-      end loop;
-
-      return Result;
-   end To_Wide_Wide_String;
-
-   function To_Wide_Wide_String
-     (Item : Wide_String) return Wide_Wide_String
-   is
-      Result : Wide_Wide_String (1 .. Item'Length);
-
-   begin
-      for J in Item'Range loop
-         Result (J - (Item'First - 1)) := To_Wide_Wide_Character (Item (J));
-      end loop;
-
-      return Result;
-   end To_Wide_Wide_String;
-
 end Ada.Characters.Handling;