diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-07-12 13:18:42 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-07-12 13:18:42 +0200 |
commit | efa462bd1655c6b2c8f064e214762650092257e8 (patch) | |
tree | fbabaeb77489660a60666accdef6bfbb89495478 /lib/Responsefile.ml | |
parent | a6bde8ba057ff057e311781fd91b4a9ab441731c (diff) | |
download | compcert-efa462bd1655c6b2c8f064e214762650092257e8.tar.gz compcert-efa462bd1655c6b2c8f064e214762650092257e8.zip |
Added heuristic for passing arg via responsefiles.
Since gnu make and other tools under windows seem to have a limit
of around 8000 bytes per command line the arguments should be
passed via responsefiles instead.
Bug 18308
Diffstat (limited to 'lib/Responsefile.ml')
-rw-r--r-- | lib/Responsefile.ml | 16 |
1 files changed, 0 insertions, 16 deletions
diff --git a/lib/Responsefile.ml b/lib/Responsefile.ml index 6dd1bc93..c10fe302 100644 --- a/lib/Responsefile.ml +++ b/lib/Responsefile.ml @@ -131,19 +131,3 @@ let expand_responsefiles args = acc := file::!acc done; Array.of_list !acc - -let write_responsefile oc args start = - let whitespace = Str.regexp "[ \t\r\n]" in - let quote arg = - if Str.string_match whitespace arg 0 then - Filename.quote arg (* We need to quote arguments containing whitespaces *) - else - arg in - let first = ref true in - let sep oc = if !first then - first := false - else - output_string oc " " in - for i = start to (Array.length args -1) do - Printf.fprintf oc "%t%s" sep (quote args.(i)) - done |