diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2019-05-06 17:07:24 +0200 |
|---|---|---|
| committer | Xavier Leroy <xavierleroy@users.noreply.github.com> | 2019-05-10 14:30:37 +0200 |
| commit | b49feed2f88c0a6ae9cc2ca4b2982096f18a2112 (patch) | |
| tree | a00311d29d497a43fbf410ad56073739808c1f6f /backend/PrintAsmaux.ml | |
| parent | 47c86d46a329ee2c4c26a82b29edd40bb4b4c35c (diff) | |
| download | compcert-kvx-b49feed2f88c0a6ae9cc2ca4b2982096f18a2112.tar.gz compcert-kvx-b49feed2f88c0a6ae9cc2ca4b2982096f18a2112.zip | |
Expand the responsefiles earlier
* Move the expansion of response files to module Commandline,
during the initialization of `Commandline.argv`.
This way we're sure it's done exactly once.
* Make `Commandline.argv` a `string array` instead of a `string array ref`.
We no longer need to update it after initialization!
* Improve reporting of errors during expansion of response files.
Diffstat (limited to 'backend/PrintAsmaux.ml')
| -rw-r--r-- | backend/PrintAsmaux.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/backend/PrintAsmaux.ml b/backend/PrintAsmaux.ml index f9ed569f..6f293bf4 100644 --- a/backend/PrintAsmaux.ml +++ b/backend/PrintAsmaux.ml @@ -294,7 +294,7 @@ let print_version_and_options oc comment = Version.version in fprintf oc "%s File generated by CompCert %s\n" comment version_string; fprintf oc "%s Command line:" comment; - for i = 1 to Array.length Sys.argv - 1 do - fprintf oc " %s" Sys.argv.(i) + for i = 1 to Array.length Commandline.argv - 1 do + fprintf oc " %s" Commandline.argv.(i) done; fprintf oc "\n" |