diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2017-02-13 16:27:43 +0100 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2017-02-13 16:27:43 +0100 |
| commit | d8b75dc0f11fe725bcbe8eb4bd893c608c05dd91 (patch) | |
| tree | 9242480a2943cc26e8279b3822f9969fa134d4be /backend/Registers.v | |
| parent | 8e7de2a327b202130192a784f921699f70e707cb (diff) | |
| download | compcert-kvx-d8b75dc0f11fe725bcbe8eb4bd893c608c05dd91.tar.gz compcert-kvx-d8b75dc0f11fe725bcbe8eb4bd893c608c05dd91.zip | |
Give explicit scopes to notations a#b and a##b and a#b<-c
Without scopes Coq 8.6 warns, probably rightly so.
Diffstat (limited to 'backend/Registers.v')
| -rw-r--r-- | backend/Registers.v | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/backend/Registers.v b/backend/Registers.v index cfe8427b..622cddfe 100644 --- a/backend/Registers.v +++ b/backend/Registers.v @@ -61,9 +61,11 @@ Definition regmap_setres | _ => rs end. -Notation "a # b" := (Regmap.get b a) (at level 1). -Notation "a ## b" := (List.map (fun r => Regmap.get r a) b) (at level 1). -Notation "a # b <- c" := (Regmap.set b c a) (at level 1, b at next level). +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. + +Open Scope rtl. (** Pointwise "less defined than" relation between register maps. *) |