diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 1995-05-11 17:39:37 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 1995-05-11 17:39:37 +0000 |
commit | ac7d5ef06a6d6e8d84abbd1f0b82162725f98326 (patch) | |
tree | 9304cf759a73f2a1c6fd3191948f00e870af3787 /testsuites/sptests/spfatal/fatal.c | |
download | rtems-ac7d5ef06a6d6e8d84abbd1f0b82162725f98326.tar.bz2 |
Initial revision
Diffstat (limited to 'testsuites/sptests/spfatal/fatal.c')
-rw-r--r-- | testsuites/sptests/spfatal/fatal.c | 134 |
1 files changed, 134 insertions, 0 deletions
diff --git a/testsuites/sptests/spfatal/fatal.c b/testsuites/sptests/spfatal/fatal.c new file mode 100644 index 0000000000..3b2228bffd --- /dev/null +++ b/testsuites/sptests/spfatal/fatal.c @@ -0,0 +1,134 @@ +/* Fatal Error Test + * + * NOTE: + * + * This test actually modifies the Configuration table and restarts + * the executive. It is very carefully constructed to do this and + * uses the Configuration very carefully. + * + * COPYRIGHT (c) 1989, 1990, 1991, 1992, 1993, 1994. + * On-Line Applications Research Corporation (OAR). + * All rights assigned to U.S. Government, 1994. + * + * This material may be reproduced by or for the U.S. Government pursuant + * to the copyright license under the clause at DFARS 252.227-7013. This + * notice must appear in all copies of this file and its derivatives. + * + * $Id$ + */ + +#include "system.h" + +#include <setjmp.h> + +char Workspace[ 64 * 1024 ] CPU_STRUCTURE_ALIGNMENT; + +typedef enum { + FATAL_WORKSPACE_OF_ZERO, + FATAL_NULL_WORKSPACE, + FATAL_WORKSPACE_TOO_SMALL, + FATAL_TASK_CREATE, + FATAL_TASK_START +} Fatal_errors_t; + +#define FATAL_LAST FATAL_TASK_START + +volatile Fatal_errors_t Case_in_switch; + +rtems_status_code Expected_Errors[] = { + RTEMS_UNSATISFIED, + RTEMS_INVALID_ADDRESS, + RTEMS_UNSATISFIED, + RTEMS_INVALID_PRIORITY, + RTEMS_TASK_EXITTED +}; + +rtems_status_code Error_Happened[ FATAL_LAST + 1]; + +jmp_buf Restart_Context; + +/* + * We depend on this being zeroed during initialization. This + * occurs automatically because this is part of the BSS. + */ + +rtems_unsigned32 First_Time_Through; + +void Process_case(); + +rtems_extension Fatal_extension( + rtems_unsigned32 error +) +{ + int index; + + Error_Happened[ Case_in_switch ] = error; + + if ( First_Time_Through == 0 ) { + Case_in_switch = FATAL_WORKSPACE_OF_ZERO; + First_Time_Through = 1; + setjmp( Restart_Context ); + } else if ( Case_in_switch == FATAL_LAST ) { + + /* + * Depending on the C library we use, we cannot get the + * task exitted error so do not check for it. + */ + + puts( "*** TEST FATAL ***" ); + for ( index=0 ; index< FATAL_LAST ; index++ ) + put_error( Error_Happened[ index ], Expected_Errors[ index ] ); + puts( "NOT TESTING FATAL ERROR WHEN TASK EXITS -- C LIBRARY CATCHES THIS" ); + puts( "*** END OF TEST FATAL ***" ); + + /* + * returns to the default fatal error handler instead of + * calling rtems_shutdown_executive + */ + return; + + } else { + + longjmp( Restart_Context, 1 ); + } + + Process_case(); +} + + + +void Process_case() +{ + switch ( Case_in_switch ) { + case FATAL_WORKSPACE_OF_ZERO: + New_Configuration = BSP_Configuration; + New_Configuration.work_space_start = NULL; + Case_in_switch = FATAL_NULL_WORKSPACE; + break; + + case FATAL_NULL_WORKSPACE: + New_Configuration.work_space_start = Workspace; + New_Configuration.work_space_size = 256; + Case_in_switch = FATAL_WORKSPACE_TOO_SMALL; + break; + + case FATAL_WORKSPACE_TOO_SMALL: + Initialization_tasks[ 0 ].initial_priority = RTEMS_CURRENT_PRIORITY; + New_Configuration.work_space_size = sizeof( Workspace ); + Case_in_switch = FATAL_TASK_CREATE; + break; + + case FATAL_TASK_CREATE: + Initialization_tasks[ 0 ].initial_priority = 1; + Initialization_tasks[ 0 ].entry_point = NULL; + Case_in_switch = FATAL_TASK_START; + break; + + case FATAL_TASK_START: + /* this extension exits the test */ + Initialization_tasks[ 0 ].entry_point = Init; + break; + } + rtems_initialize_executive( &New_Configuration, &Cpu_table ); +} + |