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

1 files changed, 2 insertions, 2 deletions

diff --git a/backend/LTL.v b/backend/LTL.v
index 27fee8a..d1db2c5 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',