/*
 * 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/.
 */
#include <limits.h>
#include <string.h>
#include "FixedArray.h"
#include "Zone.h"
#include "Heap-inl.h"

using namespace ke;

static const unsigned kMaxFixedArrayLength = ((INT_MAX - sizeof(FixedArray)) / sizeof(ke::Object *));

FixedArray *
FixedArray::New(Zone *zone, unsigned length, Heap::Tenure tenure)
{
    if (length >= kMaxFixedArrayLength) {
        zone->reportError(Message_ArrayTooBig);
        return NULL;
    }

    Local<FixedArray> array(zone, FixedArray::cast(zone->allocate(MapKind_FixedArray, SizeFor(length), tenure)));
    if (!array)
        return NULL;

    array->length_ = length;
    memset(array->vec(), 0, length * sizeof(Object *));
    return array;
}

ByteArray *
ByteArray::New(Zone *zone, unsigned length, Heap::Tenure tenure)
{
    if (length >= kMaxFixedArrayLength) {
        zone->reportError(Message_ArrayTooBig);
        return NULL;
    }

    Local<ByteArray> array(zone, ByteArray::cast(zone->allocate(MapKind_ByteArray, SizeFor(length), tenure)));
    if (!array)
        return NULL;

    array->length_ = length;
    memset(array->raw(), 0, length);
    return array;
}

ByteArray *
ByteArray::New(Zone *zone, Handle<Map> map, unsigned length, Heap::Tenure tenure)
{
    if (length >= kMaxFixedArrayLength) {
        zone->reportError(Message_ArrayTooBig);
        return NULL;
    }

    Local<ByteArray> array(zone, ByteArray::cast(zone->allocate(map, SizeFor(length), tenure)));
    if (!array)
        return NULL;

    array->length_ = length;
    memset(array->raw(), 0, length);
    return array;
}