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

Ajout de loadfile_private. 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1020 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1996-09-24 15:45:32 +00:00
parent b225751e9f
commit 8d3c42faca
2 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
otherlibs/dynlink/dynlink.ml
View File

@ -148,6 +148,15 @@ let loadfile file_name =
with exc -> with exc ->
close_in ic; raise exc close_in ic; raise exc
let loadfile_private file_name =
let initial_symtable = Symtable.current_state() in
try
loadfile file_name;
Symtable.hide_additions initial_symtable
with exn ->
Symtable.hide_additions initial_symtable;
raise exn
(* Error report *) (* Error report *)
let error_message = function let error_message = function

2
otherlibs/dynlink/dynlink.mli
View File

@ -44,7 +44,7 @@ val add_available_units : (string * Digest.t) list -> unit
for each unit. This way, the [.cmi] interface files need not be for each unit. This way, the [.cmi] interface files need not be
available at run-time. The digests can be extracted from [.cmi] available at run-time. The digests can be extracted from [.cmi]
files using the [extract_crc] program installed in the files using the [extract_crc] program installed in the
Objective Caml standard library directory. *) Objective Caml standard library directory. *)
val clear_available_units : unit -> unit val clear_available_units : unit -> unit
(* Clear the list of compilation units accessible to dynamically-linked (* Clear the list of compilation units accessible to dynamically-linked
programs. *) programs. *)