language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-07-24 15:03:46 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

use build_gep to avoid build_int_to_ptr

Browse source
This commit is contained in:
J.Teeuwissen 2023-06-06 16:10:12 +02:00 • committed by Folkert
parent 052ce8f2aa
commit 21d1835406
No known key found for this signature in database
GPG key ID: 1F17F6FFD112B97C
1 changed files with 15 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

22
crates/compiler/gen_llvm/src/llvm/build.rs
View file

@ -1961,20 +1961,28 @@ pub fn tag_pointer_clear_tag_id<'ctx>(
) -> PointerValue<'ctx> {
let ptr_int = env.ptr_int();
let (tag_id_bits_mask, _) = tag_pointer_tag_id_bits_and_mask(env.target_info);
let (_, tag_id_bits_mask) = tag_pointer_tag_id_bits_and_mask(env.target_info);
let as_int = env.builder.build_ptr_to_int(pointer, ptr_int, "to_int");
let mask = {
let a = env.ptr_int().const_all_ones();
let tag_id_bits = env.ptr_int().const_int(tag_id_bits_mask, false);
env.builder.build_left_shift(a, tag_id_bits, "make_mask")
};
let mask = env.ptr_int().const_int(tag_id_bits_mask, false);
let masked = env.builder.build_and(as_int, mask, "masked");
let zero = env.ptr_int().const_zero();
let index = env.builder.build_int_sub(zero, masked, "index");
let cast_pointer = env.builder.build_pointer_cast(
pointer,
env.context.i8_type().ptr_type(AddressSpace::default()),
"cast_to_i8_ptr",
);
let indexed_pointer = unsafe { env.builder.build_gep(cast_pointer, &[index], "new_ptr") };
env.builder
.build_int_to_ptr(masked, pointer.get_type(), "to_ptr")
.build_pointer_cast(indexed_pointer, pointer.get_type(), "cast_from_i8_ptr")
}
fn allocate_tag<'a, 'ctx>(