From ebcabb8a27ace67c3cd869a573df62b260000ee8 Mon Sep 17 00:00:00 2001 From: gingerBill Date: Sun, 11 Jul 2021 00:51:56 +0100 Subject: Add sanity conversion check for integer to quaternion --- src/llvm_backend.cpp | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) (limited to 'src/llvm_backend.cpp') diff --git a/src/llvm_backend.cpp b/src/llvm_backend.cpp index a457f5c57..c351876d4 100644 --- a/src/llvm_backend.cpp +++ b/src/llvm_backend.cpp @@ -8106,6 +8106,14 @@ lbValue lb_emit_conv(lbProcedure *p, lbValue value, Type *t) { return lb_addr_load(p, gen); } + if (is_type_integer(src) && is_type_complex(dst)) { + Type *ft = base_complex_elem_type(dst); + lbAddr gen = lb_add_local_generated(p, dst, true); + lbValue gp = lb_addr_get_ptr(p, gen); + lbValue real = lb_emit_conv(p, value, ft); + lb_emit_store(p, lb_emit_struct_ep(p, gp, 0), real); + return lb_addr_load(p, gen); + } if (is_type_float(src) && is_type_complex(dst)) { Type *ft = base_complex_elem_type(dst); lbAddr gen = lb_add_local_generated(p, dst, true); @@ -8114,6 +8122,17 @@ lbValue lb_emit_conv(lbProcedure *p, lbValue value, Type *t) { lb_emit_store(p, lb_emit_struct_ep(p, gp, 0), real); return lb_addr_load(p, gen); } + + + if (is_type_integer(src) && is_type_quaternion(dst)) { + Type *ft = base_complex_elem_type(dst); + lbAddr gen = lb_add_local_generated(p, dst, true); + lbValue gp = lb_addr_get_ptr(p, gen); + lbValue real = lb_emit_conv(p, value, ft); + // @QuaternionLayout + lb_emit_store(p, lb_emit_struct_ep(p, gp, 3), real); + return lb_addr_load(p, gen); + } if (is_type_float(src) && is_type_quaternion(dst)) { Type *ft = base_complex_elem_type(dst); lbAddr gen = lb_add_local_generated(p, dst, true); -- cgit v1.2.3