[svn:parrot] r47222 - in branches/tt1452_configure_debug/config/auto/cpu: sun4 x86_64
jkeenan at svn.parrot.org
jkeenan at svn.parrot.org
Mon May 31 13:56:21 UTC 2010
Author: jkeenan
Date: Mon May 31 13:56:20 2010
New Revision: 47222
URL: https://trac.parrot.org/parrot/changeset/47222
Log:
Update config step and test file to reflect change in handling of verbose debugging output.
Modified:
branches/tt1452_configure_debug/config/auto/cpu/sun4/auto.pm
branches/tt1452_configure_debug/config/auto/cpu/x86_64/auto.pm
Modified: branches/tt1452_configure_debug/config/auto/cpu/sun4/auto.pm
==============================================================================
--- branches/tt1452_configure_debug/config/auto/cpu/sun4/auto.pm Mon May 31 13:50:20 2010 (r47221)
+++ branches/tt1452_configure_debug/config/auto/cpu/sun4/auto.pm Mon May 31 13:56:20 2010 (r47222)
@@ -40,19 +40,17 @@
sub runstep {
my ( $self, $conf ) = @_;
- my $verbose = $conf->options->get('verbose');
-
build_asm( $self, $conf );
my @files = qw( test_atomic_c.in );
for my $f (@files) {
- print " $f " if $verbose;
+ $conf->debug(" $f ");
my ($suffix) = $f =~ /test_(\w+)/;
$f = "config/auto/cpu/sun4/$f";
$conf->cc_gen($f);
eval { $conf->cc_build("-DPARROT_CONFIG_TEST", "sparcasm" . $conf->data->get('o') ) };
if ($@) {
- print " $@ " if $verbose;
+ $conf->debug(" $@ ");
}
else {
if ( $conf->cc_run() =~ /ok/ ) {
@@ -60,7 +58,7 @@
"sparc_has_$suffix" => '1',
"HAS_SPARC_$suffix" => '1',
);
- print " (\U$suffix) " if ($verbose);
+ $conf->debug(" (\U$suffix) ");
$conf->data->add( ' ', TEMP_atomic_o => 'src/atomic/sparc_v9.o' );
}
}
Modified: branches/tt1452_configure_debug/config/auto/cpu/x86_64/auto.pm
==============================================================================
--- branches/tt1452_configure_debug/config/auto/cpu/x86_64/auto.pm Mon May 31 13:50:20 2010 (r47221)
+++ branches/tt1452_configure_debug/config/auto/cpu/x86_64/auto.pm Mon May 31 13:56:20 2010 (r47222)
@@ -20,8 +20,6 @@
my ( $self, $conf ) = @_;
# x86_64 is recently new and has cmpxchg
-
- my $verbose = $conf->options->get('verbose');
my $gcc = $conf->data->get('gccversion');
# when running on gcc, we just define the config item
More information about the parrot-commits
mailing list