source: rtems/c/src/ada-tests/support/timer_driver.adb @ 3b1a322

4.9
Last change on this file since 3b1a322 was 3b1a322, checked in by Joel Sherrill <joel.sherrill@…>, on 09/29/08 at 20:44:38

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.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-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;
23with Interfaces.C;
24
25package body Timer_Driver is
26
27--PAGE
28--
29--  Empty_function
30--
31--
32   procedure Empty_Function
33   is
34   begin
35      Null;
36   end Empty_Function;
37
38--PAGE
39--
40--  Set_Find_Average_Overhead
41--
42--
43 
44   procedure Set_Find_Average_Overhead (
45      Find_Flag : in     Standard.Boolean
46   ) is
47      procedure Set_Find_Average_Overhead_base (
48         Find_Flag : in     Interfaces.Unsigned_8
49      );
50      pragma Import (C, Set_Find_Average_Overhead_base,
51         "benchmark_timer_disable_subtracting_average_overhead");
52      c: Interfaces.Unsigned_8;
53   begin
54      if Find_Flag then
55        c := 1;
56      else
57        c := 0;
58      end if;
59      Set_Find_Average_Overhead_base (c);
60   end Set_Find_Average_Overhead;
61
62end Timer_Driver;
Note: See TracBrowser for help on using the repository browser.