aboutsummaryrefslogtreecommitdiffstats
path: root/cfrontend/PrintClight.ml
diff options
context:
space:
mode:
authorxleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>2012-07-28 01:19:20 +0000
committerxleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e>2012-07-28 01:19:20 +0000
commit5f61d89783b4b3a85203025853c7f558a4aee7a7 (patch)
treecaae8f5f223b21b67079a5c39cd0d56ba313ffd5 /cfrontend/PrintClight.ml
parent4297fcb821c3188449b64184af73e41491a6118f (diff)
downloadcompcert-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/PrintClight.ml')
-rw-r--r--cfrontend/PrintClight.ml4
1 files changed, 3 insertions, 1 deletions
diff --git a/cfrontend/PrintClight.ml b/cfrontend/PrintClight.ml
index feb07fa1..ced5717e 100644
--- a/cfrontend/PrintClight.ml
+++ b/cfrontend/PrintClight.ml
@@ -252,7 +252,9 @@ let print_fundef p (id, fd) =
(* Collect struct and union types *)
-let rec collect_expr = function
+let rec collect_expr e =
+ collect_type (typeof e);
+ match e with
| Econst_int _ -> ()
| Econst_float _ -> ()
| Evar _ -> ()