/*
* Classic API Signal to Task from ISR
*
* COPYRIGHT (c) 1989-2011.
* 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.org/license/LICENSE.
*/
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#define CONFIGURE_INIT
#include "system.h"
#include <rtems/rtems/eventimpl.h>
const char rtems_test_name[] = "SP 39";
/*
* ERROR CHECKING NOTE:
*
* We are either at dispatch disable level 1 or 2. Either way, it is
* safer not to check the dispatch level explicitly so we are using
* fatal_directive_check_status_only() not directive_failed().
*/
rtems_timer_service_routine test_event_from_isr(
rtems_id timer,
void *arg
);
rtems_timer_service_routine test_event_with_timeout_from_isr(
rtems_id timer,
void *arg
);
volatile bool case_hit;
rtems_id main_task;
rtems_id other_task;
rtems_timer_service_routine test_event_from_isr(
rtems_id timer,
void *arg
)
{
rtems_status_code status;
if ( _Event_Sync_state == THREAD_BLOCKING_OPERATION_NOTHING_HAPPENED ) {
/*
* This event send hits the critical section but sends to
* another task so doesn't impact this critical section.
*/
status = rtems_event_send( other_task, 0x02 );
fatal_directive_check_status_only( status, RTEMS_SUCCESSFUL, "event send" );
/*
* This event send hits the main task but doesn't satisfy
* it's blocking condition so it will still block
*/
status = rtems_event_send( main_task, 0x02 );
fatal_directive_check_status_only( status, RTEMS_SUCCESSFUL, "event send" );
case_hit = TRUE;
}
status = rtems_event_send( main_task, 0x01 );
fatal_directive_check_status_only( status, RTEMS_SUCCESSFUL, "event send" );
}
rtems_timer_service_routine test_event_with_timeout_from_isr(
rtems_id timer,
void *arg
)
{
rtems_status_code status;
if ( _Event_Sync_state == THREAD_BLOCKING_OPERATION_NOTHING_HAPPENED ) {
/*
* We want to catch the task while it is blocking. Otherwise
* just send and make it happy.
*/
case_hit = TRUE;
}
status = rtems_event_send( main_task, 0x01 );
fatal_directive_check_status_only( status, RTEMS_SUCCESSFUL, "event send" );
}
rtems_task Init(
rtems_task_argument argument
)
{
rtems_status_code status;
rtems_id timer;
rtems_event_set out;
int i;
int max;
uint32_t iterations = 0;
TEST_BEGIN();
main_task = rtems_task_self();
/*
* Timer used in multiple ways
*/
status = rtems_timer_create( 1, &timer );
directive_failed( status, "rtems_timer_create" );
status = rtems_task_create(
0xa5a5a5a5,
1,
RTEMS_MINIMUM_STACK_SIZE,
RTEMS_DEFAULT_MODES,
RTEMS_DEFAULT_ATTRIBUTES,
&other_task
);
directive_failed( status, "rtems_task_create" );
/*
* Test Event send successful from ISR -- receive is forever
*/
case_hit = FALSE;
iterations = 0;
max = 1;
while (1) {
if ( case_hit )
break;
status = rtems_timer_fire_after( timer, 1, test_event_from_isr, NULL );
directive_failed( status, "timer_fire_after failed" );
for (i=0 ; i<max ; i++ )
if ( _Event_Sync_state == THREAD_BLOCKING_OPERATION_SATISFIED )
break;
status = rtems_event_receive( 0x01, RTEMS_DEFAULT_OPTIONS, 0, &out );
directive_failed( status, "rtems_event_receive" );
if ( case_hit == TRUE )
break;
max += 2;
/* with our clock tick, this is about 30 seconds */
if ( ++iterations >= 4L * 1000L * 30L)
break;
}
printf(
"Event sent from ISR hitting synchronization point has %soccurred\n",
(( case_hit == TRUE ) ? "" : "NOT ")
);
/*
* Test Event send successful from ISR -- receive has timeout
*/
case_hit = FALSE;
iterations = 0;
max = 1;
while (1) {
if ( case_hit )
break;
status = rtems_timer_fire_after(
timer, 1, test_event_with_timeout_from_isr, NULL );
directive_failed( status, "timer_fire_after failed" );
for (i=0 ; i<max ; i++ )
if ( _Event_Sync_state == THREAD_BLOCKING_OPERATION_SATISFIED )
break;
status = rtems_event_receive( 0x01, RTEMS_DEFAULT_OPTIONS, 10, &out );
directive_failed( status, "rtems_event_receive" );
if ( case_hit == TRUE )
break;
max += 2;
/* with our clock tick, this is about 30 seconds */
if ( ++iterations >= 4L * 1000L * 30L)
break;
}
printf(
"Event sent from ISR (with timeout) hitting synchronization "
"point has %soccurred\n",
(( case_hit == TRUE ) ? "" : "NOT ")
);
TEST_END();
rtems_test_exit( 0 );
}