diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2008-09-29 20:44:58 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2008-09-29 20:44:58 +0000 |
commit | a8e724d6f92fcf084952eb89c7bb04a4ca244957 (patch) | |
tree | 8909b584bf9ed67fc2a6db11e396dd4220137c7d /c/src/ada-tests/support/timer_driver.adb | |
parent | 2008-09-29 Ralf Corsépius <ralf.corsepius@rtems.org> (diff) | |
download | rtems-a8e724d6f92fcf084952eb89c7bb04a4ca244957.tar.bz2 |
2008-09-29 Joel Sherrill <joel.sherrill@oarcorp.com>
* 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.
Diffstat (limited to '')
-rw-r--r-- | c/src/ada-tests/support/timer_driver.adb | 24 |
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; |