forked from OSchip/llvm-project
parent
2e7450716a
commit
1ad3b3df2f
|
@ -41,13 +41,13 @@ sub ProcessClangFailure {
|
|||
|
||||
system $CC, @$Args, "-E", "-o", $PPFile;
|
||||
close ($PPH);
|
||||
open (OUT, ">", "$PPFile.info") or die "Cannot open $PPFile.info\n";
|
||||
open (OUT, ">", "$PPFile.info.txt") or die "Cannot open $PPFile.info.txt\n";
|
||||
print OUT abs_path($file), "\n";
|
||||
print OUT "$ErrorType\n";
|
||||
print OUT "@$Args\n";
|
||||
close OUT;
|
||||
`uname -a >> $PPFile.info 2>&1`;
|
||||
`$CC -v >> $PPFile.info 2>&1`;
|
||||
`uname -a >> $PPFile.info.txt 2>&1`;
|
||||
`$CC -v >> $PPFile.info.txt 2>&1`;
|
||||
system 'mv',$ofile,"$PPFile.stderr.txt";
|
||||
}
|
||||
|
||||
|
|
|
@ -452,7 +452,7 @@ sub Postprocess {
|
|||
# to update the common prefix directory.
|
||||
if (-d "$Dir/crashes") {
|
||||
opendir(DIR, "$Dir/crashes");
|
||||
my @files = grep { /[.]info$/; } readdir(DIR);
|
||||
my @files = grep { /[.]info.txt$/; } readdir(DIR);
|
||||
closedir(DIR);
|
||||
foreach my $file (@files) {
|
||||
open IN, "$Dir/crashes/$file" or DieDiag("cannot open $file\n");
|
||||
|
@ -656,7 +656,7 @@ ENDTEXT
|
|||
if ($Crashes) {
|
||||
# Read the crash directory for files.
|
||||
opendir(DIR, "$Dir/crashes");
|
||||
my @files = grep { /[.]info$/ } readdir(DIR);
|
||||
my @files = grep { /[.]info.txt$/ } readdir(DIR);
|
||||
closedir(DIR);
|
||||
|
||||
if (scalar(@files)) {
|
||||
|
@ -670,7 +670,7 @@ ENDTEXT
|
|||
ENDTEXT
|
||||
|
||||
foreach my $file (sort @files) {
|
||||
$file =~ /(.+).info$/;
|
||||
$file =~ /(.+).info.txt$/;
|
||||
# Get the preprocessed file.
|
||||
my $ppfile = $1;
|
||||
# Open the info file and get the name of the source file.
|
||||
|
|
Loading…
Reference in New Issue