diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-07-03 11:20:51 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-07-03 11:20:51 +0000 |
commit | d566064714fcf048cbec5f3a1cbe89885c9bc293 (patch) | |
tree | 734bac97f2f87a79113fdd461740a05eba1bcb27 /arm/CombineOp.v | |
parent | c677d5021a9a6e057b15cf9df8ca9ce7c0f5ae30 (diff) | |
download | compcert-d566064714fcf048cbec5f3a1cbe89885c9bc293.tar.gz compcert-d566064714fcf048cbec5f3a1cbe89885c9bc293.zip |
Update CombineOp for arm and ia32.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1950 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'arm/CombineOp.v')
-rw-r--r-- | arm/CombineOp.v | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/arm/CombineOp.v b/arm/CombineOp.v index d153b731..be9824bc 100644 --- a/arm/CombineOp.v +++ b/arm/CombineOp.v @@ -41,6 +41,12 @@ Function combine_compimm_eq_0 (x: valnum) : option(condition * list valnum) := | _ => None end. +Function combine_compimm_eq_1 (x: valnum) : option(condition * list valnum) := + match get x with + | Some(Op (Ocmp c) ys) => Some (c, ys) + | _ => None + end. + Function combine_compimm_ne_1 (x: valnum) : option(condition * list valnum) := match get x with | Some(Op (Ocmp c) ys) => Some (negate_condition c, ys) |