diff options
| author | Rainer Orth <ro@CeBiTec.Uni-Bielefeld.DE> | 2011-01-24 11:45:49 +0000 |
|---|---|---|
| committer | Rainer Orth <ro@gcc.gnu.org> | 2011-01-24 11:45:49 +0000 |
| commit | 789abad8f3c95b6e6789f21a853601aab94ca6e6 (patch) | |
| tree | db899f6d512fbedabe028afeabe5cd14da9324f5 /gcc | |
| parent | 467b72a8ddd89fa02b8030e9d9e209068f57eb5e (diff) | |
| download | gcc-789abad8f3c95b6e6789f21a853601aab94ca6e6.zip gcc-789abad8f3c95b6e6789f21a853601aab94ca6e6.tar.gz gcc-789abad8f3c95b6e6789f21a853601aab94ca6e6.tar.bz2 | |
* lib/scanasm.exp (dg-function-on-line): Handle mips-sgi-irix*.
From-SVN: r169157
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/lib/scanasm.exp | 5 |
2 files changed, 8 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index dee1ef7..33d1cda 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,9 @@ 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 optimization options. diff --git a/gcc/testsuite/lib/scanasm.exp b/gcc/testsuite/lib/scanasm.exp index 66c5223..a490854 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] |