Implement list return in LLVM

Author: Smit-create

src/libasr/codegen/asr_to_llvm.cpp

@@ -2603,6 +2603,22 @@ class ASRToLLVMVisitor : public ASR::BaseVisitor<ASRToLLVMVisitor>
                     return_type = tuple_api->get_tuple_type(type_code, llvm_el_types);
                     break;
                 }
+                case (ASR::ttypeType::List) : {
+                    bool is_array_type = false, is_malloc_array_type = false;
+                    bool is_list = true;
+                    ASR::dimension_t *m_dims = nullptr;
+                    ASR::storage_typeType m_storage = ASR::storage_typeType::Default;
+                    int n_dims = 0, a_kind = -1;
+                    ASR::List_t* asr_list = ASR::down_cast<ASR::List_t>(return_var_type0);
+                    llvm::Type* el_llvm_type = get_type_from_ttype_t(asr_list->m_type, m_storage,
+                                                                     is_array_type,
+                                                                     is_malloc_array_type,
+                                                                     is_list, m_dims, n_dims,
+                                                                     a_kind);
+                    std::string el_type_code = ASRUtils::get_type_code(asr_list->m_type);
+                    return_type = list_api->get_list_type(el_llvm_type, el_type_code, a_kind);
+                    break;
+                }
                 default :
                     LFORTRAN_ASSERT(false);
                     throw CodeGenError("Type not implemented");
@@ -2967,11 +2983,15 @@ class ASRToLLVMVisitor : public ASR::BaseVisitor<ASRToLLVMVisitor>
             this->visit_expr(*x.m_value);
             llvm::Value* value_list = tmp;
             ptr_loads = ptr_loads_copy;
-            ASR::List_t* value_asr_list = ASR::down_cast<ASR::List_t>(
-                                            ASRUtils::expr_type(x.m_value));
-            std::string value_type_code = ASRUtils::get_type_code(value_asr_list->m_type);
-            list_api->list_deepcopy(value_list, target_list,
-                                    value_asr_list, *module);
+            if (ASR::is_a<ASR::FunctionCall_t>(*x.m_value)) {
+                builder->CreateStore(value_list, target_list);
+            } else {
+                ASR::List_t* value_asr_list = ASR::down_cast<ASR::List_t>(
+                                                ASRUtils::expr_type(x.m_value));
+                std::string value_type_code = ASRUtils::get_type_code(value_asr_list->m_type);
+                list_api->list_deepcopy(value_list, target_list,
+                                        value_asr_list, *module);
+            }
             return ;
         } else if( is_target_tuple && is_value_tuple ) {
             uint64_t ptr_loads_copy = ptr_loads;