don't store with RecursivePointer layout

This commit is contained in:
Folkert 2021-01-10 21:33:53 +01:00
parent 3cbac76be8
commit c79e031a55

View file

@ -4802,6 +4802,12 @@ fn store_pattern<'a>(
for (index, (argument, arg_layout)) in arguments.iter().enumerate().rev() { for (index, (argument, arg_layout)) in arguments.iter().enumerate().rev() {
let index = if write_tag { index + 1 } else { index }; let index = if write_tag { index + 1 } else { index };
let mut arg_layout = arg_layout;
if let Layout::RecursivePointer = arg_layout {
arg_layout = layout;
}
let load = Expr::AccessAtIndex { let load = Expr::AccessAtIndex {
wrapped, wrapped,
index: index as u64, index: index as u64,