diff options
| author | Robert Dewar <dewar@adacore.com> | 2014-08-01 09:41:55 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-01 11:41:55 +0200 |
| commit | 78f8727c3af1dbdcf56f698d15c0f4b046009253 (patch) | |
| tree | 5ca0284eb43ed888b5e50dade8a8e2616e0c56d4 /gcc/ada/ali.adb | |
| parent | 7a5b62b0c751de386bc4faf8648503b48d1d3c9b (diff) | |
| download | gcc-78f8727c3af1dbdcf56f698d15c0f4b046009253.zip gcc-78f8727c3af1dbdcf56f698d15c0f4b046009253.tar.gz gcc-78f8727c3af1dbdcf56f698d15c0f4b046009253.tar.bz2 | |
snames.ads-tmpl, [...]: Remove VMS-specific code.
2014-08-01 Robert Dewar <dewar@adacore.com>
* snames.ads-tmpl, s-os_lib.adb, s-os_lib.ads, s-fileio.adb: Remove
VMS-specific code.
* prj-conf.adb: Minor reformatting.
* xr_tabls.adb (Read_File): Restore code which was enabled on
non VMS platforms before.
* prj-env.adb (Initialize_Default_Project_Path): Ditto.
* sem_ch5.adb: Minor reformatting.
* lib-writ.adb, lib-writ.ads, bindgen.adb, sem_vfpt.adb,
sem_vfpt.ads, ali.adb, ali.ads, opt.ads, bcheck.adb, exp_strm.adb:
Remove VMS-specific code.
From-SVN: r213432
Diffstat (limited to 'gcc/ada/ali.adb')
| -rw-r--r-- | gcc/ada/ali.adb | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/gcc/ada/ali.adb b/gcc/ada/ali.adb index a899ca7..2fe9552 100644 --- a/gcc/ada/ali.adb +++ b/gcc/ada/ali.adb @@ -108,7 +108,6 @@ package body ALI is -- ALI files that are read for a given processing run in gnatbind. Dynamic_Elaboration_Checks_Specified := False; - Float_Format_Specified := ' '; Locking_Policy_Specified := ' '; No_Normalize_Scalars_Specified := False; No_Object_Specified := False; @@ -876,7 +875,6 @@ package body ALI is First_Sdep => No_Sdep_Id, First_Specific_Dispatching => Specific_Dispatching.Last + 1, First_Unit => No_Unit_Id, - Float_Format => 'I', Last_Interrupt_State => Interrupt_States.Last, Last_Sdep => No_Sdep_Id, Last_Specific_Dispatching => Specific_Dispatching.Last, @@ -1091,12 +1089,6 @@ package body ALI is ALIs.Table (Id).Partition_Elaboration_Policy := Partition_Elaboration_Policy_Specified; - -- Processing for FD/FG/FI - - elsif C = 'F' then - Float_Format_Specified := Getc; - ALIs.Table (Id).Float_Format := Float_Format_Specified; - -- Processing for Lx elsif C = 'L' then |