procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[multiple changes]

Browse source 
2012-10-02  Ed Schonberg  <schonberg@adacore.com>

	* exp_ch4.adb (Expand_N_Case_Expression): Do not introduce
	indirections when the type of the alternatives is an access type:
	more efficient, and removes anomalies when an alternative is
	statically null.

2012-10-02  Robert Dewar  <dewar@adacore.com>

	* aspects.ads: Minor comment addition (Invariant is a GNAT aspect).

From-SVN: r191963
This commit is contained in:
Arnaud Charlet 2012-10-02 10:31:49 +02:00
parent 9a6dc47083
commit 2492305bcc
3 changed files with 16 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
gcc/ada/ChangeLog
View file

@ -1,3 +1,14 @@
2012-10-02 Ed Schonberg <schonberg@adacore.com>
* exp_ch4.adb (Expand_N_Case_Expression): Do not introduce
indirections when the type of the alternatives is an access type:
more efficient, and removes anomalies when an alternative is
statically null.
2012-10-02 Robert Dewar <dewar@adacore.com>
* aspects.ads: Minor comment addition (Invariant is a GNAT aspect).
2012-10-02 Robert Dewar <dewar@adacore.com>
* exp_ch7.adb, sem_dim.adb, sem_dim.ads, prj-part.adb, checks.adb,

2
gcc/ada/aspects.ads
View file

@ -95,7 +95,7 @@ package Aspects is
Aspect_Implicit_Dereference,
Aspect_Input,
Aspect_Interrupt_Priority,
Aspect_Invariant,
Aspect_Invariant, -- GNAT
Aspect_Iterator_Element,
Aspect_Link_Name,
Aspect_Machine_Radix,

8
gcc/ada/exp_ch4.adb
View file

@ -4797,7 +4797,7 @@ package body Exp_Ch4 is
-- wrong for unconstrained types (since the bounds may not be the
-- same in all branches). Furthermore it involves an extra copy
-- for large objects. So we take care of this by using the following
-- modified expansion for non-scalar types:
-- modified expansion for non-elementary types:
-- do
-- type Pnn is access all typ;
@ -4820,7 +4820,7 @@ package body Exp_Ch4 is
-- Scalar case
if Is_Scalar_Type (Typ) then
if Is_Elementary_Type (Typ) then
Ttyp := Typ;
else
@ -4855,7 +4855,7 @@ package body Exp_Ch4 is
-- As described above, take Unrestricted_Access for case of non-
-- scalar types, to avoid big copies, and special cases.
if not Is_Scalar_Type (Typ) then
if not Is_Elementary_Type (Typ) then
Aexp :=
Make_Attribute_Reference (Aloc,
Prefix => Relocate_Node (Aexp),
@ -4890,7 +4890,7 @@ package body Exp_Ch4 is
-- Construct and return final expression with actions
if Is_Scalar_Type (Typ) then
if Is_Elementary_Type (Typ) then
Fexp := New_Occurrence_Of (Tnn, Loc);
else
Fexp :=