procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

profopt.exp (profopt-get-options): Set tool_flags for current_compiler_flags.

Browse source 
* lib/profopt.exp (profopt-get-options): Set tool_flags for
current_compiler_flags.  Fix typos.

From-SVN: r152068
This commit is contained in:
Andreas Schwab 2009-09-23 13:44:12 +00:00 • committed by Andreas Schwab
parent 66f0e027f5
commit 28baf121d3
2 changed files with 11 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2009-09-23 Andreas Schwab <schwab@redhat.com>
* lib/profopt.exp (profopt-get-options): Set tool_flags for
current_compiler_flags. Fix typos.
2009-09-23 Yuri Gribov <tetra2005@googlemail.com>
* gcc.c-torture/execute/980526-2.c: Skip if sizeof (int) > 4.

8
gcc/testsuite/lib/profopt.exp
View file

@ -177,6 +177,10 @@ proc profopt-get-options { src } {
# dg-require-* sets dg-do-what.
upvar dg-do-what dg-do-what
# current_compiler_flags reads tool_flags from the same stack frame
# as dg-extra-tool-flags
set tool_flags ""
set tmp [dg-get-options $src]
foreach op $tmp {
set cmd [lindex $op 0]
@ -188,13 +192,13 @@ proc profopt-get-options { src } {
|| [string match "dg-require-*" $cmd] } {
set status [catch "$op" errmsg]
if { $status != 0 } {
perror "src: $errmsg for \"$op\"\n"
perror "$src: $errmsg for \"$op\"\n"
unresolved "$src: $errmsg for \"$op\""
return
}
} else {
# Ignore unrecognized dg- commands, but warn about them.
warning "compat.exp does not support $cmd"
warning "profopt.exp does not support $cmd"
}
}