diff options
| author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-07-28 01:19:20 +0000 |
|---|---|---|
| committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2012-07-28 01:19:20 +0000 |
| commit | 5f61d89783b4b3a85203025853c7f558a4aee7a7 (patch) | |
| tree | caae8f5f223b21b67079a5c39cd0d56ba313ffd5 /cfrontend/PrintCsyntax.ml | |
| parent | 4297fcb821c3188449b64184af73e41491a6118f (diff) | |
| download | compcert-kvx-5f61d89783b4b3a85203025853c7f558a4aee7a7.tar.gz compcert-kvx-5f61d89783b4b3a85203025853c7f558a4aee7a7.zip | |
Forgot to collect types of expressions
git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1984 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e
Diffstat (limited to 'cfrontend/PrintCsyntax.ml')
| -rw-r--r-- | cfrontend/PrintCsyntax.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/cfrontend/PrintCsyntax.ml b/cfrontend/PrintCsyntax.ml index ae25e170..f63c1509 100644 --- a/cfrontend/PrintCsyntax.ml +++ b/cfrontend/PrintCsyntax.ml @@ -440,7 +440,9 @@ and collect_fields = function | Fnil -> () | Fcons(id, hd, tl) -> collect_type hd; collect_fields tl -let rec collect_expr = function +let rec collect_expr e = + collect_type (typeof e); + match e with | Eloc _ -> assert false | Evar _ -> () | Ederef(r, _) -> collect_expr r |