language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-09-27 22:09:09 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

llvm RefCountIsUnique without zig

Browse source
This commit is contained in:
J.Teeuwissen 2023-04-30 16:22:13 +02:00
parent e2042debfd
commit 9c286ea8f2
No known key found for this signature in database
GPG key ID: DB5F7A1ED8D478AD
1 changed files with 15 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

18
crates/compiler/gen_llvm/src/llvm/lowlevel.rs
View file

@ -25,7 +25,7 @@ use crate::llvm::{
},
build::{
complex_bitcast_check_size, create_entry_block_alloca, function_value_by_func_spec,
load_roc_value, roc_function_call, BuilderExt, RocReturn,
load_roc_value, roc_function_call, tag_pointer_clear_tag_id, BuilderExt, RocReturn,
},
build_list::{
list_append_unsafe, list_concat, list_drop_at, list_get_unsafe, list_len, list_map,
@ -42,6 +42,7 @@ use crate::llvm::{
LLVM_LOG, LLVM_MUL_WITH_OVERFLOW, LLVM_POW, LLVM_ROUND, LLVM_SIN, LLVM_SQRT,
LLVM_SUB_SATURATED, LLVM_SUB_WITH_OVERFLOW,
},
refcounting::PointerToRefcount,
};
use super::{build::throw_internal_exception, convert::zig_with_overflow_roc_dec};
@ -1252,7 +1253,7 @@ pub(crate) fn run_low_level<'a, 'ctx>(
}
RefCountIsUnique => {
arguments!(data_ptr);
arguments_with_layouts!((data_ptr, data_layout));
let ptr = env.builder.build_pointer_cast(
data_ptr.into_pointer_value(),
@ -1260,7 +1261,18 @@ pub(crate) fn run_low_level<'a, 'ctx>(
"cast_to_i8_ptr",
);
call_bitcode_fn(env, &[ptr.into()], bitcode::UTILS_IS_UNIQUE)
let value_ptr = match layout_interner.get(data_layout) {
Layout::Union(union_layout)
if union_layout.stores_tag_id_in_pointer(env.target_info) =>
{
tag_pointer_clear_tag_id(env, ptr)
}
_ => ptr,
};
let refcount_ptr = PointerToRefcount::from_ptr_to_data(env, value_ptr);
BasicValueEnum::IntValue(refcount_ptr.is_1(env))
}
Unreachable => match RocReturn::from_layout(env, layout_interner, layout) {