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

PR#1479 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5707 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Damien Doligez 2003-07-17 13:55:37 +00:00
parent 840b2bf9f1
commit 2b1476fde7
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
debugger/loadprinter.ml
View File

@ -64,6 +64,11 @@ let rec loadfiles ppf name =
try try
let filename = find_in_path !Config.load_path name in let filename = find_in_path !Config.load_path name in
use_debugger_symtable Dynlink.loadfile filename; 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; fprintf ppf "File %s loaded@." filename;
true true
with with