X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Porting%2Fconfig_h.pl;h=cf69b2ad320be7b0fd2924e5e7627603727ae9a6;hb=906bad61c3bd0dd3a56a226b2981e4d14d5e71c9;hp=2543b34ae18e3c7887320d849e66398a5acf5641;hpb=253687a919e6d27d683ed5f25d04adf06f590fe5;p=p5sagit%2Fp5-mst-13.2.git diff --git a/Porting/config_h.pl b/Porting/config_h.pl index 2543b34..cf69b2a 100755 --- a/Porting/config_h.pl +++ b/Porting/config_h.pl @@ -3,7 +3,7 @@ # This script reorders config_h.SH after metaconfig # Changing metaconfig is too complicated # -# Copyright (C) 2005-2005 by H.Merijn Brand (m)'05 [25-05-2005] +# Copyright (C) 2005-2007 by H.Merijn Brand (m)'07 [18-04-2007] # # You may distribute under the terms of either the GNU General Public # License or the Artistic License, as specified in the README file. @@ -30,9 +30,13 @@ sub ch_index () my %dep = ( # This symbol must be defined BEFORE ... + BYTEORDER => [ qw( UVSIZE ) ], LONGSIZE => [ qw( BYTEORDER ) ], MULTIARCH => [ qw( BYTEORDER MEM_ALIGNBYTES ) ], + USE_CROSS_COMPILE => [ qw( BYTEORDER MEM_ALIGNBYTES ) ], HAS_QUAD => [ qw( I64TYPE ) ], + HAS_GETGROUPS => [ qw( Groups_t ) ], + HAS_SETGROUPS => [ qw( Groups_t ) ], ); my $changed; @@ -51,6 +55,25 @@ do { } } while ($changed); +# 30327 +for (grep m{echo .Extracting \$CONFIG_H} => @ch) { + my $case = join "\n", + qq{case "\$CONFIG_H" in}, + qq{already-done) echo "Not re-extracting config.h" ;;}, + qq{*)}, ""; + s{^(?=echo .Extracting)}{$case}m; + } +push @ch, ";;\nesac\n"; + + open $ch, "> $cSH" or die "Cannot write $cSH: $!\n"; +print $ch <