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

get basic tests passing

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

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

@ -309,7 +309,7 @@ pub fn list_replace_unsafe<'a, 'ctx, 'env>(
// Assume the bounds have already been checked earlier // Assume the bounds have already been checked earlier
// (e.g. by List.replace or List.set, which wrap List.#replaceUnsafe) // (e.g. by List.replace or List.set, which wrap List.#replaceUnsafe)
let new_list = match update_mode { let new_list = match update_mode {
UpdateMode::InPlace => call_bitcode_fn( UpdateMode::InPlace => call_list_bitcode_fn(
env, env,
&[ &[
pass_list_cc(env, list), pass_list_cc(env, list),
@ -320,7 +320,7 @@ pub fn list_replace_unsafe<'a, 'ctx, 'env>(
], ],
bitcode::LIST_REPLACE_IN_PLACE, bitcode::LIST_REPLACE_IN_PLACE,
), ),
UpdateMode::Immutable => call_bitcode_fn( UpdateMode::Immutable => call_list_bitcode_fn(
env, env,
&[ &[
pass_list_cc(env, list), pass_list_cc(env, list),
@ -351,11 +351,11 @@ pub fn list_replace_unsafe<'a, 'ctx, 'env>(
let result = env let result = env
.builder .builder
.build_insert_value(result, old_element, 0, "insert_value") .build_insert_value(result, new_list, 0, "insert_list")
.unwrap(); .unwrap();
env.builder env.builder
.build_insert_value(result, new_list, 1, "insert_list") .build_insert_value(result, old_element, 1, "insert_value")
.unwrap() .unwrap()
.into_struct_value() .into_struct_value()
.into() .into()