|
QP/C
|
00001 /***************************************************************************** 00002 * Product: QF/C 00003 * Last Updated for Version: 4.4.00 00004 * Date of the Last Update: Jan 04, 2012 00005 * 00006 * Q u a n t u m L e a P s 00007 * --------------------------- 00008 * innovating embedded systems 00009 * 00010 * Copyright (C) 2002-2012 Quantum Leaps, LLC. All rights reserved. 00011 * 00012 * This software may be distributed and modified under the terms of the GNU 00013 * General Public License version 2 (GPL) as published by the Free Software 00014 * Foundation and appearing in the file GPL.TXT included in the packaging of 00015 * this file. Please note that GPL Section 2[b] requires that all works based 00016 * on this software must also be made publicly available under the terms of 00017 * the GPL ("Copyleft"). 00018 * 00019 * Alternatively, this software may be distributed and modified under the 00020 * terms of Quantum Leaps commercial licenses, which expressly supersede 00021 * the GPL and are specifically designed for licensees interested in 00022 * retaining the proprietary status of their code. 00023 * 00024 * Contact information: 00025 * Quantum Leaps Web site: http://www.quantum-leaps.com 00026 * e-mail: info@quantum-leaps.com 00027 *****************************************************************************/ 00028 #include "qf_pkg.h" 00029 #include "qassert.h" 00030 00031 Q_DEFINE_THIS_MODULE("qf_act") 00032 00033 00040 /* public objects ----------------------------------------------------------*/ 00041 QActive *QF_active_[QF_MAX_ACTIVE + 1]; /* to be used by QF ports only */ 00042 uint8_t QF_intLockNest_; /* interrupt-lock nesting level */ 00043 00044 /*..........................................................................*/ 00045 char_t const Q_ROM * Q_ROM_VAR QF_getVersion(void) { 00046 static char_t const Q_ROM Q_ROM_VAR version[] = { 00047 (char_t)((uint8_t)((QP_VERSION >> 12) & 0xFU) + (uint8_t)'0'), 00048 (char_t)'.', 00049 (char_t)((uint8_t)((QP_VERSION >> 8) & 0xFU) + (uint8_t)'0'), 00050 (char_t)'.', 00051 (char_t)((uint8_t)((QP_VERSION >> 4) & 0xFU) + (uint8_t)'0'), 00052 (char_t)((uint8_t)(QP_VERSION & 0xFU) + (uint8_t)'0'), 00053 (char_t)'\0' 00054 }; 00055 return version; 00056 } 00057 /*..........................................................................*/ 00058 void QF_add_(QActive *a) { 00059 uint8_t p = a->prio; 00060 QF_CRIT_STAT_ 00061 00062 Q_REQUIRE(((uint8_t)0 < p) && (p <= (uint8_t)QF_MAX_ACTIVE) 00063 && (QF_active_[p] == (QActive *)0)); 00064 00065 QF_CRIT_ENTRY_(); 00066 00067 QF_active_[p] = a; /* registger the active object at this priority */ 00068 00069 QS_BEGIN_NOCRIT_(QS_QF_ACTIVE_ADD, QS_aoObj_, a) 00070 QS_TIME_(); /* timestamp */ 00071 QS_OBJ_(a); /* the active object */ 00072 QS_U8_(p); /* the priority of the active object */ 00073 QS_END_NOCRIT_() 00074 00075 QF_CRIT_EXIT_(); 00076 } 00077 /*..........................................................................*/ 00078 void QF_remove_(QActive const *a) { 00079 uint8_t p = a->prio; 00080 QF_CRIT_STAT_ 00081 00082 Q_REQUIRE(((uint8_t)0 < p) && (p <= (uint8_t)QF_MAX_ACTIVE) 00083 && (QF_active_[p] == a)); 00084 00085 QF_CRIT_ENTRY_(); 00086 00087 QF_active_[p] = (QActive *)0; /* free-up the priority level */ 00088 00089 QS_BEGIN_NOCRIT_(QS_QF_ACTIVE_REMOVE, QS_aoObj_, a) 00090 QS_TIME_(); /* timestamp */ 00091 QS_OBJ_(a); /* the active object */ 00092 QS_U8_(p); /* the priority of the active object */ 00093 QS_END_NOCRIT_() 00094 00095 QF_CRIT_EXIT_(); 00096 }
1.7.6.1