diff options
author | Xavier Leroy <xavier.leroy@inria.fr> | 2014-12-22 19:34:45 +0100 |
---|---|---|
committer | Xavier Leroy <xavier.leroy@inria.fr> | 2014-12-22 19:34:45 +0100 |
commit | e89f1e606bc8c9c425628392adc9c69cec666b5e (patch) | |
tree | 9c1d9bccb0811666a5f51c89a4285a4d747f34b7 /cfrontend/SimplExpr.v | |
parent | f1db887befa816f70f64aaffa2ce4d92c4bebc55 (diff) | |
download | compcert-e89f1e606bc8c9c425628392adc9c69cec666b5e.tar.gz compcert-e89f1e606bc8c9c425628392adc9c69cec666b5e.zip |
Represent struct and union types by name instead of by structure.
Diffstat (limited to 'cfrontend/SimplExpr.v')
-rw-r--r-- | cfrontend/SimplExpr.v | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/cfrontend/SimplExpr.v b/cfrontend/SimplExpr.v index 089797f2..36fe07ae 100644 --- a/cfrontend/SimplExpr.v +++ b/cfrontend/SimplExpr.v @@ -540,5 +540,10 @@ Fixpoint transl_globdefs end. Definition transl_program (p: Csyntax.program) : res program := - do gl' <- transl_globdefs p.(prog_defs) (initial_generator tt); - OK (mkprogram gl' p.(prog_public) p.(prog_main)). + do gl' <- transl_globdefs (Csyntax.prog_defs p) (initial_generator tt); + OK {| prog_defs := gl'; + prog_public := Csyntax.prog_public p; + prog_main := Csyntax.prog_main p; + prog_types := Csyntax.prog_types p; + prog_comp_env := Csyntax.prog_comp_env p; + prog_comp_env_eq := Csyntax.prog_comp_env_eq p |}. |