2009-12-08 Glenn Humphrey <glenn.humphrey@OARcorp.com>

	* support/include/test_support.h, support/include/tmacros.h,
	support/src/test_support.c: Added support functions to spin for a
	number of ticks and to spin until the next tick.
	* support/src/spin.c: New file.

2 files changed, 48 insertions, 8 deletions

diff --git a/testsuites/support/src/spin.c b/testsuites/support/src/spin.c
new file mode 100644
index 0000000000..a3a73d1f5f
--- /dev/null
+++ b/testsuites/support/src/spin.c
@@ -0,0 +1,46 @@
+/* 
+ *  COPYRIGHT (c) 1989-2009.
+ *  On-Line Applications Research Corporation (OAR).
+ *
+ *  The license and distribution terms for this file may be
+ *  found in the file LICENSE in this distribution or at
+ *  http://www.rtems.com/license/LICENSE.
+ *
+ *  $Id$
+ */
+
+#include <rtems.h>
+
+/*
+ *  Burn CPU for specified number of ticks
+ */
+void rtems_test_spin_for_ticks(int ticks)
+{
+  rtems_interval        start;
+  rtems_interval        now;
+
+  start = rtems_clock_get_ticks_since_boot();
+  do {
+    now = rtems_clock_get_ticks_since_boot();
+    /*
+     *  Spin for <= ticks so we spin >= number of ticks.
+     *  The first tick we spin through is a partial one.
+     *  So you sping "ticks" number of ticks plus a partial
+     *  one.
+     */
+  } while ( (now-start) <= ticks );
+}
+
+/*
+ *  Spin until the next clock tick
+ */
+void rtems_test_spin_until_next_tick( void )
+{
+  rtems_interval        start;
+  rtems_interval        now;
+
+  start = rtems_clock_get_ticks_since_boot();
+  do {
+    now = rtems_clock_get_ticks_since_boot();
+  } while ( now != start );
+}
diff --git a/testsuites/support/src/test_support.c b/testsuites/support/src/test_support.c
index 6596561c3c..e71700aec4 100644
--- a/testsuites/support/src/test_support.c
+++ b/testsuites/support/src/test_support.c
@@ -1,11 +1,5 @@
-/*  long_name
- *
- *  This set of routines is create names that are the maximum length or one over
- *  the maximum length.
- *
- *  Output parameters:  constant character string of max length or max length + 1
- *
- *  COPYRIGHT (c) 1989-2008.
+/*
+ *  COPYRIGHT (c) 1989-2009.
  *  On-Line Applications Research Corporation (OAR).
  *
  *  The license and distribution terms for this file may be