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

4.115
Last change on this file since f619250 was 9b4422a2, checked in by Joel Sherrill <joel.sherrill@…>, on May 3, 2012 at 3:09:24 PM

Remove All CVS Id Strings Possible Using a Script

Script does what is expected and tries to do it as
smartly as possible.

+ remove occurrences of two blank comment lines

next to each other after Id string line removed.

+ remove entire comment blocks which only exited to

contain CVS Ids

+ If the processing left a blank line at the top of

a file, it was removed.

  • 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.com/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.