fix build with flambda1

Author: Ekdohibs

middle_end/flambda/flambda_to_clambda.ml

@@ -102,7 +102,7 @@ let clambda_arity (func : Flambda.function_declaration) : Clambda.arity =
   {
     function_kind = Curried {nlocal} ;
     params_layout = List.map Parameter.kind func.params ;
-    return_layout = assert false ; (* Need func.return *)
+    return_layout = Lambda.layout_top ; (* Need func.return *)
   }
 
 let check_field t ulam pos named_opt : Clambda.ulambda =
@@ -277,8 +277,8 @@ let rec to_clambda t env (flam : Flambda.t) : Clambda.ulambda =
     to_clambda_direct_apply t func args direct_func probe dbg reg_close mode env
   | Apply { func; args; kind = Indirect; probe = None; dbg; reg_close; mode } ->
     let callee = subst_var env func in
-    let args_layout = assert false in
-    let result_layout = assert false in
+    let args_layout = List.map (fun _ -> Lambda.layout_top) args in
+    let result_layout = Lambda.layout_top in
     Ugeneric_apply (check_closure t callee (Flambda.Expr (Var func)),
       subst_vars env args, args_layout, result_layout, (reg_close, mode), dbg)
   | Apply { probe = Some {name}; _ } ->
@@ -360,8 +360,8 @@ let rec to_clambda t env (flam : Flambda.t) : Clambda.ulambda =
     in
     Uassign (id, subst_var env new_value)
   | Send { kind; meth; obj; args; dbg; reg_close; mode } ->
-    let args_layout = assert false in
-    let result_layout = assert false in
+    let args_layout = List.map (fun _ -> Lambda.layout_top) args in
+    let result_layout = Lambda.layout_top in
     Usend (kind, subst_var env meth, subst_var env obj,
       subst_vars env args, args_layout, result_layout, (reg_close,mode), dbg)
   | Region body ->