Return to t-m68k-defs.pl CVS log

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

Annotation of OpenXM_contrib/gmp/mpn/m68k/t-m68k-defs.pl, Revision 1.1.1.1

1.1       ohara       1: #! /usr/bin/perl -w
                      2:
                      3: # Copyright 2001 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 by
                      9: # the Free Software Foundation; either version 2.1 of the License, or (at your
                     10: # 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:  perl t-m68k-defs.pl [-t]
                     24: #
                     25: # Run this in the mpn/m68k source directory to check that m68k-defs.m4 has
                     26: # m68k_defbranch()s or m68k_definsn()s for each instruction used in *.asm
                     27: # and */*.asm.  Print nothing if everything is ok.  The -t option prints
                     28: # some diagnostic traces.
                     29:
                     30: use strict;
                     31: use Getopt::Std;
                     32:
                     33: my %opt;
                     34: getopts('t', \%opt);
                     35:
                     36: my %branch;
                     37: my %insn;
                     38:
                     39: open(FD, "<m68k-defs.m4")
                     40:     or die "Cannot open m68k-defs.m4: $!\nIs this the mpn/m68k source directory?\n";
                     41: my ($srcdir, $top_srcdir);
                     42: while (<FD>) {
                     43:     if (/^m68k_defbranch\(\s*(.*)\)/) { %branch->{"b".$1}=1; }
                     44:     if (/^m68k_definsn\(\s*(.*),\s*(.*)\)/) { %insn->{$1.$2}=1; }
                     45: }
                     46: close(FD);
                     47:
                     48: print "branches: ", join(" ",keys(%branch)), "\n" if $opt{'t'};
                     49: print "insns: ", join(" ",keys(%insn)), "\n" if $opt{'t'};
                     50:
                     51:
                     52: foreach my $file (glob("*.asm"), glob("*/*.asm")) {
                     53:     print "file $file\n" if $opt{'t'};
                     54:
                     55:     open(FD, "<$file") or die "Cannot open $file: $!";
                     56:     while (<FD>) {
                     57:        if (/^[ \t]*C/) { next; };
                     58:        if (/^\t([a-z0-9]+)/) {
                     59:            my $opcode = $1;
                     60:            print "opcode $1\n" if $opt{'t'};
                     61:
                     62:            # instructions with an l, w or b suffix should have a definsn
                     63:            # (unless they're already a defbranch)
                     64:            if ($opcode =~ /[lwb]$/
                     65:                && ! defined %insn->{$opcode}
                     66:                && ! defined %branch->{$opcode})
                     67:            {
                     68:                print "$file: $.: missing m68k_definsn: $opcode\n";
                     69:            }
                     70:
                     71:            # instructions bXX should have a defbranch (unless they're
                     72:            # already a definsn)
                     73:            if ($opcode =~ /^b/
                     74:                && ! defined %insn->{$opcode}
                     75:                && ! defined %branch->{$opcode})
                     76:            {
                     77:                print "$file: $.: missing m68k_defbranch: $opcode\n";
                     78:            }
                     79:        }
                     80:     }
                     81:     close(FD);
                     82: }