Commit 0d4f214e by Jakub Jelinek Committed by Jakub Jelinek

asan-dg.exp (asan_symbolize): Prune BFD: prefixed error messages from addr2line_output.

	* lib/asan-dg.exp (asan_symbolize): Prune BFD: prefixed error messages
	from addr2line_output.  Increment idx if asking for more than one address
	in one object.

From-SVN: r193586
parent ee4b6b52
2012-11-17 Jakub Jelinek <jakub@redhat.com>
* lib/asan-dg.exp (asan_symbolize): Prune BFD: prefixed error messages
from addr2line_output. Increment idx if asking for more than one address
in one object.
2012-11-16 Jakub Jelinek <jakub@redhat.com> 2012-11-16 Jakub Jelinek <jakub@redhat.com>
PR tree-optimization/55329 PR tree-optimization/55329
......
...@@ -127,7 +127,9 @@ proc asan_symbolize { output } { ...@@ -127,7 +127,9 @@ proc asan_symbolize { output } {
set args "-f -e $key $arr($key)" set args "-f -e $key $arr($key)"
set status [remote_exec host "$addr2line_name" $args] set status [remote_exec host "$addr2line_name" $args]
if { [lindex $status 0] > 0 } continue if { [lindex $status 0] > 0 } continue
set addr2line_output [regexp -inline -all -line "^\[^\n\r]*" [lindex $status 1]] regsub -all "\r\n" [lindex $status 1] "\n" addr2line_output
regsub -all "(^|\n|\r)BFD: \[^\n\r\]*" $addr2line_output "" addr2line_output
set addr2line_output [regexp -inline -all -line "^\[^\n\r]*" $addr2line_output]
set idx 0 set idx 0
foreach val $arr($key) { foreach val $arr($key) {
if { [expr $idx + 1] < [llength $addr2line_output] } { if { [expr $idx + 1] < [llength $addr2line_output] } {
...@@ -137,6 +139,7 @@ proc asan_symbolize { output } { ...@@ -137,6 +139,7 @@ proc asan_symbolize { output } {
set newkey "$key+$val" set newkey "$key+$val"
set repl($newkey) "$fnname $fileline" set repl($newkey) "$fnname $fileline"
} }
set idx [expr $idx + 2]
} }
} }
} }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment