Merge branch 'named-structs'

- Switch CompCert C / Clight AST of composite types (structs and unions)
  from a structural representation to a nominal representation,
  closer to concrete syntax.
- This avoids algorithmic inefficiencies due to the structural representation.
- Closes PR#4.
- Smallstep: make small-step semantics more polymorphic in the type of the
  global environment.
- Globalenvs: introduce Senv.t (symbol environments) as a restricted view
  on Genv.t (full global environments).
- Events, Smallstep: use Senv instead of Genv to talk about global names.

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 |}.