We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
default
match
1 parent f0aa212 commit 8b65788Copy full SHA for 8b65788
lib/fulminate/cn_to_ail.ml
@@ -1783,7 +1783,17 @@ let rec cn_to_ail_expr_aux
1783
}
1784
in
1785
let e1_transformed = transform_switch_expr e1 in
1786
- let ail_case_stmts = List.map build_case dt.cn_dt_cases in
+ let ail_case_stmts =
1787
+ List.map build_case dt.cn_dt_cases
1788
+ @ [ mk_stmt
1789
+ (AilSdefault
1790
+ (mk_stmt
1791
+ (AilSreturn
1792
+ (mk_expr
1793
+ (AilEconst
1794
+ (ConstantInteger (IConstant (Z.zero, Decimal, None))))))))
1795
+ ]
1796
+ in
1797
let switch =
1798
A.(
1799
AilSswitch
0 commit comments