diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-03-10 13:35:48 +0100 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-03-10 13:35:48 +0100 |
commit | 5b05d3668571bd9b748b781b0cc29ae10f745f61 (patch) | |
tree | aa235b80ff0666c34332be46664ae289d8afaa2c /backend/Fileinfo.ml | |
parent | 272087e1bc62bead1d1e1bea3d64e12d013eea37 (diff) | |
download | compcert-5b05d3668571bd9b748b781b0cc29ae10f745f61.tar.gz compcert-5b05d3668571bd9b748b781b0cc29ae10f745f61.zip |
Code cleanup.
Removed some unused variables, functions etc. and resolved some
problems which occur if all warnings except 3,4,9 and 29 are active.
Bug 18394.
Diffstat (limited to 'backend/Fileinfo.ml')
-rw-r--r-- | backend/Fileinfo.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/Fileinfo.ml b/backend/Fileinfo.ml index 0490def0..a78a24db 100644 --- a/backend/Fileinfo.ml +++ b/backend/Fileinfo.ml @@ -25,7 +25,7 @@ let reset_filenames () = let close_filenames () = Hashtbl.iter - (fun file (num, fb) -> + (fun _ (_, fb) -> match fb with Some b -> Printlines.close b | None -> ()) filename_info; reset_filenames() @@ -46,7 +46,7 @@ let print_file oc file = try Hashtbl.find filename_info file with Not_found -> - let (filenum, filebuf as res) = enter_filename file in + let (filenum, _ as res) = enter_filename file in fprintf oc " .file %d %S\n" filenum file; res |