From 36f8369d948720de61194596015a80731dcc6198 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Wed, 6 May 2020 18:52:36 +0200
Subject: Port Evar_tactics to the new API.

---
 plugins/ltac/evar_tactics.ml | 32 +++++++++++++++++---------------
 1 file changed, 17 insertions(+), 15 deletions(-)

(limited to 'plugins/ltac')

diff --git a/plugins/ltac/evar_tactics.ml b/plugins/ltac/evar_tactics.ml
index 17a7121a3f..f867a47c08 100644
--- a/plugins/ltac/evar_tactics.ml
+++ b/plugins/ltac/evar_tactics.ml
@@ -14,10 +14,7 @@ open Constr
 open Context
 open CErrors
 open Evar_refiner
-open Tacmach
 open Tacexpr
-open Refiner
-open Evd
 open Locus
 open Context.Named.Declaration
 open Ltac_pretype
@@ -26,7 +23,11 @@ module NamedDecl = Context.Named.Declaration
 
 (* The instantiate tactic *)
 
-let instantiate_evar evk (ist,rawc) env sigma =
+let instantiate_evar evk (ist,rawc) =
+  let open Proofview.Notations in
+  Proofview.tclENV >>= fun env ->
+  Proofview.Goal.enter begin fun gl ->
+  let sigma = Proofview.Goal.sigma gl in
   let evi = Evd.find sigma evk in
   let filtered = Evd.evar_filtered_env env evi in
   let constrvars = Tacinterp.extract_ltac_constr_values ist filtered in
@@ -37,7 +38,8 @@ let instantiate_evar evk (ist,rawc) env sigma =
     ltac_genargs = ist.Geninterp.lfun;
   } in
   let sigma' = w_refine (evk,evi) (lvar ,rawc) env sigma in
-  tclEVARS sigma'
+  Proofview.Unsafe.tclEVARS sigma'
+  end
 
 let evar_list sigma c =
   let rec evrec acc c =
@@ -47,14 +49,15 @@ let evar_list sigma c =
   evrec [] c
 
 let instantiate_tac n c ido =
-  Proofview.V82.tactic begin fun gl ->
-  let env = Global.env () in
-  let sigma = gl.sigma in
+  Proofview.Goal.enter begin fun gl ->
+  let sigma = Proofview.Goal.sigma gl in
+  let env = Proofview.Goal.env gl in
+  let concl = Proofview.Goal.concl gl in
   let evl =
     match ido with
-        ConclLocation () -> evar_list sigma (pf_concl gl)
+        ConclLocation () -> evar_list sigma concl
       | HypLocation (id,hloc) ->
-          let decl = Environ.lookup_named id (pf_env gl) in
+          let decl = Environ.lookup_named id env in
             match hloc with
                 InHyp ->
                   (match decl with
@@ -70,17 +73,16 @@ let instantiate_tac n c ido =
     user_err Pp.(str "Not enough uninstantiated existential variables.");
   if n <= 0 then user_err Pp.(str "Incorrect existential variable index.");
   let evk,_ = List.nth evl (n-1) in
-  instantiate_evar evk c env sigma gl
+  instantiate_evar evk c
   end
 
 let instantiate_tac_by_name id c =
-  Proofview.V82.tactic begin fun gl ->
-  let env = Global.env () in
-  let sigma = gl.sigma in
+  Proofview.Goal.enter begin fun gl ->
+  let sigma = Proofview.Goal.sigma gl in
   let evk =
     try Evd.evar_key id sigma
     with Not_found -> user_err Pp.(str "Unknown existential variable.") in
-  instantiate_evar evk c env sigma gl
+  instantiate_evar evk c
   end
 
 let let_evar name typ =
-- 
cgit v1.2.3


From 1d16c80c53702c3118cc61729a0823d4a9cdaf78 Mon Sep 17 00:00:00 2001
From: Pierre-Marie Pédrot
Date: Wed, 6 May 2020 18:44:32 +0200
Subject: Deprecate the legacy tacticals from module Refiner.

---
 plugins/ltac/tacinterp.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'plugins/ltac')

diff --git a/plugins/ltac/tacinterp.ml b/plugins/ltac/tacinterp.ml
index dda7f0742c..a8bb97c774 100644
--- a/plugins/ltac/tacinterp.ml
+++ b/plugins/ltac/tacinterp.ml
@@ -1087,7 +1087,7 @@ and eval_tactic ist tac : unit Proofview.tactic = match tac with
   | TacShowHyps tac ->
          Proofview.V82.tactic begin
            tclSHOWHYPS (Proofview.V82.of_tactic (interp_tactic ist tac))
-         end
+         end [@ocaml.warning "-3"]
   | TacAbstract (t,ido) ->
       let call = LtacMLCall tac in
       let trace = push_trace(None,call) ist in
-- 
cgit v1.2.3