roc-lang/roc
1
1
Fork 0
mirror of https://github.com/roc-lang/roc.git synced 2024-11-10 10:02:38 +03:00
Code Issues Packages Projects Releases Wiki Activity

Resolve recursive pointer lambda set layouts when unpacking captures

Browse Source
This commit is contained in:
Ayaz Hafiz 2022-08-09 14:43:36 -07:00
parent 549b00d327
commit a4bb6879bc
No known key found for this signature in database
GPG Key ID: 0E2A37416A25EF58
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
crates/compiler/mono/src/ir.rs
View File

@ -3130,7 +3130,10 @@ fn specialize_external<'a>(
tag_id,
..
} => {
debug_assert!(matches!(union_layout, UnionLayout::NonRecursive(_)));
debug_assert!(matches!(
union_layout,
UnionLayout::NonRecursive(_) | UnionLayout::Recursive(_)
));
debug_assert_eq!(field_layouts.len(), captured.len());
// captured variables are in symbol-alphabetic order, but now we want
@ -3149,7 +3152,9 @@ fn specialize_external<'a>(
size2.cmp(&size1)
});
for (index, (symbol, layout)) in combined.iter().enumerate() {
for (index, (symbol, _)) in combined.iter().enumerate() {
let layout = union_layout.layout_at(tag_id, index);
let expr = Expr::UnionAtIndex {
tag_id,
structure: Symbol::ARG_CLOSURE,
@ -3162,7 +3167,7 @@ fn specialize_external<'a>(
specialized_body = Stmt::Let(
symbol,
expr,
**layout,
layout,
env.arena.alloc(specialized_body),
);
}