diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-10-30 09:15:06 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-10-30 09:15:06 +0000 |
commit | 258a1feeafb9ebcec4d46601fe7016bed04a8ea7 (patch) | |
tree | 7af457899e7da1881028115116cc6584c5f6f9d3 /powerpc/Asmgenproof.v | |
parent | 20b484ea108ae82e604eadf4e6b873b27dc9a453 (diff) |
Storing of single floats: must insert frsp instruction before store. (Temporary fix.)
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1158 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'powerpc/Asmgenproof.v')
-rw-r--r-- | powerpc/Asmgenproof.v | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/powerpc/Asmgenproof.v b/powerpc/Asmgenproof.v index 0c1edec..b4176f2 100644 --- a/powerpc/Asmgenproof.v +++ b/powerpc/Asmgenproof.v @@ -842,7 +842,9 @@ Proof. try (rewrite storev_8_signed_unsigned in H0); try (rewrite storev_16_signed_unsigned in H0); simpl; eapply transl_store_correct; eauto; - intros; unfold preg_of; rewrite H6; reflexivity. + intros; (econstructor; split; [unfold preg_of; rewrite H6; reflexivity | auto]). + intros. apply Pregmap.gso; auto. + intros. apply Pregmap.gso; auto. Qed. Lemma exec_Mcall_prop: |