diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2014-12-04 15:16:55 +0100 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2014-12-04 15:16:55 +0100 |
commit | 00a5e1af73862b1b1aa29b5a07fe43f80f29c764 (patch) | |
tree | d71b62892da569c61ed1ca74cc6ef581d9bff248 /driver/Configuration.ml | |
parent | 114b2b5634a97e60e2590d20eac072594d846206 (diff) | |
download | compcert-kvx-00a5e1af73862b1b1aa29b5a07fe43f80f29c764.tar.gz compcert-kvx-00a5e1af73862b1b1aa29b5a07fe43f80f29c764.zip |
Removed unused variable and changed the search for the installation directory. Use Sys.executable_name instead of Sys.argv.(0).
Diffstat (limited to 'driver/Configuration.ml')
-rw-r--r-- | driver/Configuration.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/driver/Configuration.ml b/driver/Configuration.ml index 1956b151..aff638e7 100644 --- a/driver/Configuration.ml +++ b/driver/Configuration.ml @@ -23,7 +23,7 @@ let _ = open_in env_file with Not_found -> let dir = Sys.getcwd () - and name = Sys.argv.(0) in + and name = Sys.executable_name in let dirname = if Filename.is_relative name then Filename.dirname (Filename.concat dir name) else |