language-servers/roc
1
0
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2025-10-02 08:11:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions 6

Fix List.first types

Browse source
This commit is contained in:
Richard Feldman 2020-06-24 23:08:25 -04:00
parent b3dfbeeec8
commit 0f36255f83
8 changed files with 90 additions and 62 deletions
Download patch file Download diff file Expand all files Collapse all files

17
compiler/gen/src/llvm/build.rs
View file

@ -1290,18 +1290,6 @@ fn run_low_level<'a, 'ctx, 'env>(
BasicValueEnum::IntValue(load_list_len(env.builder, arg.into_struct_value()))
}
ListIsEmpty => {
debug_assert_eq!(args.len(), 1);
let arg = build_expr(env, layout_ids, scope, parent, &args[0].0);
let list_struct = arg.into_struct_value();
let builder = env.builder;
let list_len = load_list_len(builder, list_struct);
let zero = env.ptr_int().const_zero();
let answer = builder.build_int_compare(IntPredicate::EQ, list_len, zero, "is_zero");
BasicValueEnum::IntValue(answer)
}
ListSingle => {
// List.single : a -> List a
debug_assert_eq!(args.len(), 1);
@ -1528,7 +1516,10 @@ fn run_low_level<'a, 'ctx, 'env>(
builder.build_load(elem_ptr, "List.get")
}
_ => {
unreachable!("Invalid List layout for List.get: {:?}", list_layout);
unreachable!(
"Invalid List layout for ListGetUnsafe operation: {:?}",
list_layout
);
}
}
}