From d325c36eb8d9015db91b61d8049760aafd6ad66f Mon Sep 17 00:00:00 2001
From: gingerBill <bill@gingerbill.org>
Date: Wed, 7 Sep 2022 11:14:59 +0100
Subject: Fix procedure pointer cast

---
 src/llvm_backend_proc.cpp | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/llvm_backend_proc.cpp')

diff --git a/src/llvm_backend_proc.cpp b/src/llvm_backend_proc.cpp
index d9f4e0c0d..530c08944 100644
--- a/src/llvm_backend_proc.cpp
+++ b/src/llvm_backend_proc.cpp
@@ -736,6 +736,9 @@ lbValue lb_emit_call_internal(lbProcedure *p, lbValue value, lbValue return_ptr,
 	}
 	for_array(i, processed_args) {
 		lbValue arg = processed_args[i];
+		if (is_type_proc(arg.type)) {
+			arg.value = LLVMBuildPointerCast(p->builder, arg.value, lb_type(p->module, arg.type), "");
+		}
 		args[arg_index++] = arg.value;
 	}
 	if (context_ptr.addr.value != nullptr) {
-- 
cgit v1.2.3