From 8d2e29ed34fe8f6178750fac64c4d547cfb86b8c Mon Sep 17 00:00:00 2001 From: charlet Date: Tue, 25 Feb 2014 15:02:01 +0000 Subject: 2014-02-25 Robert Dewar * sinfo.ads: Minor reformatting. 2014-02-25 Tristan Gingold * s-expllu.ads, s-expuns.ads, s-expmod.ads: Minor comment fix. 2014-02-25 Pascal Obry * 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 --- gcc/ada/sinput-l.adb | 8 +------- 1 file changed, 1 insertion(+), 7 deletions(-) (limited to 'gcc/ada/sinput-l.adb') 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); -- cgit v1.2.1