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

fix list passing

Browse source
This commit is contained in:
Brendan Hansknecht 2022-02-24 22:46:50 -08:00
parent edfbd6242f
commit 889b189191
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
compiler/gen_llvm/src/llvm/build_list.rs
View file

@ -312,7 +312,7 @@ pub fn list_replace_unsafe<'a, 'ctx, 'env>(
UpdateMode::InPlace => call_bitcode_fn( UpdateMode::InPlace => call_bitcode_fn(
env, env,
&[ &[
list.into(), pass_list_cc(env, list),
index.into(), index.into(),
pass_element_as_opaque(env, element, *element_layout), pass_element_as_opaque(env, element, *element_layout),
layout_width(env, element_layout), layout_width(env, element_layout),
@ -323,7 +323,7 @@ pub fn list_replace_unsafe<'a, 'ctx, 'env>(
UpdateMode::Immutable => call_bitcode_fn( UpdateMode::Immutable => call_bitcode_fn(
env, env,
&[ &[
list.into(), pass_list_cc(env, list),
env.alignment_intvalue(element_layout), env.alignment_intvalue(element_layout),
index.into(), index.into(),
pass_element_as_opaque(env, element, *element_layout), pass_element_as_opaque(env, element, *element_layout),

4
compiler/test_gen/src/gen_list.rs
View file

@ -1710,7 +1710,7 @@ fn replace_unique_int_list() {
r#" r#"
result = List.replace [ 12, 9, 7, 1, 5 ] 2 33 result = List.replace [ 12, 9, 7, 1, 5 ] 2 33
when result is when result is
Ok {list, value} -> list Ok {list} -> list
Err _ -> [] Err _ -> []
"# "#
), ),
@ -1727,7 +1727,7 @@ fn replace_unique_int_list_get_old_value() {
r#" r#"
result = List.replace [ 12, 9, 7, 1, 5 ] 2 33 result = List.replace [ 12, 9, 7, 1, 5 ] 2 33
when result is when result is
Ok {list, value} -> value Ok {value} -> value
Err _ -> -1 Err _ -> -1
"# "#
), ),