Author: sparky
Date: Fri Aug 4 16:21:36 2006
New Revision: 7593
Modified:
toys/tools/gcc.wrapper
Log:
- rewritten to make it smarter:
-- reports when there is -l<sometging> before -Wl,--as-needed
-- reports when -Os was overwritten by other -O
Modified: toys/tools/gcc.wrapper
==============================================================================
--- toys/tools/gcc.wrapper (original)
+++ toys/tools/gcc.wrapper Fri Aug 4 16:21:36 2006
@@ -13,9 +13,14 @@
# warning: glibc changes flags order
my $cflags = "-fno-align-loops -fno-align-jumps -fno-align-functions";
+my $wanted_optimize = "-Os";
+my $wanted_ldflag = "-Wl,--as-needed";
+
my $link = 1;
my $compile = 1;
my $source = 0;
+my $optimize = "";
+my $asneeded_first = undef;
FORARGS:
foreach my $arg (@ARGV) {
@@ -42,7 +47,20 @@
$compile = 0;
last FORARGS;
}
- $source = 1 if $arg =~ /\.(c|cpp|cxx)$/;
+ if (length $wanted_optimize and $arg =~ /^(-O[s0-9])$/) {
+ $optimize = $1;
+ next;
+ }
+ if (length $wanted_ldflag and not defined $asneeded_first) {
+ if ($arg =~ /^-l/) {
+ $asneeded_first = 0;
+ next;
+ } elsif ($arg eq $wanted_ldflag) {
+ $asneeded_first = 1;
+ next;
+ }
+ }
+ $source = 1 if $arg =~ /\.(c|cc|cpp|cxx)$/;
}
$compile = 0 unless $source;
@@ -51,25 +69,34 @@
if ($link or $compile) {
(my $pwd = $ENV{PWD}) =~ s#.*BUILD/##;
my $args = join ' ', @ARGV;
- if (length $ldflags and $link) {
- unless ($args =~ /$ldflags/o) {
- open PROBLEMS, ">> $ENV{HOME}/ldflags-problems"
- or die "$!\n";
- print PROBLEMS "LDFLAGS! $pwd: $args\n";
- close PROBLEMS;
+ my @problems;
+ if ($link) {
+ if (length $ldflags and $args !~ /$ldflags/) {
+ push @problems, "LDFLAGS";
+ }
+ if (length $wanted_ldflag and defined $asneeded_first
+ and $asneeded_first == 0 ) {
+ push @problems, "ASNEEDED";
}
}
- if (length $cflags and $compile) {
- unless ($args =~ /$cflags/o) {
- open PROBLEMS, ">> $ENV{HOME}/ldflags-problems"
- or die "$!\n";
- print PROBLEMS "CFLAGS! $pwd: $args\n";
- close PROBLEMS;
+ if ($compile) {
+ if (length $cflags and $args !~ /$cflags/) {
+ push @problems, "CFLAGS";
+ }
+ if (length $wanted_optimize and $optimize ne $wanted_optimize) {
+ push @problems, "OPTIMIZE($optimize)";
}
}
unless ($prog eq "ppc-pld-linux-gcc" or $prog eq "ppc-pld-linux-g++") {
- open PROBLEMS, ">> $ENV{HOME}/ldflags-problems" or die "$!\n";
- print PROBLEMS "PROGRAM! $pwd: $0\n";
+ push @problems, "PROGRAM";
+ }
+
+ #push @problems, "TEST";
+ if (@problems) {
+ open PROBLEMS, ">> $ENV{HOME}/ldflags-problems"
+ or die "$!\n";
+ local $" = "! ";
+ print PROBLEMS "@problems! $pwd: $0 $args\n";
close PROBLEMS;
}
}
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
