diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-10-23 12:45:48 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-10-23 12:45:48 +0200 |
| commit | ad075b500fc6da9afd6a5bfc710a715b33b01e22 (patch) | |
| tree | ee93cdec7f19508d21676f596d5c2af440247f21 /gcc/ada/sem_eval.adb | |
| parent | e699b76e9252a4bb0c1af7276113d23e289e8973 (diff) | |
| download | gcc-ad075b500fc6da9afd6a5bfc710a715b33b01e22.tar.gz | |
[multiple changes]
2014-10-23 Ed Schonberg <schonberg@adacore.com>
* sem_eval.adb (Check_Non_Static_Context): Do not set
Is_Machine_Number on a literal of a fixed-point type.
2014-10-23 Robert Dewar <dewar@adacore.com>
* mlib-prj.adb, sem_ch4.adb, exp_ch3.adb: Minor reformatting.
2014-10-23 Pierre-Marie Derodat <derodat@adacore.com>
* exp_dbug.ads: Update ___XA parallel type specification.
2014-10-23 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch3.adb (Copy_Array_Subtype_Attributes): Inherit the rep
chain of the source type.
* sem_ch13.adb (Analyze_Aspect_Specifications): Minor
reformatting of an error message.
* sem_util.adb (Inherit_Rep_Item_Chain): Do not inherit a rep
chain that has been inherited already.
From-SVN: r216588
Diffstat (limited to 'gcc/ada/sem_eval.adb')
| -rw-r--r-- | gcc/ada/sem_eval.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/gcc/ada/sem_eval.adb b/gcc/ada/sem_eval.adb index 1922d5eca9c..77eb48c36c5 100644 --- a/gcc/ada/sem_eval.adb +++ b/gcc/ada/sem_eval.adb @@ -498,13 +498,15 @@ package body Sem_Eval is -- differences in rounding between static and non-static -- expressions. AI-100 specifies that the effect of such rounding -- is implementation dependent, and in GNAT we round to nearest - -- even to match the run-time behavior. + -- even to match the run-time behavior. Note that this applies + -- to floating point literals, not fixed points ones, even though + -- their compiler representation is also as a universal real. Set_Realval (N, Machine (Base_Type (T), Realval (N), Round_Even, N)); + Set_Is_Machine_Number (N); end if; - Set_Is_Machine_Number (N); end if; -- Check for out of range universal integer. This is a non-static |