PR#1479

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5707 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
2003-07-17 13:55:37 +00:00 · 2003-07-17 13:55:37 +00:00 · 2b1476fde7
parent 840b2bf9f1
commit 2b1476fde7
1 changed files with 5 additions and 0 deletions
--- a/debugger/loadprinter.ml
+++ b/debugger/loadprinter.ml
@ -64,6 +64,11 @@ let rec loadfiles ppf name =
  try
    let filename = find_in_path !Config.load_path name in
    use_debugger_symtable Dynlink.loadfile filename;
+    let d = Filename.dirname name in
+    if d <> Filename.current_dir_name then begin
+      if not (List.mem d !Config.load_path) then
+        Config.load_path := d :: !Config.load_path;
+    end;
    fprintf ppf "File %s loaded@." filename;
    true
  with