From: Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE>
Date: Mon, 24 Jan 2011 11:45:49 +0000 (+0000)
Subject: * lib/scanasm.exp (dg-function-on-line): Handle mips-sgi-irix*.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=789abad8f3c95b6e6789f21a853601aab94ca6e6;p=gcc.git

* lib/scanasm.exp (dg-function-on-line): Handle mips-sgi-irix*.

From-SVN: r169157
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index dee1ef73e90..33d1cda1309 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2011-01-24  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
+
+	* lib/scanasm.exp (dg-function-on-line): Handle mips-sgi-irix*.
+
 2011-01-24  Rainer Orth  <ro@CeBiTec.Uni-Bielefeld.DE>
 
 	* gfortran.dg/cray_pointers_2.f90: Avoid cycling through
diff --git a/gcc/testsuite/lib/scanasm.exp b/gcc/testsuite/lib/scanasm.exp
index 66c522343f5..a49085410da 100644
--- a/gcc/testsuite/lib/scanasm.exp
+++ b/gcc/testsuite/lib/scanasm.exp
@@ -1,4 +1,4 @@
-# Copyright (C) 2000, 2002, 2003, 2007, 2008, 2010
+# Copyright (C) 2000, 2002, 2003, 2007, 2008, 2010, 2011
 # Free Software Foundation, Inc.
 
 # This program is free software; you can redistribute it and/or modify
@@ -342,6 +342,9 @@ proc dg-function-on-line { args } {
     if { [istarget "hppa*-*-*"] } {
 	set pattern [format {\t;[^:]+:%d\n(\t[^\t]+\n)+%s:\n\t.PROC} \
                      $line $symbol]
+    } elseif { [istarget "mips-sgi-irix*"] } {
+	set pattern [format {\t\.loc [0-9]+ %d 0( [^\n]*)?\n\t\.set\t(no)?mips16\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]