/* vim: set ts=4 sw=4 tw=99 et:

 *

 * Copyright (C) 2012 David Anderson

 *

 * This file is part of JITCraft.

 *

 * JITCraft is free software: you can redistribute it and/or modify it under

 * the terms of the GNU General Public License as published by the Free

 * Software Foundation, either version 3 of the License, or (at your option)

 * any later version.

 * 

 * Foobar is distributed in the hope that it will be useful, but WITHOUT ANY

 * WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS

 * FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

 *

 * You should have received a copy of the GNU General Public License along with

 * JITCraft. If not, see http://www.gnu.org/licenses/.

 */

#ifndef _include_jitcraft_heap_inl_h_

#define _include_jitcraft_heap_inl_h_

#include "Heap.h"

#include "Spaces-inl.h"

namespace ke {

static inline Object *

InitAddressIntoObject(Address address, Map *map)

{

    uintptr_t untagged = reinterpret_cast<uintptr_t>(address);

    assert(IsAligned(untagged, kObjectAlignment));

    Object *obj = reinterpret_cast<Object *>(address);

    obj->init(map);

    return obj;

}

inline Address

Heap::newObject(size_t bytes, Tenure age)

{

    if (bytes >= HeapChunk::kLargeObjectThreshold)

        return newLargeObject(bytes);

    if (age == Tenure_Stack) {

        if (Address addr = newStackObject(bytes))

            return addr;

    }

#if 0

    if (age == Tenure_Default) {

        if (Address addr = newSpace_.allocate(bytes))

            return addr;

        scavenge();

        if (Address addr = newSpace_.allocate(bytes))

            return addr;

    }

#endif

    // Try an old-space allocation.

    if (Address addr = newOldObject(bytes))

        return addr;

    // Uh-oh - perform a last-ditch collection.

    reclaim();

    return newOldObject(bytes);

}

inline Object *

Heap::allocate(Handle<Map> map, size_t bytes, Tenure age)

{

    size_t actualBytes = Align(bytes, kObjectAlignment);

    // All objects must be at least two words.

    assert(actualBytes >= sizeof(Object *) * 2);

    Address address = newObject(actualBytes, age);

    if (!address) {

        assert(false);

        return NULL;

    }

    return InitAddressIntoObject(address, map);

}

inline Address

Heap::newStackObject(size_t bytes)

{

    return lifoSpace_.allocate(bytes);

}

inline Address

Heap::newOldObject(size_t bytes)

{

    return oldSpace_.allocate(bytes);

}

inline Address

Heap::newLargeObject(size_t bytes)

{

    if (Address address = largeSpace_.allocate(bytes))

        return address;

    reclaim();

    return largeSpace_.allocate(bytes);

}

inline void

Object::write(Zone *zone, Object **ptr, Object *obj)

{

    *ptr = obj;

}

}

#endif // _include_jitcraft_heap_inl_h_