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/exp_util.ads | |
| 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/exp_util.ads')
| -rw-r--r-- | gcc/ada/exp_util.ads | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/exp_util.ads b/gcc/ada/exp_util.ads index 4dee229..5ef792b 100644 --- a/gcc/ada/exp_util.ads +++ b/gcc/ada/exp_util.ads @@ -30,6 +30,7 @@ with Namet; use Namet; with Rtsfind; use Rtsfind; with Sinfo; use Sinfo; with Types; use Types; +with Uintp; use Uintp; package Exp_Util is @@ -444,6 +445,9 @@ package Exp_Util is -- N_Op_Eq), or to determine the result of some other test in other cases -- (e.g. no access check required if N_Op_Ne Null). + function Get_Stream_Size (E : Entity_Id) return Uint; + -- Return the stream size value of the subtype E + function Has_Controlled_Coextensions (Typ : Entity_Id) return Boolean; -- Determine whether a record type has anonymous access discriminants with -- a controlled designated type. |