source:
rtems/testsuites/ada/support/timer_driver.adb
@
48aa4b5d
Last change on this file since 48aa4b5d was ee537ea, checked in by Sebastian Huber <sebastian.huber@…>, on 10/12/17 at 08:00:10 | |
---|---|
|
|
File size: 1.1 KB |
Rev | Line | |
---|---|---|
[5d0f4a56] | 1 | -- |
2 | -- Timer_Driver / Body | |
3 | -- | |
4 | -- Description: | |
5 | -- | |
6 | -- This package is the body for the Timer Driver. | |
7 | -- | |
8 | -- Dependencies: | |
9 | -- | |
10 | -- | |
11 | -- | |
[110e1f1] | 12 | -- COPYRIGHT (c) 1989-2009. |
[5d0f4a56] | 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 | |
[c499856] | 17 | -- http://www.rtems.org/license/LICENSE. |
[5d0f4a56] | 18 | -- |
19 | ||
[110e1f1] | 20 | with Interfaces; |
[5d0f4a56] | 21 | |
22 | package body Timer_Driver is | |
23 | ||
[a8e724d6] | 24 | --PAGE |
25 | -- | |
26 | -- Empty_function | |
27 | -- | |
28 | -- | |
29 | procedure Empty_Function | |
30 | is | |
31 | begin | |
32 | Null; | |
33 | end Empty_Function; | |
34 | ||
[5d0f4a56] | 35 | --PAGE |
36 | -- | |
37 | -- Set_Find_Average_Overhead | |
38 | -- | |
39 | -- | |
40 | ||
41 | procedure Set_Find_Average_Overhead ( | |
42 | Find_Flag : in Standard.Boolean | |
43 | ) is | |
44 | procedure Set_Find_Average_Overhead_base ( | |
[a8e724d6] | 45 | Find_Flag : in Interfaces.Unsigned_8 |
[5d0f4a56] | 46 | ); |
47 | pragma Import (C, Set_Find_Average_Overhead_base, | |
[a8e724d6] | 48 | "benchmark_timer_disable_subtracting_average_overhead"); |
49 | c: Interfaces.Unsigned_8; | |
[5d0f4a56] | 50 | begin |
[a8e724d6] | 51 | if Find_Flag then |
52 | c := 1; | |
53 | else | |
54 | c := 0; | |
55 | end if; | |
56 | Set_Find_Average_Overhead_base (c); | |
[5d0f4a56] | 57 | end Set_Find_Average_Overhead; |
58 | ||
59 | end Timer_Driver; |
Note: See TracBrowser
for help on using the repository browser.