From 7486a74390576d173b3e9d3c555b1bef1259213d Mon Sep 17 00:00:00 2001 From: John David Anglin Date: Fri, 7 Jun 2019 23:15:49 +0000 Subject: [PATCH] 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 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/lib/scanasm.exp | 5 ++++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index db5f9380ad3..80cb5cca091 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2019-06-07 John David Anglin + + * lib/scanasm.exp (dg-function-on-line): Add pattern for hppa*-*-linux*. + 2019-06-07 Mark Eggleston PR fortran/89100 diff --git a/gcc/testsuite/lib/scanasm.exp b/gcc/testsuite/lib/scanasm.exp index cca6d642cc6..35ccbc86fc0 100644 --- a/gcc/testsuite/lib/scanasm.exp +++ b/gcc/testsuite/lib/scanasm.exp @@ -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*-*-*] } { -- 2.30.2