Context Navigation

← Previous Revision
Latest Revision
Next Revision →
Normal
Revision Log

source: ssp_qb_r5f100le_cs/trunk/kernel/task_manage.c@ 93

Last change on this file since 93 was 93, checked in by nmir-saito, 9 years ago
add Combined package of SSP kernel for QB-R5F100LE-TB(RL78 processor)
File size: 3.8 KB

Rev	Line
[93]	1	/*
	2	* TOPPERS/SSP Kernel
	3	* Smallest Set Profile Kernel
	4	*
	5	* Copyright (C) 2000-2003 by Embedded and Real-Time Systems Laboratory
	6	* Toyohashi Univ. of Technology, JAPAN
	7	* Copyright (C) 2005-2008 by Embedded and Real-Time Systems Laboratory
	8	* Graduate School of Information Science, Nagoya Univ., JAPAN
	9	* Copyright (C) 2010 by Naoki Saito
	10	* Nagoya Municipal Industrial Research Institute, JAPAN
	11	* Copyright (C) 2011 by Meika Sugimoto
	12	*
	13	* ãLì ÒÍCÈºÌ (1)`(4) Ìðð½·êÉÀèC{\tgEF
	14	* Ai{\tgEFAðüÏµ½àÌðÜÞDÈº¯¶jðgpE¡»EüÏE
	15	* ÄzziÈºCpÆÄÔj·é±Æð³Åø·éD
	16	* (1) {\tgEFAð\[XR[hÌ`Åp·éêÉÍCãLÌì
	17	* \¦C±Ìpð¨æÑºLÌ³ÛØKèªC»ÌÜÜÌ`Å\[X
	18	* R[hÉÜÜêÄ¢é±ÆD
	19	* (2) {\tgEFAðCCu`®ÈÇC¼Ì\tgEFAJÉgp
	20	* Å«é`ÅÄzz·éêÉÍCÄzzÉº¤hL
	21	gipÒ}
	22	* j
	23	AÈÇjÉCãLÌì \¦C±Ìpð¨æÑºLÌ³Û
	24	* ØKèðfÚ·é±ÆD
	25	* (3) {\tgEFAðC@íÉgÝÞÈÇC¼Ì\tgEFAJÉgp
	26	* Å«È¢`ÅÄzz·éêÉÍCÌ¢¸ê©Ìðð½·±ÆD
	27	* (a) ÄzzÉº¤hL
	28	gipÒ}j
	29	AÈÇjÉCãLÌì
	30	* \¦C±Ìpð¨æÑºLÌ³ÛØKèðfÚ·é±ÆD
	31	* (b) ÄzzÌ`ÔðCÊÉèßéû@ÉæÁÄCTOPPERSvWFNgÉñ
	32	* ·é±ÆD
	33	* (4) {\tgEFAÌpÉæè¼ÚIÜ½ÍÔÚIÉ¶¶é¢©Èé¹Q
	34	* ©çàCãLì Ò¨æÑTOPPERSvWFNgðÆÓ·é±ÆDÜ½C
	35	* {\tgEFAÌ[UÜ½ÍGh[U©çÌ¢©ÈéRÉîÃ
	36	* ¿©çàCãLì Ò¨æÑTOPPERSvWFNgðÆÓ·é±ÆD
	37	*
	38	* {\tgEFAÍC³ÛØÅñ³êÄ¢éàÌÅ éDãLì Ò¨æ
	39	* ÑTOPPERSvWFNgÍC{\tgEFAÉÖµÄCÁèÌgpÚIÉÎ·
	40	* éK«àÜßÄC¢©ÈéÛØàsíÈ¢DÜ½C{\tgEFAÌp
	41	* Éæè¼ÚIÜ½ÍÔÚIÉ¶¶½¢©Èé¹QÉÖµÄàC»ÌÓCð
	42	* íÈ¢D
	43	*
	44	*/
	45
	46	/*
	47	* ^XNÇ@\
	48	*/
	49
	50	#include "kernel_impl.h"
	51	#include "check.h"
	52	#include "task.h"
	53
	54	/*
	55	* g[XO}NÌftHgè`
	56	*/
	57	#ifndef LOG_ACT_TSK_ENTER
	58	#define LOG_ACT_TSK_ENTER(tskid)
	59	#endif /* LOG_ACT_TSK_ENTER */
	60
	61	#ifndef LOG_ACT_TSK_LEAVE
	62	#define LOG_ACT_TSK_LEAVE(ercd)
	63	#endif /* LOG_ACT_TSK_LEAVE */
	64
	65	#ifndef LOG_IACT_TSK_ENTER
	66	#define LOG_IACT_TSK_ENTER(tskid)
	67	#endif /* LOG_IACT_TSK_ENTER */
	68
	69	#ifndef LOG_IACT_TSK_LEAVE
	70	#define LOG_IACT_TSK_LEAVE(ercd)
	71	#endif /* LOG_IACT_TSK_LEAVE */
	72
	73
	74	/*
	75	* ^XNÌN®
	76	*/
	77	#ifdef TOPPERS_act_tsk
	78
	79	ER
	80	act_tsk(ID tskid)
	81	{
	82	ER ercd;
	83	uint_t itskpri;
	84
	85	LOG_ACT_TSK_ENTER(tskid);
	86	CHECK_TSKCTX_UNL();
	87	CHECK_TSKID_SELF(tskid);
	88
	89	itskpri = get_ipri_self(tskid);
	90
	91	t_lock_cpu();
	92	if (test_dormant(itskpri)) {
	93	if(make_active(itskpri)) {
	94	run_task(itskpri);
	95	}
	96	ercd = E_OK;
	97	}
	98	else if(!actque_test(itskpri)) {
	99	actque_set(itskpri);
	100	ercd = E_OK;
	101	}
	102	else {
	103	ercd = E_QOVR;
	104	}
	105	t_unlock_cpu();
	106
	107	error_exit:
	108	LOG_ACT_TSK_LEAVE(ercd);
	109	return(ercd);
	110	}
	111
	112	#endif /* TOPPERS_act_tsk */
	113
	114	/*
	115	* ^XNÌN®iñ^XNReLXgpj
	116	*/
	117
	118	#ifdef TOPPERS_iact_tsk
	119
	120	ER
	121	iact_tsk(ID tskid)
	122	{
	123	ER ercd;
	124	uint_t itskpri;
	125
	126	LOG_IACT_TSK_ENTER(tskid);
	127	CHECK_INTCTX_UNL();
	128	CHECK_TSKID(tskid);
	129	itskpri = get_ipri(tskid);
	130
	131	i_lock_cpu();
	132	if (test_dormant(itskpri)) {
	133	if(make_active(itskpri)) {
	134	reqflg = true;
	135	}
	136	ercd = E_OK;
	137	}
	138	else if(!actque_test(itskpri)) {
	139	actque_set(itskpri);
	140	ercd = E_OK;
	141	}
	142	else {
	143	ercd = E_QOVR;
	144	}
	145	i_unlock_cpu();
	146
	147	error_exit:
	148	LOG_IACT_TSK_LEAVE(ercd);
	149	return(ercd);
	150	}
	151
	152	#endif /* TOPPERS_iact_tsk */

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

Download in other formats: