summaryrefslogtreecommitdiff
path: root/bytecomp/bytepackager.ml
diff options
context:
space:
mode:
authorFabrice Le Fessant <Fabrice.Le_fessant@inria.fr>2014-05-09 12:01:21 +0000
committerFabrice Le Fessant <Fabrice.Le_fessant@inria.fr>2014-05-09 12:01:21 +0000
commit457958a9e6ed855935beeea8720e854049864503 (patch)
treef8a9dbad4fae58a7d65a162a294883ce5697afc4 /bytecomp/bytepackager.ml
parentb6500cc2a4ab8a50565247976da0ce17b3940587 (diff)
downloadocaml-457958a9e6ed855935beeea8720e854049864503.tar.gz
Add reset functions to make modules reentrant when used through compiler-libs
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14770 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'bytecomp/bytepackager.ml')
-rw-r--r--bytecomp/bytepackager.ml6
1 files changed, 6 insertions, 0 deletions
diff --git a/bytecomp/bytepackager.ml b/bytecomp/bytepackager.ml
index fcef71c8d3..3348f46dcd 100644
--- a/bytecomp/bytepackager.ml
+++ b/bytecomp/bytepackager.ml
@@ -297,3 +297,9 @@ let () =
| Error err -> Some (Location.error_of_printer_file report_error err)
| _ -> None
)
+
+let reset () =
+ relocs := [];
+ events := [];
+ primitives := [];
+ force_link := false