Ajout de loadfile_private.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1020 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02master
parent
b225751e9f
commit
8d3c42faca
|
@ -148,6 +148,15 @@ let loadfile file_name =
|
|||
with 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 *)
|
||||
|
||||
let error_message = function
|
||||
|
|
|
@ -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
|
||||
available at run-time. The digests can be extracted from [.cmi]
|
||||
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
|
||||
(* Clear the list of compilation units accessible to dynamically-linked
|
||||
programs. *)
|
||||
|
|
Loading…
Reference in New Issue