forked from Imagelibrary/rtems
ada-tests: Move to testsuites/ada
This solves a build dependency issue, e.g. building tests before librtemsbsp.a exists. Close #3079.
This commit is contained in:
59
testsuites/ada/support/timer_driver.adb
Normal file
59
testsuites/ada/support/timer_driver.adb
Normal file
@@ -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;
|
||||
Reference in New Issue
Block a user