From 25f601985661272aa7334a64c4e137217de351b3 Mon Sep 17 00:00:00 2001 From: herbelin Date: Wed, 9 Apr 2003 12:25:19 +0000 Subject: Synchronisation avec reset git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@3883 85f007b7-540e-0410-9357-904b9bb8a0f7 --- library/impargs.ml | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) (limited to 'library') 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; -- cgit v1.2.3