moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-12-21 23:58:49 -05:00
Code Issues Releases Wiki Activity

supports -l now to display the actual line that was prevented by memlimit

Browse Source
This commit is contained in:
Daniel Stenberg 2003-10-24 12:59:58 +00:00
parent 656d4b4c20
commit 2fe5f5ab4b
1 changed files with 23 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
tests/memanalyze.pl
View File

@ -9,6 +9,7 @@
my $mallocs=0;
my $reallocs=0;
my $strdups=0;
my $showlimit;
while(1) {
if($ARGV[0] eq "-v") {
@ -19,7 +20,14 @@ while(1) {
$trace=1;
shift @ARGV;
}
last;
elsif($ARGV[0] eq "-l") {
# only show what alloc that caused a memlimit failure
$showlimit=1;
shift @ARGV;
}
else {
last;
}
}
my $maxmem;
@ -38,6 +46,7 @@ my $file = $ARGV[0];
if(! -f $file) {
print "Usage: memanalyze.pl [options] <dump file>\n",
"Options:\n",
" -l memlimit failure displayed\n",
" -v Verbose\n",
" -t Trace\n";
exit;
@ -45,6 +54,19 @@ if(! -f $file) {
open(FILE, "<$file");
if($showlimit) {
while(<FILE>) {
if(/^LIMIT.*memlimit$/) {
print $_;
last;
}
}
close(FILE);
exit;
}
while(<FILE>) {
chomp $_;
$line = $_;