diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-08-06 07:33:43 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-08-06 07:33:43 +0000 |
commit | ba9b1a3986f32262a221d4cfef7f05338129df82 (patch) | |
tree | 788eee846b0d18dfe72c81fb18eb266c6f5fc50e /gcc/ada/exp_ch9.adb | |
parent | f03ce402f3399b269d8f5d564c639f5ae76a14d3 (diff) | |
download | ppe42-gcc-ba9b1a3986f32262a221d4cfef7f05338129df82.tar.gz ppe42-gcc-ba9b1a3986f32262a221d4cfef7f05338129df82.zip |
2012-08-06 Vincent Pucci <pucci@adacore.com>
* exp_ch9.adb (Build_Lock_Free_Unprotected_Subprogram_Body):
Use of Known_Static_Esize instead of Known_Esize and
Known_Static_RM_Size instead of Known_RM_Size in order to
properly call UI_To_Int. Don't check the size of the component
type in case of generic.
* sem_ch9.adb (Allows_Lock_Free_Implementation):
Use of Known_Static_Esize instead of Known_Esize and
Known_Static_RM_Size instead of Known_RM_Size in order to properly
call UI_To_Int. Don't check the size of the component type in
case of generic.
2012-08-06 Hristian Kirtchev <kirtchev@adacore.com>
* checks.adb (Discrete_Range_Cond): Do not try to optimize on
the assumption that the type of an expression can always fit in
the target type of a conversion.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@190156 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/exp_ch9.adb')
-rw-r--r-- | gcc/ada/exp_ch9.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/exp_ch9.adb b/gcc/ada/exp_ch9.adb index a6c1940a8cc..248984d89a9 100644 --- a/gcc/ada/exp_ch9.adb +++ b/gcc/ada/exp_ch9.adb @@ -3260,14 +3260,14 @@ package body Exp_Ch9 is begin -- Get the type size - if Known_Esize (Comp_Type) then + if Known_Static_Esize (Comp_Type) then Typ_Size := UI_To_Int (Esize (Comp_Type)); -- If the Esize (Object_Size) is unknown at compile-time, look at -- the RM_Size (Value_Size) since it may have been set by an -- explicit representation clause. - elsif Known_RM_Size (Comp_Type) then + elsif Known_Static_RM_Size (Comp_Type) then Typ_Size := UI_To_Int (RM_Size (Comp_Type)); -- Should not happen since this has already been checked in |