diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2016-10-25 17:26:50 +0200 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2016-10-25 17:26:50 +0200 |
commit | 65ab86a0e3df080ca9a1c37631904d8d02c07596 (patch) | |
tree | d7af507348d5329948bd7ca13d362c0341cc555f /backend/SplitLong.vp | |
parent | 16e8902f08ed1bf7481a2e7f21b5ebb6c6c81814 (diff) | |
download | compcert-65ab86a0e3df080ca9a1c37631904d8d02c07596.tar.gz compcert-65ab86a0e3df080ca9a1c37631904d8d02c07596.zip |
SplitLong: propagate constants through "longofint"
This can make a big difference in which optimizations are triggered later.
Constants were already propagated by "longofintu".
Diffstat (limited to 'backend/SplitLong.vp')
-rw-r--r-- | backend/SplitLong.vp | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/backend/SplitLong.vp b/backend/SplitLong.vp index 60d8e4c4..cbf7fa30 100644 --- a/backend/SplitLong.vp +++ b/backend/SplitLong.vp @@ -112,8 +112,11 @@ Definition is_longconst_zero (e: expr) := Definition intoflong (e: expr) := lowlong e. -Definition longofint (e: expr) := - Elet e (makelong (shrimm (Eletvar O) (Int.repr 31)) (Eletvar O)). +Nondetfunction longofint (e: expr) := + match e with + | Eop (Ointconst n) Enil => longconst (Int64.repr (Int.signed n)) + | _ => Elet e (makelong (shrimm (Eletvar O) (Int.repr 31)) (Eletvar O)) + end. Definition longofintu (e: expr) := makelong (Eop (Ointconst Int.zero) Enil) e. |