diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-10-23 10:45:48 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-10-23 10:45:48 +0000 |
| commit | 1089ff194b72129912267fd23a8ddeb9897ff9ff (patch) | |
| tree | ee93cdec7f19508d21676f596d5c2af440247f21 /gcc/ada/sem_eval.adb | |
| parent | 64f44677f2c879304d8a2c2df5fe4e71b52a2eb1 (diff) | |
| download | gcc-1089ff194b72129912267fd23a8ddeb9897ff9ff.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@216588 138bc75d-0d04-0410-961f-82ee72b054a4
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 |