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

diff --git a/gcc/ada/bindusg.adb b/gcc/ada/bindusg.adb
index ea06299e4373e40c1498542e96db499cd44df9e3..21e31638ab588e0dcf97764c637e77992608186a 100644 (file)
--- 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 69676a935631c5fcf90aa3bc607ffe22f53b59db..7a105569cd04738a9b85c815fd058249b94d9dd7 100644 (file)
--- 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 e9f8df6177b4d3b686a5cede9c40ecb29ada8473..0938c10eeaa21358e5c6f31e24a4c9999c84f29e 100644 (file)
--- 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' =>