/ray/src/vm/instruction/storage.cc

Go to the documentation of this file.

/*
 * vm/instruction/storage.cc
 * 
 * VM instruction (program) storage. 
 * 
 * Copyright (c) 2004 by Wolfgang Wieser ] wwieser (a) gmx <*> de [ 
 * 
 * This file may be distributed and/or modified under the terms of the 
 * GNU General Public License version 2 as published by the Free Software 
 * Foundation. (See COPYING.GPL for details.)
 * 
 * This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
 * WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
 * 
 */

#include "storage.h"


namespace VM
{

void InstructionStorage::_ReallocStore(PrgAdr needlen)
{
    Assert(!(prg_len&1));    // program len must be even
    Assert(!(prg_asize&1));  // allocated size as well
    
    Assert(prg_asize<needlen);
    
    // Re-allocate. 
    // We will not cycle this loop very often. 
    while(prg_len>prg_asize)
    {
        if(prg_asize<256)  prg_asize=256;
        else if(prg_asize<16384)  prg_asize*=2;
        else prg_asize+=16384;
    }
    prg=REALLOC(prg,prg_asize);
}


void InstructionStorage::TightenSize()
{
    if(prg_asize>prg_len)
    {
        prg_asize=prg_len;
        prg=REALLOC(prg,prg_asize);
    }
}


InstructionStorage::InstructionStorage(PrgAdr prealloc_size)
{
    prg_len=0;
    prg_asize=prealloc_size;
    prg=ALLOC<char>(prg_asize);  // NULL for prg_size=0. 
}

InstructionStorage::~InstructionStorage()
{
    prg=FREE(prg);
    prg_asize=0;
    prg_len=0;
}

}  // end of namespace VM

---