[ac7d5ef0] | 1 | /* |
---|
| 2 | * Event Manager |
---|
| 3 | * |
---|
| 4 | * COPYRIGHT (c) 1989, 1990, 1991, 1992, 1993, 1994. |
---|
| 5 | * On-Line Applications Research Corporation (OAR). |
---|
| 6 | * All rights assigned to U.S. Government, 1994. |
---|
| 7 | * |
---|
| 8 | * This material may be reproduced by or for the U.S. Government pursuant |
---|
| 9 | * to the copyright license under the clause at DFARS 252.227-7013. This |
---|
| 10 | * notice must appear in all copies of this file and its derivatives. |
---|
| 11 | * |
---|
| 12 | * $Id$ |
---|
| 13 | */ |
---|
| 14 | |
---|
| 15 | #include <rtems/system.h> |
---|
[3a4ae6c] | 16 | #include <rtems/rtems/status.h> |
---|
| 17 | #include <rtems/rtems/event.h> |
---|
[5e9b32b] | 18 | #include <rtems/score/isr.h> |
---|
| 19 | #include <rtems/score/object.h> |
---|
[3a4ae6c] | 20 | #include <rtems/rtems/options.h> |
---|
[5e9b32b] | 21 | #include <rtems/score/states.h> |
---|
| 22 | #include <rtems/score/thread.h> |
---|
[3a4ae6c] | 23 | #include <rtems/rtems/tasks.h> |
---|
[ac7d5ef0] | 24 | |
---|
| 25 | /*PAGE |
---|
| 26 | * |
---|
| 27 | * rtems_event_send |
---|
| 28 | * |
---|
| 29 | * This directive allows a thread send an event set to another thread. |
---|
| 30 | * |
---|
| 31 | * Input parameters: |
---|
| 32 | * id - thread id |
---|
| 33 | * event - event set |
---|
| 34 | * |
---|
| 35 | * Output parameters: |
---|
| 36 | * RTEMS_SUCCESSFUL - if successful |
---|
| 37 | * error code - if unsuccessful |
---|
| 38 | */ |
---|
| 39 | |
---|
| 40 | rtems_status_code rtems_event_send( |
---|
| 41 | Objects_Id id, |
---|
| 42 | rtems_event_set event_in |
---|
| 43 | ) |
---|
| 44 | { |
---|
| 45 | register Thread_Control *the_thread; |
---|
| 46 | Objects_Locations location; |
---|
[3a4ae6c] | 47 | RTEMS_API_Control *api; |
---|
[ac7d5ef0] | 48 | |
---|
| 49 | the_thread = _Thread_Get( id, &location ); |
---|
| 50 | switch ( location ) { |
---|
| 51 | case OBJECTS_ERROR: |
---|
[3a4ae6c] | 52 | return RTEMS_INVALID_ID; |
---|
[ac7d5ef0] | 53 | case OBJECTS_REMOTE: |
---|
| 54 | return( |
---|
| 55 | _Event_MP_Send_request_packet( |
---|
| 56 | EVENT_MP_SEND_REQUEST, |
---|
| 57 | id, |
---|
| 58 | event_in |
---|
| 59 | ) |
---|
| 60 | ); |
---|
| 61 | case OBJECTS_LOCAL: |
---|
[3a4ae6c] | 62 | api = the_thread->API_Extensions[ THREAD_API_RTEMS ]; |
---|
| 63 | _Event_sets_Post( event_in, &api->pending_events ); |
---|
[ac7d5ef0] | 64 | _Event_Surrender( the_thread ); |
---|
| 65 | _Thread_Enable_dispatch(); |
---|
[3a4ae6c] | 66 | return RTEMS_SUCCESSFUL; |
---|
[ac7d5ef0] | 67 | } |
---|
| 68 | |
---|
[3a4ae6c] | 69 | return RTEMS_INTERNAL_ERROR; /* unreached - only to remove warnings */ |
---|
[ac7d5ef0] | 70 | } |
---|
| 71 | |
---|
| 72 | /*PAGE |
---|
| 73 | * |
---|
| 74 | * rtems_event_receive |
---|
| 75 | * |
---|
| 76 | * This directive allows a thread to receive a set of events. |
---|
| 77 | * |
---|
| 78 | * Input parameters: |
---|
| 79 | * event_in - input event condition |
---|
| 80 | * option_set - options |
---|
| 81 | * ticks - number of ticks to wait (0 means wait forever) |
---|
| 82 | * event_out - pointer to output event set |
---|
| 83 | * |
---|
| 84 | * Output parameters: |
---|
| 85 | * event out - event set |
---|
| 86 | * RTEMS_SUCCESSFUL - if successful |
---|
| 87 | * error code - if unsuccessful |
---|
| 88 | */ |
---|
| 89 | |
---|
| 90 | rtems_status_code rtems_event_receive( |
---|
| 91 | rtems_event_set event_in, |
---|
| 92 | rtems_option option_set, |
---|
| 93 | rtems_interval ticks, |
---|
| 94 | rtems_event_set *event_out |
---|
| 95 | ) |
---|
| 96 | { |
---|
[3a4ae6c] | 97 | RTEMS_API_Control *api; |
---|
| 98 | |
---|
| 99 | api = _Thread_Executing->API_Extensions[ THREAD_API_RTEMS ]; |
---|
| 100 | |
---|
[ac7d5ef0] | 101 | if ( _Event_sets_Is_empty( event_in ) ) { |
---|
[3a4ae6c] | 102 | *event_out = api->pending_events; |
---|
| 103 | return RTEMS_SUCCESSFUL; |
---|
[ac7d5ef0] | 104 | } |
---|
| 105 | |
---|
| 106 | _Thread_Disable_dispatch(); |
---|
[3a4ae6c] | 107 | _Event_Seize( event_in, option_set, ticks, event_out ); |
---|
[ac7d5ef0] | 108 | _Thread_Enable_dispatch(); |
---|
| 109 | return( _Thread_Executing->Wait.return_code ); |
---|
| 110 | } |
---|
[9700578] | 111 | |
---|
| 112 | |
---|
| 113 | /*PAGE |
---|
| 114 | * |
---|
| 115 | * _Event_Seize |
---|
| 116 | * |
---|
| 117 | * This routine attempts to satisfy the requested event condition |
---|
| 118 | * for the running thread. |
---|
| 119 | * |
---|
| 120 | * Input parameters: |
---|
| 121 | * event_in - the event condition to satisfy |
---|
| 122 | * option_set - acquire event options |
---|
| 123 | * ticks - interval to wait |
---|
| 124 | * event_out - pointer to event set output area |
---|
| 125 | * |
---|
| 126 | * Output parameters: NONE |
---|
| 127 | * *event_out - event set output area filled in |
---|
| 128 | * |
---|
| 129 | * INTERRUPT LATENCY: |
---|
| 130 | * available |
---|
| 131 | * wait |
---|
| 132 | * check sync |
---|
| 133 | */ |
---|
| 134 | |
---|
| 135 | void _Event_Seize( |
---|
| 136 | rtems_event_set event_in, |
---|
| 137 | rtems_option option_set, |
---|
| 138 | rtems_interval ticks, |
---|
| 139 | rtems_event_set *event_out |
---|
| 140 | ) |
---|
| 141 | { |
---|
| 142 | Thread_Control *executing; |
---|
| 143 | rtems_event_set seized_events; |
---|
| 144 | rtems_event_set pending_events; |
---|
| 145 | ISR_Level level; |
---|
| 146 | RTEMS_API_Control *api; |
---|
[107ce47b] | 147 | Event_Sync_states sync_state; |
---|
[9700578] | 148 | |
---|
| 149 | executing = _Thread_Executing; |
---|
| 150 | executing->Wait.return_code = RTEMS_SUCCESSFUL; |
---|
| 151 | |
---|
| 152 | api = executing->API_Extensions[ THREAD_API_RTEMS ]; |
---|
| 153 | |
---|
| 154 | _ISR_Disable( level ); |
---|
| 155 | pending_events = api->pending_events; |
---|
| 156 | seized_events = _Event_sets_Get( pending_events, event_in ); |
---|
| 157 | |
---|
| 158 | if ( !_Event_sets_Is_empty( seized_events ) && |
---|
| 159 | (seized_events == event_in || _Options_Is_any( option_set )) ) { |
---|
| 160 | api->pending_events = |
---|
| 161 | _Event_sets_Clear( pending_events, seized_events ); |
---|
| 162 | _ISR_Enable( level ); |
---|
| 163 | *event_out = seized_events; |
---|
| 164 | return; |
---|
| 165 | } |
---|
| 166 | |
---|
| 167 | if ( _Options_Is_no_wait( option_set ) ) { |
---|
| 168 | _ISR_Enable( level ); |
---|
| 169 | executing->Wait.return_code = RTEMS_UNSATISFIED; |
---|
| 170 | *event_out = seized_events; |
---|
| 171 | return; |
---|
| 172 | } |
---|
| 173 | |
---|
[a8cd94a] | 174 | _Event_Sync_state = EVENT_SYNC_NOTHING_HAPPENED; |
---|
| 175 | |
---|
[9700578] | 176 | executing->Wait.option = (unsigned32) option_set; |
---|
| 177 | executing->Wait.count = (unsigned32) event_in; |
---|
| 178 | executing->Wait.return_argument = event_out; |
---|
| 179 | |
---|
| 180 | _ISR_Enable( level ); |
---|
| 181 | |
---|
| 182 | if ( ticks ) { |
---|
| 183 | _Watchdog_Initialize( |
---|
| 184 | &executing->Timer, |
---|
| 185 | _Event_Timeout, |
---|
| 186 | executing->Object.id, |
---|
| 187 | NULL |
---|
| 188 | ); |
---|
[8d0b7d96] | 189 | _Watchdog_Insert_ticks( &executing->Timer, ticks ); |
---|
[9700578] | 190 | } |
---|
| 191 | |
---|
[a8cd94a] | 192 | _Thread_Set_state( executing, STATES_WAITING_FOR_EVENT ); |
---|
| 193 | |
---|
[9700578] | 194 | _ISR_Disable( level ); |
---|
[107ce47b] | 195 | |
---|
| 196 | sync_state = _Event_Sync_state; |
---|
| 197 | _Event_Sync_state = EVENT_SYNC_SYNCHRONIZED; |
---|
| 198 | |
---|
| 199 | switch ( sync_state ) { |
---|
| 200 | case EVENT_SYNC_SYNCHRONIZED: |
---|
[18269cef] | 201 | /* |
---|
| 202 | * This cannot happen. It indicates that this routine did not |
---|
| 203 | * enter the synchronization states above. |
---|
| 204 | */ |
---|
| 205 | return; |
---|
| 206 | |
---|
[a26603d] | 207 | case EVENT_SYNC_NOTHING_HAPPENED: |
---|
| 208 | _ISR_Enable( level ); |
---|
| 209 | return; |
---|
[18269cef] | 210 | |
---|
[a26603d] | 211 | case EVENT_SYNC_TIMEOUT: |
---|
| 212 | executing->Wait.return_code = RTEMS_TIMEOUT; |
---|
| 213 | _ISR_Enable( level ); |
---|
| 214 | _Thread_Unblock( executing ); |
---|
| 215 | return; |
---|
[18269cef] | 216 | |
---|
[a26603d] | 217 | case EVENT_SYNC_SATISFIED: |
---|
| 218 | if ( _Watchdog_Is_active( &executing->Timer ) ) { |
---|
| 219 | _Watchdog_Deactivate( &executing->Timer ); |
---|
| 220 | _ISR_Enable( level ); |
---|
| 221 | (void) _Watchdog_Remove( &executing->Timer ); |
---|
| 222 | } else |
---|
| 223 | _ISR_Enable( level ); |
---|
| 224 | _Thread_Unblock( executing ); |
---|
| 225 | return; |
---|
[9700578] | 226 | } |
---|
| 227 | } |
---|
| 228 | |
---|
| 229 | /*PAGE |
---|
| 230 | * |
---|
| 231 | * _Event_Surrender |
---|
| 232 | * |
---|
| 233 | * This routines remove a thread from the specified threadq. |
---|
| 234 | * |
---|
| 235 | * Input parameters: |
---|
| 236 | * the_thread - pointer to thread to be dequeued |
---|
| 237 | * |
---|
| 238 | * Output parameters: NONE |
---|
| 239 | * |
---|
| 240 | * INTERRUPT LATENCY: |
---|
| 241 | * before flash |
---|
| 242 | * after flash |
---|
| 243 | * check sync |
---|
| 244 | */ |
---|
| 245 | |
---|
| 246 | void _Event_Surrender( |
---|
| 247 | Thread_Control *the_thread |
---|
| 248 | ) |
---|
| 249 | { |
---|
| 250 | ISR_Level level; |
---|
| 251 | rtems_event_set pending_events; |
---|
| 252 | rtems_event_set event_condition; |
---|
| 253 | rtems_event_set seized_events; |
---|
| 254 | rtems_option option_set; |
---|
| 255 | RTEMS_API_Control *api; |
---|
| 256 | |
---|
| 257 | api = the_thread->API_Extensions[ THREAD_API_RTEMS ]; |
---|
| 258 | |
---|
| 259 | option_set = (rtems_option) the_thread->Wait.option; |
---|
| 260 | |
---|
| 261 | _ISR_Disable( level ); |
---|
| 262 | pending_events = api->pending_events; |
---|
| 263 | event_condition = (rtems_event_set) the_thread->Wait.count; |
---|
| 264 | |
---|
| 265 | seized_events = _Event_sets_Get( pending_events, event_condition ); |
---|
| 266 | |
---|
| 267 | if ( !_Event_sets_Is_empty( seized_events ) ) { |
---|
| 268 | if ( _States_Is_waiting_for_event( the_thread->current_state ) ) { |
---|
| 269 | if ( seized_events == event_condition || _Options_Is_any( option_set ) ) { |
---|
| 270 | api->pending_events = |
---|
| 271 | _Event_sets_Clear( pending_events, seized_events ); |
---|
| 272 | *(rtems_event_set *)the_thread->Wait.return_argument = seized_events; |
---|
| 273 | |
---|
| 274 | _ISR_Flash( level ); |
---|
| 275 | |
---|
| 276 | if ( !_Watchdog_Is_active( &the_thread->Timer ) ) { |
---|
| 277 | _ISR_Enable( level ); |
---|
| 278 | _Thread_Unblock( the_thread ); |
---|
| 279 | } |
---|
| 280 | else { |
---|
| 281 | _Watchdog_Deactivate( &the_thread->Timer ); |
---|
| 282 | _ISR_Enable( level ); |
---|
| 283 | (void) _Watchdog_Remove( &the_thread->Timer ); |
---|
| 284 | _Thread_Unblock( the_thread ); |
---|
| 285 | } |
---|
| 286 | return; |
---|
| 287 | } |
---|
| 288 | } |
---|
[107ce47b] | 289 | |
---|
| 290 | switch ( _Event_Sync_state ) { |
---|
| 291 | case EVENT_SYNC_SYNCHRONIZED: |
---|
| 292 | case EVENT_SYNC_SATISFIED: |
---|
| 293 | break; |
---|
| 294 | |
---|
| 295 | case EVENT_SYNC_NOTHING_HAPPENED: |
---|
| 296 | case EVENT_SYNC_TIMEOUT: |
---|
| 297 | if ( !_Thread_Is_executing( the_thread ) ) |
---|
| 298 | break; |
---|
| 299 | |
---|
| 300 | if ( seized_events == event_condition || _Options_Is_any(option_set) ) { |
---|
| 301 | api->pending_events = |
---|
| 302 | _Event_sets_Clear( pending_events,seized_events ); |
---|
| 303 | *(rtems_event_set *)the_thread->Wait.return_argument = seized_events; |
---|
| 304 | _Event_Sync_state = EVENT_SYNC_SATISFIED; |
---|
| 305 | } |
---|
| 306 | break; |
---|
[9700578] | 307 | } |
---|
| 308 | } |
---|
| 309 | _ISR_Enable( level ); |
---|
| 310 | } |
---|
| 311 | |
---|
| 312 | /*PAGE |
---|
| 313 | * |
---|
| 314 | * _Event_Timeout |
---|
| 315 | * |
---|
| 316 | * This routine processes a thread which timeouts while waiting to |
---|
| 317 | * receive an event_set. It is called by the watchdog handler. |
---|
| 318 | * |
---|
| 319 | * Input parameters: |
---|
| 320 | * id - thread id |
---|
| 321 | * |
---|
| 322 | * Output parameters: NONE |
---|
| 323 | */ |
---|
| 324 | |
---|
| 325 | void _Event_Timeout( |
---|
| 326 | Objects_Id id, |
---|
| 327 | void *ignored |
---|
| 328 | ) |
---|
| 329 | { |
---|
| 330 | Thread_Control *the_thread; |
---|
| 331 | Objects_Locations location; |
---|
| 332 | |
---|
| 333 | the_thread = _Thread_Get( id, &location ); |
---|
| 334 | switch ( location ) { |
---|
| 335 | case OBJECTS_ERROR: |
---|
| 336 | case OBJECTS_REMOTE: /* impossible */ |
---|
| 337 | break; |
---|
| 338 | case OBJECTS_LOCAL: |
---|
[18269cef] | 339 | |
---|
| 340 | /* |
---|
| 341 | * If the event manager is not synchronized, then it is either |
---|
| 342 | * "nothing happened", "timeout", or "satisfied". If the_thread |
---|
| 343 | * is the executing thread, then it is in the process of blocking |
---|
| 344 | * and it is the thread which is responsible for the synchronization |
---|
| 345 | * process. |
---|
| 346 | * |
---|
| 347 | * If it is not satisfied, then it is "nothing happened" and |
---|
| 348 | * this is the "timeout" transition. After a request is satisfied, |
---|
| 349 | * a timeout is not allowed to occur. |
---|
| 350 | */ |
---|
| 351 | |
---|
[107ce47b] | 352 | if ( _Event_Sync_state != EVENT_SYNC_SYNCHRONIZED && |
---|
| 353 | _Thread_Is_executing( the_thread ) ) { |
---|
[a8cd94a] | 354 | if ( _Event_Sync_state != EVENT_SYNC_SATISFIED ) |
---|
| 355 | _Event_Sync_state = EVENT_SYNC_TIMEOUT; |
---|
| 356 | } else { |
---|
| 357 | the_thread->Wait.return_code = RTEMS_TIMEOUT; |
---|
| 358 | _Thread_Unblock( the_thread ); |
---|
| 359 | } |
---|
[9700578] | 360 | _Thread_Unnest_dispatch(); |
---|
| 361 | break; |
---|
| 362 | } |
---|
| 363 | } |
---|