source: rtems/c/src/ada-tests/support/timer_driver.adb @ 48bfd992

4.104.114.84.95
Last change on this file since 48bfd992 was 5d0f4a56, checked in by Joel Sherrill <joel.sherrill@…>, on Jun 3, 1997 at 10:49:47 PM

new files

  • Property mode set to 100644
File size: 953 bytes
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--  Copyright assigned to U.S. Government, 1994.
15--
16--  The license and distribution terms for this file may in
17--  the file LICENSE in this distribution or at
18--  http://www.OARcorp.com/rtems/license.html.
19--
20--  $Id$
21--
22
23with RTEMS;
24
25package body Timer_Driver is
26
27--PAGE
28--
29--  Set_Find_Average_Overhead
30--
31--
32 
33   procedure Set_Find_Average_Overhead (
34      Find_Flag : in     Standard.Boolean
35   ) is
36      procedure Set_Find_Average_Overhead_base (
37         Find_Flag : in     RTEMS.Boolean
38      );
39      pragma Import (C, Set_Find_Average_Overhead_base,
40         "Set_find_average_overhead");
41   begin
42      Set_Find_Average_Overhead_base (RTEMS.From_Ada_Boolean (Find_Flag));
43   end Set_Find_Average_Overhead;
44
45end Timer_Driver;
Note: See TracBrowser for help on using the repository browser.