scanasm.exp (dg-function-on-line): Add MicroBlaze specific pattern.

2014-06-30  David Holsgrove <david.holsgrove@xilinx.com>

	* gcc/testsuite/lib/scanasm.exp (dg-function-on-line): Add
	MicroBlaze specific pattern.

--This line, and those below,

M    ChangeLog
M    lib/scanasm.exp

From-SVN: r212189

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 6c819425f6e64bd13597ceca140be774f3b2c0ce..854f7cff6d613a9c5c225cd7ddb2f8875f56deed 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2014-06-30  David Holsgrove <david.holsgrove@xilinx.com>
+
+       * gcc/testsuite/lib/scanasm.exp (dg-function-on-line): Add
+       MicroBlaze specific pattern.
+
 2014-06-30  Edward Smith-Rowland  <3dw4rd@verizon.net>
 
        PR c++/58781

diff --git a/gcc/testsuite/lib/scanasm.exp b/gcc/testsuite/lib/scanasm.exp
index e382b3d019262d3370738916b2a023b656b247d1..5a1a5999d4807ab3e45f2b4e7c3e1c2db2695bb1 100644 (file)
--- a/gcc/testsuite/lib/scanasm.exp
+++ b/gcc/testsuite/lib/scanasm.exp
@@ -486,6 +486,9 @@ proc dg-function-on-line { args } {
     } elseif { [istarget mips*-*-*] } {
        set pattern [format {\t\.loc [0-9]+ %d 0( [^\n]*)?\n(\t.cfi_startproc[^\t]*\n)*\t\.set\t(no)?mips16\n\t(\.set\t(no)?micromips\n\t)?\.ent\t%s\n\t\.type\t%s, @function\n%s:\n} \
                     $line $symbol $symbol $symbol]
+    } elseif { [istarget microblaze*-*-*] } {
+        set pattern [format {:%d\n\$.*:\n\t\.ent\t%s\n\t\.type\t%s, @function\n%s:\n} \
+                     $line $symbol $symbol $symbol]
     } else {
        set pattern [format {%s:[^\t]*(\t.(fnstart|frame|mask|file)[^\t]*)*\t[^:]+:%d\n} \
                      $symbol $line]