[llvm-commits] CVS: llvm/utils/NewNightlyTest.pl

[Patrick Jenkins]

Changes in directory llvm/utils:

NewNightlyTest.pl updated: 1.20 -> 1.21
---
Log message:

Added code to get .a and .o file sizes and submit them to the server in the nightly report.


---
Diffs of the changes:  (+19 -1)

 NewNightlyTest.pl |   20 +++++++++++++++++++-
 1 files changed, 19 insertions(+), 1 deletion(-)


Index: llvm/utils/NewNightlyTest.pl
diff -u llvm/utils/NewNightlyTest.pl:1.20 llvm/utils/NewNightlyTest.pl:1.21
--- llvm/utils/NewNightlyTest.pl:1.20	Thu Jul 20 20:39:42 2006
+++ llvm/utils/NewNightlyTest.pl	Fri Jul 21 14:51:40 2006
@@ -612,6 +612,22 @@
 #my $NumLibraries   = scalar(grep(!/executable/, @Linked));
 #my $NumObjects     = `grep ']\: Compiling ' $BuildLog | wc -l` + 0;
 
+if(!$BuildError){
+	ChangeDir( "$BuildDir", "Build Directory" );
+	$afiles = `find . -iname '*.a' -ls`;
+	$ofiles = `find . -iname '*.o' -ls`;
+	@AFILES = split "\n", $afiles;
+	$a_file_sizes="";
+	foreach $x (@AFILES){
+	  $x =~ m/.+\s+.+\s+.+\s+.+\s+.+\s+.+\s+(.+)\s+.+\s+.+\s+.+\s+(.+)/;
+	  $a_file_sizes.="$1 $2\n";
+	}	@OFILES = split "\n", $ofiles;
+	$o_file_sizes="";
+	foreach $x (@OFILES){
+	  $x =~ m/.+\s+.+\s+.+\s+.+\s+.+\s+.+\s+(.+)\s+.+\s+.+\s+.+\s+(.+)/;
+	  $o_file_sizes.="$1 $2\n";
+	}
+}
 
 my $ConfigTimeU = GetRegexNum "^user", 0, "([0-9.]+)", "$BuildLog";
 my $ConfigTimeS = GetRegexNum "^sys", 0, "([0-9.]+)", "$BuildLog";
@@ -1048,7 +1064,9 @@
 										'dejagnutests_log' => $dejagnutests_log,
 										'dejagnutests_sum' => $dejagnutests_sum,
 										'starttime' => $starttime,
-										'endtime' => $endtime);
+										'endtime' => $endtime,
+										'o_file_sizes' => $o_file_sizes,
+										'a_file_sizes' => $a_file_sizes);
 
 $TESTING = 0;