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

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

initial

File size: 8.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-2007 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
67volatile IPM task_intmask = 0; /* IPM -> UB:符号無し8ビット */
68#endif /* SUPPORT_CHG_IPM */
69
70/*
71 * 非タスクコンテキストでの割込みマスク
72 */
73volatile IPM int_intmask = 0;
74
75/*
76 * 割込みネストカウンタ
77 */
78volatile UB intnest = 1;
79
80/*
81 * CPUロック状æ…
82‹ã‚’表すフラグ
83 *  ・割込み禁止(カーネル管理下の割込みのみ)
84 *    かつ
85 *  ・iscpulocked == TRUE
86 *    のときCPUロック状æ…
87‹ã¨ã™ã‚‹ã€‚
88 */
89volatile BOOL iscpulocked = TRUE;
90
91/*
92 * プロセッサ依存の初期化
93 */
94void cpu_initialize(void) {
95
96 /*
97 * 以下の4つはスタートアップルーチンで初期化が済んでいる。
98 *   ・割込みネストカウンタ intnest = 1;
99 *   ・非タスクコンテキストの割込みマスク int_intmask = 0;
100 *   ・タスクコンテキストの割込みマスク task_intmask = 0;
101 *     (chg_ipmをサポートする場合)
102 *   ・CPUロックフラグ iscpulocked = TRUE;
103 */
104
105 /* 割込み制御モードの設定 */
106 h8s_wrb_reg(SYSCR, SYS_SYSCR);
107
108 /* 割込みレベルの初期化 */
109 h8s_wrb_reg(IPRA, 0);
110 h8s_wrb_reg(IPRB, 0);
111 h8s_wrb_reg(IPRC, 0);
112 h8s_wrb_reg(IPRD, 0);
113 h8s_wrb_reg(IPRE, 0);
114 h8s_wrb_reg(IPRF, 0);
115 h8s_wrb_reg(IPRG, 0);
116 h8s_wrb_reg(IPRH, 0);
117 h8s_wrb_reg(IPRI, 0);
118 h8s_wrb_reg(IPRJ, 0);
119 h8s_wrb_reg(IPRK, 0);
120}
121
122/*
123 * プロセッサ依存の終了処理
124 */
125void cpu_terminate(void) {
126}
127
128/*
129 * 微少時間待
130ち
131 *   注意事項
132:
133 *    標準ではdlytimはUINT型だが16ビットしかないので、
134 *    UW型に変更している。
135 *    sil_dly_nse()は内
136部でsil_dly_nse_long()を呼び出す。
137 */
138void sil_dly_nse(UINT dlytim) {
139 sil_dly_nse_long((UW)dlytim);
140}
141
142#ifdef SUPPORT_CHG_IPM
143
144/*
145 * 割込みマスクの変更
146 *
147 * IPMに設定できる値は0〜MAX_IPMである。
148 * 割込みプライオリティレベルが(MAX_IPM+1)以上の割込みはカーネル管理外
149 * 扱いである。
150 *
151 * IPM が 0 以外の時にも,タスクディスパッチは保留されない.
152 * ディスパッチも禁止したい場合には,loc_cpu によりCPUロック状æ…
153‹ã«
154 * すればよい.IPM は,
155 * タスクディスパッチによって,新しく実行状æ…
156‹ã«ãªã£ãŸã‚¿ã‚¹ã‚¯ã¸å¼•ãç¶™ãŒ
157 * れる.そのため,タスクが実行中に,別のタスクによって IPM が変更さ
158 * れる場合がある.JSPカーネルでは,IPM の変更はタスク例外処理ルーチ
159 * ンによっても起こるのが,これによって扱いが難しくなる状況は少ないと
160 * 思われる.
161 * IPM の値によってタスクディスパッチを禁止したい場合には,dis_dspを
162 * 併用すればよい.
163 */
164SYSCALL ER
165chg_ipm(IPM ipm)
166{
167 ER ercd = E_OK;
168
169 LOG_CHG_IPM_ENTER(ipm);
170 CHECK_TSKCTX_UNL();
171 CHECK_PAR(ipm <= MAX_IPM);
172
173 t_lock_cpu();
174 task_intmask = ipm;
175 t_unlock_cpu();
176
177 exit:
178 LOG_CHG_IPM_LEAVE(ercd)
179 return(ercd);
180}
181
182/*
183 * 割込みマスクの参ç…
184§
185 */
186SYSCALL ER
187get_ipm(IPM *p_ipm)
188{
189 ER ercd = E_OK;
190
191 LOG_GET_IPM_ENTER(p_ipm);
192 CHECK_TSKCTX_UNL();
193
194 t_lock_cpu();
195 *p_ipm = task_intmask;
196 t_unlock_cpu();
197
198 exit:
199 LOG_GET_IPM_LEAVE(ercd, *p_ipm);
200 return(ercd);
201}
202
203
204#endif /* SUPPORT_CHG_IPM */
205
206/*============================================================================*/
207/* å…
208±é€šãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆã«ã¯ãªã„、独自の部分 */
209
210/*
211 * 登録されていない割り込みが発生すると呼び出される
212 */
213void
214cpu_experr(EXCSTACK *sp)
215{
216 UW sp2, pc, ccr, tmp;
217
218 sp2 = (UW)sp + OFFSET_SP;
219 tmp = sp->pc;
220 ccr = (tmp >> 24U) & 0xff; /* 上位1バイト */
221 pc = tmp & 0x00ffffffUL; /* 下位3バイト */
222
223 syslog(LOG_EMERG, "Unexpected interrupt.");
224 syslog(LOG_EMERG, "PC = 0x%08lx SP = 0x%08lx CCR = 0x%02x",
225 (VP)pc, (VP)sp2, (INT)ccr);
226 syslog(LOG_EMERG, "EXR = 0x%02x", (INT)(sp->exr));
227 syslog(LOG_EMERG, "ER0 = 0x%08lx ER1 = 0x%08lx ER2 = 0x%08lx ER3 = 0x%08lx",
228 (VP)(sp->er0), (VP)(sp->er1), (VP)(sp->er2), (VP)(sp->er3));
229 syslog(LOG_EMERG, "ER4 = 0x%08lx ER5 = 0x%08lx ER6 = 0x%08lx",
230 (VP)(sp->er4), (VP)(sp->er5), (VP)(sp->er6));
231 while(1)
232 ;
233}
234
235
236/*============================================================================*/
237/* デバッグ用コード */
238
239#ifdef TEST_CPU_INSN
240
241volatile UB ccr, exr;
242volatile IPM intmask;
243
244void test_cpu_insn(void)
245{
246 ccr = current_ccr();
247 set_ccr(0xf);
248 ccr = current_ccr();
249
250 exr = current_exr();
251 set_exr(0x7);
252 exr = current_exr();
253
254 intmask = current_intmask();
255 set_intmask(0x3);
256 intmask = current_intmask();
257
258 disint();
259 enaint();
260
261 _disint_();
262}
263
264#endif /* TEST_CPU_INSN */
265
266
267#ifdef TEST_CPU_CONFIG
268
269volatile BOOL b;
270volatile ER err;
271volatile IPM ipm;
272
273void dummy(void)
274{
275}
276
277void test_cpu_config(void)
278{
279 b = sense_context();
280 dummy();
281 intnest = 1;
282 dummy();
283 b = sense_context();
284 dummy();
285 intnest = 0;
286 dummy();
287 b = sense_context();
288 dummy();
289
290 b = t_sense_lock();
291 dummy();
292 t_lock_cpu();
293 dummy();
294 b = t_sense_lock();
295 dummy();
296 t_unlock_cpu();
297 dummy();
298 b = t_sense_lock();
299 dummy();
300
301 i_lock_cpu();
302 dummy();
303 b = i_sense_lock();
304 dummy();
305 i_unlock_cpu();
306 dummy();
307 b = i_sense_lock();
308 dummy();
309
310 err = chg_ipm(6);
311 dummy();
312 err = get_ipm(&ipm);
313 dummy();
314 err = chg_ipm(3);
315 dummy();
316 err = get_ipm(&ipm);
317 dummy();
318 err = chg_ipm(8);
319 dummy();
320}
321
322#endif /* TEST_CPU_CONFIG */
323
324#ifdef TEST_H8S_SIL
325
326volatile UB ddr;
327
328void test_h8s_sil(void)
329{
330 ddr = sil_reb_ddr(IO_PORT7);
331 sil_wrb_ddr(IO_PORT7, 0xff);
332 ddr = sil_reb_ddr(IO_PORT7);
333 sil_anb_ddr(IO_PORT7, 0xf);
334 ddr = sil_reb_ddr(IO_PORT7);
335 sil_orb_ddr(IO_PORT7, 0x80);
336 ddr = sil_reb_ddr(IO_PORT7);
337}
338
339#endif /* TEST_H8S_SIL */
340
341
342
Note: See TracBrowser for help on using the repository browser.