Use .txt extension for info files.

llvm-svn: 56598
This commit is contained in:
Ted Kremenek 2008-09-25 00:25:16 +00:00
parent 2e7450716a
commit 1ad3b3df2f
2 changed files with 6 additions and 6 deletions

View File

@ -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";
}

View File

@ -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.