+2012-01-30 Hristian Kirtchev <kirtchev@adacore.com>
+
+ * exp_ch7.adb (Build_Finalizer_Call): Set loc again.
+ * exp_ch11.adb (Expand_At_End_Handler): Do not provide a source
+ location for the wrapped call to the original AT_END routine
+ and the subsequent return statement.
+
+2012-01-30 Pascal Obry <obry@adacore.com>
+
+ * s-rannum.adb: Minor reformatting.
+
+2012-01-30 Hristian Kirtchev <kirtchev@adacore.com>
+
+ * a-calend-vms.adb, a-calend.adb: Increment the number of leap seconds
+ to 25 and add the hard time value for 2012-06-30.
+
2012-01-30 Robert Dewar <dewar@adacore.com>
* a-strhas.ads, einfo.adb, einfo.ads, exp_ch7.adb, exp_ch9.adb,
-- --
-- B o d y --
-- --
--- Copyright (C) 1992-2009, Free Software Foundation, Inc. --
+-- Copyright (C) 1992-2012, Free Software Foundation, Inc. --
-- --
-- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- --
-- The above flag controls the usage of leap seconds in all Ada.Calendar
-- routines.
- Leap_Seconds_Count : constant Natural := 24;
+ Leap_Seconds_Count : constant Natural := 25;
---------------------
-- Local Constants --
43744320200000000,
44218656210000000,
46427904220000000,
- 47374848230000000);
+ 47374848230000000,
+ 48478176240000000);
---------
-- "+" --
Leap_Support : constant Boolean := (Flag = 1);
-- Flag to controls the usage of leap seconds in all Ada.Calendar routines
- Leap_Seconds_Count : constant Natural := 24;
+ Leap_Seconds_Count : constant Natural := 25;
---------------------
-- Local Constants --
-4812566380000000000,
-4765132779000000000,
-4544207978000000000,
- -4449513577000000000);
+ -4449513577000000000,
+ -4339180776000000000);
---------
-- "+" --
procedure Expand_At_End_Handler (HSS : Node_Id; Block : Node_Id) is
Clean : constant Entity_Id := Entity (At_End_Proc (HSS));
- Loc : constant Source_Ptr := Sloc (Clean);
Ohandle : Node_Id;
Stmnts : List_Id;
+ Loc : constant Source_Ptr := No_Location;
+ -- Location used for expansion. We quite deliberately do not set a
+ -- specific source location for the expanded handler. This makes
+ -- sense since really the handler is not associated with specific
+ -- source. We used to set this to Sloc (Clean), but that caused
+ -- useless and annoying bouncing around of line numbers in the
+ -- debugger in some circumstances.
+
begin
pragma Assert (Present (Clean));
pragma Assert (No (Exception_Handlers (HSS)));
-- Determine whether N denotes the protected version of a subprogram
-- which belongs to a protected type.
- Loc : constant Source_Ptr := No_Location;
+ Loc : constant Source_Ptr := Sloc (N);
HSS : Node_Id;
begin
begin
return State_Val'Value (S (Start .. Start + Image_Numeral_Length - 1));
end Extract_Value;
+
end System.Random_Numbers;