Use the same 'cc' for generated preprocessed crash files as we do for compilation.

git-svn-id: https://llvm.org/svn/llvm-project/cfe/trunk@55326 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Ted Kremenek 2008-08-25 20:44:31 +00:00
Родитель 5a4ddaf39a
Коммит 2ec5cd5535
1 изменённых файлов: 4 добавлений и 3 удалений

Просмотреть файл

@ -17,6 +17,9 @@ use warnings;
use Cwd; use Cwd;
use File::Temp qw/ tempfile /; use File::Temp qw/ tempfile /;
use File::Path qw / mkpath /; use File::Path qw / mkpath /;
my $CC = $ENV{'CCC_CC'};
if (!defined $CC) { $CC = "gcc"; }
##----------------------------------------------------------------------------## ##----------------------------------------------------------------------------##
# Process Clang Crashes. # Process Clang Crashes.
@ -36,7 +39,7 @@ sub ProcessClangFailure {
SUFFIX => GetPPExt($Lang), SUFFIX => GetPPExt($Lang),
DIR => $Dir); DIR => $Dir);
system "gcc", @$Args, "-E", "-o", $PPFile; system $CC, @$Args, "-E", "-o", $PPFile;
close ($PPH); close ($PPH);
open (OUT, ">", "$PPFile.info") or die "Cannot open $PPFile.info\n"; open (OUT, ">", "$PPFile.info") or die "Cannot open $PPFile.info\n";
print OUT "$file\n"; print OUT "$file\n";
@ -184,8 +187,6 @@ my $Lang;
my $Output; my $Output;
# Forward arguments to gcc. # Forward arguments to gcc.
my $CC = $ENV{'CCC_CC'};
if (!defined $CC) { $CC = "gcc"; }
my $Status = system($CC,@ARGV); my $Status = system($CC,@ARGV);
if ($Status) { exit($Status >> 8); } if ($Status) { exit($Status >> 8); }