sandbox/kernel/kernel/task_except.c

   1 /*
   2  *  TOPPERS/JSP Kernel
   3  *      Toyohashi Open Platform for Embedded Real-Time Systems/
   4  *      Just Standard Profile Kernel
   5  *
   6  *  Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
   7  *                              Toyohashi Univ. of Technology, JAPAN
   8  *
   9  *  上記著作権者は，以下の (1)〜(4) の条件か，Free Software Foundation
  10  *  によって公表されている GNU General Public License の Version 2 に記
  11  *  述されている条件を満たす場合に限り，本ソフトウェア（本ソフトウェア
  12  *  を改変したものを含む．以下同じ）を使用・複製・改変・再配布（以下，
  13  *  利用と呼ぶ）することを無償で許諾する．
  14  *  (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
  15  *      権表示，この利用条件および下記の無保証規定が，そのままの形でソー
  16  *      スコード中に含まれていること．
  17  *  (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
  18  *      用できる形で再配布する場合には，再配布に伴うドキュメント（利用
  19  *      者マニュアルなど）に，上記の著作権表示，この利用条件および下記
  20  *      の無保証規定を掲載すること．
  21  *  (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
  22  *      用できない形で再配布する場合には，次のいずれかの条件を満たすこ
  23  *      と．
  24  *    (a) 再配布に伴うドキュメント（利用者マニュアルなど）に，上記の著
  25  *        作権表示，この利用条件および下記の無保証規定を掲載すること．
  26  *    (b) 再配布の形態を，別に定める方法によって，TOPPERSプロジェクトに
  27  *        報告すること．
  28  *  (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
  29  *      害からも，上記著作権者およびTOPPERSプロジェクトを免責すること．
  30  *
  31  *  本ソフトウェアは，無保証で提供されているものである．上記著作権者お
  32  *  よびTOPPERSプロジェクトは，本ソフトウェアに関して，その適用可能性も
  33  *  含めて，いかなる保証も行わない．また，本ソフトウェアの利用により直
  34  *  接的または間接的に生じたいかなる損害に関しても，その責任を負わない．
  35  *
  36  *  @(#) $Id: task_except.c,v 1.1 2009/01/31 05:27:37 suikan Exp $
  37  */
  38
  39 /*
  40  *  タスク例外処理機能
  41  */
  42
  43 #include "jsp_kernel.h"
  44 #include "check.h"
  45 #include "task.h"
  46
  47 /*
  48  *  タスク例外処理の要求
  49  */
  50 #ifdef __ras_tex
  51
  52 SYSCALL ER
  53 ras_tex(ID tskid, TEXPTN rasptn)
  54 {
  55     TCB *tcb;
  56     ER  ercd;
  57
  58     LOG_RAS_TEX_ENTER(tskid, rasptn);
  59     CHECK_TSKCTX_UNL();
  60     CHECK_TSKID_SELF(tskid);
  61     CHECK_PAR(rasptn != 0);
  62     tcb = get_tcb_self(tskid);
  63
  64     t_lock_cpu();
  65     if (TSTAT_DORMANT(tcb->tstat) || tcb->tinib->texrtn == NULL) {
  66         ercd = E_OBJ;
  67     }
  68     else {
  69         tcb->texptn |= rasptn;
  70         if (tcb == runtsk && runtsk->enatex) {
  71             call_texrtn();
  72         }
  73         ercd = E_OK;
  74     }
  75     t_unlock_cpu();
  76
  77     exit:
  78     LOG_RAS_TEX_LEAVE(ercd);
  79     return(ercd);
  80 }
  81
  82 #endif /* __ras_tex */
  83
  84 /*
  85  *  タスク例外処理の要求（非タスクコンテキスト用）
  86  */
  87 #ifdef __iras_tex
  88
  89 SYSCALL ER
  90 iras_tex(ID tskid, TEXPTN rasptn)
  91 {
  92     TCB *tcb;
  93     ER  ercd;
  94
  95     LOG_IRAS_TEX_ENTER(tskid, rasptn);
  96     CHECK_INTCTX_UNL();
  97     CHECK_TSKID(tskid);
  98     CHECK_PAR(rasptn != 0);
  99     tcb = get_tcb(tskid);
 100
 101     i_lock_cpu();
 102     if (TSTAT_DORMANT(tcb->tstat) || tcb->tinib->texrtn == NULL) {
 103         ercd = E_OBJ;
 104     }
 105     else {
 106         tcb->texptn |= rasptn;
 107         if (tcb == runtsk && runtsk->enatex) {
 108             reqflg = TRUE;
 109         }
 110         ercd = E_OK;
 111     }
 112     i_unlock_cpu();
 113
 114     exit:
 115     LOG_IRAS_TEX_LEAVE(ercd);
 116     return(ercd);
 117 }
 118
 119 #endif /* __iras_tex */
 120
 121 /*
 122  *  タスク例外処理の禁止
 123  */
 124 #ifdef __dis_tex
 125
 126 SYSCALL ER
 127 dis_tex()
 128 {
 129     ER  ercd;
 130
 131     LOG_DIS_TEX_ENTER();
 132     CHECK_TSKCTX_UNL();
 133
 134     t_lock_cpu();
 135     if (runtsk->tinib->texrtn == NULL) {
 136         ercd = E_OBJ;
 137     }
 138     else {
 139         runtsk->enatex = FALSE;
 140         ercd = E_OK;
 141     }
 142     t_unlock_cpu();
 143
 144     exit:
 145     LOG_DIS_TEX_LEAVE(ercd);
 146     return(ercd);
 147 }
 148
 149 #endif /* __dis_tex */
 150
 151 /*
 152  *  タスク例外処理の許可
 153  */
 154 #ifdef __ena_tex
 155
 156 SYSCALL ER
 157 ena_tex()
 158 {
 159     ER  ercd;
 160
 161     LOG_ENA_TEX_ENTER();
 162     CHECK_TSKCTX_UNL();
 163
 164     t_lock_cpu();
 165     if (runtsk->tinib->texrtn == NULL) {
 166         ercd = E_OBJ;
 167     }
 168     else {
 169         runtsk->enatex = TRUE;
 170         if (runtsk->texptn != 0) {
 171             call_texrtn();
 172         }
 173         ercd = E_OK;
 174     }
 175     t_unlock_cpu();
 176
 177     exit:
 178     LOG_ENA_TEX_LEAVE(ercd);
 179     return(ercd);
 180 }
 181
 182 #endif /* __ena_tex */
 183
 184 /*
 185  *  タスク例外処理禁止状態の参照
 186  */
 187 #ifdef __sns_tex
 188
 189 SYSCALL BOOL
 190 sns_tex()
 191 {
 192     BOOL    state;
 193
 194     LOG_SNS_TEX_ENTER();
 195     state = (runtsk != NULL && runtsk->enatex) ? FALSE : TRUE;
 196     LOG_SNS_TEX_LEAVE(state);
 197     return(state);
 198 }
 199
 200 #endif /* __sns_tex */