pass a file name to memanalyze to read from instead of using stdin (ba25cad6) · Commits · CYBER - Cyber Security / TS 103 523 MSP / TLMSP / TLMSP curl

tests/memanalyze.pl

+19 −3

Original line number	Diff line number	Diff line
		@@ -6,14 +6,17 @@
		# MEM mprintf.c:1103 realloc(e5718, 64) = e6118
		# MEM sendf.c:232 free(f6520)

		do {
		while(1) {
		if($ARGV[0] eq "-v") {
		$verbose=1;
		shift @ARGV;
		}
		elsif($ARGV[0] eq "-t") {
		$trace=1;
		shift @ARGV;
		}
		last;
		}
		} while (shift @ARGV);

		my $maxmem;

		@@ -26,7 +29,19 @@ sub newtotal {
		}
		}

		while(<STDIN>) {
		my $file = $ARGV[0];

		if(! -f $file) {
		print "Usage: memanalyze.pl [options] <dump file>\n",
		"Options:\n",
		" -v Verbose\n",
		" -t Trace\n";
		exit;
		}

		open(FILE, "<$file");

		while(<FILE>) {
		chomp $_;
		$line = $_;

		@@ -219,6 +234,7 @@ while(<STDIN>) {
		print "Not recognized prefix line: $line\n";
		}
		}
		close(FILE);

		if($totalmem) {
		print "Leak detected: memory still allocated: $totalmem bytes\n";

+1 −1

Original line number	Diff line number	Diff line
		@@ -777,7 +777,7 @@ sub singletest {
		print "\n** ALERT! memory debuggin without any output file?\n";
		}
		else {
		my @memdata=`$memanalyze < $memdump`;
		my @memdata=`$memanalyze $memdump`;
		my $leak=0;
		for(@memdata) {
		if($_ ne "") {