flambda-backend: Fix result layout of combined applications (#1963)

ocaml-flambda · Oct 26, 2023 · 8bd0b80 · 8bd0b80
1 parent 91d3de7
commit 8bd0b80
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lambda/translcore.ml b/lambda/translcore.ml
@@ -1110,7 +1110,7 @@ and transl_apply ~scopes
       (Rc_normal | Rc_nontail) ->
         Lapply
           {ap with ap_args = ap.ap_args @ args; ap_loc = loc;
-                   ap_region_close = pos; ap_mode = mode}
+                   ap_region_close = pos; ap_mode = mode; ap_result_layout = result_layout }
     | lexp, _ ->
         Lapply {
           ap_loc=loc;