[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