diff options
| author | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2021-01-21 15:44:09 +0100 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@college-de-france.fr> | 2021-01-21 17:17:18 +0100 |
| commit | fc82b6c80fd3feeb4ef9478e6faa16b5b1104593 (patch) | |
| tree | fdfd03a7f16fea070848ad9911373dbb4d603fc2 /arm | |
| parent | eca149363d20d94198a4b1e1ae4f9f964e468098 (diff) | |
| download | compcert-kvx-fc82b6c80fd3feeb4ef9478e6faa16b5b1104593.tar.gz compcert-kvx-fc82b6c80fd3feeb4ef9478e6faa16b5b1104593.zip | |
Qualify `Hint` as `Global Hint` where appropriate
This avoids a new warning of Coq 8.13.
Eventually these `Global Hint` should become `#[export] Hint`,
with a cleaner but different meaning than `Global Hint`.
Diffstat (limited to 'arm')
| -rw-r--r-- | arm/Asmgenproof1.v | 6 | ||||
| -rw-r--r-- | arm/Conventions1.v | 2 |
2 files changed, 4 insertions, 4 deletions
diff --git a/arm/Asmgenproof1.v b/arm/Asmgenproof1.v index fce9d4a6..b94964a0 100644 --- a/arm/Asmgenproof1.v +++ b/arm/Asmgenproof1.v @@ -40,14 +40,14 @@ Lemma ireg_of_not_R14: Proof. intros. erewrite <- ireg_of_eq; eauto with asmgen. Qed. -Hint Resolve ireg_of_not_R14: asmgen. +Global Hint Resolve ireg_of_not_R14: asmgen. Lemma ireg_of_not_R14': forall m r, ireg_of m = OK r -> r <> IR14. Proof. intros. generalize (ireg_of_not_R14 _ _ H). congruence. Qed. -Hint Resolve ireg_of_not_R14': asmgen. +Global Hint Resolve ireg_of_not_R14': asmgen. (** [undef_flags] and [nextinstr_nf] *) @@ -75,7 +75,7 @@ Proof. intros; red; intros; subst; discriminate. Qed. -Hint Resolve data_if_preg if_preg_not_PC: asmgen. +Global Hint Resolve data_if_preg if_preg_not_PC: asmgen. Lemma nextinstr_nf_inv: forall r rs, if_preg r = true -> (nextinstr_nf rs)#r = rs#r. diff --git a/arm/Conventions1.v b/arm/Conventions1.v index b94ce9ef..0ddd882f 100644 --- a/arm/Conventions1.v +++ b/arm/Conventions1.v @@ -427,7 +427,7 @@ Proof. destruct Archi.abi; [ | destruct (cc_vararg (sig_cc s)) ]; auto. Qed. -Hint Resolve loc_arguments_acceptable: locs. +Global Hint Resolve loc_arguments_acceptable: locs. Lemma loc_arguments_main: loc_arguments signature_main = nil. |