DCorpsePointer::DCorpsePointer (AActor *ptr)
: DThinker (STAT_CORPSEPOINTER), Corpse (ptr)
{
    Count = 0;

    // Thinkers are added to the end of their respective lists, so
    // the first thinker in the list is the oldest one.
    TThinkerIterator<DCorpsePointer> iterator (STAT_CORPSEPOINTER);
    DCorpsePointer *first = iterator.Next ();

    if (first != this)
    {
        if (first->Count >= (uint32_t)sv_corpsequeuesize)
        {
            DCorpsePointer *next = iterator.Next ();
            first->Destroy ();
            first = next;
        }
    }
    ++first->Count;
}