PR#5647: Cannot use install_printer in debugger

xclerc · xclerc · commit fa0e0b6ba740 · 2012-07-09T12:40:43.000Z
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@12672 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
diff --git a/Changes b/Changes
@@ -159,6 +159,7 @@ Bug Fixes:
 - PR#5620: invalid printing of type manifest (camlp4 revised syntax)
 - PR#5637: invalid printing of anonymous type parameters (camlp4 revised syntax)
 - PR#5643: issues with .cfi and .loc directives generated by ocamlopt -g
+- PR#5647: Cannot use install_printer in debugger
 - PR#5651: printer for abstract data type (camlp4 revised syntax)
 - PR#5655: ocamlbuild doesn't pass cflags when building C stubs
 - PR#5661: fixes for the test suite
diff --git a/debugger/loadprinter.ml b/debugger/loadprinter.ml
@@ -95,6 +95,15 @@ let rec eval_path = function
 
 (* Install, remove a printer (as in toplevel/topdirs) *)
 
+(* since 4.00, "topdirs.cmi" is not in the same directory as the standard
+  libray, so we load it beforehand as it cannot be found in the search path. *)
+let () =
+  let compiler_libs =
+    Filename.concat Config.standard_library "compiler-libs" in
+  let topdirs =
+    Filename.concat compiler_libs "topdirs.cmi" in
+  ignore (Env.read_signature "Topdirs" topdirs)
+
 let match_printer_type desc typename =
   let (printer_type, _) =
     try
