mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-25 05:40:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

a-chahan.ads: Remove obsolescent pragmas

Browse Source 
2007-04-20  Robert Dewar  <dewar@adacore.com>

	* a-chahan.ads: Remove obsolescent pragmas

	* a-chlat1.ads: Minor reformatting

From-SVN: r125373
This commit is contained in:
Robert Dewar 2007-06-06 12:17:28 +02:00 committed by Arnaud Charlet
parent 094c3b47d6
commit 4378d23433
2 changed files with 11 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
gcc/ada/a-chahan.ads
View File

@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
-- Copyright (C) 1992-2005, Free Software Foundation, Inc. --
-- Copyright (C) 1992-2007, Free Software Foundation, Inc. --
-- --
-- This specification is derived from the Ada Reference Manual for use with --
-- GNAT. The copyright notice above, and the license provisions that follow --
@ -92,48 +92,37 @@ package Ada.Characters.Handling is
------------------------------------------------------
-- Ada 2005 AI 395: these functions are moved to Ada.Characters.Conversions
-- and are considered obsolete in Ada.Characters.Handling. We deal with
-- this by using the special Ada_05 form of pragma Obsolescent which is
-- only active in Ada_05 mode.
-- and are considered obsolete in Ada.Characters.Handling. However we do
-- not complain about this obsolescence, since in practice it is necessary
-- to use these routines when creating code that is intended ro run in
-- either Ada 95 or Ada 2005 mode.
function Is_Character (Item : Wide_Character) return Boolean;
pragma Obsolescent
("(Ada 2005) use Ada.Characters.Conversions.Is_Character", Ada_05);
function Is_String (Item : Wide_String) return Boolean;
pragma Obsolescent
("(Ada 2005) use Ada.Characters.Conversions.Is_String", Ada_05);
function Is_String (Item : Wide_String) return Boolean;
------------------------------------------------------
-- Conversions between Wide_Character and Character --
------------------------------------------------------
-- Ada 2005 AI 395: these functions are moved to Ada.Characters.Conversions
-- and are considered obsolete in Ada.Characters.Handling. We deal with
-- this by using the special Ada_05 form of pragma Obsolescent which is
-- only active in Ada_05 mode.
-- and are considered obsolete in Ada.Characters.Handling. However we do
-- not complain about this obsolescence, since in practice it is necessary
-- to use these routines when creating code that is intended ro run in
-- either Ada 95 or Ada 2005 mode.
function To_Character
(Item : Wide_Character;
Substitute : Character := ' ') return Character;
pragma Obsolescent
("(Ada 2005) use Ada.Characters.Conversions.To_Character", Ada_05);
function To_String
(Item : Wide_String;
Substitute : Character := ' ') return String;
pragma Obsolescent
("(Ada 2005) use Ada.Characters.Conversions.To_String", Ada_05);
function To_Wide_Character
(Item : Character) return Wide_Character;
pragma Obsolescent
("(Ada 2005) use Ada.Characters.Conversions.To_Wide_Character", Ada_05);
function To_Wide_String
(Item : String)return Wide_String;
pragma Obsolescent
("(Ada 2005) use Ada.Characters.Conversions.To_Wide_String", Ada_05);
(Item : String) return Wide_String;
private
pragma Inline (Is_Control);

1
gcc/ada/a-chlat1.ads
View File

@ -84,7 +84,6 @@ package Ada.Characters.Latin_1 is
Equals_Sign : constant Character := '='; -- Character'Val(61)
Greater_Than_Sign : constant Character := '>'; -- Character'Val(62)
Question : constant Character := '?'; -- Character'Val(63)
Commercial_At : constant Character := '@'; -- Character'Val(64)
-- Letters 'A' through 'Z' are at positions 65 through 90