ed/Odin
1
0
Fork 0
mirror of https://github.com/Ed94/Odin.git synced 2026-08-07 16:18:52 +00:00
Code Issues Packages Projects Releases Wiki Activity

LLVM API fixes: for in ^map; complex/quaternion negation

Browse Source
This commit is contained in:
gingerBill
2020-03-28 15:42:46 +00:00
parent b98a4c6d69
commit 6d6f8f8da9
1 changed files with 25 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/llvm_backend.cpp
+25 -5
View File
@@ -2459,11 +2459,9 @@ void lb_build_range_stmt(lbProcedure *p, AstRangeStmt *rs) {
switch (et->kind) { switch (et->kind) {
case Type_Map: { case Type_Map: {
is_map = true; is_map = true;
gbAllocator a = heap_allocator(); lbValue map = lb_build_addr_ptr(p, expr);
lbAddr addr = lb_build_addr(p, expr); if (is_type_pointer(type_deref(map.type))) {
lbValue map = lb_addr_get_ptr(p, addr); map = lb_emit_load(p, map);
if (is_type_pointer(type_deref(lb_addr_type(addr)))) {
map = lb_addr_load(p, addr);
} }
lbValue entries_ptr = lb_map_entries_ptr(p, map); lbValue entries_ptr = lb_map_entries_ptr(p, map);
lbValue count_ptr = lb_emit_struct_ep(p, entries_ptr, 1); lbValue count_ptr = lb_emit_struct_ep(p, entries_ptr, 1);
@@ -4420,6 +4418,28 @@ lbValue lb_emit_unary_arith(lbProcedure *p, TokenKind op, lbValue x, Type *type)
res.value = LLVMBuildNeg(p->builder, x.value, ""); res.value = LLVMBuildNeg(p->builder, x.value, "");
} else if (is_type_float(x.type)) { } else if (is_type_float(x.type)) {
res.value = LLVMBuildFNeg(p->builder, x.value, ""); res.value = LLVMBuildFNeg(p->builder, x.value, "");
} else if (is_type_complex(x.type)) {
LLVMValueRef v0 = LLVMBuildFNeg(p->builder, LLVMBuildExtractValue(p->builder, x.value, 0, ""), "");
LLVMValueRef v1 = LLVMBuildFNeg(p->builder, LLVMBuildExtractValue(p->builder, x.value, 1, ""), "");
lbAddr addr = lb_add_local_generated(p, x.type, false);
LLVMBuildStore(p->builder, v0, LLVMBuildStructGEP(p->builder, addr.addr.value, 0, ""));
LLVMBuildStore(p->builder, v1, LLVMBuildStructGEP(p->builder, addr.addr.value, 1, ""));
return lb_addr_load(p, addr);
} else if (is_type_quaternion(x.type)) {
LLVMValueRef v0 = LLVMBuildFNeg(p->builder, LLVMBuildExtractValue(p->builder, x.value, 0, ""), "");
LLVMValueRef v1 = LLVMBuildFNeg(p->builder, LLVMBuildExtractValue(p->builder, x.value, 1, ""), "");
LLVMValueRef v2 = LLVMBuildFNeg(p->builder, LLVMBuildExtractValue(p->builder, x.value, 2, ""), "");
LLVMValueRef v3 = LLVMBuildFNeg(p->builder, LLVMBuildExtractValue(p->builder, x.value, 3, ""), "");
lbAddr addr = lb_add_local_generated(p, x.type, false);
LLVMBuildStore(p->builder, v0, LLVMBuildStructGEP(p->builder, addr.addr.value, 0, ""));
LLVMBuildStore(p->builder, v1, LLVMBuildStructGEP(p->builder, addr.addr.value, 1, ""));
LLVMBuildStore(p->builder, v2, LLVMBuildStructGEP(p->builder, addr.addr.value, 2, ""));
LLVMBuildStore(p->builder, v3, LLVMBuildStructGEP(p->builder, addr.addr.value, 3, ""));
return lb_addr_load(p, addr);
} else { } else {
GB_PANIC("Unhandled type %s", type_to_string(x.type)); GB_PANIC("Unhandled type %s", type_to_string(x.type));
} }