source: rtems/c/src/ada-tests/support/timer_driver.ads @ 8fbe2e6

4.115
Last change on this file since 8fbe2e6 was c499856, checked in by Chris Johns <chrisj@…>, on Mar 20, 2014 at 9:10:47 PM

Change all references of rtems.com to rtems.org.

  • Property mode set to 100644
File size: 1.4 KB
Line 
1--
2--  Timer_Driver / Specification
3--
4--  Description:
5--
6--  This package is the specification for the Timer Driver.
7--
8--  Dependencies:
9--
10-- 
11--
12--  COPYRIGHT (c) 1989-1997.
13--  On-Line Applications Research Corporation (OAR).
14--
15--  The license and distribution terms for this file may in
16--  the file LICENSE in this distribution or at
17--  http://www.rtems.org/license/LICENSE.
18--
19
20with RTEMS;
21
22package Timer_Driver is
23
24--
25--  Initialize
26--
27--  Description:
28--
29--  This subprogram initializes the hardware timer to start it.
30--
31
32   procedure Initialize;
33   pragma Import (C, Initialize, "benchmark_timer_initialize");
34
35--
36--  Read_Timer
37--
38--  Description:
39--
40--  This subprogram stops the timer, calculates the length of time
41--  in microseconds since the timer was started, and returns that
42--  value.
43--
44
45   function Read_Timer 
46   return RTEMS.Unsigned32;
47   pragma Import (C, Read_Timer, "benchmark_timer_read");
48
49--
50--  Empty_Function
51--
52--  Description:
53--
54--  This subprogram is an empty subprogram.  It is used to
55--  insure that a loop will be included in the final executable
56--  so that loop overhead can be subtracted from the directive
57--  times reported.
58--
59
60   procedure Empty_Function;
61
62--
63--  Set_Find_Average_Overhead
64--
65--  Description:
66--
67--  This subprogram sets the Find_Average_Overhead flag to the
68--  the value passed.
69--
70 
71   procedure Set_Find_Average_Overhead (
72      Find_Flag : in     Standard.Boolean
73   );
74
75private
76
77end Timer_Driver;
Note: See TracBrowser for help on using the repository browser.