From: Daniel Stenberg <daniel@haxx.se>
Date: Thu, 30 Jun 2005 14:07:52 +0000 (+0000)
Subject: add more info when this script gets confused, and added getaddrinfo and
X-Git-Tag: upstream/7.37.1~11054
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=27926030f94d28e3f8f97b1aa0709cc1b218ad0b;p=platform%2Fupstream%2Fcurl.git

add more info when this script gets confused, and added getaddrinfo and
freeaddrinfo to the trace output
---

diff --git a/tests/memanalyze.pl b/tests/memanalyze.pl
index 169c0fe..b8f17b5 100755
--- a/tests/memanalyze.pl
+++ b/tests/memanalyze.pl
@@ -67,11 +67,11 @@ if($showlimit) {
 }
 
 
-
+my $lnum=0;
 while(<FILE>) {
     chomp $_;
     $line = $_;
-
+    $lnum++;
     if($line =~ /^LIMIT ([^ ]*):(\d*) (.*)/) {
         # new memory limit test prefix
         my $i = $3;
@@ -116,7 +116,8 @@ while(<FILE>) {
 
             if($sizeataddr{$addr}>0) {
                 # 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;
@@ -281,6 +282,9 @@ while(<FILE>) {
                 $addrinfofile{$add}="$source:$linenum";
                 $addrinfos++;
             }
+            if($trace) {
+                printf("GETADDRINFO ($source:$linenum)\n");
+            }
         }
         # fclose(0x1026c8)
         elsif($function =~ /freeaddrinfo\(0x([0-9a-f]*)\)/) {
@@ -291,9 +295,11 @@ while(<FILE>) {
                 $addrinfo{$1}=0;
                 $addrinfos--;
             }
+            if($trace) {
+                printf("FREEADDRINFO ($source:$linenum)\n");
+            }
         }
-
-        
+       
     }
     else {
         print "Not recognized prefix line: $line\n";