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/sp04
- from Rev 30 to Rev 173
- ↔ Reverse comparison
Rev 30 → Rev 173
/init.c
0,0 → 1,109
/* 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_extensions_table Extensions = { |
NULL, /* task create user extension */ |
NULL, /* task start user extension */ |
NULL, /* task restart user extension */ |
NULL, /* task delete user extension */ |
Task_switch, /* task switch user extension */ |
NULL, /* task begin user extension */ |
NULL, /* task exitted user extension */ |
NULL /* fatal error user extension */ |
}; |
|
rtems_task Init( |
rtems_task_argument argument |
) |
{ |
rtems_status_code status; |
rtems_time_of_day time; |
|
puts( "\n\n*** TEST 4 ***" ); |
build_time( &time, 12, 31, 1988, 9, 15, 0, 0 ); |
|
status = rtems_clock_set( &time ); |
directive_failed( status, "rtems_clock_set" ); |
|
Extension_name[ 1 ] = rtems_build_name( 'E', 'X', 'T', ' ' ); |
|
status = rtems_extension_create( |
Extension_name[ 1 ], |
&Extensions, |
&Extension_id[ 1 ] |
); |
directive_failed( status, "rtems_extension_create" ); |
|
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', ' ' ); |
|
Run_count[ 1 ] = 0; |
Run_count[ 2 ] = 0; |
Run_count[ 3 ] = 0; |
|
status = rtems_task_create( |
Task_name[ 1 ], |
1, |
RTEMS_MINIMUM_STACK_SIZE * 2, |
RTEMS_TIMESLICE, |
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 * 2, |
RTEMS_TIMESLICE, |
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 * 2, |
RTEMS_TIMESLICE, |
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,117
/* Task_1 |
* |
* This test serves as a test task. It verifies timeslicing activities |
* and tswitch extension processing. |
* |
* 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" |
|
static void |
showTaskSwitches (void) |
{ |
int i; |
int switches = taskSwitchLogIndex; |
|
for (i = 0 ; i < switches ; i++) { |
put_name( Task_name[taskSwitchLog[i].taskIndex], FALSE ); |
print_time( "- ", &taskSwitchLog[i].when, "\n" ); |
} |
} |
|
rtems_task Task_1( |
rtems_task_argument argument |
) |
{ |
rtems_unsigned32 seconds; |
rtems_unsigned32 old_seconds; |
rtems_mode previous_mode; |
rtems_time_of_day time; |
rtems_status_code status; |
rtems_unsigned32 start_time; |
rtems_unsigned32 end_time; |
|
puts( "TA1 - rtems_task_suspend - on Task 2" ); |
status = rtems_task_suspend( Task_id[ 2 ] ); |
directive_failed( status, "rtems_task_suspend of TA2" ); |
|
puts( "TA1 - rtems_task_suspend - on Task 3" ); |
status = rtems_task_suspend( Task_id[ 3 ] ); |
directive_failed( status, "rtems_task_suspend of TA3" ); |
|
status = rtems_clock_get( RTEMS_CLOCK_GET_SECONDS_SINCE_EPOCH, &start_time ); |
directive_failed( status, "rtems_clock_get" ); |
|
puts( "TA1 - killing time" ); |
|
for ( ; ; ) { |
status = rtems_clock_get( RTEMS_CLOCK_GET_SECONDS_SINCE_EPOCH, &end_time ); |
directive_failed( status, "rtems_clock_get" ); |
|
if ( end_time > (start_time + 2) ) |
break; |
} |
|
puts( "TA1 - rtems_task_resume - on Task 2" ); |
status = rtems_task_resume( Task_id[ 2 ] ); |
directive_failed( status, "rtems_task_resume of TA2" ); |
|
puts( "TA1 - rtems_task_resume - on Task 3" ); |
status = rtems_task_resume( Task_id[ 3 ] ); |
directive_failed( status, "rtems_task_resume of TA3" ); |
|
while ( FOREVER ) { |
if ( Run_count[ 1 ] == 3 ) { |
puts( "TA1 - rtems_task_mode - change mode to NO RTEMS_PREEMPT" ); |
|
status = rtems_task_mode( |
RTEMS_NO_PREEMPT, |
RTEMS_PREEMPT_MASK, |
&previous_mode |
); |
directive_failed( status, "rtems_task_mode" ); |
|
status = rtems_clock_get( RTEMS_CLOCK_GET_TOD, &time ); |
directive_failed( status, "rtems_clock_get" ); |
|
old_seconds = time.second; |
|
for ( seconds = 0 ; seconds < 6 ; ) { |
status = rtems_clock_get( RTEMS_CLOCK_GET_TOD, &time ); |
directive_failed( status, "rtems_clock_get" ); |
|
if ( time.second != old_seconds ) { |
old_seconds = time.second; |
seconds++; |
print_time( "TA1 - ", &time, "\n" ); |
} |
} |
|
puts( "TA1 - rtems_task_mode - change mode to RTEMS_PREEMPT" ); |
status = rtems_task_mode( |
RTEMS_PREEMPT, |
RTEMS_PREEMPT_MASK, |
&previous_mode |
); |
directive_failed( status, "rtems_task_mode" ); |
|
while ( !testsFinished ); |
showTaskSwitches (); |
puts( "*** END OF TEST 4 ***" ); |
exit (0); |
} |
} |
} |
/task2.c
0,0 → 1,28
/* Task_2 |
* |
* This routine serves as a test task. It is just a CPU bound task |
* requiring timesliced operation. |
* |
* 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 |
) |
{ |
while( FOREVER ); |
} |
/task3.c
0,0 → 1,28
/* Task_3 |
* |
* This routine serves as a test task. It is just a CPU bound task |
* requiring timesliced operation. |
* |
* 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 |
) |
{ |
while( FOREVER ); |
} |
/tswitch.c
0,0 → 1,62
/* Task_switch |
* |
* This routine is the tswitch user extension. It determines which |
* task is being switched to and displays a message indicating the |
* time and date that it gained control. |
* |
* Input parameters: |
* unused - pointer to currently running TCB |
* heir - pointer to heir TCB |
* |
* 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: tswitch.c,v 1.2 2001-09-27 12:02:31 chris Exp $ |
*/ |
|
#include "system.h" |
|
struct taskSwitchLog taskSwitchLog[1000]; |
int taskSwitchLogIndex; |
volatile int testsFinished; |
|
rtems_extension Task_switch( |
rtems_tcb *unused, |
rtems_tcb *heir |
) |
{ |
rtems_unsigned32 index; |
rtems_time_of_day time; |
rtems_status_code status; |
|
index = task_number( heir->Object.id ); |
|
switch( index ) { |
case 1: |
case 2: |
case 3: |
Run_count[ index ] += 1; |
|
status = rtems_clock_get( RTEMS_CLOCK_GET_TOD, &time ); |
directive_failed_with_level( status, "rtems_clock_get", 1 ); |
|
if (taskSwitchLogIndex < (sizeof taskSwitchLog / sizeof taskSwitchLog[0])) { |
taskSwitchLog[taskSwitchLogIndex].taskIndex = index; |
taskSwitchLog[taskSwitchLogIndex].when = time; |
taskSwitchLogIndex++; |
} |
if ( time.second >= 16 ) |
testsFinished = 1; |
break; |
|
case 0: |
default: |
break; |
} |
} |
/sp04.scn
0,0 → 1,25
*** TEST 4 *** |
TA1 - rtems_task_suspend - on Task 2 |
TA1 - rtems_task_suspend - on Task 3 |
TA1 - killing time |
TA1 - rtems_task_resume - on Task 2 |
TA1 - rtems_task_resume - on Task 3 |
TA1 - rtems_task_mode - change mode to NO RTEMS_PREEMPT |
TA1 - 09:15:10 12/31/1988 |
TA1 - 09:15:11 12/31/1988 |
TA1 - 09:15:12 12/31/1988 |
TA1 - 09:15:13 12/31/1988 |
TA1 - 09:15:14 12/31/1988 |
TA1 - 09:15:15 12/31/1988 |
TA1 - rtems_task_mode - change mode to RTEMS_PREEMPT |
TA1 - 09:15:00 12/31/1988 |
TA2 - 09:15:04 12/31/1988 |
TA3 - 09:15:05 12/31/1988 |
TA1 - 09:15:06 12/31/1988 |
TA2 - 09:15:07 12/31/1988 |
TA3 - 09:15:08 12/31/1988 |
TA1 - 09:15:09 12/31/1988 |
TA2 - 09:15:16 12/31/1988 |
TA3 - 09:15:17 12/31/1988 |
TA1 - 09:15:18 12/31/1988 |
*** END OF TEST 4 *** |
/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 = sp04 |
|
MANAGERS = io |
|
C_FILES = init.c task1.c task2.c task3.c tswitch.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 |
/sp04.doc
0,0 → 1,37
# |
# $Id: sp04.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: test4 |
|
directives: |
ex_init, ex_start, t_create, t_start, tm_tick, i_return, |
tm_set, tm_get, ev_receive, t_mode |
|
concepts: |
|
a. Verifies timeslicing ( all tasks are in timeslice mode ). |
|
b. Verifies the tswitch user extension. |
|
c. Verifies the no preemption mode. |
|
d. Verifies time-slice gets reset even if only one task ready. |
|
output: |
The task name and the current time are printed out each time that a new |
task is being dispatched. The configured timeslice is 100 ticks |
( 1 second ); therefore, a task name and the time are printed once |
every second. After each task runs 3 times, task 1 changes its mode to |
no preempt and runs for about 6 seconds and then changes its mode back to |
preempt mode. |
/system.h
0,0 → 1,81
/* 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 |
); |
|
void Task_switch( |
rtems_tcb *unused, |
rtems_tcb *heir |
); |
|
/* configuration information */ |
|
#define CONFIGURE_APPLICATION_NEEDS_CONSOLE_DRIVER |
#define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER |
|
#define CONFIGURE_MAXIMUM_USER_EXTENSIONS 1 |
#define CONFIGURE_TICKS_PER_TIMESLICE 100 |
|
#define CONFIGURE_RTEMS_INIT_TASKS_TABLE |
|
#define CONFIGURE_EXTRA_TASK_STACKS (3 * RTEMS_MINIMUM_STACK_SIZE) |
#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_id Extension_id[ 4 ]; |
TEST_EXTERN rtems_name Extension_name[ 4 ]; /* array of task names */ |
|
/* array of task run counts */ |
TEST_EXTERN volatile rtems_unsigned32 Run_count[ 4 ]; |
|
/* |
* Keep track of task switches |
*/ |
|
struct taskSwitchLog { |
int taskIndex; |
rtems_time_of_day when; |
}; |
|
extern struct taskSwitchLog taskSwitchLog[]; |
extern int taskSwitchLogIndex; |
volatile extern int testsFinished; |
|
|
/* end of include file */ |