diff options
author | Joel Sherrill <joel.sherrill@OARcorp.com> | 2009-07-28 19:23:49 +0000 |
---|---|---|
committer | Joel Sherrill <joel.sherrill@OARcorp.com> | 2009-07-28 19:23:49 +0000 |
commit | 5353469af4870c6e624986f65ebef7be0863c056 (patch) | |
tree | 965200ceff20ea1cc2e2f1782bb8d53e48a6fb32 /testsuites/sptests/spintrcritical16/init.c | |
parent | PR 1420/bsps (diff) | |
download | rtems-5353469af4870c6e624986f65ebef7be0863c056.tar.bz2 |
2009-07-28 Joel Sherrill <joel.sherrill@OARcorp.com>
* Makefile.am, configure.ac: Add test case for processing a timeout
on a thread (that is the thread executing) that has also had its
request satisfied while it is being enqueued.
* spintrcritical16/.cvsignore, spintrcritical16/Makefile.am,
spintrcritical16/init.c, spintrcritical16/spintrcritical16.doc,
spintrcritical16/spintrcritical16.scn: New files.
* spintrcritical15/init.c: Remove unused TSR>
Diffstat (limited to 'testsuites/sptests/spintrcritical16/init.c')
-rw-r--r-- | testsuites/sptests/spintrcritical16/init.c | 114 |
1 files changed, 114 insertions, 0 deletions
diff --git a/testsuites/sptests/spintrcritical16/init.c b/testsuites/sptests/spintrcritical16/init.c new file mode 100644 index 0000000000..992f7624e3 --- /dev/null +++ b/testsuites/sptests/spintrcritical16/init.c @@ -0,0 +1,114 @@ +/* + * COPYRIGHT (c) 1989-2009. + * 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.rtems.com/license/LICENSE. + * + * $Id$ + */ + +#define __RTEMS_VIOLATE_KERNEL_VISIBILITY__ +#include <tmacros.h> +#include <intrcritical.h> + +#define TEST_NAME "16" + +Thread_Control *Main_TCB; +rtems_id Main_task; +rtems_id Semaphore; +volatile bool case_hit; + +Thread_blocking_operation_States getState(void) +{ + Objects_Locations location; + Semaphore_Control *sem; + + sem = (Semaphore_Control *)_Objects_Get( + &_Semaphore_Information, Semaphore, &location ); + if ( location != OBJECTS_LOCAL ) { + puts( "Bad object lookup" ); + rtems_test_exit(0); + } + _Thread_Unnest_dispatch(); + + return sem->Core_control.semaphore.Wait_queue.sync_state; +} + +rtems_timer_service_routine test_release_from_isr( + rtems_id timer, + void *arg +) +{ + if ( getState() == THREAD_BLOCKING_OPERATION_NOTHING_HAPPENED ) { + case_hit = true; + (void) rtems_semaphore_release( Semaphore ); + _Thread_queue_Process_timeout( Main_TCB ); + } +} + +rtems_task Init( + rtems_task_argument ignored +) +{ + rtems_status_code sc; + int resets; + + puts( + "\n\n*** TEST INTERRUPT CRITICAL SECTION " TEST_NAME " ***\n" + "Init - Trying to generate timeout of a thread that had its blocking\n" + "Init - request satisfied while blocking but before time timeout" + ); + + puts( "Init - rtems_semaphore_create - OK" ); + sc = rtems_semaphore_create( + rtems_build_name( 'S', 'M', '1', ' ' ), + 0, + RTEMS_DEFAULT_ATTRIBUTES, + RTEMS_NO_PRIORITY, + &Semaphore + ); + directive_failed( sc, "rtems_semaphore_create of SM1" ); + + Main_task = rtems_task_self(); + Main_TCB = _Thread_Executing; + + interrupt_critical_section_test_support_initialize( test_release_from_isr ); + + case_hit = false; + + for (resets=0 ; !case_hit && resets<10 ;) { + if ( interrupt_critical_section_test_support_delay() ) + resets++; + + sc = rtems_semaphore_obtain( Semaphore, RTEMS_DEFAULT_OPTIONS, 2 ); + if ( sc == RTEMS_SUCCESSFUL ) + break; + fatal_directive_status( sc, RTEMS_TIMEOUT, "rtems_semaphore_obtain" ); + } + + if ( case_hit ) { + puts( "Init - Case hit" ); + puts( "*** END OF TEST INTERRUPT CRITICAL SECTION " TEST_NAME " ***" ); + } else + puts( "Init - Case not hit - ran too long" ); + + + rtems_test_exit(0); +} + +/* configuration information */ + +#define CONFIGURE_APPLICATION_NEEDS_CONSOLE_DRIVER +#define CONFIGURE_APPLICATION_NEEDS_CLOCK_DRIVER + +#define CONFIGURE_MAXIMUM_TASKS 1 +#define CONFIGURE_MAXIMUM_TIMERS 1 +#define CONFIGURE_MICROSECONDS_PER_TICK 1000 +#define CONFIGURE_RTEMS_INIT_TASKS_TABLE + +#define CONFIGURE_INIT +#include <rtems/confdefs.h> + +/* global variables */ |