jitcraft/Array.cpp
author David Anderson <dvander@alliedmods.net>
Sun Jul 01 14:52:57 2012 -0700 (2012-07-01)
changeset 21 af5d8e985502
parent 20 e020a14e21be
child 27 28697d267222
permissions -rw-r--r--
Added initial String: support.
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 "Array.h"
dvander@12
    19
#include "Heap.h"
dvander@12
    20
#include "Zone.h"
dvander@12
    21
#include "Heap-inl.h"
dvander@12
    22
dvander@12
    23
using namespace jc;
dvander@12
    24
dvander@12
    25
ArrayMap *
dvander@12
    26
ArrayMap::New(Zone *zone, Type *type, ArrayMap *contained)
dvander@12
    27
{
dvander@12
    28
    // :TODO: use Local
dvander@12
    29
    Map *obj = zone->allocateMap(MapKind_Array, sizeof(ArrayMap), MapKind_MetaArray);
dvander@12
    30
    if (!obj)
dvander@12
    31
        return NULL;
dvander@12
    32
dvander@12
    33
    ArrayMap *map = ArrayMap::cast(obj);
dvander@13
    34
    map->type_ = type;
dvander@13
    35
    map->contained_ = contained;
dvander@12
    36
    return map;
dvander@12
    37
}
dvander@12
    38
dvander@12
    39
static inline size_t
dvander@12
    40
SizeFor(Type *type, unsigned elements)
dvander@12
    41
{
dvander@12
    42
    if (type->levels() > 1)
dvander@12
    43
        return sizeof(Array) + elements * sizeof(jc::Object *);
dvander@20
    44
    if (type->contained()->isInt32())
dvander@12
    45
        return sizeof(Array) + elements * sizeof(int);
dvander@21
    46
    if (type->contained()->primitive() == PrimitiveType_Char)
dvander@21
    47
        return sizeof(Array) + elements * sizeof(char);
dvander@12
    48
    assert(type->contained()->isFloat());
dvander@12
    49
    return sizeof(Array) + elements * sizeof(float);
dvander@12
    50
}
dvander@12
    51
dvander@12
    52
Array *
dvander@12
    53
Array::New(Zone *zone, ArrayMap *map, uint32 elements, Heap::Tenure tenure)
dvander@12
    54
{
dvander@12
    55
    // :TODO: handles
dvander@12
    56
    size_t bytes = SizeFor(map->type(), elements);
dvander@12
    57
    Object *obj = zone->allocate(map, bytes, tenure);
dvander@12
    58
    if (!obj)
dvander@12
    59
        return NULL;
dvander@12
    60
dvander@12
    61
    Array *array = Array::cast(obj);
dvander@13
    62
    array->nelements_ = elements;
dvander@13
    63
    array->elements_ = VoidPtr(array + 1);
dvander@12
    64
    return Array::cast(obj);
dvander@12
    65
}