moparisthebest/curl
1
0
Fork 0
mirror of https://github.com/moparisthebest/curl synced 2024-12-22 08:08:50 -05:00
Code Issues Releases Wiki Activity

add more info when this script gets confused, and added getaddrinfo and

Browse Source 
freeaddrinfo to the trace output
This commit is contained in:
Daniel Stenberg 2005-06-30 14:07:52 +00:00
parent 701de67b79
commit 27926030f9
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tests/memanalyze.pl
View File

@ -67,11 +67,11 @@ if($showlimit) {
} }
my $lnum=0;
while(<FILE>) { while(<FILE>) {
chomp $_; chomp $_;
$line = $_; $line = $_;
$lnum++;
if($line =~ /^LIMIT ([^ ]*):(\d*) (.*)/) { if($line =~ /^LIMIT ([^ ]*):(\d*) (.*)/) {
# new memory limit test prefix # new memory limit test prefix
my $i = $3; my $i = $3;
@ -116,7 +116,8 @@ while(<FILE>) {
if($sizeataddr{$addr}>0) { if($sizeataddr{$addr}>0) {
# this means weeeeeirdo # this means weeeeeirdo
print "Mixed debug compile, rebuild curl now\n"; print "Mixed debug compile ($source:$linenum at line $lnum), rebuild curl now\n";
print "We think $sizeataddr{$addr} bytes are already allocated at that memory address: $addr!\n";
} }
$sizeataddr{$addr}=$size; $sizeataddr{$addr}=$size;
@ -281,6 +282,9 @@ while(<FILE>) {
$addrinfofile{$add}="$source:$linenum"; $addrinfofile{$add}="$source:$linenum";
$addrinfos++; $addrinfos++;
} }
if($trace) {
printf("GETADDRINFO ($source:$linenum)\n");
}
} }
# fclose(0x1026c8) # fclose(0x1026c8)
elsif($function =~ /freeaddrinfo\(0x([0-9a-f]*)\)/) { elsif($function =~ /freeaddrinfo\(0x([0-9a-f]*)\)/) {
@ -291,8 +295,10 @@ while(<FILE>) {
$addrinfo{$1}=0; $addrinfo{$1}=0;
$addrinfos--; $addrinfos--;
} }
if($trace) {
printf("FREEADDRINFO ($source:$linenum)\n");
}
} }
} }
else { else {