source: asp3_wo_tecs/trunk/extension/ovrhdr/sample/sample1.c@ 306

Last change on this file since 306 was 306, checked in by ertl-honda, 7 years ago

3.1.0を反映
File size: 18.6 KB
Line 
1/*
2 * TOPPERS/ASP Kernel
3 * Toyohashi Open Platform for Embedded Real-Time Systems/
4 * Advanced Standard Profile Kernel
5 *
6 * Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
7 * Toyohashi Univ. of Technology, JAPAN
8 * Copyright (C) 2004-2016 by Embedded and Real-Time Systems Laboratory
9 * Graduate School of Information Science, Nagoya Univ., JAPAN
10 *
11 * 上記著作権者
12は，以下の(1)〜(4)の条件を満たす場合に限り，本ソフトウェ
13 * ア（本ソフトウェアを改変したものを含む．以下同じ）を使用・複製・改
14 * 変・再é…
15å¸ƒï¼ˆä»¥ä¸‹ï¼Œåˆ©ç”¨ã¨å‘¼ã¶ï¼‰ã™ã‚‹ã“とを無償で許諾する．
16 * (1) 本ソフトウェアをソースコードの形で利用する場合には，上記の著作
17 * 権表示，この利用条件および下記の無保証規定が，そのままの形でソー
18 * スコード中に含まれていること．
19 * (2) 本ソフトウェアを，ライブラリ形式など，他のソフトウェア開発に使
20 * 用できる形で再é…
21å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œå†é…
22å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨
23 * 者
24マニュアルなど）に，上記の著作権表示，この利用条件および下記
25 * の無保証規定を掲載すること．
26 * (3) 本ソフトウェアを，機器に組み込むなど，他のソフトウェア開発に使
27 * 用できない形で再é…
28å¸ƒã™ã‚‹å ´åˆã«ã¯ï¼Œæ¬¡ã®ã„ずれかの条件を満たすこ
29 * と．
30 * (a) 再é…
31å¸ƒã«ä¼´ã†ãƒ‰ã‚­ãƒ¥ãƒ¡ãƒ³ãƒˆï¼ˆåˆ©ç”¨è€…
32マニュアルなど）に，上記の著
33 * 作権表示，この利用条件および下記の無保証規定を掲載すること．
34 * (b) 再é…
35å¸ƒã®å½¢æ…
36‹ã‚’，別に定める方法によって，TOPPERSプロジェクトに
37 * 報告すること．
38 * (4) 本ソフトウェアの利用により直接的または間接的に生じるいかなる損
39 * 害からも，上記著作権者
40およびTOPPERSプロジェクトをå…
41è²¬ã™ã‚‹ã“と．
42 * また，本ソフトウェアのユーザまたはエンドユーザからのいかなる理
43 * 由に基づく請求からも，上記著作権者
44およびTOPPERSプロジェクトを
45 * å…
46è²¬ã™ã‚‹ã“と．
47 *
48 * 本ソフトウェアは，無保証で提供されているものである．上記著作権者
49お
50 * よびTOPPERSプロジェクトは，本ソフトウェアに関して，特定の使用目的
51 * に対する適合性も含めて，いかなる保証も行わない．また，本ソフトウェ
52 * アの利用により直接的または間接的に生じたいかなる損害に関しても，そ
53 * の責任を負わない．
54 *
55 * $Id: sample1.c 725 2016-04-02 21:50:49Z ertl-hiro $
56 */
57
58/*
59 * サンプルプログラム(1)の本体
60 *
61 * ASPカーネルの基本的な動作を確認するためのサンプルプログラム．
62 *
63 * プログラムの概要:
64 *
65 * ユーザインタフェースを受け持つメインタスク（タスクID: MAIN_TASK，優
66 * å…
67ˆåº¦: MAIN_PRIORITY）と，3つの並行実行されるタスク（タスクID:
68 * TASK1〜TASK3，初期優å…
69ˆåº¦: MID_PRIORITY）で構成される．また，起動周
70 * 期が2秒の周期ハンドラ（周期ハンドラID: CYCHDR1）を用いる．
71 *
72 * 並行実行されるタスクは，task_loop回空ループを実行する度に，タスクが
73 * 実行中であることをあらわすメッセージを表示する．空ループを実行する
74 * のは，空ループなしでメッセージを出力すると，多量のメッセージが出力
75 * され，プログラムの動作が確認しずらくなるためである．また，低速なシ
76 * リアルポートを用いてメッセージを出力する場合に，すべてのメッセージ
77 * が出力できるように，メッセージの量を制限するという理由もある．
78 *
79 * 周期ハンドラは，三つの優å…
80ˆåº¦ï¼ˆHIGH_PRIORITY，MID_PRIORITY，
81 * LOW_PRIORITY）のレディキューを回転させる．プログラムの起動直後は，
82 * 周期ハンドラは停止状æ…
83‹ã«ãªã£ã¦ã„る．
84 *
85 * メインタスクは，シリアルI/Oポートからの文字å…
86¥åŠ›ã‚’行い（文字å…
87¥åŠ›ã‚’
88 * 待
89っている間は，並行実行されるタスクが実行されている），å…
90¥åŠ›ã•ã‚ŒãŸ
91 * 文字に対応した処理を実行する．å…
92¥åŠ›ã•ã‚ŒãŸæ–‡å­—と処理の関係は次の通り．
93 * Control-Cまたは'Q'がå…
94¥åŠ›ã•ã‚Œã‚‹ã¨ï¼Œãƒ—ログラムを終了する．
95 *
96 * '1' : 対象タスクをTASK1に切り換える（初期設定）．
97 * '2' : 対象タスクをTASK2に切り換える．
98 * '3' : 対象タスクをTASK3に切り換える．
99 * 'a' : 対象タスクをact_tskにより起動する．
100 * 'A' : 対象タスクに対する起動要求をcan_actによりキャンセルする．
101 * 'e' : 対象タスクにext_tskを呼び出させ，終了させる．
102 * 't' : 対象タスクをter_tskにより強制終了する．
103 * '>' : 対象タスクの優å…
104ˆåº¦ã‚’HIGH_PRIORITYにする．
105 * '=' : 対象タスクの優å…
106ˆåº¦ã‚’MID_PRIORITYにする．
107 * '<' : 対象タスクの優å…
108ˆåº¦ã‚’LOW_PRIORITYにする．
109 * 'G' : 対象タスクの優å…
110ˆåº¦ã‚’get_priで読み出す．
111 * 's' : 対象タスクにslp_tskを呼び出させ，起床待
112ちにさせる．
113 * 'S' : 対象タスクにtslp_tsk(10秒)を呼び出させ，起床待
114ちにさせる．
115 * 'w' : 対象タスクをwup_tskにより起床する．
116 * 'W' : 対象タスクに対する起床要求をcan_wupによりキャンセルする．
117 * 'l' : 対象タスクをrel_waiにより強制的に待
118ち解除にする．
119 * 'u' : 対象タスクをsus_tskにより強制待
120ち状æ…
121‹ã«ã™ã‚‹ï¼Ž
122 * 'm' : 対象タスクの強制待
123ち状æ…
124‹ã‚’rsm_tskにより解除する．
125 * 'd' : 対象タスクにdly_tsk(10秒)を呼び出させ，時間経過待
126ちにさせる．
127 * 'x' : 対象タスクにras_terにより終了要求する．
128 * 'y' : 対象タスクにdis_terを呼び出させ，タスク終了を禁止する．
129 * 'Y' : 対象タスクにena_terを呼び出させ，タスク終了を許可する．
130 * 'r' : 3つの優å…
131ˆåº¦ï¼ˆHIGH_PRIORITY，MID_PRIORITY，LOW_PRIORITY）のレ
132 * ディキューを回転させる．
133 * 'c' : 周期ハンドラを動作開始させる．
134 * 'C' : 周期ハンドラを動作停止させる．
135 * 'b' : アラームハンドラを5秒後に起動するよう動作開始させる．
136 * 'B' : アラームハンドラを動作停止させる．
137 * 'z' : 対象タスクにCPU例外を発生させる（タスクを終了させる）．
138 * 'Z' : 対象タスクにCPUロック状æ…
139‹ã§CPU例外を発生させる（プログラムを
140 * 終了する）．
141 * 'V' : fch_hrtで高分解能タイマを2回読む．
142 * 'o' : 対象タスクに対してオーバランハンドラを動作開始させる
143 * 'O' : 対象タスクに対してオーバランハンドラを動作停止させる
144 * 'v' : 発行したシステムコールを表示する（デフォルト）．
145 * 'q' : 発行したシステムコールを表示しない．
146 */
147
148#include <kernel.h>
149#include <t_syslog.h>
150#include <t_stdlib.h>
151#include "syssvc/serial.h"
152#include "syssvc/syslog.h"
153#include "kernel_cfg.h"
154#include "sample1.h"
155
156/*
157 * サービスコールのエラーのログ出力
158 */
159Inline void
160svc_perror(const char *file, int_t line, const char *expr, ER ercd)
161{
162 if (ercd < 0) {
163 t_perror(LOG_ERROR, file, line, expr, ercd);
164 }
165}
166
167#define SVC_PERROR(expr) svc_perror(__FILE__, __LINE__, #expr, (expr))
168
169/*
170 * 並行実行されるタスクへのメッセージ領域
171 */
172char message[3];
173
174/*
175 * ループ回数
176 */
177ulong_t task_loop; /* タスク内
178でのループ回数 */
179
180/*
181 * 並行実行されるタスク
182 */
183void task(intptr_t exinf)
184{
185 volatile ulong_t i;
186 int_t n = 0;
187 int_t tskno = (int_t) exinf;
188 const char *graph[] = { "| ", " + ", " *" };
189 char c;
190#ifdef TOPPERS_SUPPORT_OVRHDR
191 T_ROVR pk_rovr;
192#endif /* TOPPERS_SUPPORT_OVRHDR */
193
194 while (true) {
195#ifdef TOPPERS_SUPPORT_OVRHDR
196 SVC_PERROR(ref_ovr(TSK_SELF, &pk_rovr));
197 if ((pk_rovr.ovrstat & TOVR_STA) != 0) {
198 syslog(LOG_NOTICE, "task%d is running (%03d). %s [%ld]",
199 tskno, ++n, graph[tskno-1], pk_rovr.leftotm);
200 }
201 else {
202 syslog(LOG_NOTICE, "task%d is running (%03d). %s",
203 tskno, ++n, graph[tskno-1]);
204 }
205#else /* TOPPERS_SUPPORT_OVRHDR */
206 syslog(LOG_NOTICE, "task%d is running (%03d). %s",
207 tskno, ++n, graph[tskno-1]);
208#endif /* TOPPERS_SUPPORT_OVRHDR */
209 for (i = 0; i < task_loop; i++);
210 c = message[tskno-1];
211 message[tskno-1] = 0;
212 switch (c) {
213 case 'e':
214 syslog(LOG_INFO, "#%d#ext_tsk()", tskno);
215 SVC_PERROR(ext_tsk());
216 assert(0);
217 case 's':
218 syslog(LOG_INFO, "#%d#slp_tsk()", tskno);
219 SVC_PERROR(slp_tsk());
220 break;
221 case 'S':
222 syslog(LOG_INFO, "#%d#tslp_tsk(10000000)", tskno);
223 SVC_PERROR(tslp_tsk(10000000));
224 break;
225 case 'd':
226 syslog(LOG_INFO, "#%d#dly_tsk(10000000)", tskno);
227 SVC_PERROR(dly_tsk(10000000));
228 break;
229 case 'y':
230 syslog(LOG_INFO, "#%d#dis_ter()", tskno);
231 SVC_PERROR(dis_ter());
232 break;
233 case 'Y':
234 syslog(LOG_INFO, "#%d#ena_ter()", tskno);
235 SVC_PERROR(ena_ter());
236 break;
237#ifdef CPUEXC1
238 case 'z':
239 syslog(LOG_NOTICE, "#%d#raise CPU exception", tskno);
240 RAISE_CPU_EXCEPTION;
241 break;
242 case 'Z':
243 SVC_PERROR(loc_cpu());
244 syslog(LOG_NOTICE, "#%d#raise CPU exception", tskno);
245 RAISE_CPU_EXCEPTION;
246 SVC_PERROR(unl_cpu());
247 break;
248#endif /* CPUEXC1 */
249 default:
250 break;
251 }
252 }
253}
254
255/*
256 * 割込みハンドラ
257 */
258#ifdef INTNO1
259
260void intno1_isr(intptr_t exinf)
261{
262 intno1_clear();
263 SVC_PERROR(rot_rdq(HIGH_PRIORITY));
264 SVC_PERROR(rot_rdq(MID_PRIORITY));
265 SVC_PERROR(rot_rdq(LOW_PRIORITY));
266}
267
268#endif /* INTNO1 */
269
270/*
271 * CPU例外ハンドラ
272 */
273ID cpuexc_tskid; /* CPU例外を起こしたタスクのID */
274
275#ifdef CPUEXC1
276
277void
278cpuexc_handler(void *p_excinf)
279{
280 syslog(LOG_NOTICE, "CPU exception handler (p_excinf = %08p).", p_excinf);
281 if (sns_ctx() != true) {
282 syslog(LOG_WARNING,
283 "sns_ctx() is not true in CPU exception handler.");
284 }
285 if (sns_dpn() != true) {
286 syslog(LOG_WARNING,
287 "sns_dpn() is not true in CPU exception handler.");
288 }
289 syslog(LOG_INFO, "sns_loc = %d sns_dsp = %d xsns_dpn = %d",
290 sns_loc(), sns_dsp(), xsns_dpn(p_excinf));
291
292 if (xsns_dpn(p_excinf)) {
293 syslog(LOG_NOTICE, "Sample program ends with exception.");
294 SVC_PERROR(ext_ker());
295 assert(0);
296 }
297
298#ifdef PREPARE_RETURN_CPUEXC
299 PREPARE_RETURN_CPUEXC;
300 SVC_PERROR(get_tid(&cpuexc_tskid));
301 SVC_PERROR(act_tsk(EXC_TASK));
302#else /* PREPARE_RETURN_CPUEXC */
303 syslog(LOG_NOTICE, "Sample program ends with exception.");
304 SVC_PERROR(ext_ker());
305 assert(0);
306#endif /* PREPARE_RETURN_CPUEXC */
307}
308
309#endif /* CPUEXC1 */
310
311/*
312 * 周期ハンドラ
313 *
314 * HIGH_PRIORITY，MID_PRIORITY，LOW_PRIORITY の各優å…
315ˆåº¦ã®ãƒ¬ãƒ‡ã‚£ã‚­ãƒ¥ãƒ¼
316 * を回転させる．
317 */
318void cyclic_handler(intptr_t exinf)
319{
320 SVC_PERROR(rot_rdq(HIGH_PRIORITY));
321 SVC_PERROR(rot_rdq(MID_PRIORITY));
322 SVC_PERROR(rot_rdq(LOW_PRIORITY));
323}
324
325/*
326 * アラームハンドラ
327 *
328 * HIGH_PRIORITY，MID_PRIORITY，LOW_PRIORITY の各優å…
329ˆåº¦ã®ãƒ¬ãƒ‡ã‚£ã‚­ãƒ¥ãƒ¼
330 * を回転させる．
331 */
332void alarm_handler(intptr_t exinf)
333{
334 SVC_PERROR(rot_rdq(HIGH_PRIORITY));
335 SVC_PERROR(rot_rdq(MID_PRIORITY));
336 SVC_PERROR(rot_rdq(LOW_PRIORITY));
337}
338
339/*
340 * 例外処理タスク
341 */
342void exc_task(intptr_t exinf)
343{
344 SVC_PERROR(ras_ter(cpuexc_tskid));
345}
346
347/*
348 * オーバランハンドラ
349 */
350#ifdef TOPPERS_SUPPORT_OVRHDR
351
352void
353overrun_handler(ID tskid, intptr_t exinf)
354{
355 int_t tskno = (int_t) exinf;
356
357 syslog(LOG_NOTICE, "Overrun handler for task%d.", tskno);
358}
359
360#endif /* TOPPERS_SUPPORT_OVRHDR */
361
362/*
363 * メインタスク
364 */
365void main_task(intptr_t exinf)
366{
367 char c;
368 ID tskid = TASK1;
369 int_t tskno = 1;
370 ER_UINT ercd;
371 PRI tskpri;
372#ifndef TASK_LOOP
373 volatile ulong_t i;
374 SYSTIM stime1, stime2;
375#endif /* TASK_LOOP */
376 HRTCNT hrtcnt1, hrtcnt2;
377
378 SVC_PERROR(syslog_msk_log(LOG_UPTO(LOG_INFO), LOG_UPTO(LOG_EMERG)));
379 syslog(LOG_NOTICE, "Sample program starts (exinf = %d).", (int_t) exinf);
380
381 /*
382 * シリアルポートの初期化
383 *
384 * システムログタスクと同じシリアルポートを使う場合など，シリアル
385 * ポートがオープン済みの場合にはここでE_OBJエラーになるが，支障は
386 * ない．
387 */
388 ercd = serial_opn_por(TASK_PORTID);
389 if (ercd < 0 && MERCD(ercd) != E_OBJ) {
390 syslog(LOG_ERROR, "%s (%d) reported by `serial_opn_por'.",
391 itron_strerror(ercd), SERCD(ercd));
392 }
393 SVC_PERROR(serial_ctl_por(TASK_PORTID,
394 (IOCTL_CRLF | IOCTL_FCSND | IOCTL_FCRCV)));
395
396 /*
397 * ループ回数の設定
398 *
399 * 並行実行されるタスク内
400での空ループの回数（task_loop）は，空ルー
401 * プの実行時間が約0.4秒になるように設定する．この設定のために，
402 * LOOP_REF回の空ループの実行時間を，その前後でget_timを呼ぶことで
403 * 測定し，その測定結果から空ループの実行時間が0.4秒になるループ回
404 * 数を求め，task_loopに設定する．
405 *
406 * LOOP_REFは，デフォルトでは1,000,000に設定しているが，想定したよ
407 * り遅
408いプロセッサでは，サンプルプログラムの実行開始に時間がかか
409 * りすぎるという問題を生じる．逆に想定したより速いプロセッサでは，
410 * LOOP_REF回の空ループの実行時間が短くなり，task_loopに設定する値
411 * の誤差が大きくなるという問題がある．
412 *
413 * そこで，そのようなターゲットでは，target_test.hで，LOOP_REFを適
414 * 切な値に定義するのが望ましい．
415 *
416 * また，task_loopの値を固定したい場合には，その値をTASK_LOOPにマ
417 * クロ定義する．TASK_LOOPがマクロ定義されている場合，上記の測定を
418 * 行わずに，TASK_LOOPに定義された値を空ループの回数とする．
419 *
420 * ターゲットによっては，空ループの実行時間の1回目の測定で，本来よ
421 * りも長めになるものがある．このようなターゲットでは，MEASURE_TWICE
422 * をマクロ定義することで，1回目の測定結果を捨てて，2回目の測定結果
423 * を使う．
424 */
425#ifdef TASK_LOOP
426 task_loop = TASK_LOOP;
427#else /* TASK_LOOP */
428
429#ifdef MEASURE_TWICE
430 task_loop = LOOP_REF;
431 SVC_PERROR(get_tim(&stime1));
432 for (i = 0; i < task_loop; i++);
433 SVC_PERROR(get_tim(&stime2));
434#endif /* MEASURE_TWICE */
435
436 task_loop = LOOP_REF;
437 SVC_PERROR(get_tim(&stime1));
438 for (i = 0; i < task_loop; i++);
439 SVC_PERROR(get_tim(&stime2));
440 task_loop = LOOP_REF * 400LU / (ulong_t)(stime2 - stime1) * 1000LU;
441
442#endif /* TASK_LOOP */
443
444 /*
445 * タスクの起動
446 */
447 SVC_PERROR(act_tsk(TASK1));
448 SVC_PERROR(act_tsk(TASK2));
449 SVC_PERROR(act_tsk(TASK3));
450
451 /*
452 * メインループ
453 */
454 do {
455 SVC_PERROR(serial_rea_dat(TASK_PORTID, &c, 1));
456 switch (c) {
457 case 'e':
458 case 's':
459 case 'S':
460 case 'd':
461 case 'y':
462 case 'Y':
463 case 'z':
464 case 'Z':
465 message[tskno-1] = c;
466 break;
467 case '1':
468 tskno = 1;
469 tskid = TASK1;
470 break;
471 case '2':
472 tskno = 2;
473 tskid = TASK2;
474 break;
475 case '3':
476 tskno = 3;
477 tskid = TASK3;
478 break;
479 case 'a':
480 syslog(LOG_INFO, "#act_tsk(%d)", tskno);
481 SVC_PERROR(act_tsk(tskid));
482 break;
483 case 'A':
484 syslog(LOG_INFO, "#can_act(%d)", tskno);
485 SVC_PERROR(ercd = can_act(tskid));
486 if (ercd >= 0) {
487 syslog(LOG_NOTICE, "can_act(%d) returns %d", tskno, ercd);
488 }
489 break;
490 case 't':
491 syslog(LOG_INFO, "#ter_tsk(%d)", tskno);
492 SVC_PERROR(ter_tsk(tskid));
493 break;
494 case '>':
495 syslog(LOG_INFO, "#chg_pri(%d, HIGH_PRIORITY)", tskno);
496 SVC_PERROR(chg_pri(tskid, HIGH_PRIORITY));
497 break;
498 case '=':
499 syslog(LOG_INFO, "#chg_pri(%d, MID_PRIORITY)", tskno);
500 SVC_PERROR(chg_pri(tskid, MID_PRIORITY));
501 break;
502 case '<':
503 syslog(LOG_INFO, "#chg_pri(%d, LOW_PRIORITY)", tskno);
504 SVC_PERROR(chg_pri(tskid, LOW_PRIORITY));
505 break;
506 case 'G':
507 syslog(LOG_INFO, "#get_pri(%d, &tskpri)", tskno);
508 SVC_PERROR(ercd = get_pri(tskid, &tskpri));
509 if (ercd >= 0) {
510 syslog(LOG_NOTICE, "priority of task %d is %d", tskno, tskpri);
511 }
512 break;
513 case 'w':
514 syslog(LOG_INFO, "#wup_tsk(%d)", tskno);
515 SVC_PERROR(wup_tsk(tskid));
516 break;
517 case 'W':
518 syslog(LOG_INFO, "#can_wup(%d)", tskno);
519 SVC_PERROR(ercd = can_wup(tskid));
520 if (ercd >= 0) {
521 syslog(LOG_NOTICE, "can_wup(%d) returns %d", tskno, ercd);
522 }
523 break;
524 case 'l':
525 syslog(LOG_INFO, "#rel_wai(%d)", tskno);
526 SVC_PERROR(rel_wai(tskid));
527 break;
528 case 'u':
529 syslog(LOG_INFO, "#sus_tsk(%d)", tskno);
530 SVC_PERROR(sus_tsk(tskid));
531 break;
532 case 'm':
533 syslog(LOG_INFO, "#rsm_tsk(%d)", tskno);
534 SVC_PERROR(rsm_tsk(tskid));
535 break;
536 case 'x':
537 syslog(LOG_INFO, "#ras_ter(%d)", tskno);
538 SVC_PERROR(ras_ter(tskid));
539 break;
540 case 'r':
541 syslog(LOG_INFO, "#rot_rdq(three priorities)");
542 SVC_PERROR(rot_rdq(HIGH_PRIORITY));
543 SVC_PERROR(rot_rdq(MID_PRIORITY));
544 SVC_PERROR(rot_rdq(LOW_PRIORITY));
545 break;
546 case 'c':
547 syslog(LOG_INFO, "#sta_cyc(1)");
548 SVC_PERROR(sta_cyc(CYCHDR1));
549 break;
550 case 'C':
551 syslog(LOG_INFO, "#stp_cyc(1)");
552 SVC_PERROR(stp_cyc(CYCHDR1));
553 break;
554 case 'b':
555 syslog(LOG_INFO, "#sta_alm(1, 5000000)");
556 SVC_PERROR(sta_alm(ALMHDR1, 5000000));
557 break;
558 case 'B':
559 syslog(LOG_INFO, "#stp_alm(1)");
560 SVC_PERROR(stp_alm(ALMHDR1));
561 break;
562
563 case 'V':
564 hrtcnt1 = fch_hrt();
565 hrtcnt2 = fch_hrt();
566 syslog(LOG_NOTICE, "hrtcnt1 = %tu, hrtcnt2 = %tu",
567 hrtcnt1, hrtcnt2);
568 break;
569
570 case 'o':
571#ifdef TOPPERS_SUPPORT_OVRHDR
572 syslog(LOG_INFO, "#sta_ovr(%d, 2000000)", tskno);
573 SVC_PERROR(sta_ovr(tskid, 2000000));
574#else /* TOPPERS_SUPPORT_OVRHDR */
575 syslog(LOG_NOTICE, "sta_ovr is not supported.");
576#endif /* TOPPERS_SUPPORT_OVRHDR */
577 break;
578 case 'O':
579#ifdef TOPPERS_SUPPORT_OVRHDR
580 syslog(LOG_INFO, "#stp_ovr(%d)", tskno);
581 SVC_PERROR(stp_ovr(tskid));
582#else /* TOPPERS_SUPPORT_OVRHDR */
583 syslog(LOG_NOTICE, "stp_ovr is not supported.");
584#endif /* TOPPERS_SUPPORT_OVRHDR */
585 break;
586
587 case 'v':
588 SVC_PERROR(syslog_msk_log(LOG_UPTO(LOG_INFO),
589 LOG_UPTO(LOG_EMERG)));
590 break;
591 case 'q':
592 SVC_PERROR(syslog_msk_log(LOG_UPTO(LOG_NOTICE),
593 LOG_UPTO(LOG_EMERG)));
594 break;
595
596#ifdef BIT_KERNEL
597 case ' ':
598 SVC_PERROR(loc_cpu());
599 {
600 extern ER bit_kernel(void);
601
602 SVC_PERROR(ercd = bit_kernel());
603 if (ercd >= 0) {
604 syslog(LOG_NOTICE, "bit_kernel passed.");
605 }
606 }
607 SVC_PERROR(unl_cpu());
608 break;
609#endif /* BIT_KERNEL */
610
611 default:
612 break;
613 }
614 } while (c != '\003' && c != 'Q');
615
616 syslog(LOG_NOTICE, "Sample program ends.");
617 SVC_PERROR(ext_ker());
618 assert(0);
619}
Note: See TracBrowser for help on using the repository browser.