Return to t-zdisp2.pl CVS log

Up to [local] / OpenXM_contrib / gmp / mpn / x86

Annotation of OpenXM_contrib/gmp/mpn/x86/t-zdisp2.pl, Revision 1.1

1.1     ! ohara       1: #!/usr/bin/perl -w
        !             2: #
        !             3: # Copyright 2001, 2002 Free Software Foundation, Inc.
        !             4: #
        !             5: # This file is part of the GNU MP Library.
        !             6: #
        !             7: # The GNU MP Library is free software; you can redistribute it and/or modify
        !             8: # it under the terms of the GNU Lesser General Public License as published
        !             9: # by the Free Software Foundation; either version 2.1 of the License, or (at
        !            10: # your option) any later version.
        !            11: #
        !            12: # The GNU MP Library is distributed in the hope that it will be useful, but
        !            13: # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
        !            14: # or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
        !            15: # License for more details.
        !            16: #
        !            17: # You should have received a copy of the GNU Lesser General Public License
        !            18: # along with the GNU MP Library; see the file COPYING.LIB.  If not, write to
        !            19: # the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
        !            20: # MA 02111-1307, USA.
        !            21:
        !            22:
        !            23: # Usage: cd $(builddir)/mpn
        !            24: #        $(srcdir)/x86/t-zdisp2.pl
        !            25: #
        !            26: # Grep for any "0(reg...)" addressing modes coming out of the x86 .asm
        !            27: # files.  Additive expressions like "12+4-16" are recognised too.
        !            28: #
        !            29: # Old gas doesn't preserve the "0" displacement, so if it's wanted then
        !            30: # Zdisp ought to be used to give explicit .byte sequences.  See
        !            31: # mpn/x86/README.
        !            32: #
        !            33: # No output means everything is ok.  All the asm files are put through m4 in
        !            34: # PIC and non-PIC modes, and in each multi-function form, all of which can
        !            35: # take a while to run.
        !            36: #
        !            37: # This program is only meant for use during development.
        !            38:
        !            39: use strict;
        !            40: use File::Find;
        !            41: use File::Basename;
        !            42: use Getopt::Std;
        !            43:
        !            44: my %opt;
        !            45: getopts('t', \%opt);
        !            46:
        !            47:
        !            48: my $srcdir;
        !            49: open IN, '<Makefile' or die;
        !            50: while (<IN>) {
        !            51:   if (/^srcdir[ \t]*=[ \t]*(.*)/) {
        !            52:     $srcdir = $1;
        !            53:     last;
        !            54:   }
        !            55: }
        !            56: close IN or die;
        !            57: defined $srcdir or die "Cannot find \$srcdir in Makefile\n";
        !            58:
        !            59: my $filecount = 0;
        !            60:
        !            61: my $tempfile = 't-zdisp2.tmp';
        !            62: open KARA, ">$tempfile" or die;
        !            63: close KARA or die;
        !            64:
        !            65: find({ wanted => \&process, preprocess => \&process_mparam, no_chdir => 1 },
        !            66:      "$srcdir/x86");
        !            67:
        !            68: sub process {
        !            69:   if (/gmp-mparam.h$/) {
        !            70:     process_mparam($_);
        !            71:   } elsif (/\.asm$/) {
        !            72:     process_asm($_);
        !            73:   }
        !            74: }
        !            75:
        !            76: # Ensure we're using the right SQR_KARATSUBA_THRESHOLD for the part of the
        !            77: # tree being processed.
        !            78: sub process_mparam {
        !            79:   my $file = "$File::Find::dir/gmp-mparam.h";
        !            80:   if (-f $file) {
        !            81:     print "$file\n" if $opt{'t'};
        !            82:     open MPARAM, "<$file" or die;
        !            83:     while (<MPARAM>) {
        !            84:       if (/^#define SQR_KARATSUBA_THRESHOLD[ \t]*([0-9][0-9]*)/) {
        !            85:         open KARA, ">$tempfile" or die;
        !            86:         print KARA "define(\`SQR_KARATSUBA_THRESHOLD',$1)\n\n";
        !            87:         print "define(\`SQR_KARATSUBA_THRESHOLD',$1)\n" if $opt{'t'};
        !            88:         close KARA or die;
        !            89:         last;
        !            90:       }
        !            91:     }
        !            92:     close MPARAM or die;
        !            93:   }
        !            94:   return @_;
        !            95: }
        !            96:
        !            97: sub process_asm {
        !            98:   my ($file) = @_;
        !            99:   my $base = basename ($file, '.asm');
        !           100:
        !           101:   my @funs;
        !           102:   if    ($base eq 'aors_n')    { @funs = qw(add_n sub_n); }
        !           103:   elsif ($base eq 'aorsmul_1') { @funs = qw(addmul_1 submul_1); }
        !           104:   elsif ($base eq 'popham')    { @funs = qw(popcount hamdist); }
        !           105:   elsif ($base eq 'logops_n')  { @funs = qw(and_n andn_n nand_n ior_n iorn_n nior_n xor_n xnor_n); }
        !           106:   elsif ($base eq 'lorrshift') { @funs = qw(lshift rshift); }
        !           107:   else                         { @funs = ($base); }
        !           108:
        !           109:   foreach my $fun (@funs) {
        !           110:     foreach my $pic ('', ' -DPIC') {
        !           111:       my $header = "$file: 0: $pic\n";
        !           112:       $filecount++;
        !           113:
        !           114:       my $m4 = "m4 -DHAVE_HOST_CPU_athlon -DOPERATION_$fun $pic ../config.m4 $tempfile $file";
        !           115:       print "$m4\n" if $opt{'t'};
        !           116:
        !           117:       open IN, "$m4 |" or die;
        !           118:       while (<IN>) {
        !           119:         next unless /([0-9+-][0-9 \t+-]*)\(%/;
        !           120:         my $pat=$1;
        !           121:         $pat = eval($pat);
        !           122:         next if ($pat != 0);
        !           123:         print "$header$_";
        !           124:         $header='';
        !           125:       }
        !           126:       close IN or die;
        !           127:     }
        !           128:   }
        !           129: }
        !           130:
        !           131: unlink($tempfile);
        !           132: print "total $filecount processed\n";
        !           133: exit 0;
        !           134:
        !           135:
        !           136: # Local variables:
        !           137: # perl-indent-level: 2
        !           138: # End: