From 52ca74d1495249844e2ba1be2eaec662e3808074 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 2 Jun 2013 21:42:07 +0000
Subject: Flags V8_4 for compatibility infrastructure.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16555 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/flags.ml  | 3 ++-
 lib/flags.mli | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/flags.ml b/lib/flags.ml
index f62ed20e5d..af40e946e9 100644
--- a/lib/flags.ml
+++ b/lib/flags.ml
@@ -57,7 +57,7 @@ let record_print = ref true
 (* Current means no particular compatibility consideration.
    For correct comparisons, this constructor should remain the last one. *)
 
-type compat_version = V8_2 | V8_3 | Current
+type compat_version = V8_2 | V8_3 | V8_4 | Current
 let compat_version = ref Current
 let version_strictly_greater v = !compat_version > v
 let version_less_or_equal v = not (version_strictly_greater v)
@@ -65,6 +65,7 @@ let version_less_or_equal v = not (version_strictly_greater v)
 let pr_version = function
   | V8_2 -> "8.2"
   | V8_3 -> "8.3"
+  | V8_4 -> "8.4"
   | Current -> "current"
 
 (* Translate *)
diff --git a/lib/flags.mli b/lib/flags.mli
index c170c2669a..9dbe2c68c1 100644
--- a/lib/flags.mli
+++ b/lib/flags.mli
@@ -28,7 +28,7 @@ val load_proofs : load_proofs ref
 val raw_print : bool ref
 val record_print : bool ref
 
-type compat_version = V8_2 | V8_3 | Current
+type compat_version = V8_2 | V8_3 | V8_4 | Current
 val compat_version : compat_version ref
 val version_strictly_greater : compat_version -> bool
 val version_less_or_equal : compat_version -> bool
-- 
cgit v1.2.3