|
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 |
} |