diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-11-06 10:11:20 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-11-06 10:11:20 +0000 |
| commit | 806e0cb11b566e63449a3110bb2e861f2db8c7b9 (patch) | |
| tree | cb0cadf761ed3e11307dea97c80ddd8c0bda71e0 /gcc/ada/eval_fat.adb | |
| parent | 3713b75fab858d1fe40cee92d35ad9f6f3f718f6 (diff) | |
| download | gcc-806e0cb11b566e63449a3110bb2e861f2db8c7b9.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@193224 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/eval_fat.adb')
| -rw-r--r-- | gcc/ada/eval_fat.adb | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/gcc/ada/eval_fat.adb b/gcc/ada/eval_fat.adb index bbcb886b722..5ff748dfbe7 100644 --- a/gcc/ada/eval_fat.adb +++ b/gcc/ada/eval_fat.adb @@ -57,20 +57,6 @@ package body Eval_Fat is -- parts. The fraction is in the interval 1.0 / Radix .. T'Pred (1.0) and -- uses Rbase = Radix. The result is rounded to a nearest machine number. - procedure Decompose_Int - (RT : R; - X : T; - Fraction : out UI; - Exponent : out UI; - Mode : Rounding_Mode); - -- This is similar to Decompose, except that the Fraction value returned - -- is an integer representing the value Fraction * Scale, where Scale is - -- the value (Machine_Radix_Value (RT) ** Machine_Mantissa_Value (RT)). The - -- value is obtained by using biased rounding (halfway cases round away - -- from zero), round to even, a floor operation or a ceiling operation - -- depending on the setting of Mode (see corresponding descriptions in - -- Urealp). - -------------- -- Adjacent -- -------------- |