Permalink
Browse files

[fix] bslloading: reset all bsl structure beetween several package co…

…mpilation
  • Loading branch information...
1 parent af30b15 commit 3b1f95a60cfc3b1160fc5c7f0c32fe1a45ef0bcb @BourgerieQuentin BourgerieQuentin committed Sep 4, 2012
Showing with 8 additions and 1 deletion.
  1. +1 −0 compiler/libbsl/bslDynlink.ml
  2. +6 −1 compiler/libbsl/bslDynlink.mli
  3. +1 −0 compiler/opa/pass_BslLoading.ml
@@ -42,3 +42,4 @@ let load_bypass_plugin_cache bypass_plugin =
Hashtbl.add cache bypass_plugin () ;
load_bypass_plugin bypass_plugin
)
+let reset_cache () = Hashtbl.clear cache
@@ -1,5 +1,5 @@
(*
- Copyright © 2011 MLstate
+ Copyright © 2011, 2012 MLstate
This file is part of Opa.
@@ -61,6 +61,11 @@ val loadfile_private : bypass_plugin_file -> unit
*)
val load_bypass_plugin_cache : bypass_plugin_file -> unit
+(**
+ Reset the cache
+*)
+val reset_cache : unit -> unit
+
(** {6 Error reporting} *)
(**
@@ -108,6 +108,7 @@ let extralib_plugin : (plugin_name, string) Hashtbl.t = Hashtbl.create 16
let extrapath_plugin : (plugin_name, string) Hashtbl.t = Hashtbl.create 16
let reset () =
+ BslDynlink.reset_cache ();
BslPluginTable.clear ();
Hashtbl.clear already_seen_plugin;
Hashtbl.clear extrapath_plugin;

0 comments on commit 3b1f95a

Please sign in to comment.