From 3112da1c1dee3dd54011c6fbf548bfaf435eca74 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ga=C3=ABtan=20Gilbert?= Date: Wed, 11 Oct 2023 11:11:57 +0200 Subject: [PATCH] Adapt to coq/coq#18139 (pr_tacref takes avoid set) --- src/tac2compile.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/tac2compile.ml b/src/tac2compile.ml index fafef50..3356ad3 100644 --- a/src/tac2compile.ml +++ b/src/tac2compile.ml @@ -996,7 +996,7 @@ let rec get_dependencies ((visited, skipped_mut, knl) as acc) kn = let warn_skipped_mut = CWarnings.create ~name:"tac2compile-skipped-mutable" ~category:CWarnings.CoreCategories.ltac2 (fun skipped_mut -> str "Skipped compilation of mutable definitions" ++ spc() ++ - prlist_with_sep spc Tac2print.pr_tacref (KNset.elements skipped_mut)) + prlist_with_sep spc (Tac2print.pr_tacref Id.Set.empty) (KNset.elements skipped_mut)) let get_recursive_kns knl = let _, skipped_mut, knl = List.fold_left get_dependencies (KNset.empty, KNset.empty, []) knl in @@ -1101,7 +1101,7 @@ let compile ~recursive knl = (* Error if explicitly asked to compile a mutable, warn if recursively *) if (Tac2env.interp_global kn).gdata_mutable then CErrors.user_err - Pp.(str "Not allowed to compile mutable " ++ Tac2print.pr_tacref kn ++ str ".")) + Pp.(str "Not allowed to compile mutable " ++ Tac2print.pr_tacref Id.Set.empty kn ++ str ".")) knl in let knl =