diff options
author | Jeff Law <law@redhat.com> | 2009-10-23 20:45:33 +0000 |
---|---|---|
committer | Jeff Law <law@redhat.com> | 2009-10-23 20:45:33 +0000 |
commit | 1842abc1729f8464ebb6841bbba53c16e2ef85e4 (patch) | |
tree | 11cd53c01c82fef4a36dc441c177c8f5791e42b5 /gcc/testsuite/lib/lto.exp | |
parent | 7cb10b40862da77eb3b5b1d8849fcf9586cc76ee (diff) | |
parent | 4305ca1e7fb07a4366633371d39928486f440d40 (diff) |
Merge from trunkreload-v2
git-svn-id: https://gcc.gnu.org/svn/gcc/branches/reload-v2@153515 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/lib/lto.exp')
-rw-r--r-- | gcc/testsuite/lib/lto.exp | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/gcc/testsuite/lib/lto.exp b/gcc/testsuite/lib/lto.exp index 7f2d7ecec83..cccd64220bc 100644 --- a/gcc/testsuite/lib/lto.exp +++ b/gcc/testsuite/lib/lto.exp @@ -191,6 +191,16 @@ proc lto-get-options-main { src } { || ![string compare "dg-options" $cmd] } { warning "lto.exp does not support $cmd in primary source file" } elseif { ![string compare "dg-lto-do" $cmd] } { + if { [llength $op] > 3 } { + set kw [lindex [lindex $op 3] 0] + if [string match "target" $kw] { + perror "$src: dg-lto-do does not support \"target\"" + } elseif [string match "xfail" $kw] { + perror "$src: dg-lto-do does not support \"xfail\"" + } else { + perror "$src: dg-lto-do takes a single argument" + } + } set dgdo [lindex $op 2] verbose "dg-lto-do command for \"$op\" is $dgdo" if { ![string compare "assemble" $dgdo] } { |