flambda-backend: Temporary fix for incorrect layout for result of cus…

…tom and operators (#1119)
ocaml-flambda · Feb 14, 2023 · 50ee311 · 50ee311
1 parent c89512d
commit 50ee311
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lambda/translcore.ml b/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;