diff options
| author | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2020-06-21 19:14:32 +0200 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2020-06-21 19:14:32 +0200 |
| commit | 70609c932e066ffab0d2e3a2a38d66e834399532 (patch) | |
| tree | 1a70c96a611508a98c6f967bf5eabdd06ae4f6f3 /backend/NeedDomain.v | |
| parent | 375c844efb8b91d4ff1dce08ed25f55ddef231d7 (diff) | |
| download | compcert-kvx-70609c932e066ffab0d2e3a2a38d66e834399532.tar.gz compcert-kvx-70609c932e066ffab0d2e3a2a38d66e834399532.zip | |
Transform non-recursive Fixpoint into Definition
As detected by the new warning in Coq 8.12.
The use of Fixpoint here is not warranted and either an oversight or a
leftover from an earlier version.
Diffstat (limited to 'backend/NeedDomain.v')
| -rw-r--r-- | backend/NeedDomain.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/NeedDomain.v b/backend/NeedDomain.v index 3c2d8e20..d9e9e025 100644 --- a/backend/NeedDomain.v +++ b/backend/NeedDomain.v @@ -47,7 +47,7 @@ Definition iagree (p q mask: int) : Prop := forall i, 0 <= i < Int.zwordsize -> Int.testbit mask i = true -> Int.testbit p i = Int.testbit q i. -Fixpoint vagree (v w: val) (x: nval) {struct x}: Prop := +Definition vagree (v w: val) (x: nval) : Prop := match x with | Nothing => True | I m => |