From 3a050b22f37f3c79a10a8ebae3d292fa77e91b76 Mon Sep 17 00:00:00 2001 From: xleroy Date: Sun, 23 May 2010 15:26:33 +0000 Subject: More faithful semantics for volatile reads and writes. git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1346 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- backend/Machabstr.v | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'backend/Machabstr.v') diff --git a/backend/Machabstr.v b/backend/Machabstr.v index bbc7e7d8..060c6c2b 100644 --- a/backend/Machabstr.v +++ b/backend/Machabstr.v @@ -303,7 +303,7 @@ Inductive step: state -> trace -> state -> Prop := f.(fn_code) rs empty_frame m') | exec_function_external: forall s ef args res rs1 rs2 m t m', - external_call ef (Genv.find_symbol ge) args m t res m' -> + external_call ef ge args m t res m' -> extcall_arguments (parent_function s) rs1 (parent_frame s) ef.(ef_sig) args -> rs2 = (rs1#(Conventions.loc_result ef.(ef_sig)) <- res) -> step (Callstate s (External ef) rs1 m) -- cgit