diff options
| author | herbelin | 2013-06-02 21:42:07 +0000 |
|---|---|---|
| committer | herbelin | 2013-06-02 21:42:07 +0000 |
| commit | 52ca74d1495249844e2ba1be2eaec662e3808074 (patch) | |
| tree | 4a236fbc442f37d0b24d552ff198e70ae18f121b /lib | |
| parent | b8d63929abec0e20b1ea971529650fb8cd54ee2f (diff) | |
Flags V8_4 for compatibility infrastructure.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16555 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/flags.ml | 3 | ||||
| -rw-r--r-- | lib/flags.mli | 2 |
2 files changed, 3 insertions, 2 deletions
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 |