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

make things compile

Browse source
This commit is contained in:
Folkert 2021-06-24 20:31:14 +02:00
parent 2355bbf815
commit a05d8b52c0
3 changed files with 42 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

32
compiler/gen_llvm/src/llvm/bitcode.rs
View file

@ -134,30 +134,18 @@ fn build_has_tag_id_help<'a, 'ctx, 'env>(
)
.into_pointer_value();
let input = env.builder.build_load(argument_cast, "get_value");
let tag_value = env.builder.build_load(argument_cast, "get_value");
let tag_value = crate::llvm::build::extract_tag_discriminant(
env,
function_value,
union_layout,
input,
);
let actual_tag_id = {
let tag_id_i64 = crate::llvm::build::extract_tag_discriminant(
env,
function_value,
union_layout,
tag_value,
);
let actual_tag_id =
env.builder
.build_int_cast(tag_value, env.context.i16_type(), "to_i16");
let data_ptr = {
let index = env
.context
.i64_type()
.const_int(TAG_DATA_INDEX as u64, false);
let ptr = unsafe {
env.builder
.build_in_bounds_gep(argument_cast, &[index], "get_tag_id")
};
env.builder.build_bitcast(ptr, i8_ptr_type, "to_opaque")
.build_int_cast(tag_id_i64, env.context.i16_type(), "to_i16")
};
let answer = env.builder.build_int_compare(
@ -167,7 +155,7 @@ fn build_has_tag_id_help<'a, 'ctx, 'env>(
"compare",
);
let field_vals = [(0, answer.into()), (1, data_ptr)];
let field_vals = [(0, answer.into()), (1, *tag_value_ptr)];
let output = struct_from_fields(env, output_type, field_vals.iter().copied());