jitcraft/FixedArray.cpp
author David Anderson <dvander@alliedmods.net>
Sat Jun 30 20:20:39 2012 -0700 (2012-06-30)
changeset 13 627b6b94e774
parent 12 75e385f68b7e
child 28 a9665857cfd5
permissions -rw-r--r--
Removed OBJECT_FIELD and READ and WRITE macros.
dvander@12
     1
/*
dvander@12
     2
 * Copyright (C) 2012 David Anderson
dvander@12
     3
 *
dvander@12
     4
 * This file is part of JITCraft.
dvander@12
     5
 *
dvander@12
     6
 * JITCraft is free software: you can redistribute it and/or modify it under
dvander@12
     7
 * the terms of the GNU General Public License as published by the Free
dvander@12
     8
 * Software Foundation, either version 3 of the License, or (at your option)
dvander@12
     9
 * any later version.
dvander@12
    10
 * 
dvander@12
    11
 * Foobar is distributed in the hope that it will be useful, but WITHOUT ANY
dvander@12
    12
 * WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
dvander@12
    13
 * FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.
dvander@12
    14
 *
dvander@12
    15
 * You should have received a copy of the GNU General Public License along with
dvander@12
    16
 * JITCraft. If not, see http://www.gnu.org/licenses/.
dvander@12
    17
 */
dvander@12
    18
#include <limits.h>
dvander@12
    19
#include "FixedArray.h"
dvander@12
    20
#include "Zone.h"
dvander@12
    21
dvander@12
    22
using namespace jc;
dvander@12
    23
dvander@12
    24
static const unsigned kMaxFixedArrayLength = ((INT_MAX - sizeof(FixedArray)) / sizeof(jc::Object *));
dvander@12
    25
dvander@12
    26
FixedArray *
dvander@12
    27
FixedArray::New(Zone *zone, unsigned length, Heap::Tenure tenure)
dvander@12
    28
{
dvander@12
    29
    // :TODO: error...
dvander@12
    30
    if (length >= kMaxFixedArrayLength) {
dvander@12
    31
        assert(false);
dvander@12
    32
        return NULL;
dvander@12
    33
    }
dvander@12
    34
dvander@12
    35
    Object *obj = zone->allocate(MapKind_FixedArray, SizeFor(length), tenure);
dvander@12
    36
    if (!obj)
dvander@12
    37
        return NULL;
dvander@12
    38
dvander@12
    39
    FixedArray *array = FixedArray::cast(obj);
dvander@13
    40
    array->length_ = length;
dvander@12
    41
    return array;
dvander@12
    42
}
dvander@12
    43
dvander@12
    44
ByteArray *
dvander@12
    45
ByteArray::New(Zone *zone, unsigned length, Heap::Tenure tenure)
dvander@12
    46
{
dvander@12
    47
    // :TODO: error...
dvander@12
    48
    if (length >= kMaxFixedArrayLength) {
dvander@12
    49
        assert(false);
dvander@12
    50
        return NULL;
dvander@12
    51
    }
dvander@12
    52
dvander@12
    53
    Object *obj = zone->allocate(MapKind_ByteArray, SizeFor(length), tenure);
dvander@12
    54
    if (!obj)
dvander@12
    55
        return NULL;
dvander@12
    56
dvander@12
    57
    ByteArray *array = ByteArray::cast(obj);
dvander@13
    58
    array->length_ = length;
dvander@12
    59
    return array;
dvander@12
    60
}
dvander@12
    61