diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-08-16 16:17:20 +0200 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-08-16 16:17:20 +0200 |
| commit | 3208e22ea89c459a5a7944ad8e82511d4a5328fa (patch) | |
| tree | e206e0e048ac85667374117010f58d3b97d918fb /cparser/Elab.ml | |
| parent | 8a740c6d441afd980e3bdb43d1844bd23e0ad55b (diff) | |
| download | compcert-3208e22ea89c459a5a7944ad8e82511d4a5328fa.tar.gz compcert-3208e22ea89c459a5a7944ad8e82511d4a5328fa.zip | |
Added raw printing of types without formatting.
This avoids introducing line breaks during printing of function
types.
Bug 18004
Diffstat (limited to 'cparser/Elab.ml')
| -rw-r--r-- | cparser/Elab.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/cparser/Elab.ml b/cparser/Elab.ml index e3a0ef0c..52426014 100644 --- a/cparser/Elab.ml +++ b/cparser/Elab.ml @@ -42,8 +42,8 @@ let warning loc = let print_typ env fmt ty = match ty with | TNamed _ -> - Format.fprintf fmt "'%a' (aka '%a')" Cprint.typ ty Cprint.typ (Cutil.unroll env ty) - | _ -> Format.fprintf fmt "'%a'" Cprint.typ ty + Format.fprintf fmt "'%a' (aka '%a')" Cprint.typ_raw ty Cprint.typ_raw (Cutil.unroll env ty) + | _ -> Format.fprintf fmt "'%a'" Cprint.typ_raw ty (* Error reporting for Env functions *) |