diff options
| author | Hristian Kirtchev <kirtchev@adacore.com> | 2007-09-12 13:58:59 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2007-09-12 13:58:59 +0200 |
| commit | d409ec50683213c605ea3ed1bc102335fc437706 (patch) | |
| tree | 5f4aae9b53909859c3cfc1daff6fe5fecb8966bd | |
| parent | 6411a62f3678e2eaa145b1d2b98e85524aec2005 (diff) | |
| download | gcc-d409ec50683213c605ea3ed1bc102335fc437706.zip gcc-d409ec50683213c605ea3ed1bc102335fc437706.tar.gz gcc-d409ec50683213c605ea3ed1bc102335fc437706.tar.bz2 | |
bindusg.adb (Display): Correct comment for switch -X.
2007-09-12 Hristian Kirtchev <kirtchev@adacore.com>
* 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
| -rw-r--r-- | gcc/ada/bindusg.adb | 6 | ||||
| -rw-r--r-- | gcc/ada/opt.ads | 5 | ||||
| -rw-r--r-- | gcc/ada/switch-b.adb | 6 |
3 files changed, 16 insertions, 1 deletions
diff --git a/gcc/ada/bindusg.adb b/gcc/ada/bindusg.adb index ea06299..21e3163 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 69676a9..7a10556 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 e9f8df6..0938c10 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' => |