fix oversight

This commit is contained in:
Folkert 2021-07-18 00:13:45 +02:00
parent e19b03f290
commit 5012b11129
3 changed files with 3 additions and 5 deletions

View file

@ -1198,13 +1198,14 @@ pub fn build_exp_expr<'a, 'ctx, 'env>(
let tag_id_type =
basic_type_from_layout(env, &union_layout.tag_id_layout()).into_int_type();
let ptr = tag_pointer_clear_tag_id(env, argument.into_pointer_value());
lookup_at_index_ptr2(
env,
tag_id_type,
union_layout,
field_layouts,
*index as usize,
argument.into_pointer_value(),
ptr,
)
}
UnionLayout::NullableUnwrapped {

View file

@ -19,9 +19,6 @@ fn basic_type_from_record<'a, 'ctx, 'env>(
.as_basic_type_enum()
}
//pub const fn store_tag_id_in_pointer<'a, 'ctx, 'env>(
// env: &crate::llvm::build::Env<'a, 'ctx, 'env>,
pub fn basic_type_from_layout<'a, 'ctx, 'env>(
env: &crate::llvm::build::Env<'a, 'ctx, 'env>,
layout: &Layout<'_>,

View file

@ -2077,7 +2077,7 @@ fn update<'a>(
&mut state.procedures,
);
// Proc::insert_refcount_operations(arena, &mut state.procedures);
Proc::insert_refcount_operations(arena, &mut state.procedures);
// display the mono IR of the module, for debug purposes
if roc_mono::ir::PRETTY_PRINT_IR_SYMBOLS {