QP/C: qf_gc.c Source File

00001 /*****************************************************************************
00002 * Product: QF/C
00003 * Last Updated for Version: 4.0.00
00004 * Date of the Last Update:  Apr 07, 2008
00005 *
00006 *                    Q u a n t u m     L e a P s
00007 *                    ---------------------------
00008 *                    innovating embedded systems
00009 *
00010 * Copyright (C) 2002-2008 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_gc)
00032 
00033 
00039 /*..........................................................................*/
00040 void QF_gc(QEvent const *e) {
00041     if (e->dynamic_ != (uint8_t)0) {              /* is it a dynamic event? */
00042         QF_INT_LOCK_KEY_
00043         QF_INT_LOCK_();
00044 
00045         if ((e->dynamic_ & 0x3F) > (uint8_t)1) {/* isn't this the last ref? */
00046 
00047             /*lint -e1773                        Attempt to cast away const */
00048             --((QEvent *)e)->dynamic_;   /* decrement the reference counter */
00049                    /* NOTE: cast the 'const' away, which is legitimate because
00050                    * it's a pool event
00051                    */
00052 
00053             QS_BEGIN_NOLOCK_(QS_QF_GC_ATTEMPT, (void *)0, (void *)0)
00054                 QS_TIME_();                                    /* timestamp */
00055                 QS_SIG_(e->sig);                 /* the signal of the event */
00056                 QS_U8_(e->dynamic_); /* the dynamic attributes of the event */
00057             QS_END_NOLOCK_()
00058 
00059             QF_INT_UNLOCK_();
00060         }
00061         else {      /* this is the last reference to this event, recycle it */
00062                                                       /* cannot wrap around */
00063             uint8_t idx = (uint8_t)((e->dynamic_ >> 6) - 1);
00064 
00065             QS_BEGIN_NOLOCK_(QS_QF_GC, (void *)0, (void *)0)
00066                 QS_TIME_();                                    /* timestamp */
00067                 QS_SIG_(e->sig);                 /* the signal of the event */
00068                 QS_U8_(e->dynamic_); /* the dynamic attributes of the event */
00069             QS_END_NOLOCK_()
00070 
00071             QF_INT_UNLOCK_();
00072 
00073             Q_ASSERT(idx < QF_maxPool_);
00074 
00075             /*lint -e1773                        Attempt to cast away const */
00076             QF_EPOOL_PUT_(QF_pool_[idx], (QEvent *)e);/* cast 'const' away, */
00077                           /* which is legitimate, because it's a pool event */
00078         }
00079     }
00080 }