Commit 74f48aee by Janis Johnson Committed by Janis Johnson

* lib/compat.exp (compat-execute): Break up long lines.

From-SVN: r82260
parent 5da9128a
2004-05-25 Janis Johnson <janis187@us.ibm.com>
* lib/compat.exp (compat-execute): Break up long lines.
2004-05-24 Janis Johnson <janis187@us.ibm.com>
* gcc.dg/altivec-7.c: Don't use 'vector long'.
......
......@@ -173,7 +173,8 @@ proc compat-get-options { src } {
set tmp [dg-get-options $src]
foreach op $tmp {
set cmd [lindex $op 0]
if { ![string compare "dg-options" $cmd] || ![string compare "dg-xfail-if" $cmd] } {
if { ![string compare "dg-options" $cmd] \
|| ![string compare "dg-xfail-if" $cmd] } {
set status [catch "$op" errmsg]
if { $status != 0 } {
perror "src: $errmsg for \"$op\"\n"
......@@ -278,15 +279,19 @@ proc compat-execute { src1 sid use_alt } {
# later. Skip this if we don't have an alternate compiler.
if { $use_alt != 0 } then {
compat-use-alt-compiler
compat-obj "$src2" "$obj2_alt" $alt_option $extra_flags_2 $optstr $compile_xfail_2
compat-obj "$src3" "$obj3_alt" $alt_option $extra_flags_3 $optstr $compile_xfail_3
compat-obj "$src2" "$obj2_alt" $alt_option $extra_flags_2 \
$optstr $compile_xfail_2
compat-obj "$src3" "$obj3_alt" $alt_option $extra_flags_3 \
$optstr $compile_xfail_3
}
# Compile pieces with the compiler under test.
compat-use-tst-compiler
compat-obj "$src1" "$obj1" $tst_option $extra_flags_1 $optstr ""
compat-obj "$src2" "$obj2_tst" $tst_option $extra_flags_2 $optstr $compile_xfail_2
compat-obj "$src3" "$obj3_tst" $tst_option $extra_flags_3 $optstr $compile_xfail_3
compat-obj "$src2" "$obj2_tst" $tst_option $extra_flags_2 \
$optstr $compile_xfail_2
compat-obj "$src3" "$obj3_tst" $tst_option $extra_flags_3 \
$optstr $compile_xfail_3
# Link (using the compiler under test), run, and clean up tests.
compat-run "${obj2_tst}-${obj3_tst}" \
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment