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/Machabstr2mach.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/Machabstr2mach.v')
-rw-r--r-- | backend/Machabstr2mach.v | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/backend/Machabstr2mach.v b/backend/Machabstr2mach.v index 0513cbee..a07f64af 100644 --- a/backend/Machabstr2mach.v +++ b/backend/Machabstr2mach.v @@ -1091,10 +1091,10 @@ Proof. intros [ms2 [STORELINK [CSI2 EQ]]]. subst stk1. assert (ZERO: Int.signed (Int.repr 0) = 0). reflexivity. - assert (FOUR: Int.signed (Int.repr 4) = 4). reflexivity. - assert (BND: 4 <= Int.signed (Int.repr 4)). - rewrite FOUR; omega. - rewrite <- FOUR in H1. + assert (TWELVE: Int.signed (Int.repr 12) = 12). reflexivity. + assert (BND: 4 <= Int.signed (Int.repr 12)). + rewrite TWELVE; omega. + rewrite <- TWELVE in H1. generalize (callstack_set_slot _ _ _ _ _ _ _ _ _ _ CSI2 H1 BND). intros [ms3 [STORERA CSI3]]. @@ -1116,7 +1116,7 @@ Proof. eapply slot_gso; eauto. rewrite ZERO. eapply slot_gss; eauto. exact I. eapply callstack_get_slot. eexact CSI4. - apply LINKINV. rewrite FOUR. omega. eapply slot_gss; eauto. auto. + apply LINKINV. rewrite TWELVE. omega. eapply slot_gss; eauto. auto. eapply callstack_function_return; eauto. (* internal function *) |