[Compbench-devel] CompBenchmarks++/CBM-PI/t 05-KB-Option-Logics.pl, 1.2, 1.3
Brought to you by:
xfred
From: Frederic T. <xf...@us...> - 2007-04-18 16:29:26
|
Update of /cvsroot/compbench/CompBenchmarks++/CBM-PI/t In directory sc8-pr-cvs4.sourceforge.net:/tmp/cvs-serv694 Modified Files: 05-KB-Option-Logics.pl Log Message: Some tests skipped if no options have been defined for a compiler (e.g. tcc at this time). Index: 05-KB-Option-Logics.pl =================================================================== RCS file: /cvsroot/compbench/CompBenchmarks++/CBM-PI/t/05-KB-Option-Logics.pl,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** 05-KB-Option-Logics.pl 17 Apr 2007 20:10:11 -0000 1.2 --- 05-KB-Option-Logics.pl 18 Apr 2007 16:29:21 -0000 1.3 *************** *** 292,297 **** my $i; my $o; my $lit_first = $C->OptionDescriptions()->Description($first_option)->Option(); ! foreach $o (keys %option_want) { foreach $i (keys %{$option_want{$o}}) { my $l0 = compiler_option_litteral($C, $o); --- 292,302 ---- my $i; my $o; + my @ow = keys %option_want; + + if (!(@ow+0)) { + next; + } my $lit_first = $C->OptionDescriptions()->Description($first_option)->Option(); ! foreach $o (@ow) { foreach $i (keys %{$option_want{$o}}) { my $l0 = compiler_option_litteral($C, $o); |