diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2014-11-03 10:11:23 +0100 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2014-11-24 17:38:06 +0100 |
commit | 1e29e518e62ad88e9c2e2b180beb07434a07cdd7 (patch) | |
tree | 515e91150bc6db4910daa97ba99611192b01fe2f /cfrontend/SimplExprproof.v | |
parent | 794ae6fb64e89175b40288369011f4fc51e0ac53 (diff) | |
download | compcert-1e29e518e62ad88e9c2e2b180beb07434a07cdd7.tar.gz compcert-1e29e518e62ad88e9c2e2b180beb07434a07cdd7.zip |
Record public global definitions via field "prog_public" in AST.program.
For the moment, this field is ignored.
Diffstat (limited to 'cfrontend/SimplExprproof.v')
-rw-r--r-- | cfrontend/SimplExprproof.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/cfrontend/SimplExprproof.v b/cfrontend/SimplExprproof.v index 3802b957..f19c7de3 100644 --- a/cfrontend/SimplExprproof.v +++ b/cfrontend/SimplExprproof.v @@ -2198,7 +2198,7 @@ Proof. econstructor. exploit Genv.init_mem_match; eauto. simpl. fold tge. rewrite symbols_preserved. - destruct MP as [A B]. rewrite B; eexact H1. + destruct MP as (A & B & C). rewrite B; eexact H1. eexact FIND. rewrite <- H3. apply type_of_fundef_preserved. auto. constructor. auto. constructor. |