Temporary fix for incorrect layout for result of custom and operators (…

…ocaml-flambda#1119)
mshinwell · Feb 14, 2023 · 61e6519 · 61e6519
1 parent 91faf9e
commit 61e6519
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/ocaml/lambda/translcore.ml b/ocaml/lambda/translcore.ml
@@ -1512,7 +1512,7 @@ and transl_letop ~scopes loc env let_ ands param case partial warnings =
                ap_loc = of_location ~scopes and_.bop_loc;
                ap_func = op;
                ap_args=[Lvar left_id; Lvar right_id];
-               ap_result_layout = layout;
+               ap_result_layout = Lambda.layout_top;
                ap_region_close=Rc_normal;
                ap_mode=alloc_heap;
                ap_tailcall = Default_tailcall;