ccc-analyzer revision a30730e5cd1aac279bf901050f8f0b6f22516010
1fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek#!/usr/bin/env perl 2b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek# 3b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek# The LLVM Compiler Infrastructure 4b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek# 5b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek# This file is distributed under the University of Illinois Open Source 6b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek# License. See LICENSE.TXT for details. 7b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek# 8b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek##===----------------------------------------------------------------------===## 9b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek# 10fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# A script designed to interpose between the build system and gcc. It invokes 11fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# both gcc and the static analyzer. 12b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek# 13b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek##===----------------------------------------------------------------------===## 14b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek 15fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekuse strict; 16fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekuse warnings; 17b315a3940f804cf9fc67f4e3314aac6a44d623eeTed Kremenekuse Cwd qw/ getcwd abs_path /; 18991c54b9b7409656e5593364e065878b5210d556Ted Kremenekuse File::Temp qw/ tempfile /; 19991c54b9b7409656e5593364e065878b5210d556Ted Kremenekuse File::Path qw / mkpath /; 202ec5cd553542ec54652fb2ae2395e46795b1af84Ted Kremenek 212ec5cd553542ec54652fb2ae2395e46795b1af84Ted Kremenekmy $CC = $ENV{'CCC_CC'}; 222ec5cd553542ec54652fb2ae2395e46795b1af84Ted Kremenekif (!defined $CC) { $CC = "gcc"; } 23991c54b9b7409656e5593364e065878b5210d556Ted Kremenek 24991c54b9b7409656e5593364e065878b5210d556Ted Kremenek##----------------------------------------------------------------------------## 25991c54b9b7409656e5593364e065878b5210d556Ted Kremenek# Process Clang Crashes. 26991c54b9b7409656e5593364e065878b5210d556Ted Kremenek##----------------------------------------------------------------------------## 27991c54b9b7409656e5593364e065878b5210d556Ted Kremenek 28991c54b9b7409656e5593364e065878b5210d556Ted Kremeneksub GetPPExt { 29991c54b9b7409656e5593364e065878b5210d556Ted Kremenek my $Lang = shift; 30991c54b9b7409656e5593364e065878b5210d556Ted Kremenek if ($Lang =~ /objective-c/) { return ".mi"; } 31991c54b9b7409656e5593364e065878b5210d556Ted Kremenek return ".i"; 32991c54b9b7409656e5593364e065878b5210d556Ted Kremenek} 33991c54b9b7409656e5593364e065878b5210d556Ted Kremenek 345d31f83bbe990aeb070ce6c8d919d229d4eb5052Ted Kremeneksub ProcessClangFailure { 35c3998fa64e254b13669e8cf3a0cf23eb4f73b88bTed Kremenek my ($Clang, $Lang, $file, $Args, $HtmlDir, $ErrorType, $ofile) = @_; 36991c54b9b7409656e5593364e065878b5210d556Ted Kremenek my $Dir = "$HtmlDir/crashes"; 37991c54b9b7409656e5593364e065878b5210d556Ted Kremenek mkpath $Dir; 38c3998fa64e254b13669e8cf3a0cf23eb4f73b88bTed Kremenek 39c3998fa64e254b13669e8cf3a0cf23eb4f73b88bTed Kremenek # Generate the preprocessed file with cc (i.e., gcc). 40991c54b9b7409656e5593364e065878b5210d556Ted Kremenek my ($PPH, $PPFile) = tempfile("clang_crash_XXXXXX", 41991c54b9b7409656e5593364e065878b5210d556Ted Kremenek SUFFIX => GetPPExt($Lang), 42991c54b9b7409656e5593364e065878b5210d556Ted Kremenek DIR => $Dir); 43991c54b9b7409656e5593364e065878b5210d556Ted Kremenek 442ec5cd553542ec54652fb2ae2395e46795b1af84Ted Kremenek system $CC, @$Args, "-E", "-o", $PPFile; 45991c54b9b7409656e5593364e065878b5210d556Ted Kremenek close ($PPH); 46c3998fa64e254b13669e8cf3a0cf23eb4f73b88bTed Kremenek 47c3998fa64e254b13669e8cf3a0cf23eb4f73b88bTed Kremenek # Generate the preprocessed file with clang. 48c3998fa64e254b13669e8cf3a0cf23eb4f73b88bTed Kremenek my $PPFile_Clang = $PPFile; 49c3998fa64e254b13669e8cf3a0cf23eb4f73b88bTed Kremenek $PPFile_Clang =~ s/[.](.+)$/.clang.$1/; 50c3998fa64e254b13669e8cf3a0cf23eb4f73b88bTed Kremenek system $Clang, @$Args, "-E", "-o", "$PPFile_Clang"; 51c3998fa64e254b13669e8cf3a0cf23eb4f73b88bTed Kremenek 52c3998fa64e254b13669e8cf3a0cf23eb4f73b88bTed Kremenek # Create the info file. 5382a1253077cd0832e4d347062b911cd305ab62d1Ted Kremenek open (OUT, ">", "$PPFile.info.txt") or die "Cannot open $PPFile.info.txt\n"; 545f2825f6fa24a792c11cf96accd76538a2fd951eTed Kremenek print OUT abs_path($file), "\n"; 555d31f83bbe990aeb070ce6c8d919d229d4eb5052Ted Kremenek print OUT "$ErrorType\n"; 562dd7ad13bbbd43cb940040725a30cb7789bd2774Ted Kremenek print OUT "@$Args\n"; 57991c54b9b7409656e5593364e065878b5210d556Ted Kremenek close OUT; 5882a1253077cd0832e4d347062b911cd305ab62d1Ted Kremenek `uname -a >> $PPFile.info.txt 2>&1`; 5982a1253077cd0832e4d347062b911cd305ab62d1Ted Kremenek `$CC -v >> $PPFile.info.txt 2>&1`; 609f9b1fded49acff77e61b3ed1afc8bbaaefe6f34Ted Kremenek system 'mv',$ofile,"$PPFile.stderr.txt"; 61991c54b9b7409656e5593364e065878b5210d556Ted Kremenek} 62b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek 63fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek##----------------------------------------------------------------------------## 64fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Running the analyzer. 65fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek##----------------------------------------------------------------------------## 66b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek 67fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremeneksub Analyze { 68fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my ($Clang, $Args, $Lang, $Output, $Verbose, $HtmlDir, $file, $Analyses) = @_; 69d389465f426069115a35e857ef11f1fcc5a2f69cSeo Sanghyeon 70fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Skip anything related to C++. 71fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek return if ($Lang =~ /c[+][+]/); 725d31f83bbe990aeb070ce6c8d919d229d4eb5052Ted Kremenek 73fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $RunAnalyzer = 0; 74fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $Cmd; 75fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my @CmdArgs; 76991c54b9b7409656e5593364e065878b5210d556Ted Kremenek my @CmdArgsSansAnalyses; 77fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 78fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Lang =~ /header/) { 79fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek exit 0 if (!defined ($Output)); 80fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $Cmd = 'cp'; 81fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CmdArgs,$file; 82fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Remove the PCH extension. 83fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $Output =~ s/[.]gch$//; 84fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CmdArgs,$Output; 85991c54b9b7409656e5593364e065878b5210d556Ted Kremenek @CmdArgsSansAnalyses = @CmdArgs; 86fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 87fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek else { 88fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $Cmd = $Clang; 89fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CmdArgs,'-DIBOutlet=__attribute__((iboutlet))'; 90fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CmdArgs,@$Args; 91991c54b9b7409656e5593364e065878b5210d556Ted Kremenek @CmdArgsSansAnalyses = @CmdArgs; 92991c54b9b7409656e5593364e065878b5210d556Ted Kremenek push @CmdArgs,(split /\s/,$Analyses); 93fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $RunAnalyzer = 1; 94fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 95fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 96fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my @PrintArgs; 97fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $dir; 9861cd988a7eaadd4b81c63a18a4733bf31399b66cTed Kremenek 99fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Verbose) { 100fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $dir = getcwd(); 101fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek print STDERR "\n[LOCATION]: $dir\n"; 102fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @PrintArgs,"'$Cmd'"; 103fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek foreach my $arg (@CmdArgs) { push @PrintArgs,"\'$arg\'"; } 104fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 105fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 106fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Verbose == 1) { 10761cd988a7eaadd4b81c63a18a4733bf31399b66cTed Kremenek # We MUST print to stderr. Some clients use the stdout output of 10861cd988a7eaadd4b81c63a18a4733bf31399b66cTed Kremenek # gcc for various purposes. 109fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek print STDERR join(' ',@PrintArgs); 110fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek print STDERR "\n"; 111fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 112fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek elsif ($Verbose == 2) { 113fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek print STDERR "#SHELL (cd '$dir' && @PrintArgs)\n"; 114fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 11561cd988a7eaadd4b81c63a18a4733bf31399b66cTed Kremenek 116fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($RunAnalyzer and defined($HtmlDir)) { 117fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CmdArgs,'-o'; 118fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CmdArgs,$HtmlDir; 119fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 120948e06babdf81033517b54910fedda8079f29ff9Ted Kremenek 121948e06babdf81033517b54910fedda8079f29ff9Ted Kremenek if (defined $ENV{'CCC_UBI'}) { 122948e06babdf81033517b54910fedda8079f29ff9Ted Kremenek push @CmdArgs,"--analyzer-viz-egraph-ubigraph"; 123948e06babdf81033517b54910fedda8079f29ff9Ted Kremenek } 124991c54b9b7409656e5593364e065878b5210d556Ted Kremenek 1259a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek # Capture the STDERR of clang and send it to a temporary file. 1269a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek # Capture the STDOUT of clang and reroute it to ccc-analyzer's STDERR. 1279a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek # We save the output file in the 'crashes' directory if clang encounters 1289a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek # any problems with the file. 1291346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek pipe (FROM_CHILD, TO_PARENT); 1309a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek my $pid = fork(); 1319a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek if ($pid == 0) { 1321346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek close FROM_CHILD; 1331346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek open(STDOUT,">&", \*TO_PARENT); 1341346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek open(STDERR,">&", \*TO_PARENT); 1359a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek exec $Cmd, @CmdArgs; 1369a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek } 1371346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek 1381346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek close TO_PARENT; 1391346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek my ($ofh, $ofile) = tempfile("clang_output_XXXXXX", DIR => $HtmlDir); 1401346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek 1411346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek while (<FROM_CHILD>) { 1421346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek print $ofh $_; 1431346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek print STDERR $_; 1441346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek } 1451346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek 1461346268d7f44551ab63e25dbbf5e3ae9402708c5Ted Kremenek waitpid($pid,0); 1479a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek my $Result = $?; 1489a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek 1499a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek # Did the command die because of a signal? 1509a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek if ($Result & 127 and $Cmd eq $Clang and defined $HtmlDir) { 151c3998fa64e254b13669e8cf3a0cf23eb4f73b88bTed Kremenek ProcessClangFailure($Clang, $Lang, $file, \@CmdArgsSansAnalyses, $HtmlDir, 1529a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek "Crash", $ofile); 1539a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek } 1549a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek elsif ($Result) { 155c3998fa64e254b13669e8cf3a0cf23eb4f73b88bTed Kremenek ProcessClangFailure($Clang, $Lang, $file, \@CmdArgsSansAnalyses, $HtmlDir, 1569a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek "Parser Rejects", $ofile); 1579a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek } 1589a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek 1599a3c7dae00402a60a9dbe918e310214c92c5baebTed Kremenek `rm -f $ofile`; 160fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek} 161fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 162fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek##----------------------------------------------------------------------------## 163fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Lookup tables. 164fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek##----------------------------------------------------------------------------## 165fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 166fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy %CompileOptionMap = ( 167fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-nostdinc' => 0, 168fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-fobjc-gc-only' => 0, 169fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-fobjc-gc' => 0, 170fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-include' => 1, 171fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-idirafter' => 1, 172fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-iprefix' => 1, 173fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-iquote' => 1, 174fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-isystem' => 1, 175fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-iwithprefix' => 1, 176fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-iwithprefixbefore' => 1 177fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek); 178fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 179fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy %LinkerOptionMap = ( 180fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-framework' => 1 181fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek); 182fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 183fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy %CompilerLinkerOptionMap = ( 184fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-isysroot' => 1, 185fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-arch' => 1, 186fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-v' => 0 187fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek); 188fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 189fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy %IgnoredOptionMap = ( 190940260996dfae2b6acd0466c1519b8e5083bed83Ted Kremenek '-MT' => 1, # Ignore these preprocessor options. 191940260996dfae2b6acd0466c1519b8e5083bed83Ted Kremenek '-MF' => 1, 192940260996dfae2b6acd0466c1519b8e5083bed83Ted Kremenek 193fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-fsyntax-only' => 0, 194fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-save-temps' => 0, 195fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-install_name' => 1, 196fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-exported_symbols_list' => 1, 197fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-current_version' => 1, 198fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-compatibility_version' => 1, 199fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-init' => 1, 200fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-e' => 1, 201fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-seg1addr' => 1, 202fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-bundle_loader' => 1, 203fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-multiply_defined' => 1, 204fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-sectorder' => 3, 205fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '--param' => 1, 206fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek '-u' => 1 207fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek); 208fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 209fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy %LangMap = ( 210fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 'c' => 'c', 211fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 'cpp' => 'c++', 212fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 'cc' => 'c++', 213fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 'i' => 'c-cpp-output', 214fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 'm' => 'objective-c', 215fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 'mi' => 'objective-c-cpp-output' 216fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek); 217fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 218a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenekmy %UniqueOptions = ( 219a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek '-isysroot' => 0 220a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek); 221a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek 222fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek##----------------------------------------------------------------------------## 223fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Main Logic. 224fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek##----------------------------------------------------------------------------## 225fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 226fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy $Action = 'link'; 227fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy @CompileOpts; 228fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy @LinkOpts; 229fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy @Files; 230fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy $Lang; 231fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy $Output; 232a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenekmy %Uniqued; 233fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 234fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Forward arguments to gcc. 235f17ef3caf19ebff18a4ee0e7984dfc6036f34b2eTed Kremenekmy $Status = system($CC,@ARGV); 236cb344d0f9b9f4b9114ab2b35a34017e89d8b0c17Ted Kremenekif ($Status) { exit($Status >> 8); } 237fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 238fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Get the analysis options. 239fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy $Analyses = $ENV{'CCC_ANALYZER_ANALYSIS'}; 240fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekif (!defined($Analyses)) { $Analyses = '-checker-cfref'; } 241fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 242fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Determine the level of verbosity. 243fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy $Verbose = 0; 244fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekif (defined $ENV{CCC_ANALYZER_VERBOSE}) { $Verbose = 1; } 245fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekif (defined $ENV{CCC_ANALYZER_LOG}) { $Verbose = 2; } 246fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 247fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Determine what clang executable to use. 248fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy $Clang = $ENV{'CLANG'}; 249fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekif (!defined $Clang) { $Clang = 'clang'; } 250fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 251fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Get the HTML output directory. 252fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekmy $HtmlDir = $ENV{'CCC_ANALYZER_HTML'}; 253fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 25427783eb8a030afd153280a15afdede29819d90d2Ted Kremenekmy %ArchsSeen; 255fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 256fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# Process the arguments. 257fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekforeach (my $i = 0; $i < scalar(@ARGV); ++$i) { 258fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $Arg = $ARGV[$i]; 25961cd988a7eaadd4b81c63a18a4733bf31399b66cTed Kremenek 260fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Modes ccc-analyzer supports 261fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg eq '-E') { $Action = 'preprocess'; } 262fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek elsif ($Arg eq '-c') { $Action = 'compile'; } 263fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek elsif ($Arg =~ /^-print-prog-name/) { exit 0; } 26427783eb8a030afd153280a15afdede29819d90d2Ted Kremenek 26527783eb8a030afd153280a15afdede29819d90d2Ted Kremenek # Specially handle duplicate cases of -arch 26627783eb8a030afd153280a15afdede29819d90d2Ted Kremenek if ($Arg eq "-arch") { 26727783eb8a030afd153280a15afdede29819d90d2Ted Kremenek my $arch = $ARGV[$i+1]; 26827783eb8a030afd153280a15afdede29819d90d2Ted Kremenek $ArchsSeen{$arch} = 1; 26927783eb8a030afd153280a15afdede29819d90d2Ted Kremenek ++$i; 27027783eb8a030afd153280a15afdede29819d90d2Ted Kremenek next; 27127783eb8a030afd153280a15afdede29819d90d2Ted Kremenek } 27227783eb8a030afd153280a15afdede29819d90d2Ted Kremenek 273fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Options with possible arguments that should pass through to compiler. 274fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if (defined $CompileOptionMap{$Arg}) { 275fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $Cnt = $CompileOptionMap{$Arg}; 276fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CompileOpts,$Arg; 277fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek while ($Cnt > 0) { ++$i; --$Cnt; push @CompileOpts, $ARGV[$i]; } 278fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 279fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 280fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 281fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Options with possible arguments that should pass through to linker. 282fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if (defined $LinkerOptionMap{$Arg}) { 283fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $Cnt = $LinkerOptionMap{$Arg}; 284fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @LinkOpts,$Arg; 285fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek while ($Cnt > 0) { ++$i; --$Cnt; push @LinkOpts, $ARGV[$i]; } 286fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 287fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 288fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 289fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Options with possible arguments that should pass through to both compiler 290fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # and the linker. 291fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if (defined $CompilerLinkerOptionMap{$Arg}) { 292fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $Cnt = $CompilerLinkerOptionMap{$Arg}; 293fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CompileOpts,$Arg; 294fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @LinkOpts,$Arg; 295a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek 296a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek # Check if this is an option that should have a unique value, and if so 297a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek # determine if the value was checked before. 298a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek if ($UniqueOptions{$Arg}) { 299a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek if (defined $Uniqued{$Arg}) { 300a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek $i += $Cnt; 301a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek next; 302a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek } 303a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek $Uniqued{$Arg} = 1; 304a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek } 305a30730e5cd1aac279bf901050f8f0b6f22516010Ted Kremenek 306fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek while ($Cnt > 0) { 307fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek ++$i; --$Cnt; 308fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CompileOpts, $ARGV[$i]; 309fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @LinkOpts, $ARGV[$i]; 310fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 311fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 312fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 31361cd988a7eaadd4b81c63a18a4733bf31399b66cTed Kremenek 314fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Ignored options. 315fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if (defined $IgnoredOptionMap{$Arg}) { 316fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $Cnt = $IgnoredOptionMap{$Arg}; 317fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek while ($Cnt > 0) { 318fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek ++$i; --$Cnt; 319fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 320fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 321fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 32261cd988a7eaadd4b81c63a18a4733bf31399b66cTed Kremenek 323fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Compile mode flags. 324fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg =~ /^-[D,I,U](.*)$/) { 325fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $Tmp = $Arg; 326fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($1 eq '') { 327fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # FIXME: Check if we are going off the end. 328fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek ++$i; 329fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $Tmp = $Arg . $ARGV[$i]; 330fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 331fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CompileOpts,$Tmp; 332fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 333fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 334fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 335fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Language. 336fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg eq '-x') { 337fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $Lang = $ARGV[$i+1]; 338fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek ++$i; next; 339fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 340fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 341fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Output file. 342fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg eq '-o') { 343fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek ++$i; 344fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $Output = $ARGV[$i]; 345fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 346fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 347fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 348fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Get the link mode. 349fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg =~ /^-[l,L,O]/) { 350fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg eq '-O') { push @LinkOpts,'-O1'; } 351fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek elsif ($Arg eq '-Os') { push @LinkOpts,'-O2'; } 352fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek else { push @LinkOpts,$Arg; } 353fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 354fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 355fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 356fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg =~ /^-std=/) { 357fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CompileOpts,$Arg; 358fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 359fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 360fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 361fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# if ($Arg =~ /^-f/) { 362fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# # FIXME: Not sure if the remaining -fxxxx options have no arguments. 363fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# push @CompileOpts,$Arg; 364fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# push @LinkOpts,$Arg; # FIXME: Not sure if these are link opts. 365fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek# } 366fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 367fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Get the compiler/link mode. 368fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg =~ /^-F(.+)$/) { 369fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $Tmp = $Arg; 370fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($1 eq '') { 371fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # FIXME: Check if we are going off the end. 372fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek ++$i; 373fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $Tmp = $Arg . $ARGV[$i]; 374fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 375fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @CompileOpts,$Tmp; 376fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @LinkOpts,$Tmp; 377fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next; 378fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 379fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 380fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Input files. 381fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($Arg eq '-filelist') { 382fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # FIXME: Make sure we aren't walking off the end. 383fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek open(IN, $ARGV[$i+1]); 384fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek while (<IN>) { s/\015?\012//; push @Files,$_; } 385fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek close(IN); 386fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek ++$i; next; 387fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 388fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 389fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if (!($Arg =~ /^-/)) { 390fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @Files,$Arg; next; 391fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 392fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek} 393fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 394fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenekif ($Action eq 'compile' or $Action eq 'link') { 395fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek foreach my $file (@Files) { 396fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Determine the language for the file. 397fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my $FileLang = $Lang; 398fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 399fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if (!defined($FileLang)) { 400fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek # Infer the language from the extension. 401fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($file =~ /[.]([^.]+)$/) { 402fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek $FileLang = $LangMap{$1}; 403fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 404fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 40526681e8e3a18acebd347061e20e167a81c47a408Ted Kremenek 406fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek next if (!defined $FileLang); 407fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 408fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek my @AnalyzeArgs; 409fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 410fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek if ($FileLang ne 'unknown') { 411fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @AnalyzeArgs,'-x'; 412fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @AnalyzeArgs,$FileLang; 413fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 41461cd988a7eaadd4b81c63a18a4733bf31399b66cTed Kremenek 415fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @AnalyzeArgs,@CompileOpts; 416fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek push @AnalyzeArgs,$file; 417fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek 41827783eb8a030afd153280a15afdede29819d90d2Ted Kremenek my @Archs = keys %ArchsSeen; 41927783eb8a030afd153280a15afdede29819d90d2Ted Kremenek if (scalar @Archs) { 42027783eb8a030afd153280a15afdede29819d90d2Ted Kremenek foreach my $arch (@Archs) { 42127783eb8a030afd153280a15afdede29819d90d2Ted Kremenek my @NewArgs; 42227783eb8a030afd153280a15afdede29819d90d2Ted Kremenek push @NewArgs, '-arch'; 42327783eb8a030afd153280a15afdede29819d90d2Ted Kremenek push @NewArgs, $arch; 42427783eb8a030afd153280a15afdede29819d90d2Ted Kremenek push @NewArgs, @AnalyzeArgs; 42527783eb8a030afd153280a15afdede29819d90d2Ted Kremenek Analyze($Clang, \@NewArgs, $FileLang, $Output, 42627783eb8a030afd153280a15afdede29819d90d2Ted Kremenek $Verbose, $HtmlDir, $file, $Analyses); 42727783eb8a030afd153280a15afdede29819d90d2Ted Kremenek } 42827783eb8a030afd153280a15afdede29819d90d2Ted Kremenek } 42927783eb8a030afd153280a15afdede29819d90d2Ted Kremenek else { 43027783eb8a030afd153280a15afdede29819d90d2Ted Kremenek Analyze($Clang, \@AnalyzeArgs, $FileLang, $Output, 43127783eb8a030afd153280a15afdede29819d90d2Ted Kremenek $Verbose, $HtmlDir, $file, $Analyses); 43227783eb8a030afd153280a15afdede29819d90d2Ted Kremenek } 433fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek } 434fbeeca84dd1993d2656e9a259f5d7ee54fe3b162Ted Kremenek} 435b0982880c09a07147b5a9ad275393fedff13aad0Ted Kremenek 436948e06babdf81033517b54910fedda8079f29ff9Ted Kremenekexit($Status >> 8); 437948e06babdf81033517b54910fedda8079f29ff9Ted Kremenek 438