diff options
| author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2007-10-01 22:58:09 +0000 |
|---|---|---|
| committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2007-10-01 22:58:09 +0000 |
| commit | 23848bbd80f00aa8e271322f19871c0ba1366803 (patch) | |
| tree | bbd298dd8b603b86be7d8be7a96dace04ccb9c43 /c/src/ada-tests/support/test_support.ads | |
| parent | 2007-10-01 Joel Sherrill <joel.sherrill@OARcorp.com> (diff) | |
| download | rtems-23848bbd80f00aa8e271322f19871c0ba1366803.tar.bz2 | |
2007-10-01 Joel Sherrill <joel.sherrill@OARcorp.com>
* mptests/mp01/mptest.adb, mptests/mp01/mptest.ads,
mptests/mp01/node1/Makefile.am, mptests/mp02/mptest.adb,
mptests/mp02/mptest.ads, mptests/mp03/mptest.adb,
mptests/mp03/mptest.ads, mptests/mp04/mptest.adb,
mptests/mp04/mptest.ads, mptests/mp05/mptest.adb,
mptests/mp05/mptest.ads, mptests/mp06/mptest.adb,
mptests/mp06/mptest.ads, mptests/mp07/mptest.adb,
mptests/mp07/mptest.ads, mptests/mp08/mptest.adb,
mptests/mp08/mptest.ads, mptests/mp09/mptest.adb,
mptests/mp09/mptest.ads, mptests/mp10/mptest.adb,
mptests/mp10/mptest.ads, mptests/mp11/mptest.adb,
mptests/mp11/mptest.ads, mptests/mp12/mptest.adb,
mptests/mp12/mptest.ads, mptests/mp13/mptest.adb,
mptests/mp13/mptest.ads, mptests/mp14/mptest.adb,
mptests/mp14/mptest.ads, support/init.c, support/test_support.adb,
support/test_support.ads: Most of single processor Ada tests now
build. Some run.
Diffstat (limited to '')
| -rw-r--r-- | c/src/ada-tests/support/test_support.ads | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/c/src/ada-tests/support/test_support.ads b/c/src/ada-tests/support/test_support.ads index eef9c22ede..8122c13f61 100644 --- a/c/src/ada-tests/support/test_support.ads +++ b/c/src/ada-tests/support/test_support.ads @@ -156,8 +156,8 @@ package Test_Support is -- occur each second. -- - Ticks_Per_Second : RTEMS.Interval; - pragma Import (C, Ticks_Per_Second, "_TOD_Ticks_per_second"); + function Ticks_Per_Second + return RTEMS.Interval; -- -- Milliseconds_Per_Tick is the number of milliseconds which @@ -167,6 +167,19 @@ package Test_Support is function Milliseconds_Per_Tick return RTEMS.Unsigned32; +-- +-- Node is the node number in a multiprocessor configuration +-- + + function Node + return RTEMS.Unsigned32; + +-- +-- Longest time in seconds to run a test +-- + + MAXIMUM_LONG_TEST_DURATION : RTEMS.UNSIGNED32; + private end Test_Support; |