Sort the list of input files alphabetically.

master
alainfrisch 2016-02-01 19:04:59 +01:00
parent 1ef3f35c02
commit 3730cab2d1
1 changed files with 1 additions and 1 deletions

View File

@ -593,5 +593,5 @@ let _ =
] file_dependencies usage; ] file_dependencies usage;
Compenv.readenv ppf Before_link; Compenv.readenv ppf Before_link;
if !sort_files then sort_files_by_dependencies !files if !sort_files then sort_files_by_dependencies !files
else List.iter print_file_dependencies !files; else List.iter print_file_dependencies (List.sort compare !files);
exit (if !error_occurred then 2 else 0) exit (if !error_occurred then 2 else 0)