diff options
author | Robert Dewar <dewar@adacore.com> | 2014-08-01 09:48:28 +0000 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-08-01 11:48:28 +0200 |
commit | 21c51f53f0145dd812b2231e03116f49fadcd004 (patch) | |
tree | 7c810264a3539640bd067d4d280ad030675b8833 /gcc/ada/targparm.adb | |
parent | 78433fec9a19c808d0b442741ad9ebb7b84389ef (diff) | |
download | gcc-21c51f53f0145dd812b2231e03116f49fadcd004.zip gcc-21c51f53f0145dd812b2231e03116f49fadcd004.tar.gz gcc-21c51f53f0145dd812b2231e03116f49fadcd004.tar.bz2 |
a-numaux-vxworks.ads, [...]: Fix bad package header comments.
2014-08-01 Robert Dewar <dewar@adacore.com>
* a-numaux-vxworks.ads, a-numaux-x86.adb, a-numaux-x86.ads,
a-numaux-darwin.adb, a-numaux-darwin.ads, a-numaux.ads,
a-numaux-libc-x86.ads: Fix bad package header comments.
* elists.ads, elists.adb (Append_New_Elmt): New procedure.
* gnat_rm.texi, a-calend.adb, gnatcmd.adb, einfo.adb, einfo.ads,
checks.adb, sem_prag.adb, sem_prag.ads, rtsfind.ads, freeze.adb,
sem_util.adb, sem_attr.adb, exp_dbug.adb, exp_dbug.ads, gnat1drv.adb,
targparm.adb, targparm.ads, exp_ch6.adb, switch-b.adb, s-shasto.ads,
stand.ads, s-auxdec.ads, opt.adb, opt.ads, mlib-tgt.ads, s-fatgen.adb,
s-fatgen.ads, system.ads, snames.ads-tmpl, s-stalib.ads,
s-os_lib.adb: Remove VMS-specific code.
From-SVN: r213437
Diffstat (limited to 'gcc/ada/targparm.adb')
-rw-r--r-- | gcc/ada/targparm.adb | 8 |
1 files changed, 0 insertions, 8 deletions
diff --git a/gcc/ada/targparm.adb b/gcc/ada/targparm.adb index b161466..84ed202 100644 --- a/gcc/ada/targparm.adb +++ b/gcc/ada/targparm.adb @@ -67,8 +67,6 @@ package body Targparm is SNZ, -- Signed_Zeros SSL, -- Suppress_Standard_Library UAM, -- Use_Ada_Main_Program_Name - VMS, -- OpenVMS - VXF, -- VAX Float ZCD); -- ZCX_By_Default Targparm_Flags : array (Targparm_Tags) of Boolean := (others => False); @@ -105,8 +103,6 @@ package body Targparm is SNZ_Str : aliased constant Source_Buffer := "Signed_Zeros"; SSL_Str : aliased constant Source_Buffer := "Suppress_Standard_Library"; UAM_Str : aliased constant Source_Buffer := "Use_Ada_Main_Program_Name"; - VMS_Str : aliased constant Source_Buffer := "OpenVMS"; - VXF_Str : aliased constant Source_Buffer := "VAX_Float"; ZCD_Str : aliased constant Source_Buffer := "ZCX_By_Default"; -- The following defines a set of pointers to the above strings, @@ -143,8 +139,6 @@ package body Targparm is SNZ_Str'Access, SSL_Str'Access, UAM_Str'Access, - VMS_Str'Access, - VXF_Str'Access, ZCD_Str'Access); ----------------------- @@ -678,8 +672,6 @@ package body Targparm is when SSL => Suppress_Standard_Library_On_Target := Result; when SNZ => Signed_Zeros_On_Target := Result; when UAM => Use_Ada_Main_Program_Name_On_Target := Result; - when VMS => OpenVMS_On_Target := Result; - when VXF => VAX_Float_On_Target := Result; when ZCD => ZCX_By_Default_On_Target := Result; goto Line_Loop_Continue; |