fix index bug in recursive decrements

This commit is contained in:
Folkert 2023-04-17 14:09:49 +02:00
parent e0b5a76a04
commit c848a85eb4
No known key found for this signature in database
GPG key ID: 1F17F6FFD112B97C
3 changed files with 54 additions and 6 deletions

View file

@ -496,3 +496,33 @@ fn boxed_str_dec() {
]
);
}
#[test]
#[cfg(any(feature = "gen-wasm"))]
fn non_nullable_unwrapped_alignment_8() {
assert_refcounts!(
indoc!(
r#"
Expr : [ZAdd Expr Expr, Val I64, Var I64]
eval : Expr -> I64
eval = \e ->
when e is
Var _ -> 0
Val v -> v
ZAdd l r -> eval l + eval r
expr : Expr
expr = (ZAdd (Val 4) (Val 5))
eval expr
"#
),
i64,
&[
Deallocated, // Val 4
Deallocated, // Val 5
Deallocated, // ZAdd _ _
]
);
}