diff options
| author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-03-07 09:22:56 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-03-07 09:22:56 +0000 |
| commit | fdcaf6fabd3d594e40a2b7a31341202e9a93f5cb (patch) | |
| tree | 807d8c24c96db39b596a7e75d746d70ba196e01f /powerpc/Op.v | |
| parent | 2f37eb9bd85b6638cce1c2e75c71cdc642acf80a (diff) | |
| download | compcert-kvx-fdcaf6fabd3d594e40a2b7a31341202e9a93f5cb.tar.gz compcert-kvx-fdcaf6fabd3d594e40a2b7a31341202e9a93f5cb.zip | |
PowerPC: remove the fmadd and fmsub operators/Asm instructions
(definitely not semantics-preserving; hard to justify).
CPragmas: make sure SDAs are not recognized on MacOSX.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1836 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'powerpc/Op.v')
| -rw-r--r-- | powerpc/Op.v | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/powerpc/Op.v b/powerpc/Op.v index 64e47e32..76c426bd 100644 --- a/powerpc/Op.v +++ b/powerpc/Op.v @@ -94,8 +94,6 @@ Inductive operation : Type := | Osubf: operation (**r [rd = r1 - r2] *) | Omulf: operation (**r [rd = r1 * r2] *) | Odivf: operation (**r [rd = r1 / r2] *) - | Omuladdf: operation (**r [rd = r1 * r2 + r3] *) - | Omulsubf: operation (**r [rd = r1 * r2 - r3] *) | Osingleoffloat: operation (**r [rd] is [r1] truncated to single-precision float *) (*c Conversions between int and float: *) | Ointoffloat: operation (**r [rd = signed_int_of_float(r1)] *) @@ -203,8 +201,6 @@ Definition eval_operation | Osubf, v1::v2::nil => Some(Val.subf v1 v2) | Omulf, v1::v2::nil => Some(Val.mulf v1 v2) | Odivf, v1::v2::nil => Some(Val.divf v1 v2) - | Omuladdf, v1::v2::v3::nil => Some(Val.addf (Val.mulf v1 v2) v3) - | Omulsubf, v1::v2::v3::nil => Some(Val.subf (Val.mulf v1 v2) v3) | Osingleoffloat, v1::nil => Some(Val.singleoffloat v1) | Ointoffloat, v1::nil => Val.intoffloat v1 | Ofloatofwords, v1::v2::nil => Some(Val.floatofwords v1 v2) @@ -292,8 +288,6 @@ Definition type_of_operation (op: operation) : list typ * typ := | Osubf => (Tfloat :: Tfloat :: nil, Tfloat) | Omulf => (Tfloat :: Tfloat :: nil, Tfloat) | Odivf => (Tfloat :: Tfloat :: nil, Tfloat) - | Omuladdf => (Tfloat :: Tfloat :: Tfloat :: nil, Tfloat) - | Omulsubf => (Tfloat :: Tfloat :: Tfloat :: nil, Tfloat) | Osingleoffloat => (Tfloat :: nil, Tfloat) | Ointoffloat => (Tfloat :: nil, Tint) | Ofloatofwords => (Tint :: Tint :: nil, Tfloat) @@ -366,8 +360,6 @@ Proof with (try exact I). destruct v0; destruct v1... destruct v0; destruct v1... destruct v0; destruct v1... - destruct v0; destruct v1; destruct v2... - destruct v0; destruct v1; destruct v2... destruct v0... destruct v0; simpl in H0; inv H0. destruct (Float.intoffloat f); inv H2... destruct v0; destruct v1... @@ -796,8 +788,6 @@ Proof. inv H4; inv H2; simpl; auto. inv H4; inv H2; simpl; auto. inv H4; inv H2; simpl; auto. - inv H4; simpl; auto; inv H2; simpl; auto; inv H3; simpl; auto. - inv H4; simpl; auto; inv H2; simpl; auto; inv H3; simpl; auto. inv H4; simpl; auto. inv H4; simpl in H1; inv H1. simpl. destruct (Float.intoffloat f0); simpl in H2; inv H2. exists (Vint i); auto. |