scanasm.exp (dg-function-on-line): Make MIPS targets match .set (no)?micromips

gcc/testsuite/
2013-05-21  Graham Stott  <graham.stott@btinternet.com>

	* lib/scanasm.exp (dg-function-on-line): Make MIPS targets match
	.set (no)?micromips

From-SVN: r199161

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 1663fcc76a19dee5d39daed7747b7190cbe080ef..7bfe5071b2e0e3d095b030b2a7d82709d4be8334 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2013-05-21  Graham Stott  <graham.stott@btinternet.com>
+
+       * lib/scanasm.exp (dg-function-on-line): Make MIPS targets match
+       .set (no)?micromips
+
 2013-05-21  Tobias Burnus  <burnus@net-b.de>
 
        PR fortran/57035

diff --git a/gcc/testsuite/lib/scanasm.exp b/gcc/testsuite/lib/scanasm.exp
index 6a2c0fd7fc10d72a241558efac823b27a36f4562..bfdd273118080e50dcb2efd65cb88b6a176468a8 100644 (file)
--- a/gcc/testsuite/lib/scanasm.exp
+++ b/gcc/testsuite/lib/scanasm.exp
@@ -493,7 +493,7 @@ proc dg-function-on-line { args } {
        set pattern [format {\t;[^:]+:%d\n(\t[^\t]+\n)+%s:\n\t.PROC} \
                      $line $symbol]
     } 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\.ent\t%s\n\t\.type\t%s, @function\n%s:\n} \
+       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]
     } else {
        set pattern [format {%s:[^\t]*(\t.(fnstart|frame|mask|file)[^\t]*)*\t[^:]+:%d\n} \