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/sp05
- from Rev 30 to Rev 173
- ↔ Reverse comparison
Rev 30 → Rev 173
/init.c
0,0 → 1,80
/* 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; |
|
puts( "\n\n*** TEST 5 ***" ); |
|
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', ' ' ); |
|
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 ], |
1, |
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, 0 ); |
directive_failed( status, "rtems_task_start of TA2" ); |
|
status = rtems_task_start( Task_id[ 3 ], Task_3, 0 ); |
directive_failed( status, "rtems_task_start of TA3" ); |
|
status = rtems_task_delete( RTEMS_SELF ); |
directive_failed( status, "rtems_task_delete of RTEMS_SELF" ); |
} |
/task1.c
0,0 → 1,77
/* Task_1 |
* |
* This routine serves as a test task. It verifies that tasks can |
* be suspended and resumed. |
* |
* Input parameters: |
* argument - task argument |
* |
* Output parameters: NONE |
* |
* NOTE: The rtems_task_suspend() directives fail on the first iteration. |
* |
* 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( |
rtems_task_argument argument |
) |
{ |
rtems_id tid2; |
rtems_id tid3; |
rtems_unsigned32 pass; |
rtems_status_code status; |
|
status = rtems_task_ident( Task_name[ 2 ], 1, &tid2 ); |
directive_failed( status, "rtems_task_ident of TA2" ); |
|
status = rtems_task_ident( Task_name[ 3 ], 1, &tid3 ); |
directive_failed( status, "rtems_task_ident of TA3" ); |
|
for ( pass=1 ; pass <= 3 ; pass++ ) { |
|
puts( "TA1 - rtems_task_wake_after - sleep 5 seconds" ); |
status = rtems_task_wake_after( 5*TICKS_PER_SECOND ); |
directive_failed( status, "rtems_task_wake_after of TA1" ); |
|
puts( "TA1 - rtems_task_suspend - suspend TA3" ); |
status = rtems_task_suspend( tid3 ); |
if ( pass == 1 ) { |
fatal_directive_status( |
status, |
RTEMS_ALREADY_SUSPENDED, |
"rtems_task_suspend of TA3" |
); |
} else { |
directive_failed( status, "rtems_task_suspend of TA3" ); |
} |
|
puts( "TA1 - rtems_task_resume - resume TA2" ); |
status = rtems_task_resume( tid2 ); |
directive_failed( status, "rtems_task_resume of TA2" ); |
|
puts( "TA1 - rtems_task_wake_after - sleep 5 seconds" ); |
status = rtems_task_wake_after( 5*TICKS_PER_SECOND ); |
directive_failed( status, "rtems_task_wake_after" ); |
|
puts( "TA1 - rtems_task_suspend - suspend TA2" ); |
status = rtems_task_suspend( tid2 ); |
directive_failed( status, "rtems_task_suspend of TA2" ); |
|
puts( "TA1 - rtems_task_resume - resume TA3" ); |
status = rtems_task_resume( tid3 ); |
directive_failed( status, "rtems_task_resume" ); |
} |
|
puts( "*** END OF TEST 5 ***" ); |
exit( 0 ); |
} |
/task2.c
0,0 → 1,38
/* Task_2 |
* |
* This routine serves as a test task. Makes sure a task can suspend |
* 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: task2.c,v 1.2 2001-09-27 12:02:31 chris Exp $ |
*/ |
|
#include "system.h" |
|
rtems_task Task_2( |
rtems_task_argument argument |
) |
{ |
rtems_status_code status; |
|
puts( "TA2 - rtems_task_suspend - suspend self" ); |
status = rtems_task_suspend( RTEMS_SELF ); |
directive_failed( status, "rtems_task_suspend of TA2" ); |
|
while( FOREVER ) { |
puts( "TA2 - rtems_task_wake_after - sleep 1 second" ); |
status = rtems_task_wake_after( 1*TICKS_PER_SECOND ); |
directive_failed( status, "rtems_task_wake_after of TA2" ); |
} |
} |
/task3.c
0,0 → 1,38
/* Task_3 |
* |
* This routine serves as a test task. Makes sure a task can suspend |
* 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; |
|
puts( "TA3 - rtems_task_suspend - suspend self" ); |
status = rtems_task_suspend( RTEMS_SELF ); |
directive_failed( status, "rtems_task_suspend of TA3" ); |
|
while( FOREVER ) { |
puts( "TA3 - rtems_task_wake_after - sleep 1 second" ); |
status = rtems_task_wake_after( 1*TICKS_PER_SECOND ); |
directive_failed( status, "rtems_task_wake_after of TA3" ); |
} |
} |
/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 = sp05 |
|
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 |
/sp05.scn
0,0 → 1,47
*** TEST 5 *** |
TA1 - rtems_task_wake_after - sleep 5 seconds |
TA2 - rtems_task_suspend - suspend self |
TA3 - rtems_task_suspend - suspend self |
TA1 - rtems_task_suspend - suspend TA3 |
TA1 - rtems_task_resume - resume TA2 |
TA1 - rtems_task_wake_after - sleep 5 seconds |
TA2 - rtems_task_wake_after - sleep 1 second |
TA2 - rtems_task_wake_after - sleep 1 second |
TA2 - rtems_task_wake_after - sleep 1 second |
TA2 - rtems_task_wake_after - sleep 1 second |
TA2 - rtems_task_wake_after - sleep 1 second |
TA1 - rtems_task_suspend - suspend TA2 |
TA1 - rtems_task_resume - resume TA3 |
TA1 - rtems_task_wake_after - sleep 5 seconds |
TA3 - rtems_task_wake_after - sleep 1 second |
TA3 - rtems_task_wake_after - sleep 1 second |
TA3 - rtems_task_wake_after - sleep 1 second |
TA3 - rtems_task_wake_after - sleep 1 second |
TA3 - rtems_task_wake_after - sleep 1 second |
TA1 - rtems_task_suspend - suspend TA3 |
TA1 - rtems_task_resume - resume TA2 |
TA1 - rtems_task_wake_after - sleep 5 seconds |
TA2 - rtems_task_wake_after - sleep 1 second |
TA2 - rtems_task_wake_after - sleep 1 second |
TA2 - rtems_task_wake_after - sleep 1 second |
TA2 - rtems_task_wake_after - sleep 1 second |
TA2 - rtems_task_wake_after - sleep 1 second |
TA1 - rtems_task_suspend - suspend TA2 |
TA1 - rtems_task_resume - resume TA3 |
TA1 - rtems_task_wake_after - sleep 5 seconds |
TA3 - rtems_task_wake_after - sleep 1 second |
TA3 - rtems_task_wake_after - sleep 1 second |
TA3 - rtems_task_wake_after - sleep 1 second |
TA3 - rtems_task_wake_after - sleep 1 second |
TA3 - rtems_task_wake_after - sleep 1 second |
TA1 - rtems_task_suspend - suspend TA3 |
TA1 - rtems_task_resume - resume TA2 |
TA1 - rtems_task_wake_after - sleep 5 seconds |
TA2 - rtems_task_wake_after - sleep 1 second |
TA2 - rtems_task_wake_after - sleep 1 second |
TA2 - rtems_task_wake_after - sleep 1 second |
TA2 - rtems_task_wake_after - sleep 1 second |
TA2 - rtems_task_wake_after - sleep 1 second |
TA1 - rtems_task_suspend - suspend TA2 |
TA1 - rtems_task_resume - resume TA3 |
*** END OF TEST 5 *** |
/system.h
0,0 → 1,53
/* 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 */ |
|
/* end of include file */ |
/sp05.doc
0,0 → 1,25
# |
# $Id: sp05.doc,v 1.6 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: test5 |
|
directives: |
ex_init, ex_start, t_create, t_start, tm_tick, i_return, t_ident |
tm_wkafter, t_suspend, t_resume |
|
concepts: |
|
a. Verifies that a task can be suspended and resumed. |
|
b. Verifies that a task can suspend itself. |