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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index db5f9380ad34ac922bb607953647c1c075e76340..80cb5cca09100b5f86c8f3cc68763ccf6e881ab4 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+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

diff --git a/gcc/testsuite/lib/scanasm.exp b/gcc/testsuite/lib/scanasm.exp
index cca6d642cc630c545a5e7553d08250e83a49a9e6..35ccbc86fc0371401e6e6b88bc07f69e44844a79 100644 (file)
--- 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*-*-*] } {