diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-04-09 12:25:03 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2010-04-09 12:25:03 +0000 |
commit | d966e01ea011fa66d5a5a7f9ffce4344e415981a (patch) | |
tree | 487a86c759777b54a9e9dda72c602348c9270920 /cparser/Env.ml | |
parent | b66aaf2d1b90ff51f54bcd2a344a6ab50ac6fe86 (diff) |
Bug fix: infinite loop in cparser/ on bit field of size 32 bits.
Algorithmic efficiency: in cparser/, precompute sizeof and alignof of composites.
Code cleanup: introduced Cutil.composite_info_{def,decl}
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1312 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cparser/Env.ml')
-rw-r--r-- | cparser/Env.ml | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/cparser/Env.ml b/cparser/Env.ml index 43ba4c3..777b3e1 100644 --- a/cparser/Env.ml +++ b/cparser/Env.ml @@ -62,8 +62,9 @@ let fresh_ident s = incr gensym; { name = s; stamp = !gensym } type composite_info = { ci_kind: struct_or_union; - ci_incomplete: bool; (* incompletely defined? *) - ci_members: field list (* members, in order *) + ci_members: field list; (* members, in order *) + ci_alignof: int option; (* alignment; None if incomplete *) + ci_sizeof: int option; (* size; None if incomplete *) } (* Infos associated with an ordinary identifier *) |