(none)

diff --git a/kernel/include/core/toq.h b/kernel/include/core/toq.h
index bba9f26..73791fa 100755 (executable)
--- a/kernel/include/core/toq.h
+++ b/kernel/include/core/toq.h
@@ -33,6 +33,10 @@ typedef struct _kernel_t_toqcb
        _KERNEL_TCB_T_RELTIM     toqobj_diftim          _KERNEL_TCB_TBITDEF_RELTIM;
 
 
+#define _KERNEL_CRE_TOQOBJ(tcb)                                        do { (tcb)->toqobj_prev = _KERNEL_TSKHDL_NULL; } while (0)
+#define _KERNEL_DEL_TOQOBJ(tcb)                                        do { } while (0)
+
+
 #define _KERNEL_TSK_SET_TOQNEXT(tcb, x)                        do { (tcb)->toqobj_next = (x); } while (0)
 #define _KERNEL_TSK_GET_TOQNEXT(tcb)                   ((tcb)->toqobj_next)
 #define _KERNEL_TSK_SET_TOQPREV(tcb, x)                        do { (tcb)->toqobj_prev = (x); } while (0)

diff --git a/kernel/include/object/tskobj.h b/kernel/include/object/tskobj.h
index f036526..ff3aee9 100755 (executable)
--- a/kernel/include/object/tskobj.h
+++ b/kernel/include/object/tskobj.h
@@ -915,6 +915,16 @@ extern  _KERNEL_T_TCB                                      *_kernel_tcb_tbl[];                                                                             /**< %jp{タスクコン
 #define _KERNEL_TSK_GET_QUE(tcb)                               _kernel_get_que(tcb)
 #endif
 
+/* toqobj */
+#if _KERNEL_TCB_QUEOBJ
+#define _KERNEL_TSK_CRE_TOQOBJ(tcb)                            _KERNEL_CRE_TOQOBJ(tcb)
+#define _KERNEL_TSK_DEL_TOQOBJ(tcb)                            _KERNEL_DEL_TOQOBJ(tcb)
+#else
+#define _KERNEL_TSK_CRE_TOQOBJ(tcb)                            do { } while(0)
+#define _KERNEL_TSK_DEL_TOQOBJ(tcb)                            do { } while(0)
+#endif
+
+
 /* tskstat */
 #if _KERNEL_TCB_TSKSTAT
 #define _KERNEL_TSK_SET_TSKSTAT(tcb, x)                        do { (tcb)->tskstat = (_KERNEL_TCB_T_TSKSTAT)(x); } while(0)

diff --git a/kernel/source/object/tsk/kcre_tsk.c b/kernel/source/object/tsk/kcre_tsk.c
index e9dac83..a95c011 100755 (executable)
--- a/kernel/source/object/tsk/kcre_tsk.c
+++ b/kernel/source/object/tsk/kcre_tsk.c
@@ -127,6 +127,7 @@ ER _kernel_cre_tsk(ID tskid, const T_CTSK *pk_ctsk)
        _KERNEL_TSK_SET_TSKID(tcb_ro, tskid);
        _KERNEL_TSK_SET_TEXATR(tcb_ro, TA_HLNG);
        _KERNEL_TSK_SET_TEXRTN(tcb_ro, NULL);
+       _KERNEL_TSK_CRE_TOQOBJ(tcb);
        _KERNEL_TSK_SET_TSKSTAT(tcb, _KERNEL_TTS_DMT);
        _KERNEL_TSK_SET_MTXHDL(tcb, _KERNEL_MTXHDL_NULL);
        _KERNEL_TSK_SET_TEXSTAT(tcb, _KERNEL_TXS_DIS);