diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2014-11-26 14:46:07 +0100 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2014-11-26 14:46:07 +0100 |
commit | b279716c76c387c6c5eec96388c0c35629858b4c (patch) | |
tree | a71079afbe6eebc1162391546aeaebe56dbd56d2 /backend/ValueAnalysis.v | |
parent | 1ccc058794381d7d7c2ff704786009019489001d (diff) | |
download | compcert-kvx-b279716c76c387c6c5eec96388c0c35629858b4c.tar.gz compcert-kvx-b279716c76c387c6c5eec96388c0c35629858b4c.zip |
Introduce symbol environments (type Senv.t) as a restricted view on global environments (type Genv.t). Use symbol environments instead of global environments for external functions (module Events).
Diffstat (limited to 'backend/ValueAnalysis.v')
-rw-r--r-- | backend/ValueAnalysis.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/ValueAnalysis.v b/backend/ValueAnalysis.v index 813944d6..18eab3b7 100644 --- a/backend/ValueAnalysis.v +++ b/backend/ValueAnalysis.v @@ -1255,7 +1255,7 @@ Proof. inv H2. * (* true volatile access *) assert (V: vmatch bc v0 (Ifptr Glob)). - { inv H4; constructor. econstructor. eapply GE; eauto. } + { inv H4; simpl in *; constructor. econstructor. eapply GE; eauto. } destruct (va_strict tt). apply vmatch_lub_r. apply vnormalize_sound. auto. apply vnormalize_sound. eapply vmatch_ge; eauto. constructor. constructor. * (* normal memory access *) |