[svn:parrot] r44449 - branches/rm_cflags/config/auto

coke at svn.parrot.org coke at svn.parrot.org
Wed Feb 24 06:36:51 UTC 2010


Author: coke
Date: Wed Feb 24 06:36:50 2010
New Revision: 44449
URL: https://trac.parrot.org/parrot/changeset/44449

Log:
Construct the warnings data structure in smaller pieces.

Modified:
   branches/rm_cflags/config/auto/warnings.pm

Modified: branches/rm_cflags/config/auto/warnings.pm
==============================================================================
--- branches/rm_cflags/config/auto/warnings.pm	Wed Feb 24 06:28:50 2010	(r44448)
+++ branches/rm_cflags/config/auto/warnings.pm	Wed Feb 24 06:36:50 2010	(r44449)
@@ -92,6 +92,10 @@
         validated   => [],
     };
 
+    # begin gcc/g++ 
+    my $gcc = {};
+    my $gpp = {};
+
     my @gcc_or_gpp = qw(
         -falign-functions=16
         -fvisibility=hidden
@@ -142,11 +146,11 @@
         -Wwrite-strings
     );
 
-    $data->{'warnings'}{'gcc'}{'basic'} = [ @gcc_or_gpp ];
-    $data->{'warnings'}{'g++'}{'basic'} = [ @gcc_or_gpp ];
+    $gcc->{'basic'} = [ @gcc_or_gpp ];
+    $gpp->{'basic'} = [ @gcc_or_gpp ];
 
     # Add some gcc only warnings that would break g++
-    push @{$data->{'warnings'}{'gcc'}{'basic'}}, qw(
+    push @{$gcc->{'basic'}}, qw(
         -Wbad-function-cast
         -Wc++-compat
         -Wdeclaration-after-statement
@@ -181,8 +185,13 @@
         -Wunused-variable
     ) ];
 
-    $data->{'warnings'}{'gcc'}{'cage'} = $gcc_or_gpp_cage;
-    $data->{'warnings'}{'g++'}{'cage'} = $gcc_or_gpp_cage;
+    $gcc->{'cage'} = $gcc_or_gpp_cage;
+    $gpp->{'cage'} = $gcc_or_gpp_cage;
+
+    $data->{'warnings'}{'gcc'} = $gcc;
+    $data->{'warnings'}{'gpp'} = $gpp;
+
+    ## end gcc/g++
 
     return $data;
 }


More information about the parrot-commits mailing list