verify-lines in gcc/testsuite/lib/gcov.exp has
proc verify-lines { testcase file } {
#send_user "verify-lines\n"
set failed 0
set fd [open $file r]
while { [gets $fd line] >= 0 } {
if [regexp "^ *(\[^:]*): *(\[0-9\]+):.*count\\((\[0-9\]+)\\)" \
"$line" all is n shouldbe] {
if { $is == "" } {
fail "$n:no data available for this line"
incr failed
} elseif { $is != $shouldbe } {
fail "$n:is $is:should be $shouldbe"
incr failed
}
}
}
return $failed
}
There is no "close $fd", which leads to file descriptor leak.
--
Summary: File descriptor leak in
Product: gcc
Version: 4.2.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: testsuite
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: hjl at lucon dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25728
