1 files changed, 119 insertions, 0 deletions
diff --git a/testsuites/rhealstone/ilatency/ilatency.c b/testsuites/rhealstone/ilatency/ilatency.c
new file mode 100644
index 0000000000..df21341285
--- /dev/null
+++ b/testsuites/rhealstone/ilatency/ilatency.c
@@ -0,0 +1,119 @@
+/* Copyright 2014 Daniel Ramirez (javamonn@gmail.com)
+ *
+ * This file's license is 2-clause BSD as in this distribution's LICENSE.2 file.
+ */
+
+/*
+ *  WARNING!!!!!!!!!
+ *
+ *  THIS TEST USES INTERNAL RTEMS VARIABLES!!!
+ */
+
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+#define CONFIGURE_INIT
+#include <timesys.h>
+#include <rtems/timerdrv.h>
+#include <coverhd.h>
+
+/* configuration information */
+#define CONFIGURE_APPLICATION_NEEDS_CONSOLE_DRIVER
+#define CONFIGURE_APPLICATION_NEEDS_TIMER_DRIVER
+#define CONFIGURE_MAXIMUM_TASKS              2
+#define CONFIGURE_TICKS_PER_TIMESLICE        0
+#define CONFIGURE_RTEMS_INIT_TASKS_TABLE
+#define CONFIGURE_SCHEDULER_PRIORITY
+
+#include <rtems/confdefs.h>
+
+#include <bsp.h>
+
+#define _RTEMS_TMTEST27
+#include <tm27.h>
+
+#define BENCHMARKS 50000
+
+rtems_task Task_1(
+  rtems_task_argument argument
+);
+
+uint32_t   Interrupt_nest;
+uint32_t   timer_overhead;
+uint32_t   Interrupt_enter_time;
+
+rtems_isr Isr_handler(
+  rtems_vector_number vector
+);
+
+rtems_task Init(
+  rtems_task_argument argument
+)
+{
+  rtems_status_code status;
+  rtems_id Task_id
+
+  Print_Warning();
+
+  if (_Scheduler.Operations.initialize != _Scheduler_priority_Initialize) {
+    puts( "  Error ==> " );
+    puts( "Test only supported for deterministic priority scheduler\n" );
+    rtems_test_exit( 0 );
+  }
+
+#define LOW_PRIORITY (RTEMS_MAXIMUM_PRIORITY - 1u)
+  status = rtems_task_create(
+    rtems_build_name( 'T', 'A', '1', ' ' ),
+    LOW_PRIORITY,
+    RTEMS_MINIMUM_STACK_SIZE,
+    RTEMS_DEFAULT_MODES,
+    RTEMS_DEFAULT_ATTRIBUTES,
+    &Task_id
+  );
+  directive_failed( status, "rtems_task_create Task_1" );
+
+  status = rtems_task_start( Task_id, Task_1, 0 );
+  directive_failed( status, "rtems_task_start Task_1" );
+
+  benchmark_timer_initialize();
+  benchmark_timer_read();
+  benchmark_timer_initialize();
+  timer_overhead = benchmark_timer_read();
+
+  status = rtems_task_delete( RTEMS_SELF );
+  directive_failed( status, "rtems_task_delete of RTEMS_SELF" );
+}
+
+rtems_task Task_1(
+  rtems_task_argument argument
+)
+{
+  Install_tm27_vector( Isr_handler ) ;
+  Interrupt_nest = 0;
+  _Thread_Dispatch_set_disable_level( 0 );
+
+  /* Benchmark code */
+  benchmark_timer_initialize();
+  /* goes to Isr_handler */
+  Cause_tm27_intr();
+
+  put_time(
+    "Rhealstone: Interrupt Latency",
+    Interrupt_enter_time,
+    1,                             /* Only Rhealstone that isn't an average */
+    timer_overhead,
+    0
+  );
+
+  rtems_test_exit( 0 );
+}
+
+rtems_isr Isr_handler(
+  rtems_vector_number vector
+)
+{
+  /* See how long it took system to recognize interrupt */
+  Interrupt_enter_time = benchmark_timer_read();
+  Clear_tm27_intr();
+}