summaryrefslogtreecommitdiffstats
path: root/c/src/ada-tests/support/timer_driver.adb
diff options
context:
space:
mode:
Diffstat (limited to 'c/src/ada-tests/support/timer_driver.adb')
-rw-r--r--c/src/ada-tests/support/timer_driver.adb24
1 files changed, 21 insertions, 3 deletions
diff --git a/c/src/ada-tests/support/timer_driver.adb b/c/src/ada-tests/support/timer_driver.adb
index 5c27fee89e..f2a2144a3b 100644
--- a/c/src/ada-tests/support/timer_driver.adb
+++ b/c/src/ada-tests/support/timer_driver.adb
@@ -20,11 +20,23 @@
--
with RTEMS;
+with Interfaces.C;
package body Timer_Driver is
--PAGE
--
+-- Empty_function
+--
+--
+ procedure Empty_Function
+ is
+ begin
+ Null;
+ end Empty_Function;
+
+--PAGE
+--
-- Set_Find_Average_Overhead
--
--
@@ -33,12 +45,18 @@ package body Timer_Driver is
Find_Flag : in Standard.Boolean
) is
procedure Set_Find_Average_Overhead_base (
- Find_Flag : in RTEMS.Boolean
+ Find_Flag : in Interfaces.Unsigned_8
);
pragma Import (C, Set_Find_Average_Overhead_base,
- "Set_find_average_overhead");
+ "benchmark_timer_disable_subtracting_average_overhead");
+ c: Interfaces.Unsigned_8;
begin
- Set_Find_Average_Overhead_base (RTEMS.From_Ada_Boolean (Find_Flag));
+ 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;