source: rtems/c/src/ada-tests/support/timer_driver.adb @ 9b4422a2

4.115
Last change on this file since 9b4422a2 was 9b4422a2, checked in by Joel Sherrill <joel.sherrill@…>, on May 3, 2012 at 3:09:24 PM

Remove All CVS Id Strings Possible Using a Script

Script does what is expected and tries to do it as
smartly as possible.

+ remove occurrences of two blank comment lines

next to each other after Id string line removed.

+ remove entire comment blocks which only exited to

contain CVS Ids

+ If the processing left a blank line at the top of

a file, it was removed.

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