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

add HigherOrderLowLevel

Browse source
This commit is contained in:
Folkert 2021-05-16 22:45:16 +02:00
parent e675bac893
commit 2b72f9e733
7 changed files with 394 additions and 324 deletions
Download patch file Download diff file Expand all files Collapse all files

43
compiler/mono/src/borrow.rs
View file

@ -407,29 +407,36 @@ impl<'a> BorrowInfState<'a> {
self.own_args(arguments);
}
LowLevel {
op,
opt_closure_layout,
LowLevel { op } => {
debug_assert!(!op.is_higher_order());
self.own_var(z);
let ps = lowlevel_borrow_signature(self.arena, *op);
self.own_args_using_bools(arguments, ps);
}
HigherOrderLowLevel {
op, closure_layout, ..
} => {
use roc_module::low_level::LowLevel::*;
match op {
ListMap => {
match self
.param_map
.get_symbol(arguments[1], opt_closure_layout.unwrap())
{
Some(ps) => {
if !ps[0].borrow {
self.own_var(arguments[0]);
}
if ps.len() > 1 && !ps[1].borrow {
self.own_var(arguments[2]);
}
debug_assert!(op.is_higher_order());
match op {
ListMap => match self.param_map.get_symbol(arguments[1], *closure_layout) {
Some(ps) => {
if !ps[0].borrow {
self.own_var(arguments[0]);
}
if ps.len() > 1 && !ps[1].borrow {
self.own_var(arguments[2]);
}
None => unreachable!(),
}
}
None => unreachable!(),
},
_ => {
// very unsure what demand RunLowLevel should place upon its arguments
self.own_var(z);