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

WIP things seem to work in theory

Browse source
This commit is contained in:
Folkert 2020-03-18 16:44:53 +01:00
parent 845e30658e
commit 53bd47221c
6 changed files with 213 additions and 137 deletions
Download patch file Download diff file Expand all files Collapse all files

8
compiler/mono/src/expr.rs
View file

@ -200,6 +200,7 @@ pub enum Expr<'a> {
index: u64,
field_layouts: &'a [Layout<'a>],
expr: &'a Expr<'a>,
is_unwrapped: bool,
},
Array {
@ -893,11 +894,11 @@ fn store_pattern2<'a>(
AppliedTag {
union, arguments, ..
} => {
let is_unwrapped = (union.alternatives.len() > 1) as usize;
let is_unwrapped = union.alternatives.len() == 1;
let mut arg_layouts = Vec::with_capacity_in(arguments.len(), env.arena);
if is_unwrapped != 0 {
if !is_unwrapped {
arg_layouts.push(Layout::Builtin(Builtin::Byte(MutMap::default())));
}
@ -907,7 +908,8 @@ fn store_pattern2<'a>(
for (index, (argument, arg_layout)) in arguments.iter().enumerate() {
let load = Expr::AccessAtIndex {
index: (is_unwrapped + index) as u64,
is_unwrapped,
index: (!is_unwrapped as usize + index) as u64,
field_layouts: arg_layouts.clone().into_bump_slice(),
expr: env.arena.alloc(Expr::Load(outer_symbol)),
};