Index: gcc/gmp/mpn/m68k/t-m68k-defs.pl |
diff --git a/gcc/gmp/mpn/m68k/t-m68k-defs.pl b/gcc/gmp/mpn/m68k/t-m68k-defs.pl |
deleted file mode 100644 |
index 226afc54492a207d5435288de7c26ba3c817f297..0000000000000000000000000000000000000000 |
--- a/gcc/gmp/mpn/m68k/t-m68k-defs.pl |
+++ /dev/null |
@@ -1,80 +0,0 @@ |
-#! /usr/bin/perl -w |
- |
-# Copyright 2001, 2003 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: perl t-m68k-defs.pl [-t] |
-# |
-# Run this in the mpn/m68k source directory to check that m68k-defs.m4 has |
-# m68k_defbranch()s or m68k_definsn()s for each instruction used in *.asm |
-# and */*.asm. Print nothing if everything is ok. The -t option prints |
-# some diagnostic traces. |
- |
-use strict; |
-use Getopt::Std; |
- |
-my %opt; |
-getopts('t', \%opt); |
- |
-my %branch; |
-my %insn; |
- |
-open(FD, "<m68k-defs.m4") |
- or die "Cannot open m68k-defs.m4: $!\nIs this the mpn/m68k source directory?\n"; |
-my ($srcdir, $top_srcdir); |
-while (<FD>) { |
- if (/^m68k_defbranch\(\s*(.*)\)/) { $branch{"b".$1} = 1; } |
- if (/^m68k_definsn\(\s*(.*),\s*(.*)\)/) { $insn{$1.$2} = 1; } |
-} |
-close(FD); |
- |
-print "branches: ", join(" ",keys(%branch)), "\n" if $opt{'t'}; |
-print "insns: ", join(" ",keys(%insn)), "\n" if $opt{'t'}; |
- |
- |
-foreach my $file (glob("*.asm"), glob("*/*.asm")) { |
- print "file $file\n" if $opt{'t'}; |
- |
- open(FD, "<$file") or die "Cannot open $file: $!"; |
- while (<FD>) { |
- if (/^[ \t]*C/) { next; }; |
- if (/^\t([a-z0-9]+)/) { |
- my $opcode = $1; |
- print "opcode $1\n" if $opt{'t'}; |
- |
- # instructions with an l, w or b suffix should have a definsn |
- # (unless they're already a defbranch) |
- if ($opcode =~ /[lwb]$/ |
- && ! defined $insn{$opcode} |
- && ! defined $branch{$opcode}) |
- { |
- print "$file: $.: missing m68k_definsn: $opcode\n"; |
- } |
- |
- # instructions bXX should have a defbranch (unless they're |
- # already a definsn) |
- if ($opcode =~ /^b/ |
- && ! defined $insn{$opcode} |
- && ! defined $branch{$opcode}) |
- { |
- print "$file: $.: missing m68k_defbranch: $opcode\n"; |
- } |
- } |
- } |
- close(FD); |
-} |