diff options
author | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2017-10-12 10:00:10 +0200 |
---|---|---|
committer | Sebastian Huber <sebastian.huber@embedded-brains.de> | 2017-10-12 10:53:16 +0200 |
commit | ee537ea3dd964d4de3565a36b4857af31fb5a3f4 (patch) | |
tree | ad8b328a58469ca0632e3e61cd94f37c9d97cc25 /testsuites/ada/support/timer_driver.adb | |
parent | ada-tests: Use _SUBDIRS instead of SUBDIRS (diff) | |
download | rtems-ee537ea3dd964d4de3565a36b4857af31fb5a3f4.tar.bz2 |
ada-tests: Move to testsuites/ada
This solves a build dependency issue, e.g. building tests before
librtemsbsp.a exists.
Close #3079.
Diffstat (limited to 'testsuites/ada/support/timer_driver.adb')
-rw-r--r-- | testsuites/ada/support/timer_driver.adb | 59 |
1 files changed, 59 insertions, 0 deletions
diff --git a/testsuites/ada/support/timer_driver.adb b/testsuites/ada/support/timer_driver.adb new file mode 100644 index 0000000000..389499ccc8 --- /dev/null +++ b/testsuites/ada/support/timer_driver.adb @@ -0,0 +1,59 @@ +-- +-- Timer_Driver / Body +-- +-- Description: +-- +-- This package is the body for the Timer Driver. +-- +-- Dependencies: +-- +-- +-- +-- COPYRIGHT (c) 1989-2009. +-- On-Line Applications Research Corporation (OAR). +-- +-- The license and distribution terms for this file may in +-- the file LICENSE in this distribution or at +-- http://www.rtems.org/license/LICENSE. +-- + +with Interfaces; + +package body Timer_Driver is + +--PAGE +-- +-- Empty_function +-- +-- + procedure Empty_Function + is + begin + Null; + end Empty_Function; + +--PAGE +-- +-- Set_Find_Average_Overhead +-- +-- + + procedure Set_Find_Average_Overhead ( + Find_Flag : in Standard.Boolean + ) is + procedure Set_Find_Average_Overhead_base ( + Find_Flag : in Interfaces.Unsigned_8 + ); + pragma Import (C, Set_Find_Average_Overhead_base, + "benchmark_timer_disable_subtracting_average_overhead"); + c: Interfaces.Unsigned_8; + begin + if Find_Flag then + c := 1; + else + c := 0; + end if; + Set_Find_Average_Overhead_base (c); + end Set_Find_Average_Overhead; + +end Timer_Driver; |