76 lines
1.2 KiB
Awk
76 lines
1.2 KiB
Awk
|
#!/usr/bin/awk -f
|
||
|
|
|
||
|
|
|
||
|
|
BEGIN{
|
||
|
|
total = 0
|
||
|
|
malloc = 0
|
||
|
|
free = 0
|
||
|
|
realloc = 0
|
||
|
|
}
|
||
|
|
|
||
|
|
# my_malloc(234,): allocating 1a01ff0 , 10 bytes
|
||
|
|
/^my_[mc]alloc\(/{
|
||
|
|
id = $1
|
||
|
|
sub(/.*\(/,"", id)
|
||
|
|
sub(/,.*/,"",id)
|
||
|
|
idx[$3] = id
|
||
|
|
total += $5
|
||
|
|
address[$3] = $5
|
||
|
|
malloc++
|
||
|
|
}
|
||
|
|
|
||
|
|
# my_free(): freeing 198efc0
|
||
|
|
/^my_free\(/{
|
||
|
|
total -= address[$3]
|
||
|
|
delete address[$3]
|
||
|
|
delete idx[$3]
|
||
|
|
free++
|
||
|
|
}
|
||
|
|
|
||
|
|
# my_realloc(235,): reallocating 0 --> 198efa0 to 24 bytes
|
||
|
|
# my_realloc(237,): reallocating 198efc0 --> 1cfc090 to 28 bytes
|
||
|
|
/^my_realloc\(/{
|
||
|
|
id = $1
|
||
|
|
sub(/.*\(/,"", id)
|
||
|
|
sub(/,.*/,"",id)
|
||
|
|
idx[$3] = id
|
||
|
|
if($3=="(nil)") { #malloc
|
||
|
|
total+=$7
|
||
|
|
address[$5] = $7
|
||
|
|
idx[$5] = id
|
||
|
|
}
|
||
|
|
else { # realloc
|
||
|
|
total += $7 - address[$3]
|
||
|
|
delete address[$3]
|
||
|
|
delete idx[$3]
|
||
|
|
address[$5] = $7
|
||
|
|
idx[$5] = id
|
||
|
|
}
|
||
|
|
realloc++
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
END{
|
||
|
|
print "total = " total
|
||
|
|
print "malloc = " malloc
|
||
|
|
print "realloc = " realloc
|
||
|
|
print "free = " free
|
||
|
|
stale = 0
|
||
|
|
leak = 0
|
||
|
|
|
||
|
|
for(i in address) {
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
stale++
|
||
|
|
leak+= address[i]
|
||
|
|
print " address[ " i ", " idx[i] " ]= " address[i]
|
||
|
|
pipe = "grep -n 'my_.*(" idx[i] ",' *.c"
|
||
|
|
while( pipe | getline a) print " " a
|
||
|
|
close(pipe)
|
||
|
|
}
|
||
|
|
print "stale= " stale
|
||
|
|
print "leak= " leak
|
||
|
|
}
|