diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2015-12-10 12:32:56 +0100 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2015-12-14 16:58:34 +0100 |
| commit | f439001caa24671d03d8816964ceb8e483660e70 (patch) | |
| tree | 4ea39f85b7a83c844aa3c2c01340d2324e382fe1 /lib/flags.ml | |
| parent | d58957f63d36e2da41f6f839a2d94cb0db4c8125 (diff) | |
Adding compatibility flag for 8.5.
Soon needing a more algebraic view at version numbers...
Diffstat (limited to 'lib/flags.ml')
| -rw-r--r-- | lib/flags.ml | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index 9a0d4b5ec..96415ed26 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -101,18 +101,20 @@ let we_are_parsing = ref false (* Current means no particular compatibility consideration. For correct comparisons, this constructor should remain the last one. *) -type compat_version = V8_2 | V8_3 | V8_4 | Current +type compat_version = V8_2 | V8_3 | V8_4 | V8_5 | Current let compat_version = ref Current let version_strictly_greater v = match !compat_version, v with -| V8_2, (V8_2 | V8_3 | V8_4 | Current) -> false -| V8_3, (V8_3 | V8_4 | Current) -> false -| V8_4, (V8_4 | Current) -> false +| V8_2, (V8_2 | V8_3 | V8_4 | V8_5 | Current) -> false +| V8_3, (V8_3 | V8_4 | V8_5 | Current) -> false +| V8_4, (V8_4 | V8_5 | Current) -> false +| V8_5, (V8_5 | Current) -> false | Current, Current -> false | V8_3, V8_2 -> true | V8_4, (V8_2 | V8_3) -> true -| Current, (V8_2 | V8_3 | V8_4) -> true +| V8_5, (V8_2 | V8_3 | V8_4) -> true +| Current, (V8_2 | V8_3 | V8_4 | V8_5) -> true let version_less_or_equal v = not (version_strictly_greater v) @@ -120,6 +122,7 @@ let pr_version = function | V8_2 -> "8.2" | V8_3 -> "8.3" | V8_4 -> "8.4" + | V8_5 -> "8.5" | Current -> "current" (* Translate *) |