diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-12-22 11:52:00 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-12-22 11:52:00 +0000 |
| commit | 2220c82c8a2c1e2e777634e3eaaceec6c607ecd1 (patch) | |
| tree | 58edd15b694cd45e2029a659f769a709e715e4c0 /gcc/ada/a-stwima.ads | |
| parent | 40d920bc02c66dde75192738db7e87c179410146 (diff) | |
| download | gcc-2220c82c8a2c1e2e777634e3eaaceec6c607ecd1.tar.gz | |
2011-12-22 Hristian Kirtchev <kirtchev@adacore.com>
* exp_ch7.adb (Build_Adjust_Or_Finalize_Statements): Create the objects
associated with exception handling unconditionally.
(Build_Adjust_Statements): Create the objects associated with
exception handling unconditionally.
(Build_Components): Create the objects associated with exception
handling unconditionally.
(Build_Finalize_Statements): Create the objects associated with
exception handling unconditionally.
(Build_Initialize_Statements): Create the objects associated with
exception handling unconditionally.
(Build_Object_Declarations): Set the proper location of the data
record when exception propagation is forbidden.
2011-12-22 Gary Dismukes <dismukes@adacore.com>
* a-tienio.adb (Put): Test validity of Item parameters before
applying Image, and raise Constraint_Error for invalid values.
2011-12-22 Bob Duff <duff@adacore.com>
* a-stwima.ads (Initialize,Adjust,Finalize): Add overriding indicators.
* a-ststio.ads (AFCB_Allocate,AFCB_Close,AFCB_Free,Read,Write): Add
overriding indicators.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@182619 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-stwima.ads')
| -rw-r--r-- | gcc/ada/a-stwima.ads | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/gcc/ada/a-stwima.ads b/gcc/ada/a-stwima.ads index b22a5931162..8863a442b7a 100644 --- a/gcc/ada/a-stwima.ads +++ b/gcc/ada/a-stwima.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2011, 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 -- @@ -177,9 +177,9 @@ private -- incorrect attempts to finalize constants that are statically -- declared here and in Ada.Strings.Wide_Maps, which is incorrect. - procedure Initialize (Object : in out Wide_Character_Set); - procedure Adjust (Object : in out Wide_Character_Set); - procedure Finalize (Object : in out Wide_Character_Set); + overriding procedure Initialize (Object : in out Wide_Character_Set); + overriding procedure Adjust (Object : in out Wide_Character_Set); + overriding procedure Finalize (Object : in out Wide_Character_Set); Null_Range : aliased constant Wide_Character_Ranges := (1 .. 0 => (Low => ' ', High => ' ')); @@ -224,9 +224,9 @@ private -- incorrect attempts to finalize constants that are statically -- declared here and in Ada.Strings.Wide_Maps, which is incorrect. - procedure Initialize (Object : in out Wide_Character_Mapping); - procedure Adjust (Object : in out Wide_Character_Mapping); - procedure Finalize (Object : in out Wide_Character_Mapping); + overriding procedure Initialize (Object : in out Wide_Character_Mapping); + overriding procedure Adjust (Object : in out Wide_Character_Mapping); + overriding procedure Finalize (Object : in out Wide_Character_Mapping); Null_Map : aliased constant Wide_Character_Mapping_Values := (Length => 0, |