Changeset 25789705 in rtems
- Timestamp:
- 11/15/99 21:35:14 (24 years ago)
- Branches:
- 4.10, 4.11, 4.8, 4.9, 5, master
- Children:
- 40aac29
- Parents:
- 1ae60eb4
- Files:
-
- 22 edited
Legend:
- Unmodified
- Added
- Removed
-
c/src/exec/itron/src/can_wup.c
r1ae60eb4 r25789705 33 33 case OBJECTS_REMOTE: 34 34 case OBJECTS_ERROR: 35 _ITRON_return_errorno( _ITRON_Task_Clarify_get_id_error( tskid ));35 return _ITRON_Task_Clarify_get_id_error( tskid ); 36 36 37 37 case OBJECTS_LOCAL: … … 39 39 * XXX - FILL ME IN. 40 40 */ 41 _ITRON_return_errorno( E_OK );41 break; 42 42 } 43 43 44 _ITRON_return_errorno( E_O BJ ); /* XXX - Should never get here */44 _ITRON_return_errorno( E_OK ); 45 45 } 46 46 -
c/src/exec/itron/src/chg_pri.c
r1ae60eb4 r25789705 34 34 case OBJECTS_REMOTE: 35 35 case OBJECTS_ERROR: 36 _ITRON_return_errorno( _ITRON_Task_Clarify_get_id_error( tskid ));36 return _ITRON_Task_Clarify_get_id_error( tskid ); 37 37 38 38 case OBJECTS_LOCAL: … … 55 55 _Thread_Change_priority( the_thread, new_priority, FALSE ); 56 56 57 _ITRON_return_errorno( E_OK );57 break; 58 58 } 59 59 60 _ITRON_return_errorno( E_O BJ ); /* XXX - Should never get here */60 _ITRON_return_errorno( E_OK ); 61 61 } 62 62 -
c/src/exec/itron/src/del_tsk.c
r1ae60eb4 r25789705 28 28 register Thread_Control *the_thread; 29 29 Objects_Locations location; 30 ER result ;30 ER result = E_OK; /* to avoid warning */ 31 31 32 32 the_thread = _ITRON_Task_Get( tskid, &location ); … … 34 34 case OBJECTS_REMOTE: 35 35 case OBJECTS_ERROR: 36 _ITRON_return_errorno( _ITRON_Task_Clarify_get_id_error( tskid ) ); 37 break; 36 return _ITRON_Task_Clarify_get_id_error( tskid ); 38 37 39 38 case OBJECTS_LOCAL: … … 49 48 } 50 49 51 _ITRON_return_errorno( E_OK);50 _ITRON_return_errorno( result ); 52 51 } 53 52 -
c/src/exec/itron/src/frsm_tsk.c
r1ae60eb4 r25789705 33 33 case OBJECTS_REMOTE: 34 34 case OBJECTS_ERROR: 35 _ITRON_return_errorno( _ITRON_Task_Clarify_get_id_error( tskid ));35 return _ITRON_Task_Clarify_get_id_error( tskid ); 36 36 37 37 case OBJECTS_LOCAL: … … 43 43 44 44 _Thread_Resume( the_thread, TRUE ); 45 _ITRON_return_errorno( E_OK );45 break; 46 46 } 47 47 48 _ITRON_return_errorno( E_OBJ ); /* XXX - Should never get here */48 _ITRON_return_errorno( E_OK ); 49 49 50 50 } -
c/src/exec/itron/src/ref_tsk.c
r1ae60eb4 r25789705 35 35 36 36 the_thread = _ITRON_Task_Get( tskid, &location ); 37 if ( location != OBJECTS_LOCAL) 38 _ITRON_return_errorno( _ITRON_Task_Clarify_get_id_error( tskid ) ); 37 switch ( location ) { 38 case OBJECTS_REMOTE: 39 case OBJECTS_ERROR: 40 return _ITRON_Task_Clarify_get_id_error( tskid ); 41 42 case OBJECTS_LOCAL: 39 43 40 /* 41 * The following are extended functions [level X ]. 42 * XXX - tskwait, wid, wupcnt, and tskatr are presently not implemented. 43 */ 44 if ( location != OBJECTS_LOCAL ) 45 return _ITRON_Task_Clarify_get_id_error( tskid ); 44 46 45 pk_rtsk->tskwait = 0; 46 pk_rtsk->wid = 0; 47 pk_rtsk->wupcnt = 0; 48 pk_rtsk->suscnt = the_thread->suspend_count; 49 pk_rtsk->tskatr = 0; 50 pk_rtsk->task = the_thread->Start.entry_point; 51 core_priority = the_thread->Start.initial_priority; 52 pk_rtsk->itskpri = _ITRON_Task_Core_to_Priority( core_priority ); 53 pk_rtsk->stksz = the_thread->Start.Initial_stack.size; 47 /* 48 * The following are extended functions [level X ]. 49 * XXX - tskwait, wid, wupcnt, and tskatr are presently not implemented. 50 */ 54 51 55 /* 56 * The following are required. 57 */ 52 pk_rtsk->tskwait = 0; 53 pk_rtsk->wid = 0; 54 pk_rtsk->wupcnt = 0; 55 pk_rtsk->suscnt = the_thread->suspend_count; 56 pk_rtsk->tskatr = 0; /* XXX - Not correctly implemented */ 57 pk_rtsk->task = (FP) the_thread->Start.entry_point; 58 core_priority = the_thread->Start.initial_priority; 59 pk_rtsk->itskpri = _ITRON_Task_Core_to_Priority( core_priority ); 60 pk_rtsk->stksz = the_thread->Start.Initial_stack.size; 58 61 59 pk_rtsk->exinf = NULL; /* extended information */60 pk_rtsk->tskpri = _ITRON_Task_Core_to_Priority(the_thread->current_priority);61 pk_rtsk->tskstat = 0;62 /* 63 * The following are required. 64 */ 62 65 63 /* 64 * Mask in the tskstat information 65 * Convert the task state XXX double check this 66 */ 66 pk_rtsk->exinf = NULL; /* extended information */ 67 pk_rtsk->tskpri = 68 _ITRON_Task_Core_to_Priority(the_thread->current_priority); 67 69 68 if ( the_thread == _Thread_Executing ) 69 pk_rtsk->tskstat |= TTS_RUN; 70 if ((the_thread->current_state & STATES_READY) != 0) 71 pk_rtsk->tskstat = TTS_RDY; 72 if (_States_Is_dormant( the_thread->current_state )) 73 pk_rtsk->tskstat = TTS_DMT; 74 if ((the_thread->current_state & STATES_SUSPENDED) != 0) 75 pk_rtsk->tskstat = TTS_SUS; 76 if ((the_thread->current_state & STATES_BLOCKED) != 0) 77 pk_rtsk->tskstat = TTS_WAI; 70 /* 71 * Mask in the tskstat information 72 * Convert the task state XXX double check this 73 */ 74 75 pk_rtsk->tskstat = 0; 76 if ( the_thread == _Thread_Executing ) 77 pk_rtsk->tskstat |= TTS_RUN; 78 if ( _States_Is_ready(the_thread->current_state) ) 79 pk_rtsk->tskstat |= TTS_RDY; 80 if ( _States_Is_dormant( the_thread->current_state) ) 81 pk_rtsk->tskstat |= TTS_DMT; 82 if ( _States_Is_suspended(the_thread->current_state) ) 83 pk_rtsk->tskstat |= TTS_SUS; 84 if ( _States_Is_blocked(the_thread->current_state) ) 85 pk_rtsk->tskstat |= TTS_WAI; 86 87 break; 88 } 78 89 79 90 _ITRON_return_errorno( E_OK ); 91 80 92 } 81 93 -
c/src/exec/itron/src/rel_wai.c
r1ae60eb4 r25789705 32 32 case OBJECTS_REMOTE: 33 33 case OBJECTS_ERROR: 34 _ITRON_return_errorno( _ITRON_Task_Clarify_get_id_error( tskid ));34 return _ITRON_Task_Clarify_get_id_error( tskid ); 35 35 36 36 case OBJECTS_LOCAL: … … 38 38 * XXX - FILL ME IN. 39 39 */ 40 return E_OK; 40 41 break; 41 42 } 42 43 43 return E_OBJ; /* XXX - Should never get here */44 _ITRON_return_errorno( E_OK ); 44 45 } 45 46 -
c/src/exec/itron/src/rot_rdq.c
r1ae60eb4 r25789705 28 28 29 29 30 if (( tskpri <= 0 ) || ( tskpri >= 256 )) 31 return E_PAR; 32 30 33 _Thread_Disable_dispatch(); 31 34 … … 33 36 * Yield of processor will rotate the queue for this processor. 34 37 */ 35 36 if (( tskpri <= 0 ) || ( tskpri >= 256 ))37 _ITRON_return_errorno( E_PAR );38 38 39 39 priority = _ITRON_Task_Core_to_Priority(_Thread_Executing->current_priority); -
c/src/exec/itron/src/rsm_tsk.c
r1ae60eb4 r25789705 33 33 case OBJECTS_REMOTE: 34 34 case OBJECTS_ERROR: 35 _ITRON_return_errorno( _ITRON_Task_Clarify_get_id_error( tskid ));35 return _ITRON_Task_Clarify_get_id_error( tskid ); 36 36 37 37 case OBJECTS_LOCAL: … … 44 44 45 45 _Thread_Resume( the_thread, FALSE ); 46 _Thread_Enable_dispatch(); 47 return E_OK; 46 break; 48 47 } 49 48 50 return E_OBJ; /* XXX - Should never get here */49 _ITRON_return_errorno( E_OK ); 51 50 } 52 51 -
c/src/exec/itron/src/sta_tsk.c
r1ae60eb4 r25789705 35 35 case OBJECTS_REMOTE: 36 36 case OBJECTS_ERROR: 37 _ITRON_return_errorno( _ITRON_Task_Clarify_get_id_error( tskid ) );37 return _ITRON_Task_Clarify_get_id_error( tskid ); 38 38 39 39 case OBJECTS_LOCAL: … … 56 56 */ 57 57 58 _ITRON_return_errorno( E_OK );58 break; 59 59 } 60 60 61 _ITRON_return_errorno( E_O BJ ); /* unreached - only to remove warnings */61 _ITRON_return_errorno( E_OK ); 62 62 } 63 63 -
c/src/exec/itron/src/sus_tsk.c
r1ae60eb4 r25789705 37 37 case OBJECTS_REMOTE: 38 38 case OBJECTS_ERROR: 39 _ITRON_return_errorno( _ITRON_Task_Clarify_get_id_error( tskid ));39 return _ITRON_Task_Clarify_get_id_error( tskid ); 40 40 41 41 case OBJECTS_LOCAL: … … 45 45 46 46 _Thread_Suspend( the_thread ); 47 _ITRON_return_errorno( E_OK );47 break; 48 48 } 49 49 50 _ITRON_return_errorno( E_O BJ );50 _ITRON_return_errorno( E_OK ); 51 51 } 52 52 -
c/src/exec/itron/src/ter_tsk.c
r1ae60eb4 r25789705 30 30 31 31 the_thread = _ITRON_Task_Get( tskid, &location ); 32 switch ( location ) { 33 case OBJECTS_REMOTE: 34 case OBJECTS_ERROR: 35 return _ITRON_Task_Clarify_get_id_error( tskid ); 36 37 case OBJECTS_LOCAL: 38 39 if ( _Thread_Is_executing( the_thread ) ) 40 _ITRON_return_errorno( E_OBJ ); 41 42 if ( _States_Is_dormant( the_thread->current_state ) ) 43 _ITRON_return_errorno( E_OBJ ); 32 44 33 if ( location != OBJECTS_LOCAL ) 34 _ITRON_return_errorno( _ITRON_Task_Clarify_get_id_error( tskid ) ); 45 _Thread_Restart( the_thread, NULL, 0 ); 46 _Thread_Set_state( the_thread, STATES_DORMANT ); 47 break; 48 } 35 49 36 if ( _Thread_Is_executing( the_thread ) ) 37 _ITRON_return_errorno( E_OBJ ); 38 39 if ( _States_Is_dormant( the_thread->current_state ) ) 40 _ITRON_return_errorno( E_OBJ ); 41 42 _Thread_Restart( the_thread, NULL, 0 ); 43 _Thread_Set_state( the_thread, STATES_DORMANT ); 44 45 _ITRON_return_errorno( E_OK ); 50 _ITRON_return_errorno( E_OK ); 46 51 } 47 52 -
cpukit/itron/src/can_wup.c
r1ae60eb4 r25789705 33 33 case OBJECTS_REMOTE: 34 34 case OBJECTS_ERROR: 35 _ITRON_return_errorno( _ITRON_Task_Clarify_get_id_error( tskid ));35 return _ITRON_Task_Clarify_get_id_error( tskid ); 36 36 37 37 case OBJECTS_LOCAL: … … 39 39 * XXX - FILL ME IN. 40 40 */ 41 _ITRON_return_errorno( E_OK );41 break; 42 42 } 43 43 44 _ITRON_return_errorno( E_O BJ ); /* XXX - Should never get here */44 _ITRON_return_errorno( E_OK ); 45 45 } 46 46 -
cpukit/itron/src/chg_pri.c
r1ae60eb4 r25789705 34 34 case OBJECTS_REMOTE: 35 35 case OBJECTS_ERROR: 36 _ITRON_return_errorno( _ITRON_Task_Clarify_get_id_error( tskid ));36 return _ITRON_Task_Clarify_get_id_error( tskid ); 37 37 38 38 case OBJECTS_LOCAL: … … 55 55 _Thread_Change_priority( the_thread, new_priority, FALSE ); 56 56 57 _ITRON_return_errorno( E_OK );57 break; 58 58 } 59 59 60 _ITRON_return_errorno( E_O BJ ); /* XXX - Should never get here */60 _ITRON_return_errorno( E_OK ); 61 61 } 62 62 -
cpukit/itron/src/del_tsk.c
r1ae60eb4 r25789705 28 28 register Thread_Control *the_thread; 29 29 Objects_Locations location; 30 ER result ;30 ER result = E_OK; /* to avoid warning */ 31 31 32 32 the_thread = _ITRON_Task_Get( tskid, &location ); … … 34 34 case OBJECTS_REMOTE: 35 35 case OBJECTS_ERROR: 36 _ITRON_return_errorno( _ITRON_Task_Clarify_get_id_error( tskid ) ); 37 break; 36 return _ITRON_Task_Clarify_get_id_error( tskid ); 38 37 39 38 case OBJECTS_LOCAL: … … 49 48 } 50 49 51 _ITRON_return_errorno( E_OK);50 _ITRON_return_errorno( result ); 52 51 } 53 52 -
cpukit/itron/src/frsm_tsk.c
r1ae60eb4 r25789705 33 33 case OBJECTS_REMOTE: 34 34 case OBJECTS_ERROR: 35 _ITRON_return_errorno( _ITRON_Task_Clarify_get_id_error( tskid ));35 return _ITRON_Task_Clarify_get_id_error( tskid ); 36 36 37 37 case OBJECTS_LOCAL: … … 43 43 44 44 _Thread_Resume( the_thread, TRUE ); 45 _ITRON_return_errorno( E_OK );45 break; 46 46 } 47 47 48 _ITRON_return_errorno( E_OBJ ); /* XXX - Should never get here */48 _ITRON_return_errorno( E_OK ); 49 49 50 50 } -
cpukit/itron/src/ref_tsk.c
r1ae60eb4 r25789705 35 35 36 36 the_thread = _ITRON_Task_Get( tskid, &location ); 37 if ( location != OBJECTS_LOCAL) 38 _ITRON_return_errorno( _ITRON_Task_Clarify_get_id_error( tskid ) ); 37 switch ( location ) { 38 case OBJECTS_REMOTE: 39 case OBJECTS_ERROR: 40 return _ITRON_Task_Clarify_get_id_error( tskid ); 41 42 case OBJECTS_LOCAL: 39 43 40 /* 41 * The following are extended functions [level X ]. 42 * XXX - tskwait, wid, wupcnt, and tskatr are presently not implemented. 43 */ 44 if ( location != OBJECTS_LOCAL ) 45 return _ITRON_Task_Clarify_get_id_error( tskid ); 44 46 45 pk_rtsk->tskwait = 0; 46 pk_rtsk->wid = 0; 47 pk_rtsk->wupcnt = 0; 48 pk_rtsk->suscnt = the_thread->suspend_count; 49 pk_rtsk->tskatr = 0; 50 pk_rtsk->task = the_thread->Start.entry_point; 51 core_priority = the_thread->Start.initial_priority; 52 pk_rtsk->itskpri = _ITRON_Task_Core_to_Priority( core_priority ); 53 pk_rtsk->stksz = the_thread->Start.Initial_stack.size; 47 /* 48 * The following are extended functions [level X ]. 49 * XXX - tskwait, wid, wupcnt, and tskatr are presently not implemented. 50 */ 54 51 55 /* 56 * The following are required. 57 */ 52 pk_rtsk->tskwait = 0; 53 pk_rtsk->wid = 0; 54 pk_rtsk->wupcnt = 0; 55 pk_rtsk->suscnt = the_thread->suspend_count; 56 pk_rtsk->tskatr = 0; /* XXX - Not correctly implemented */ 57 pk_rtsk->task = (FP) the_thread->Start.entry_point; 58 core_priority = the_thread->Start.initial_priority; 59 pk_rtsk->itskpri = _ITRON_Task_Core_to_Priority( core_priority ); 60 pk_rtsk->stksz = the_thread->Start.Initial_stack.size; 58 61 59 pk_rtsk->exinf = NULL; /* extended information */60 pk_rtsk->tskpri = _ITRON_Task_Core_to_Priority(the_thread->current_priority);61 pk_rtsk->tskstat = 0;62 /* 63 * The following are required. 64 */ 62 65 63 /* 64 * Mask in the tskstat information 65 * Convert the task state XXX double check this 66 */ 66 pk_rtsk->exinf = NULL; /* extended information */ 67 pk_rtsk->tskpri = 68 _ITRON_Task_Core_to_Priority(the_thread->current_priority); 67 69 68 if ( the_thread == _Thread_Executing ) 69 pk_rtsk->tskstat |= TTS_RUN; 70 if ((the_thread->current_state & STATES_READY) != 0) 71 pk_rtsk->tskstat = TTS_RDY; 72 if (_States_Is_dormant( the_thread->current_state )) 73 pk_rtsk->tskstat = TTS_DMT; 74 if ((the_thread->current_state & STATES_SUSPENDED) != 0) 75 pk_rtsk->tskstat = TTS_SUS; 76 if ((the_thread->current_state & STATES_BLOCKED) != 0) 77 pk_rtsk->tskstat = TTS_WAI; 70 /* 71 * Mask in the tskstat information 72 * Convert the task state XXX double check this 73 */ 74 75 pk_rtsk->tskstat = 0; 76 if ( the_thread == _Thread_Executing ) 77 pk_rtsk->tskstat |= TTS_RUN; 78 if ( _States_Is_ready(the_thread->current_state) ) 79 pk_rtsk->tskstat |= TTS_RDY; 80 if ( _States_Is_dormant( the_thread->current_state) ) 81 pk_rtsk->tskstat |= TTS_DMT; 82 if ( _States_Is_suspended(the_thread->current_state) ) 83 pk_rtsk->tskstat |= TTS_SUS; 84 if ( _States_Is_blocked(the_thread->current_state) ) 85 pk_rtsk->tskstat |= TTS_WAI; 86 87 break; 88 } 78 89 79 90 _ITRON_return_errorno( E_OK ); 91 80 92 } 81 93 -
cpukit/itron/src/rel_wai.c
r1ae60eb4 r25789705 32 32 case OBJECTS_REMOTE: 33 33 case OBJECTS_ERROR: 34 _ITRON_return_errorno( _ITRON_Task_Clarify_get_id_error( tskid ));34 return _ITRON_Task_Clarify_get_id_error( tskid ); 35 35 36 36 case OBJECTS_LOCAL: … … 38 38 * XXX - FILL ME IN. 39 39 */ 40 return E_OK; 40 41 break; 41 42 } 42 43 43 return E_OBJ; /* XXX - Should never get here */44 _ITRON_return_errorno( E_OK ); 44 45 } 45 46 -
cpukit/itron/src/rot_rdq.c
r1ae60eb4 r25789705 28 28 29 29 30 if (( tskpri <= 0 ) || ( tskpri >= 256 )) 31 return E_PAR; 32 30 33 _Thread_Disable_dispatch(); 31 34 … … 33 36 * Yield of processor will rotate the queue for this processor. 34 37 */ 35 36 if (( tskpri <= 0 ) || ( tskpri >= 256 ))37 _ITRON_return_errorno( E_PAR );38 38 39 39 priority = _ITRON_Task_Core_to_Priority(_Thread_Executing->current_priority); -
cpukit/itron/src/rsm_tsk.c
r1ae60eb4 r25789705 33 33 case OBJECTS_REMOTE: 34 34 case OBJECTS_ERROR: 35 _ITRON_return_errorno( _ITRON_Task_Clarify_get_id_error( tskid ));35 return _ITRON_Task_Clarify_get_id_error( tskid ); 36 36 37 37 case OBJECTS_LOCAL: … … 44 44 45 45 _Thread_Resume( the_thread, FALSE ); 46 _Thread_Enable_dispatch(); 47 return E_OK; 46 break; 48 47 } 49 48 50 return E_OBJ; /* XXX - Should never get here */49 _ITRON_return_errorno( E_OK ); 51 50 } 52 51 -
cpukit/itron/src/sta_tsk.c
r1ae60eb4 r25789705 35 35 case OBJECTS_REMOTE: 36 36 case OBJECTS_ERROR: 37 _ITRON_return_errorno( _ITRON_Task_Clarify_get_id_error( tskid ) );37 return _ITRON_Task_Clarify_get_id_error( tskid ); 38 38 39 39 case OBJECTS_LOCAL: … … 56 56 */ 57 57 58 _ITRON_return_errorno( E_OK );58 break; 59 59 } 60 60 61 _ITRON_return_errorno( E_O BJ ); /* unreached - only to remove warnings */61 _ITRON_return_errorno( E_OK ); 62 62 } 63 63 -
cpukit/itron/src/sus_tsk.c
r1ae60eb4 r25789705 37 37 case OBJECTS_REMOTE: 38 38 case OBJECTS_ERROR: 39 _ITRON_return_errorno( _ITRON_Task_Clarify_get_id_error( tskid ));39 return _ITRON_Task_Clarify_get_id_error( tskid ); 40 40 41 41 case OBJECTS_LOCAL: … … 45 45 46 46 _Thread_Suspend( the_thread ); 47 _ITRON_return_errorno( E_OK );47 break; 48 48 } 49 49 50 _ITRON_return_errorno( E_O BJ );50 _ITRON_return_errorno( E_OK ); 51 51 } 52 52 -
cpukit/itron/src/ter_tsk.c
r1ae60eb4 r25789705 30 30 31 31 the_thread = _ITRON_Task_Get( tskid, &location ); 32 switch ( location ) { 33 case OBJECTS_REMOTE: 34 case OBJECTS_ERROR: 35 return _ITRON_Task_Clarify_get_id_error( tskid ); 36 37 case OBJECTS_LOCAL: 38 39 if ( _Thread_Is_executing( the_thread ) ) 40 _ITRON_return_errorno( E_OBJ ); 41 42 if ( _States_Is_dormant( the_thread->current_state ) ) 43 _ITRON_return_errorno( E_OBJ ); 32 44 33 if ( location != OBJECTS_LOCAL ) 34 _ITRON_return_errorno( _ITRON_Task_Clarify_get_id_error( tskid ) ); 45 _Thread_Restart( the_thread, NULL, 0 ); 46 _Thread_Set_state( the_thread, STATES_DORMANT ); 47 break; 48 } 35 49 36 if ( _Thread_Is_executing( the_thread ) ) 37 _ITRON_return_errorno( E_OBJ ); 38 39 if ( _States_Is_dormant( the_thread->current_state ) ) 40 _ITRON_return_errorno( E_OBJ ); 41 42 _Thread_Restart( the_thread, NULL, 0 ); 43 _Thread_Set_state( the_thread, STATES_DORMANT ); 44 45 _ITRON_return_errorno( E_OK ); 50 _ITRON_return_errorno( E_OK ); 46 51 } 47 52
Note: See TracChangeset
for help on using the changeset viewer.