diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-18 11:20:28 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-18 11:20:28 +0200 |
| commit | baa571ab785c7b183d1dda08a077d1658e28c4f1 (patch) | |
| tree | 2340b57ac0d4c3b76bc55e007451fe73864a209b /gcc/ada/urealp.adb | |
| parent | fc999c5d2e9f0f594fe82739494fb36b0b428384 (diff) | |
| download | gcc-baa571ab785c7b183d1dda08a077d1658e28c4f1.zip gcc-baa571ab785c7b183d1dda08a077d1658e28c4f1.tar.gz gcc-baa571ab785c7b183d1dda08a077d1658e28c4f1.tar.bz2 | |
[multiple changes]
2014-07-18 Robert Dewar <dewar@adacore.com>
* sem_ch13.adb (Build_Discrete_Static_Predicate): New name
for Build_Static_Predicate (Build_Predicate_Functions):
Don't try to build discrete predicate for real type.
(Build_Predicate_Functions): Report attempt to use
Static_Predicate function on real type as unimplemented.
* sem_util.adb (Check_Expression_Against_Static_Predicate):
Add guard to prevent blow up on predicate for real type.
2014-07-18 Ed Schonberg <schonberg@adacore.com>
* einfo.adb (Set_Static_Predicate): Simplify assertion to handle
properly static predicate on enumeration types and modular types
(not subtypes).
2014-07-18 Pierre-Marie Derodat <derodat@adacore.com>
* scos.ads (SCO_Unit_Table_Entry): Add a field to keep track of
the corresponding source file index.
* get_scos.ads (Get_SCOs): Add a default value for it.
* par_sco.adb (SCO_Record): Fill the corresponding value.
* scos.h: New.
2014-07-18 Vincent Celier <celier@adacore.com>
* a-strunb-shared.adb, s-auxdec.ads, s-rannum.adb, atree.ads,
urealp.adb, vms_data.ads, lib.ads, s-auxdec-vms_64.ads: Minor
reformatting.
* gnat_ugn.texi: Add documentation for new gnatmem switch -t.
2014-07-18 Thomas Quinot <quinot@adacore.com>
* g-sercom.ads (Set): document possible data loss.
2014-07-18 Ed Schonberg <schonberg@adacore.com>
* exp_attr.adb (Expand_N_Attribute_Reference, cases Input,
Output, Read, Write): If the restriction No_Streams is active,
replace each occurrence of a stream attribute by an explicit
Raise statement.
From-SVN: r212782
Diffstat (limited to 'gcc/ada/urealp.adb')
| -rw-r--r-- | gcc/ada/urealp.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/ada/urealp.adb b/gcc/ada/urealp.adb index 83bdff6..f2f036b 100644 --- a/gcc/ada/urealp.adb +++ b/gcc/ada/urealp.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2013, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -1354,13 +1354,13 @@ package body Urealp is and then Val.Den >= -16 then if Val.Den = 1 then - T := Val.Num * (10/2); + T := Val.Num * (10 / 2); UI_Write (T / 10, Decimal); Write_Char ('.'); UI_Write (T mod 10, Decimal); elsif Val.Den = 2 then - T := Val.Num * (100/4); + T := Val.Num * (100 / 4); UI_Write (T / 100, Decimal); Write_Char ('.'); UI_Write (T mod 100 / 10, Decimal); |