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

4.104.115
Last change on this file since 04e8c69 was ad01cc3b, checked in by Joel Sherrill <joel.sherrill@…>, on 09/10/08 at 21:36:04

2008-09-10 Joel Sherrill <joel.sherrill@…>

  • support/timer_driver.ads: Switch to new names.
  • Property mode set to 100644
File size: 1.6 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--  $Id$
20--
21
22with RTEMS;
23
24package Timer_Driver is
25
26--
27--  Initialize
28--
29--  Description:
30--
31--  This subprogram initializes the hardware timer to start it.
32--
33
34   procedure Initialize;
35   pragma Import (C, Initialize, "benchmark_timer_initialize");
36
37--
38--  Read_Timer
39--
40--  Description:
41--
42--  This subprogram stops the timer, calculates the length of time
43--  in microseconds since the timer was started, and returns that
44--  value.
45--
46
47   function Read_Timer
48   return RTEMS.Unsigned32;
49   pragma Import (C, Read_Timer, "benchmark_timer_read");
50
51--
52--  Empty_Function
53--
54--  Description:
55--
56--  This subprogram is an empty subprogram.  It is used to
57--  insure that a loop will be included in the final executable
58--  so that loop overhead can be subtracted from the directive
59--  times reported.
60--
61
62   procedure Empty_Function;
63   pragma Import (C, Empty_Function, "Empty_function");
64
65--
66--  Set_Find_Average_Overhead
67--
68--  Description:
69--
70--  This subprogram sets the Find_Average_Overhead flag to the
71--  the value passed.
72--
73 
74   procedure Set_Find_Average_Overhead (
75      Find_Flag : in     Standard.Boolean
76   );
77   pragma Import (C, Set_Find_Average_Overhead,
78      "benchmark_timer_disable_subtracting_average_overhead");
79
80private
81
82end Timer_Driver;
Note: See TracBrowser for help on using the repository browser.