Browse Source

Correctly generate LLVM types from Odin types.

gingerBill 5 years ago
parent
commit
5dc82c2720
2 changed files with 401 additions and 67 deletions
  1. 21 2
      examples/llvm-demo/demo.odin
  2. 380 65
      src/llvm_backend.cpp

+ 21 - 2
examples/llvm-demo/demo.odin

@@ -3,9 +3,28 @@ package demo
 import "core:os"
 import "core:os"
 
 
 main :: proc() {
 main :: proc() {
-	x := 1;
-	y := 2;
+	Foo :: struct {
+		x, y: int,
+	};
+
+	x := i32(1);
+	y := i32(2);
 	z := x + y;
 	z := x + y;
 	w := z - 2;
 	w := z - 2;
+
+
+	c := 1 + 2i;
+	q := 1 + 2i + 3j + 4k;
+
+	s := "Hellope";
+
+	f: Foo;
+	pc: proc "contextless" (x: i32) -> Foo;
+	po: proc "odin" (x: i32) -> Foo;
+	e: enum{A, B, C};
+	u: union{i32, bool};
+	u1: union{i32};
+	um: union #maybe {^int};
+
 	// os.write_string(os.stdout, "Hellope\n");
 	// os.write_string(os.stdout, "Hellope\n");
 }
 }

+ 380 - 65
src/llvm_backend.cpp

@@ -103,6 +103,12 @@ lbValue      lb_build_expr  (lbProcedure *p, Ast *expr);
 lbValue lb_constant_nil(Type *type);
 lbValue lb_constant_nil(Type *type);
 
 
 
 
+gb_internal lbModule *global_module = nullptr;
+
+gb_internal LLVMValueRef lb_zero32 = nullptr;
+gb_internal LLVMValueRef lb_one32 = nullptr;
+
+
 lbAddr lb_addr(lbValue addr) {
 lbAddr lb_addr(lbValue addr) {
 	lbAddr v = {lbAddr_Default, addr};
 	lbAddr v = {lbAddr_Default, addr};
 	return v;
 	return v;
@@ -123,7 +129,36 @@ void lb_addr_store(lbProcedure *p, lbAddr const &addr, lbValue const &value) {
 	LLVMBuildStore(p->builder, value.value, addr.addr.value);
 	LLVMBuildStore(p->builder, value.value, addr.addr.value);
 }
 }
 
 
+void lb_clone_struct_type(LLVMTypeRef dst, LLVMTypeRef src) {
+	unsigned field_count = LLVMCountStructElementTypes(src);
+	LLVMTypeRef *fields = gb_alloc_array(heap_allocator(), LLVMTypeRef, field_count);
+	LLVMGetStructElementTypes(src, fields);
+	LLVMStructSetBody(dst, fields, field_count, LLVMIsPackedStruct(src));
+	gb_free(heap_allocator(), fields);
+}
+
+LLVMTypeRef lb_alignment_prefix_type_hack(i64 alignment) {
+	switch (alignment) {
+	case 1:
+		return LLVMArrayType(lb_type(t_u8), 0);
+	case 2:
+		return LLVMArrayType(lb_type(t_u16), 0);
+	case 4:
+		return LLVMArrayType(lb_type(t_u32), 0);
+	case 8:
+		return LLVMArrayType(lb_type(t_u64), 0);
+	case 16:
+		return LLVMArrayType(LLVMVectorType(lb_type(t_u32), 4), 0);
+	default:
+		GB_PANIC("Invalid alignment %d", cast(i32)alignment);
+		break;
+	}
+	return nullptr;
+}
+
 LLVMTypeRef lb_type_internal(Type *type) {
 LLVMTypeRef lb_type_internal(Type *type) {
+	i64 size = type_size_of(type); // Check size
+
 	switch (type->kind) {
 	switch (type->kind) {
 	case Type_Basic:
 	case Type_Basic:
 		switch (type->Basic.kind) {
 		switch (type->Basic.kind) {
@@ -154,40 +189,48 @@ LLVMTypeRef lb_type_internal(Type *type) {
 		// Basic_complex32,
 		// Basic_complex32,
 		case Basic_complex64:
 		case Basic_complex64:
 			{
 			{
+				LLVMTypeRef type = LLVMStructCreateNamed(LLVMGetGlobalContext(), "..complex64");
 				LLVMTypeRef fields[2] = {
 				LLVMTypeRef fields[2] = {
 					lb_type(t_f32),
 					lb_type(t_f32),
 					lb_type(t_f32),
 					lb_type(t_f32),
 				};
 				};
-				return LLVMStructType(fields, 2, false);
+				LLVMStructSetBody(type, fields, 2, false);
+				return type;
 			}
 			}
 		case Basic_complex128:
 		case Basic_complex128:
 			{
 			{
+				LLVMTypeRef type = LLVMStructCreateNamed(LLVMGetGlobalContext(), "..complex128");
 				LLVMTypeRef fields[2] = {
 				LLVMTypeRef fields[2] = {
 					lb_type(t_f64),
 					lb_type(t_f64),
 					lb_type(t_f64),
 					lb_type(t_f64),
 				};
 				};
-				return LLVMStructType(fields, 2, false);
+				LLVMStructSetBody(type, fields, 2, false);
+				return type;
 			}
 			}
 
 
 		case Basic_quaternion128:
 		case Basic_quaternion128:
 			{
 			{
+				LLVMTypeRef type = LLVMStructCreateNamed(LLVMGetGlobalContext(), "..quaternion128");
 				LLVMTypeRef fields[4] = {
 				LLVMTypeRef fields[4] = {
 					lb_type(t_f32),
 					lb_type(t_f32),
 					lb_type(t_f32),
 					lb_type(t_f32),
 					lb_type(t_f32),
 					lb_type(t_f32),
 					lb_type(t_f32),
 					lb_type(t_f32),
 				};
 				};
-				return LLVMStructType(fields, 4, false);
+				LLVMStructSetBody(type, fields, 4, false);
+				return type;
 			}
 			}
 		case Basic_quaternion256:
 		case Basic_quaternion256:
 			{
 			{
+				LLVMTypeRef type = LLVMStructCreateNamed(LLVMGetGlobalContext(), "..quaternion256");
 				LLVMTypeRef fields[4] = {
 				LLVMTypeRef fields[4] = {
 					lb_type(t_f64),
 					lb_type(t_f64),
 					lb_type(t_f64),
 					lb_type(t_f64),
 					lb_type(t_f64),
 					lb_type(t_f64),
 					lb_type(t_f64),
 					lb_type(t_f64),
 				};
 				};
-				return LLVMStructType(fields, 4, false);
+				LLVMStructSetBody(type, fields, 4, false);
+				return type;
 			}
 			}
 
 
 		case Basic_int:  return LLVMIntType(8*cast(unsigned)build_context.word_size);
 		case Basic_int:  return LLVMIntType(8*cast(unsigned)build_context.word_size);
@@ -198,40 +241,44 @@ LLVMTypeRef lb_type_internal(Type *type) {
 		case Basic_rawptr: return LLVMPointerType(LLVMInt8Type(), 0);
 		case Basic_rawptr: return LLVMPointerType(LLVMInt8Type(), 0);
 		case Basic_string:
 		case Basic_string:
 			{
 			{
+				LLVMTypeRef type = LLVMStructCreateNamed(LLVMGetGlobalContext(), "..string");
 				LLVMTypeRef fields[2] = {
 				LLVMTypeRef fields[2] = {
 					LLVMPointerType(lb_type(t_u8), 0),
 					LLVMPointerType(lb_type(t_u8), 0),
 					lb_type(t_int),
 					lb_type(t_int),
 				};
 				};
-				return LLVMStructType(fields, 2, false);
+				LLVMStructSetBody(type, fields, 2, false);
+				return type;
 			}
 			}
 		case Basic_cstring: return LLVMPointerType(LLVMInt8Type(), 0);
 		case Basic_cstring: return LLVMPointerType(LLVMInt8Type(), 0);
 		case Basic_any:
 		case Basic_any:
 			{
 			{
+				LLVMTypeRef type = LLVMStructCreateNamed(LLVMGetGlobalContext(), "..any");
 				LLVMTypeRef fields[2] = {
 				LLVMTypeRef fields[2] = {
 					LLVMPointerType(lb_type(t_rawptr), 0),
 					LLVMPointerType(lb_type(t_rawptr), 0),
 					lb_type(t_typeid),
 					lb_type(t_typeid),
 				};
 				};
-				return LLVMStructType(fields, 2, false);
+				LLVMStructSetBody(type, fields, 2, false);
+				return type;
 			}
 			}
 
 
 		case Basic_typeid: return LLVMIntType(8*cast(unsigned)build_context.word_size);
 		case Basic_typeid: return LLVMIntType(8*cast(unsigned)build_context.word_size);
 
 
 		// Endian Specific Types
 		// Endian Specific Types
-		case Basic_i16le: return LLVMInt16Type();
-		case Basic_u16le: return LLVMInt16Type();
-		case Basic_i32le: return LLVMInt32Type();
-		case Basic_u32le: return LLVMInt32Type();
-		case Basic_i64le: return LLVMInt64Type();
-		case Basic_u64le: return LLVMInt64Type();
+		case Basic_i16le:  return LLVMInt16Type();
+		case Basic_u16le:  return LLVMInt16Type();
+		case Basic_i32le:  return LLVMInt32Type();
+		case Basic_u32le:  return LLVMInt32Type();
+		case Basic_i64le:  return LLVMInt64Type();
+		case Basic_u64le:  return LLVMInt64Type();
 		case Basic_i128le: return LLVMInt128Type();
 		case Basic_i128le: return LLVMInt128Type();
 		case Basic_u128le: return LLVMInt128Type();
 		case Basic_u128le: return LLVMInt128Type();
 
 
-		case Basic_i16be: return LLVMInt16Type();
-		case Basic_u16be: return LLVMInt16Type();
-		case Basic_i32be: return LLVMInt32Type();
-		case Basic_u32be: return LLVMInt32Type();
-		case Basic_i64be: return LLVMInt64Type();
-		case Basic_u64be: return LLVMInt64Type();
+		case Basic_i16be:  return LLVMInt16Type();
+		case Basic_u16be:  return LLVMInt16Type();
+		case Basic_i32be:  return LLVMInt32Type();
+		case Basic_u32be:  return LLVMInt32Type();
+		case Basic_i64be:  return LLVMInt64Type();
+		case Basic_u64be:  return LLVMInt64Type();
 		case Basic_i128be: return LLVMInt128Type();
 		case Basic_i128be: return LLVMInt128Type();
 		case Basic_u128be: return LLVMInt128Type();
 		case Basic_u128be: return LLVMInt128Type();
 
 
@@ -248,16 +295,74 @@ LLVMTypeRef lb_type_internal(Type *type) {
 		}
 		}
 		break;
 		break;
 	case Type_Named:
 	case Type_Named:
-		GB_PANIC("Type_Named");
-		return nullptr;
+		{
+			Type *base = base_type(type->Named.base);
+
+			switch (base->kind) {
+			case Type_Basic:
+				return lb_type(base);
+
+			case Type_Named:
+			case Type_Generic:
+			case Type_BitFieldValue:
+				GB_PANIC("INVALID TYPE");
+				break;
+
+			case Type_Pointer:
+			case Type_Opaque:
+			case Type_Array:
+			case Type_EnumeratedArray:
+			case Type_Slice:
+			case Type_DynamicArray:
+			case Type_Map:
+			case Type_Enum:
+			case Type_BitSet:
+			case Type_SimdVector:
+				return lb_type(base);
+
+			// TODO(bill): Deal with this correctly. Can this be named?
+			case Type_Proc:
+				return lb_type(base);
+
+			case Type_Tuple:
+				return lb_type(base);
+			}
+
+			LLVMContextRef ctx = LLVMGetModuleContext(global_module->mod);
+
+			if (base->llvm_type != nullptr) {
+				LLVMTypeKind kind = LLVMGetTypeKind(base->llvm_type);
+				if (kind == LLVMStructTypeKind) {
+					type->llvm_type = LLVMStructCreateNamed(ctx, alloc_cstring(heap_allocator(), type->Named.name));
+					lb_clone_struct_type(type->llvm_type, base->llvm_type);
+				}
+			}
+
+			switch (base->kind) {
+			case Type_Struct:
+			case Type_Union:
+			case Type_BitField:
+				type->llvm_type = LLVMStructCreateNamed(ctx, alloc_cstring(heap_allocator(), type->Named.name));
+				lb_clone_struct_type(type->llvm_type, lb_type(base));
+				return type->llvm_type;
+			}
+
+
+			return lb_type(base);
+		}
+
 	case Type_Pointer:
 	case Type_Pointer:
 		return LLVMPointerType(lb_type(type_deref(type)), 0);
 		return LLVMPointerType(lb_type(type_deref(type)), 0);
+
 	case Type_Opaque:
 	case Type_Opaque:
 		return lb_type(base_type(type));
 		return lb_type(base_type(type));
+
 	case Type_Array:
 	case Type_Array:
 		return LLVMArrayType(lb_type(type->Array.elem), cast(unsigned)type->Array.count);
 		return LLVMArrayType(lb_type(type->Array.elem), cast(unsigned)type->Array.count);
+
 	case Type_EnumeratedArray:
 	case Type_EnumeratedArray:
 		return LLVMArrayType(lb_type(type->EnumeratedArray.elem), cast(unsigned)type->EnumeratedArray.count);
 		return LLVMArrayType(lb_type(type->EnumeratedArray.elem), cast(unsigned)type->EnumeratedArray.count);
+
 	case Type_Slice:
 	case Type_Slice:
 		{
 		{
 			LLVMTypeRef fields[2] = {
 			LLVMTypeRef fields[2] = {
@@ -267,6 +372,7 @@ LLVMTypeRef lb_type_internal(Type *type) {
 			return LLVMStructType(fields, 2, false);
 			return LLVMStructType(fields, 2, false);
 		}
 		}
 		break;
 		break;
+
 	case Type_DynamicArray:
 	case Type_DynamicArray:
 		{
 		{
 			LLVMTypeRef fields[4] = {
 			LLVMTypeRef fields[4] = {
@@ -278,27 +384,160 @@ LLVMTypeRef lb_type_internal(Type *type) {
 			return LLVMStructType(fields, 4, false);
 			return LLVMStructType(fields, 4, false);
 		}
 		}
 		break;
 		break;
+
 	case Type_Map:
 	case Type_Map:
 		return lb_type(type->Map.internal_type);
 		return lb_type(type->Map.internal_type);
+
 	case Type_Struct:
 	case Type_Struct:
-		GB_PANIC("Type_Struct");
+		{
+			if (type->Struct.is_raw_union) {
+				unsigned field_count = 2;
+				LLVMTypeRef *fields = gb_alloc_array(heap_allocator(), LLVMTypeRef, field_count);
+				i64 alignment = type_align_of(type);
+				unsigned size_of_union = cast(unsigned)type_size_of(type);
+				fields[0] = lb_alignment_prefix_type_hack(alignment);
+				fields[1] = LLVMArrayType(lb_type(t_u8), size_of_union);
+				return LLVMStructType(fields, field_count, false);
+			}
+
+			isize offset = 0;
+			if (type->Struct.custom_align > 0) {
+				offset = 1;
+			}
+
+			unsigned field_count = cast(unsigned)(type->Struct.fields.count + offset);
+			LLVMTypeRef *fields = gb_alloc_array(heap_allocator(), LLVMTypeRef, field_count);
+			defer (gb_free(heap_allocator(), fields));
+
+			for_array(i, type->Struct.fields) {
+				Entity *field = type->Struct.fields[i];
+				fields[i+offset] = lb_type(field->type);
+			}
+
+			if (type->Struct.custom_align > 0) {
+				fields[0] = lb_alignment_prefix_type_hack(type->Struct.custom_align);
+			}
+
+			return LLVMStructType(fields, field_count, type->Struct.is_packed);
+		}
 		break;
 		break;
+
 	case Type_Union:
 	case Type_Union:
-		GB_PANIC("Type_Union");
+		if (type->Union.variants.count == 0) {
+			return LLVMStructType(nullptr, 0, false);
+		} else {
+			// NOTE(bill): The zero size array is used to fix the alignment used in a structure as
+			// LLVM takes the first element's alignment as the entire alignment (like C)
+			i64 align = type_align_of(type);
+			i64 size = type_size_of(type);
+
+			if (is_type_union_maybe_pointer_original_alignment(type)) {
+				LLVMTypeRef fields[1] = {lb_type(type->Union.variants[0])};
+				return LLVMStructType(fields, 1, false);
+			}
+
+			unsigned block_size = cast(unsigned)type->Union.variant_block_size;
+
+			LLVMTypeRef fields[3] = {};
+			unsigned field_count = 1;
+			fields[0] = lb_alignment_prefix_type_hack(align);
+			if (is_type_union_maybe_pointer(type)) {
+				field_count += 1;
+				fields[1] = lb_type(type->Union.variants[0]);
+			} else {
+				field_count += 2;
+				fields[1] = LLVMArrayType(lb_type(t_u8), block_size);
+				fields[2] = lb_type(union_tag_type(type));
+			}
+
+			return LLVMStructType(fields, field_count, false);
+		}
 		break;
 		break;
+
 	case Type_Enum:
 	case Type_Enum:
-		return LLVMIntType(8*cast(unsigned)type_size_of(type));
+		return lb_type(base_enum_type(type));
+
 	case Type_Tuple:
 	case Type_Tuple:
-		GB_PANIC("Type_Tuple");
-		break;
+		{
+			unsigned field_count = cast(unsigned)(type->Tuple.variables.count);
+			LLVMTypeRef *fields = gb_alloc_array(heap_allocator(), LLVMTypeRef, field_count);
+			defer (gb_free(heap_allocator(), fields));
+
+			for_array(i, type->Tuple.variables) {
+				Entity *field = type->Tuple.variables[i];
+				fields[i] = lb_type(field->type);
+			}
+
+			return LLVMStructType(fields, field_count, type->Tuple.is_packed);
+		}
+
 	case Type_Proc:
 	case Type_Proc:
-		set_procedure_abi_types(heap_allocator(), type);
-		GB_PANIC("Type_Proc");
+		{
+			set_procedure_abi_types(heap_allocator(), type);
+
+			LLVMTypeRef return_type = LLVMVoidType();
+			isize offset = 0;
+			if (type->Proc.return_by_pointer) {
+				offset = 1;
+			} else if (type->Proc.abi_compat_result_type != nullptr) {
+				return_type = lb_type(type->Proc.abi_compat_result_type);
+			}
+
+			isize extra_param_count = offset;
+			if (type->Proc.calling_convention == ProcCC_Odin) {
+				extra_param_count += 1;
+			}
+
+			unsigned param_count = cast(unsigned)(type->Proc.abi_compat_params.count + extra_param_count);
+			LLVMTypeRef *param_types = gb_alloc_array(heap_allocator(), LLVMTypeRef, param_count);
+			defer (gb_free(heap_allocator(), param_types));
+
+			for_array(i, type->Proc.abi_compat_params) {
+				Type *param = type->Proc.abi_compat_params[i];
+				param_types[i+offset] = lb_type(param);
+			}
+			if (type->Proc.return_by_pointer) {
+				param_types[0] = LLVMPointerType(lb_type(type->Proc.abi_compat_result_type), 0);
+			}
+			if (type->Proc.calling_convention == ProcCC_Odin) {
+				param_types[param_count-1] = lb_type(t_context_ptr);
+			}
+
+			LLVMTypeRef t = LLVMFunctionType(return_type, param_types, param_count, type->Proc.c_vararg);
+			return LLVMPointerType(t, 0);
+		}
 		break;
 		break;
 	case Type_BitFieldValue:
 	case Type_BitFieldValue:
 		return LLVMIntType(type->BitFieldValue.bits);
 		return LLVMIntType(type->BitFieldValue.bits);
+
 	case Type_BitField:
 	case Type_BitField:
-		GB_PANIC("Type_BitField");
+		{
+			LLVMTypeRef internal_type = nullptr;
+			{
+				GB_ASSERT(type->BitField.fields.count == type->BitField.sizes.count);
+				unsigned field_count = cast(unsigned)type->BitField.fields.count;
+				LLVMTypeRef *fields = gb_alloc_array(heap_allocator(), LLVMTypeRef, field_count);
+				defer (gb_free(heap_allocator(), fields));
+
+				for_array(i, type->BitField.sizes) {
+					u32 size = type->BitField.sizes[i];
+					fields[i] = LLVMIntType(size);
+				}
+
+				internal_type = LLVMStructType(fields, field_count, true);
+			}
+			unsigned field_count = 2;
+			LLVMTypeRef *fields = gb_alloc_array(heap_allocator(), LLVMTypeRef, field_count);
+
+			i64 alignment = 1;
+			if (type->BitField.custom_align > 0) {
+				alignment = type->BitField.custom_align;
+			}
+			fields[0] = lb_alignment_prefix_type_hack(alignment);
+			fields[1] = internal_type;
+
+			return LLVMStructType(fields, field_count, true);
+		}
 		break;
 		break;
 	case Type_BitSet:
 	case Type_BitSet:
 		return LLVMIntType(8*cast(unsigned)type_size_of(type));
 		return LLVMIntType(8*cast(unsigned)type_size_of(type));
@@ -448,6 +687,15 @@ bool lb_init_generator(lbGenerator *gen, Checker *c) {
 
 
 	gen->info = &c->info;
 	gen->info = &c->info;
 
 
+	gen->module.mod = LLVMModuleCreateWithName("odin_module");
+	map_init(&gen->module.values, heap_allocator());
+
+	global_module = &gen->module;
+
+	lb_zero32 = LLVMConstInt(lb_type(t_i32), 0, false);
+	lb_one32  = LLVMConstInt(lb_type(t_i32), 1, false);
+
+
 	return true;
 	return true;
 }
 }
 
 
@@ -470,6 +718,14 @@ void lb_build_stmt_list(lbProcedure *p, Array<Ast *> const &stmts) {
 	}
 	}
 }
 }
 
 
+lbValue lb_build_gep(lbProcedure *p, lbValue const &value, i32 index) {
+	Type *elem_type = nullptr;
+
+
+	GB_ASSERT(elem_type != nullptr);
+	return lbValue{LLVMBuildStructGEP2(p->builder, lb_type(elem_type), value.value, index, ""), elem_type};
+}
+
 
 
 void lb_build_stmt(lbProcedure *p, Ast *node) {
 void lb_build_stmt(lbProcedure *p, Ast *node) {
 	switch (node->kind) {
 	switch (node->kind) {
@@ -517,7 +773,12 @@ void lb_build_stmt(lbProcedure *p, Ast *node) {
 		}
 		}
 
 
 		for_array(i, vd->values) {
 		for_array(i, vd->values) {
-			lbValue value = lb_build_expr(p, vd->values[i]);
+			Ast *expr = vd->values[i];
+			lbValue value = lb_build_expr(p, expr);
+			GB_ASSERT_MSG(value.type != nullptr, "%s", expr_to_string(expr));
+			if (is_type_tuple(value.type)) {
+
+			}
 			array_add(&values, value);
 			array_add(&values, value);
 		}
 		}
 
 
@@ -540,23 +801,51 @@ LLVMValueRef llvm_const_f32(f32 f, Type *type=t_f32) {
 	return LLVMConstBitCast(i, lb_type(type));
 	return LLVMConstBitCast(i, lb_type(type));
 }
 }
 
 
-lbValue lb_constant_value(Type *type, ExactValue const &value) {
+lbValue lb_constant_value(lbModule *m, Type *type, ExactValue const &value) {
+	lbValue res = {};
+	res.type = type;
 
 
 	switch (value.kind) {
 	switch (value.kind) {
 	case ExactValue_Invalid:
 	case ExactValue_Invalid:
-		return lbValue{LLVMConstNull(lb_type(type)), type};
+		res.value = LLVMConstNull(lb_type(type));
+		return res;
 	case ExactValue_Bool:
 	case ExactValue_Bool:
-		return lbValue{LLVMConstInt(lb_type(type), value.value_bool, false), type};
+		res.value = LLVMConstInt(lb_type(type), value.value_bool, false);
+		return res;
 	case ExactValue_String:
 	case ExactValue_String:
-		return lbValue{LLVMConstInt(lb_type(type), value.value_bool, false), type};
+		{
+			LLVMValueRef indices[2] = {lb_zero32, lb_zero32};
+			LLVMValueRef data = LLVMConstString(cast(char const *)value.value_string.text,
+			                                    cast(unsigned)value.value_string.len,
+			                                    false);
+			LLVMValueRef global_data = LLVMAddGlobal(m->mod, LLVMTypeOf(data), "test_string_data");
+			LLVMSetInitializer(global_data, data);
+
+			LLVMValueRef ptr = LLVMConstInBoundsGEP(global_data, indices, 2);
+
+			if (is_type_cstring(type)) {
+				res.value = ptr;
+				return res;
+			}
+
+			LLVMValueRef len = LLVMConstInt(lb_type(t_int), value.value_string.len, true);
+			LLVMValueRef values[2] = {ptr, len};
+
+			res.value = LLVMConstNamedStruct(lb_type(type), values, 2);
+			return res;
+		}
+
 	case ExactValue_Integer:
 	case ExactValue_Integer:
-		return lbValue{LLVMConstIntOfArbitraryPrecision(lb_type(type), cast(unsigned)value.value_integer.len, big_int_ptr(&value.value_integer)), type};
+		res.value = LLVMConstIntOfArbitraryPrecision(lb_type(type), cast(unsigned)value.value_integer.len, big_int_ptr(&value.value_integer));
+		return res;
 	case ExactValue_Float:
 	case ExactValue_Float:
 		if (type_size_of(type) == 4) {
 		if (type_size_of(type) == 4) {
 			f32 f = cast(f32)value.value_float;
 			f32 f = cast(f32)value.value_float;
-			return lbValue{llvm_const_f32(f, type), type};
+			res.value = llvm_const_f32(f, type);
+			return res;
 		}
 		}
-		return lbValue{LLVMConstReal(lb_type(type), value.value_float), type};
+		res.value = LLVMConstReal(lb_type(type), value.value_float);
+		return res;
 	case ExactValue_Complex:
 	case ExactValue_Complex:
 		{
 		{
 			LLVMValueRef values[2] = {};
 			LLVMValueRef values[2] = {};
@@ -571,7 +860,8 @@ lbValue lb_constant_value(Type *type, ExactValue const &value) {
 				break;
 				break;
 			}
 			}
 
 
-			return lbValue{LLVMConstStruct(values, 2, false)};
+			res.value = LLVMConstNamedStruct(lb_type(type), values, 2);
+			return res;
 		}
 		}
 		break;
 		break;
 	case ExactValue_Quaternion:
 	case ExactValue_Quaternion:
@@ -594,12 +884,14 @@ lbValue lb_constant_value(Type *type, ExactValue const &value) {
 				break;
 				break;
 			}
 			}
 
 
-			return lbValue{LLVMConstStruct(values, 4, false)};
+			res.value = LLVMConstNamedStruct(lb_type(type), values, 4);
+			return res;
 		}
 		}
 		break;
 		break;
 
 
 	case ExactValue_Pointer:
 	case ExactValue_Pointer:
-		return lbValue{LLVMConstBitCast(LLVMConstInt(lb_type(t_uintptr), value.value_pointer, false), lb_type(type)), type};
+		res.value = LLVMConstBitCast(LLVMConstInt(lb_type(t_uintptr), value.value_pointer, false), lb_type(type));
+		return res;
 
 
 	case ExactValue_Compound:
 	case ExactValue_Compound:
 		GB_PANIC("ExactValue_Compound");
 		GB_PANIC("ExactValue_Compound");
@@ -613,7 +905,7 @@ lbValue lb_constant_value(Type *type, ExactValue const &value) {
 	}
 	}
 
 
 	GB_PANIC("UNKNOWN ExactValue kind");
 	GB_PANIC("UNKNOWN ExactValue kind");
-	return lbValue{nullptr, type};
+	return res;
 }
 }
 
 
 lbValue lb_add_module_constant(lbModule *m, Type *type, ExactValue const &value) {
 lbValue lb_add_module_constant(lbModule *m, Type *type, ExactValue const &value) {
@@ -623,68 +915,92 @@ lbValue lb_add_module_constant(lbModule *m, Type *type, ExactValue const &value)
 		GB_PANIC("lb_add_module_constant -> slice");
 		GB_PANIC("lb_add_module_constant -> slice");
 	}
 	}
 
 
-	return lb_constant_value(type, value);
+	return lb_constant_value(m, type, value);
 }
 }
 
 
 lbValue lb_emit_arith(lbProcedure *p, TokenKind op, lbValue lhs, lbValue rhs, Type *type) {
 lbValue lb_emit_arith(lbProcedure *p, TokenKind op, lbValue lhs, lbValue rhs, Type *type) {
+	lbValue res = {};
+	res.type = type;
+
 	switch (op) {
 	switch (op) {
 	case Token_Add:
 	case Token_Add:
 		if (is_type_float(type)) {
 		if (is_type_float(type)) {
-			return lbValue{LLVMBuildFAdd(p->builder, lhs.value, rhs.value, ""), type};
+			res.value = LLVMBuildFAdd(p->builder, lhs.value, rhs.value, "");
+			return res;
 		}
 		}
-		return lbValue{LLVMBuildAdd(p->builder, lhs.value, rhs.value, ""), type};
+		res.value = LLVMBuildAdd(p->builder, lhs.value, rhs.value, "");
+		return res;
 	case Token_Sub:
 	case Token_Sub:
 		if (is_type_float(type)) {
 		if (is_type_float(type)) {
-			return lbValue{LLVMBuildFSub(p->builder, lhs.value, rhs.value, ""), type};
+			res.value = LLVMBuildFSub(p->builder, lhs.value, rhs.value, "");
+			return res;
 		}
 		}
-		return lbValue{LLVMBuildSub(p->builder, lhs.value, rhs.value, ""), type};
+		res.value = LLVMBuildSub(p->builder, lhs.value, rhs.value, "");
+		return res;
 	case Token_Mul:
 	case Token_Mul:
 		if (is_type_float(type)) {
 		if (is_type_float(type)) {
-			return lbValue{LLVMBuildFMul(p->builder, lhs.value, rhs.value, ""), type};
+			res.value = LLVMBuildFMul(p->builder, lhs.value, rhs.value, "");
+			return res;
 		}
 		}
-		return lbValue{LLVMBuildMul(p->builder, lhs.value, rhs.value, ""), type};
+		res.value = LLVMBuildMul(p->builder, lhs.value, rhs.value, "");
+		return res;
 	case Token_Quo:
 	case Token_Quo:
 		if (is_type_float(type)) {
 		if (is_type_float(type)) {
-			return lbValue{LLVMBuildFDiv(p->builder, lhs.value, rhs.value, ""), type};
+			res.value = LLVMBuildFDiv(p->builder, lhs.value, rhs.value, "");
+			return res;
 		} else if (is_type_unsigned(type)) {
 		} else if (is_type_unsigned(type)) {
-			return lbValue{LLVMBuildUDiv(p->builder, lhs.value, rhs.value, ""), type};
+			res.value = LLVMBuildUDiv(p->builder, lhs.value, rhs.value, "");
+			return res;
 		}
 		}
-		return lbValue{LLVMBuildSDiv(p->builder, lhs.value, rhs.value, ""), type};
+		res.value = LLVMBuildSDiv(p->builder, lhs.value, rhs.value, "");
+		return res;
 	case Token_Mod:
 	case Token_Mod:
 		if (is_type_float(type)) {
 		if (is_type_float(type)) {
-			return lbValue{LLVMBuildFRem(p->builder, lhs.value, rhs.value, ""), type};
+			res.value = LLVMBuildFRem(p->builder, lhs.value, rhs.value, "");
+			return res;
 		} else if (is_type_unsigned(type)) {
 		} else if (is_type_unsigned(type)) {
-			return lbValue{LLVMBuildURem(p->builder, lhs.value, rhs.value, ""), type};
+			res.value = LLVMBuildURem(p->builder, lhs.value, rhs.value, "");
+			return res;
 		}
 		}
-		return lbValue{LLVMBuildSRem(p->builder, lhs.value, rhs.value, ""), type};
+		res.value = LLVMBuildSRem(p->builder, lhs.value, rhs.value, "");
+		return res;
 	case Token_ModMod:
 	case Token_ModMod:
 		if (is_type_unsigned(type)) {
 		if (is_type_unsigned(type)) {
-			return lbValue{LLVMBuildURem(p->builder, lhs.value, rhs.value, ""), type};
+			res.value = LLVMBuildURem(p->builder, lhs.value, rhs.value, "");
+			return res;
 		} else {
 		} else {
 			LLVMValueRef a = LLVMBuildSRem(p->builder, lhs.value, rhs.value, "");
 			LLVMValueRef a = LLVMBuildSRem(p->builder, lhs.value, rhs.value, "");
 			LLVMValueRef b = LLVMBuildAdd(p->builder, a, rhs.value, "");
 			LLVMValueRef b = LLVMBuildAdd(p->builder, a, rhs.value, "");
 			LLVMValueRef c = LLVMBuildSRem(p->builder, b, rhs.value, "");
 			LLVMValueRef c = LLVMBuildSRem(p->builder, b, rhs.value, "");
-			return lbValue{c, type};
+			res.value = c;
+			return res;
 		}
 		}
 
 
 	case Token_And:
 	case Token_And:
-		return lbValue{LLVMBuildAnd(p->builder, lhs.value, rhs.value, ""), type};
+		res.value = LLVMBuildAnd(p->builder, lhs.value, rhs.value, "");
+		return res;
 	case Token_Or:
 	case Token_Or:
-		return lbValue{LLVMBuildOr(p->builder, lhs.value, rhs.value, ""), type};
+		res.value = LLVMBuildOr(p->builder, lhs.value, rhs.value, "");
+		return res;
 	case Token_Xor:
 	case Token_Xor:
-		return lbValue{LLVMBuildXor(p->builder, lhs.value, rhs.value, ""), type};
+		res.value = LLVMBuildXor(p->builder, lhs.value, rhs.value, "");
+		return res;
 	case Token_Shl:
 	case Token_Shl:
-		return lbValue{LLVMBuildShl(p->builder, lhs.value, rhs.value, ""), type};
+		res.value = LLVMBuildShl(p->builder, lhs.value, rhs.value, "");
+		return res;
 	case Token_Shr:
 	case Token_Shr:
 		if (is_type_unsigned(type)) {
 		if (is_type_unsigned(type)) {
-			return lbValue{LLVMBuildLShr(p->builder, lhs.value, rhs.value, ""), type};
+			res.value = LLVMBuildLShr(p->builder, lhs.value, rhs.value, "");
+			return res;
 		}
 		}
-		return lbValue{LLVMBuildAShr(p->builder, lhs.value, rhs.value, ""), type};
+		res.value = LLVMBuildAShr(p->builder, lhs.value, rhs.value, "");
+		return res;
 	case Token_AndNot:
 	case Token_AndNot:
 		{
 		{
 			LLVMValueRef all_ones = LLVMConstAllOnes(lb_type(type));
 			LLVMValueRef all_ones = LLVMConstAllOnes(lb_type(type));
 			LLVMValueRef new_rhs = LLVMBuildXor(p->builder, all_ones, rhs.value, "");
 			LLVMValueRef new_rhs = LLVMBuildXor(p->builder, all_ones, rhs.value, "");
-			return lbValue{LLVMBuildAnd(p->builder, lhs.value, new_rhs, ""), type};
+			res.value = LLVMBuildAnd(p->builder, lhs.value, new_rhs, "");
+			return res;
 		}
 		}
 		break;
 		break;
 	}
 	}
@@ -809,9 +1125,6 @@ lbValue lb_build_expr(lbProcedure *p, Ast *expr) {
 
 
 
 
 void lb_generate_module(lbGenerator *gen) {
 void lb_generate_module(lbGenerator *gen) {
-	gen->module.mod = LLVMModuleCreateWithName("odin_module");
-	map_init(&gen->module.values, heap_allocator());
-
 	LLVMModuleRef mod = gen->module.mod;
 	LLVMModuleRef mod = gen->module.mod;
 	CheckerInfo *info = gen->info;
 	CheckerInfo *info = gen->info;
 
 
@@ -824,6 +1137,8 @@ void lb_generate_module(lbGenerator *gen) {
 	auto *min_dep_set = &info->minimum_dependency_set;
 	auto *min_dep_set = &info->minimum_dependency_set;
 
 
 
 
+
+
 	for_array(i, info->entities) {
 	for_array(i, info->entities) {
 		// arena_free_all(&temp_arena);
 		// arena_free_all(&temp_arena);
 		// gbAllocator a = temp_allocator;
 		// gbAllocator a = temp_allocator;