diff options
Diffstat (limited to 'gcc-4.4.3/gcc/ada/a-exetim.ads')
-rw-r--r-- | gcc-4.4.3/gcc/ada/a-exetim.ads | 84 |
1 files changed, 0 insertions, 84 deletions
diff --git a/gcc-4.4.3/gcc/ada/a-exetim.ads b/gcc-4.4.3/gcc/ada/a-exetim.ads deleted file mode 100644 index c4b457794..000000000 --- a/gcc-4.4.3/gcc/ada/a-exetim.ads +++ /dev/null @@ -1,84 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT RUN-TIME COMPONENTS -- --- -- --- A D A . E X E C U T I O N _ T I M E -- --- -- --- S p e c -- --- -- --- This specification is derived from the Ada Reference Manual for use with -- --- GNAT. In accordance with the copyright of that document, you can freely -- --- copy and modify this specification, provided that if you redistribute a -- --- modified version, any changes that you have made are clearly indicated. -- --- -- ------------------------------------------------------------------------------- - --- This unit is not implemented in typical GNAT implementations that lie on --- top of operating systems, because it is infeasible to implement in such --- environments. - --- If a target environment provides appropriate support for this package --- then the Unimplemented_Unit pragma should be removed from this spec and --- an appropriate body provided. - -with Ada.Task_Identification; -with Ada.Real_Time; - -package Ada.Execution_Time is - pragma Preelaborate; - - pragma Unimplemented_Unit; - - type CPU_Time is private; - - CPU_Time_First : constant CPU_Time; - CPU_Time_Last : constant CPU_Time; - CPU_Time_Unit : constant := 0.000001; - CPU_Tick : constant Ada.Real_Time.Time_Span; - - function Clock - (T : Ada.Task_Identification.Task_Id - := Ada.Task_Identification.Current_Task) - return CPU_Time; - - function "+" - (Left : CPU_Time; - Right : Ada.Real_Time.Time_Span) return CPU_Time; - - function "+" - (Left : Ada.Real_Time.Time_Span; - Right : CPU_Time) return CPU_Time; - - function "-" - (Left : CPU_Time; - Right : Ada.Real_Time.Time_Span) return CPU_Time; - - function "-" - (Left : CPU_Time; - Right : CPU_Time) return Ada.Real_Time.Time_Span; - - function "<" (Left, Right : CPU_Time) return Boolean; - function "<=" (Left, Right : CPU_Time) return Boolean; - function ">" (Left, Right : CPU_Time) return Boolean; - function ">=" (Left, Right : CPU_Time) return Boolean; - - procedure Split - (T : CPU_Time; - SC : out Ada.Real_Time.Seconds_Count; - TS : out Ada.Real_Time.Time_Span); - - function Time_Of - (SC : Ada.Real_Time.Seconds_Count; - TS : Ada.Real_Time.Time_Span := Ada.Real_Time.Time_Span_Zero) - return CPU_Time; - -private - - type CPU_Time is new Ada.Real_Time.Time; - - CPU_Time_First : constant CPU_Time := CPU_Time (Ada.Real_Time.Time_First); - CPU_Time_Last : constant CPU_Time := CPU_Time (Ada.Real_Time.Time_Last); - - CPU_Tick : constant Ada.Real_Time.Time_Span := Ada.Real_Time.Tick; - -end Ada.Execution_Time; |