diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-19 11:55:33 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-19 11:55:33 +0100 |
| commit | 4877d85f404cfaa4eb33a5efd178d7f6d0e65769 (patch) | |
| tree | 33cbef6918a24c7e036710b3aacd30c1aac72af0 /gcc/ada/gcc-interface/trans.c | |
| parent | f660fba6af9ac165d3e02c0a9083c9e0897e0c52 (diff) | |
| download | gcc-4877d85f404cfaa4eb33a5efd178d7f6d0e65769.zip gcc-4877d85f404cfaa4eb33a5efd178d7f6d0e65769.tar.gz gcc-4877d85f404cfaa4eb33a5efd178d7f6d0e65769.tar.bz2 | |
[multiple changes]
2014-02-19 Gary Dismukes <dismukes@adacore.com>
* gnat_rm.texi: Minor spelling fixes.
2014-02-19 Doug Rupp <rupp@adacore.com>
* init.c: Remove unneeded code.
* fe.h (Float_Format): New macro
* gcc-interface/trans.c (gigi): On VMS, set vms_float_format.
From-SVN: r207887
Diffstat (limited to 'gcc/ada/gcc-interface/trans.c')
| -rw-r--r-- | gcc/ada/gcc-interface/trans.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/ada/gcc-interface/trans.c b/gcc/ada/gcc-interface/trans.c index b0cbedb..d2446b1 100644 --- a/gcc/ada/gcc-interface/trans.c +++ b/gcc/ada/gcc-interface/trans.c @@ -316,6 +316,10 @@ gigi (Node_Id gnat_root, type_annotate_only = (gigi_operating_mode == 1); +#if TARGET_ABI_OPEN_VMS + vms_float_format = Float_Format; +#endif + for (i = 0; i < number_file; i++) { /* Use the identifier table to make a permanent copy of the filename as |