scanasm.exp (dg-function-on-line): Always use a special format for all mips targets.

2012-01-03  Andrew Pinski  <apinski@cavium.com>

	* lib/scanasm.exp (dg-function-on-line): Always use a special format
	for all mips targets.  Also allow an optional .cfi_startproc.

From-SVN: r182855
This commit is contained in:
Andrew Pinski 2012-01-03 20:21:50 +00:00 committed by Andrew Pinski
parent 094872242f
commit 0239db9272
2 changed files with 8 additions and 3 deletions

View File

@ -1,3 +1,8 @@
2012-01-03 Andrew Pinski <apinski@cavium.com>
* lib/scanasm.exp (dg-function-on-line): Always use a special format
for all mips targets. Also allow an optional .cfi_startproc.
2012-01-03 Uros Bizjak <ubizjak@gmail.com>
* gfortran.dg/typebound_operator_8.f03: Use dg-add-options ieee.

View File

@ -1,4 +1,4 @@
# Copyright (C) 2000, 2002, 2003, 2007, 2008, 2010, 2011
# Copyright (C) 2000, 2002, 2003, 2007, 2008, 2010, 2011, 2012
# Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify
@ -474,8 +474,8 @@ 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} \
} 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} \
$line $symbol $symbol $symbol]
} else {
set pattern [format {%s:[^\t]*(\t.(fnstart|frame|mask|file)[^\t]*)*\t[^:]+:%d\n} \