|
dvander@0
|
1 |
/* |
|
dvander@0
|
2 |
* Copyright (C) 2012 David Anderson |
|
dvander@0
|
3 |
* |
|
dvander@0
|
4 |
* This file is part of JITCraft. |
|
dvander@0
|
5 |
* |
|
dvander@0
|
6 |
* JITCraft is free software: you can redistribute it and/or modify it under |
|
dvander@0
|
7 |
* the terms of the GNU General Public License as published by the Free |
|
dvander@0
|
8 |
* Software Foundation, either version 3 of the License, or (at your option) |
|
dvander@0
|
9 |
* any later version. |
|
dvander@0
|
10 |
* |
|
dvander@0
|
11 |
* Foobar is distributed in the hope that it will be useful, but WITHOUT ANY |
|
dvander@0
|
12 |
* WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS |
|
dvander@0
|
13 |
* FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. |
|
dvander@0
|
14 |
* |
|
dvander@0
|
15 |
* You should have received a copy of the GNU General Public License along with |
|
dvander@0
|
16 |
* JITCraft. If not, see http://www.gnu.org/licenses/. |
|
dvander@0
|
17 |
*/ |
|
dvander@0
|
18 |
#include "Types.h" |
|
dvander@11
|
19 |
#include "Zone.h" |
|
dvander@11
|
20 |
#include "Heap-inl.h" |
|
dvander@0
|
21 |
|
|
dvander@0
|
22 |
using namespace jc; |
|
dvander@0
|
23 |
|
|
dvander@11
|
24 |
void |
|
dvander@11
|
25 |
Type::initPrimitive(Name *tag) |
|
dvander@11
|
26 |
{ |
|
dvander@11
|
27 |
WRITE_FIELD(kind, PRIMITIVE); |
|
dvander@11
|
28 |
WRITE_FIELD(tag, CrapPtr(tag)); |
|
dvander@11
|
29 |
WRITE_FIELD_OBJ_NO_BARRIER(contained, NULL); |
|
dvander@11
|
30 |
|
|
dvander@11
|
31 |
if (tag && strcmp(tag, "Float") == 0) |
|
dvander@11
|
32 |
WRITE_FIELD(primitive, PrimitiveType_Float); |
|
dvander@11
|
33 |
else |
|
dvander@11
|
34 |
WRITE_FIELD(primitive, PrimitiveType_Int32); |
|
dvander@11
|
35 |
} |
|
dvander@11
|
36 |
|
|
dvander@11
|
37 |
void |
|
dvander@11
|
38 |
Type::initInlineArray(Type *contained, int elements) |
|
dvander@0
|
39 |
{ |
|
dvander@11
|
40 |
WRITE_FIELD(kind, UNSAFE_ARRAY); |
|
dvander@11
|
41 |
WRITE_FIELD(tag, NULL); |
|
dvander@11
|
42 |
WRITE_FIELD_OBJ_NO_BARRIER(contained, contained); |
|
dvander@11
|
43 |
WRITE_FIELD(elements, elements); |
|
dvander@11
|
44 |
if (contained->isPrimitive()) |
|
dvander@11
|
45 |
WRITE_FIELD(levels, 1); |
|
dvander@4
|
46 |
else |
|
dvander@11
|
47 |
WRITE_FIELD(levels, contained->levels() + 1); |
|
dvander@11
|
48 |
} |
|
dvander@11
|
49 |
|
|
dvander@11
|
50 |
Type * |
|
dvander@11
|
51 |
Type::NewPrimitive(Zone *zone, Name *tag) |
|
dvander@11
|
52 |
{ |
|
dvander@11
|
53 |
Object *obj = zone->allocate(MapKind_Type, sizeof(Type), Heap::Tenure_Old); |
|
dvander@11
|
54 |
if (!obj) |
|
dvander@11
|
55 |
return NULL; |
|
dvander@11
|
56 |
|
|
dvander@11
|
57 |
Type *type = Type::cast(obj); |
|
dvander@11
|
58 |
type->initPrimitive(tag); |
|
dvander@4
|
59 |
return type; |
|
dvander@4
|
60 |
} |
|
dvander@4
|
61 |
|
|
dvander@4
|
62 |
Type * |
|
dvander@11
|
63 |
Type::NewUnsafeArray(Zone *zone, Type *contained, int elements) |
|
dvander@4
|
64 |
{ |
|
dvander@11
|
65 |
Object *obj = zone->allocate(MapKind_Type, sizeof(Type), Heap::Tenure_Old); |
|
dvander@11
|
66 |
if (!obj) |
|
dvander@11
|
67 |
return NULL; |
|
dvander@11
|
68 |
|
|
dvander@11
|
69 |
Type *type = Type::cast(obj); |
|
dvander@11
|
70 |
type->initInlineArray(contained, elements); |
|
dvander@0
|
71 |
return type; |
|
dvander@0
|
72 |
} |