From 8995e5828ebfe933b74d0c3704c0524a63c73467 Mon Sep 17 00:00:00 2001

From: Florian Angeletti <florian.angeletti@inria.fr>

Date: Fri, 27 Sep 2019 17:15:26 +0200

Subject: [PATCH 06/12] Merge pull request #8988 from Octachron/fix_ocamlnat

Fix ocamlnat

(cherry picked from commit afb90bdf7476a92c024eee2e5745ed85200c654b)

---

 toplevel/opttoploop.ml | 2 +-

 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/toplevel/opttoploop.ml b/toplevel/opttoploop.ml

index 0d1f73921..0174a9ab5 100644

--- a/toplevel/opttoploop.ml

+++ b/toplevel/opttoploop.ml

@@ -257,7 +257,7 @@ let load_lambda ppf ~module_ident ~required_globals lam size =

   else

     Asmgen.compile_implementation_flambda

       ~required_globals ~backend ~toplevel:need_symbol fn ~ppf_dump:ppf

-      (Flambda_middle_end.middle_end ~ppf_dump:ppf ~prefixname:"" ~backend ~size

+      (Flambda_middle_end.middle_end ~ppf_dump:ppf ~prefixname:fn ~backend ~size

          ~module_ident ~module_initializer:slam ~filename:"toplevel");

   Asmlink.call_linker_shared [fn ^ ext_obj] dll;

   Sys.remove (fn ^ ext_obj);

-- 

2.23.0