source: rtems/testsuites/ada/support/timer_driver.adb @ 6e05265f

5
Last change on this file since 6e05265f was ee537ea, checked in by Sebastian Huber <sebastian.huber@…>, on 10/12/17 at 08:00:10

ada-tests: Move to testsuites/ada

This solves a build dependency issue, e.g. building tests before
librtemsbsp.a exists.

Close #3079.

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