diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-09-08 15:43:29 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2006-09-08 15:43:29 +0000 |
commit | 43b4d97a655e52e3962c0d14bda39dacb24af901 (patch) | |
tree | d4ea6a6694cf3e69323bf7a8756ea4b583c2b068 /backend/Machabstr.v | |
parent | 593ce3f7c5647e284cd2fdc3dd3ed41be9563982 (diff) | |
download | compcert-43b4d97a655e52e3962c0d14bda39dacb24af901.tar.gz compcert-43b4d97a655e52e3962c0d14bda39dacb24af901.zip |
Stocker l'adresse de retour a l'offset 12 au lieu de l'offset 4 pour meilleure compatibilite avec les conventions de MacOSX
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@85 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/Machabstr.v')
-rw-r--r-- | backend/Machabstr.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/Machabstr.v b/backend/Machabstr.v index 8d5d72a9..33ed93ca 100644 --- a/backend/Machabstr.v +++ b/backend/Machabstr.v @@ -205,7 +205,7 @@ with exec_function_body: forall f parent link ra rs m t rs' m1 m2 stk fr1 fr2 fr3 c, Mem.alloc m 0 f.(fn_stacksize) = (m1, stk) -> set_slot (init_frame f) Tint 0 link fr1 -> - set_slot fr1 Tint 4 ra fr2 -> + set_slot fr1 Tint 12 ra fr2 -> exec_instrs f (Vptr stk (Int.repr (-f.(fn_framesize)))) parent f.(fn_code) rs fr2 m1 t (Mreturn :: c) rs' fr3 m2 -> @@ -347,7 +347,7 @@ Lemma exec_mutual_induction: (stk : block) (fr1 fr2 fr3 : frame) (c : list instruction), alloc m 0 (fn_stacksize f13) = (m1, stk) -> set_slot (init_frame f13) Tint 0 link fr1 -> - set_slot fr1 Tint 4 ra fr2 -> + set_slot fr1 Tint 12 ra fr2 -> exec_instrs f13 (Vptr stk (Int.repr (- fn_framesize f13))) parent (fn_code f13) rs fr2 m1 t (Mreturn :: c) rs' fr3 m2 -> P0 f13 (Vptr stk (Int.repr (- fn_framesize f13))) parent |