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/Cminor.v | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'backend/Cminor.v') diff --git a/backend/Cminor.v b/backend/Cminor.v index cc4afa50..bdfb379a 100644 --- a/backend/Cminor.v +++ b/backend/Cminor.v @@ -496,7 +496,7 @@ Inductive step: state -> trace -> state -> Prop := step (Callstate (Internal f) vargs k m) E0 (State f f.(fn_body) k (Vptr sp Int.zero) e m') | step_external_function: forall ef vargs k m t vres m', - external_call ef (Genv.find_symbol ge) vargs m t vres m' -> + external_call ef ge vargs m t vres m' -> step (Callstate (External ef) vargs k m) t (Returnstate vres k m') @@ -595,7 +595,7 @@ Inductive eval_funcall: eval_funcall m (Internal f) vargs t m3 vres | eval_funcall_external: forall ef m args t res m', - external_call ef (Genv.find_symbol ge) args m t res m' -> + external_call ef ge args m t res m' -> eval_funcall m (External ef) args t m' res (** Execution of a statement: [exec_stmt ge f sp e m s t e' m' out] -- cgit