URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
Compare Revisions
- This comparison shows the changes necessary to convert path
/openrisc/trunk/rtos/rtems/c/src/tests/sptests/sp27
- from Rev 30 to Rev 173
- ↔ Reverse comparison
Rev 30 → Rev 173
/sp27.doc
--- init.c (nonexistent)
+++ init.c (revision 173)
@@ -0,0 +1,105 @@
+/*
+ * Test for rtems_semaphore_flush
+ *
+ * $Id: init.c,v 1.2 2001-09-27 12:02:36 chris Exp $
+ */
+
+#include
+
+rtems_task Init (rtems_task_argument argument);
+
+#define CONFIGURE_RTEMS_INIT_TASKS_TABLE
+
+#define CONFIGURE_APPLICATION_NEEDS_CONSOLE_DRIVER
+#define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER
+
+#define CONFIGURE_MAXIMUM_TASKS 6
+
+#define CONFIGURE_MICROSECONDS_PER_TICK 52429
+
+#define CONFIGURE_INIT
+
+#include
+
+#include
+#include
+
+#define NTASK 4
+
+rtems_id semaphore;
+volatile int flags[NTASK];
+
+rtems_task
+subtask (rtems_task_argument arg)
+{
+ rtems_status_code sc;
+
+ for (;;) {
+ flags[arg]++;
+ sc = rtems_semaphore_obtain (semaphore, RTEMS_WAIT, RTEMS_NO_TIMEOUT);
+ if (sc == RTEMS_SUCCESSFUL)
+ puts ("Obtained semaphore -- and should not have done so!");
+ else if (sc != RTEMS_UNSATISFIED)
+ printf ("Can't get semaphore: %s\n", rtems_status_text (sc));
+ }
+}
+
+void
+starttask (int arg)
+{
+ rtems_id tid;
+ rtems_status_code sc;
+ rtems_task_priority priority;
+
+ rtems_task_set_priority (RTEMS_SELF, RTEMS_CURRENT_PRIORITY, &priority);
+ sc = rtems_task_create (rtems_build_name ('S', 'R', 'V', arg + 'A'),
+ priority,
+ RTEMS_MINIMUM_STACK_SIZE,
+ RTEMS_PREEMPT|RTEMS_NO_TIMESLICE|RTEMS_NO_ASR|RTEMS_INTERRUPT_LEVEL(0),
+ RTEMS_NO_FLOATING_POINT|RTEMS_LOCAL,
+ &tid);
+ if (sc != RTEMS_SUCCESSFUL) {
+ printf ("Can't create task: %s\n", rtems_status_text (sc));
+ rtems_task_suspend (RTEMS_SELF);
+ }
+ sc = rtems_task_start (tid, subtask, arg);
+ if (sc != RTEMS_SUCCESSFUL) {
+ printf ("Can't start task: %s\n", rtems_status_text (sc));
+ rtems_task_suspend (RTEMS_SELF);
+ }
+}
+
+rtems_task
+Init (rtems_task_argument ignored)
+{
+ int pass, i;
+ rtems_status_code sc;
+
+ puts("**** Semaphore flush test ****");
+ sc = rtems_semaphore_create (
+ rtems_build_name ('S', 'E', 'M', 'F'),
+ 0,
+ RTEMS_LOCAL|RTEMS_BINARY_SEMAPHORE|RTEMS_NO_INHERIT_PRIORITY|RTEMS_NO_PRIORITY_CEILING|RTEMS_FIFO,
+ 0,
+ &semaphore);
+ if (sc != RTEMS_SUCCESSFUL) {
+ printf ("Can't flush semaphore: %s\n", rtems_status_text (sc));
+ exit (1);
+ }
+ for (i = 0 ; i < NTASK ; i++)
+ starttask (i);
+ for (pass = 1 ; pass < 10 ; pass++) {
+ rtems_task_wake_after (1);
+ for (i = 0 ; i < NTASK ; i++) {
+ if (flags[i] != pass)
+ printf ("flags[%d] = %d -- expected %d\n", i, flags[i], pass);
+ }
+ sc = rtems_semaphore_flush (semaphore);
+ if (sc != RTEMS_SUCCESSFUL) {
+ printf ("Can't flush semaphore: %s\n", rtems_status_text (sc));
+ exit (1);
+ }
+ }
+ puts ("**** Semaphore flush test succeeded ****");
+ exit (1);
+}
/Makefile.am
0,0 → 1,35
## |
## $Id: Makefile.am,v 1.2 2001-09-27 12:02:36 chris Exp $ |
## |
|
AUTOMAKE_OPTIONS = foreign 1.4 |
|
TEST = sp27 |
|
MANAGERS = all |
|
C_FILES = init.c |
C_O_FILES = $(C_FILES:%.c=${ARCH}/%.o) |
|
DOCTYPES = scn |
DOCS = $(DOCTYPES:%=$(TEST).%) |
|
SRCS = $(C_FILES) $(H_FILES) |
OBJS = $(C_O_FILES) |
|
PRINT_SRCS = $(DOCS) |
|
PGM = ${ARCH}/$(TEST).exe |
|
include $(RTEMS_ROOT)/make/custom/@RTEMS_BSP@.cfg |
include $(RTEMS_ROOT)/make/leaf.cfg |
include $(top_srcdir)/sptests.am |
|
${PGM}: $(OBJS) $(LINK_FILES) |
$(make-exe) |
|
all-local: $(ARCH) $(TMPINSTALL_FILES) |
|
EXTRA_DIST = $(C_FILES) $(DOCS) |
|
include $(top_srcdir)/../../../../automake/local.am |
/sp27.scn
0,0 → 1,2
**** Semaphore flush test **** |
**** Semaphore flush test succeeded **** |