Commit 7486a743 by John David Anglin

scanasm.exp (dg-function-on-line): Add pattern for hppa*-*-linux*.

	* lib/scanasm.exp (dg-function-on-line): Add pattern for hppa*-*-linux*.

From-SVN: r272060
parent e13896a3
2019-06-07 John David Anglin <danglin@gcc.gnu.org>
* lib/scanasm.exp (dg-function-on-line): Add pattern for hppa*-*-linux*.
2019-06-07 Mark Eggleston <mark.eggleston@codethink.com>
PR fortran/89100
......
......@@ -508,7 +508,10 @@ proc dg-function-on-line { args } {
}
}
if { [istarget hppa*-*-*] } {
if { [istarget hppa*-*-linux*] } {
set pattern [format {%s:\n\t.PROC\n\t.CALLINFO.*\n\t.ENTRY\n.L.*:\n(\t.file[^\t]*)*\t[^:]+:%d(:[0-9]+)?\n} \
$symbol $line]
} elseif { [istarget hppa*-*-*] } {
set pattern [format {\t;[^:]+:%d(:[0-9]+)?\n(\t[^\t]+\n)+%s:\n\t.PROC} \
$line $symbol]
} elseif { [istarget mips*-*-*] } {
......
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