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

4.104.115
Last change on this file since a8e724d6 was a8e724d6, checked in by Joel Sherrill <joel.sherrill@…>, on Sep 29, 2008 at 8:44:58 PM

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

  • support/timer_driver.adb, support/timer_driver.ads, tmtests/tm01/tmtest.adb, tmtests/tm02/tmtest.adb, tmtests/tm03/tmtest.adb, tmtests/tm04/tmtest.adb, tmtests/tm05/tmtest.adb, tmtests/tm06/tmtest.adb, tmtests/tm07/tmtest.adb, tmtests/tm08/tmtest.adb, tmtests/tm09/tmtest.adb, tmtests/tm10/tmtest.adb, tmtests/tm11/tmtest.adb, tmtests/tm12/tmtest.adb, tmtests/tm13/tmtest.adb, tmtests/tm14/tmtest.adb, tmtests/tm15/tmtest.adb, tmtests/tm16/tmtest.adb, tmtests/tm17/tmtest.adb, tmtests/tm18/tmtest.adb, tmtests/tm19/tmtest.adb, tmtests/tm20/config.h, tmtests/tm20/tmtest.adb, tmtests/tm21/tmtest.adb, tmtests/tm22/tmtest.adb, tmtests/tm23/tmtest.adb, tmtests/tm24/tmtest.adb, tmtests/tm25/tmtest.adb, tmtests/tm28/tmtest.adb, tmtests/tm29/tmtest.adb, tmtests/tmck/tmtest.adb, tmtests/tmoverhd/tmtest.adb: Clean up. Verified to run on psim with gcc 4.3.2.
  • Property mode set to 100644
File size: 1.5 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
64--
65--  Set_Find_Average_Overhead
66--
67--  Description:
68--
69--  This subprogram sets the Find_Average_Overhead flag to the
70--  the value passed.
71--
72 
73   procedure Set_Find_Average_Overhead (
74      Find_Flag : in     Standard.Boolean
75   );
76
77private
78
79end Timer_Driver;
Note: See TracBrowser for help on using the repository browser.