diff options
author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-08-28 22:39:41 +0200 |
---|---|---|
committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-08-28 22:39:41 +0200 |
commit | 23a129e18ae930de5f40df59307c48c68d62d8d7 (patch) | |
tree | 403387a98ea9da32d70ac5b5607d5be30fa0ee42 /powerpc/ConstpropOp.vp | |
parent | 780ad9d001af651a49d7470e963ed9a49ee11a4c (diff) | |
parent | 192bd462233d0284fa3d5f8e8994a514b549713e (diff) | |
download | compcert-kvx-23a129e18ae930de5f40df59307c48c68d62d8d7.tar.gz compcert-kvx-23a129e18ae930de5f40df59307c48c68d62d8d7.zip |
Merge branch 'master' of https://github.com/AbsInt/CompCert into mppa-work-upstream-merge
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 cf1dc6e8..8e90a849 100644 --- a/powerpc/ConstpropOp.vp +++ b/powerpc/ConstpropOp.vp @@ -23,6 +23,7 @@ Require Import ValueDomain ValueAOp. Definition const_for_result (a: aval) : option operation := match a with | I n => Some(Ointconst n) + | L n => if Archi.ppc64 then Some (Olongconst n) else None | F n => if Compopts.generate_float_constants tt then Some(Ofloatconst n) else None | FS n => if Compopts.generate_float_constants tt then Some(Osingleconst n) else None | Ptr(Gl id ofs) => Some (Oaddrsymbol id ofs) |