diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-05-08 08:39:30 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2011-05-08 08:39:30 +0000 |
commit | fb202a70ccc2872aa3849854c09810a6bee268e5 (patch) | |
tree | 1b2fa2f5fa1c7f84ff7589f778985a0db306d845 /backend/CleanupLabelsproof.v | |
parent | c45fc2431ea70e0cb5a80e65d0ac99f91e94693e (diff) |
powerpc/PrintAsm.ml arm/PrintAsm.ml: updated (no label elimination).
Added -dmach option and corresponding printer for Mach code.
CleanupLabelsproof.v: fixed for ARM
Driver.ml: -E sends output to stdout; support for .s and .S source files.
cparser/Elab.ml: spurious comment deleted.
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1648 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'backend/CleanupLabelsproof.v')
-rw-r--r-- | backend/CleanupLabelsproof.v | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/backend/CleanupLabelsproof.v b/backend/CleanupLabelsproof.v index 6201306..abd2581 100644 --- a/backend/CleanupLabelsproof.v +++ b/backend/CleanupLabelsproof.v @@ -231,14 +231,16 @@ Proof. apply eval_operation_preserved. exact symbols_preserved. econstructor; eauto with coqlib. (* Lload *) + assert (eval_addressing tge sp addr (map rs args) = Some a). + rewrite <- H. apply eval_addressing_preserved. exact symbols_preserved. left; econstructor; split. - econstructor; eauto. rewrite <- H. - apply eval_addressing_preserved. exact symbols_preserved. + econstructor; eauto. econstructor; eauto with coqlib. (* Lstore *) + assert (eval_addressing tge sp addr (map rs args) = Some a). + rewrite <- H. apply eval_addressing_preserved. exact symbols_preserved. left; econstructor; split. - econstructor; eauto. rewrite <- H. - apply eval_addressing_preserved. exact symbols_preserved. + econstructor; eauto. econstructor; eauto with coqlib. (* Lcall *) left; econstructor; split. |