diff options
| author | Jason Gross | 2018-10-02 14:45:00 -0400 |
|---|---|---|
| committer | Jason Gross | 2018-10-02 14:45:40 -0400 |
| commit | 3208a68e2c1b5f29fe33b54a66a2c361d3bfc531 (patch) | |
| tree | eb3c7d125bed17f2338dc6980a1fac315460ad05 /lib | |
| parent | 9e7402632f1aecf5d2dce936d95e296097024ea5 (diff) | |
Update the -compat flags
Mostly via `dev/tools/update-compat.py --cur-version=8.9`
We just remove test-suite/success/FunindExtraction_compat86.v because,
except for the `Extraction iszero.` line at the bottom, it is a
duplicate of `test-suite/success/Funind.v` (except with `-compat 8.6`).
We also manually update a number of test-suite files to pre-emptively
remove compatibility notations (which used to be compat 8.6, but are now
compat 8.7).
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/flags.ml | 10 | ||||
| -rw-r--r-- | lib/flags.mli | 2 |
2 files changed, 6 insertions, 6 deletions
diff --git a/lib/flags.ml b/lib/flags.ml index 4d6c36f55d..c8f19f2f11 100644 --- a/lib/flags.ml +++ b/lib/flags.ml @@ -66,25 +66,25 @@ 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_6 | V8_7 | Current +type compat_version = V8_7 | V8_8 | Current let compat_version = ref Current let version_compare v1 v2 = match v1, v2 with - | V8_6, V8_6 -> 0 - | V8_6, _ -> -1 - | _, V8_6 -> 1 | V8_7, V8_7 -> 0 | V8_7, _ -> -1 | _, V8_7 -> 1 + | V8_8, V8_8 -> 0 + | V8_8, _ -> -1 + | _, V8_8 -> 1 | Current, Current -> 0 let version_strictly_greater v = version_compare !compat_version v > 0 let version_less_or_equal v = not (version_strictly_greater v) let pr_version = function - | V8_6 -> "8.6" | V8_7 -> "8.7" + | V8_8 -> "8.8" | Current -> "current" (* Translate *) diff --git a/lib/flags.mli b/lib/flags.mli index 398f22ab4f..3d9eafde75 100644 --- a/lib/flags.mli +++ b/lib/flags.mli @@ -58,7 +58,7 @@ val we_are_parsing : bool ref (* Set Printing All flag. For some reason it is a global flag *) val raw_print : bool ref -type compat_version = V8_6 | V8_7 | Current +type compat_version = V8_7 | V8_8 | Current val compat_version : compat_version ref val version_compare : compat_version -> compat_version -> int val version_strictly_greater : compat_version -> bool |