source: rtems/c/src/ada-tests/support/timer_driver.adb @ 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.1 KB
Line 
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--
12--  COPYRIGHT (c) 1989-2009.
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 Interfaces;
21
22package body Timer_Driver is
23
24--PAGE
25--
26--  Empty_function
27--
28--
29   procedure Empty_Function 
30   is
31   begin
32      Null;
33   end Empty_Function;
34
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 (
45         Find_Flag : in     Interfaces.Unsigned_8
46      );
47      pragma Import (C, Set_Find_Average_Overhead_base,
48         "benchmark_timer_disable_subtracting_average_overhead");
49      c: Interfaces.Unsigned_8;
50   begin
51      if Find_Flag then
52        c := 1;
53      else
54        c := 0;
55      end if;
56      Set_Find_Average_Overhead_base (c);
57   end Set_Find_Average_Overhead;
58
59end Timer_Driver;
Note: See TracBrowser for help on using the repository browser.