diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-22 10:19:58 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-10-22 10:19:58 +0000 |
| commit | c9d7c2c0013262f8fbd9b41320c1c5eccbd8bdac (patch) | |
| tree | 9ef7cb8b3a3114393fa1cbd08628522c8260c6ef /gcc/ada/sem_vfpt.adb | |
| parent | 95b21580cbeac84f3f8bd2c38a75379391279c49 (diff) | |
| download | gcc-c9d7c2c0013262f8fbd9b41320c1c5eccbd8bdac.tar.gz | |
2010-10-22 Ed Schonberg <schonberg@adacore.com>
* sem_util.adb (May_Be_Lvalue): An actual in a function call can be an
lvalue in Ada2012, if the function has in-out parameters.
2010-10-22 Robert Dewar <dewar@adacore.com>
* cstand.adb, einfo.adb, exp_attr.adb, sem_prag.adb, sem_vfpt.adb,
sem_ch10.adb: Minor reformatting.
2010-10-22 Sergey Rybin <rybin@adacore.com>
* gnat_ugn.texi: Remove most of the content of gnatcheck chapter.
2010-10-22 Ed Schonberg <schonberg@adacore.com>
* sem_attr.adb: Handle indexed P'old.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@165817 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/sem_vfpt.adb')
| -rw-r--r-- | gcc/ada/sem_vfpt.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/ada/sem_vfpt.adb b/gcc/ada/sem_vfpt.adb index 0b466298b1f..5ea780a39be 100644 --- a/gcc/ada/sem_vfpt.adb +++ b/gcc/ada/sem_vfpt.adb @@ -37,6 +37,7 @@ package body Sem_VFpt is procedure Set_D_Float (E : Entity_Id) is VAXDF_Digits : constant := 9; + begin Init_Size (Base_Type (E), 64); Init_Alignment (Base_Type (E)); @@ -56,6 +57,7 @@ package body Sem_VFpt is procedure Set_F_Float (E : Entity_Id) is VAXFF_Digits : constant := 6; + begin Init_Size (Base_Type (E), 32); Init_Alignment (Base_Type (E)); @@ -75,6 +77,7 @@ package body Sem_VFpt is procedure Set_G_Float (E : Entity_Id) is VAXGF_Digits : constant := 15; + begin Init_Size (Base_Type (E), 64); Init_Alignment (Base_Type (E)); @@ -94,6 +97,7 @@ package body Sem_VFpt is procedure Set_IEEE_Long (E : Entity_Id) is IEEEL_Digits : constant := 15; + begin Init_Size (Base_Type (E), 64); Init_Alignment (Base_Type (E)); @@ -113,6 +117,7 @@ package body Sem_VFpt is procedure Set_IEEE_Short (E : Entity_Id) is IEEES_Digits : constant := 6; + begin Init_Size (Base_Type (E), 32); Init_Alignment (Base_Type (E)); |