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/sp06
- from Rev 30 to Rev 173
- ↔ Reverse comparison
Rev 30 → Rev 173
/init.c
0,0 → 1,86
/* Init |
* |
* This routine is the initialization task for this test program. |
* It is a user initialization task and has the responsibility for creating |
* and starting the tasks that make up the test. If the time of day |
* clock is required for the test, it should also be set to a known |
* value by this function. |
* |
* Input parameters: |
* argument - task argument |
* |
* Output parameters: NONE |
* |
* COPYRIGHT (c) 1989-1999. |
* 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.OARcorp.com/rtems/license.html. |
* |
* $Id: init.c,v 1.2 2001-09-27 12:02:31 chris Exp $ |
*/ |
|
#define TEST_INIT |
#include "system.h" |
|
rtems_task Init( |
rtems_task_argument argument |
) |
{ |
rtems_status_code status; |
rtems_task_priority previous_priority; |
|
puts( "\n\n*** TEST 6 ***" ); |
|
Task_name[ 1 ] = rtems_build_name( 'T', 'A', '1', ' ' ); |
Task_name[ 2 ] = rtems_build_name( 'T', 'A', '2', ' ' ); |
Task_name[ 3 ] = rtems_build_name( 'T', 'A', '3', ' ' ); |
|
Argument = 0; |
Restart_argument = 1; |
|
status = rtems_task_create( |
Task_name[ 1 ], |
1, |
RTEMS_MINIMUM_STACK_SIZE, |
RTEMS_DEFAULT_MODES, |
RTEMS_DEFAULT_ATTRIBUTES, |
&Task_id[ 1 ] |
); |
directive_failed( status, "rtems_task_create of TA1" ); |
|
status = rtems_task_create( |
Task_name[ 2 ], |
1, |
RTEMS_MINIMUM_STACK_SIZE, |
RTEMS_DEFAULT_MODES, |
RTEMS_DEFAULT_ATTRIBUTES, |
&Task_id[ 2 ] |
); |
directive_failed( status, "rtems_task_create of TA2" ); |
|
status = rtems_task_create( |
Task_name[ 3 ], |
10, |
RTEMS_MINIMUM_STACK_SIZE, |
RTEMS_DEFAULT_MODES, |
RTEMS_DEFAULT_ATTRIBUTES, |
&Task_id[ 3 ] |
); |
directive_failed( status, "rtems_task_create of TA3" ); |
|
status = rtems_task_start( Task_id[ 1 ], Task_1, 0 ); |
directive_failed( status, "rtems_task_start of TA1" ); |
|
status = rtems_task_start( Task_id[ 2 ], Task_2, Argument ); |
directive_failed( status, "rtems_task_start of TA2" ); |
|
status = rtems_task_start( Task_id[ 3 ], Task_3, Argument ); |
directive_failed( status, "rtems_task_start of TA3" ); |
|
status = rtems_task_set_priority( Task_id[ 3 ], 5, &previous_priority ); |
|
status = rtems_task_delete( RTEMS_SELF ); |
directive_failed( status, "rtems_task_delete of RTEMS_SELF" ); |
} |
/task1.c
0,0 → 1,60
/* Task_1 |
* |
* This task serves as a test task. Verifies that a task can restart |
* both itself and other tasks. |
* |
* Input parameters: |
* argument - task argument |
* |
* Output parameters: NONE |
* |
* COPYRIGHT (c) 1989-1999. |
* 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.OARcorp.com/rtems/license.html. |
* |
* $Id: task1.c,v 1.2 2001-09-27 12:02:31 chris Exp $ |
*/ |
|
#include "system.h" |
|
rtems_task Task_1( argument ) |
rtems_unsigned32 argument; |
{ |
rtems_unsigned32 pass; |
rtems_status_code status; |
|
puts( "TA1 - is beginning to run" ); |
|
pass = argument + 1; |
|
if ( pass == 5 ) { |
puts( "*** END OF TEST 6 ***" ); |
exit( 0 ); |
} |
|
if ( pass == 1 ) { |
puts( "TA1 - restarting TA3" ); |
status = rtems_task_restart( Task_id[ 3 ], Restart_argument ); |
directive_failed( status, "rtems_task_restart of TA3" ); |
|
status = rtems_task_wake_after( 2 * TICKS_PER_SECOND ); |
directive_failed( status, "rtems_task_wake_after" ); |
} |
|
status = rtems_task_wake_after( TICKS_PER_SECOND ); |
directive_failed( status, "rtems_task_wake_after" ); |
|
puts( "TA1 - rtems_task_restart - restarting TA2" ); |
status = rtems_task_restart( Task_id[ 2 ], Restart_argument ); |
directive_failed( status, "rtems_task_restart TA2" ); |
|
status = rtems_task_wake_after( 1*TICKS_PER_SECOND ); |
directive_failed( status, "rtems_task_wake_after" ); |
|
puts( "TA1 - rtems_task_restart - restarting self" ); |
status = rtems_task_restart( Task_id[ 1 ], pass ); |
directive_failed( status, "rtems_task_restart of RTEMS_SELF" ); |
} |
/task2.c
0,0 → 1,39
/* Task_2 |
* |
* This routine serves as a test task. It simply runs forever so |
* another task can restart it. |
* |
* Input parameters: |
* argument - task argument |
* |
* Output parameters: NONE |
* |
* COPYRIGHT (c) 1989-1999. |
* 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.OARcorp.com/rtems/license.html. |
* |
* $Id: task2.c,v 1.2 2001-09-27 12:02:31 chris Exp $ |
*/ |
|
#include "system.h" |
|
rtems_task Task_2( argument ) |
rtems_task_argument argument; |
{ |
rtems_status_code status; |
|
puts( "TA2 - is beginning to run" ); |
if ( argument == Argument ) { |
status = rtems_task_wake_after( 2 * TICKS_PER_SECOND ); |
directive_failed( status, "rtems_task_wake_after" ); |
} |
|
while( FOREVER ) { |
puts( "TA2 - rtems_task_wake_after - sleep 1/2 second" ); |
status = rtems_task_wake_after( TICKS_PER_SECOND / 2 ); |
directive_failed( status, "rtems_task_wake_after" ); |
} |
} |
/task3.c
0,0 → 1,31
/* Task_3 |
* |
* This routine serves as a test task. It is started, has its priority |
* changed, and when it runs it deletes itself. |
* |
* Input parameters: |
* argument - task argument |
* |
* Output parameters: NONE |
* |
* COPYRIGHT (c) 1989-1999. |
* 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.OARcorp.com/rtems/license.html. |
* |
* $Id: task3.c,v 1.2 2001-09-27 12:02:31 chris Exp $ |
*/ |
|
#include "system.h" |
|
rtems_task Task_3( |
rtems_task_argument argument |
) |
{ |
rtems_status_code status; |
|
status = rtems_task_delete( RTEMS_SELF ); |
directive_failed( status, "rtems_task_delete of RTEMS_SELF" ); |
} |
/Makefile.am
0,0 → 1,38
## |
## $Id: Makefile.am,v 1.2 2001-09-27 12:02:31 chris Exp $ |
## |
|
AUTOMAKE_OPTIONS = foreign 1.4 |
|
TEST = sp06 |
|
MANAGERS = io |
|
C_FILES = init.c task1.c task2.c task3.c |
C_O_FILES = $(C_FILES:%.c=${ARCH}/%.o) |
|
H_FILES = system.h |
noinst_HEADERS = $(H_FILES) |
|
DOCTYPES = scn doc |
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 |
/sp06.scn
0,0 → 1,40
*** TEST 6 *** |
TA1 - is beginning to run |
TA1 - restarting TA3 |
TA2 - is beginning to run |
TA2 - rtems_task_wake_after - sleep 1/2 second |
TA2 - rtems_task_wake_after - sleep 1/2 second |
TA1 - rtems_task_restart - restarting TA2 |
TA2 - is beginning to run |
TA2 - rtems_task_wake_after - sleep 1/2 second |
TA2 - rtems_task_wake_after - sleep 1/2 second |
TA1 - rtems_task_restart - restarting self |
TA1 - is beginning to run |
TA2 - rtems_task_wake_after - sleep 1/2 second |
TA2 - rtems_task_wake_after - sleep 1/2 second |
TA1 - rtems_task_restart - restarting TA2 |
TA2 - is beginning to run |
TA2 - rtems_task_wake_after - sleep 1/2 second |
TA2 - rtems_task_wake_after - sleep 1/2 second |
TA1 - rtems_task_restart - restarting self |
TA1 - is beginning to run |
TA2 - rtems_task_wake_after - sleep 1/2 second |
TA2 - rtems_task_wake_after - sleep 1/2 second |
TA1 - rtems_task_restart - restarting TA2 |
TA2 - is beginning to run |
TA2 - rtems_task_wake_after - sleep 1/2 second |
TA2 - rtems_task_wake_after - sleep 1/2 second |
TA1 - rtems_task_restart - restarting self |
TA1 - is beginning to run |
TA2 - rtems_task_wake_after - sleep 1/2 second |
TA2 - rtems_task_wake_after - sleep 1/2 second |
TA1 - rtems_task_restart - restarting TA2 |
TA2 - is beginning to run |
TA2 - rtems_task_wake_after - sleep 1/2 second |
TA2 - rtems_task_wake_after - sleep 1/2 second |
TA1 - rtems_task_restart - restarting self |
TA1 - is beginning to run |
*** END OF TEST 6 *** |
|
NOTE: The prints from TA2 may not be as regular as indicated in the screen. |
The important point is that TA2 is running and gets restarted. |
/system.h
0,0 → 1,56
/* system.h |
* |
* This include file contains information that is included in every |
* function in the test set. |
* |
* COPYRIGHT (c) 1989-1999. |
* 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.OARcorp.com/rtems/license.html. |
* |
* $Id: system.h,v 1.2 2001-09-27 12:02:31 chris Exp $ |
*/ |
|
#include <tmacros.h> |
|
/* functions */ |
|
rtems_task Init( |
rtems_task_argument argument |
); |
|
rtems_task Task_1( |
rtems_task_argument argument |
); |
|
rtems_task Task_2( |
rtems_task_argument argument |
); |
|
rtems_task Task_3( |
rtems_task_argument argument |
); |
|
/* configuration information */ |
|
#define CONFIGURE_APPLICATION_NEEDS_CONSOLE_DRIVER |
#define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER |
|
#define CONFIGURE_TICKS_PER_TIMESLICE 100 |
|
#define CONFIGURE_RTEMS_INIT_TASKS_TABLE |
#define CONFIGURE_MAXIMUM_TASKS 4 |
|
#include <confdefs.h> |
|
/* global variables */ |
|
TEST_EXTERN rtems_id Task_id[ 4 ]; /* array of task ids */ |
TEST_EXTERN rtems_name Task_name[ 4 ]; /* array of task names */ |
|
TEST_EXTERN rtems_task_argument Argument; /* generic task argument */ |
TEST_EXTERN rtems_task_argument Restart_argument; /* task 1 restart argument */ |
|
/* end of include file */ |
/sp06.doc
0,0 → 1,25
# |
# $Id: sp06.doc,v 1.7 1999/11/17 17:51:32 joel Exp $ |
# |
# COPYRIGHT (c) 1989-1999. |
# 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.OARcorp.com/rtems/license.html. |
# |
|
|
This file describes the directives and concepts tested by this test set. |
|
test set name: test6 |
|
directives: |
ex_init, ex_start, t_create, t_start, tm_tick, i_return, |
tm_wkafter, t_restart |
|
concepts: |
|
a. Verifies that a task can restart a task other than itself. |
|
b. Verifies that a task can restart itself. |