diff options
author | Fabrice Le Fessant <Fabrice.Le_fessant@inria.fr> | 2014-05-09 12:01:21 +0000 |
---|---|---|
committer | Fabrice Le Fessant <Fabrice.Le_fessant@inria.fr> | 2014-05-09 12:01:21 +0000 |
commit | 457958a9e6ed855935beeea8720e854049864503 (patch) | |
tree | f8a9dbad4fae58a7d65a162a294883ce5697afc4 /bytecomp/bytepackager.ml | |
parent | b6500cc2a4ab8a50565247976da0ce17b3940587 (diff) | |
download | ocaml-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.ml | 6 |
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 |