Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
CertiCompil
CompCert-KVX
Commits
600803ca
Commit
600803ca
authored
Oct 12, 2020
by
Xavier Leroy
Browse files
Remove -version-file option
It is specific to AbsInt's commercial version of CompCert.
parent
26ddb902
Changes
1
Hide whitespace changes
Inline
Side-by-side
driver/CommonOptions.ml
View file @
600803ca
...
...
@@ -25,26 +25,9 @@ let version_string tool_name =
let
print_version_and_exit
tool_name
()
=
Printf
.
printf
"%s"
(
version_string
tool_name
);
exit
0
let
version_file_string
tool_name
=
if
Version
.
buildnr
<>
""
&&
Version
.
tag
<>
""
then
Printf
.
sprintf
"This is CompCert %s
\n
Version: %s
\n
Build: %s
\n
Tag: %s
\n
Branch: %s
\n
"
tool_name
Version
.
version
Version
.
buildnr
Version
.
tag
Version
.
branch
else
Printf
.
sprintf
"The CompCert %s,
\n
version %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
);
close_out_noerr
oc
;
exit
0
let
version_options
tool_name
=
[
Exact
"-version"
,
Unit
(
print_version_and_exit
tool_name
);
Exact
"--version"
,
Unit
(
print_version_and_exit
tool_name
);
Exact
"-version-file"
,
String
(
print_version_file_and_exit
tool_name
);
Exact
"--version-file"
,
String
(
print_version_file_and_exit
tool_name
);
]
Exact
"--version"
,
Unit
(
print_version_and_exit
tool_name
)
]
(* Language support options *)
...
...
@@ -105,4 +88,4 @@ let general_options =
Exact
"-target"
,
Ignore
;(
*
Ignore
option
since
it
is
already
handled
*
)
Exact
"-v"
,
Set
option_v
;
Exact
"-stdlib"
,
String
(
fun
s
->
stdlib_path
:=
s
);
Exact
"-timings"
,
Set
option_timings
;
]
Exact
"-timings"
,
Set
option_timings
]
Cyril Six
@sixcy
mentioned in commit
1a52f581
·
Jun 02, 2021
mentioned in commit
1a52f581
mentioned in commit 1a52f581eb9cc52e5c1862c7e73253016109e1fc
Toggle commit list
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment