diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2008-12-29 12:47:56 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2008-12-29 12:47:56 +0000 |
commit | 12421d717405aa7964e437fc1167a23699b61ecc (patch) | |
tree | 99b975380440ad4e91074f918ee781ec6383f0ce /backend/PPCgenproof.v | |
parent | dc4bed2cf06f46687225275131f411c86c773598 (diff) | |
download | compcert-12421d717405aa7964e437fc1167a23699b61ecc.tar.gz compcert-12421d717405aa7964e437fc1167a23699b61ecc.zip |
Replace cast{8,16}{signed,unsigned} with zero_ext and sign_ext.
lib/Integers.v: added more properties for ARM port.
lib/Coqlib.v: added more properties for division and powers of 2.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@928 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/PPCgenproof.v')
-rw-r--r-- | backend/PPCgenproof.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/PPCgenproof.v b/backend/PPCgenproof.v index fd5843b1..6db8b477 100644 --- a/backend/PPCgenproof.v +++ b/backend/PPCgenproof.v @@ -567,14 +567,14 @@ Qed. Lemma loadv_8_signed_unsigned: forall m a, Mem.loadv Mint8signed m a = - option_map Val.cast8signed (Mem.loadv Mint8unsigned m a). + option_map (Val.sign_ext 8) (Mem.loadv Mint8unsigned m a). Proof. intros. unfold Mem.loadv. destruct a; try reflexivity. unfold load. rewrite (in_bounds_equiv Mint8signed Mint8unsigned). destruct (in_bounds m Mint8unsigned b (Int.signed i)); auto. simpl. destruct (getN 0 (Int.signed i) (contents (blocks m b))); auto. - simpl. rewrite Int.cast8_signed_unsigned. auto. + simpl. rewrite Int.sign_ext_zero_ext. auto. compute; auto. auto. Qed. |