diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2016-03-06 10:33:19 +0100 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2016-03-06 10:33:19 +0100 |
commit | 21613d7ad098ce4a080963aa4210ce208d24e9b3 (patch) | |
tree | 78b8268691aac4afaa4aa473de260cd562fbb615 /cfrontend/Initializersproof.v | |
parent | 05b0e3c922cf7db7ec9313d20193f9cac8fc9358 (diff) | |
download | compcert-kvx-21613d7ad098ce4a080963aa4210ce208d24e9b3.tar.gz compcert-kvx-21613d7ad098ce4a080963aa4210ce208d24e9b3.zip |
Update the proofs of the C front-end to the new linking framework.
Diffstat (limited to 'cfrontend/Initializersproof.v')
-rw-r--r-- | cfrontend/Initializersproof.v | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/cfrontend/Initializersproof.v b/cfrontend/Initializersproof.v index 9c662f5e..945f0465 100644 --- a/cfrontend/Initializersproof.v +++ b/cfrontend/Initializersproof.v @@ -647,7 +647,7 @@ Qed. Lemma transl_init_single_size: forall ty a data, transl_init_single ge ty a = OK data -> - Genv.init_data_size data = sizeof ge ty. + init_data_size data = sizeof ge ty. Proof. intros. monadInv H. destruct x0. - monadInv EQ2. @@ -664,7 +664,7 @@ Proof. inv EQ2; auto. Qed. -Notation idlsize := Genv.init_data_list_size. +Notation idlsize := init_data_list_size. Remark padding_size: forall frm to, frm <= to -> idlsize (tr_padding frm to) = to - frm. |