diff options
| author | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2022-09-19 16:28:06 +0200 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-09-19 16:28:06 +0200 |
| commit | 103aa7074a9dd3b1bcb2864d52c89292a2ab7bff (patch) | |
| tree | c2b8e6f224daa9afe54a998b8c7e832b33c5c0b2 /backend/Registers.v | |
| parent | b816d696733c96fdc62428e43c4a4a1f5a09b47b (diff) | |
| download | compcert-103aa7074a9dd3b1bcb2864d52c89292a2ab7bff.tar.gz compcert-103aa7074a9dd3b1bcb2864d52c89292a2ab7bff.zip | |
Add `Declare Scope` where appropriate (#440)
And re-enable the `undeclared-scope` warning.
`Declare Scope` has been available since Coq 8.12, which is now the minimal Coq version supported.
Diffstat (limited to 'backend/Registers.v')
| -rw-r--r-- | backend/Registers.v | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/backend/Registers.v b/backend/Registers.v index 622cddfe..7f7ecb60 100644 --- a/backend/Registers.v +++ b/backend/Registers.v @@ -61,6 +61,8 @@ Definition regmap_setres | _ => rs end. +Declare Scope rtl. + Notation "a # b" := (Regmap.get b a) (at level 1) : rtl. Notation "a ## b" := (List.map (fun r => Regmap.get r a) b) (at level 1) : rtl. Notation "a # b <- c" := (Regmap.set b c a) (at level 1, b at next level) : rtl. |