Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Blame
Revision Log

sample1.c@ 61

Last change on this file since 61 was 61, checked in by ertl-honda, 11 years ago
ASP for EWARM のコミット．
File size: 16.0 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-2010 by Embedded and Real-Time Systems Laboratory
9	* Graduate School of Information Science, Nagoya Univ., JAPAN
10	*
11	* ãLì ÒÍCÈºÌ(1)`(4)Ìðð½·êÉÀèC{\tgEF
12	* Ai{\tgEFAðüÏµ½àÌðÜÞDÈº¯¶jðgpE¡»Eü
13	* ÏEÄzziÈºCpÆÄÔj·é±Æð³Åø·éD
14	* (1) {\tgEFAð\[XR[hÌ`Åp·éêÉÍCãLÌì
15	* \¦C±Ìpð¨æÑºLÌ³ÛØKèªC»ÌÜÜÌ`Å\[
16	* XR[hÉÜÜêÄ¢é±ÆD
17	* (2) {\tgEFAðCCu`®ÈÇC¼Ì\tgEFAJÉg
18	* pÅ«é`ÅÄzz·éêÉÍCÄzzÉº¤hL
19	gip
20	* Ò}j
21	AÈÇjÉCãLÌì \¦C±Ìpð¨æÑºL
22	* Ì³ÛØKèðfÚ·é±ÆD
23	* (3) {\tgEFAðC@íÉgÝÞÈÇC¼Ì\tgEFAJÉg
24	* pÅ«È¢`ÅÄzz·éêÉÍCÌ¢¸ê©Ìðð½·±
25	* ÆD
26	* (a) ÄzzÉº¤hL
27	gipÒ}j
28	AÈÇjÉCãLÌ
29	* ì \¦C±Ìpð¨æÑºLÌ³ÛØKèðfÚ·é±ÆD
30	* (b) ÄzzÌ`ÔðCÊÉèßéû@ÉæÁÄCTOPPERSvWFNgÉ
31	* ñ·é±ÆD
32	* (4) {\tgEFAÌpÉæè¼ÚIÜ½ÍÔÚIÉ¶¶é¢©Èé¹
33	* Q©çàCãLì Ò¨æÑTOPPERSvWFNgðÆÓ·é±ÆD
34	* Ü½C{\tgEFAÌ[UÜ½ÍGh[U©çÌ¢©Èé
35	* RÉîÃ¿©çàCãLì Ò¨æÑTOPPERSvWFNgð
36	* ÆÓ·é±ÆD
37	*
38	* {\tgEFAÍC³ÛØÅñ³êÄ¢éàÌÅ éDãLì Ò¨
39	* æÑTOPPERSvWFNgÍC{\tgEFAÉÖµÄCÁèÌgpÚI
40	* ÉÎ·éK«àÜßÄC¢©ÈéÛØàsíÈ¢DÜ½C{\tgEF
41	* AÌpÉæè¼ÚIÜ½ÍÔÚIÉ¶¶½¢©Èé¹QÉÖµÄàC»
42	* ÌÓCðíÈ¢D
43	*
44	* @(#) $Id: sample1.c 1932 2010-09-19 06:57:36Z ertl-hiro $
45	*/
46
47	/*
48	* TvvO(1)Ì{Ì
49	*
50	* ASPJ[lÌî{IÈ®ìðmF·é½ßÌTvvOD
51	*
52	* vOÌTv:
53	*
54	* [UC^tF[Xðó¯ÂC^XNi^XNID: MAIN_TASKCD
55	* æx: MAIN_PRIORITYjÆC3ÂÌÀñÀs³êé^XNi^XNID:
56	* TASK1`TASK3CúDæx: MID_PRIORITYjÅ\¬³êéDÜ½CN®ü
57	* úª2bÌüúnhiüúnhID: CYCHDR1jðp¢éD
58	*
59	* ÀñÀs³êé^XNÍCtask_loopñó[vðÀs·éxÉC^XNª
60	* ÀsÅ é±Æð çí·bZ[Wð\¦·éD
61	*
62	* üúnhÍCOÂÌDæxiHIGH_PRIORITYCMID_PRIORITYC
63	* LOW_PRIORITYjÌfBL
64	[ðñ]³¹éDvOÌN®¼ãÍC
65	* üúnhÍâ~óÔÉÈÁÄ¢éD
66	*
67	* C^XNÍCVAI/O\|[g©çÌ¶üÍðs¢i¶üÍð
68	* ÒÁÄ¢éÔÍCÀñÀs³êé^XNªÀs³êÄ¢éjCüÍ³ê½
69	* ¶ÉÎµ½ðÀs·éDüÍ³ê½¶ÆÌÖWÍÌÊèD
70	* Control-CÜ½Í'Q'ªüÍ³êéÆCvOðI¹·éD
71	*
72	* '1' : ÎÛ^XNðTASK1ÉØè·¦éiúÝèjD
73	* '2' : ÎÛ^XNðTASK2ÉØè·¦éD
74	* '3' : ÎÛ^XNðTASK3ÉØè·¦éD
75	* 'a' : ÎÛ^XNðact_tskÉæèN®·éD
76	* 'A' : ÎÛ^XNÉÎ·éN®vðcan_actÉæèLZ·éD
77	* 'e' : ÎÛ^XNÉext_tskðÄÑo³¹CI¹³¹éD
78	* 't' : ÎÛ^XNðter_tskÉæè§I¹·éD
79	* '>' : ÎÛ^XNÌDæxðHIGH_PRIORITYÉ·éD
80	* '=' : ÎÛ^XNÌDæxðMID_PRIORITYÉ·éD
81	* '<' : ÎÛ^XNÌDæxðLOW_PRIORITYÉ·éD
82	* 'G' : ÎÛ^XNÌDæxðget_priÅÇÝo·D
83	* 's' : ÎÛ^XNÉslp_tskðÄÑo³¹CN°Ò¿É³¹éD
84	* 'S' : ÎÛ^XNÉtslp_tsk(10b)ðÄÑo³¹CN°Ò¿É³¹éD
85	* 'w' : ÎÛ^XNðwup_tskÉæèN°·éD
86	* 'W' : ÎÛ^XNÉÎ·éN°vðcan_wupÉæèLZ·éD
87	* 'l' : ÎÛ^XNðrel_waiÉæè§IÉÒ¿ðÉ·éD
88	* 'u' : ÎÛ^XNðsus_tskÉæè§Ò¿óÔÉ·éD
89	* 'm' : ÎÛ^XNÌ§Ò¿óÔðrsm_tskÉæèð·éD
90	* 'd' : ÎÛ^XNÉdly_tsk(10b)ðÄÑo³¹CÔoßÒ¿É³¹éD
91	* 'x' : ÎÛ^XNÉáOp^[0x0001ÌáOðv·éD
92	* 'X' : ÎÛ^XNÉáOp^[0x0002ÌáOðv·éD
93	* 'y' : ÎÛ^XNÉdis_texðÄÑo³¹C^XNáOðÖ~·éD
94	* 'Y' : ÎÛ^XNÉena_texðÄÑo³¹C^XNáOðÂ·éD
95	* 'r' : 3ÂÌDæxiHIGH_PRIORITYCMID_PRIORITYCLOW_PRIORITYjÌ
96	* fBL
97	[ðñ]³¹éD
98	* 'c' : üúnhð®ìJn³¹éD
99	* 'C' : üúnhð®ìâ~³¹éD
100	* 'b' : A[nhð5bãÉN®·éæ¤®ìJn³¹éD
101	* 'B' : A[nhð®ìâ~³¹éD
102	* 'z' : ÎÛ^XNÉCPUáOð¶³¹éi^XNðI¹³¹éjD
103	* 'Z' : ÎÛ^XNÉCPUbNóÔÅCPUáOð¶³¹éivOð
104	* I¹·éjD
105	* 'V' : get_utmÅ«\]¿pVXeð2ñÇÞD
106	* 'o' : ÎÛ^XNÉÎµÄI[onhð®ìJn³¹é
107	* 'O' : ÎÛ^XNÉÎµÄI[onhð®ìâ~³¹é
108	* 'v' : sµ½VXeR[ð\¦·éiftHgjD
109	* 'q' : sµ½VXeR[ð\¦µÈ¢D
110	*/
111
112	#include <kernel.h>
113	#include <t_syslog.h>
114	#include <t_stdlib.h>
115	#include "syssvc/serial.h"
116	#include "syssvc/syslog.h"
117	#include "kernel_cfg.h"
118	#include "sample1.h"
119
120	/*
121	* T[rXR[ÌG[ÌOoÍ
122	*/
123	Inline void
124	svc_perror(const char file, int_t line, const char expr, ER ercd)
125	{
126	if (ercd < 0) {
127	t_perror(LOG_ERROR, file, line, expr, ercd);
128	}
129	}
130
131	#define SVC_PERROR(expr) svc_perror(__FILE__, __LINE__, #expr, (expr))
132
133	/*
134	* ÀsÀs³êé^XNÖÌbZ[WÌæ
135	*/
136	char_t message[3];
137
138	/*
139	* [vñ
140	*/
141	ulong_t task_loop; /* ^XNàÅÌ[vñ */
142	ulong_t tex_loop; /* áO[`àÅÌ[vñ */
143
144	/*
145	* ÀsÀs³êé^XN
146	*/
147	void task(intptr_t exinf)
148	{
149	volatile ulong_t i;
150	int_t n = 0;
151	int_t tskno = (int_t) exinf;
152	const char graph[] = { "\| ", " + ", " " };
153	char_t c;
154	#ifdef TOPPERS_SUPPORT_OVRHDR
155	T_ROVR pk_rovr;
156	#endif /* TOPPERS_SUPPORT_OVRHDR */
157
158	SVC_PERROR(ena_tex());
159	while (1) {
160	#ifdef TOPPERS_SUPPORT_OVRHDR
161	SVC_PERROR(ref_ovr(TSK_SELF, &pk_rovr));
162	if ((pk_rovr.ovrstat & TOVR_STA) != 0) {
163	syslog(LOG_NOTICE, "task%d is running (%03d). %s [%ld]",
164	tskno, ++n, graph[tskno-1], pk_rovr.leftotm);
165	}
166	else {
167	syslog(LOG_NOTICE, "task%d is running (%03d). %s",
168	tskno, ++n, graph[tskno-1]);
169	}
170	#else /* TOPPERS_SUPPORT_OVRHDR */
171	syslog(LOG_NOTICE, "task%d is running (%03d). %s",
172	tskno, ++n, graph[tskno-1]);
173	#endif /* TOPPERS_SUPPORT_OVRHDR */
174	for (i = 0; i < task_loop; i++);
175	c = message[tskno-1];
176	message[tskno-1] = 0;
177	switch (c) {
178	case 'e':
179	syslog(LOG_INFO, "#%d#ext_tsk()", tskno);
180	SVC_PERROR(ext_tsk());
181	assert(0);
182	case 's':
183	syslog(LOG_INFO, "#%d#slp_tsk()", tskno);
184	SVC_PERROR(slp_tsk());
185	break;
186	case 'S':
187	syslog(LOG_INFO, "#%d#tslp_tsk(10000)", tskno);
188	SVC_PERROR(tslp_tsk(10000));
189	break;
190	case 'd':
191	syslog(LOG_INFO, "#%d#dly_tsk(10000)", tskno);
192	SVC_PERROR(dly_tsk(10000));
193	break;
194	case 'y':
195	syslog(LOG_INFO, "#%d#dis_tex()", tskno);
196	SVC_PERROR(dis_tex());
197	break;
198	case 'Y':
199	syslog(LOG_INFO, "#%d#ena_tex()", tskno);
200	SVC_PERROR(ena_tex());
201	break;
202	#ifdef CPUEXC1
203	case 'z':
204	syslog(LOG_NOTICE, "#%d#raise CPU exception", tskno);
205	RAISE_CPU_EXCEPTION;
206	break;
207	case 'Z':
208	SVC_PERROR(loc_cpu());
209	syslog(LOG_NOTICE, "#%d#raise CPU exception", tskno);
210	RAISE_CPU_EXCEPTION;
211	SVC_PERROR(unl_cpu());
212	break;
213	#endif /* CPUEXC1 */
214	default:
215	break;
216	}
217	}
218	}
219
220	/*
221	* ÀsµÄÀs³êé^XNpÌ^XNáO[`
222	*/
223	void tex_routine(TEXPTN texptn, intptr_t exinf)
224	{
225	volatile ulong_t i;
226	int_t tskno = (int_t) exinf;
227
228	syslog(LOG_NOTICE, "task%d receives exception 0x%04x.", tskno, texptn);
229	for (i = 0; i < tex_loop; i++);
230
231	if ((texptn & 0x8000U) != 0U) {
232	syslog(LOG_INFO, "#%d#ext_tsk()", tskno);
233	SVC_PERROR(ext_tsk());
234	assert(0);
235	}
236	}
237
238	/*
239	* CPUáOnh
240	*/
241	#ifdef CPUEXC1
242
243	void
244	cpuexc_handler(void *p_excinf)
245	{
246	ID tskid;
247
248	syslog(LOG_NOTICE, "CPU exception handler (p_excinf = %08p).", p_excinf);
249	if (sns_ctx() != true) {
250	syslog(LOG_WARNING,
251	"sns_ctx() is not true in CPU exception handler.");
252	}
253	if (sns_dpn() != true) {
254	syslog(LOG_WARNING,
255	"sns_dpn() is not true in CPU exception handler.");
256	}
257	syslog(LOG_INFO, "sns_loc = %d sns_dsp = %d sns_tex = %d",
258	sns_loc(), sns_dsp(), sns_tex());
259	syslog(LOG_INFO, "xsns_dpn = %d xsns_xpn = %d",
260	xsns_dpn(p_excinf), xsns_xpn(p_excinf));
261
262	if (xsns_xpn(p_excinf)) {
263	syslog(LOG_NOTICE, "Sample program ends with exception.");
264	SVC_PERROR(ext_ker());
265	assert(0);
266	}
267
268	SVC_PERROR(iget_tid(&tskid));
269	SVC_PERROR(iras_tex(tskid, 0x8000U));
270	}
271
272	#endif /* CPUEXC1 */
273
274	/*
275	* üúnh
276	*
277	* HIGH_PRIORITYCMID_PRIORITYCLOW_PRIORITY ÌeDæxÌfBL
278	[
279	* ðñ]³¹éD
280	*/
281	void cyclic_handler(intptr_t exinf)
282	{
283	SVC_PERROR(irot_rdq(HIGH_PRIORITY));
284	SVC_PERROR(irot_rdq(MID_PRIORITY));
285	SVC_PERROR(irot_rdq(LOW_PRIORITY));
286	}
287
288	/*
289	* A[nh
290	*
291	* HIGH_PRIORITYCMID_PRIORITYCLOW_PRIORITY ÌeDæxÌfBL
292	[
293	* ðñ]³¹éD
294	*/
295	void alarm_handler(intptr_t exinf)
296	{
297	SVC_PERROR(irot_rdq(HIGH_PRIORITY));
298	SVC_PERROR(irot_rdq(MID_PRIORITY));
299	SVC_PERROR(irot_rdq(LOW_PRIORITY));
300	}
301
302	/*
303	* I[onh
304	*/
305	#ifdef TOPPERS_SUPPORT_OVRHDR
306
307	void
308	overrun_handler(ID tskid, intptr_t exinf)
309	{
310	int_t tskno = (int_t) exinf;
311
312	syslog(LOG_NOTICE, "Overrun handler for task%d.", tskno);
313	syslog(LOG_INFO, "#iras_tex(%d, 0x0004U)", tskno);
314	SVC_PERROR(iras_tex(tskid, 0x0004U));
315	}
316
317	#endif /* TOPPERS_SUPPORT_OVRHDR */
318
319	/*
320	* C^XN
321	*/
322	void main_task(intptr_t exinf)
323	{
324	char_t c;
325	ID tskid = TASK1;
326	int_t tskno = 1;
327	ER_UINT ercd;
328	PRI tskpri;
329	#ifndef TASK_LOOP
330	volatile ulong_t i;
331	SYSTIM stime1, stime2;
332	#endif /* TASK_LOOP */
333	#ifdef TOPPERS_SUPPORT_GET_UTM
334	SYSUTM utime1, utime2;
335	#endif /* TOPPERS_SUPPORT_GET_UTM */
336
337	SVC_PERROR(syslog_msk_log(LOG_UPTO(LOG_INFO), LOG_UPTO(LOG_EMERG)));
338	syslog(LOG_NOTICE, "Sample program starts (exinf = %d).", (int_t) exinf);
339
340	/*
341	* VA\|[gÌú»
342	*
343	* VXeO^XNÆ¯¶VA\|[gðg¤êÈÇCVA
344	* \|[gªI[vÏÝÌêÉÍ±±ÅE_OBJG[ÉÈéªCxáÍ
345	* È¢D
346	*/
347	ercd = serial_opn_por(TASK_PORTID);
348	if (ercd < 0 && MERCD(ercd) != E_OBJ) {
349	syslog(LOG_ERROR, "%s (%d) reported by `serial_opn_por'.",
350	itron_strerror(ercd), SERCD(ercd));
351	}
352	SVC_PERROR(serial_ctl_por(TASK_PORTID,
353	(IOCTL_CRLF \| IOCTL_FCSND \| IOCTL_FCRCV)));
354
355	/*
356	* [vñÌÝè
357	*
358	* TASK_LOOPª}Nè`³êÄ¢éêCªè¹¸ÉCTASK_LOOPÉè
359	* `³ê½lðC^XNàÅÌ[vñÆ·éD
360	*
361	* MEASURE_TWICEª}Nè`³êÄ¢éêC1ñÚÌªèÊðÌÄ
362	* ÄC2ñÚÌªèÊðg¤D1ñÚÌªèÍ·ßÌÔªoé½ßD
363	*/
364	#ifdef TASK_LOOP
365	task_loop = TASK_LOOP;
366	#else /* TASK_LOOP */
367
368	#ifdef MEASURE_TWICE
369	task_loop = LOOP_REF;
370	SVC_PERROR(get_tim(&stime1));
371	for (i = 0; i < task_loop; i++);
372	SVC_PERROR(get_tim(&stime2));
373	#endif /* MEASURE_TWICE */
374
375	task_loop = LOOP_REF;
376	SVC_PERROR(get_tim(&stime1));
377	for (i = 0; i < task_loop; i++);
378	SVC_PERROR(get_tim(&stime2));
379	task_loop = LOOP_REF * 400UL / (stime2 - stime1);
380
381	#endif /* TASK_LOOP */
382	tex_loop = task_loop / 5;
383
384	/*
385	* ^XNÌN®
386	*/
387	SVC_PERROR(act_tsk(TASK1));
388	SVC_PERROR(act_tsk(TASK2));
389	SVC_PERROR(act_tsk(TASK3));
390
391	/*
392	* C[v
393	*/
394	do {
395	SVC_PERROR(serial_rea_dat(TASK_PORTID, &c, 1));
396	switch (c) {
397	case 'e':
398	case 's':
399	case 'S':
400	case 'd':
401	case 'y':
402	case 'Y':
403	case 'z':
404	case 'Z':
405	message[tskno-1] = c;
406	break;
407	case '1':
408	tskno = 1;
409	tskid = TASK1;
410	break;
411	case '2':
412	tskno = 2;
413	tskid = TASK2;
414	break;
415	case '3':
416	tskno = 3;
417	tskid = TASK3;
418	break;
419	case 'a':
420	syslog(LOG_INFO, "#act_tsk(%d)", tskno);
421	SVC_PERROR(act_tsk(tskid));
422	break;
423	case 'A':
424	syslog(LOG_INFO, "#can_act(%d)", tskno);
425	SVC_PERROR(ercd = can_act(tskid));
426	if (ercd >= 0) {
427	syslog(LOG_NOTICE, "can_act(%d) returns %d", tskno, ercd);
428	}
429	break;
430	case 't':
431	syslog(LOG_INFO, "#ter_tsk(%d)", tskno);
432	SVC_PERROR(ter_tsk(tskid));
433	break;
434	case '>':
435	syslog(LOG_INFO, "#chg_pri(%d, HIGH_PRIORITY)", tskno);
436	SVC_PERROR(chg_pri(tskid, HIGH_PRIORITY));
437	break;
438	case '=':
439	syslog(LOG_INFO, "#chg_pri(%d, MID_PRIORITY)", tskno);
440	SVC_PERROR(chg_pri(tskid, MID_PRIORITY));
441	break;
442	case '<':
443	syslog(LOG_INFO, "#chg_pri(%d, LOW_PRIORITY)", tskno);
444	SVC_PERROR(chg_pri(tskid, LOW_PRIORITY));
445	break;
446	case 'G':
447	syslog(LOG_INFO, "#get_pri(%d, &tskpri)", tskno);
448	SVC_PERROR(ercd = get_pri(tskid, &tskpri));
449	if (ercd >= 0) {
450	syslog(LOG_NOTICE, "priority of task %d is %d", tskno, tskpri);
451	}
452	break;
453	case 'w':
454	syslog(LOG_INFO, "#wup_tsk(%d)", tskno);
455	SVC_PERROR(wup_tsk(tskid));
456	break;
457	case 'W':
458	syslog(LOG_INFO, "#can_wup(%d)", tskno);
459	SVC_PERROR(ercd = can_wup(tskid));
460	if (ercd >= 0) {
461	syslog(LOG_NOTICE, "can_wup(%d) returns %d", tskno, ercd);
462	}
463	break;
464	case 'l':
465	syslog(LOG_INFO, "#rel_wai(%d)", tskno);
466	SVC_PERROR(rel_wai(tskid));
467	break;
468	case 'u':
469	syslog(LOG_INFO, "#sus_tsk(%d)", tskno);
470	SVC_PERROR(sus_tsk(tskid));
471	break;
472	case 'm':
473	syslog(LOG_INFO, "#rsm_tsk(%d)", tskno);
474	SVC_PERROR(rsm_tsk(tskid));
475	break;
476	case 'x':
477	syslog(LOG_INFO, "#ras_tex(%d, 0x0001U)", tskno);
478	SVC_PERROR(ras_tex(tskid, 0x0001U));
479	break;
480	case 'X':
481	syslog(LOG_INFO, "#ras_tex(%d, 0x0002U)", tskno);
482	SVC_PERROR(ras_tex(tskid, 0x0002U));
483	break;
484	case 'r':
485	syslog(LOG_INFO, "#rot_rdq(three priorities)");
486	SVC_PERROR(rot_rdq(HIGH_PRIORITY));
487	SVC_PERROR(rot_rdq(MID_PRIORITY));
488	SVC_PERROR(rot_rdq(LOW_PRIORITY));
489	break;
490	case 'c':
491	syslog(LOG_INFO, "#sta_cyc(1)");
492	SVC_PERROR(sta_cyc(CYCHDR1));
493	break;
494	case 'C':
495	syslog(LOG_INFO, "#stp_cyc(1)");
496	SVC_PERROR(stp_cyc(CYCHDR1));
497	break;
498	case 'b':
499	syslog(LOG_INFO, "#sta_alm(1, 5000)");
500	SVC_PERROR(sta_alm(ALMHDR1, 5000));
501	break;
502	case 'B':
503	syslog(LOG_INFO, "#stp_alm(1)");
504	SVC_PERROR(stp_alm(ALMHDR1));
505	break;
506
507	case 'V':
508	#ifdef TOPPERS_SUPPORT_GET_UTM
509	SVC_PERROR(get_utm(&utime1));
510	SVC_PERROR(get_utm(&utime2));
511	syslog(LOG_NOTICE, "utime1 = %ld, utime2 = %ld",
512	(ulong_t) utime1, (ulong_t) utime2);
513	#else /* TOPPERS_SUPPORT_GET_UTM */
514	syslog(LOG_NOTICE, "get_utm is not supported.");
515	#endif /* TOPPERS_SUPPORT_GET_UTM */
516	break;
517
518	case 'o':
519	#ifdef TOPPERS_SUPPORT_OVRHDR
520	syslog(LOG_INFO, "#sta_ovr(%d, 2000000)", tskno);
521	SVC_PERROR(sta_ovr(tskid, 2000000));
522	#else /* TOPPERS_SUPPORT_OVRHDR */
523	syslog(LOG_NOTICE, "sta_ovr is not supported.");
524	#endif /* TOPPERS_SUPPORT_OVRHDR */
525	break;
526	case 'O':
527	#ifdef TOPPERS_SUPPORT_OVRHDR
528	syslog(LOG_INFO, "#stp_ovr(%d)", tskno);
529	SVC_PERROR(stp_ovr(tskid));
530	#else /* TOPPERS_SUPPORT_OVRHDR */
531	syslog(LOG_NOTICE, "stp_ovr is not supported.");
532	#endif /* TOPPERS_SUPPORT_OVRHDR */
533	break;
534
535	case 'v':
536	SVC_PERROR(syslog_msk_log(LOG_UPTO(LOG_INFO),
537	LOG_UPTO(LOG_EMERG)));
538	break;
539	case 'q':
540	SVC_PERROR(syslog_msk_log(LOG_UPTO(LOG_NOTICE),
541	LOG_UPTO(LOG_EMERG)));
542	break;
543
544	#ifdef BIT_KERNEL
545	case ' ':
546	SVC_PERROR(loc_cpu());
547	{
548	extern ER bit_kernel(void);
549
550	SVC_PERROR(ercd = bit_kernel());
551	if (ercd >= 0) {
552	syslog(LOG_NOTICE, "bit_kernel passed.");
553	}
554	}
555	SVC_PERROR(unl_cpu());
556	break;
557	#endif /* BIT_KERNEL */
558
559	default:
560	break;
561	}
562	} while (c != '\003' && c != 'Q');
563
564	syslog(LOG_NOTICE, "Sample program ends.");
565	SVC_PERROR(ext_ker());
566	assert(0);
567	}

Note: See TracBrowser for help on using the repository browser.

Context Navigation

source: asp_ewarm/asp-1.7.0/extension/ovrhdr/sample/sample1.c@ 61

Download in other formats: