diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-11-17 14:36:18 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-11-17 14:36:18 +0000 |
commit | c29871c2d5c7860c6c6c53e8d5c8a9fe434742d2 (patch) | |
tree | 9e002b414d3fb3a899deb43f9f6e14d02507121a /powerpc/ConstpropOp.vp | |
parent | 26bb5772c75efe1e4617fb9c4f2b8522989fac6d (diff) |
powerpc/: new unary operation "addsymbol"
Support far-data addressing in sections.
(Currently ignored in checklink.)
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2368 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'powerpc/ConstpropOp.vp')
-rw-r--r-- | powerpc/ConstpropOp.vp | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/powerpc/ConstpropOp.vp b/powerpc/ConstpropOp.vp index b755b5e..9bee4db 100644 --- a/powerpc/ConstpropOp.vp +++ b/powerpc/ConstpropOp.vp @@ -89,6 +89,7 @@ Nondetfunction eval_static_operation (op: operation) (vl: list approx) := | Oaddimm n, I n1 :: nil => I (Int.add n1 n) | Oaddimm n, G s1 n1 :: nil => G s1 (Int.add n1 n) | Oaddimm n, S n1 :: nil => S (Int.add n1 n) + | Oaddsymbol s ofs, I n :: nil => G s (Int.add ofs n) | Osub, I n1 :: I n2 :: nil => I(Int.sub n1 n2) | Osub, G s1 n1 :: I n2 :: nil => G s1 (Int.sub n1 n2) | Osub, S n1 :: I n2 :: nil => S (Int.sub n1 n2) |