---

allocator.cpp

/*
 *                         Sun Public License Notice
 *
 * The contents of this file are subject to the Sun Public License
 * Version 1.0 (the "License"); you may not use this file except
 * in compliance with the License. A copy of the License is available
 * at http://www.sun.com/
 *
 * The Original Code is the Java Profiler module.  The Initial Developers
 * of the Original Code are Jan Stola, Pavel Vacha, Michal Pise, Petr Luner,
 * Lukas Petru and Marek Przeczek.
 *
 * Portions created by Jan Stola are Copyright (C) 2000-2001.
 * All Rights Reserved.
 *
 * Portions created by Pavel Vacha are Copyright (C) 2000-2001.
 * All Rights Reserved.
 *
 * Portions created by Michal Pise are Copyright (C) 2000-2001.
 * All Rights Reserved.
 *
 * Portions created by Petr Luner are Copyright (C) 2000-2001.
 * All Rights Reserved.
 *
 * Portions created by Lukas Petru are Copyright (C) 2000-2001.
 * All Rights Reserved.
 *
 * Portions created by Marek Przeczek are Copyright (C) 2000-2001.
 * All Rights Reserved.
 *
 * Contributors: Jan Stola, Pavel Vacha, Michal Pise, Petr Luner,
 *               Lukas Petru and Marek Przeczek.
 */

#ifdef USE_ALLOCATOR

#include "../allocator/allocator.h"
#include "../prof/prof.h"

void* Allocator::get( size_t unitSize) {

        if( !_unitSize) _unitSize = unitSize;

        if( !_freeUnits) allocNewBlock();

        void* unit = _freeUnits;
        _freeUnits = *(void**)_freeUnits;
                
        return unit;
}

void Allocator::put( void* unit) {

        *(void**)unit = _freeUnits;
        _freeUnits = unit;
}

void Allocator::allocNewBlock() {

        size_t len = _unitSize*NUM_UNITS_IN_BLOCK+sizeof( void*);

        char* block = ::new char[len];

        *(void**)(block+len-sizeof( void*)) = _blocks;
        _blocks = block;

        char* unit = block;

        for( int i = 0; i < NUM_UNITS_IN_BLOCK; i++, unit += _unitSize) {

                *(void**)unit = _freeUnits;
                _freeUnits = unit;
        }
}

Allocator::~Allocator() {

        size_t len = _unitSize*NUM_UNITS_IN_BLOCK+sizeof( void*);

        void* del;
        while( del = _blocks) {

                _blocks = *(void**)((char*)_blocks+len-sizeof( void*));
                ::delete[] (char*)del;
        }
}

#endif

---