ed/Odin
1
0
Fork 0
mirror of https://github.com/Ed94/Odin.git synced 2026-06-14 18:02:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

#load directive (request from #368) (Basic implementation)

Browse Source
This commit is contained in:
gingerBill
2019-04-20 15:05:35 +01:00
parent 0755dfbd5d
commit 56c4039e72
4 changed files with 133 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/ir.cpp
+27 -22
View File
@@ -1525,30 +1525,35 @@ irValue *ir_add_module_constant(irModule *m, Type *type, ExactValue value) {
gbAllocator a = ir_allocator();
if (is_type_slice(type)) {
ast_node(cl, CompoundLit, value.value_compound);
if (value.kind == ExactValue_String) {
GB_ASSERT(is_type_u8_slice(type));
return ir_value_constant(type, value);
} else {
ast_node(cl, CompoundLit, value.value_compound);
isize count = cl->elems.count;
if (count == 0) {
return ir_value_nil(type);
isize count = cl->elems.count;
if (count == 0) {
return ir_value_nil(type);
}
Type *elem = base_type(type)->Slice.elem;
Type *t = alloc_type_array(elem, count);
irValue *backing_array = ir_add_module_constant(m, t, value);
isize max_len = 7+8+1;
u8 *str = cast(u8 *)gb_alloc_array(a, u8, max_len);
isize len = gb_snprintf(cast(char *)str, max_len, "csba$%x", m->global_array_index);
m->global_array_index++;
String name = make_string(str, len-1);
Entity *e = alloc_entity_constant(nullptr, make_token_ident(name), t, value);
irValue *g = ir_value_global(e, backing_array);
ir_module_add_value(m, e, g);
map_set(&m->members, hash_string(name), g);
return ir_value_constant_slice(type, g, count);
}
Type *elem = base_type(type)->Slice.elem;
Type *t = alloc_type_array(elem, count);
irValue *backing_array = ir_add_module_constant(m, t, value);
isize max_len = 7+8+1;
u8 *str = cast(u8 *)gb_alloc_array(a, u8, max_len);
isize len = gb_snprintf(cast(char *)str, max_len, "csba$%x", m->global_array_index);
m->global_array_index++;
String name = make_string(str, len-1);
Entity *e = alloc_entity_constant(nullptr, make_token_ident(name), t, value);
irValue *g = ir_value_global(e, backing_array);
ir_module_add_value(m, e, g);
map_set(&m->members, hash_string(name), g);
return ir_value_constant_slice(type, g, count);
}
return ir_value_constant(type, value);