source: anotherchoice/tags/jsp-1.4.4-full-UTF8/config/h8s/cpu_config.c@ 26

Last change on this file since 26 was 26, checked in by ykominami, 11 years ago

initial
File size: 7.8 KB
Line 
1/*
2 * TOPPERS/JSP Kernel
3 * Toyohashi Open Platform for Embedded Real-Time Systems/
4 * Just Standard Profile Kernel
5 *
6 * Copyright (C) 2000-2004 by Embedded and Real-Time Systems Laboratory
7 * Toyohashi Univ. of Technology, JAPAN
8 * Copyright (C) 2001-2004 by Dep. of Computer Science and Engineering
9 * Tomakomai National College of Technology, JAPAN
10 * Copyright (C) 2001-2004 by Industrial Technology Institute,
11 * Miyagi Prefectural Government, JAPAN
12 *
13 * 上記著作権者
14は，以下の (1)〜(4) の条件か，Free Software Foundation
15 * によってå…
16¬è¡¨ã•ã‚Œã¦ã„ã‚‹ GNU General Public License の Version 2 に記
17 * 述されている条件を満たす場合に限り，本ソフトウェア（本ソフトウェア
18 * を改変したものを含む．以下同じ）を使用・複製・改変・再é…
19å¸ƒï¼ˆä»¥ä¸‹ï¼Œ
20 * 利用と呼ぶ）することを無償で許諾する．
21 * (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
22 * 権表示，この利用条件および下記の無保証規定が，そのままの形でソー
23 * スコード中に含まれていること．
24 * (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
25 * 用できる形で再é…
26å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œå†é…
27å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨
28 * 者
29マニュアルなど）に，上記の著作権表示，この利用条件および下記
30 * の無保証規定を掲載すること．
31 * (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
32 * 用できない形で再é…
33å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œæ¬¡ã®ã„ずれかの条件を満たすこ
34 * と．
35 * (a) 再é…
36å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨è€…
37マニュアルなど）に，上記の著
38 * 作権表示，この利用条件および下記の無保証規定を掲載すること．
39 * (b) 再é…
40å¸ƒã®å½¢æ…
41‹ã‚’，別に定める方法によって，TOPPERSプロジェクトに
42 * 報告すること．
43 * (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
44 * 害からも，上記著作権者
45およびTOPPERSプロジェクトをå…
46è²¬ã™ã‚‹ã“と．
47 *
48 * 本ソフトウェアは，無保証で提供されているものである．上記著作権者
49お
50 * よびTOPPERSプロジェクトは，本ソフトウェアに関して，その適用可能性も
51 * 含めて，いかなる保証も行わない．また，本ソフトウェアの利用により直
52 * 接的または間接的に生じたいかなる損害に関しても，その責任を負わない．
53 */
54
55/*
56 * プロセッサ依存モジュール(H8S用)
57 */
58
59#include "jsp_kernel.h"
60#include "check.h"
61#include "task.h"
62
63/*
64 * タスクコンテキストでの割込みマスク
65 */
66#ifdef SUPPORT_CHG_IPM
67IPM task_intmask; /* IPM -> UB：符号無し8ビット */
68#endif /* SUPPORT_CHG_IPM */
69
70/*
71 * 非タスクコンテキストでの割込みマスク
72 */
73IPM int_intmask;
74
75/*
76 * 割込みネストカウンタ
77 */
78UW intnest;
79
80/*
81 * プロセッサ依存の初期化
82 */
83void cpu_initialize() {
84
85#ifdef SUPPORT_CHG_IPM
86 /* タスクコンテキストでの割込みマスクの初期化 */
87 task_intmask = 0x00;
88#endif /* SUPPORT_CHG_IPM */
89
90 /* 割込み／CPU例外ネストカウンタの初期化 */
91 intnest = 1;
92
93 /* 割込みレベルの初期化 */
94 icu_set_ilv( (VP) IPRA, IPR_UPR, 0 );
95 icu_set_ilv( (VP) IPRA, IPR_LOW, 0 );
96 icu_set_ilv( (VP) IPRB, IPR_UPR, 0 );
97 icu_set_ilv( (VP) IPRB, IPR_LOW, 0 );
98 icu_set_ilv( (VP) IPRC, IPR_UPR, 0 );
99 icu_set_ilv( (VP) IPRC, IPR_LOW, 0 );
100 icu_set_ilv( (VP) IPRD, IPR_UPR, 0 );
101 icu_set_ilv( (VP) IPRD, IPR_LOW, 0 );
102 icu_set_ilv( (VP) IPRE, IPR_UPR, 0 );
103 icu_set_ilv( (VP) IPRE, IPR_LOW, 0 );
104 icu_set_ilv( (VP) IPRF, IPR_UPR, 0 );
105 icu_set_ilv( (VP) IPRF, IPR_LOW, 0 );
106 icu_set_ilv( (VP) IPRG, IPR_UPR, 0 );
107 icu_set_ilv( (VP) IPRG, IPR_LOW, 0 );
108 icu_set_ilv( (VP) IPRH, IPR_UPR, 0 );
109 icu_set_ilv( (VP) IPRH, IPR_LOW, 0 );
110 icu_set_ilv( (VP) IPRI, IPR_UPR, 0 );
111 icu_set_ilv( (VP) IPRI, IPR_LOW, 0 );
112 icu_set_ilv( (VP) IPRJ, IPR_UPR, 0 );
113 icu_set_ilv( (VP) IPRJ, IPR_LOW, 0 );
114 icu_set_ilv( (VP) IPRK, IPR_UPR, 0 );
115 icu_set_ilv( (VP) IPRK, IPR_LOW, 0 );
116}
117
118/*
119 * プロセッサ依存の終了処理
120 */
121void cpu_terminate() {
122}
123
124/*
125 * 微少時間待
126ち
127 */
128void sil_dly_nse(UINT dlytim) {
129 /* er0 = dlytim */
130 Asm(" sub.l %0, er0" :: "g"(SIL_DLY_TIM1) );
131 Asm(" ble sil_dly_nse_2");
132 /* dlytim < SIL_DLY_TIM1 ならループ終了 */
133 Asm(" sil_dly_nse_1:");
134 Asm(" sub.l %0, er0" :: "g"(SIL_DLY_TIM2) );
135 Asm(" bgt sil_dly_nse_1");
136 /* dlytim > SIL_DLY_TIM2 ならループ続行 */
137 Asm(" sil_dly_nse_2:");
138}
139
140#ifdef SUPPORT_CHG_IPM
141
142/*
143 * 割込みマスクの変更
144 *
145 * ・chg_ipm を使って、割込みマスクを MAX_IPM （NMI スタブリモートブレーク 以外
146 * のすべての割込みを禁止）以上に変更することはできません。NMI スタブリモート
147 * ブレーク以外のすべての割込みを禁止したい場合には、loc_cpuによりCPUロック
148 * 状æ…
149‹ã«ã—てください。
150 * ・割込みマスクが 0 以外の時であっても、タスクディスパッチは保留されません。
151 * このとき、割込みマスクの状æ…
152‹ã¯ã€ã‚¿ã‚¹ã‚¯ãƒ‡ã‚£ã‚¹ãƒ‘ッチによって新しく実行状æ…
153‹ã«
154 * なったタスクへ、その都度、引き継がれます。
155 * このため、タスクが実行中に、割込みが発生し、ディスパッチした後の別のタスク
156 * によって割込みマスクが変更される場合があります。
157 * TOPPERS/JSP カーネルでは、割込みマスクの変更はタスク例外処理ルーチンによっ
158 * ても起こるので，これによって扱いが難しくなる状況は少ないと思われます。
159 * ・割込みマスクの値によってタスクディスパッチを禁止したい場合には、dis_dsp を
160 * 併用してください。
161 */
162SYSCALL ER
163chg_ipm(IPM ipm)
164{
165 ER ercd;
166
167 LOG_CHG_IPM_ENTER(ipm);
168 CHECK_TSKCTX_UNL();
169 CHECK_PAR( /*(0 <= ipm) &&*/ (ipm <= MAX_IPM) );
170 /* IPM型 は、unsigned で定義しているので、コメントアウトして
171 いるところは、常に成立しているため、Warnning が発生する。
172 しかし、可読性の問題から、明示的に記述しておく。 */
173
174 t_lock_cpu();
175 task_intmask = ipm;
176 ercd = E_OK;
177 t_unlock_cpu();
178
179 exit:
180 LOG_CHG_IPM_LEAVE(ercd)
181 return(ercd);
182}
183
184/*
185 * 割込みマスクの参ç…
186§
187 */
188SYSCALL ER
189get_ipm(IPM *p_ipm)
190{
191 ER ercd;
192
193 LOG_GET_IPM_ENTER(p_ipm);
194 CHECK_TSKCTX_UNL();
195
196 t_lock_cpu();
197 *p_ipm = task_intmask;
198 ercd = E_OK;
199 t_unlock_cpu();
200
201 exit:
202 LOG_GET_IPM_LEAVE(ercd, *p_ipm);
203 return(ercd);
204}
205
206#endif /* SUPPORT_CHG_IPM */
207
208/*============================================================================*/
209/* å…
210±é€šãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆã«ã¯ãªã„、独自の部分 */
211
212/*
213 * 登録されていない割り込みが発生すると呼び出される
214 */
215void cpu_experr(EXCSTACK *sp)
216{
217 syslog( LOG_EMERG, "Unexpected interrupt." );
218 syslog( LOG_EMERG, "SP = %08x PC = %08x CCR = %08x",
219 sp - 34, sp->pc, sp->ccr );
220 syslog( LOG_EMERG, "ER0 = %08x ER1 = %08x ER2 = %08x ER3 = %08x",
221 sp->er0, sp->er1, sp->er2, sp->er3 );
222 syslog( LOG_EMERG, "ER4 = %08x ER5 = %08x ER6 = %08x ",
223 sp->er4, sp->er5, sp->er6 );
224
225 while(1);
226}
227
228/*
229 * メモリブロック操作ライブラリ
230 * (ItIsからの流用)
231 *
232 * 関数の仕様は，ANSI C ライブラリの仕様と同じ．標準ライブラリのものを
233 * 使った方が効率が良い可能性がある．
234 *
235 */
236VP _dummy_memcpy(VP dest, VP src, UINT len)
237{
238 VB *d = (VB *)dest;
239 VB *s = (VB *)src;
240
241 while (len-- > 0) {
242 *d++ = *s++;
243 }
244
245 return(dest);
246}
Note: See TracBrowser for help on using the repository browser.