diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-25 12:24:16 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-25 12:24:16 +0200 |
| commit | 7271429c1a93bfca0e8b7e036dcd6303e05d817e (patch) | |
| tree | 5b761ff8a3430f85f2fe71c6bd7fb50553b2d45c /gcc/ada/frontend.adb | |
| parent | a5226d6cf63c9e43cf34783278df4b803f6f5e1a (diff) | |
| download | gcc-7271429c1a93bfca0e8b7e036dcd6303e05d817e.zip gcc-7271429c1a93bfca0e8b7e036dcd6303e05d817e.tar.gz gcc-7271429c1a93bfca0e8b7e036dcd6303e05d817e.tar.bz2 | |
[multiple changes]
2013-04-25 Matthew Heaney <heaney@adacore.com>
* a-rbtgbo.adb, a-crbtgo.adb (Generic_Equal): do not test for
tampering when container empty.
* a-crbtgk.adb (Ceiling, Find, Floor): ditto.
(Generic_Conditional_Insert, Generic_Conditional_Insert_With_Hint):
ditto.
2013-04-25 Ed Schonberg <schonberg@adacore.com>
* par-ch12.adb: Move aspects from package specification to
generic package declaration.
* sem_ch12.adb: Analyze aspect specifications before building
and analyzing the generic copy, so that the generated pragmas
are properly taken into account.
* sem_ch13.adb: For compilation unit aspects that apply to a
generic package declaration, insert corresponding pragmas ahead
of visible declarations.
* sprint.adb: Display properly the aspects of a generic type
declaration.
2013-04-25 Robert Dewar <dewar@adacore.com>
* frontend.adb: Minor reformatting.
2013-04-25 Ed Schonberg <schonberg@adacore.com>
* einfo.ads: Extend documentation on use of Is_Private_Ancestor
for untagged types.
* sem_ch3.adb (Is_Visible_Component): Refine predicate for the
case of untagged types derived from private types, to reject
illegal selected components.
From-SVN: r198285
Diffstat (limited to 'gcc/ada/frontend.adb')
| -rw-r--r-- | gcc/ada/frontend.adb | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/ada/frontend.adb b/gcc/ada/frontend.adb index 08536c4..7c56ac9 100644 --- a/gcc/ada/frontend.adb +++ b/gcc/ada/frontend.adb @@ -185,10 +185,13 @@ begin -- Check for VAX Float if Targparm.VAX_Float_On_Target then + -- pragma Float_Representation (VAX_Float); + Opt.Float_Format := 'V'; -- pragma Long_Float (G_Float); + Opt.Float_Format_Long := 'G'; Set_Standard_Fpt_Formats; |