From aaa49526068f528f2233de0dace43549432fba52 Mon Sep 17 00:00:00 2001
From: xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>
Date: Sat, 12 Apr 2008 12:55:21 +0000
Subject: Revu gestion retaddr et link dans Stacking

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@604 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
---
 backend/Lineartyping.v | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'backend/Lineartyping.v')

diff --git a/backend/Lineartyping.v b/backend/Lineartyping.v
index 0f5a1ec9..551462c8 100644
--- a/backend/Lineartyping.v
+++ b/backend/Lineartyping.v
@@ -36,7 +36,7 @@ Definition slot_valid (s: slot) :=
   match s with
   | Local ofs ty => 0 <= ofs
   | Outgoing ofs ty => 14 <= ofs
-  | Incoming ofs ty => 14 <= ofs /\ ofs + typesize ty <= size_arguments funct.(fn_sig)
+  | Incoming ofs ty => In (S s) (loc_parameters funct.(fn_sig))
   end.
 
 Definition slot_writable (s: slot) :=
-- 
cgit