diff options
author | mdenes <mdenes@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-07-06 23:55:57 +0000 |
---|---|---|
committer | mdenes <mdenes@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-07-06 23:55:57 +0000 |
commit | d135b02a31b0ec84b61726a3d0aa7301b08a48ad (patch) | |
tree | 64779e6811d76df70a8c07738756f4e825dde031 /kernel/nativelibrary.ml | |
parent | 931bd73212b0095d8c50e0355ee66faa32bf8db6 (diff) |
Fixing a bug in the native compiler, introduced by r16363, leading to undefined
variables in the generated code.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16619 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/nativelibrary.ml')
-rw-r--r-- | kernel/nativelibrary.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/kernel/nativelibrary.ml b/kernel/nativelibrary.ml index 8026eef79..acb740cd0 100644 --- a/kernel/nativelibrary.ml +++ b/kernel/nativelibrary.ml @@ -45,6 +45,7 @@ let dump_library mp dp env mod_expr = let env = add_signature mp msb empty_delta_resolver env in let prefix = mod_uid_of_dirpath dp ^ "." in let t0 = Sys.time () in + clear_global_tbl (); clear_symb_tbl (); let mlcode, upds = List.fold_left (translate_field prefix mp env) ([],empty_updates) msb |