Output to .info files the absolute paths to files that were rejected by the
parser or crashed the analyzer.
git-svn-id: https://llvm.org/svn/llvm-project/cfe/trunk@56396
91177308-0d34-0410-b5e6-
96231b3b80d8
use strict;
use warnings;
-use Cwd;
+use Cwd qw/ abs_path /;
use File::Temp qw/ tempfile /;
use File::Path qw / mkpath /;
system $CC, @$Args, "-E", "-o", $PPFile;
close ($PPH);
open (OUT, ">", "$PPFile.info") or die "Cannot open $PPFile.info\n";
- print OUT "$file\n";
+ print OUT abs_path($file), "\n";
print OUT "$ErrorType\n";
print OUT "@$Args\n";
close OUT;