diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-11-06 11:11:20 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2012-11-06 11:11:20 +0100 |
| commit | 436d9f924cf07f4901d701999f4f19138bd5e917 (patch) | |
| tree | cb0cadf761ed3e11307dea97c80ddd8c0bda71e0 /gcc/ada/exp_ch2.adb | |
| parent | a9b9fbf664de2ab613586fa8795e4decb774393a (diff) | |
| download | gcc-436d9f924cf07f4901d701999f4f19138bd5e917.zip gcc-436d9f924cf07f4901d701999f4f19138bd5e917.tar.gz gcc-436d9f924cf07f4901d701999f4f19138bd5e917.tar.bz2 | |
[multiple changes]
2012-11-06 Tristan Gingold <gingold@adacore.com>
* fe.h (Get_Vax_Real_Literal_As_Signed): Declare.
* eval_fat.adb, eval_fat.ads (Decompose_Int): Move spec in package spec.
* exp_vfpt.adb, exp_vfpt.ads (Vax_Real_Literal_As_Signed): New function.
(Expand_Vax_Real_Literal): Remove.
* exp_ch2.adb (Expand_N_Real_Literal): Do nothing.
* sem_eval.adb (Expr_Value_R): Remove special Vax float case,
as this is not anymore a special case.
2012-11-06 Yannick Moy <moy@adacore.com>
* uintp.ads: Minor correction of typo in comment.
2012-11-06 Ed Schonberg <schonberg@adacore.com>
* sem_prag.adb (Analyze_Pragnma, case Unchecked_Union): remove
requirement that discriminants of an unchecked_union must have
defaults.
2012-11-06 Vasiliy Fofanov <fofanov@adacore.com>
* projects.texi: Minor wordsmithing.
From-SVN: r193224
Diffstat (limited to 'gcc/ada/exp_ch2.adb')
| -rw-r--r-- | gcc/ada/exp_ch2.adb | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/gcc/ada/exp_ch2.adb b/gcc/ada/exp_ch2.adb index 37a5bda..bbd23ba 100644 --- a/gcc/ada/exp_ch2.adb +++ b/gcc/ada/exp_ch2.adb @@ -32,7 +32,6 @@ with Errout; use Errout; with Exp_Smem; use Exp_Smem; with Exp_Tss; use Exp_Tss; with Exp_Util; use Exp_Util; -with Exp_VFpt; use Exp_VFpt; with Namet; use Namet; with Nmake; use Nmake; with Opt; use Opt; @@ -637,9 +636,8 @@ package body Exp_Ch2 is procedure Expand_N_Real_Literal (N : Node_Id) is begin - if Vax_Float (Etype (N)) then - Expand_Vax_Real_Literal (N); - end if; + -- Vax real literal are now allowed by gigi + null; end Expand_N_Real_Literal; -------------------------------- |