Commit 69bdb825 authored by Daniel Stenberg's avatar Daniel Stenberg
Browse files

produce a single summary of the amount of allocations on -v

parent 4799d39b

tests/memanalyze.pl

+6 −1
Original line number Original line Diff line number Diff line
@@ -6,6 +6,10 @@ 
# MEM mprintf.c:1103 realloc(e5718, 64) = e6118

# MEM mprintf.c:1103 realloc(e5718, 64) = e6118

# MEM sendf.c:232 free(f6520)

# MEM sendf.c:232 free(f6520)





my $mallocs=0;

my $reallocs=0;

my $strdups=0;



while(1) {

while(1) {

    if($ARGV[0] eq "-v") {

    if($ARGV[0] eq "-v") {

        $verbose=1;

        $verbose=1;
@@ -287,7 +291,8 @@ if($verbose) { 
    print "Mallocs: $mallocs\n",

    print "Mallocs: $mallocs\n",

    "Reallocs: $reallocs\n",

    "Reallocs: $reallocs\n",

    "Strdups:  $strdups\n",

    "Strdups:  $strdups\n",

    "Frees: $frees\n";

    "Frees: $frees\n",

    "Allocations: ".($mallocs + $reallocs + $strdups)."\n";





    print "Maximum allocated: $maxmem\n";

    print "Maximum allocated: $maxmem\n";

}
 
}