diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-02-25 15:02:01 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-02-25 15:02:01 +0000 |
| commit | 8d2e29ed34fe8f6178750fac64c4d547cfb86b8c (patch) | |
| tree | b93ba0ae89df95c49efac340d1747fd633893b68 /gcc/ada/sinput-l.adb | |
| parent | 8f50bc39f3513ddd4fcf165bf1c01c6b5d06dc57 (diff) | |
| download | gcc-8d2e29ed34fe8f6178750fac64c4d547cfb86b8c.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@208132 138bc75d-0d04-0410-961f-82ee72b054a4
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 b72278851b4..e2dbed3dfba 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); |