diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-25 16:02:01 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-02-25 16:02:01 +0100 |
| commit | bbe9779cc857a7bbd28ab316bb325abd5ff0df71 (patch) | |
| tree | b93ba0ae89df95c49efac340d1747fd633893b68 /gcc/ada/sinput-l.adb | |
| parent | 1ae8beef0dff7546cf66d6e747b73efa5a724a84 (diff) | |
| download | gcc-bbe9779cc857a7bbd28ab316bb325abd5ff0df71.zip gcc-bbe9779cc857a7bbd28ab316bb325abd5ff0df71.tar.gz gcc-bbe9779cc857a7bbd28ab316bb325abd5ff0df71.tar.bz2 | |
[multiple changes]
2014-02-25 Robert Dewar <dewar@adacore.com>
* sinfo.ads: Minor reformatting.
2014-02-25 Tristan Gingold <gingold@adacore.com>
* s-expllu.ads, s-expuns.ads, s-expmod.ads: Minor comment fix.
2014-02-25 Pascal Obry <obry@adacore.com>
* sinput-l.adb, osint.adb, osint.ads: Add Prep_Suffix to factorize code.
From-SVN: r208132
Diffstat (limited to 'gcc/ada/sinput-l.adb')
| -rw-r--r-- | gcc/ada/sinput-l.adb | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/gcc/ada/sinput-l.adb b/gcc/ada/sinput-l.adb index b722788..e2dbed3 100644 --- a/gcc/ada/sinput-l.adb +++ b/gcc/ada/sinput-l.adb @@ -29,7 +29,6 @@ with Debug; use Debug; with Einfo; use Einfo; with Errout; use Errout; with Fname; use Fname; -with Hostparm; with Lib; use Lib; with Opt; use Opt; with Osint; use Osint; @@ -646,12 +645,7 @@ package body Sinput.L is begin Get_Name_String (N); - - if Hostparm.OpenVMS then - Add_Str_To_Name_Buffer ("_prep"); - else - Add_Str_To_Name_Buffer (".prep"); - end if; + Add_Str_To_Name_Buffer (Prep_Suffix); Delete_File (Name_Buffer (1 .. Name_Len), Status); |