Skip to content

F
freeswitch
提交 f1b4d15c authored 作者: Mike Jerris's avatar Mike Jerris
浏览文件
操作

Merge pull request #864 in FS/freeswitch from feature/FS-9199-mem-alloc-debug to master 

* commit '68892535':
  FS-9199 easier memory allocation debugging and analysis
上级 67e1db09 68892535
隐藏空白字符变更
内嵌 并排
正在显示 包含 144 行增加 和 4 行删除
scripts/perl/analyze-debug-alloc.pl 0 → 100755
浏览文件 @ f1b4d15c
#!/usr/bin/perl
# analyze-debug-alloc.pl
# generate allocation report by processing log files
# Note that this script is only useful when run against freeswitch log files
# produced when server is running with DEBUG_ALLOC and DEBUG_ALLOC2 set.
# It's purely for diagnosing memory leaks.
use strict;
use JSON;
my $debug = 0;
my @logs = sort glob("freeswitch.log.*");
push( @logs, "freeswitch.log" );
my %pools = ();
foreach my $file (@logs) {
open( my $in, "<$file" );
while ( defined( my $line = <$in> ) ) {
if ( $line =~ /(0x[0-9A-Fa-f]+) DESTROY POOL$/o ) {
my $paddr = $1;
if ( !$pools{$paddr} ) {
$debug && print "WARN: No ref to pool $paddr.\n";
}
else {
foreach my $alloc ( @{ $pools{$paddr}->{allocs} } ) {
# debug, might not be needed
}
delete $pools{$paddr};
}
}
elsif ( $line =~ /(0x[0-9A-Fa-f]+) Free Pool/o ) {
my $paddr = $1;
if ( !$pools{$paddr} ) {
$debug && print "WARN: No ref to pool $paddr.\n";
}
else {
foreach my $alloc ( @{ $pools{$paddr}->{allocs} } ) {
# debug, might not be needed
}
delete $pools{$paddr};
}
}
elsif ( $line =~ /(0x[0-9A-Fa-f]+) New Pool (.*)$/o ) {
my $paddr = $1;
my $where = $2;
if ( $pools{$paddr} ) {
$debug && print "WARN: Duplicate pool $paddr at $where.\n";
}
$pools{$paddr}->{where} = $where;
if ( !$pools{$paddr}->{allocs} ) {
$pools{$paddr}->{allocs} = [];
}
}
elsif ( $line =~ /CONSOLE\] \s*(.*?:\d+) (0x[0-9A-Fa-f]+) Core Allocate (.*:\d+)\s+(\d+)$/o ) {
my $where = $1;
my $paddr = $2;
my $pwhere = $3;
my $size = $4;
if ( !$pools{$paddr} ) {
$debug && print "WARN: Missing pool ref for alloc of $size from $paddr at $where (pool $pwhere)\n";
}
$pools{$paddr}->{where} = $where;
push( @{ $pools{$paddr}->{allocs} }, { size => $size, where => $where } );
}
elsif ( $line =~ /CONSOLE\] \s*(.*?:\d+) (0x[0-9A-Fa-f]+) Core Strdup Allocate (.*:\d+)\s+(\d+)$/o ) {
my $where = $1;
my $paddr = $2;
my $pwhere = $3;
my $size = $4;
if ( !$pools{$paddr} ) {
$debug
&& print "WARN: Missing pool ref for strdup alloc of $size from $paddr at $where (pool $pwhere)\n";
}
$pools{$paddr}->{where} = $where;
push( @{ $pools{$paddr}->{allocs} }, { size => $size, where => $where } );
}
}
}
my $used = 0;
my $pcount = 0;
my $acount = 0;
my %pool_cnt_by_where = ();
my %alloc_size_by_where = ();
my %alloc_cnt_by_where = ();
foreach my $pool ( keys %pools ) {
my $where = $pools{$pool}->{where};
$pcount++;
$pool_cnt_by_where{$where}++;
foreach my $alloc ( @{ $pools{$pool}->{allocs} } ) {
my $sz = $alloc->{size};
my $where = $alloc->{where};
$acount++;
$alloc_size_by_where{$where} += $sz;
$alloc_cnt_by_where{$where}++;
$used += $sz;
}
}
print "Used: $used\n";
print "Pool Count: $pcount\n";
print "Alloc Count: $acount\n";
my $json = new JSON;
$json->pretty(1);
$json->canonical(1);
print "Pool Count by Where:\n";
foreach my $pool ( sort { $pool_cnt_by_where{$a} <=> $pool_cnt_by_where{$b} || $a cmp $b } keys %pool_cnt_by_where ) {
print $pool_cnt_by_where{$pool}, "\t", $pool, "\n";
}
print "\n";
print "Alloc Count by Where:\n";
foreach my $pool ( sort { $alloc_cnt_by_where{$a} <=> $alloc_cnt_by_where{$b} || $a cmp $b } keys %alloc_cnt_by_where )
{
print $alloc_cnt_by_where{$pool}, "\t", $pool, "\n";
}
print "\n";
print "Alloc Size by Where:\n";
foreach
my $pool ( sort { $alloc_size_by_where{$a} <=> $alloc_size_by_where{$b} || $a cmp $b } keys %alloc_size_by_where )
{
print $alloc_size_by_where{$pool}, "\t", $pool, "\n";
}
print "\n";
src/switch_core_memory.c
浏览文件 @ f1b4d15c
......@@ -37,6 +37,7 @@
//#define DEBUG_ALLOC
//#define DEBUG_ALLOC2
//#define DEBUG_ALLOC_CUTOFF 0 /* Lower to zero to log all pool allocations when DEBUG_ALLOC is defined */
//#define DESTROY_POOLS
//#define INSTANTLY_DESTROY_POOLS
//#define LOCK_MORE
......@@ -45,6 +46,9 @@
#ifndef SWITCH_POOL_RECYCLE
#define PER_POOL_LOCK 1
#endif
#ifndef DEBUG_ALLOC_CUTOFF
#define DEBUG_ALLOC_CUTOFF 500
#endif
static struct {
#ifdef USE_MEM_LOCK
......@@ -79,7 +83,7 @@ SWITCH_DECLARE(void *) switch_core_perform_session_alloc(switch_core_session_t *
#endif
#ifdef DEBUG_ALLOC
if (memory > 500)
if (memory > DEBUG_ALLOC_CUTOFF)
switch_log_printf(SWITCH_CHANNEL_ID_LOG, file, func, line, NULL, SWITCH_LOG_CONSOLE, "%p %p Session Allocate %s %d\n",
(void *) session->pool, (void *) session, apr_pool_tag(session->pool, NULL), (int) memory);
#endif
......@@ -247,7 +251,7 @@ SWITCH_DECLARE(char *) switch_core_perform_session_strdup(switch_core_session_t
#ifdef DEBUG_ALLOC
len = strlen(todup);
if (len > 500)
if (len > DEBUG_ALLOC_CUTOFF)
switch_log_printf(SWITCH_CHANNEL_ID_LOG, file, func, line, NULL, SWITCH_LOG_CONSOLE, "%p %p Sess Strdup Allocate %s %ld\n",
(void *) session->pool, (void *)session, apr_pool_tag(session->pool, NULL), strlen(todup));
#endif
......@@ -286,7 +290,7 @@ SWITCH_DECLARE(char *) switch_core_perform_strdup(switch_memory_pool_t *pool, co
len = strlen(todup) + 1;
#ifdef DEBUG_ALLOC
if (len > 500)
if (len > DEBUG_ALLOC_CUTOFF)
switch_log_printf(SWITCH_CHANNEL_ID_LOG, file, func, line, NULL, SWITCH_LOG_CONSOLE, "%p Core Strdup Allocate %s %d\n",
(void *) pool, apr_pool_tag(pool, NULL), (int)len);
#endif
......@@ -457,7 +461,7 @@ SWITCH_DECLARE(void *) switch_core_perform_alloc(switch_memory_pool_t *pool, swi
#endif
#ifdef DEBUG_ALLOC
if (memory > 500)
if (memory > DEBUG_ALLOC_CUTOFF)
switch_log_printf(SWITCH_CHANNEL_ID_LOG, file, func, line, NULL, SWITCH_LOG_CONSOLE, "%p Core Allocate %s %d\n",
(void *) pool, apr_pool_tag(pool, NULL), (int) memory);
/*switch_assert(memory < 20000); */
......
Markdown 格式
0% 或
您添加了 0 人 到此讨论。请谨慎行事。
请先完成此评论的编辑！
请 注册 或者 后发表评论