Commit 6903cff1 authored by Christoph Cullmann's avatar Christoph Cullmann
Browse files

Add missing comment for print_version_file_and_exit

parent 338509ae
......@@ -32,6 +32,7 @@ let version_file_string tool_name =
Printf.sprintf "The CompCert %s,\nversion %s\n" tool_name Version.version
(* Print the version string to a file and exit the program *)
let print_version_file_and_exit tool_name file =
let oc = open_out_bin file in
output_string oc (version_file_string tool_name);
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment