Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Flambda: Remove redundant recursive import for packs (#10022)

master
Vincent Laviron 2020-11-26 14:14:35 +01:00 committed by GitHub
parent fcaab503fc
commit 082bdf545d
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
middle_end/flambda/export_info_for_pack.ml
View File

@ -136,20 +136,8 @@ let rec import_code_for_pack units pack expr =
and import_function_declarations_for_pack_aux units pack
(function_decls : Flambda.function_declarations) =
let funs =
Variable.Map.map
(fun (function_decl : Flambda.function_declaration) ->
Flambda.create_function_declaration ~params:function_decl.params
~body:(import_code_for_pack units pack function_decl.body)
~stub:function_decl.stub ~dbg:function_decl.dbg
~inline:function_decl.inline
~specialise:function_decl.specialise
~is_a_functor:function_decl.is_a_functor
~closure_origin:function_decl.closure_origin)
function_decls.funs
in
Flambda.import_function_declarations_for_pack
(Flambda.update_function_declarations function_decls ~funs)
function_decls
(import_set_of_closures_id_for_pack units pack)
(import_set_of_closures_origin_for_pack units pack)