[gcc] GCC 4.5.0=>4.5.1

gcc/gmp/mpn/x86/t-zdisp2.pl

-#!/usr/bin/perl -w
-#
-# Copyright 2001, 2002 Free Software Foundation, Inc.
-#
-# This file is part of the GNU MP Library.
-#
-# The GNU MP Library is free software; you can redistribute it and/or modify
-# it under the terms of the GNU Lesser General Public License as published
-# by the Free Software Foundation; either version 3 of the License, or (at
-# your option) any later version.
-#
-# The GNU MP Library is distributed in the hope that it will be useful, but
-# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-# or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
-# License for more details.
-#
-# You should have received a copy of the GNU Lesser General Public License
-# along with the GNU MP Library.  If not, see http://www.gnu.org/licenses/.
-
-
-# Usage: cd $(builddir)/mpn
-#        $(srcdir)/x86/t-zdisp2.pl
-#
-# Grep for any "0(reg...)" addressing modes coming out of the x86 .asm
-# files.  Additive expressions like "12+4-16" are recognised too.
-#
-# Old gas doesn't preserve the "0" displacement, so if it's wanted then
-# Zdisp ought to be used to give explicit .byte sequences.  See
-# mpn/x86/README.
-#
-# No output means everything is ok.  All the asm files are put through m4 in
-# PIC and non-PIC modes, and in each multi-function form, all of which can
-# take a while to run.
-#
-# This program is only meant for use during development.
-
-use strict;
-use File::Find;
-use File::Basename;
-use Getopt::Std;
-
-my %opt;
-getopts('t', \%opt);
-
-
-my $srcdir;
-open IN, '<Makefile' or die;
-while (<IN>) {
-  if (/^srcdir[ \t]*=[ \t]*(.*)/) {
-    $srcdir = $1;
-    last;
-  }
-}
-close IN or die;
-defined $srcdir or die "Cannot find \$srcdir in Makefile\n";
-
-my $filecount = 0;
-
-my $tempfile = 't-zdisp2.tmp';
-open KARA, ">$tempfile" or die;
-close KARA or die;
-
-find({ wanted => \&process, preprocess => \&process_mparam, no_chdir => 1 },
-     "$srcdir/x86");
-
-sub process {
-  if (/gmp-mparam.h$/) {
-    process_mparam($_);
-  } elsif (/\.asm$/) {
-    process_asm($_);
-  }
-}
-
-# Ensure we're using the right SQR_KARATSUBA_THRESHOLD for the part of the
-# tree being processed.
-sub process_mparam {
-  my $file = "$File::Find::dir/gmp-mparam.h";
-  if (-f $file) {
-    print "$file\n" if $opt{'t'};
-    open MPARAM, "<$file" or die;
-    while (<MPARAM>) {
-      if (/^#define SQR_KARATSUBA_THRESHOLD[ \t]*([0-9][0-9]*)/) {
-        open KARA, ">$tempfile" or die;
-        print KARA "define(\`SQR_KARATSUBA_THRESHOLD',$1)\n\n";
-        print "define(\`SQR_KARATSUBA_THRESHOLD',$1)\n" if $opt{'t'};
-        close KARA or die;
-        last;
-      }
-    }
-    close MPARAM or die;
-  }
-  return @_;
-}
-
-sub process_asm {
-  my ($file) = @_;
-  my $base = basename ($file, '.asm');
-
-  my @funs;
-  if    ($base eq 'aors_n')    { @funs = qw(add_n sub_n); }
-  elsif ($base eq 'aorsmul_1') { @funs = qw(addmul_1 submul_1); }
-  elsif ($base eq 'popham')    { @funs = qw(popcount hamdist); }
-  elsif ($base eq 'logops_n')  { @funs = qw(and_n andn_n nand_n ior_n iorn_n nior_n xor_n xnor_n); }
-  elsif ($base eq 'lorrshift') { @funs = qw(lshift rshift); }
-  else                         { @funs = ($base); }
-
-  foreach my $fun (@funs) {
-    foreach my $pic ('', ' -DPIC') {
-      my $header = "$file: 0: $pic\n";
-      $filecount++;
-
-      my $m4 = "m4 -DHAVE_HOST_CPU_athlon -DOPERATION_$fun $pic ../config.m4 $tempfile $file";
-      print "$m4\n" if $opt{'t'};
-
-      open IN, "$m4 |" or die;
-      while (<IN>) {
-        next unless /([0-9+-][0-9 \t+-]*)\(%/;
-        my $pat=$1;
-        $pat = eval($pat);
-        next if ($pat != 0);
-        print "$header$_";
-        $header='';
-      }
-      close IN or die;
-    }
-  }
-}
-
-unlink($tempfile);
-print "total $filecount processed\n";
-exit 0;
-
-
-# Local variables:
-# perl-indent-level: 2
-# End: