1 ------------------------------------------------------------------------------
3 -- GNAT RUN-TIME COMPONENTS --
5 -- A D A . E X E C U T I O N _ T I M E --
9 -- This specification is derived from the Ada Reference Manual for use with --
10 -- GNAT. The copyright notice above, and the license provisions that follow --
11 -- apply solely to the contents of the part following the private keyword. --
13 -- GNAT is free software; you can redistribute it and/or modify it under --
14 -- terms of the GNU General Public License as published by the Free Soft- --
15 -- ware Foundation; either version 2, or (at your option) any later ver- --
16 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
17 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
18 -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
19 -- for more details. You should have received a copy of the GNU General --
20 -- Public License distributed with GNAT; see file COPYING. If not, write --
21 -- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
22 -- Boston, MA 02110-1301, USA. --
24 -- As a special exception, if other files instantiate generics from this --
25 -- unit, or you link this unit with other files to produce an executable, --
26 -- this unit does not by itself cause the resulting executable to be --
27 -- covered by the GNU General Public License. This exception does not --
28 -- however invalidate any other reasons why the executable file might be --
29 -- covered by the GNU Public License. --
31 -- GNAT was originally developed by the GNAT team at New York University. --
32 -- Extensive contributions were provided by Ada Core Technologies Inc. --
33 ------------------------------------------------------------------------------
35 -- This is the Windows native version of this package
37 with Ada
.Task_Identification
;
40 package Ada
.Execution_Time
is
42 type CPU_Time
is private;
44 CPU_Time_First
: constant CPU_Time
;
45 CPU_Time_Last
: constant CPU_Time
;
46 CPU_Time_Unit
: constant := 0.000001;
47 CPU_Tick
: constant Ada
.Real_Time
.Time_Span
;
50 (T
: Ada
.Task_Identification
.Task_Id
:=
51 Ada
.Task_Identification
.Current_Task
) return CPU_Time
;
55 Right
: Ada
.Real_Time
.Time_Span
) return CPU_Time
;
58 (Left
: Ada
.Real_Time
.Time_Span
;
59 Right
: CPU_Time
) return CPU_Time
;
63 Right
: Ada
.Real_Time
.Time_Span
) return CPU_Time
;
67 Right
: CPU_Time
) return Ada
.Real_Time
.Time_Span
;
69 function "<" (Left
, Right
: CPU_Time
) return Boolean;
70 function "<=" (Left
, Right
: CPU_Time
) return Boolean;
71 function ">" (Left
, Right
: CPU_Time
) return Boolean;
72 function ">=" (Left
, Right
: CPU_Time
) return Boolean;
76 SC
: out Ada
.Real_Time
.Seconds_Count
;
77 TS
: out Ada
.Real_Time
.Time_Span
);
80 (SC
: Ada
.Real_Time
.Seconds_Count
;
81 TS
: Ada
.Real_Time
.Time_Span
:= Ada
.Real_Time
.Time_Span_Zero
)
86 type CPU_Time
is new Ada
.Real_Time
.Time
;
88 CPU_Time_First
: constant CPU_Time
:= CPU_Time
(Ada
.Real_Time
.Time_First
);
89 CPU_Time_Last
: constant CPU_Time
:= CPU_Time
(Ada
.Real_Time
.Time_Last
);
91 CPU_Tick
: constant Ada
.Real_Time
.Time_Span
:= Ada
.Real_Time
.Tick
;
93 pragma Import
(Intrinsic
, "<");
94 pragma Import
(Intrinsic
, "<=");
95 pragma Import
(Intrinsic
, ">");
96 pragma Import
(Intrinsic
, ">=");
98 end Ada
.Execution_Time
;