From d409ec50683213c605ea3ed1bc102335fc437706 Mon Sep 17 00:00:00 2001 From: Hristian Kirtchev Date: Wed, 12 Sep 2007 13:58:59 +0200 Subject: [PATCH] bindusg.adb (Display): Correct comment for switch -X. 2007-09-12 Hristian Kirtchev * bindusg.adb (Display): Correct comment for switch -X. Add a line for the usage of switch -y. * switch-b.adb (Scan_Binder_Switches): Set flag Leap_Seconds_Support when switch -y is present. * opt.ads: Add binder flag Leap_Seconds_Support used to enable/disable leap seconds in Ada.Calendar and its children. From-SVN: r128429 --- gcc/ada/bindusg.adb | 6 +++++- gcc/ada/opt.ads | 5 +++++ gcc/ada/switch-b.adb | 6 ++++++ 3 files changed, 16 insertions(+), 1 deletion(-) diff --git a/gcc/ada/bindusg.adb b/gcc/ada/bindusg.adb index ea06299e437..21e31638ab5 100644 --- a/gcc/ada/bindusg.adb +++ b/gcc/ada/bindusg.adb @@ -232,10 +232,14 @@ package body Bindusg is Write_Line (" -x Exclude source files (check object " & "consistency only)"); - -- Line for X switch + -- Line for -X switch Write_Line (" -Xnnn Default exit status value = nnn"); + -- Line for -y switch + + Write_Line (" -y Enable leap seconds"); + -- Line for -z switch Write_Line (" -z No main subprogram (zero main)"); diff --git a/gcc/ada/opt.ads b/gcc/ada/opt.ads index 69676a93563..7a105569cd0 100644 --- a/gcc/ada/opt.ads +++ b/gcc/ada/opt.ads @@ -631,6 +631,11 @@ package Opt is -- When True the temporary files created by the GNAT driver are not -- deleted. Set by switch -dn or qualifier /KEEP_TEMPORARY_FILES. + Leap_Seconds_Support : Boolean := False; + -- GNATBIND + -- Set to True to enable leap seconds support in Ada.Calendar and its + -- children. + Link_Only : Boolean := False; -- GNATMAKE, GPRMAKE -- Set to True to skip compile and bind steps diff --git a/gcc/ada/switch-b.adb b/gcc/ada/switch-b.adb index e9f8df6177b..0938c10eeaa 100644 --- a/gcc/ada/switch-b.adb +++ b/gcc/ada/switch-b.adb @@ -456,6 +456,12 @@ package body Switch.B is Ptr := Ptr + 1; Scan_Pos (Switch_Chars, Max, Ptr, Default_Exit_Status, C); + -- Processing for y switch + + when 'y' => + Ptr := Ptr + 1; + Leap_Seconds_Support := True; + -- Processing for z switch when 'z' => -- 2.30.2