[gcc] GCC 4.5.0=>4.5.1

gcc/gmp/demos/perl/test2.pl

Index: gcc/gmp/demos/perl/test2.pl
diff --git a/gcc/gmp/demos/perl/test2.pl b/gcc/gmp/demos/perl/test2.pl
deleted file mode 100644
index 645d3cfbb70324fe672d30121d67dcb0338e7bee..0000000000000000000000000000000000000000
--- a/gcc/gmp/demos/perl/test2.pl
+++ /dev/null
@@ -1,64 +0,0 @@
-# GMP perl module tests (part 2)
-
-# Copyright 2001 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/.
-
-
-# The following uses of :constants seem to provoke segvs in perl 5.005_03,
-# so they're kept separate file to be run only on suitable perl versions.
-
-
-use GMP::Mpz qw(:constants);
-{
-  my $a = 123;
-  ok (UNIVERSAL::isa ($a, "GMP::Mpz"));
-}
-use GMP::Mpz qw(:noconstants);
-
-use GMP::Mpq qw(:constants);
-{
-  my $a = 123;
-  ok (UNIVERSAL::isa ($a, "GMP::Mpq"));
-}
-use GMP::Mpq qw(:noconstants);
-
-use GMP::Mpf qw(:constants);
-{
-  my $a = 123;
-  ok (UNIVERSAL::isa ($a, "GMP::Mpf"));
-}
-use GMP::Mpf qw(:noconstants);
-
-
-# compiled constants unchanged by clrbit etc when re-executed
-foreach (0, 1, 2) {
-  use GMP::Mpz qw(:constants);
-  my $a = 15;
-  my $b = 6;
-  use GMP::Mpz qw(:noconstants);
-  clrbit ($a, 0);
-  ok ($a == 14);
-  setbit ($b, 0);
-  ok ($b == 7);
-}
-
-1;
-
-
-# Local variables:
-# perl-indent-level: 2
-# End: