diff options
| author | Geert Bosch <bosch@adacore.com> | 2011-08-01 12:41:48 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2011-08-01 14:41:48 +0200 |
| commit | 9eea4346af869733ba91b92d40a78de3541d3be0 (patch) | |
| tree | f17ae2c4493e2fcccba6ae4458951af5c7773594 /gcc/ada/cstand.adb | |
| parent | 655b30bfde9172bd40189a787b85b16e461ef1ef (diff) | |
| download | gcc-9eea4346af869733ba91b92d40a78de3541d3be0.zip gcc-9eea4346af869733ba91b92d40a78de3541d3be0.tar.gz gcc-9eea4346af869733ba91b92d40a78de3541d3be0.tar.bz2 | |
sem_prag.adb (Check_No_Link_Name): New procedure.
2011-08-01 Geert Bosch <bosch@adacore.com>
* sem_prag.adb (Check_No_Link_Name): New procedure.
(Process_Import_Or_Interface): Use Check_No_Link_Name.
* cstand.adb (Create_Standard): Use Esize (Standard_Long_Long_Float)
instead of Standard_Long_Long_Float_Size global. Preparation for
eventual removal of per type constants.
* exp_util.ads (Get_Stream_Size): New function returning the stream
size value of subtype E.
* exp_util.adb (Get_Stream_Size): Implement new function.
* exp_strm.adb (Build_Elementary_Input_Call): Use Get_Stream_Size
function.
* exp_attr.adb (Attribute_Stream_Size): Use Get_Stream_Size
* einfo.adb:
(Machine_Mantissa_Value): Handle 128-bit quad precision IEEE floats
From-SVN: r177026
Diffstat (limited to 'gcc/ada/cstand.adb')
| -rw-r--r-- | gcc/ada/cstand.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/cstand.adb b/gcc/ada/cstand.adb index 5b95a7c..8d9d798 100644 --- a/gcc/ada/cstand.adb +++ b/gcc/ada/cstand.adb @@ -1105,7 +1105,8 @@ package body CStand is Set_Ekind (Any_Real, E_Floating_Point_Type); Set_Scope (Any_Real, Standard_Standard); Set_Etype (Any_Real, Standard_Long_Long_Float); - Init_Size (Any_Real, Standard_Long_Long_Float_Size); + Init_Size (Any_Real, + UI_To_Int (Esize (Standard_Long_Long_Float))); Set_Elem_Alignment (Any_Real); Make_Name (Any_Real, "a real type"); |