diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-04-09 12:25:19 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-04-09 12:25:19 +0000 |
| commit | 25f601985661272aa7334a64c4e137217de351b3 (patch) | |
| tree | 03d64d39fe1eab572093b61b03735acaa4c4bf4d /library | |
| parent | 1b96a8ce6b315f65b0b099e3d16e8bb9bc6ac082 (diff) | |
Synchronisation avec reset
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3883 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'library')
| -rw-r--r-- | library/impargs.ml | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/library/impargs.ml b/library/impargs.ml index 9faa5a7f2..a1b2f0a25 100644 --- a/library/impargs.ml +++ b/library/impargs.ml @@ -272,7 +272,7 @@ let auto_implicits env ty = if Options.do_translate () then impl, if !implicit_args_out then - (let l = compute_implicits false env ty in + (let l = compute_implicits true env ty in Impl_auto (!strict_implicit_args_out,!contextual_implicit_args_out,l)) else No_impl else @@ -483,11 +483,6 @@ let is_implicit_var id = (*s Registration as global tables *) -type frozen_t = implicits KNmap.t - * implicits Indmap.t - * implicits Constrmap.t - * implicits Idmap.t - let init () = constants_table := KNmap.empty; inductives_table := Indmap.empty; @@ -495,10 +490,18 @@ let init () = var_table := Idmap.empty let freeze () = - (!constants_table, !inductives_table, + (!implicit_args,!strict_implicit_args,!contextual_implicit_args, + !implicit_args_out,!strict_implicit_args_out,!contextual_implicit_args_out, + !constants_table, !inductives_table, !constructors_table, !var_table) -let unfreeze (ct,it,const,vt) = +let unfreeze (a,b,c,d,e,f,ct,it,const,vt) = + implicit_args := a; + strict_implicit_args := b; + contextual_implicit_args := c; + implicit_args_out := d; + strict_implicit_args_out := e; + contextual_implicit_args_out := f; constants_table := ct; inductives_table := it; constructors_table := const; |