From 43b4d97a655e52e3962c0d14bda39dacb24af901 Mon Sep 17 00:00:00 2001 From: xleroy Date: Fri, 8 Sep 2006 15:43:29 +0000 Subject: 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 --- backend/Machabstr.v | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'backend/Machabstr.v') 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 -- cgit