diff options
Diffstat (limited to 'gcc-4.8/gcc/ada/a-calari.adb')
| -rw-r--r-- | gcc-4.8/gcc/ada/a-calari.adb | 100 |
1 files changed, 0 insertions, 100 deletions
diff --git a/gcc-4.8/gcc/ada/a-calari.adb b/gcc-4.8/gcc/ada/a-calari.adb deleted file mode 100644 index 1166b4349..000000000 --- a/gcc-4.8/gcc/ada/a-calari.adb +++ /dev/null @@ -1,100 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT RUN-TIME COMPONENTS -- --- -- --- A D A . C A L E N D A R . A R I T H M E T I C -- --- -- --- B o d y -- --- -- --- Copyright (C) 2006-2009, 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- -- --- ware Foundation; either version 3, or (at your option) any later ver- -- --- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- --- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- --- or FITNESS FOR A PARTICULAR PURPOSE. -- --- -- --- As a special exception under Section 7 of GPL version 3, you are granted -- --- additional permissions described in the GCC Runtime Library Exception, -- --- version 3.1, as published by the Free Software Foundation. -- --- -- --- You should have received a copy of the GNU General Public License and -- --- a copy of the GCC Runtime Library Exception along with this program; -- --- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- --- <http://www.gnu.org/licenses/>. -- --- -- --- GNAT was originally developed by the GNAT team at New York University. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- --- -- ------------------------------------------------------------------------------- - -package body Ada.Calendar.Arithmetic is - - -------------------------- - -- Implementation Notes -- - -------------------------- - - -- All operations in this package are target and time representation - -- independent, thus only one source file is needed for multiple targets. - - --------- - -- "+" -- - --------- - - function "+" (Left : Time; Right : Day_Count) return Time is - R : constant Long_Integer := Long_Integer (Right); - begin - return Arithmetic_Operations.Add (Left, R); - end "+"; - - function "+" (Left : Day_Count; Right : Time) return Time is - L : constant Long_Integer := Long_Integer (Left); - begin - return Arithmetic_Operations.Add (Right, L); - end "+"; - - --------- - -- "-" -- - --------- - - function "-" (Left : Time; Right : Day_Count) return Time is - R : constant Long_Integer := Long_Integer (Right); - begin - return Arithmetic_Operations.Subtract (Left, R); - end "-"; - - function "-" (Left, Right : Time) return Day_Count is - Days : Long_Integer; - Seconds : Duration; - Leap_Seconds : Integer; - pragma Warnings (Off, Seconds); -- temporary ??? - pragma Warnings (Off, Leap_Seconds); -- temporary ??? - pragma Unreferenced (Seconds, Leap_Seconds); - begin - Arithmetic_Operations.Difference - (Left, Right, Days, Seconds, Leap_Seconds); - return Day_Count (Days); - end "-"; - - ---------------- - -- Difference -- - ---------------- - - procedure Difference - (Left : Time; - Right : Time; - Days : out Day_Count; - Seconds : out Duration; - Leap_Seconds : out Leap_Seconds_Count) - is - Op_Days : Long_Integer; - Op_Leaps : Integer; - begin - Arithmetic_Operations.Difference - (Left, Right, Op_Days, Seconds, Op_Leaps); - Days := Day_Count (Op_Days); - Leap_Seconds := Leap_Seconds_Count (Op_Leaps); - end Difference; - -end Ada.Calendar.Arithmetic; |