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 /common | |
parent | 375c844efb8b91d4ff1dce08ed25f55ddef231d7 (diff) | |
download | compcert-70609c932e066ffab0d2e3a2a38d66e834399532.tar.gz compcert-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 'common')
-rw-r--r-- | common/AST.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/common/AST.v b/common/AST.v index fcbf0b34..ddd10ede 100644 --- a/common/AST.v +++ b/common/AST.v @@ -105,7 +105,7 @@ Lemma rettype_eq: forall (t1 t2: rettype), {t1=t2} + {t1<>t2}. Proof. generalize typ_eq; decide equality. Defined. Global Opaque rettype_eq. -Fixpoint proj_rettype (r: rettype) : typ := +Definition proj_rettype (r: rettype) : typ := match r with | Tret t => t | Tint8signed | Tint8unsigned | Tint16signed | Tint16unsigned => Tint |