OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

Browse Source 
From-SVN: r169157
This commit is contained in:
Rainer Orth 2011-01-24 11:45:49 +00:00 committed by Rainer Orth
parent 467b72a8dd
commit 789abad8f3
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/ChangeLog
View File

@ -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

5
gcc/testsuite/lib/scanasm.exp
View File

@ -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]