diff options
| author | Pierre-Marie Pédrot | 2019-02-04 12:21:13 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-02-04 12:21:13 +0100 |
| commit | 2de5a4b0d4c7ca5c21b2aae44844019f9fbe4e81 (patch) | |
| tree | 492467ca46caa14309c7afa5bf878bc57aae598d | |
| parent | 6adc5763894fe6da025fd46f5b879af4cc7e99ec (diff) | |
| parent | 34f8872ba83aa5e91d73a80034b4c58db25dbbf7 (diff) | |
Merge PR #9454: Fix off-by-one error in nat syntax warnings
Reviewed-by: ppedrot
| -rw-r--r-- | test-suite/bugs/closed/bug_9453.v | 7 | ||||
| -rw-r--r-- | theories/Init/Prelude.v | 2 |
2 files changed, 8 insertions, 1 deletions
diff --git a/test-suite/bugs/closed/bug_9453.v b/test-suite/bugs/closed/bug_9453.v new file mode 100644 index 0000000000..18745533b2 --- /dev/null +++ b/test-suite/bugs/closed/bug_9453.v @@ -0,0 +1,7 @@ +(* check compatibility with 8.8 and earlier for lack of warnings on the nat 5000 *) +Set Warnings Append "+large-nat,+abstract-large-number". +Fail Check 5001. +Check 5000. +(* Error: +To avoid stack overflow, large numbers in nat are interpreted as applications of +Nat.of_uint. *) diff --git a/theories/Init/Prelude.v b/theories/Init/Prelude.v index 5e29f854e8..81268a87ad 100644 --- a/theories/Init/Prelude.v +++ b/theories/Init/Prelude.v @@ -38,7 +38,7 @@ Numeral Notation Decimal.int Decimal.int_of_int Decimal.int_of_int : dec_int_scope. (* Parsing / printing of [nat] numbers *) -Numeral Notation nat Nat.of_uint Nat.to_uint : nat_scope (abstract after 5000). +Numeral Notation nat Nat.of_uint Nat.to_uint : nat_scope (abstract after 5001). (* Printing/Parsing of bytes *) Export Byte.ByteSyntaxNotations. |