From 5a4bd6f2636df432383bb3144f91816742d2fa53 Mon Sep 17 00:00:00 2001 From: xleroy Date: Sat, 9 Apr 2011 17:16:55 +0000 Subject: Renamed Machconcr into Machsem. Removed Machabstr and Machabstr2concr, now useless following the reengineering of Stacking. git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1633 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e --- arm/Asmgenproof1.v | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'arm/Asmgenproof1.v') diff --git a/arm/Asmgenproof1.v b/arm/Asmgenproof1.v index fb49cb7a..9312f309 100644 --- a/arm/Asmgenproof1.v +++ b/arm/Asmgenproof1.v @@ -23,7 +23,7 @@ Require Import Globalenvs. Require Import Op. Require Import Locations. Require Import Mach. -Require Import Machconcr. +Require Import Machsem. Require Import Machtyping. Require Import Asm. Require Import Asmgen. @@ -322,7 +322,7 @@ Qed. Lemma extcall_arg_match: forall ms sp rs m m' l v, agree ms sp rs -> - Machconcr.extcall_arg ms m sp l v -> + Machsem.extcall_arg ms m sp l v -> Mem.extends m m' -> exists v', Asm.extcall_arg rs m' l v' /\ Val.lessdef v v'. Proof. @@ -337,7 +337,7 @@ Qed. Lemma extcall_args_match: forall ms sp rs m m', agree ms sp rs -> Mem.extends m m' -> forall ll vl, - Machconcr.extcall_args ms m sp ll vl -> + Machsem.extcall_args ms m sp ll vl -> exists vl', Asm.extcall_args rs m' ll vl' /\ Val.lessdef_list vl vl'. Proof. induction 3. @@ -350,11 +350,11 @@ Qed. Lemma extcall_arguments_match: forall ms m sp rs sg args m', agree ms sp rs -> - Machconcr.extcall_arguments ms m sp sg args -> + Machsem.extcall_arguments ms m sp sg args -> Mem.extends m m' -> exists args', Asm.extcall_arguments rs m' sg args' /\ Val.lessdef_list args args'. Proof. - unfold Machconcr.extcall_arguments, Asm.extcall_arguments; intros. + unfold Machsem.extcall_arguments, Asm.extcall_arguments; intros. eapply extcall_args_match; eauto. Qed. -- cgit