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

fix oversight

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

3
compiler/gen_llvm/src/llvm/build.rs
View file

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

3
compiler/gen_llvm/src/llvm/convert.rs
View file

@ -19,9 +19,6 @@ fn basic_type_from_record<'a, 'ctx, 'env>(
.as_basic_type_enum() .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>( pub fn basic_type_from_layout<'a, 'ctx, 'env>(
env: &crate::llvm::build::Env<'a, 'ctx, 'env>, env: &crate::llvm::build::Env<'a, 'ctx, 'env>,
layout: &Layout<'_>, layout: &Layout<'_>,

2
compiler/load/src/file.rs
View file

@ -2077,7 +2077,7 @@ fn update<'a>(
&mut state.procedures, &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 // display the mono IR of the module, for debug purposes
if roc_mono::ir::PRETTY_PRINT_IR_SYMBOLS { if roc_mono::ir::PRETTY_PRINT_IR_SYMBOLS {