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

Don't pass empty captures

Browse source
This commit is contained in:
Ayaz Hafiz 2023-07-06 15:45:49 -05:00
parent 13c45151a4
commit fcb907b0c9
No known key found for this signature in database
GPG key ID: 0E2A37416A25EF58
3 changed files with 13 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

6
crates/compiler/mono/src/ir.rs
View file

@ -5287,9 +5287,13 @@ pub fn with_hole<'a>(
unreachable!("a closure syntactically always must have at least one argument")
}
RawFunctionLayout::ErasedFunction(argument_layouts, ret_layout) => {
let captured_symbols = if captured_symbols.is_empty() {
CapturedSymbols::None
} else {
let captured_symbols = Vec::from_iter_in(captured_symbols, env.arena);
let captured_symbols = captured_symbols.into_bump_slice();
let captured_symbols = CapturedSymbols::Captured(captured_symbols);
CapturedSymbols::Captured(captured_symbols)
};
let resolved_erased_lambda = ResolvedErasedLambda::new(
env,
layout_cache,

2
crates/compiler/mono/src/ir/erased.rs
View file

@ -368,11 +368,13 @@ pub fn build_erased_function<'a>(
}
}
#[derive(Debug)]
struct ResolvedErasedCaptures<'a> {
layouts: &'a [InLayout<'a>],
symbols: &'a [Symbol],
}
#[derive(Debug)]
pub struct ResolvedErasedLambda<'a> {
captures: Option<ResolvedErasedCaptures<'a>>,
lambda_name: LambdaName<'a>,

10
crates/compiler/uitest/tests/lambda_set/erased/multi_branch_capturing.txt
View file

@ -21,10 +21,8 @@ procedure Test.1 (Test.2):
let Test.34 : Int1 = CallByName Bool.2;
if Test.34 then
dec Test.2;
let Test.40 : {} = Struct {};
let Test.38 : Boxed({}) = Box Test.40;
let Test.39 : FunPtr(({}, ?Erased) -> Str) = FunctionPointer Test.3;
let Test.35 : ?Erased = ErasedMake { value: Test.38, callee: Test.39 };
let Test.38 : FunPtr(({}) -> Str) = FunctionPointer Test.3;
let Test.35 : ?Erased = ErasedMake { value: <null>, callee: Test.38 };
ret Test.35;
else
let Test.33 : {Str} = Struct {Test.2};
@ -56,8 +54,8 @@ procedure Test.4 (Test.27, #Attr.12):
procedure Test.0 ():
let Test.6 : {} = Struct {};
let Test.16 : Str = "";
let Test.41 : FunPtr((Str) -> ?Erased) = FunctionPointer Test.1;
let Test.17 : ?Erased = ErasedMake { value: <null>, callee: Test.41 };
let Test.39 : FunPtr((Str) -> ?Erased) = FunctionPointer Test.1;
let Test.17 : ?Erased = ErasedMake { value: <null>, callee: Test.39 };
joinpoint Test.18 Test.7:
joinpoint Test.8 Test.5:
ret Test.5;