- moved to head.

Changed files:
    gcc-optimize-la.pl -> 1.1.2.5

diff --git a/gcc-optimize-la.pl b/gcc-optimize-la.pl
deleted file mode 100644 (file)
index 5624529..0000000
--- a/gcc-optimize-la.pl
+++ /dev/null
@@ -1,43 +0,0 @@
-#!/usr/bin/perl
-
-sub trim
-{
-    my $string = shift;
-    $string =~ s/^\s+//;
-    $string =~ s/\s+$//;
-    return $string;
-}
-
-open(F, $ARGV[0]) or die("cannot open file: $ARGV[0]\n");
-@lines = <F>;
-close(F);
-
-@deps = ();
-
-foreach (@lines)
-{
-    if (/(^dependency_libs='(.*)')/)
-    {
-       @libs = split(/[\ \t\n]+/, trim($2));
-       @L = grep(/^-L.*gcc\/.*\/\d\.\d\.\d(\/32)*$/, @libs);
-       @l = grep(/^-l.*/, @libs);
-       $opt_L = join(' ', @L);
-       $opt_l = join(' ', @l);
-       print("dependency_libs='");
-       print($opt_L);
-       if (scalar(@L))
-       {
-           print(" ");
-       }
-       print($opt_l);
-       print("'\n");
-    }
-    elsif (/^libdir='(.*)'/)
-    {
-       print("libdir='$ARGV[1]'\n");
-    }
-    else
-    {
-       print($_);
-    }
-}