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

update StrGetUnsafe

Browse source
This commit is contained in:
Folkert 2022-07-24 13:34:14 +02:00
parent 100e439852
commit 05a7d76a5e
No known key found for this signature in database
GPG key ID: 1F17F6FFD112B97C
1 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

10
crates/compiler/gen_llvm/src/llvm/build.rs
View file

@ -5980,13 +5980,19 @@ fn run_low_level<'a, 'ctx, 'env>(
list_prepend(env, original_wrapper, elem, elem_layout)
}
StrGetUnsafe => {
// List.getUnsafe : List elem, Nat -> elem
// List.getUnsafe : Str, Nat -> u8
debug_assert_eq!(args.len(), 2);
let wrapper_struct = load_symbol(scope, &args[0]);
let elem_index = load_symbol(scope, &args[1]);
call_bitcode_fn(env, &[wrapper_struct, elem_index], bitcode::STR_GET_UNSAFE)
call_str_bitcode_fn(
env,
&[wrapper_struct],
&[elem_index],
BitcodeReturns::Basic,
bitcode::STR_GET_UNSAFE,
)
}
ListGetUnsafe => {
// List.getUnsafe : List elem, Nat -> elem