@ -124,8 +124,12 @@ let filter_and_replace_unsupported_args ?(replace_options_arg = fun _ s -> s) ?(
aux in_argfiles' ( false , at_argfile :: res_rev , changed ) tl )
aux in_argfiles' ( false , at_argfile :: res_rev , changed ) tl )
| flag :: tl
| flag :: tl
when List . mem ~ equal : String . equal Config . clang_blacklisted_flags flag
when List . mem ~ equal : String . equal Config . clang_blacklisted_flags flag
| | List . mem ~ equal : String . equal Config . clang_blacklisted_flags_with_arg
| | String . lsplit2 ~ on : '=' flag
( String . split ~ on : '=' flag | > List . hd | > Option . value ~ default : " " ) ->
| > function
| Some ( flag , _ arg ) ->
List . mem ~ equal : String . equal Config . clang_blacklisted_flags_with_arg flag
| None ->
false ->
aux in_argfiles ( false , res_rev , true ) tl
aux in_argfiles ( false , res_rev , true ) tl
| flag :: tl when List . mem ~ equal : String . equal Config . clang_blacklisted_flags_with_arg flag ->
| flag :: tl when List . mem ~ equal : String . equal Config . clang_blacklisted_flags_with_arg flag ->
(* remove the flag and its arg separately in case we are at the end of an argfile *)
(* remove the flag and its arg separately in case we are at the end of an argfile *)