diff options
Diffstat (limited to 'cfrontend/PrintClight.ml')
-rw-r--r-- | cfrontend/PrintClight.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/cfrontend/PrintClight.ml b/cfrontend/PrintClight.ml index feb07fa..ced5717 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 _ -> () |