diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-05-19 09:54:40 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2013-05-19 09:54:40 +0000 |
commit | be4d6e42dfa287b93b1a35ec820ab2a5aaf8c7ec (patch) | |
tree | c51b66e9154bc64cf4fd4191251f29d102928841 /backend/LTL.v | |
parent | 60e1fd71c7e97b2214daf574e0f41b55a3e0bceb (diff) | |
download | compcert-be4d6e42dfa287b93b1a35ec820ab2a5aaf8c7ec.tar.gz compcert-be4d6e42dfa287b93b1a35ec820ab2a5aaf8c7ec.zip |
Merge of the float32 branch:
- added RTL type "Tsingle"
- ABI-compatible passing of single-precision floats on ARM and x86
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@2260 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/LTL.v')
-rw-r--r-- | backend/LTL.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/LTL.v b/backend/LTL.v index 27fee8ab..d1db2c5d 100644 --- a/backend/LTL.v +++ b/backend/LTL.v @@ -172,7 +172,7 @@ Fixpoint undef_regs (rl: list mreg) (rs: locset) : locset := | r1 :: rl => Locmap.set (R r1) Vundef (undef_regs rl rs) end. -Definition destroyed_by_getstack (s: slot) : list mreg := +Definition destroyed_by_getstack (s: slot): list mreg := match s with | Incoming => temp_for_parent_frame :: nil | _ => nil @@ -218,7 +218,7 @@ Inductive step: state -> trace -> state -> Prop := step (Block s f sp (Lgetstack sl ofs ty dst :: bb) rs m) E0 (Block s f sp bb rs' m) | exec_Lsetstack: forall s f sp src sl ofs ty bb rs m rs', - rs' = Locmap.set (S sl ofs ty) (rs (R src)) (undef_regs (destroyed_by_op Omove) rs) -> + rs' = Locmap.set (S sl ofs ty) (rs (R src)) (undef_regs (destroyed_by_setstack ty) rs) -> step (Block s f sp (Lsetstack src sl ofs ty :: bb) rs m) E0 (Block s f sp bb rs' m) | exec_Lstore: forall s f sp chunk addr args src bb rs m a rs' m', |