开源软件构建与测试

_service:tar_scm:libmpc.spec Changed

@@ -1,8 +1,8 @@
 Name: libmpc
-Version: 1.2.0
-Release: 2
+Version: 1.3.1
+Release: 1
 Summary: C library for multiple precision complex arithmetic
-License: LGPLv3+ and GFDL
+License: LGPLv3+ and GFDL-1.3-only
 URL: http://www.multiprecision.org/
 Source0: https://ftp.gnu.org/gnu/mpc/mpc-%{version}.tar.gz
 
@@ -18,7 +18,6 @@
 
 %package devel
 Summary: Header and shared development libraries for MPC
-Patch6000: backport-0001-added-missing-include.patch
 
 Requires: %{name}%{?_isa} = %{version}-%{release}
 Requires: mpfr-devel gmp-devel
@@ -28,7 +27,6 @@
 
 %prep
 %setup -q -n mpc-%{version}
-%patch6000 -p1
 
 %build
 %configure --disable-static
@@ -71,8 +69,18 @@
 %{_libdir}/libmpc.so
 
 %changelog
+* Sat Jan 28 2023 Wenyu Liu<liuwenyu7@huawei.com> - 1.3.1-1
+- Upgrade to 1.3.1
+
+* Thu Jan 5 2023 Wenyu Liu<liuwenyu7@huawei.com> - 1.2.0-4
+- Rectify the content that does not comply with specifications in the spec file
+
+* Mon June 6 2022 Xinyi Gou<rv7dzzhhs4c@163.com> - 1.2.0-3
+- Specify license version
+
 * Thu Sep 24 2020 EulerOSWander<314264452@qq.com> - 1.2.0-2
 - added missing include.
+
 * Sat Aug 22 2020 Yunfeng Ye<yeyunfeng@huawei.com> - 1.2.0-1
 - Upgrade to 1.2.0

_service:tar_scm:backport-0001-added-missing-include.patch Deleted

@@ -1,31 +0,0 @@
-From 21668770977368459c74723f2bddad38b727ea20 Mon Sep 17 00:00:00 2001
-From: Paul Zimmermann <Paul.Zimmermann@inria.fr>
-Date: Thu, 20 Aug 2020 08:56:54 +0200
-Subject: PATCH 07/11 added missing include
-
-Reported by Andreas, while using mpc-1.2.0 to bootstrap Guix,
-where mpc-1.2.0 is used to compile gcc-7.5.0:
-
-In file included from ../../../gcc-7.5.0/mpc/src/asin.c:22:0:
-../../../gcc-7.5.0/mpc/src/asin.c: In function 'mpc_asin_series':
-../../../gcc-7.5.0/mpc/src/asin.c:132:27: error: 'ULONG_MAX' undeclared (first use in this function)
-   MPC_ASSERT(2 * k - 1 <= ULONG_MAX / (2 * k - 1));
----
- src/asin.c | 1 +
- 1 file changed, 1 insertion(+)
-
-diff --git a/src/asin.c b/src/asin.c
-index 444275f..2c3fa32 100644
---- a/src/asin.c
-+++ b/src/asin.c
-@@ -19,6 +19,7 @@ along with this program. If not, see http://www.gnu.org/licenses/ .
- */
- 
- #include <stdio.h>
-+#include <limits.h> /* for ULONG_MAX */
- #include "mpc-impl.h"
- 
- /* Special case op = 1 + i*y for tiny y (see algorithms.tex).
--- 
-1.8.3.1
-

_service Changed

_service:tar_scm:mpc-1.2.0.tar.gz/Makefile.vc Deleted

@@ -1,442 +0,0 @@
-# Makefile for the MPC library (Windows version).
-#
-# Copyright (C) INRIA - CNRS, 2002, 2004, 2005, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2016, 2017, 2018, 2020
-#
-# This file is part of the MPC Library.
-#
-# The MPC 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 2.1 of the License, or (at your
-# option) any later version.
-#
-# The MPC 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 MPC Library; see the file COPYING.LIB.  If not, write to
-# the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
-# MA 02111-1307, USA.
-#
-
-# usage:
-#  nmake /f Makefile.vc clean
-#       clean the temporaries objects
-#
-#  nmake /f Makefile.vc  STATIC=0|1 GMPDIR=gmpdirectory MPFRDIR=mpfrdirectory
-#      compile MPC
-#
-#  nmake /f Makefile.vc  STATIC=0|1 install GMPDIR=gmpdirectory MPFRDIR=mpfrdirectory  DESTDIR=installdirectory
-#      install MPC to installdirectory
-#
-#  nmake /f Makefile.vc  STATIC=0|1 check GMPDIR=gmpdirectory MPFRDIR=mpfrdirectory
-#      perform tests on MPC
-#
-#  GMPDIR : specify the location where GMP is installed
-#  MPFRDIR : specify the location where MPFR is installed
-#  DESTDIR : specify the location where MPC will be installed
-#  STATIC  : specify if a static or dynamic library of MPC will be created
-#            STATIC=1  : build a static library
-#            STATIC=0  : build a dynamic library (DLL)
-#            A dynamic library is created by default if STATIC is omitted (STATIC=0)
-#  ENABLELOGGING  : specify if MPC functions calls are logged
-#            ENABLELOGGING=1  : MPC functions calls are logged
-#            ENABLELOGGING=0  : MPC functions calls are not logged (default)
-#            Functions calls are not logged by default if ENABLELOGGING is omitted (ENABLELOGGING=0)
-
-
-CPP = cl.exe
-CC = cl.exe
-CDEFAULTFLAGS=/O2 /GR- /MD /nologo /EHs
-
-VERSION=1.2.0
-
-######################## do not edit below this line ##########################
-
-DIRMPC=.\src
-DIRMPCTESTS=.\tests\\
-
-!if "$(STATIC)" == "0"
-LIBRARY = libmpc.dll
-LINKER = link.exe /DLL
-GMPMUSTBEDLL=/D__GMP_LIBGMP_DLL
-!else
-LIBRARY = libmpc.lib
-LINKER = lib.exe
-GMPMUSTBEDLL=
-!endif
-
-#check for logging. if yes then add logging.c to the library
-!if "$(ENABLELOGGING)" == "1"
-CPPOBJECTS_LOGGING = $(DIRMPC)\logging.obj
-CPPLINKOBJECTS_LOGGING = logging.obj
-LIBS_LOGGING = kernel32.lib
-!else
-CPPOBJECTS_LOGGING =
-CPPLINKOBJECTS_LOGGING =
-LIBS_LOGGING =
-!endif
-
-
-INCLUDES = /I$(DIRMPC) /I$(GMPDIR)\include  /I$(MPFR)\include
-CKERNELFLAGS = $(CDEFAULTFLAGS) $(GMPMUSTBEDLL)   $(INCLUDES)
-CFLAGS = $(CKERNELFLAGS)  /D__MPC_WITHIN_MPC /D_GMP_IEEE_FLOATS /DHAVE_CONFIG_H
-
-TESTSSOURCES=$(DIRMPCTESTS)\check_data.c $(DIRMPCTESTS)\clear_parameters.c	\
-  $(DIRMPCTESTS)\close_datafile.c $(DIRMPCTESTS)\comparisons.c $(DIRMPCTESTS)\copy_parameter.c $(DIRMPCTESTS)\double_rounding.c	\
-  $(DIRMPCTESTS)\init_parameters.c $(DIRMPCTESTS)\mpfr_flags.c $(DIRMPCTESTS)\open_datafile.c $(DIRMPCTESTS)\print_parameter.c	\
-  $(DIRMPCTESTS)\random.c $(DIRMPCTESTS)\read_data.c $(DIRMPCTESTS)\read_description.c $(DIRMPCTESTS)\read_line.c $(DIRMPCTESTS)\rounding.c	\
-  $(DIRMPCTESTS)\setprec_parameters.c $(DIRMPCTESTS)\tpl_gmp.c $(DIRMPCTESTS)\tpl_mpc.c $(DIRMPCTESTS)\tpl_mpfr.c $(DIRMPCTESTS)\tpl_native.c
-
-TESTCOMPILE=$(CC) $(CKERNELFLAGS) $(TESTSSOURCES) $(DIRMPCTESTS)
-MIDTESTCOMPILE=/link  /out:$(DIRMPCTESTS)
-ENDTESTCOMPILE=/LIBPATH:"$(DIRMPCTESTS)" libmpc.lib  /LIBPATH:"$(GMPDIR)\lib" libmpfr.lib libgmp.lib $(LIBS_LOGGING)
-
-
-#generate the CPPOBJECTS : goto src and execute
-# ls *.c | sed "s/\.c/\.obj/" | awk ' { printf("$(DIRMPC)\\%s \\\n",$1); } '
-#generate the CPPLINKOBJECTS : goto src and execute
-# ls *.c | sed "s/\.c/\.obj/" | awk ' { printf("%s \\\n",$1); } '
-#generate the list for tests : goto tests and execute
-# ls t*.c | sed "s/\.c//" | grep -v comparisons | grep -v read_data | grep -v random | awk ' { printf("\t$(TESTCOMPILE)%s.c  $(MIDTESTCOMPILE)%s.exe $(ENDTESTCOMPILE)\n\tcd $(DIRMPCTESTS) && %s.exe && cd ..\n",$1,$1,$1,$1); } '
-
-LIBRARYLIB = libmpc.lib
-
-CPPOBJECTS =$(DIRMPC)\abs.obj \
-$(DIRMPC)\acos.obj \
-$(DIRMPC)\acosh.obj \
-$(DIRMPC)\add.obj \
-$(DIRMPC)\add_fr.obj \
-$(DIRMPC)\add_si.obj \
-$(DIRMPC)\add_ui.obj \
-$(DIRMPC)\arg.obj \
-$(DIRMPC)\asin.obj \
-$(DIRMPC)\asinh.obj \
-$(DIRMPC)\atan.obj \
-$(DIRMPC)\atanh.obj \
-$(DIRMPC)\clear.obj \
-$(DIRMPC)\cmp.obj \
-$(DIRMPC)\cmp_abs.obj \
-$(DIRMPC)\cmp_si_si.obj \
-$(DIRMPC)\conj.obj \
-$(DIRMPC)\cos.obj \
-$(DIRMPC)\cosh.obj \
-$(DIRMPC)\div.obj \
-$(DIRMPC)\div_2ui.obj \
-$(DIRMPC)\div_fr.obj \
-$(DIRMPC)\div_ui.obj \
-$(DIRMPC)\exp.obj \
-$(DIRMPC)\fma.obj \
-$(DIRMPC)\fr_div.obj \
-$(DIRMPC)\fr_sub.obj \
-$(DIRMPC)\get_prec.obj \
-$(DIRMPC)\get_prec2.obj \
-$(DIRMPC)\get_version.obj \
-$(DIRMPC)\get_x.obj \
-$(DIRMPC)\imag.obj \
-$(DIRMPC)\init2.obj \
-$(DIRMPC)\init3.obj \
-$(DIRMPC)\inp_str.obj \
-$(DIRMPC)\log.obj \
-$(DIRMPC)\log10.obj \
-$(DIRMPC)\mem.obj \
-$(DIRMPC)\mul.obj \
-$(DIRMPC)\mul_2ui.obj \
-$(DIRMPC)\mul_fr.obj \
-$(DIRMPC)\mul_i.obj \
-$(DIRMPC)\mul_si.obj \
-$(DIRMPC)\mul_ui.obj \
-$(DIRMPC)\neg.obj \
-$(DIRMPC)\norm.obj \
-$(DIRMPC)\out_str.obj \
-$(DIRMPC)\pow.obj \
-$(DIRMPC)\pow_d.obj \
-$(DIRMPC)\pow_fr.obj \
-$(DIRMPC)\pow_ld.obj \
-$(DIRMPC)\pow_si.obj \
-$(DIRMPC)\pow_ui.obj \
-$(DIRMPC)\pow_z.obj \
-$(DIRMPC)\proj.obj \
-$(DIRMPC)\real.obj \
-$(DIRMPC)\rootofunity.obj \
-$(DIRMPC)\set.obj \
-$(DIRMPC)\set_prec.obj \
-$(DIRMPC)\set_str.obj \
-$(DIRMPC)\set_x.obj \
-$(DIRMPC)\set_x_x.obj \
-$(DIRMPC)\sin.obj \
-$(DIRMPC)\sin_cos.obj \
-$(DIRMPC)\sinh.obj \
-$(DIRMPC)\sqr.obj \
-$(DIRMPC)\sqrt.obj \
-$(DIRMPC)\strtoc.obj \
-$(DIRMPC)\sub.obj \
-$(DIRMPC)\sub_fr.obj \
-$(DIRMPC)\sub_ui.obj \
-$(DIRMPC)\swap.obj \
-$(DIRMPC)\tan.obj \
-$(DIRMPC)\tanh.obj \
-$(DIRMPC)\uceil_log2.obj \
-$(DIRMPC)\ui_div.obj \
-$(DIRMPC)\ui_ui_sub.obj $(CPPOBJECTS_LOGGING) \
-$(DIRMPC)\urandom.obj 
-
-CPPLINKOBJECTS = abs.obj \
-acos.obj \
-acosh.obj \
-add.obj \
-add_fr.obj \
-add_si.obj \
-add_ui.obj \
-arg.obj \
-asin.obj \
-asinh.obj \
-atan.obj \
-atanh.obj \
-clear.obj \
-cmp.obj \
-cmp_abs.obj \

_service:tar_scm:mpc-1.2.0.tar.gz/doc/mdate-sh Deleted

@@ -1,224 +0,0 @@
-#!/bin/sh
-# Get modification time of a file or directory and pretty-print it.
-
-scriptversion=2010-08-21.06; # UTC
-
-# Copyright (C) 1995-2014 Free Software Foundation, Inc.
-# written by Ulrich Drepper <drepper@gnu.ai.mit.edu>, June 1995
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2, or (at your option)
-# any later version.
-#
-# This program 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 General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program.  If not, see <http://www.gnu.org/licenses/>.
-
-# As a special exception to the GNU General Public License, if you
-# distribute this file as part of a program that contains a
-# configuration script generated by Autoconf, you may include it under
-# the same distribution terms that you use for the rest of that program.
-
-# This file is maintained in Automake, please report
-# bugs to <bug-automake@gnu.org> or send patches to
-# <automake-patches@gnu.org>.
-
-if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then
-  emulate sh
-  NULLCMD=:
-  # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which
-  # is contrary to our usage.  Disable this feature.
-  alias -g '${1+"$@"}'='"$@"'
-  setopt NO_GLOB_SUBST
-fi
-
-case $1 in
-  '')
-     echo "$0: No file.  Try '$0 --help' for more information." 1>&2
-     exit 1;
-     ;;
-  -h | --h*)
-    cat <<\EOF
-Usage: mdate-sh --help --version FILE
-
-Pretty-print the modification day of FILE, in the format:
-1 January 1970
-
-Report bugs to <bug-automake@gnu.org>.
-EOF
-    exit $?
-    ;;
-  -v | --v*)
-    echo "mdate-sh $scriptversion"
-    exit $?
-    ;;
-esac
-
-error ()
-{
-  echo "$0: $1" >&2
-  exit 1
-}
-
-
-# Prevent date giving response in another language.
-LANG=C
-export LANG
-LC_ALL=C
-export LC_ALL
-LC_TIME=C
-export LC_TIME
-
-# GNU ls changes its time format in response to the TIME_STYLE
-# variable.  Since we cannot assume 'unset' works, revert this
-# variable to its documented default.
-if test "${TIME_STYLE+set}" = set; then
-  TIME_STYLE=posix-long-iso
-  export TIME_STYLE
-fi
-
-save_arg1=$1
-
-# Find out how to get the extended ls output of a file or directory.
-if ls -L /dev/null 1>/dev/null 2>&1; then
-  ls_command='ls -L -l -d'
-else
-  ls_command='ls -l -d'
-fi
-# Avoid user/group names that might have spaces, when possible.
-if ls -n /dev/null 1>/dev/null 2>&1; then
-  ls_command="$ls_command -n"
-fi
-
-# A 'ls -l' line looks as follows on OS/2.
-#  drwxrwx---        0 Aug 11  2001 foo
-# This differs from Unix, which adds ownership information.
-#  drwxrwx---   2 root  root      4096 Aug 11  2001 foo
-#
-# To find the date, we split the line on spaces and iterate on words
-# until we find a month.  This cannot work with files whose owner is a
-# user named "Jan", or "Feb", etc.  However, it's unlikely that '/'
-# will be owned by a user whose name is a month.  So we first look at
-# the extended ls output of the root directory to decide how many
-# words should be skipped to get the date.
-
-# On HPUX /bin/sh, "set" interprets "-rw-r--r--" as options, so the "x" below.
-set x`$ls_command /`
-
-# Find which argument is the month.
-month=
-command=
-until test $month
-do
-  test $# -gt 0 || error "failed parsing '$ls_command /' output"
-  shift
-  # Add another shift to the command.
-  command="$command shift;"
-  case $1 in
-    Jan) month=January; nummonth=1;;
-    Feb) month=February; nummonth=2;;
-    Mar) month=March; nummonth=3;;
-    Apr) month=April; nummonth=4;;
-    May) month=May; nummonth=5;;
-    Jun) month=June; nummonth=6;;
-    Jul) month=July; nummonth=7;;
-    Aug) month=August; nummonth=8;;
-    Sep) month=September; nummonth=9;;
-    Oct) month=October; nummonth=10;;
-    Nov) month=November; nummonth=11;;
-    Dec) month=December; nummonth=12;;
-  esac
-done
-
-test -n "$month" || error "failed parsing '$ls_command /' output"
-
-# Get the extended ls output of the file or directory.
-set dummy x`eval "$ls_command \"\\\$save_arg1\""`
-
-# Remove all preceding arguments
-eval $command
-
-# Because of the dummy argument above, month is in $2.
-#
-# On a POSIX system, we should have
-#
-# $# = 5
-# $1 = file size
-# $2 = month
-# $3 = day
-# $4 = year or time
-# $5 = filename
-#
-# On Darwin 7.7.0 and 7.6.0, we have
-#
-# $# = 4
-# $1 = day
-# $2 = month
-# $3 = year or time
-# $4 = filename
-
-# Get the month.
-case $2 in
-  Jan) month=January; nummonth=1;;
-  Feb) month=February; nummonth=2;;
-  Mar) month=March; nummonth=3;;
-  Apr) month=April; nummonth=4;;
-  May) month=May; nummonth=5;;
-  Jun) month=June; nummonth=6;;
-  Jul) month=July; nummonth=7;;
-  Aug) month=August; nummonth=8;;
-  Sep) month=September; nummonth=9;;
-  Oct) month=October; nummonth=10;;
-  Nov) month=November; nummonth=11;;
-  Dec) month=December; nummonth=12;;
-esac
-
-case $3 in
-  ???*) day=$1;;
-  *) day=$3; shift;;
-esac
-
-# Here we have to deal with the problem that the ls output gives either
-# the time of day or the year.
-case $3 in
-  *:*) set `date`; eval year=\$$#
-       case $2 in
-	 Jan) nummonthtod=1;;
-	 Feb) nummonthtod=2;;
-	 Mar) nummonthtod=3;;
-	 Apr) nummonthtod=4;;
-	 May) nummonthtod=5;;
-	 Jun) nummonthtod=6;;
-	 Jul) nummonthtod=7;;
-	 Aug) nummonthtod=8;;
-	 Sep) nummonthtod=9;;

_service:tar_scm:mpc-1.2.0.tar.gz/doc/mpc.info Deleted

@@ -1,1834 +0,0 @@
-This is mpc.info, produced by makeinfo version 6.7 from mpc.texi.
-
-This manual is for GNU MPC, a library for multiple precision complex
-arithmetic, version 1.2.0 of August 2020.
-
-   Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010,
-2011, 2012, 2013, 2016, 2018, 2020 INRIA
-
-     Permission is granted to copy, distribute and/or modify this
-     document under the terms of the GNU Free Documentation License,
-     Version 1.3 or any later version published by the Free Software
-     Foundation; with no Invariant Sections.  A copy of the license is
-     included in the section entitled "GNU Free Documentation License."
-INFO-DIR-SECTION GNU Packages
-START-INFO-DIR-ENTRY
-* mpc: (mpc)Multiple Precision Complex Library.
-END-INFO-DIR-ENTRY
-
-&#x1f;
-File: mpc.info,  Node: Top,  Next: Copying,  Up: (dir)
-
-GNU MPC
-*******
-
-This manual documents how to install and use the GNU Multiple Precision
-Complex Library, version 1.2.0
-
-* Menu:
-
-* Copying::                     GNU MPC Copying Conditions (LGPL).
-* Introduction to GNU MPC::         Brief introduction to GNU MPC.
-* Installing GNU MPC::              How to configure and compile the GNU MPC library.
-* Reporting Bugs::              How to usefully report bugs.
-* GNU MPC Basics::                  What every GNU MPC user should know.
-* Complex Functions::           Functions for arithmetic on complex numbers.
-* References::
-* Concept Index::
-* Function Index::
-* GNU Free Documentation License::
-
-&#x1f;
-File: mpc.info,  Node: Copying,  Next: Introduction to GNU MPC,  Prev: Top,  Up: Top
-
-GNU MPC Copying Conditions
-**************************
-
-GNU MPC 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.
-
-   GNU MPC 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 this program.  If not, see
-<http://www.gnu.org/licenses/>.
-
-&#x1f;
-File: mpc.info,  Node: Introduction to GNU MPC,  Next: Installing GNU MPC,  Prev: Copying,  Up: Top
-
-1 Introduction to GNU MPC
-*************************
-
-GNU MPC is a portable library written in C for arbitrary precision
-arithmetic on complex numbers providing correct rounding.  It implements
-a multiprecision equivalent of the C99 standard.  It builds upon the GNU
-MP and the GNU MPFR libraries.
-
-1.1 How to use this Manual
-==========================
-
-Everyone should read *note GNU MPC Basics::.  If you need to install the
-library yourself, you need to read *note Installing GNU MPC::, too.
-
-   The remainder of the manual can be used for later reference, although
-it is probably a good idea to skim through it.
-
-&#x1f;
-File: mpc.info,  Node: Installing GNU MPC,  Next: Reporting Bugs,  Prev: Introduction to GNU MPC,  Up: Top
-
-2 Installing GNU MPC
-********************
-
-To build GNU MPC, you first have to install GNU MP (version 5.0.0 or
-higher) and GNU MPFR (version 4.1.0 or higher) on your computer.  You
-need a C compiler; GCC version 4.4 or higher is recommended, since GNU
-MPC may trigger a bug in previous versions, see the thread at
-<http://lists.gforge.inria.fr/pipermail/mpc-discuss/2011-February/000823.html>.
-And you need a standard Unix 'make' program, plus some other standard
-Unix utility programs.
-
-   Here are the steps needed to install the library on Unix systems:
-
-  1. 'tar xzf mpc-1.2.0.tar.gz'
-
-  2. 'cd mpc-1.2.0'
-
-  3. './configure'
-
-     if GMP and GNU MPFR are installed into standard directories, that
-     is, directories that are searched by default by the compiler and
-     the linking tools.
-
-     './configure --with-gmp=<gmp_install_dir>'
-
-     is used to indicate a different location where GMP is installed.
-     Alternatively, you can specify directly GMP include and GMP lib
-     directories with './configure --with-gmp-lib=<gmp_lib_dir>
-     --with-gmp-include=<gmp_include_dir>'.
-
-     './configure --with-mpfr=<mpfr_install_dir>'
-
-     is used to indicate a different location where GNU MPFR is
-     installed.  Alternatively, you can specify directly GNU MPFR
-     include and GNU MPFR lib directories with './configure
-     --with-mpf-lib=<mpfr_lib_dir>
-     --with-mpfr-include=<mpfr_include_dir>'.
-
-     Another useful parameter is '--prefix', which can be used to
-     specify an alternative installation location instead of
-     '/usr/local'; see 'make install' below.
-
-     To enable checking for memory leaks using 'valgrind' during 'make
-     check', add the parameter '--enable-valgrind-tests'.
-
-     If for debugging purposes you wish to log calls to GNU MPC
-     functions from within your code, add the parameter
-     '--enable-logging'.  In your code, replace the inclusion of 'mpc.h'
-     by 'mpc-log.h' and link the executable dynamically.  Then all calls
-     to functions with only complex arguments are printed to 'stderr' in
-     the following form: First, the function name is given, followed by
-     its type such as 'c_cc', meaning that the function has one complex
-     result (one 'c' in front of the '_'), computed from two complex
-     arguments (two 'c' after the '_').  Then, the precisions of the
-     real and the imaginary part of the first result is given, followed
-     by the second one and so on.  Finally, for each argument, the
-     precisions of its real and imaginary part are specified and the
-     argument itself is printed in hexadecimal via the function
-     'mpc_out_str' (*note String and Stream Input and Output::).  The
-     option requires a dynamic library, so it may not be combined with
-     '--disable-shared'.
-
-     Use './configure --help' for an exhaustive list of parameters.
-
-  4. 'make'
-
-     This compiles GNU MPC in the working directory.
-
-  5. 'make check'
-
-     This will make sure GNU MPC was built correctly.
-
-     If you get error messages, please report them to
-     'mpc-discuss@lists.gforge.inria.fr' (*Note Reporting Bugs::, for
-     information on what to include in useful bug reports).
-
-  6. 'make install'
-
-     This will copy the file 'mpc.h' to the directory
-     '/usr/local/include', the file 'libmpc.a' to the directory
-     '/usr/local/lib', and the file 'mpc.info' to the directory
-     '/usr/local/share/info' (or if you passed the '--prefix' option to
-     'configure', using the prefix directory given as argument to
-     '--prefix' instead of '/usr/local').  Note: you need write
-     permissions on these directories.
-
-2.1 Other 'make' Targets
-========================
-
-There are some other useful make targets:
-
-   * 'info'
-
-     Create an info version of the manual, in 'mpc.info'.
-
-   * 'pdf'
-
-     Create a PDF version of the manual, in 'doc/mpc.pdf'.
-
-   * 'dvi'
-
-     Create a DVI version of the manual, in 'doc/mpc.dvi'.
-
-   * 'ps'
-
-     Create a Postscript version of the manual, in 'doc/mpc.ps'.
-
-   * 'html'
-
-     Create an HTML version of the manual, in several pages in the
-     directory 'doc/mpc.html'; if you want only one output HTML file,
-     then type 'makeinfo --html --no-split mpc.texi' instead.
-
-   * 'clean'
-
-     Delete all object files and archive files, but not the

_service:tar_scm:mpc-1.2.0.tar.gz/doc/stamp-vti Deleted

_service:tar_scm:mpc-1.2.0.tar.gz/doc/texinfo.tex Deleted

@@ -1,10079 +0,0 @@
-% texinfo.tex -- TeX macros to handle Texinfo files.
-% 
-% Load plain if necessary, i.e., if running under initex.
-\expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi
-%
-\def\texinfoversion{2013-02-01.11}
-%
-% Copyright 1985, 1986, 1988, 1990, 1991, 1992, 1993, 1994, 1995,
-% 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
-% 2007, 2008, 2009, 2010, 2011, 2012, 2013 Free Software Foundation, Inc.
-%
-% This texinfo.tex file is free software: you can redistribute it and/or
-% modify it under the terms of the GNU General Public License as
-% published by the Free Software Foundation, either version 3 of the
-% License, or (at your option) any later version.
-%
-% This texinfo.tex file 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
-% General Public License for more details.
-%
-% You should have received a copy of the GNU General Public License
-% along with this program.  If not, see <http://www.gnu.org/licenses/>.
-%
-% As a special exception, when this file is read by TeX when processing
-% a Texinfo source document, you may use the result without
-% restriction. This Exception is an additional permission under section 7
-% of the GNU General Public License, version 3 ("GPLv3").
-%
-% Please try the latest version of texinfo.tex before submitting bug
-% reports; you can get the latest version from:
-%   http://ftp.gnu.org/gnu/texinfo/ (the Texinfo release area), or
-%   http://ftpmirror.gnu.org/texinfo/ (same, via a mirror), or
-%   http://www.gnu.org/software/texinfo/ (the Texinfo home page)
-% The texinfo.tex in any given distribution could well be out
-% of date, so if that's what you're using, please check.
-%
-% Send bug reports to bug-texinfo@gnu.org.  Please include including a
-% complete document in each bug report with which we can reproduce the
-% problem.  Patches are, of course, greatly appreciated.
-%
-% To process a Texinfo manual with TeX, it's most reliable to use the
-% texi2dvi shell script that comes with the distribution.  For a simple
-% manual foo.texi, however, you can get away with this:
-%   tex foo.texi
-%   texindex foo.??
-%   tex foo.texi
-%   tex foo.texi
-%   dvips foo.dvi -o  # or whatever; this makes foo.ps.
-% The extra TeX runs get the cross-reference information correct.
-% Sometimes one run after texindex suffices, and sometimes you need more
-% than two; texi2dvi does it as many times as necessary.
-%
-% It is possible to adapt texinfo.tex for other languages, to some
-% extent.  You can get the existing language-specific files from the
-% full Texinfo distribution.
-%
-% The GNU Texinfo home page is http://www.gnu.org/software/texinfo.
-
-
-\message{Loading texinfo version \texinfoversion:}
-
-% If in a .fmt file, print the version number
-% and turn on active characters that we couldn't do earlier because
-% they might have appeared in the input file name.
-\everyjob{\message{Texinfo version \texinfoversion}%
-  \catcode`+=\active \catcode`\_=\active}
-
-\chardef\other=12
-
-% We never want plain's \outer definition of \+ in Texinfo.
-% For @tex, we can use \tabalign.
-\let\+ = \relax
-
-% Save some plain tex macros whose names we will redefine.
-\let\ptexb=\b
-\let\ptexbullet=\bullet
-\let\ptexc=\c
-\let\ptexcomma=\,
-\let\ptexdot=\.
-\let\ptexdots=\dots
-\let\ptexend=\end
-\let\ptexequiv=\equiv
-\let\ptexexclam=\!
-\let\ptexfootnote=\footnote
-\let\ptexgtr=>
-\let\ptexhat=^
-\let\ptexi=\i
-\let\ptexindent=\indent
-\let\ptexinsert=\insert
-\let\ptexlbrace=\{
-\let\ptexless=<
-\let\ptexnewwrite\newwrite
-\let\ptexnoindent=\noindent
-\let\ptexplus=+
-\let\ptexraggedright=\raggedright
-\let\ptexrbrace=\}
-\let\ptexslash=\/
-\let\ptexstar=\*
-\let\ptext=\t
-\let\ptextop=\top
-{\catcode`\'=\active \global\let\ptexquoteright'}% active in plain's math mode
-
-% If this character appears in an error message or help string, it
-% starts a new line in the output.
-\newlinechar = `^^J
-
-% Use TeX 3.0's \inputlineno to get the line number, for better error
-% messages, but if we're using an old version of TeX, don't do anything.
-%
-\ifx\inputlineno\thisisundefined
-  \let\linenumber = \empty % Pre-3.0.
-\else
-  \def\linenumber{l.\the\inputlineno:\space}
-\fi
-
-% Set up fixed words for English if not already set.
-\ifx\putwordAppendix\undefined  \gdef\putwordAppendix{Appendix}\fi
-\ifx\putwordChapter\undefined   \gdef\putwordChapter{Chapter}\fi
-\ifx\putworderror\undefined     \gdef\putworderror{error}\fi
-\ifx\putwordfile\undefined      \gdef\putwordfile{file}\fi
-\ifx\putwordin\undefined        \gdef\putwordin{in}\fi
-\ifx\putwordIndexIsEmpty\undefined       \gdef\putwordIndexIsEmpty{(Index is empty)}\fi
-\ifx\putwordIndexNonexistent\undefined   \gdef\putwordIndexNonexistent{(Index is nonexistent)}\fi
-\ifx\putwordInfo\undefined      \gdef\putwordInfo{Info}\fi
-\ifx\putwordInstanceVariableof\undefined \gdef\putwordInstanceVariableof{Instance Variable of}\fi
-\ifx\putwordMethodon\undefined  \gdef\putwordMethodon{Method on}\fi
-\ifx\putwordNoTitle\undefined   \gdef\putwordNoTitle{No Title}\fi
-\ifx\putwordof\undefined        \gdef\putwordof{of}\fi
-\ifx\putwordon\undefined        \gdef\putwordon{on}\fi
-\ifx\putwordpage\undefined      \gdef\putwordpage{page}\fi
-\ifx\putwordsection\undefined   \gdef\putwordsection{section}\fi
-\ifx\putwordSection\undefined   \gdef\putwordSection{Section}\fi
-\ifx\putwordsee\undefined       \gdef\putwordsee{see}\fi
-\ifx\putwordSee\undefined       \gdef\putwordSee{See}\fi
-\ifx\putwordShortTOC\undefined  \gdef\putwordShortTOC{Short Contents}\fi
-\ifx\putwordTOC\undefined       \gdef\putwordTOC{Table of Contents}\fi
-%
-\ifx\putwordMJan\undefined \gdef\putwordMJan{January}\fi
-\ifx\putwordMFeb\undefined \gdef\putwordMFeb{February}\fi
-\ifx\putwordMMar\undefined \gdef\putwordMMar{March}\fi
-\ifx\putwordMApr\undefined \gdef\putwordMApr{April}\fi
-\ifx\putwordMMay\undefined \gdef\putwordMMay{May}\fi
-\ifx\putwordMJun\undefined \gdef\putwordMJun{June}\fi
-\ifx\putwordMJul\undefined \gdef\putwordMJul{July}\fi
-\ifx\putwordMAug\undefined \gdef\putwordMAug{August}\fi
-\ifx\putwordMSep\undefined \gdef\putwordMSep{September}\fi
-\ifx\putwordMOct\undefined \gdef\putwordMOct{October}\fi
-\ifx\putwordMNov\undefined \gdef\putwordMNov{November}\fi
-\ifx\putwordMDec\undefined \gdef\putwordMDec{December}\fi
-%
-\ifx\putwordDefmac\undefined    \gdef\putwordDefmac{Macro}\fi
-\ifx\putwordDefspec\undefined   \gdef\putwordDefspec{Special Form}\fi
-\ifx\putwordDefvar\undefined    \gdef\putwordDefvar{Variable}\fi
-\ifx\putwordDefopt\undefined    \gdef\putwordDefopt{User Option}\fi
-\ifx\putwordDeffunc\undefined   \gdef\putwordDeffunc{Function}\fi
-
-% Since the category of space is not known, we have to be careful.
-\chardef\spacecat = 10
-\def\spaceisspace{\catcode`\ =\spacecat}
-
-% sometimes characters are active, so we need control sequences.
-\chardef\ampChar   = `\&
-\chardef\colonChar = `\:
-\chardef\commaChar = `\,
-\chardef\dashChar  = `\-
-\chardef\dotChar   = `\.
-\chardef\exclamChar= `\!
-\chardef\hashChar  = `\#
-\chardef\lquoteChar= `\`
-\chardef\questChar = `\?
-\chardef\rquoteChar= `\'
-\chardef\semiChar  = `\;
-\chardef\slashChar = `\/
-\chardef\underChar = `\_
-
-% Ignore a token.
-%
-\def\gobble#1{}
-
-% The following is used inside several \edef's.
-\def\makecsname#1{\expandafter\noexpand\csname#1\endcsname}
-
-% Hyphenation fixes.
-\hyphenation{
-  Flor-i-da Ghost-script Ghost-view Mac-OS Post-Script
-  ap-pen-dix bit-map bit-maps
-  data-base data-bases eshell fall-ing half-way long-est man-u-script
-  man-u-scripts mini-buf-fer mini-buf-fers over-view par-a-digm
-  par-a-digms rath-er rec-tan-gu-lar ro-bot-ics se-vere-ly set-up spa-ces
-  spell-ing spell-ings
-  stand-alone strong-est time-stamp time-stamps which-ever white-space
-  wide-spread wrap-around
-}
-
-% Margin to add to right of even pages, to left of odd pages.
-\newdimen\bindingoffset
-\newdimen\normaloffset
-\newdimen\pagewidth \newdimen\pageheight

_service:tar_scm:mpc-1.2.0.tar.gz/tests/exceptions.c Deleted

@@ -1,155 +0,0 @@
-/* exceptions -- test file for exceptions
-
-Copyright (C) 2015 INRIA
-
-This file is part of GNU MPC.
-
-GNU MPC 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.
-
-GNU MPC 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 this program. If not, see http://www.gnu.org/licenses/ .
-*/
-
-#include "mpc-tests.h"
-
-/* Return non-zero if 'rnd' rounds towards zero, for a number of sign 'sgn' */
-#define MPC_IS_LIKE_RNDZ(rnd, sgn) \
-  ((rnd==MPFR_RNDZ) || (sgn<0 && rnd==MPFR_RNDU) || (sgn>0 && rnd==MPFR_RNDD))
-
-#define MPFR_SGN(x) (mpfr_signbit (x) ? -1 : 1)
-
-static void
-foo (int f(mpc_ptr, mpc_srcptr, mpc_rnd_t), char *s)
-{
-  mpc_t z, t;
-  int rnd_re, rnd_im, rnd;
-#define N 5
-  mpfr_exp_t exyN2 = {{200, 800}, {800, 200}, {-50, 50}, {-10, 1000},
-                          {0, 1000}};
-  int n, inex, inex_re, inex_im, sgn;
-
-  mpc_init2 (z, MPFR_PREC_MIN);
-  mpc_init2 (t, MPFR_PREC_MIN);
-  for (n = 0; n < N; n++)
-    for (sgn = 0; sgn < 4; sgn++)
-    {
-      if (exyn0)
-        mpfr_set_ui_2exp (mpc_realref (z), 1, exyn0, MPFR_RNDN);
-      else
-        mpfr_set_ui (mpc_realref (z), 0, MPFR_RNDN);
-      if (sgn & 1)
-        mpfr_neg (mpc_realref (z), mpc_realref (z), MPFR_RNDN);
-      if (exyn1)
-        mpfr_set_ui_2exp (mpc_imagref (z), 1, exyn1, MPFR_RNDN);
-      else
-        mpfr_set_ui (mpc_imagref (z), 0, MPFR_RNDN);
-      if (sgn & 2)
-        mpfr_neg (mpc_imagref (z), mpc_imagref (z), MPFR_RNDN);
-
-      inex = f (t, z, MPC_RNDZZ);
-      inex_re = MPC_INEX_RE(inex);
-      inex_im = MPC_INEX_IM(inex);
-
-      if (inex_re != 0 && mpfr_inf_p (mpc_realref (t)))
-        {
-          fprintf (stderr, "Error, wrong real part with rounding towards zero\n");
-          fprintf (stderr, "f = %s\n", s);
-          fprintf (stderr, "z=");
-          mpc_out_str (stderr, 2, 0, z, MPC_RNDNN);
-          fprintf (stderr, "\nt=");
-          mpc_out_str (stderr, 2, 0, t, MPC_RNDNN);
-          fprintf (stderr, "\n");
-          exit (1);
-        }
-
-      if (inex_im != 0 && mpfr_inf_p (mpc_imagref (t)))
-        {
-          fprintf (stderr, "Error, wrong imag part with rounding towards zero\n");
-          fprintf (stderr, "f = %s\n", s);
-          fprintf (stderr, "z=");
-          mpc_out_str (stderr, 2, 0, z, MPC_RNDNN);
-          fprintf (stderr, "\nt=");
-          mpc_out_str (stderr, 2, 0, t, MPC_RNDNN);
-          fprintf (stderr, "\n");
-          exit (1);
-        }
-
-      rnd_re = mpfr_signbit (mpc_realref (t)) == 0 ? MPFR_RNDU : MPFR_RNDD;
-      rnd_im = mpfr_signbit (mpc_imagref (t)) == 0 ? MPFR_RNDU : MPFR_RNDD;
-      rnd = MPC_RND(rnd_re,rnd_im); /* round away */
-
-      inex = f (t, z, rnd);
-      inex_re = MPC_INEX_RE(inex);
-      inex_im = MPC_INEX_IM(inex);
-
-      if (inex_re != 0 && mpfr_zero_p (mpc_realref (t)))
-        {
-          fprintf (stderr, "Error, wrong real part with rounding away from zero\n");
-          fprintf (stderr, "f = %s\n", s);
-          fprintf (stderr, "z=");
-          mpc_out_str (stderr, 2, 0, z, MPC_RNDNN);
-          fprintf (stderr, "\nt=");
-          mpc_out_str (stderr, 2, 0, t, MPC_RNDNN);
-          fprintf (stderr, "\n");
-          fprintf (stderr, "rnd=%s\n", mpfr_print_rnd_mode (rnd_re));
-          exit (1);
-        }
-
-      if (inex_im != 0 && mpfr_zero_p (mpc_imagref (t)))
-        {
-          fprintf (stderr, "Error, wrong imag part with rounding away from zero\n");
-          fprintf (stderr, "f = %s\n", s);
-          fprintf (stderr, "z=");
-          mpc_out_str (stderr, 2, 0, z, MPC_RNDNN);
-          fprintf (stderr, "\nt=");
-          mpc_out_str (stderr, 2, 0, t, MPC_RNDNN);
-          fprintf (stderr, "\n");
-          fprintf (stderr, "rnd=%s\n", mpfr_print_rnd_mode (rnd_im));
-          exit (1);
-        }
-    }
-
-  mpc_clear (z);
-  mpc_clear (t);
-}
-
-int
-main (void)
-{
-  test_start ();
-
-  foo (mpc_sqr, "sqr");
-  foo (mpc_conj, "conj");
-  foo (mpc_neg, "neg");
-  foo (mpc_sqrt, "sqrt");
-  foo (mpc_set, "set");
-  foo (mpc_proj, "proj");
-  foo (mpc_exp, "exp");
-  foo (mpc_exp, "exp");
-  foo (mpc_log, "log");
-  foo (mpc_log10, "log10");
-  foo (mpc_sin, "sin");
-  foo (mpc_cos, "cos");
-  foo (mpc_tan, "tan");
-  foo (mpc_sinh, "sinh");
-  foo (mpc_cosh, "cosh");
-  foo (mpc_tanh, "tanh");
-  foo (mpc_asin, "asin");
-  foo (mpc_acos, "acos");
-  foo (mpc_atan, "atan");
-  foo (mpc_asinh, "asinh");
-  foo (mpc_acosh, "acosh");
-  foo (mpc_atanh, "atanh");
-
-  test_end ();
-
-  return 0;
-}

_service:tar_scm:mpc-1.3.1.tar.gz/.gitignore Added

_service:tar_scm:mpc-1.3.1.tar.gz/.mailmap Added

_service:tar_scm:mpc-1.2.0.tar.gz/AUTHORS -> _service:tar_scm:mpc-1.3.1.tar.gz/AUTHORS Changed

_service:tar_scm:mpc-1.3.1.tar.gz/BUGS Added

_service:tar_scm:mpc-1.2.0.tar.gz/Makefile.am -> _service:tar_scm:mpc-1.3.1.tar.gz/Makefile.am Changed

_service:tar_scm:mpc-1.2.0.tar.gz/Makefile.in -> _service:tar_scm:mpc-1.3.1.tar.gz/Makefile.in Changed

@@ -1,7 +1,7 @@
-# Makefile.in generated by automake 1.16.2 from Makefile.am.
+# Makefile.in generated by automake 1.16.1 from Makefile.am.
 # @configure_input@
 
-# Copyright (C) 1994-2020 Free Software Foundation, Inc.
+# Copyright (C) 1994-2018 Free Software Foundation, Inc.
 
 # This Makefile.in is free software; the Free Software Foundation
 # gives unlimited permission to copy and/or distribute it,
@@ -90,8 +90,7 @@
 host_triplet = @host@
 subdir = .
 ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
-am__aclocal_m4_deps = $(top_srcdir)/m4/ax_c_check_flag.m4 \
-	$(top_srcdir)/m4/ax_gcc_option.m4 \
+am__aclocal_m4_deps = $(top_srcdir)/m4/ax_gcc_option.m4 \
 	$(top_srcdir)/m4/ax_gcc_version.m4 $(top_srcdir)/m4/libtool.m4 \
 	$(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \
 	$(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \
@@ -171,8 +170,8 @@
   $(am__extra_recursive_targets)
 AM_RECURSIVE_TARGETS = $(am__recursive_targets:-recursive=) TAGS CTAGS \
 	cscope distdir distdir-am dist dist-all distcheck
-am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP) \
-	config.h.in
+am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) \
+	$(LISP)config.h.in
 # Read a list of newline-separated strings from the standard input,
 # and print each of them once, without duplicates.  Input order is
 # *not* preserved.
@@ -202,8 +201,8 @@
 	$(top_srcdir)/build-aux/missing AUTHORS COPYING.LESSER \
 	ChangeLog INSTALL NEWS README TODO build-aux/ar-lib \
 	build-aux/compile build-aux/config.guess build-aux/config.sub \
-	build-aux/install-sh build-aux/ltmain.sh build-aux/mdate-sh \
-	build-aux/missing build-aux/texinfo.tex
+	build-aux/depcomp build-aux/install-sh build-aux/ltmain.sh \
+	build-aux/mdate-sh build-aux/missing build-aux/texinfo.tex
 DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
 distdir = $(PACKAGE)-$(VERSION)
 top_distdir = $(distdir)
@@ -377,7 +376,7 @@
 SUBDIRS = src tests doc tools
 EXTRA_HEADERS = src/mpc-log.h
 include_HEADERS = src/mpc.h @MPC_LOG_H@
-EXTRA_DIST = doc/fdl-1.3.texi src/mpc-log.h Makefile.vc
+EXTRA_DIST = doc/fdl-1.3.texi src/mpc-log.h
 all: config.h
 	$(MAKE) $(AM_MAKEFLAGS) all-recursive
 
@@ -650,10 +649,6 @@
 	tardir=$(distdir) && $(am__tar) | XZ_OPT=$${XZ_OPT--e} xz -c >$(distdir).tar.xz
 	$(am__post_remove_distdir)
 
-dist-zstd: distdir
-	tardir=$(distdir) && $(am__tar) | zstd -c $${ZSTD_CLEVEL-$${ZSTD_OPT--19}} >$(distdir).tar.zst
-	$(am__post_remove_distdir)
-
 dist-tarZ: distdir
 	@echo WARNING: "Support for distribution archives compressed with" \
 		       "legacy program 'compress' is deprecated." >&2
@@ -696,8 +691,6 @@
 	  eval GZIP= gzip $(GZIP_ENV) -dc $(distdir).shar.gz | unshar ;;\
 	*.zip*) \
 	  unzip $(distdir).zip ;;\
-	*.tar.zst*) \
-	  zstd -dc $(distdir).tar.zst | $(am__untar) ;;\
 	esac
 	chmod -R a-w $(distdir)
 	chmod u+w $(distdir)
@@ -878,19 +871,18 @@
 	am--refresh check check-am clean clean-cscope clean-generic \
 	clean-libtool cscope cscopelist-am ctags ctags-am dist \
 	dist-all dist-bzip2 dist-gzip dist-lzip dist-shar dist-tarZ \
-	dist-xz dist-zip dist-zstd distcheck distclean \
-	distclean-generic distclean-hdr distclean-libtool \
-	distclean-tags distcleancheck distdir distuninstallcheck dvi \
-	dvi-am html html-am info info-am install install-am \
-	install-data install-data-am install-dvi install-dvi-am \
-	install-exec install-exec-am install-html install-html-am \
-	install-includeHEADERS install-info install-info-am \
-	install-man install-pdf install-pdf-am install-ps \
-	install-ps-am install-strip installcheck installcheck-am \
-	installdirs installdirs-am maintainer-clean \
-	maintainer-clean-generic mostlyclean mostlyclean-generic \
-	mostlyclean-libtool pdf pdf-am ps ps-am tags tags-am uninstall \
-	uninstall-am uninstall-includeHEADERS
+	dist-xz dist-zip distcheck distclean distclean-generic \
+	distclean-hdr distclean-libtool distclean-tags distcleancheck \
+	distdir distuninstallcheck dvi dvi-am html html-am info \
+	info-am install install-am install-data install-data-am \
+	install-dvi install-dvi-am install-exec install-exec-am \
+	install-html install-html-am install-includeHEADERS \
+	install-info install-info-am install-man install-pdf \
+	install-pdf-am install-ps install-ps-am install-strip \
+	installcheck installcheck-am installdirs installdirs-am \
+	maintainer-clean maintainer-clean-generic mostlyclean \
+	mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \
+	tags tags-am uninstall uninstall-am uninstall-includeHEADERS
 
 .PRECIOUS: Makefile

_service:tar_scm:mpc-1.2.0.tar.gz/NEWS -> _service:tar_scm:mpc-1.3.1.tar.gz/NEWS Changed

@@ -1,43 +1,69 @@
-Changes in version 1.2.0:
+Changes in version 1.3.1, released in December 2022:
+  - Bug fix: It is again possible to include mpc.h without including
+    stdio.h.
+
+Changes in version 1.3.0 ("Ipomoea batatas"), released in December 2022:
+  - New function: mpc_agm
+  - New rounding modes "away from zero", indicated by the letter "A" and
+    corresponding to MPFR_RNDA on the designated real or imaginary part.
+  - New experimental ball arithmetic.
+  - New experimental function: mpc_eta_fund
+  - Bug fixes:
+    - mpc_asin for asin(z) with small |Re(z)| and tiny |Im(z)|
+    - mpc_pow_fr: sign of zero part of result when the base has up to sign
+      the same real and imaginary part, and the exponent is an even
+      positive integer
+    - mpc_fma: the returned 'int' value was incorrect in some cases (indicating
+      whether the rounded real/imaginary parts were smaller/equal/greater
+      than the exact values), but the computed complex value was correct.
+  - Remove the unmaintained Makefile.vc; build files for Visual Studio
+    can be found at https://github.com/BrianGladman/mpc .
+
+Changes in version 1.2.1, released in October 2020:
+  - Bug fixes:
+    - Fix an incompatibility problem with GMP 6.0 and before.
+    - Fix an intermediate overflow in asin.
+
+Changes in version 1.2.0 ("Hyacinthus orientalis"), released in August 2020:
   - Minimally required library version: MPFR 4.1.0
   - New functions: mpc_sum, mpc_dot
   - Several functions are more robust with a reduced exponent range
     (for example corresponding to IEEE 754 binary formats)
   - New tool mpcheck.
 
-Changes in version 1.1.0:
+Changes in version 1.1.0 ("Gladiolus palustris"), released in January 2018:
   - Minimally required library versions: GMP 5.0.0 and MPFR 3.0.0
   - Fixed issues with MPFR 4.0.0
   - New functions: mpc_cmp_abs, mpc_rootofunity
   - Improved speed for corner cases of mpc_asin, mpc_sin, see
-    http://lists.gforge.inria.fr/pipermail/mpc-discuss/2013-December/001266.html
+    https://sympa.inria.fr/sympa/arc/mpc-discuss/2013-12/msg00001.html
   - Rewrite of the testing framework
   - New mpcbench tool, used with "make bench"
   - Fixed handling of over- and underflows with directed rounding in the
     "other direction" for mpc_cos, mpc_sin, mpc_exp and mpc_pow, see
-    http://lists.gforge.inria.fr/pipermail/mpc-discuss/2015-March/001336.html
+    https://sympa.inria.fr/sympa/arc/mpc-discuss/2015-03/msg00003.html
   - Fixed a bug in mpc_atan(0,y) with |y| near 1, see
-    http://lists.gforge.inria.fr/pipermail/mpc-discuss/2017-March/001404.html
+    https://sympa.inria.fr/sympa/arc/mpc-discuss/2017-03/msg00000.html
 
-Changes in version 1.0.3:
+Changes in version 1.0.3, released in February 2015:
   - Fixed mpc_pow, see
-    http://lists.gforge.inria.fr/pipermail/mpc-discuss/2014-October/001315.html
+    https://sympa.inria.fr/sympa/arc/mpc-discuss/2014-10/msg00005.html
   - #18257: Switched to libtool 2.4.5.
 
-Changes in version 1.0.2:
+Changes in version 1.0.2, released in January 2014:
   - Fixed mpc_atan, mpc_atanh for (+-0, +-1), see
     http://gcc.gnu.org/bugzilla/show_bug.cgi?id=57994#c7
   - Fixed mpc_log10 for purely imaginary argument, see
-    http://lists.gforge.inria.fr/pipermail/mpc-discuss/2012-September/001208.html
+    https://sympa.inria.fr/sympa/arc/mpc-discuss/2012-09/msg00001.html
 
-Changes in version 1.0.1:
+Changes in version 1.0.1, released in September 2012:
   - Switched to automake 1.11.6, see
     https://lists.gnu.org/archive/html/automake/2012-07/msg00023.html
   - #14669: Fixed extraction of CC from gmp.h
   - Fixed case of intermediate zero real or imaginary part in mpc_fma,
     found by hydra with GMP_CHECK_RANDOMIZE=1346362345
 
-Changes in version 1.0:
+Changes in version 1.0 ("Fagus silvatica"), released in July 2012:
   - First release as a GNU package
   - License change: LGPLv3+ for code, GFDLv1.3+ (with no invariant sections)
     for documentation
@@ -59,7 +85,7 @@
       infinite part and equals output variable is corrected
     - mpc_fr_sub: Wrong return value for imaginary part is corrected
 
-Changes in version 0.9:
+Changes in version 0.9 ("Epilobium montanum"), released in February 2011:
   - New functions:
     - mpc_set_dc, mpc_set_ldc, mpc_get_dc, mpc_get_ldc for converting
       between mpc type variables and C variables of type double _Complex
@@ -81,24 +107,24 @@
       #include "mpc-log.h" instead of #include "mpc.h"
   - Minimally required library versions: gmp 4.3.2, mpfr 2.4.2
 
-Changes in version 0.8.2:
+Changes in version 0.8.2, released in May 2010:
   - Speed-up of mpc_pow_ui through binary exponentiation
 
-Changes in version 0.8.1:
+Changes in version 0.8.1, released in December 2009:
   - Bug fixes:
     - mpc_acosh, mpc_asinh, mpc_atanh: swap of precisions between real and
       imaginary parts
     - mpc_atan: memory leak
     - mpc_log: wrong ternary value in data file; masked by bug in mpfr-2.4.1
 
-Changes in version 0.8 ("Dianthus deltoides"):
+Changes in version 0.8 ("Dianthus deltoides"), released in November 2009:
   - New functions:
     - mpc_asin, mpc_acos, mpc_atan, mpc_asinh, mpc_acosh, mpc_atanh,
       mpc_pow_d, mpc_pow_ld, mpc_pow_si, mpc_pow_ui, mpc_pow_z, mpc_pow_fr
   - Bug fixes:
     - mpc_ui_div: real divisor
 
-Changes in version 0.7 ("Campanula uniflora"):
+Changes in version 0.7 ("Campanula uniflora"), released in September 2009:
   - New functions: mpc_pow, mpc_set_nan, mpc_swap
   - Bug fixes:
     - mpc_log: along branch cut
@@ -111,7 +137,7 @@
   - Changed MPC_SET_X_Y macro
   - Functions mpc_random and mpc_random2 removed
 
-Changes in version 0.6 ("Bellis perennis"):
+Changes in version 0.6 ("Bellis perennis"), released in April 2009:
   - New functions: mpc_get_str, mpc_set_str, mpc_strtoc, mpc_set_uj,
     mpc_set_sj, mpc_set_ld, mpc_set_ld_ld, mpc_set_si_si, mpc_set_uj_uj,
     mpc_set_sj_sj, mpc_set_f, mpc_set_f_f, mpc_set_q, mpc_set_q_q, mpc_set_z,
@@ -130,14 +156,14 @@
     - mpc_get_version and MPC_VERSION_STRING agree
     - Compilation on i686-pc-cygwin and i686-pc-mingw32 fixed
 
-Changes in version 0.5.2:
+Changes in version 0.5.2, released in December 2008:
   - New macros:
     - version number: MPC_VERSION_NUM, MPC_VERSION
   - Makefile.vc updated (thanks to Mickael Gastineau)
   - Compilation on Debian-Gnu-Linux-PowerPC and MacOsX
     fixed (thanks to Laurent Fousse and Mickael Gastineau)
 
-Changes in version 0.5.1:
+Changes in version 0.5.1, released in November 2008:
   - New functions:
     - mpc_set_fr_fr
     - mpc_real, mpc_imag
@@ -162,7 +188,7 @@
     - fix handling of special values: mpc_exp, mpc_log, mpc_mul, mpc_norm,
       mpc_sqr, mpc_sqrt
 
-Changes in version 0.5 ("Aconitum neomontanum"):
+Changes in version 0.5 ("Aconitum neomontanum"), released in September 2008:
   - Support for autotools
   - New functions:
      - logarithm
@@ -172,7 +198,7 @@
     - mpc_sqrt with directed rounding
 
 
-Copyright (C) 2008, 2009, 2010, 2011, 2012, 2013, 2014 INRIA
+Copyright (C) 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018, 2020, 2022 INRIA
 
 Copying and distribution of this file, with or without modification,
 are permitted in any medium without royalty provided the copyright

_service:tar_scm:mpc-1.2.0.tar.gz/README -> _service:tar_scm:mpc-1.3.1.tar.gz/README Changed

@@ -1,4 +1,4 @@
-Copyright (C) INRIA 2003, 2005, 2007, 2008, 2009, 2010, 2011, 2012, 2014, 2015, 2018, 2020
+Copyright (C) INRIA 2003, 2005, 2007, 2008, 2009, 2010, 2011, 2012, 2014, 2015, 2018, 2020, 2022
 
 Copying and distribution of this file, with or without modification,
 are permitted in any medium without royalty provided the copyright
@@ -24,8 +24,8 @@
 
 1. In the directory of the GNU MPC archive, type
 
-      tar xzf mpc-1.2.0.tar.gz
-      cd mpc-1.2.0
+      tar xzf mpc-1.3.1.tar.gz
+      cd mpc-1.3.1
       ./configure
       make
 
@@ -38,8 +38,7 @@
       make check
 
    If any error occurs, please report it on the mailing list
-   <mpc-discuss@lists.gforge.inria.fr>, or file a bug at the bug tracker
-   <https://gforge.inria.fr/tracker/?atid=607&group_id=131&func=browse> .
+   <mpc-discuss@inria.fr>.
 
 3. To install the GNU MPC library, type
 
@@ -60,7 +59,7 @@
    This requires the Texinfo package (version 4.2 at least).
 
 In case of difficulties, please send a description of the problem to
-<mpc-discuss@lists.gforge.inria.fr>.
+<mpc-discuss@inria.fr>.
 
 ##############################################################################
 
@@ -88,20 +87,6 @@
 Note for Windows users:
 =======================
 
-There is a special file Makefile.vc for Windows, contributed by Mickaël
-Gastineau. This file works both for the Windows Server 2003 R2 Platform SDK,
-and for the Windows SDK of Vista. To use it, simply replace "make" by
-"nmake /f makefile.vc" in the above instructions:
-
-compilation :
-nmake /f makefile.vc GMP=<gmp_install_dir> MPFR=<mpfr_install_dir>
-
-clean :
-nmake /f makefile.vc GMP=<gmp_install_dir> MPFR=<mpfr_install_dir> clean
-
-check :
-nmake /f makefile.vc GMP=<gmp_install_dir> MPFR=<mpfr_install_dir> check
-
 If you want to compile mpc with mingw in the msys shell, you might need to
 add the following to the configure command (or in your environment):
 
@@ -113,3 +98,7 @@
 CPP="x86_64-w64-mingw32-gcc -E"
 
 (reported by Sisyphus)
+
+A project for Visual Studio is maintained independently by Brian Gladman at
+https://github.com/BrianGladman/mpc
+

_service:tar_scm:mpc-1.3.1.tar.gz/README.dev Added

@@ -0,0 +1,53 @@
+Source code from the git repository
+-----------------------------------
+
+To compile source code obtained from the git repository,
+make sure you have installed the autoconf, automake and libtool packages.
+Execute:
+
+$ autoreconf -i
+$ ./configure
+$ make
+$ make check
+
+Required versions:
+* autoconf >= 2.61
+* automake >= 1.11.6
+* libtool >= 2.4.3
+
+Creating a new release
+----------------------
+
+0) Check the release also works on 32-bit processors (or configure GMP with
+   ABI=32 on 64-bit processors); and with tcc and clang.
+   If compatibility with a C++ compiler is desired, make sure to use
+   autotools-2.69 and not a later version before checking with g++.
+1) Check the version number in configure.ac ("AC_INIT (mpc, _version_...)"),
+   README, src/get_version.c and src/mpc.h (remove suffix "dev" in
+   MPC_VERSION_STRING).
+   Check that there are no compiler warnings with
+      CFLAGS="-Wuninitialized -fsanitize=undefined -fno-sanitize-recover=all -Wall -Wextra -Wdeclaration-after-statement -Wshadow -Wstrict-prototypes -Wmissing-prototypes" ./configure; make check
+2) Check that NEWS, BUGS and TODO are up to date, and that the minimal
+   version numbers of gmp and mpfr in configure.ac, README and
+   doc/mpc.texi are correct (and check that make and make check work
+   with these minimal versions).
+3) Update the ABI version in src/Makefile.am, see
+      https://www.gnu.org/software/libtool/manual/html_node/Updating-version-info.html
+4) Execute
+      autoreconf -vfi
+   This updates the files in build-aux.
+   Check that the executables in build-aux are not read-only
+   (https://sympa.inria.fr/sympa/arc/mpc-discuss/2020-06/msg00000.html).
+5) Execute
+      touch doc/mpc.texi; make distcheck
+   This updates doc/version.texi and creates the tarball for distribution.
+6) Upload to GNU ftp server, see
+      https://www.gnu.org/prep/maintain/html_node/Automated-Upload-Procedure.html
+7) Update the web page on the server.
+8) Create a git tag:
+   git tag VERSION
+   git push --tags
+9) After the release, update the version number in configure.ac, README,
+   src/get_version.c and src/mpc.h.
+10) Commit the changes to git.
+

_service:tar_scm:mpc-1.2.0.tar.gz/TODO -> _service:tar_scm:mpc-1.3.1.tar.gz/TODO Changed

@@ -1,9 +1,8 @@
-From Andreas Enge 22 July 2016:
-Now that mpfr-3 is the minimum version requirement, support the
-MPFR_RNDA rounding mode.
+From Thomas Henlich on 20 February 2020:
+Implement the cotangent function.
 
 From Joseph Myers 12 Apr 2015:
-http://lists.gforge.inria.fr/pipermail/mpc-discuss/2015-April/001347.html
+https://sympa.inria.fr/sympa/arc/mpc-discuss/2015-04/msg00009.html
 Try implementing tan z = (sin 2x + i sinh 2y) / (cos 2x + cosh 2y) or
 (sin(x)*cos(x) + i*sinh(y)*cosh(y))/(cos(x)^2 + sinh(y)^2) as in glibc.
 
@@ -14,7 +13,7 @@
 From Andreas Enge 27 August 2012:
 Implement im(atan(x+i*y)) as
 1/4 * log1p (4y / (x^2 +(1-y)^2))
-(see http://lists.gforge.inria.fr/pipermail/mpc-discuss/2012-August/001196.html)
+(see https://sympa.inria.fr/sympa/arc/mpc-discuss/2012-08/msg00002.html)
 
 From Andreas Enge 23 July 2012:
 go through tests and move them to the data files if possible
@@ -25,12 +24,24 @@
 instead of two at precision 2*p and one at precision p
 requires analysis of error propagation
 
+From Andreas Enge 1 December 2022:
+think about, implement and document the possibility of having signed
+zeros as real and imaginary parts of results of multiplication.
+We might follow IEEE 754-2019, 3rd paragraph from section 6.3:
+
+   "When the sum of two operands with opposite signs (or the difference of two
+   operands with like signs) is exactly zero, the sign of that sum (or
+   difference) shall be +0 under all rounding-direction attributes except
+   roundTowardNegative; under that attribute, the sign of an exact zero sum
+   (or difference) shall be -0. However, under all rounding-direction
+   attributes, when x is zero, x + x and x - (-x) have the sign of x."
+
 From Andreas Enge and Paul Zimmermann 6 July 2012:
 Improve speed of Im (atan) for x+i*y with small y, for instance by using
 the Taylor series directly. See also the discussion
-http://lists.gforge.inria.fr/pipermail/mpc-discuss/2012-August/001196.html
+https://sympa.inria.fr/sympa/arc/mpc-discuss/2012-08/msg00002.html
 and the timing program on
-http://lists.gforge.inria.fr/pipermail/mpc-discuss/2013-August/001254.html
+https://sympa.inria.fr/sympa/arc/mpc-discuss/2013-08/msg00005.html
 
 For example with Sage 5.11:
 sage: %timeit atan(MPComplexField()(1,1))
@@ -70,13 +81,8 @@
 New functions to implement:
 - from Joseph S. Myers <joseph at codesourcery dot com> 19 Mar 2012: mpc_erf,
   mpc_erfc, mpc_exp2, mpc_expm1, mpc_log1p, mpc_log2, mpc_lgamma, mpc_tgamma
-  http://lists.gforge.inria.fr/pipermail/mpc-discuss/2012-March/001090.html
+  https://sympa.inria.fr/sympa/arc/mpc-discuss/2012-03/msg00009.html
   See the article by Pascal Molin (hal.archives-ouvertes.fr/hal-00580855).
-- from Andreas Enge and Philippe Théveny 17 July 2008
-  agm (and complex logarithm with agm ?). For the error analysis, one can
-  start from Theorem 1 of http://www.lix.polytechnique.fr/Labo/Regis.Dupont/preprints/Dupont_FastEvalMod.ps.gz, and probably the best is to compute AGM(a,b)
-  as a*AGM(1,b/a) with |b/a| <= 1. In such a way, after one step all values
-  are in the same quadrant, and no cancellation occurs any more.
 - implement a root-finding algorithm using the Durand-Kerner method
   (cf http://en.wikipedia.org/wiki/Durand%E2%80%93Kerner_method).
   See also the CEVAL algorithm from Yap and Sagraloff:

_service:tar_scm:mpc-1.2.0.tar.gz/aclocal.m4 -> _service:tar_scm:mpc-1.3.1.tar.gz/aclocal.m4 Changed

@@ -1,6 +1,6 @@
-# generated automatically by aclocal 1.16.2 -*- Autoconf -*-
+# generated automatically by aclocal 1.16.1 -*- Autoconf -*-
 
-# Copyright (C) 1996-2020 Free Software Foundation, Inc.
+# Copyright (C) 1996-2018 Free Software Foundation, Inc.
 
 # This file is free software; the Free Software Foundation
 # gives unlimited permission to copy and/or distribute it,
@@ -20,7 +20,7 @@
 If you have problems, you may need to regenerate the build system entirely.
 To do so, use the procedure documented by the package, typically 'autoreconf'.))
 
-# Copyright (C) 2002-2020 Free Software Foundation, Inc.
+# Copyright (C) 2002-2018 Free Software Foundation, Inc.
 #
 # This file is free software; the Free Software Foundation
 # gives unlimited permission to copy and/or distribute it,
@@ -35,7 +35,7 @@
 am__api_version='1.16'
 dnl Some users find AM_AUTOMAKE_VERSION and mistake it for a way to
 dnl require some minimum version.  Point them to the right macro.
-m4_if($1, 1.16.2, ,
+m4_if($1, 1.16.1, ,
       AC_FATAL(Do not call $0, use AM_INIT_AUTOMAKE($1).))dnl
 )
 
@@ -51,12 +51,12 @@
 # Call AM_AUTOMAKE_VERSION and AM_AUTOMAKE_VERSION so they can be traced.
 # This function is AC_REQUIREd by AM_INIT_AUTOMAKE.
 AC_DEFUN(AM_SET_CURRENT_AUTOMAKE_VERSION,
-AM_AUTOMAKE_VERSION(1.16.2)dnl
+AM_AUTOMAKE_VERSION(1.16.1)dnl
 m4_ifndef(AC_AUTOCONF_VERSION,
   m4_copy(m4_PACKAGE_VERSION, AC_AUTOCONF_VERSION))dnl
 _AM_AUTOCONF_VERSION(m4_defn(AC_AUTOCONF_VERSION)))
 
-# Copyright (C) 2011-2020 Free Software Foundation, Inc.
+# Copyright (C) 2011-2018 Free Software Foundation, Inc.
 #
 # This file is free software; the Free Software Foundation
 # gives unlimited permission to copy and/or distribute it,
@@ -118,7 +118,7 @@
 
 # AM_AUX_DIR_EXPAND                                         -*- Autoconf -*-
 
-# Copyright (C) 2001-2020 Free Software Foundation, Inc.
+# Copyright (C) 2001-2018 Free Software Foundation, Inc.
 #
 # This file is free software; the Free Software Foundation
 # gives unlimited permission to copy and/or distribute it,
@@ -170,7 +170,7 @@
 
 # AM_CONDITIONAL                                            -*- Autoconf -*-
 
-# Copyright (C) 1997-2020 Free Software Foundation, Inc.
+# Copyright (C) 1997-2018 Free Software Foundation, Inc.
 #
 # This file is free software; the Free Software Foundation
 # gives unlimited permission to copy and/or distribute it,
@@ -201,7 +201,7 @@
 Usually this means the macro was only invoked conditionally.)
 fi))
 
-# Copyright (C) 1999-2020 Free Software Foundation, Inc.
+# Copyright (C) 1999-2018 Free Software Foundation, Inc.
 #
 # This file is free software; the Free Software Foundation
 # gives unlimited permission to copy and/or distribute it,
@@ -392,7 +392,7 @@
 
 # Generate code to set up dependency tracking.              -*- Autoconf -*-
 
-# Copyright (C) 1999-2020 Free Software Foundation, Inc.
+# Copyright (C) 1999-2018 Free Software Foundation, Inc.
 #
 # This file is free software; the Free Software Foundation
 # gives unlimited permission to copy and/or distribute it,
@@ -431,9 +431,7 @@
   done
   if test $am_rc -ne 0; then
     AC_MSG_FAILURE(Something went wrong bootstrapping makefile fragments
-    for automatic dependency tracking.  If GNU make was not used, consider
-    re-running the configure script with MAKE="gmake" (or whatever is
-    necessary).  You can also try re-running configure with the
+    for automatic dependency tracking.  Try re-running configure with the
     '--disable-dependency-tracking' option to at least be able to build
     the package (albeit without support for automatic dependency tracking).)
   fi
@@ -460,7 +458,7 @@
 
 # Do all the work for Automake.                             -*- Autoconf -*-
 
-# Copyright (C) 1996-2020 Free Software Foundation, Inc.
+# Copyright (C) 1996-2018 Free Software Foundation, Inc.
 #
 # This file is free software; the Free Software Foundation
 # gives unlimited permission to copy and/or distribute it,
@@ -657,7 +655,7 @@
 done
 echo "timestamp for $_am_arg" >`AS_DIRNAME("$_am_arg")`/stamp-h$_am_stamp_count)
 
-# Copyright (C) 2001-2020 Free Software Foundation, Inc.
+# Copyright (C) 2001-2018 Free Software Foundation, Inc.
 #
 # This file is free software; the Free Software Foundation
 # gives unlimited permission to copy and/or distribute it,
@@ -678,7 +676,7 @@
 fi
 AC_SUBST(install_sh))
 
-# Copyright (C) 2003-2020 Free Software Foundation, Inc.
+# Copyright (C) 2003-2018 Free Software Foundation, Inc.
 #
 # This file is free software; the Free Software Foundation
 # gives unlimited permission to copy and/or distribute it,
@@ -700,7 +698,7 @@
 # Add --enable-maintainer-mode option to configure.         -*- Autoconf -*-
 # From Jim Meyering
 
-# Copyright (C) 1996-2020 Free Software Foundation, Inc.
+# Copyright (C) 1996-2018 Free Software Foundation, Inc.
 #
 # This file is free software; the Free Software Foundation
 # gives unlimited permission to copy and/or distribute it,
@@ -735,7 +733,7 @@
 
 # Check to see how 'make' treats includes.	            -*- Autoconf -*-
 
-# Copyright (C) 2001-2020 Free Software Foundation, Inc.
+# Copyright (C) 2001-2018 Free Software Foundation, Inc.
 #
 # This file is free software; the Free Software Foundation
 # gives unlimited permission to copy and/or distribute it,
@@ -778,7 +776,7 @@
 
 # Fake the existence of programs that GNU maintainers use.  -*- Autoconf -*-
 
-# Copyright (C) 1997-2020 Free Software Foundation, Inc.
+# Copyright (C) 1997-2018 Free Software Foundation, Inc.
 #
 # This file is free software; the Free Software Foundation
 # gives unlimited permission to copy and/or distribute it,
@@ -817,7 +815,7 @@
 
 # Helper functions for option handling.                     -*- Autoconf -*-
 
-# Copyright (C) 2001-2020 Free Software Foundation, Inc.
+# Copyright (C) 2001-2018 Free Software Foundation, Inc.
 #
 # This file is free software; the Free Software Foundation
 # gives unlimited permission to copy and/or distribute it,
@@ -846,7 +844,7 @@
 AC_DEFUN(_AM_IF_OPTION,
 m4_ifset(_AM_MANGLE_OPTION($1), $2, $3))
 
-# Copyright (C) 1999-2020 Free Software Foundation, Inc.
+# Copyright (C) 1999-2018 Free Software Foundation, Inc.
 #
 # This file is free software; the Free Software Foundation
 # gives unlimited permission to copy and/or distribute it,
@@ -893,7 +891,7 @@
 # For backward compatibility.
 AC_DEFUN_ONCE(AM_PROG_CC_C_O, AC_REQUIRE(AC_PROG_CC))
 
-# Copyright (C) 2001-2020 Free Software Foundation, Inc.
+# Copyright (C) 2001-2018 Free Software Foundation, Inc.
 #
 # This file is free software; the Free Software Foundation
 # gives unlimited permission to copy and/or distribute it,
@@ -912,7 +910,7 @@
 
 # Check to make sure that the build environment is sane.    -*- Autoconf -*-
 
-# Copyright (C) 1996-2020 Free Software Foundation, Inc.
+# Copyright (C) 1996-2018 Free Software Foundation, Inc.
 #
 # This file is free software; the Free Software Foundation
 # gives unlimited permission to copy and/or distribute it,
@@ -993,7 +991,7 @@
 rm -f conftest.file
 )
 
-# Copyright (C) 2009-2020 Free Software Foundation, Inc.
+# Copyright (C) 2009-2018 Free Software Foundation, Inc.
 #
 # This file is free software; the Free Software Foundation
 # gives unlimited permission to copy and/or distribute it,
@@ -1053,7 +1051,7 @@
 _AM_SUBST_NOTMAKE(AM_BACKSLASH)dnl
 )
 
-# Copyright (C) 2001-2020 Free Software Foundation, Inc.
+# Copyright (C) 2001-2018 Free Software Foundation, Inc.
 #
 # This file is free software; the Free Software Foundation
 # gives unlimited permission to copy and/or distribute it,
@@ -1081,7 +1079,7 @@
 INSTALL_STRIP_PROGRAM="\$(install_sh) -c -s"
 AC_SUBST(INSTALL_STRIP_PROGRAM))

_service:tar_scm:mpc-1.3.1.tar.gz/autom4te.cache Added

_service:tar_scm:mpc-1.3.1.tar.gz/autom4te.cache/output.0 Added

@@ -0,0 +1,15450 @@
+@%:@! /bin/sh
+@%:@ Guess values for system-dependent variables and create Makefiles.
+@%:@ Generated by GNU Autoconf 2.69 for mpc 1.3.1.
+@%:@
+@%:@ Report bugs to <mpc-discuss@inria.fr>.
+@%:@ 
+@%:@ 
+@%:@ Copyright (C) 1992-1996, 1998-2012 Free Software Foundation, Inc.
+@%:@ 
+@%:@ 
+@%:@ This configure script is free software; the Free Software Foundation
+@%:@ gives unlimited permission to copy, distribute and modify it.
+## -------------------- ##
+## M4sh Initialization. ##
+## -------------------- ##
+
+# Be more Bourne compatible
+DUALCASE=1; export DUALCASE # for MKS sh
+if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then :
+  emulate sh
+  NULLCMD=:
+  # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which
+  # is contrary to our usage.  Disable this feature.
+  alias -g '${1+"$@"}'='"$@"'
+  setopt NO_GLOB_SUBST
+else
+  case `(set -o) 2>/dev/null` in @%:@(
+  *posix*) :
+    set -o posix ;; @%:@(
+  *) :
+     ;;
+esac
+fi
+
+
+as_nl='
+'
+export as_nl
+# Printing a long string crashes Solaris 7 /usr/bin/printf.
+as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
+as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo
+as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo
+# Prefer a ksh shell builtin over an external printf program on Solaris,
+# but without wasting forks for bash or zsh.
+if test -z "$BASH_VERSION$ZSH_VERSION" \
+    && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then
+  as_echo='print -r --'
+  as_echo_n='print -rn --'
+elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then
+  as_echo='printf %s\n'
+  as_echo_n='printf %s'
+else
+  if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then
+    as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"'
+    as_echo_n='/usr/ucb/echo -n'
+  else
+    as_echo_body='eval expr "X$1" : "X\$.*\$"'
+    as_echo_n_body='eval
+      arg=$1;
+      case $arg in @%:@(
+      *"$as_nl"*)
+	expr "X$arg" : "X\$.*\$$as_nl";
+	arg=`expr "X$arg" : ".*$as_nl\$.*\$"`;;
+      esac;
+      expr "X$arg" : "X\$.*\$" | tr -d "$as_nl"
+    '
+    export as_echo_n_body
+    as_echo_n='sh -c $as_echo_n_body as_echo'
+  fi
+  export as_echo_body
+  as_echo='sh -c $as_echo_body as_echo'
+fi
+
+# The user is always right.
+if test "${PATH_SEPARATOR+set}" != set; then
+  PATH_SEPARATOR=:
+  (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {
+    (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||
+      PATH_SEPARATOR=';'
+  }
+fi
+
+
+# IFS
+# We need space, tab and new line, in precisely that order.  Quoting is
+# there to prevent editors from complaining about space-tab.
+# (If _AS_PATH_WALK were called with IFS unset, it would disable word
+# splitting by setting IFS to empty value.)
+IFS=" ""	$as_nl"
+
+# Find who we are.  Look in the path if we contain no directory separator.
+as_myself=
+case $0 in @%:@((
+  *\\/* ) as_myself=$0 ;;
+  *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+  IFS=$as_save_IFS
+  test -z "$as_dir" && as_dir=.
+    test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break
+  done
+IFS=$as_save_IFS
+
+     ;;
+esac
+# We did not find ourselves, most probably we were run as `sh COMMAND'
+# in which case we are not to be found in the path.
+if test "x$as_myself" = x; then
+  as_myself=$0
+fi
+if test ! -f "$as_myself"; then
+  $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2
+  exit 1
+fi
+
+# Unset variables that we do not need and which cause bugs (e.g. in
+# pre-3.0 UWIN ksh).  But do not cause bugs in bash 2.01; the "|| exit 1"
+# suppresses any "Segmentation fault" message there.  '((' could
+# trigger a bug in pdksh 5.2.14.
+for as_var in BASH_ENV ENV MAIL MAILPATH
+do eval test x\${$as_var+set} = xset \
+  && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || :
+done
+PS1='$ '
+PS2='> '
+PS4='+ '
+
+# NLS nuisances.
+LC_ALL=C
+export LC_ALL
+LANGUAGE=C
+export LANGUAGE
+
+# CDPATH.
+(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
+
+# Use a proper internal environment variable to ensure we don't fall
+  # into an infinite loop, continuously re-executing ourselves.
+  if test x"${_as_can_reexec}" != xno && test "x$CONFIG_SHELL" != x; then
+    _as_can_reexec=no; export _as_can_reexec;
+    # We cannot yet assume a decent shell, so we have to provide a
+# neutralization value for shells without unset; and this also
+# works around shells that cannot unset nonexistent variables.
+# Preserve -v and -x to the replacement shell.
+BASH_ENV=/dev/null
+ENV=/dev/null
+(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV
+case $- in @%:@ ((((
+  *v*x* | *x*v* ) as_opts=-vx ;;
+  *v* ) as_opts=-v ;;
+  *x* ) as_opts=-x ;;
+  * ) as_opts= ;;
+esac
+exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"}
+# Admittedly, this is quite paranoid, since all the known shells bail
+# out after a failed `exec'.
+$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2
+as_fn_exit 255
+  fi
+  # We don't want this to propagate to other subprocesses.
+          { _as_can_reexec=; unset _as_can_reexec;}
+if test "x$CONFIG_SHELL" = x; then
+  as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then :
+  emulate sh
+  NULLCMD=:
+  # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which
+  # is contrary to our usage.  Disable this feature.
+  alias -g '\${1+\"\$@\"}'='\"\$@\"'
+  setopt NO_GLOB_SUBST
+else
+  case \`(set -o) 2>/dev/null\` in @%:@(
+  *posix*) :
+    set -o posix ;; @%:@(
+  *) :
+     ;;
+esac
+fi
+"
+  as_required="as_fn_return () { (exit \$1); }
+as_fn_success () { as_fn_return 0; }
+as_fn_failure () { as_fn_return 1; }
+as_fn_ret_success () { return 0; }
+as_fn_ret_failure () { return 1; }
+
+exitcode=0
+as_fn_success || { exitcode=1; echo as_fn_success failed.; }
+as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; }
+as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; }
+as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; }
+if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then :
+  
+else
+  exitcode=1; echo positional parameters were not saved.
+fi
+test x\$exitcode = x0 || exit 1
+test -x / || exit 1"
+  as_suggested="  as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO
+  as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO
+  eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" &&

_service:tar_scm:mpc-1.3.1.tar.gz/autom4te.cache/output.1 Added

@@ -0,0 +1,15913 @@
+@%:@! /bin/sh
+@%:@ Guess values for system-dependent variables and create Makefiles.
+@%:@ Generated by GNU Autoconf 2.69 for mpc 1.3.1.
+@%:@
+@%:@ Report bugs to <mpc-discuss@inria.fr>.
+@%:@ 
+@%:@ 
+@%:@ Copyright (C) 1992-1996, 1998-2012 Free Software Foundation, Inc.
+@%:@ 
+@%:@ 
+@%:@ This configure script is free software; the Free Software Foundation
+@%:@ gives unlimited permission to copy, distribute and modify it.
+## -------------------- ##
+## M4sh Initialization. ##
+## -------------------- ##
+
+# Be more Bourne compatible
+DUALCASE=1; export DUALCASE # for MKS sh
+if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then :
+  emulate sh
+  NULLCMD=:
+  # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which
+  # is contrary to our usage.  Disable this feature.
+  alias -g '${1+"$@"}'='"$@"'
+  setopt NO_GLOB_SUBST
+else
+  case `(set -o) 2>/dev/null` in @%:@(
+  *posix*) :
+    set -o posix ;; @%:@(
+  *) :
+     ;;
+esac
+fi
+
+
+as_nl='
+'
+export as_nl
+# Printing a long string crashes Solaris 7 /usr/bin/printf.
+as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
+as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo
+as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo
+# Prefer a ksh shell builtin over an external printf program on Solaris,
+# but without wasting forks for bash or zsh.
+if test -z "$BASH_VERSION$ZSH_VERSION" \
+    && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then
+  as_echo='print -r --'
+  as_echo_n='print -rn --'
+elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then
+  as_echo='printf %s\n'
+  as_echo_n='printf %s'
+else
+  if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then
+    as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"'
+    as_echo_n='/usr/ucb/echo -n'
+  else
+    as_echo_body='eval expr "X$1" : "X\$.*\$"'
+    as_echo_n_body='eval
+      arg=$1;
+      case $arg in @%:@(
+      *"$as_nl"*)
+	expr "X$arg" : "X\$.*\$$as_nl";
+	arg=`expr "X$arg" : ".*$as_nl\$.*\$"`;;
+      esac;
+      expr "X$arg" : "X\$.*\$" | tr -d "$as_nl"
+    '
+    export as_echo_n_body
+    as_echo_n='sh -c $as_echo_n_body as_echo'
+  fi
+  export as_echo_body
+  as_echo='sh -c $as_echo_body as_echo'
+fi
+
+# The user is always right.
+if test "${PATH_SEPARATOR+set}" != set; then
+  PATH_SEPARATOR=:
+  (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {
+    (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||
+      PATH_SEPARATOR=';'
+  }
+fi
+
+
+# IFS
+# We need space, tab and new line, in precisely that order.  Quoting is
+# there to prevent editors from complaining about space-tab.
+# (If _AS_PATH_WALK were called with IFS unset, it would disable word
+# splitting by setting IFS to empty value.)
+IFS=" ""	$as_nl"
+
+# Find who we are.  Look in the path if we contain no directory separator.
+as_myself=
+case $0 in @%:@((
+  *\\/* ) as_myself=$0 ;;
+  *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+  IFS=$as_save_IFS
+  test -z "$as_dir" && as_dir=.
+    test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break
+  done
+IFS=$as_save_IFS
+
+     ;;
+esac
+# We did not find ourselves, most probably we were run as `sh COMMAND'
+# in which case we are not to be found in the path.
+if test "x$as_myself" = x; then
+  as_myself=$0
+fi
+if test ! -f "$as_myself"; then
+  $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2
+  exit 1
+fi
+
+# Unset variables that we do not need and which cause bugs (e.g. in
+# pre-3.0 UWIN ksh).  But do not cause bugs in bash 2.01; the "|| exit 1"
+# suppresses any "Segmentation fault" message there.  '((' could
+# trigger a bug in pdksh 5.2.14.
+for as_var in BASH_ENV ENV MAIL MAILPATH
+do eval test x\${$as_var+set} = xset \
+  && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || :
+done
+PS1='$ '
+PS2='> '
+PS4='+ '
+
+# NLS nuisances.
+LC_ALL=C
+export LC_ALL
+LANGUAGE=C
+export LANGUAGE
+
+# CDPATH.
+(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
+
+# Use a proper internal environment variable to ensure we don't fall
+  # into an infinite loop, continuously re-executing ourselves.
+  if test x"${_as_can_reexec}" != xno && test "x$CONFIG_SHELL" != x; then
+    _as_can_reexec=no; export _as_can_reexec;
+    # We cannot yet assume a decent shell, so we have to provide a
+# neutralization value for shells without unset; and this also
+# works around shells that cannot unset nonexistent variables.
+# Preserve -v and -x to the replacement shell.
+BASH_ENV=/dev/null
+ENV=/dev/null
+(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV
+case $- in @%:@ ((((
+  *v*x* | *x*v* ) as_opts=-vx ;;
+  *v* ) as_opts=-v ;;
+  *x* ) as_opts=-x ;;
+  * ) as_opts= ;;
+esac
+exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"}
+# Admittedly, this is quite paranoid, since all the known shells bail
+# out after a failed `exec'.
+$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2
+as_fn_exit 255
+  fi
+  # We don't want this to propagate to other subprocesses.
+          { _as_can_reexec=; unset _as_can_reexec;}
+if test "x$CONFIG_SHELL" = x; then
+  as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then :
+  emulate sh
+  NULLCMD=:
+  # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which
+  # is contrary to our usage.  Disable this feature.
+  alias -g '\${1+\"\$@\"}'='\"\$@\"'
+  setopt NO_GLOB_SUBST
+else
+  case \`(set -o) 2>/dev/null\` in @%:@(
+  *posix*) :
+    set -o posix ;; @%:@(
+  *) :
+     ;;
+esac
+fi
+"
+  as_required="as_fn_return () { (exit \$1); }
+as_fn_success () { as_fn_return 0; }
+as_fn_failure () { as_fn_return 1; }
+as_fn_ret_success () { return 0; }
+as_fn_ret_failure () { return 1; }
+
+exitcode=0
+as_fn_success || { exitcode=1; echo as_fn_success failed.; }
+as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; }
+as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; }
+as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; }
+if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then :
+  
+else
+  exitcode=1; echo positional parameters were not saved.
+fi
+test x\$exitcode = x0 || exit 1
+test -x / || exit 1"
+  as_suggested="  as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO
+  as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO
+  eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" &&

_service:tar_scm:mpc-1.3.1.tar.gz/autom4te.cache/output.2 Added

@@ -0,0 +1,15913 @@
+@%:@! /bin/sh
+@%:@ Guess values for system-dependent variables and create Makefiles.
+@%:@ Generated by GNU Autoconf 2.69 for mpc 1.3.1.
+@%:@
+@%:@ Report bugs to <mpc-discuss@inria.fr>.
+@%:@ 
+@%:@ 
+@%:@ Copyright (C) 1992-1996, 1998-2012 Free Software Foundation, Inc.
+@%:@ 
+@%:@ 
+@%:@ This configure script is free software; the Free Software Foundation
+@%:@ gives unlimited permission to copy, distribute and modify it.
+## -------------------- ##
+## M4sh Initialization. ##
+## -------------------- ##
+
+# Be more Bourne compatible
+DUALCASE=1; export DUALCASE # for MKS sh
+if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then :
+  emulate sh
+  NULLCMD=:
+  # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which
+  # is contrary to our usage.  Disable this feature.
+  alias -g '${1+"$@"}'='"$@"'
+  setopt NO_GLOB_SUBST
+else
+  case `(set -o) 2>/dev/null` in @%:@(
+  *posix*) :
+    set -o posix ;; @%:@(
+  *) :
+     ;;
+esac
+fi
+
+
+as_nl='
+'
+export as_nl
+# Printing a long string crashes Solaris 7 /usr/bin/printf.
+as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
+as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo
+as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo
+# Prefer a ksh shell builtin over an external printf program on Solaris,
+# but without wasting forks for bash or zsh.
+if test -z "$BASH_VERSION$ZSH_VERSION" \
+    && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then
+  as_echo='print -r --'
+  as_echo_n='print -rn --'
+elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then
+  as_echo='printf %s\n'
+  as_echo_n='printf %s'
+else
+  if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then
+    as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"'
+    as_echo_n='/usr/ucb/echo -n'
+  else
+    as_echo_body='eval expr "X$1" : "X\$.*\$"'
+    as_echo_n_body='eval
+      arg=$1;
+      case $arg in @%:@(
+      *"$as_nl"*)
+	expr "X$arg" : "X\$.*\$$as_nl";
+	arg=`expr "X$arg" : ".*$as_nl\$.*\$"`;;
+      esac;
+      expr "X$arg" : "X\$.*\$" | tr -d "$as_nl"
+    '
+    export as_echo_n_body
+    as_echo_n='sh -c $as_echo_n_body as_echo'
+  fi
+  export as_echo_body
+  as_echo='sh -c $as_echo_body as_echo'
+fi
+
+# The user is always right.
+if test "${PATH_SEPARATOR+set}" != set; then
+  PATH_SEPARATOR=:
+  (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {
+    (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||
+      PATH_SEPARATOR=';'
+  }
+fi
+
+
+# IFS
+# We need space, tab and new line, in precisely that order.  Quoting is
+# there to prevent editors from complaining about space-tab.
+# (If _AS_PATH_WALK were called with IFS unset, it would disable word
+# splitting by setting IFS to empty value.)
+IFS=" ""	$as_nl"
+
+# Find who we are.  Look in the path if we contain no directory separator.
+as_myself=
+case $0 in @%:@((
+  *\\/* ) as_myself=$0 ;;
+  *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+  IFS=$as_save_IFS
+  test -z "$as_dir" && as_dir=.
+    test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break
+  done
+IFS=$as_save_IFS
+
+     ;;
+esac
+# We did not find ourselves, most probably we were run as `sh COMMAND'
+# in which case we are not to be found in the path.
+if test "x$as_myself" = x; then
+  as_myself=$0
+fi
+if test ! -f "$as_myself"; then
+  $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2
+  exit 1
+fi
+
+# Unset variables that we do not need and which cause bugs (e.g. in
+# pre-3.0 UWIN ksh).  But do not cause bugs in bash 2.01; the "|| exit 1"
+# suppresses any "Segmentation fault" message there.  '((' could
+# trigger a bug in pdksh 5.2.14.
+for as_var in BASH_ENV ENV MAIL MAILPATH
+do eval test x\${$as_var+set} = xset \
+  && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || :
+done
+PS1='$ '
+PS2='> '
+PS4='+ '
+
+# NLS nuisances.
+LC_ALL=C
+export LC_ALL
+LANGUAGE=C
+export LANGUAGE
+
+# CDPATH.
+(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
+
+# Use a proper internal environment variable to ensure we don't fall
+  # into an infinite loop, continuously re-executing ourselves.
+  if test x"${_as_can_reexec}" != xno && test "x$CONFIG_SHELL" != x; then
+    _as_can_reexec=no; export _as_can_reexec;
+    # We cannot yet assume a decent shell, so we have to provide a
+# neutralization value for shells without unset; and this also
+# works around shells that cannot unset nonexistent variables.
+# Preserve -v and -x to the replacement shell.
+BASH_ENV=/dev/null
+ENV=/dev/null
+(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV
+case $- in @%:@ ((((
+  *v*x* | *x*v* ) as_opts=-vx ;;
+  *v* ) as_opts=-v ;;
+  *x* ) as_opts=-x ;;
+  * ) as_opts= ;;
+esac
+exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"}
+# Admittedly, this is quite paranoid, since all the known shells bail
+# out after a failed `exec'.
+$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2
+as_fn_exit 255
+  fi
+  # We don't want this to propagate to other subprocesses.
+          { _as_can_reexec=; unset _as_can_reexec;}
+if test "x$CONFIG_SHELL" = x; then
+  as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then :
+  emulate sh
+  NULLCMD=:
+  # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which
+  # is contrary to our usage.  Disable this feature.
+  alias -g '\${1+\"\$@\"}'='\"\$@\"'
+  setopt NO_GLOB_SUBST
+else
+  case \`(set -o) 2>/dev/null\` in @%:@(
+  *posix*) :
+    set -o posix ;; @%:@(
+  *) :
+     ;;
+esac
+fi
+"
+  as_required="as_fn_return () { (exit \$1); }
+as_fn_success () { as_fn_return 0; }
+as_fn_failure () { as_fn_return 1; }
+as_fn_ret_success () { return 0; }
+as_fn_ret_failure () { return 1; }
+
+exitcode=0
+as_fn_success || { exitcode=1; echo as_fn_success failed.; }
+as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; }
+as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; }
+as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; }
+if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then :
+  
+else
+  exitcode=1; echo positional parameters were not saved.
+fi
+test x\$exitcode = x0 || exit 1
+test -x / || exit 1"
+  as_suggested="  as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO
+  as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO
+  eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" &&

_service:tar_scm:mpc-1.3.1.tar.gz/autom4te.cache/output.3 Added

@@ -0,0 +1,15913 @@
+@%:@! /bin/sh
+@%:@ Guess values for system-dependent variables and create Makefiles.
+@%:@ Generated by GNU Autoconf 2.69 for mpc 1.3.1.
+@%:@
+@%:@ Report bugs to <mpc-discuss@inria.fr>.
+@%:@ 
+@%:@ 
+@%:@ Copyright (C) 1992-1996, 1998-2012 Free Software Foundation, Inc.
+@%:@ 
+@%:@ 
+@%:@ This configure script is free software; the Free Software Foundation
+@%:@ gives unlimited permission to copy, distribute and modify it.
+## -------------------- ##
+## M4sh Initialization. ##
+## -------------------- ##
+
+# Be more Bourne compatible
+DUALCASE=1; export DUALCASE # for MKS sh
+if test -n "${ZSH_VERSION+set}" && (emulate sh) >/dev/null 2>&1; then :
+  emulate sh
+  NULLCMD=:
+  # Pre-4.2 versions of Zsh do word splitting on ${1+"$@"}, which
+  # is contrary to our usage.  Disable this feature.
+  alias -g '${1+"$@"}'='"$@"'
+  setopt NO_GLOB_SUBST
+else
+  case `(set -o) 2>/dev/null` in @%:@(
+  *posix*) :
+    set -o posix ;; @%:@(
+  *) :
+     ;;
+esac
+fi
+
+
+as_nl='
+'
+export as_nl
+# Printing a long string crashes Solaris 7 /usr/bin/printf.
+as_echo='\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\'
+as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo
+as_echo=$as_echo$as_echo$as_echo$as_echo$as_echo$as_echo
+# Prefer a ksh shell builtin over an external printf program on Solaris,
+# but without wasting forks for bash or zsh.
+if test -z "$BASH_VERSION$ZSH_VERSION" \
+    && (test "X`print -r -- $as_echo`" = "X$as_echo") 2>/dev/null; then
+  as_echo='print -r --'
+  as_echo_n='print -rn --'
+elif (test "X`printf %s $as_echo`" = "X$as_echo") 2>/dev/null; then
+  as_echo='printf %s\n'
+  as_echo_n='printf %s'
+else
+  if test "X`(/usr/ucb/echo -n -n $as_echo) 2>/dev/null`" = "X-n $as_echo"; then
+    as_echo_body='eval /usr/ucb/echo -n "$1$as_nl"'
+    as_echo_n='/usr/ucb/echo -n'
+  else
+    as_echo_body='eval expr "X$1" : "X\$.*\$"'
+    as_echo_n_body='eval
+      arg=$1;
+      case $arg in @%:@(
+      *"$as_nl"*)
+	expr "X$arg" : "X\$.*\$$as_nl";
+	arg=`expr "X$arg" : ".*$as_nl\$.*\$"`;;
+      esac;
+      expr "X$arg" : "X\$.*\$" | tr -d "$as_nl"
+    '
+    export as_echo_n_body
+    as_echo_n='sh -c $as_echo_n_body as_echo'
+  fi
+  export as_echo_body
+  as_echo='sh -c $as_echo_body as_echo'
+fi
+
+# The user is always right.
+if test "${PATH_SEPARATOR+set}" != set; then
+  PATH_SEPARATOR=:
+  (PATH='/bin;/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 && {
+    (PATH='/bin:/bin'; FPATH=$PATH; sh -c :) >/dev/null 2>&1 ||
+      PATH_SEPARATOR=';'
+  }
+fi
+
+
+# IFS
+# We need space, tab and new line, in precisely that order.  Quoting is
+# there to prevent editors from complaining about space-tab.
+# (If _AS_PATH_WALK were called with IFS unset, it would disable word
+# splitting by setting IFS to empty value.)
+IFS=" ""	$as_nl"
+
+# Find who we are.  Look in the path if we contain no directory separator.
+as_myself=
+case $0 in @%:@((
+  *\\/* ) as_myself=$0 ;;
+  *) as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+  IFS=$as_save_IFS
+  test -z "$as_dir" && as_dir=.
+    test -r "$as_dir/$0" && as_myself=$as_dir/$0 && break
+  done
+IFS=$as_save_IFS
+
+     ;;
+esac
+# We did not find ourselves, most probably we were run as `sh COMMAND'
+# in which case we are not to be found in the path.
+if test "x$as_myself" = x; then
+  as_myself=$0
+fi
+if test ! -f "$as_myself"; then
+  $as_echo "$as_myself: error: cannot find myself; rerun with an absolute file name" >&2
+  exit 1
+fi
+
+# Unset variables that we do not need and which cause bugs (e.g. in
+# pre-3.0 UWIN ksh).  But do not cause bugs in bash 2.01; the "|| exit 1"
+# suppresses any "Segmentation fault" message there.  '((' could
+# trigger a bug in pdksh 5.2.14.
+for as_var in BASH_ENV ENV MAIL MAILPATH
+do eval test x\${$as_var+set} = xset \
+  && ( (unset $as_var) || exit 1) >/dev/null 2>&1 && unset $as_var || :
+done
+PS1='$ '
+PS2='> '
+PS4='+ '
+
+# NLS nuisances.
+LC_ALL=C
+export LC_ALL
+LANGUAGE=C
+export LANGUAGE
+
+# CDPATH.
+(unset CDPATH) >/dev/null 2>&1 && unset CDPATH
+
+# Use a proper internal environment variable to ensure we don't fall
+  # into an infinite loop, continuously re-executing ourselves.
+  if test x"${_as_can_reexec}" != xno && test "x$CONFIG_SHELL" != x; then
+    _as_can_reexec=no; export _as_can_reexec;
+    # We cannot yet assume a decent shell, so we have to provide a
+# neutralization value for shells without unset; and this also
+# works around shells that cannot unset nonexistent variables.
+# Preserve -v and -x to the replacement shell.
+BASH_ENV=/dev/null
+ENV=/dev/null
+(unset BASH_ENV) >/dev/null 2>&1 && unset BASH_ENV ENV
+case $- in @%:@ ((((
+  *v*x* | *x*v* ) as_opts=-vx ;;
+  *v* ) as_opts=-v ;;
+  *x* ) as_opts=-x ;;
+  * ) as_opts= ;;
+esac
+exec $CONFIG_SHELL $as_opts "$as_myself" ${1+"$@"}
+# Admittedly, this is quite paranoid, since all the known shells bail
+# out after a failed `exec'.
+$as_echo "$0: could not re-execute with $CONFIG_SHELL" >&2
+as_fn_exit 255
+  fi
+  # We don't want this to propagate to other subprocesses.
+          { _as_can_reexec=; unset _as_can_reexec;}
+if test "x$CONFIG_SHELL" = x; then
+  as_bourne_compatible="if test -n \"\${ZSH_VERSION+set}\" && (emulate sh) >/dev/null 2>&1; then :
+  emulate sh
+  NULLCMD=:
+  # Pre-4.2 versions of Zsh do word splitting on \${1+\"\$@\"}, which
+  # is contrary to our usage.  Disable this feature.
+  alias -g '\${1+\"\$@\"}'='\"\$@\"'
+  setopt NO_GLOB_SUBST
+else
+  case \`(set -o) 2>/dev/null\` in @%:@(
+  *posix*) :
+    set -o posix ;; @%:@(
+  *) :
+     ;;
+esac
+fi
+"
+  as_required="as_fn_return () { (exit \$1); }
+as_fn_success () { as_fn_return 0; }
+as_fn_failure () { as_fn_return 1; }
+as_fn_ret_success () { return 0; }
+as_fn_ret_failure () { return 1; }
+
+exitcode=0
+as_fn_success || { exitcode=1; echo as_fn_success failed.; }
+as_fn_failure && { exitcode=1; echo as_fn_failure succeeded.; }
+as_fn_ret_success || { exitcode=1; echo as_fn_ret_success failed.; }
+as_fn_ret_failure && { exitcode=1; echo as_fn_ret_failure succeeded.; }
+if ( set x; as_fn_ret_success y && test x = \"\$1\" ); then :
+  
+else
+  exitcode=1; echo positional parameters were not saved.
+fi
+test x\$exitcode = x0 || exit 1
+test -x / || exit 1"
+  as_suggested="  as_lineno_1=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_1a=\$LINENO
+  as_lineno_2=";as_suggested=$as_suggested$LINENO;as_suggested=$as_suggested" as_lineno_2a=\$LINENO
+  eval 'test \"x\$as_lineno_1'\$as_run'\" != \"x\$as_lineno_2'\$as_run'\" &&

_service:tar_scm:mpc-1.3.1.tar.gz/autom4te.cache/requests Added

@@ -0,0 +1,771 @@
+# This file was generated.
+# It contains the lists of macros which have been traced.
+# It can be safely removed.
+
+@request = (
+             bless( 
+                      '0',
+                      1,
+                      
+                        '/usr/share/autoconf'
+                      ,
+                      
+                        '/usr/share/autoconf/autoconf/autoconf.m4f',
+                        '-',
+                        '/usr/share/aclocal-1.16/internal/ac-config-macro-dirs.m4',
+                        '/usr/share/aclocal/libtool.m4',
+                        '/usr/share/aclocal/ltargz.m4',
+                        '/usr/share/aclocal/ltdl.m4',
+                        '/usr/share/aclocal/ltoptions.m4',
+                        '/usr/share/aclocal/ltsugar.m4',
+                        '/usr/share/aclocal/ltversion.m4',
+                        '/usr/share/aclocal/lt~obsolete.m4',
+                        '/usr/share/aclocal-1.16/amversion.m4',
+                        '/usr/share/aclocal-1.16/ar-lib.m4',
+                        '/usr/share/aclocal-1.16/auxdir.m4',
+                        '/usr/share/aclocal-1.16/cond.m4',
+                        '/usr/share/aclocal-1.16/depend.m4',
+                        '/usr/share/aclocal-1.16/depout.m4',
+                        '/usr/share/aclocal-1.16/init.m4',
+                        '/usr/share/aclocal-1.16/install-sh.m4',
+                        '/usr/share/aclocal-1.16/lead-dot.m4',
+                        '/usr/share/aclocal-1.16/maintainer.m4',
+                        '/usr/share/aclocal-1.16/make.m4',
+                        '/usr/share/aclocal-1.16/missing.m4',
+                        '/usr/share/aclocal-1.16/options.m4',
+                        '/usr/share/aclocal-1.16/prog-cc-c-o.m4',
+                        '/usr/share/aclocal-1.16/runlog.m4',
+                        '/usr/share/aclocal-1.16/sanity.m4',
+                        '/usr/share/aclocal-1.16/silent.m4',
+                        '/usr/share/aclocal-1.16/strip.m4',
+                        '/usr/share/aclocal-1.16/substnot.m4',
+                        '/usr/share/aclocal-1.16/tar.m4',
+                        'configure.ac'
+                      ,
+                      {
+                        'AC_LIBTOOL_PICMODE' => 1,
+                        'AM_AUX_DIR_EXPAND' => 1,
+                        'AC_LIBLTDL_INSTALLABLE' => 1,
+                        'AC_LTDL_DLLIB' => 1,
+                        'AM_PROG_LD' => 1,
+                        'AC_LIBTOOL_DLOPEN_SELF' => 1,
+                        'LTVERSION_VERSION' => 1,
+                        'AM_SET_LEADING_DOT' => 1,
+                        'AC_CONFIG_MACRO_DIR' => 1,
+                        '_LT_AC_SHELL_INIT' => 1,
+                        '_LT_AC_SYS_LIBPATH_AIX' => 1,
+                        'AC_LTDL_SYMBOL_USCORE' => 1,
+                        'AC_DISABLE_SHARED' => 1,
+                        '_LT_AC_PROG_ECHO_BACKSLASH' => 1,
+                        'AC_LTDL_PREOPEN' => 1,
+                        '_LT_AC_LANG_GCJ_CONFIG' => 1,
+                        'LT_PATH_LD' => 1,
+                        '_LT_AC_TAGVAR' => 1,
+                        'LT_CONFIG_LTDL_DIR' => 1,
+                        '_LT_PROG_LTMAIN' => 1,
+                        'AC_LIBTOOL_RC' => 1,
+                        '_m4_warn' => 1,
+                        'AC_LIBTOOL_LANG_F77_CONFIG' => 1,
+                        'AM_RUN_LOG' => 1,
+                        '_LT_REQUIRED_DARWIN_CHECKS' => 1,
+                        '_AM_DEPENDENCIES' => 1,
+                        'AM_DISABLE_STATIC' => 1,
+                        '_LT_AC_LANG_CXX' => 1,
+                        'AC_PATH_MAGIC' => 1,
+                        '_LT_AC_LANG_F77_CONFIG' => 1,
+                        'AM_PROG_AR' => 1,
+                        'LT_LIB_DLLOAD' => 1,
+                        'AM_SET_CURRENT_AUTOMAKE_VERSION' => 1,
+                        'LT_FUNC_DLSYM_USCORE' => 1,
+                        'include' => 1,
+                        'AC_LIBTOOL_SYS_LIB_STRIP' => 1,
+                        'AC_LIBTOOL_PROG_LD_SHLIBS' => 1,
+                        'AC_LTDL_OBJDIR' => 1,
+                        '_LT_CC_BASENAME' => 1,
+                        '_AM_PROG_CC_C_O' => 1,
+                        'LT_INIT' => 1,
+                        '_LT_AC_TRY_DLOPEN_SELF' => 1,
+                        '_LT_AC_PROG_CXXCPP' => 1,
+                        '_AM_MANGLE_OPTION' => 1,
+                        'AC_LIBTOOL_PROG_CC_C_O' => 1,
+                        'AC_LIBTOOL_SYS_MAX_CMD_LEN' => 1,
+                        'AC_LTDL_SYSSEARCHPATH' => 1,
+                        'AC_LIBTOOL_SYS_GLOBAL_SYMBOL_PIPE' => 1,
+                        '_LT_COMPILER_OPTION' => 1,
+                        'AM_PROG_CC_C_O' => 1,
+                        '_LT_AC_CHECK_DLFCN' => 1,
+                        'AC_DEFUN' => 1,
+                        '_LT_AC_LANG_C_CONFIG' => 1,
+                        'LT_SYS_DLSEARCH_PATH' => 1,
+                        'AC_LIBTOOL_DLOPEN' => 1,
+                        'AC_PROG_LD' => 1,
+                        'LT_LIB_M' => 1,
+                        'AC_CONFIG_MACRO_DIR_TRACE' => 1,
+                        'LT_PROG_GO' => 1,
+                        '_AM_SET_OPTIONS' => 1,
+                        'AM_DISABLE_SHARED' => 1,
+                        'AC_DEFUN_ONCE' => 1,
+                        '_LT_LINKER_OPTION' => 1,
+                        'AM_CONDITIONAL' => 1,
+                        '_LT_PROG_CXX' => 1,
+                        'LT_AC_PROG_SED' => 1,
+                        '_LT_LIBOBJ' => 1,
+                        'LTDL_CONVENIENCE' => 1,
+                        'LT_SYS_DLOPEN_DEPLIBS' => 1,
+                        'LT_OUTPUT' => 1,
+                        'AC_DISABLE_FAST_INSTALL' => 1,
+                        'AC_LTDL_SHLIBPATH' => 1,
+                        'LT_PROG_GCJ' => 1,
+                        'AM_SANITY_CHECK' => 1,
+                        'AC_DISABLE_STATIC' => 1,
+                        'LT_FUNC_ARGZ' => 1,
+                        '_AM_PROG_TAR' => 1,
+                        '_LT_AC_SYS_COMPILER' => 1,
+                        '_LTDL_SETUP' => 1,
+                        'AC_LIBTOOL_GCJ' => 1,
+                        'AC_LIBTOOL_PROG_LD_HARDCODE_LIBPATH' => 1,
+                        'LT_SYS_SYMBOL_USCORE' => 1,
+                        'AC_PROG_LD_GNU' => 1,
+                        '_LT_COMPILER_BOILERPLATE' => 1,
+                        'LT_LANG' => 1,
+                        'LT_SYS_MODULE_EXT' => 1,
+                        'AM_OUTPUT_DEPENDENCY_COMMANDS' => 1,
+                        'm4_include' => 1,
+                        '_LT_PROG_ECHO_BACKSLASH' => 1,
+                        'AC_LIBTOOL_LANG_RC_CONFIG' => 1,
+                        'LT_CMD_MAX_LEN' => 1,
+                        'm4_pattern_allow' => 1,
+                        'AM_SILENT_RULES' => 1,
+                        'AC_LIBTOOL_SYS_DYNAMIC_LINKER' => 1,
+                        'AC_DEPLIBS_CHECK_METHOD' => 1,
+                        'AC_LIBLTDL_CONVENIENCE' => 1,
+                        'AC_LTDL_DLSYM_USCORE' => 1,
+                        'LT_SUPPORTED_TAG' => 1,
+                        '_AM_AUTOCONF_VERSION' => 1,
+                        'LT_AC_PROG_EGREP' => 1,
+                        'AC_LTDL_ENABLE_INSTALL' => 1,
+                        'AM_PROG_LIBTOOL' => 1,
+                        '_LT_AC_LANG_GCJ' => 1,
+                        'LTOBSOLETE_VERSION' => 1,
+                        'AC_PROG_LD_RELOAD_FLAG' => 1,
+                        '_LT_PROG_FC' => 1,
+                        'AC_CHECK_LIBM' => 1,
+                        '_LT_PREPARE_SED_QUOTE_VARS' => 1,
+                        'AM_MAINTAINER_MODE' => 1,
+                        'AM_INIT_AUTOMAKE' => 1,
+                        '_LT_AC_LOCK' => 1,
+                        'AC_LIBTOOL_OBJDIR' => 1,
+                        'AC_LIBTOOL_SETUP' => 1,
+                        'AC_ENABLE_SHARED' => 1,
+                        'LTDL_INIT' => 1,
+                        '_AC_PROG_LIBTOOL' => 1,
+                        'AC_LIBTOOL_PROG_COMPILER_NO_RTTI' => 1,
+                        '_LT_LINKER_BOILERPLATE' => 1,
+                        'AM_PROG_NM' => 1,
+                        'AM_SET_DEPDIR' => 1,
+                        'AU_DEFUN' => 1,
+                        'AC_LIB_LTDL' => 1,
+                        'LTSUGAR_VERSION' => 1,
+                        'LT_SYS_MODULE_PATH' => 1,
+                        'LT_PATH_NM' => 1,
+                        'AC_PATH_TOOL_PREFIX' => 1,
+                        '_LT_DLL_DEF_P' => 1,
+                        'LTDL_INSTALLABLE' => 1,
+                        'LTOPTIONS_VERSION' => 1,
+                        'AM_MISSING_HAS_RUN' => 1,
+                        '_LT_AC_LANG_CXX_CONFIG' => 1,
+                        'AC_PROG_EGREP' => 1,
+                        'AM_SUBST_NOTMAKE' => 1,
+                        'LT_AC_PROG_GCJ' => 1,
+                        '_LT_AC_LANG_F77' => 1,
+                        '_LT_AC_TAGCONFIG' => 1,
+                        'AM_ENABLE_STATIC' => 1,
+                        'AC_LIBTOOL_COMPILER_OPTION' => 1,
+                        '_AM_CONFIG_MACRO_DIRS' => 1,
+                        'AC_LIBTOOL_CONFIG' => 1,
+                        '_LT_AC_LANG_RC_CONFIG' => 1,
+                        '_LT_AC_FILE_LTDLL_C' => 1,
+                        'm4_pattern_forbid' => 1,
+                        'AC_LIBTOOL_SYS_OLD_ARCHIVE' => 1,
+                        'LT_AC_PROG_RC' => 1,
+                        'AM_PROG_INSTALL_STRIP' => 1,
+                        'AC_LIBTOOL_CXX' => 1,
+                        'AC_LTDL_SYS_DLOPEN_DEPLIBS' => 1,
+                        'AC_PROG_LIBTOOL' => 1,
+                        'AM_MAKE_INCLUDE' => 1,
+                        '_AM_SUBST_NOTMAKE' => 1,
+                        'AC_LIBTOOL_LINKER_OPTION' => 1,
+                        'AC_LIBTOOL_POSTDEP_PREDEP' => 1,
+                        '_AM_OUTPUT_DEPENDENCY_COMMANDS' => 1,

_service:tar_scm:mpc-1.3.1.tar.gz/autom4te.cache/traces.0 Added

@@ -0,0 +1,2775 @@
+m4trace:/usr/share/aclocal/libtool.m4:61: -1- AC_DEFUN(LT_INIT, AC_PREREQ(2.62)dnl We use AC_PATH_PROGS_FEATURE_CHECK
+AC_REQUIRE(AC_CONFIG_AUX_DIR_DEFAULT)dnl
+AC_BEFORE($0, LT_LANG)dnl
+AC_BEFORE($0, LT_OUTPUT)dnl
+AC_BEFORE($0, LTDL_INIT)dnl
+m4_require(_LT_CHECK_BUILDDIR)dnl
+
+dnl Autoconf doesn't catch unexpanded LT_ macros by default:
+m4_pattern_forbid(^_?LT_A-Z_+$)dnl
+m4_pattern_allow(^(_LT_EOF|LT_DLGLOBAL|LT_DLLAZY_OR_NOW|LT_MULTI_MODULE)$)dnl
+dnl aclocal doesn't pull ltoptions.m4, ltsugar.m4, or ltversion.m4
+dnl unless we require an AC_DEFUNed macro:
+AC_REQUIRE(LTOPTIONS_VERSION)dnl
+AC_REQUIRE(LTSUGAR_VERSION)dnl
+AC_REQUIRE(LTVERSION_VERSION)dnl
+AC_REQUIRE(LTOBSOLETE_VERSION)dnl
+m4_require(_LT_PROG_LTMAIN)dnl
+
+_LT_SHELL_INIT(SHELL=${CONFIG_SHELL-/bin/sh})
+
+dnl Parse OPTIONS
+_LT_SET_OPTIONS($0, $1)
+
+# This can be used to rebuild libtool when needed
+LIBTOOL_DEPS=$ltmain
+
+# Always use our own libtool.
+LIBTOOL='$(SHELL) $(top_builddir)/libtool'
+AC_SUBST(LIBTOOL)dnl
+
+_LT_SETUP
+
+# Only expand once:
+m4_define(LT_INIT)
+)
+m4trace:/usr/share/aclocal/libtool.m4:99: -1- AU_DEFUN(AC_PROG_LIBTOOL, m4_if($#, 0, LT_INIT, LT_INIT($@)))
+m4trace:/usr/share/aclocal/libtool.m4:99: -1- AC_DEFUN(AC_PROG_LIBTOOL, AC_DIAGNOSE(obsolete, The macro `AC_PROG_LIBTOOL' is obsolete.
+You should run autoupdate.)dnl
+m4_if($#, 0, LT_INIT, LT_INIT($@)))
+m4trace:/usr/share/aclocal/libtool.m4:100: -1- AU_DEFUN(AM_PROG_LIBTOOL, m4_if($#, 0, LT_INIT, LT_INIT($@)))
+m4trace:/usr/share/aclocal/libtool.m4:100: -1- AC_DEFUN(AM_PROG_LIBTOOL, AC_DIAGNOSE(obsolete, The macro `AM_PROG_LIBTOOL' is obsolete.
+You should run autoupdate.)dnl
+m4_if($#, 0, LT_INIT, LT_INIT($@)))
+m4trace:/usr/share/aclocal/libtool.m4:619: -1- AC_DEFUN(LT_OUTPUT, : ${CONFIG_LT=./config.lt}
+AC_MSG_NOTICE(creating $CONFIG_LT)
+_LT_GENERATED_FILE_INIT("$CONFIG_LT",
+# Run this file to recreate a libtool stub with the current configuration.)
+
+cat >>"$CONFIG_LT" <<\_LTEOF
+lt_cl_silent=false
+exec AS_MESSAGE_LOG_FD>>config.log
+{
+  echo
+  AS_BOX(Running $as_me.)
+} >&AS_MESSAGE_LOG_FD
+
+lt_cl_help="\
+'$as_me' creates a local libtool stub from the current configuration,
+for use in further configure time tests before the real libtool is
+generated.
+
+Usage: $0 OPTIONS
+
+  -h, --help      print this help, then exit
+  -V, --version   print version number, then exit
+  -q, --quiet     do not print progress messages
+  -d, --debug     don't remove temporary files
+
+Report bugs to <bug-libtool@gnu.org>."
+
+lt_cl_version="\
+m4_ifset(AC_PACKAGE_NAME, AC_PACKAGE_NAME )config.ltdnl
+m4_ifset(AC_PACKAGE_VERSION,  AC_PACKAGE_VERSION)
+configured by $0, generated by m4_PACKAGE_STRING.
+
+Copyright (C) 2011 Free Software Foundation, Inc.
+This config.lt script is free software; the Free Software Foundation
+gives unlimited permision to copy, distribute and modify it."
+
+while test 0 != $#
+do
+  case $1 in
+    --version | --v* | -V )
+      echo "$lt_cl_version"; exit 0 ;;
+    --help | --h* | -h )
+      echo "$lt_cl_help"; exit 0 ;;
+    --debug | --d* | -d )
+      debug=: ;;
+    --quiet | --q* | --silent | --s* | -q )
+      lt_cl_silent=: ;;
+
+    -*) AC_MSG_ERROR(unrecognized option: $1
+Try '$0 --help' for more information.) ;;
+
+    *) AC_MSG_ERROR(unrecognized argument: $1
+Try '$0 --help' for more information.) ;;
+  esac
+  shift
+done
+
+if $lt_cl_silent; then
+  exec AS_MESSAGE_FD>/dev/null
+fi
+_LTEOF
+
+cat >>"$CONFIG_LT" <<_LTEOF
+_LT_OUTPUT_LIBTOOL_COMMANDS_INIT
+_LTEOF
+
+cat >>"$CONFIG_LT" <<\_LTEOF
+AC_MSG_NOTICE(creating $ofile)
+_LT_OUTPUT_LIBTOOL_COMMANDS
+AS_EXIT(0)
+_LTEOF
+chmod +x "$CONFIG_LT"
+
+# configure is writing to config.log, but config.lt does its own redirection,
+# appending to config.log, which fails on DOS, as config.log is still kept
+# open by configure.  Here we exec the FD to /dev/null, effectively closing
+# config.log, so it can be properly (re)opened and appended to by config.lt.
+lt_cl_success=:
+test yes = "$silent" &&
+  lt_config_lt_args="$lt_config_lt_args --quiet"
+exec AS_MESSAGE_LOG_FD>/dev/null
+$SHELL "$CONFIG_LT" $lt_config_lt_args || lt_cl_success=false
+exec AS_MESSAGE_LOG_FD>>config.log
+$lt_cl_success || AS_EXIT(1)
+)
+m4trace:/usr/share/aclocal/libtool.m4:812: -1- AC_DEFUN(LT_SUPPORTED_TAG, )
+m4trace:/usr/share/aclocal/libtool.m4:823: -1- AC_DEFUN(LT_LANG, AC_BEFORE($0, LT_OUTPUT)dnl
+m4_case($1,
+  C,			_LT_LANG(C),
+  C++,		_LT_LANG(CXX),
+  Go,			_LT_LANG(GO),
+  Java,		_LT_LANG(GCJ),
+  Fortran 77,		_LT_LANG(F77),
+  Fortran,		_LT_LANG(FC),
+  Windows Resource,	_LT_LANG(RC),
+  m4_ifdef(_LT_LANG_$1_CONFIG,
+    _LT_LANG($1),
+    m4_fatal($0: unsupported language: "$1")))dnl
+)
+m4trace:/usr/share/aclocal/libtool.m4:915: -1- AU_DEFUN(AC_LIBTOOL_CXX, LT_LANG(C++))
+m4trace:/usr/share/aclocal/libtool.m4:915: -1- AC_DEFUN(AC_LIBTOOL_CXX, AC_DIAGNOSE(obsolete, The macro `AC_LIBTOOL_CXX' is obsolete.
+You should run autoupdate.)dnl
+LT_LANG(C++))
+m4trace:/usr/share/aclocal/libtool.m4:916: -1- AU_DEFUN(AC_LIBTOOL_F77, LT_LANG(Fortran 77))
+m4trace:/usr/share/aclocal/libtool.m4:916: -1- AC_DEFUN(AC_LIBTOOL_F77, AC_DIAGNOSE(obsolete, The macro `AC_LIBTOOL_F77' is obsolete.
+You should run autoupdate.)dnl
+LT_LANG(Fortran 77))
+m4trace:/usr/share/aclocal/libtool.m4:917: -1- AU_DEFUN(AC_LIBTOOL_FC, LT_LANG(Fortran))
+m4trace:/usr/share/aclocal/libtool.m4:917: -1- AC_DEFUN(AC_LIBTOOL_FC, AC_DIAGNOSE(obsolete, The macro `AC_LIBTOOL_FC' is obsolete.
+You should run autoupdate.)dnl
+LT_LANG(Fortran))
+m4trace:/usr/share/aclocal/libtool.m4:918: -1- AU_DEFUN(AC_LIBTOOL_GCJ, LT_LANG(Java))
+m4trace:/usr/share/aclocal/libtool.m4:918: -1- AC_DEFUN(AC_LIBTOOL_GCJ, AC_DIAGNOSE(obsolete, The macro `AC_LIBTOOL_GCJ' is obsolete.
+You should run autoupdate.)dnl
+LT_LANG(Java))
+m4trace:/usr/share/aclocal/libtool.m4:919: -1- AU_DEFUN(AC_LIBTOOL_RC, LT_LANG(Windows Resource))
+m4trace:/usr/share/aclocal/libtool.m4:919: -1- AC_DEFUN(AC_LIBTOOL_RC, AC_DIAGNOSE(obsolete, The macro `AC_LIBTOOL_RC' is obsolete.
+You should run autoupdate.)dnl
+LT_LANG(Windows Resource))
+m4trace:/usr/share/aclocal/libtool.m4:1247: -1- AC_DEFUN(_LT_WITH_SYSROOT, AC_MSG_CHECKING(for sysroot)
+AC_ARG_WITH(sysroot,
+AS_HELP_STRING(--with-sysroot@<:@=DIR@:>@,
+  Search for dependent libraries within DIR (or the compiler's sysroot
+   if not specified).),
+, with_sysroot=no)
+
+dnl lt_sysroot will always be passed unquoted.  We quote it here
+dnl in case the user passed a directory name.
+lt_sysroot=
+case $with_sysroot in #(
+ yes)
+   if test yes = "$GCC"; then
+     lt_sysroot=`$CC --print-sysroot 2>/dev/null`
+   fi
+   ;; #(
+ /*)
+   lt_sysroot=`echo "$with_sysroot" | sed -e "$sed_quote_subst"`
+   ;; #(
+ no|'')
+   ;; #(
+ *)
+   AC_MSG_RESULT($with_sysroot)
+   AC_MSG_ERROR(The sysroot must be an absolute path.)
+   ;;
+esac
+
+ AC_MSG_RESULT(${lt_sysroot:-no})
+_LT_DECL(, lt_sysroot, 0, The root where to search for dnl
+dependent libraries, and where our libraries should be installed.))
+m4trace:/usr/share/aclocal/libtool.m4:1578: -1- AC_DEFUN(_LT_COMPILER_OPTION, m4_require(_LT_FILEUTILS_DEFAULTS)dnl
+m4_require(_LT_DECL_SED)dnl
+AC_CACHE_CHECK($1, $2,
+  $2=no
+   m4_if($4, , ac_outfile=conftest.$ac_objext, ac_outfile=$4)
+   echo "$lt_simple_compile_test_code" > conftest.$ac_ext
+   lt_compiler_flag="$3"  ## exclude from sc_useless_quotes_in_assignment

_service:tar_scm:mpc-1.3.1.tar.gz/autom4te.cache/traces.1 Added

@@ -0,0 +1,2992 @@
+m4trace:/usr/share/aclocal/libtool.m4:61: -1- AC_DEFUN(LT_INIT, AC_PREREQ(2.62)dnl We use AC_PATH_PROGS_FEATURE_CHECK
+AC_REQUIRE(AC_CONFIG_AUX_DIR_DEFAULT)dnl
+AC_BEFORE($0, LT_LANG)dnl
+AC_BEFORE($0, LT_OUTPUT)dnl
+AC_BEFORE($0, LTDL_INIT)dnl
+m4_require(_LT_CHECK_BUILDDIR)dnl
+
+dnl Autoconf doesn't catch unexpanded LT_ macros by default:
+m4_pattern_forbid(^_?LT_A-Z_+$)dnl
+m4_pattern_allow(^(_LT_EOF|LT_DLGLOBAL|LT_DLLAZY_OR_NOW|LT_MULTI_MODULE)$)dnl
+dnl aclocal doesn't pull ltoptions.m4, ltsugar.m4, or ltversion.m4
+dnl unless we require an AC_DEFUNed macro:
+AC_REQUIRE(LTOPTIONS_VERSION)dnl
+AC_REQUIRE(LTSUGAR_VERSION)dnl
+AC_REQUIRE(LTVERSION_VERSION)dnl
+AC_REQUIRE(LTOBSOLETE_VERSION)dnl
+m4_require(_LT_PROG_LTMAIN)dnl
+
+_LT_SHELL_INIT(SHELL=${CONFIG_SHELL-/bin/sh})
+
+dnl Parse OPTIONS
+_LT_SET_OPTIONS($0, $1)
+
+# This can be used to rebuild libtool when needed
+LIBTOOL_DEPS=$ltmain
+
+# Always use our own libtool.
+LIBTOOL='$(SHELL) $(top_builddir)/libtool'
+AC_SUBST(LIBTOOL)dnl
+
+_LT_SETUP
+
+# Only expand once:
+m4_define(LT_INIT)
+)
+m4trace:/usr/share/aclocal/libtool.m4:99: -1- AU_DEFUN(AC_PROG_LIBTOOL, m4_if($#, 0, LT_INIT, LT_INIT($@)))
+m4trace:/usr/share/aclocal/libtool.m4:99: -1- AC_DEFUN(AC_PROG_LIBTOOL, AC_DIAGNOSE(obsolete, The macro `AC_PROG_LIBTOOL' is obsolete.
+You should run autoupdate.)dnl
+m4_if($#, 0, LT_INIT, LT_INIT($@)))
+m4trace:/usr/share/aclocal/libtool.m4:100: -1- AU_DEFUN(AM_PROG_LIBTOOL, m4_if($#, 0, LT_INIT, LT_INIT($@)))
+m4trace:/usr/share/aclocal/libtool.m4:100: -1- AC_DEFUN(AM_PROG_LIBTOOL, AC_DIAGNOSE(obsolete, The macro `AM_PROG_LIBTOOL' is obsolete.
+You should run autoupdate.)dnl
+m4_if($#, 0, LT_INIT, LT_INIT($@)))
+m4trace:/usr/share/aclocal/libtool.m4:619: -1- AC_DEFUN(LT_OUTPUT, : ${CONFIG_LT=./config.lt}
+AC_MSG_NOTICE(creating $CONFIG_LT)
+_LT_GENERATED_FILE_INIT("$CONFIG_LT",
+# Run this file to recreate a libtool stub with the current configuration.)
+
+cat >>"$CONFIG_LT" <<\_LTEOF
+lt_cl_silent=false
+exec AS_MESSAGE_LOG_FD>>config.log
+{
+  echo
+  AS_BOX(Running $as_me.)
+} >&AS_MESSAGE_LOG_FD
+
+lt_cl_help="\
+'$as_me' creates a local libtool stub from the current configuration,
+for use in further configure time tests before the real libtool is
+generated.
+
+Usage: $0 OPTIONS
+
+  -h, --help      print this help, then exit
+  -V, --version   print version number, then exit
+  -q, --quiet     do not print progress messages
+  -d, --debug     don't remove temporary files
+
+Report bugs to <bug-libtool@gnu.org>."
+
+lt_cl_version="\
+m4_ifset(AC_PACKAGE_NAME, AC_PACKAGE_NAME )config.ltdnl
+m4_ifset(AC_PACKAGE_VERSION,  AC_PACKAGE_VERSION)
+configured by $0, generated by m4_PACKAGE_STRING.
+
+Copyright (C) 2011 Free Software Foundation, Inc.
+This config.lt script is free software; the Free Software Foundation
+gives unlimited permision to copy, distribute and modify it."
+
+while test 0 != $#
+do
+  case $1 in
+    --version | --v* | -V )
+      echo "$lt_cl_version"; exit 0 ;;
+    --help | --h* | -h )
+      echo "$lt_cl_help"; exit 0 ;;
+    --debug | --d* | -d )
+      debug=: ;;
+    --quiet | --q* | --silent | --s* | -q )
+      lt_cl_silent=: ;;
+
+    -*) AC_MSG_ERROR(unrecognized option: $1
+Try '$0 --help' for more information.) ;;
+
+    *) AC_MSG_ERROR(unrecognized argument: $1
+Try '$0 --help' for more information.) ;;
+  esac
+  shift
+done
+
+if $lt_cl_silent; then
+  exec AS_MESSAGE_FD>/dev/null
+fi
+_LTEOF
+
+cat >>"$CONFIG_LT" <<_LTEOF
+_LT_OUTPUT_LIBTOOL_COMMANDS_INIT
+_LTEOF
+
+cat >>"$CONFIG_LT" <<\_LTEOF
+AC_MSG_NOTICE(creating $ofile)
+_LT_OUTPUT_LIBTOOL_COMMANDS
+AS_EXIT(0)
+_LTEOF
+chmod +x "$CONFIG_LT"
+
+# configure is writing to config.log, but config.lt does its own redirection,
+# appending to config.log, which fails on DOS, as config.log is still kept
+# open by configure.  Here we exec the FD to /dev/null, effectively closing
+# config.log, so it can be properly (re)opened and appended to by config.lt.
+lt_cl_success=:
+test yes = "$silent" &&
+  lt_config_lt_args="$lt_config_lt_args --quiet"
+exec AS_MESSAGE_LOG_FD>/dev/null
+$SHELL "$CONFIG_LT" $lt_config_lt_args || lt_cl_success=false
+exec AS_MESSAGE_LOG_FD>>config.log
+$lt_cl_success || AS_EXIT(1)
+)
+m4trace:/usr/share/aclocal/libtool.m4:812: -1- AC_DEFUN(LT_SUPPORTED_TAG, )
+m4trace:/usr/share/aclocal/libtool.m4:823: -1- AC_DEFUN(LT_LANG, AC_BEFORE($0, LT_OUTPUT)dnl
+m4_case($1,
+  C,			_LT_LANG(C),
+  C++,		_LT_LANG(CXX),
+  Go,			_LT_LANG(GO),
+  Java,		_LT_LANG(GCJ),
+  Fortran 77,		_LT_LANG(F77),
+  Fortran,		_LT_LANG(FC),
+  Windows Resource,	_LT_LANG(RC),
+  m4_ifdef(_LT_LANG_$1_CONFIG,
+    _LT_LANG($1),
+    m4_fatal($0: unsupported language: "$1")))dnl
+)
+m4trace:/usr/share/aclocal/libtool.m4:915: -1- AU_DEFUN(AC_LIBTOOL_CXX, LT_LANG(C++))
+m4trace:/usr/share/aclocal/libtool.m4:915: -1- AC_DEFUN(AC_LIBTOOL_CXX, AC_DIAGNOSE(obsolete, The macro `AC_LIBTOOL_CXX' is obsolete.
+You should run autoupdate.)dnl
+LT_LANG(C++))
+m4trace:/usr/share/aclocal/libtool.m4:916: -1- AU_DEFUN(AC_LIBTOOL_F77, LT_LANG(Fortran 77))
+m4trace:/usr/share/aclocal/libtool.m4:916: -1- AC_DEFUN(AC_LIBTOOL_F77, AC_DIAGNOSE(obsolete, The macro `AC_LIBTOOL_F77' is obsolete.
+You should run autoupdate.)dnl
+LT_LANG(Fortran 77))
+m4trace:/usr/share/aclocal/libtool.m4:917: -1- AU_DEFUN(AC_LIBTOOL_FC, LT_LANG(Fortran))
+m4trace:/usr/share/aclocal/libtool.m4:917: -1- AC_DEFUN(AC_LIBTOOL_FC, AC_DIAGNOSE(obsolete, The macro `AC_LIBTOOL_FC' is obsolete.
+You should run autoupdate.)dnl
+LT_LANG(Fortran))
+m4trace:/usr/share/aclocal/libtool.m4:918: -1- AU_DEFUN(AC_LIBTOOL_GCJ, LT_LANG(Java))
+m4trace:/usr/share/aclocal/libtool.m4:918: -1- AC_DEFUN(AC_LIBTOOL_GCJ, AC_DIAGNOSE(obsolete, The macro `AC_LIBTOOL_GCJ' is obsolete.
+You should run autoupdate.)dnl
+LT_LANG(Java))
+m4trace:/usr/share/aclocal/libtool.m4:919: -1- AU_DEFUN(AC_LIBTOOL_RC, LT_LANG(Windows Resource))
+m4trace:/usr/share/aclocal/libtool.m4:919: -1- AC_DEFUN(AC_LIBTOOL_RC, AC_DIAGNOSE(obsolete, The macro `AC_LIBTOOL_RC' is obsolete.
+You should run autoupdate.)dnl
+LT_LANG(Windows Resource))
+m4trace:/usr/share/aclocal/libtool.m4:1247: -1- AC_DEFUN(_LT_WITH_SYSROOT, AC_MSG_CHECKING(for sysroot)
+AC_ARG_WITH(sysroot,
+AS_HELP_STRING(--with-sysroot@<:@=DIR@:>@,
+  Search for dependent libraries within DIR (or the compiler's sysroot
+   if not specified).),
+, with_sysroot=no)
+
+dnl lt_sysroot will always be passed unquoted.  We quote it here
+dnl in case the user passed a directory name.
+lt_sysroot=
+case $with_sysroot in #(
+ yes)
+   if test yes = "$GCC"; then
+     lt_sysroot=`$CC --print-sysroot 2>/dev/null`
+   fi
+   ;; #(
+ /*)
+   lt_sysroot=`echo "$with_sysroot" | sed -e "$sed_quote_subst"`
+   ;; #(
+ no|'')
+   ;; #(
+ *)
+   AC_MSG_RESULT($with_sysroot)
+   AC_MSG_ERROR(The sysroot must be an absolute path.)
+   ;;
+esac
+
+ AC_MSG_RESULT(${lt_sysroot:-no})
+_LT_DECL(, lt_sysroot, 0, The root where to search for dnl
+dependent libraries, and where our libraries should be installed.))
+m4trace:/usr/share/aclocal/libtool.m4:1578: -1- AC_DEFUN(_LT_COMPILER_OPTION, m4_require(_LT_FILEUTILS_DEFAULTS)dnl
+m4_require(_LT_DECL_SED)dnl
+AC_CACHE_CHECK($1, $2,
+  $2=no
+   m4_if($4, , ac_outfile=conftest.$ac_objext, ac_outfile=$4)
+   echo "$lt_simple_compile_test_code" > conftest.$ac_ext
+   lt_compiler_flag="$3"  ## exclude from sc_useless_quotes_in_assignment

_service:tar_scm:mpc-1.3.1.tar.gz/autom4te.cache/traces.2 Added

@@ -0,0 +1,650 @@
+m4trace:aclocal.m4:775: -1- AC_SUBST(am__quote)
+m4trace:aclocal.m4:775: -1- AC_SUBST_TRACE(am__quote)
+m4trace:aclocal.m4:775: -1- m4_pattern_allow(^am__quote$)
+m4trace:aclocal.m4:1232: -1- m4_include(m4/ax_gcc_option.m4)
+m4trace:aclocal.m4:1233: -1- m4_include(m4/ax_gcc_version.m4)
+m4trace:aclocal.m4:1234: -1- m4_include(m4/libtool.m4)
+m4trace:aclocal.m4:1235: -1- m4_include(m4/ltoptions.m4)
+m4trace:aclocal.m4:1236: -1- m4_include(m4/ltsugar.m4)
+m4trace:aclocal.m4:1237: -1- m4_include(m4/ltversion.m4)
+m4trace:aclocal.m4:1238: -1- m4_include(m4/lt~obsolete.m4)
+m4trace:aclocal.m4:1239: -1- m4_include(m4/mpc.m4)
+m4trace:aclocal.m4:1240: -1- m4_include(m4/valgrind-tests.m4)
+m4trace:configure.ac:23: -1- AC_INIT(mpc, 1.3.1, mpc-discuss@inria.fr)
+m4trace:configure.ac:23: -1- m4_pattern_forbid(^_?ACHUM_)
+m4trace:configure.ac:23: -1- m4_pattern_forbid(_AC_)
+m4trace:configure.ac:23: -1- m4_pattern_forbid(^LIBOBJS$, do not use LIBOBJS directly, use AC_LIBOBJ (see section `AC_LIBOBJ vs LIBOBJS')
+m4trace:configure.ac:23: -1- m4_pattern_allow(^AS_FLAGS$)
+m4trace:configure.ac:23: -1- m4_pattern_forbid(^_?m4_)
+m4trace:configure.ac:23: -1- m4_pattern_forbid(^dnl$)
+m4trace:configure.ac:23: -1- m4_pattern_forbid(^_?AS_)
+m4trace:configure.ac:23: -1- AC_SUBST(SHELL)
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(SHELL)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^SHELL$)
+m4trace:configure.ac:23: -1- AC_SUBST(PATH_SEPARATOR)
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(PATH_SEPARATOR)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^PATH_SEPARATOR$)
+m4trace:configure.ac:23: -1- AC_SUBST(PACKAGE_NAME, m4_ifdef(AC_PACKAGE_NAME,      'AC_PACKAGE_NAME'))
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(PACKAGE_NAME)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^PACKAGE_NAME$)
+m4trace:configure.ac:23: -1- AC_SUBST(PACKAGE_TARNAME, m4_ifdef(AC_PACKAGE_TARNAME,   'AC_PACKAGE_TARNAME'))
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(PACKAGE_TARNAME)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^PACKAGE_TARNAME$)
+m4trace:configure.ac:23: -1- AC_SUBST(PACKAGE_VERSION, m4_ifdef(AC_PACKAGE_VERSION,   'AC_PACKAGE_VERSION'))
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(PACKAGE_VERSION)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^PACKAGE_VERSION$)
+m4trace:configure.ac:23: -1- AC_SUBST(PACKAGE_STRING, m4_ifdef(AC_PACKAGE_STRING,    'AC_PACKAGE_STRING'))
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(PACKAGE_STRING)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^PACKAGE_STRING$)
+m4trace:configure.ac:23: -1- AC_SUBST(PACKAGE_BUGREPORT, m4_ifdef(AC_PACKAGE_BUGREPORT, 'AC_PACKAGE_BUGREPORT'))
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(PACKAGE_BUGREPORT)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^PACKAGE_BUGREPORT$)
+m4trace:configure.ac:23: -1- AC_SUBST(PACKAGE_URL, m4_ifdef(AC_PACKAGE_URL,       'AC_PACKAGE_URL'))
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(PACKAGE_URL)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^PACKAGE_URL$)
+m4trace:configure.ac:23: -1- AC_SUBST(exec_prefix, NONE)
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(exec_prefix)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^exec_prefix$)
+m4trace:configure.ac:23: -1- AC_SUBST(prefix, NONE)
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(prefix)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^prefix$)
+m4trace:configure.ac:23: -1- AC_SUBST(program_transform_name, s,x,x,)
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(program_transform_name)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^program_transform_name$)
+m4trace:configure.ac:23: -1- AC_SUBST(bindir, '${exec_prefix}/bin')
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(bindir)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^bindir$)
+m4trace:configure.ac:23: -1- AC_SUBST(sbindir, '${exec_prefix}/sbin')
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(sbindir)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^sbindir$)
+m4trace:configure.ac:23: -1- AC_SUBST(libexecdir, '${exec_prefix}/libexec')
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(libexecdir)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^libexecdir$)
+m4trace:configure.ac:23: -1- AC_SUBST(datarootdir, '${prefix}/share')
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(datarootdir)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^datarootdir$)
+m4trace:configure.ac:23: -1- AC_SUBST(datadir, '${datarootdir}')
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(datadir)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^datadir$)
+m4trace:configure.ac:23: -1- AC_SUBST(sysconfdir, '${prefix}/etc')
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(sysconfdir)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^sysconfdir$)
+m4trace:configure.ac:23: -1- AC_SUBST(sharedstatedir, '${prefix}/com')
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(sharedstatedir)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^sharedstatedir$)
+m4trace:configure.ac:23: -1- AC_SUBST(localstatedir, '${prefix}/var')
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(localstatedir)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^localstatedir$)
+m4trace:configure.ac:23: -1- AC_SUBST(includedir, '${prefix}/include')
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(includedir)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^includedir$)
+m4trace:configure.ac:23: -1- AC_SUBST(oldincludedir, '/usr/include')
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(oldincludedir)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^oldincludedir$)
+m4trace:configure.ac:23: -1- AC_SUBST(docdir, m4_ifset(AC_PACKAGE_TARNAME,
+				     '${datarootdir}/doc/${PACKAGE_TARNAME}',
+				     '${datarootdir}/doc/${PACKAGE}'))
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(docdir)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^docdir$)
+m4trace:configure.ac:23: -1- AC_SUBST(infodir, '${datarootdir}/info')
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(infodir)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^infodir$)
+m4trace:configure.ac:23: -1- AC_SUBST(htmldir, '${docdir}')
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(htmldir)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^htmldir$)
+m4trace:configure.ac:23: -1- AC_SUBST(dvidir, '${docdir}')
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(dvidir)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^dvidir$)
+m4trace:configure.ac:23: -1- AC_SUBST(pdfdir, '${docdir}')
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(pdfdir)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^pdfdir$)
+m4trace:configure.ac:23: -1- AC_SUBST(psdir, '${docdir}')
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(psdir)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^psdir$)
+m4trace:configure.ac:23: -1- AC_SUBST(libdir, '${exec_prefix}/lib')
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(libdir)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^libdir$)
+m4trace:configure.ac:23: -1- AC_SUBST(localedir, '${datarootdir}/locale')
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(localedir)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^localedir$)
+m4trace:configure.ac:23: -1- AC_SUBST(mandir, '${datarootdir}/man')
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(mandir)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^mandir$)
+m4trace:configure.ac:23: -1- AC_DEFINE_TRACE_LITERAL(PACKAGE_NAME)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^PACKAGE_NAME$)
+m4trace:configure.ac:23: -1- AH_OUTPUT(PACKAGE_NAME, /* Define to the full name of this package. */
+@%:@undef PACKAGE_NAME)
+m4trace:configure.ac:23: -1- AC_DEFINE_TRACE_LITERAL(PACKAGE_TARNAME)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^PACKAGE_TARNAME$)
+m4trace:configure.ac:23: -1- AH_OUTPUT(PACKAGE_TARNAME, /* Define to the one symbol short name of this package. */
+@%:@undef PACKAGE_TARNAME)
+m4trace:configure.ac:23: -1- AC_DEFINE_TRACE_LITERAL(PACKAGE_VERSION)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^PACKAGE_VERSION$)
+m4trace:configure.ac:23: -1- AH_OUTPUT(PACKAGE_VERSION, /* Define to the version of this package. */
+@%:@undef PACKAGE_VERSION)
+m4trace:configure.ac:23: -1- AC_DEFINE_TRACE_LITERAL(PACKAGE_STRING)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^PACKAGE_STRING$)
+m4trace:configure.ac:23: -1- AH_OUTPUT(PACKAGE_STRING, /* Define to the full name and version of this package. */
+@%:@undef PACKAGE_STRING)
+m4trace:configure.ac:23: -1- AC_DEFINE_TRACE_LITERAL(PACKAGE_BUGREPORT)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^PACKAGE_BUGREPORT$)
+m4trace:configure.ac:23: -1- AH_OUTPUT(PACKAGE_BUGREPORT, /* Define to the address where bug reports for this package should be sent. */
+@%:@undef PACKAGE_BUGREPORT)
+m4trace:configure.ac:23: -1- AC_DEFINE_TRACE_LITERAL(PACKAGE_URL)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^PACKAGE_URL$)
+m4trace:configure.ac:23: -1- AH_OUTPUT(PACKAGE_URL, /* Define to the home page for this package. */
+@%:@undef PACKAGE_URL)
+m4trace:configure.ac:23: -1- AC_SUBST(DEFS)
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(DEFS)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^DEFS$)
+m4trace:configure.ac:23: -1- AC_SUBST(ECHO_C)
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(ECHO_C)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^ECHO_C$)
+m4trace:configure.ac:23: -1- AC_SUBST(ECHO_N)
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(ECHO_N)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^ECHO_N$)
+m4trace:configure.ac:23: -1- AC_SUBST(ECHO_T)
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(ECHO_T)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^ECHO_T$)
+m4trace:configure.ac:23: -1- AC_SUBST(LIBS)
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(LIBS)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^LIBS$)
+m4trace:configure.ac:23: -1- AC_SUBST(build_alias)
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(build_alias)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^build_alias$)
+m4trace:configure.ac:23: -1- AC_SUBST(host_alias)
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(host_alias)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^host_alias$)
+m4trace:configure.ac:23: -1- AC_SUBST(target_alias)
+m4trace:configure.ac:23: -1- AC_SUBST_TRACE(target_alias)
+m4trace:configure.ac:23: -1- m4_pattern_allow(^target_alias$)
+m4trace:configure.ac:25: -1- AC_CONFIG_AUX_DIR(build-aux)
+m4trace:configure.ac:26: -1- AC_CONFIG_HEADERS(config.h)
+m4trace:configure.ac:28: -1- AM_INIT_AUTOMAKE
+m4trace:configure.ac:28: -1- m4_pattern_allow(^AM_A-Z+FLAGS$)
+m4trace:configure.ac:28: -1- AM_AUTOMAKE_VERSION(1.16.1)
+m4trace:configure.ac:28: -1- AC_REQUIRE_AUX_FILE(install-sh)
+m4trace:configure.ac:28: -1- AC_SUBST(INSTALL_PROGRAM)
+m4trace:configure.ac:28: -1- AC_SUBST_TRACE(INSTALL_PROGRAM)
+m4trace:configure.ac:28: -1- m4_pattern_allow(^INSTALL_PROGRAM$)
+m4trace:configure.ac:28: -1- AC_SUBST(INSTALL_SCRIPT)
+m4trace:configure.ac:28: -1- AC_SUBST_TRACE(INSTALL_SCRIPT)
+m4trace:configure.ac:28: -1- m4_pattern_allow(^INSTALL_SCRIPT$)
+m4trace:configure.ac:28: -1- AC_SUBST(INSTALL_DATA)
+m4trace:configure.ac:28: -1- AC_SUBST_TRACE(INSTALL_DATA)
+m4trace:configure.ac:28: -1- m4_pattern_allow(^INSTALL_DATA$)
+m4trace:configure.ac:28: -1- AC_SUBST(am__isrc, ' -I$(srcdir)')
+m4trace:configure.ac:28: -1- AC_SUBST_TRACE(am__isrc)
+m4trace:configure.ac:28: -1- m4_pattern_allow(^am__isrc$)
+m4trace:configure.ac:28: -1- _AM_SUBST_NOTMAKE(am__isrc)
+m4trace:configure.ac:28: -1- AC_SUBST(CYGPATH_W)
+m4trace:configure.ac:28: -1- AC_SUBST_TRACE(CYGPATH_W)
+m4trace:configure.ac:28: -1- m4_pattern_allow(^CYGPATH_W$)
+m4trace:configure.ac:28: -1- AC_SUBST(PACKAGE, 'AC_PACKAGE_TARNAME')
+m4trace:configure.ac:28: -1- AC_SUBST_TRACE(PACKAGE)
+m4trace:configure.ac:28: -1- m4_pattern_allow(^PACKAGE$)
+m4trace:configure.ac:28: -1- AC_SUBST(VERSION, 'AC_PACKAGE_VERSION')
+m4trace:configure.ac:28: -1- AC_SUBST_TRACE(VERSION)
+m4trace:configure.ac:28: -1- m4_pattern_allow(^VERSION$)
+m4trace:configure.ac:28: -1- AC_DEFINE_TRACE_LITERAL(PACKAGE)
+m4trace:configure.ac:28: -1- m4_pattern_allow(^PACKAGE$)
+m4trace:configure.ac:28: -1- AH_OUTPUT(PACKAGE, /* Name of package */
+@%:@undef PACKAGE)
+m4trace:configure.ac:28: -1- AC_DEFINE_TRACE_LITERAL(VERSION)
+m4trace:configure.ac:28: -1- m4_pattern_allow(^VERSION$)
+m4trace:configure.ac:28: -1- AH_OUTPUT(VERSION, /* Version number of package */
+@%:@undef VERSION)
+m4trace:configure.ac:28: -1- AC_REQUIRE_AUX_FILE(missing)
+m4trace:configure.ac:28: -1- AC_SUBST(ACLOCAL)
+m4trace:configure.ac:28: -1- AC_SUBST_TRACE(ACLOCAL)

_service:tar_scm:mpc-1.3.1.tar.gz/autom4te.cache/traces.3 Added

@@ -0,0 +1,2992 @@
+m4trace:/usr/share/aclocal/ltargz.m4:12: -1- AC_DEFUN(LT_FUNC_ARGZ, 
+AC_CHECK_HEADERS(argz.h, , , AC_INCLUDES_DEFAULT)
+
+AC_CHECK_TYPES(error_t,
+  ,
+  AC_DEFINE(error_t, int,
+   Define to a type to use for 'error_t' if it is not otherwise available.)
+   AC_DEFINE(__error_t_defined, 1, Define so that glibc/gnulib argp.h
+    does not typedef error_t.),
+  #if defined(HAVE_ARGZ_H)
+#  include <argz.h>
+#endif)
+
+LT_ARGZ_H=
+AC_CHECK_FUNCS(argz_add argz_append argz_count argz_create_sep argz_insert \
+	argz_next argz_stringify, , LT_ARGZ_H=lt__argz.h; AC_LIBOBJ(lt__argz))
+
+dnl if have system argz functions, allow forced use of
+dnl libltdl-supplied implementation (and default to do so
+dnl on "known bad" systems). Could use a runtime check, but
+dnl (a) detecting malloc issues is notoriously unreliable
+dnl (b) only known system that declares argz functions,
+dnl     provides them, yet they are broken, is cygwin
+dnl     releases prior to 16-Mar-2007 (1.5.24 and earlier)
+dnl So, it's more straightforward simply to special case
+dnl this for known bad systems.
+AS_IF(test -z "$LT_ARGZ_H",
+    AC_CACHE_CHECK(
+        if argz actually works,
+        lt_cv_sys_argz_works,
+        case $host_os in #(
+	 *cygwin*)
+	   lt_cv_sys_argz_works=no
+	   if test no != "$cross_compiling"; then
+	     lt_cv_sys_argz_works="guessing no"
+	   else
+	     lt_sed_extract_leading_digits='s/^$0-9\.*$.*/\1/'
+	     save_IFS=$IFS
+	     IFS=-.
+	     set x `uname -r | sed -e "$lt_sed_extract_leading_digits"`
+	     IFS=$save_IFS
+	     lt_os_major=${2-0}
+	     lt_os_minor=${3-0}
+	     lt_os_micro=${4-0}
+	     if test 1 -lt "$lt_os_major" \
+		|| { test 1 -eq "$lt_os_major" \
+		  && { test 5 -lt "$lt_os_minor" \
+		    || { test 5 -eq "$lt_os_minor" \
+		      && test 24 -lt "$lt_os_micro"; }; }; }; then
+	       lt_cv_sys_argz_works=yes
+	     fi
+	   fi
+	   ;; #(
+	 *) lt_cv_sys_argz_works=yes ;;
+	 esac)
+     AS_IF(test yes = "$lt_cv_sys_argz_works",
+        AC_DEFINE(HAVE_WORKING_ARGZ, 1,
+                   This value is set to 1 to indicate that the system argz facility works),
+        LT_ARGZ_H=lt__argz.h
+        AC_LIBOBJ(lt__argz)))
+
+AC_SUBST(LT_ARGZ_H)
+)
+m4trace:/usr/share/aclocal/ltdl.m4:16: -1- AC_DEFUN(LT_CONFIG_LTDL_DIR, AC_BEFORE($0, LTDL_INIT)
+_$0($*)
+)
+m4trace:/usr/share/aclocal/ltdl.m4:68: -1- AC_DEFUN(LTDL_CONVENIENCE, AC_BEFORE($0, LTDL_INIT)dnl
+dnl Although the argument is deprecated and no longer documented,
+dnl LTDL_CONVENIENCE used to take a DIRECTORY orgument, if we have one
+dnl here make sure it is the same as any other declaration of libltdl's
+dnl location!  This also ensures lt_ltdl_dir is set when configure.ac is
+dnl not yet using an explicit LT_CONFIG_LTDL_DIR.
+m4_ifval($1, _LT_CONFIG_LTDL_DIR($1))dnl
+_$0()
+)
+m4trace:/usr/share/aclocal/ltdl.m4:81: -1- AU_DEFUN(AC_LIBLTDL_CONVENIENCE, _LT_CONFIG_LTDL_DIR(m4_default($1, libltdl))
+_LTDL_CONVENIENCE)
+m4trace:/usr/share/aclocal/ltdl.m4:81: -1- AC_DEFUN(AC_LIBLTDL_CONVENIENCE, AC_DIAGNOSE(obsolete, The macro `AC_LIBLTDL_CONVENIENCE' is obsolete.
+You should run autoupdate.)dnl
+_LT_CONFIG_LTDL_DIR(m4_default($1, libltdl))
+_LTDL_CONVENIENCE)
+m4trace:/usr/share/aclocal/ltdl.m4:124: -1- AC_DEFUN(LTDL_INSTALLABLE, AC_BEFORE($0, LTDL_INIT)dnl
+dnl Although the argument is deprecated and no longer documented,
+dnl LTDL_INSTALLABLE used to take a DIRECTORY orgument, if we have one
+dnl here make sure it is the same as any other declaration of libltdl's
+dnl location!  This also ensures lt_ltdl_dir is set when configure.ac is
+dnl not yet using an explicit LT_CONFIG_LTDL_DIR.
+m4_ifval($1, _LT_CONFIG_LTDL_DIR($1))dnl
+_$0()
+)
+m4trace:/usr/share/aclocal/ltdl.m4:137: -1- AU_DEFUN(AC_LIBLTDL_INSTALLABLE, _LT_CONFIG_LTDL_DIR(m4_default($1, libltdl))
+_LTDL_INSTALLABLE)
+m4trace:/usr/share/aclocal/ltdl.m4:137: -1- AC_DEFUN(AC_LIBLTDL_INSTALLABLE, AC_DIAGNOSE(obsolete, The macro `AC_LIBLTDL_INSTALLABLE' is obsolete.
+You should run autoupdate.)dnl
+_LT_CONFIG_LTDL_DIR(m4_default($1, libltdl))
+_LTDL_INSTALLABLE)
+m4trace:/usr/share/aclocal/ltdl.m4:213: -1- AC_DEFUN(_LT_LIBOBJ, 
+  m4_pattern_allow(^_LT_LIBOBJS$)
+  _LT_LIBOBJS="$_LT_LIBOBJS $1.$ac_objext"
+)
+m4trace:/usr/share/aclocal/ltdl.m4:226: -1- AC_DEFUN(LTDL_INIT, dnl Parse OPTIONS
+_LT_SET_OPTIONS($0, $1)
+
+dnl We need to keep our own list of libobjs separate from our parent project,
+dnl and the easiest way to do that is redefine the AC_LIBOBJs macro while
+dnl we look for our own LIBOBJs.
+m4_pushdef(AC_LIBOBJ, m4_defn(_LT_LIBOBJ))
+m4_pushdef(AC_LIBSOURCES)
+
+dnl If not otherwise defined, default to the 1.5.x compatible subproject mode:
+m4_if(_LTDL_MODE, ,
+        m4_define(_LTDL_MODE, m4_default($2, subproject))
+        m4_if(-1, m4_bregexp(_LTDL_MODE, $subproject\|\(non$?recursive\)),
+                m4_fatal(unknown libltdl mode: _LTDL_MODE)))
+
+AC_ARG_WITH(included_ltdl,
+    AS_HELP_STRING(--with-included-ltdl,
+                    use the GNU ltdl sources included here))
+
+if test yes != "$with_included_ltdl"; then
+  # We are not being forced to use the included libltdl sources, so
+  # decide whether there is a useful installed version we can use.
+  AC_CHECK_HEADER(ltdl.h,
+      AC_CHECK_DECL(lt_dlinterface_register,
+	   AC_CHECK_LIB(ltdl, lt_dladvise_preload,
+	       with_included_ltdl=no,
+	       with_included_ltdl=yes),
+	   with_included_ltdl=yes,
+	   AC_INCLUDES_DEFAULT
+	    #include <ltdl.h>),
+      with_included_ltdl=yes,
+      AC_INCLUDES_DEFAULT
+  )
+fi
+
+dnl If neither LT_CONFIG_LTDL_DIR, LTDL_CONVENIENCE nor LTDL_INSTALLABLE
+dnl was called yet, then for old times' sake, we assume libltdl is in an
+dnl eponymous directory:
+AC_PROVIDE_IFELSE(LT_CONFIG_LTDL_DIR, , _LT_CONFIG_LTDL_DIR(libltdl))
+
+AC_ARG_WITH(ltdl_include,
+    AS_HELP_STRING(--with-ltdl-include=DIR,
+                    use the ltdl headers installed in DIR))
+
+if test -n "$with_ltdl_include"; then
+  if test -f "$with_ltdl_include/ltdl.h"; then :
+  else
+    AC_MSG_ERROR(invalid ltdl include directory: '$with_ltdl_include')
+  fi
+else
+  with_ltdl_include=no
+fi
+
+AC_ARG_WITH(ltdl_lib,
+    AS_HELP_STRING(--with-ltdl-lib=DIR,
+                    use the libltdl.la installed in DIR))
+
+if test -n "$with_ltdl_lib"; then
+  if test -f "$with_ltdl_lib/libltdl.la"; then :
+  else
+    AC_MSG_ERROR(invalid ltdl library directory: '$with_ltdl_lib')
+  fi
+else
+  with_ltdl_lib=no
+fi
+
+case ,$with_included_ltdl,$with_ltdl_include,$with_ltdl_lib, in
+  ,yes,no,no,)
+	m4_case(m4_default(_LTDL_TYPE, convenience),
+	    convenience, _LTDL_CONVENIENCE,
+	    installable, _LTDL_INSTALLABLE,
+	  m4_fatal(unknown libltdl build type: _LTDL_TYPE))
+	;;
+  ,no,no,no,)
+	# If the included ltdl is not to be used, then use the
+	# preinstalled libltdl we found.
+	AC_DEFINE(HAVE_LTDL, 1,
+	  Define this if a modern libltdl is already installed)
+	LIBLTDL=-lltdl
+	LTDLDEPS=
+	LTDLINCL=
+	;;
+  ,no*,no,*)
+	AC_MSG_ERROR('--with-ltdl-include' and '--with-ltdl-lib' options must be used together)
+	;;
+  *)	with_included_ltdl=no
+	LIBLTDL="-L$with_ltdl_lib -lltdl"
+	LTDLDEPS=
+	LTDLINCL=-I$with_ltdl_include
+	;;
+esac
+INCLTDL=$LTDLINCL
+
+# Report our decision...
+AC_MSG_CHECKING(where to find libltdl headers)
+AC_MSG_RESULT($LTDLINCL)
+AC_MSG_CHECKING(where to find libltdl library)
+AC_MSG_RESULT($LIBLTDL)
+

_service:tar_scm:mpc-1.2.0.tar.gz/build-aux/ar-lib -> _service:tar_scm:mpc-1.3.1.tar.gz/build-aux/ar-lib Changed

@@ -1,10 +1,10 @@
-#!/bin/sh
+#! /bin/sh
 # Wrapper for Microsoft lib.exe
 
 me=ar-lib
-scriptversion=2019-07-04.01; # UTC
+scriptversion=2012-03-01.08; # UTC
 
-# Copyright (C) 2010-2020 Free Software Foundation, Inc.
+# Copyright (C) 2010-2018 Free Software Foundation, Inc.
 # Written by Peter Rosin <peda@lysator.liu.se>.
 #
 # This program is free software; you can redistribute it and/or modify
@@ -53,7 +53,7 @@
 	  MINGW*)
 	    file_conv=mingw
 	    ;;
-	  CYGWIN* | MSYS*)
+	  CYGWIN*)
 	    file_conv=cygwin
 	    ;;
 	  *)
@@ -65,7 +65,7 @@
 	mingw)
 	  file=`cmd //C echo "$file " | sed -e 's/"$.*$ " *$/\1/'`
 	  ;;
-	cygwin | msys)
+	cygwin)
 	  file=`cygpath -m "$file" || echo "$file"`
 	  ;;
 	wine)
@@ -224,11 +224,10 @@
       esac
     done
   else
-    $AR -NOLOGO -LIST "$archive" | tr -d '\r' | sed -e 's/\\/\\\\/g' \
-      | while read member
-        do
-          $AR -NOLOGO -EXTRACT:"$member" "$archive" || exit $?
-        done
+    $AR -NOLOGO -LIST "$archive" | sed -e 's/\\/\\\\/g' | while read member
+    do
+      $AR -NOLOGO -EXTRACT:"$member" "$archive" || exit $?
+    done
   fi
 
 elif test -n "$quick$replace"; then

_service:tar_scm:mpc-1.2.0.tar.gz/build-aux/compile -> _service:tar_scm:mpc-1.3.1.tar.gz/build-aux/compile Changed

_service:tar_scm:mpc-1.2.0.tar.gz/build-aux/config.guess -> _service:tar_scm:mpc-1.3.1.tar.gz/build-aux/config.guess Changed

@@ -1,8 +1,8 @@
-#!/bin/sh
+#! /bin/sh
 # Attempt to guess a canonical system name.
-#   Copyright 1992-2020 Free Software Foundation, Inc.
+#   Copyright 1992-2018 Free Software Foundation, Inc.
 
-timestamp='2020-01-01'
+timestamp='2018-03-08'
 
 # This file is free software; you can redistribute it and/or modify it
 # under the terms of the GNU General Public License as published by
@@ -50,7 +50,7 @@
 GNU config.guess ($timestamp)
 
 Originally written by Per Bothner.
-Copyright 1992-2020 Free Software Foundation, Inc.
+Copyright 1992-2018 Free Software Foundation, Inc.
 
 This is free software; see the source for copying conditions.  There is NO
 warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE."
@@ -84,6 +84,8 @@
   exit 1
 fi
 
+trap 'exit 1' 1 2 15
+
 # CC_FOR_BUILD -- compiler used by this script. Note that the use of a
 # compiler to aid in system detection is discouraged as it requires
 # temporary files to be created and, as you can see below, it is a
@@ -94,40 +96,34 @@
 
 # Portable tmp directory creation inspired by the Autoconf team.
 
-tmp=
-# shellcheck disable=SC2172
-trap 'test -z "$tmp" || rm -fr "$tmp"' 0 1 2 13 15
-
-set_cc_for_build() {
-    # prevent multiple calls if $tmp is already set
-    test "$tmp" && return 0
-    : "${TMPDIR=/tmp}"
-    # shellcheck disable=SC2039
-    { tmp=`(umask 077 && mktemp -d "$TMPDIR/cgXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" ; } ||
-	{ test -n "$RANDOM" && tmp=$TMPDIR/cg$$-$RANDOM && (umask 077 && mkdir "$tmp" 2>/dev/null) ; } ||
-	{ tmp=$TMPDIR/cg-$$ && (umask 077 && mkdir "$tmp" 2>/dev/null) && echo "Warning: creating insecure temp directory" >&2 ; } ||
-	{ echo "$me: cannot create a temporary directory in $TMPDIR" >&2 ; exit 1 ; }
-    dummy=$tmp/dummy
-    case ${CC_FOR_BUILD-},${HOST_CC-},${CC-} in
-	,,)    echo "int x;" > "$dummy.c"
-	       for driver in cc gcc c89 c99 ; do
-		   if ($driver -c -o "$dummy.o" "$dummy.c") >/dev/null 2>&1 ; then
-		       CC_FOR_BUILD="$driver"
-		       break
-		   fi
-	       done
-	       if test x"$CC_FOR_BUILD" = x ; then
-		   CC_FOR_BUILD=no_compiler_found
-	       fi
-	       ;;
-	,,*)   CC_FOR_BUILD=$CC ;;
-	,*,*)  CC_FOR_BUILD=$HOST_CC ;;
-    esac
-}
+set_cc_for_build='
+trap "exitcode=\$?; (rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null) && exit \$exitcode" 0 ;
+trap "rm -f \$tmpfiles 2>/dev/null; rmdir \$tmp 2>/dev/null; exit 1" 1 2 13 15 ;
+: ${TMPDIR=/tmp} ;
+ { tmp=`(umask 077 && mktemp -d "$TMPDIR/cgXXXXXX") 2>/dev/null` && test -n "$tmp" && test -d "$tmp" ; } ||
+ { test -n "$RANDOM" && tmp=$TMPDIR/cg$$-$RANDOM && (umask 077 && mkdir $tmp) ; } ||
+ { tmp=$TMPDIR/cg-$$ && (umask 077 && mkdir $tmp) && echo "Warning: creating insecure temp directory" >&2 ; } ||
+ { echo "$me: cannot create a temporary directory in $TMPDIR" >&2 ; exit 1 ; } ;
+dummy=$tmp/dummy ;
+tmpfiles="$dummy.c $dummy.o $dummy.rel $dummy" ;
+case $CC_FOR_BUILD,$HOST_CC,$CC in
+ ,,)    echo "int x;" > "$dummy.c" ;
+	for c in cc gcc c89 c99 ; do
+	  if ($c -c -o "$dummy.o" "$dummy.c") >/dev/null 2>&1 ; then
+	     CC_FOR_BUILD="$c"; break ;
+	  fi ;
+	done ;
+	if test x"$CC_FOR_BUILD" = x ; then
+	  CC_FOR_BUILD=no_compiler_found ;
+	fi
+	;;
+ ,,*)   CC_FOR_BUILD=$CC ;;
+ ,*,*)  CC_FOR_BUILD=$HOST_CC ;;
+esac ; set_cc_for_build= ;'
 
 # This is needed to find uname on a Pyramid OSx when run in the BSD universe.
 # (ghazi@noc.rutgers.edu 1994-08-24)
-if test -f /.attbin/uname ; then
+if (test -f /.attbin/uname) >/dev/null 2>&1 ; then
 	PATH=$PATH:/.attbin ; export PATH
 fi
 
@@ -142,7 +138,7 @@
 	# We could probably try harder.
 	LIBC=gnu
 
-	set_cc_for_build
+	eval "$set_cc_for_build"
 	cat <<-EOF > "$dummy.c"
 	#include <features.h>
 	#if defined(__UCLIBC__)
@@ -203,7 +199,7 @@
 		os=netbsdelf
 		;;
 	    arm*|i386|m68k|ns32k|sh3*|sparc|vax)
-		set_cc_for_build
+		eval "$set_cc_for_build"
 		if echo __ELF__ | $CC_FOR_BUILD -E - 2>/dev/null \
 			| grep -q __ELF__
 		then
@@ -241,7 +237,7 @@
 	# Since CPU_TYPE-MANUFACTURER-KERNEL-OPERATING_SYSTEM:
 	# contains redundant information, the shorter form:
 	# CPU_TYPE-MANUFACTURER-OPERATING_SYSTEM is used.
-	echo "$machine-${os}${release}${abi-}"
+	echo "$machine-${os}${release}${abi}"
 	exit ;;
     *:Bitrig:*:*)
 	UNAME_MACHINE_ARCH=`arch | sed 's/Bitrig.//'`
@@ -264,9 +260,6 @@
     *:SolidBSD:*:*)
 	echo "$UNAME_MACHINE"-unknown-solidbsd"$UNAME_RELEASE"
 	exit ;;
-    *:OS108:*:*)
-	echo "$UNAME_MACHINE"-unknown-os108_"$UNAME_RELEASE"
-	exit ;;
     macppc:MirBSD:*:*)
 	echo powerpc-unknown-mirbsd"$UNAME_RELEASE"
 	exit ;;
@@ -276,15 +269,12 @@
     *:Sortix:*:*)
 	echo "$UNAME_MACHINE"-unknown-sortix
 	exit ;;
-    *:Twizzler:*:*)
-	echo "$UNAME_MACHINE"-unknown-twizzler
-	exit ;;
     *:Redox:*:*)
 	echo "$UNAME_MACHINE"-unknown-redox
 	exit ;;
     mips:OSF1:*.*)
-	echo mips-dec-osf1
-	exit ;;
+        echo mips-dec-osf1
+        exit ;;
     alpha:OSF1:*:*)
 	case $UNAME_RELEASE in
 	*4.0)
@@ -399,7 +389,7 @@
 	echo i386-pc-auroraux"$UNAME_RELEASE"
 	exit ;;
     i86pc:SunOS:5.*:* | i86xen:SunOS:5.*:*)
-	set_cc_for_build
+	eval "$set_cc_for_build"
 	SUN_ARCH=i386
 	# If there is a compiler, see if it is configured for 64-bit objects.
 	# Note that the Sun cc does not turn __LP64__ into 1 like gcc does.
@@ -492,7 +482,7 @@
 	echo clipper-intergraph-clix"$UNAME_RELEASE"
 	exit ;;
     mips:*:*:UMIPS | mips:*:*:RISCos)
-	set_cc_for_build
+	eval "$set_cc_for_build"
 	sed 's/^	//' << EOF > "$dummy.c"
 #ifdef __cplusplus
 #include <stdio.h>  /* for printf() prototype */
@@ -589,7 +579,7 @@
 	exit ;;
     *:AIX:2:3)
 	if grep bos325 /usr/include/stdio.h >/dev/null 2>&1; then
-		set_cc_for_build
+		eval "$set_cc_for_build"
 		sed 's/^		//' << EOF > "$dummy.c"
 		#include <sys/systemcfg.h>
 
@@ -670,7 +660,7 @@
 		    esac
 		fi
 		if  "$HP_ARCH" = "" ; then
-		    set_cc_for_build
+		    eval "$set_cc_for_build"
 		    sed 's/^		//' << EOF > "$dummy.c"
 
 		#define _HPUX_SOURCE
@@ -710,7 +700,7 @@
 	esac
 	if  "$HP_ARCH" = hppa2.0w 
 	then
-	    set_cc_for_build
+	    eval "$set_cc_for_build"
 
 	    # hppa2.0w-hp-hpux* has a 64-bit kernel and a compiler generating
 	    # 32-bit code.  hppa64-hp-hpux* has the same kernel and a compiler
@@ -736,7 +726,7 @@
 	echo ia64-hp-hpux"$HPUX_REV"
 	exit ;;
     3050*:HI-UX:*:*)

_service:tar_scm:mpc-1.2.0.tar.gz/build-aux/config.sub -> _service:tar_scm:mpc-1.3.1.tar.gz/build-aux/config.sub Changed

@@ -1,8 +1,8 @@
-#!/bin/sh
+#! /bin/sh
 # Configuration validation subroutine script.
-#   Copyright 1992-2020 Free Software Foundation, Inc.
+#   Copyright 1992-2018 Free Software Foundation, Inc.
 
-timestamp='2020-01-01'
+timestamp='2018-05-05'
 
 # This file is free software; you can redistribute it and/or modify it
 # under the terms of the GNU General Public License as published by
@@ -67,7 +67,7 @@
 version="\
 GNU config.sub ($timestamp)
 
-Copyright 1992-2020 Free Software Foundation, Inc.
+Copyright 1992-2018 Free Software Foundation, Inc.
 
 This is free software; see the source for copying conditions.  There is NO
 warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE."
@@ -89,7 +89,7 @@
     - )	# Use stdin as input.
        break ;;
     -* )
-       echo "$me: invalid option $1$help" >&2
+       echo "$me: invalid option $1$help"
        exit 1 ;;
 
     *local*)
@@ -110,21 +110,16 @@
     exit 1;;
 esac
 
-# Split fields of configuration type
-# shellcheck disable=SC2162
-IFS="-" read field1 field2 field3 field4 <<EOF
+# Spilt fields of configuration type
+IFS="-" read -r field1 field2 field3 field4 <<EOF
 $1
 EOF
 
 # Separate into logical components for further validation
 case $1 in
-	*-*-*-*-*)
-		echo Invalid configuration \`"$1"\': more than four components >&2
-		exit 1
-		;;
 	*-*-*-*)
 		basic_machine=$field1-$field2
-		os=$field3-$field4
+		os=-$field3-$field4
 		;;
 	*-*-*)
 		# Ambiguous whether COMPANY is present, or skipped and KERNEL-OS is two
@@ -137,1137 +132,1227 @@
 			| netbsd*-eabi* | kopensolaris*-gnu* | cloudabi*-eabi* \
 			| storm-chaos* | os2-emx* | rtmk-nova*)
 				basic_machine=$field1
-				os=$maybe_os
+				os=-$maybe_os
 				;;
 			android-linux)
 				basic_machine=$field1-unknown
-				os=linux-android
+				os=-linux-android
 				;;
 			*)
 				basic_machine=$field1-$field2
-				os=$field3
+				os=-$field3
 				;;
 		esac
 		;;
 	*-*)
-		# A lone config we happen to match not fitting any pattern
-		case $field1-$field2 in
-			decstation-3100)
-				basic_machine=mips-dec
-				os=
-				;;
-			*-*)
-				# Second component is usually, but not always the OS
-				case $field2 in
-					# Prevent following clause from handling this valid os
-					sun*os*)
-						basic_machine=$field1
-						os=$field2
-						;;
-					# Manufacturers
-					dec* | mips* | sequent* | encore* | pc533* | sgi* | sony* \
-					| att* | 7300* | 3300* | delta* | motorola* | sun234* \
-					| unicom* | ibm* | next | hp | isi* | apollo | altos* \
-					| convergent* | ncr* | news | 32* | 3600* | 3100* \
-					| hitachi* | c123* | convex* | sun | crds | omron* | dg \
-					| ultra | tti* | harris | dolphin | highlevel | gould \
-					| cbm | ns | masscomp | apple | axis | knuth | cray \
-					| microblaze* | sim | cisco \
-					| oki | wec | wrs | winbond)
-						basic_machine=$field1-$field2
-						os=
-						;;
-					*)
-						basic_machine=$field1
-						os=$field2
-						;;
-				esac
-			;;
-		esac
+		basic_machine=$field1
+		os=-$field2
 		;;
 	*)
-		# Convert single-component short-hands not valid as part of
-		# multi-component configurations.
-		case $field1 in
-			386bsd)
-				basic_machine=i386-pc
-				os=bsd
-				;;
-			a29khif)
-				basic_machine=a29k-amd
-				os=udi
-				;;
-			adobe68k)
-				basic_machine=m68010-adobe
-				os=scout
-				;;
-			alliant)
-				basic_machine=fx80-alliant
-				os=
-				;;
-			altos | altos3068)
-				basic_machine=m68k-altos
-				os=
-				;;
-			am29k)
-				basic_machine=a29k-none
-				os=bsd
-				;;
-			amdahl)
-				basic_machine=580-amdahl
-				os=sysv
-				;;
-			amiga)
-				basic_machine=m68k-unknown
-				os=
-				;;
-			amigaos | amigados)
-				basic_machine=m68k-unknown
-				os=amigaos
-				;;
-			amigaunix | amix)
-				basic_machine=m68k-unknown
-				os=sysv4
-				;;
-			apollo68)
-				basic_machine=m68k-apollo
-				os=sysv
-				;;
-			apollo68bsd)
-				basic_machine=m68k-apollo
-				os=bsd
-				;;
-			aros)
-				basic_machine=i386-pc
-				os=aros
-				;;
-			aux)
-				basic_machine=m68k-apple
-				os=aux
-				;;
-			balance)
-				basic_machine=ns32k-sequent
-				os=dynix
-				;;
-			blackfin)
-				basic_machine=bfin-unknown
-				os=linux
-				;;
-			cegcc)
-				basic_machine=arm-unknown
-				os=cegcc
-				;;
-			convex-c1)
-				basic_machine=c1-convex
-				os=bsd
-				;;
-			convex-c2)
-				basic_machine=c2-convex
-				os=bsd
-				;;
-			convex-c32)
-				basic_machine=c32-convex
-				os=bsd
-				;;
-			convex-c34)
-				basic_machine=c34-convex
-				os=bsd
-				;;

_service:tar_scm:mpc-1.2.0.tar.gz/build-aux/depcomp -> _service:tar_scm:mpc-1.3.1.tar.gz/build-aux/depcomp Changed

_service:tar_scm:mpc-1.2.0.tar.gz/build-aux/install-sh -> _service:tar_scm:mpc-1.3.1.tar.gz/build-aux/install-sh Changed

_service:tar_scm:mpc-1.2.0.tar.gz/build-aux/ltmain.sh -> _service:tar_scm:mpc-1.3.1.tar.gz/build-aux/ltmain.sh Changed

@@ -1,4 +1,4 @@
-#!/bin/sh
+#! /bin/sh
 ## DO NOT EDIT - This file generated from ./build-aux/ltmain.in
 ##               by inline-source v2014-01-03.01
 
@@ -1367,7 +1367,7 @@
 # time-stamp-pattern: "10/scriptversion=%:y-%02m-%02d.%02H; # UTC"
 # time-stamp-time-zone: "UTC"
 # End:
-#!/bin/sh
+#! /bin/sh
 
 # Set a version string for this script.
 scriptversion=2014-01-07.03; # UTC
@@ -2124,7 +2124,7 @@
 # a configuration failure hint, and exit.
 func_fatal_configuration ()
 {
-    func__fatal_error ${1+"$@"} \
+    func_fatal_error ${1+"$@"} \
       "See the $PACKAGE documentation for more information." \
       "Fatal configuration error."
 }
@@ -7272,10 +7272,12 @@
       # -tp=*                Portland pgcc target processor selection
       # --sysroot=*          for sysroot support
       # -O*, -g*, -flto*, -fwhopr*, -fuse-linker-plugin GCC link-time optimization
+      # -specs=*             GCC specs files
       # -stdlib=*            select c++ std lib with clang
       -64|-mips0-9|-r0-90-9*|-xarch=*|-xtarget=*|+DA*|+DD*|-q*|-m*| \
       -t45*|-txscale*|-p|-pg|--coverage|-fprofile-*|-F*|@*|-tp=*|--sysroot=*| \
-      -O*|-g*|-flto*|-fwhopr*|-fuse-linker-plugin|-fstack-protector*|-stdlib=*)
+      -O*|-g*|-flto*|-fwhopr*|-fuse-linker-plugin|-fstack-protector*|-stdlib=*| \
+      -specs=*)
         func_quote_for_eval "$arg"
 	arg=$func_quote_for_eval_result
         func_append compile_command " $arg"

_service:tar_scm:mpc-1.2.0.tar.gz/build-aux/mdate-sh -> _service:tar_scm:mpc-1.3.1.tar.gz/build-aux/mdate-sh Changed

_service:tar_scm:mpc-1.2.0.tar.gz/build-aux/missing -> _service:tar_scm:mpc-1.3.1.tar.gz/build-aux/missing Changed

_service:tar_scm:mpc-1.2.0.tar.gz/build-aux/test-driver -> _service:tar_scm:mpc-1.3.1.tar.gz/build-aux/test-driver Changed

_service:tar_scm:mpc-1.2.0.tar.gz/build-aux/texinfo.tex -> _service:tar_scm:mpc-1.3.1.tar.gz/build-aux/texinfo.tex Changed

@@ -1,11 +1,14 @@
 % texinfo.tex -- TeX macros to handle Texinfo files.
-%
+% 
 % Load plain if necessary, i.e., if running under initex.
 \expandafter\ifx\csname fmtname\endcsname\relax\input plain\fi
 %
-\def\texinfoversion{2020-02-11.09}
+\def\texinfoversion{2018-02-12.17}
 %
-% Copyright 1985, 1986, 1988, 1990-2019 Free Software Foundation, Inc.
+% Copyright 1985, 1986, 1988, 1990, 1991, 1992, 1993, 1994, 1995,
+% 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
+% 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2014, 2015, 2016, 2017, 2018
+% Free Software Foundation, Inc.
 %
 % This texinfo.tex file is free software: you can redistribute it and/or
 % modify it under the terms of the GNU General Public License as
@@ -179,7 +182,7 @@
 % Hyphenation fixes.
 \hyphenation{
   Flor-i-da Ghost-script Ghost-view Mac-OS Post-Script
-  ap-pen-dix bit-map bit-maps
+  auto-ma-ti-cal-ly ap-pen-dix bit-map bit-maps
   data-base data-bases eshell fall-ing half-way long-est man-u-script
   man-u-scripts mini-buf-fer mini-buf-fers over-view par-a-digm
   par-a-digms rath-er rec-tan-gu-lar ro-bot-ics se-vere-ly set-up spa-ces
@@ -218,7 +221,7 @@
 % @errormsg{MSG}.  Do the index-like expansions on MSG, but if things
 % aren't perfect, it's not the end of the world, being an error message,
 % after all.
-%
+% 
 \def\errormsg{\begingroup \indexnofonts \doerrormsg}
 \def\doerrormsg#1{\errmessage{#1}}
 
@@ -241,7 +244,17 @@
 %
 \def\finalout{\overfullrule=0pt }
 
+% Do @cropmarks to get crop marks.
+%
+\newif\ifcropmarks
+\let\cropmarks = \cropmarkstrue
+%
+% Dimensions to add cropmarks at corners.
+% Added by P. A. MacKay, 12 Nov. 1986
+%
 \newdimen\outerhsize \newdimen\outervsize % set by the paper size routines
+\newdimen\cornerlong  \cornerlong=1pc
+\newdimen\cornerthick \cornerthick=.3pt
 \newdimen\topandbottommargin \topandbottommargin=.75in
 
 % Output a mark which sets \thischapter, \thissection and \thiscolor.
@@ -257,8 +270,8 @@
 
 % \domark is called twice inside \chapmacro, to add one
 % mark before the section break, and one after.
-%   In the second call \prevchapterdefs is the same as \currentchapterdefs,
-% and \prevsectiondefs is the same as \currentsectiondefs.
+%   In the second call \prevchapterdefs is the same as \lastchapterdefs,
+% and \prevsectiondefs is the same as \lastsectiondefs.
 %   Then if the page is not broken at the mark, some of the previous
 % section appears on the page, and we can get the name of this section
 % from \firstmark for @everyheadingmarks top.
@@ -266,11 +279,11 @@
 %
 % See page 260 of The TeXbook.
 \def\domark{%
-  \toks0=\expandafter{\currentchapterdefs}%
-  \toks2=\expandafter{\currentsectiondefs}%
+  \toks0=\expandafter{\lastchapterdefs}%
+  \toks2=\expandafter{\lastsectiondefs}%
   \toks4=\expandafter{\prevchapterdefs}%
   \toks6=\expandafter{\prevsectiondefs}%
-  \toks8=\expandafter{\currentcolordefs}%
+  \toks8=\expandafter{\lastcolordefs}%
   \mark{%
                    \the\toks0 \the\toks2  % 0: marks for @everyheadingmarks top
       \noexpand\or \the\toks4 \the\toks6  % 1: for @everyheadingmarks bottom
@@ -287,19 +300,19 @@
 % @setcolor (or @url, or @link, etc.) between @contents and the very
 % first @chapter.
 \def\gettopheadingmarks{%
-  \ifcase0\the\savedtopmark\fi
+  \ifcase0\topmark\fi
   \ifx\thischapter\empty \ifcase0\firstmark\fi \fi
 }
 \def\getbottomheadingmarks{\ifcase1\botmark\fi}
-\def\getcolormarks{\ifcase2\the\savedtopmark\fi}
+\def\getcolormarks{\ifcase2\topmark\fi}
 
 % Avoid "undefined control sequence" errors.
-\def\currentchapterdefs{}
-\def\currentsectiondefs{}
-\def\currentsection{}
+\def\lastchapterdefs{}
+\def\lastsectiondefs{}
+\def\lastsection{}
 \def\prevchapterdefs{}
 \def\prevsectiondefs{}
-\def\currentcolordefs{}
+\def\lastcolordefs{}
 
 % Margin to add to right of even pages, to left of odd pages.
 \newdimen\bindingoffset
@@ -309,76 +322,51 @@
 % Main output routine.
 %
 \chardef\PAGE = 255
-\newtoks\defaultoutput
-\defaultoutput = {\savetopmark\onepageout{\pagecontents\PAGE}}
-\output=\expandafter{\the\defaultoutput}
+\output = {\onepageout{\pagecontents\PAGE}}
 
 \newbox\headlinebox
 \newbox\footlinebox
 
-% When outputting the double column layout for indices, an output routine
-% is run several times, which hides the original value of \topmark.  This
-% can lead to a page heading being output and duplicating the chapter heading
-% of the index.  Hence, save the contents of \topmark at the beginning of
-% the output routine.  The saved contents are valid until we actually
-% \shipout a page.
-%
-% (We used to run a short output routine to actually set \topmark and
-% \firstmark to the right values, but if this was called with an empty page
-% containing whatsits for writing index entries, the whatsits would be thrown
-% away and the index auxiliary file would remain empty.)
-%
-\newtoks\savedtopmark
-\newif\iftopmarksaved
-\topmarksavedtrue
-\def\savetopmark{%
-  \iftopmarksaved\else
-    \global\savedtopmark=\expandafter{\topmark}%
-    \global\topmarksavedtrue
-  \fi
-}
-
 % \onepageout takes a vbox as an argument.
-% \shipout a vbox for a single page, adding an optional header, footer
-% and footnote.  This also causes index entries for this page to be written
-% to the auxiliary files.
+% \shipout a vbox for a single page, adding an optional header, footer,
+% cropmarks, and footnote.  This also causes index entries for this page
+% to be written to the auxiliary files.
 %
 \def\onepageout#1{%
-  \hoffset=\normaloffset
+  \ifcropmarks \hoffset=0pt \else \hoffset=\normaloffset \fi
   %
   \ifodd\pageno  \advance\hoffset by \bindingoffset
   \else \advance\hoffset by -\bindingoffset\fi
   %
+  % Common context changes for both heading and footing.
+  % Do this outside of the \shipout so @code etc. will be expanded in
+  % the headline as they should be, not taken literally (outputting ''code).
+  \def\commmonheadfootline{\let\hsize=\txipagewidth \texinfochars}
+  %
   % Retrieve the information for the headings from the marks in the page,
   % and call Plain TeX's \makeheadline and \makefootline, which use the
   % values in \headline and \footline.
   %
   % This is used to check if we are on the first page of a chapter.
-  \ifcase1\the\savedtopmark\fi
+  \ifcase1\topmark\fi
   \let\prevchaptername\thischaptername
   \ifcase0\firstmark\fi
   \let\curchaptername\thischaptername
   %
   \ifodd\pageno \getoddheadingmarks \else \getevenheadingmarks \fi
+  \ifodd\pageno \getoddfootingmarks \else \getevenfootingmarks \fi
   %
   \ifx\curchaptername\prevchaptername
     \let\thischapterheading\thischapter
   \else
     % \thischapterheading is the same as \thischapter except it is blank
-    % for the first page of a chapter.  This is to prevent the chapter name
+    % for the first page of a chapter.  This is to prevent the chapter name 
     % being shown twice.
     \def\thischapterheading{}%
   \fi
   %
-  % Common context changes for both heading and footing.
-  % Do this outside of the \shipout so @code etc. will be expanded in
-  % the headline as they should be, not taken literally (outputting ''code).
-  \def\commonheadfootline{\let\hsize=\txipagewidth \texinfochars}
-  %
-  \global\setbox\headlinebox = \vbox{\commonheadfootline \makeheadline}%
-  %
-  \ifodd\pageno \getoddfootingmarks \else \getevenfootingmarks \fi
-  \global\setbox\footlinebox = \vbox{\commonheadfootline \makefootline}%
+  \global\setbox\headlinebox = \vbox{\commmonheadfootline \makeheadline}%
+  \global\setbox\footlinebox = \vbox{\commmonheadfootline \makefootline}%
   %
   {%
     % Set context for writing to auxiliary files like index files.
@@ -386,12 +374,37 @@
     % take effect in \write's, yet the group defined by the \vbox ends

_service:tar_scm:mpc-1.2.0.tar.gz/config.h.in -> _service:tar_scm:mpc-1.3.1.tar.gz/config.h.in Changed

@@ -27,21 +27,15 @@
 /* Library dl present */
 #undef HAVE_LIBDL
 
-/* Define to 1 if you have the <limits.h> header file. */
-#undef HAVE_LIMITS_H
+/* Define to 1 if you have the `m' library (-lm). */
+#undef HAVE_LIBM
 
 /* Define to 1 if you have the `localeconv' function. */
 #undef HAVE_LOCALECONV
 
-/* Define to 1 if you have the <locale.h> header file. */
-#undef HAVE_LOCALE_H
-
 /* Define to 1 if you have the <memory.h> header file. */
 #undef HAVE_MEMORY_H
 
-/* mpfr_fmma is not present */
-#undef HAVE_MPFR_FMMA
-
 /* Define to 1 if you have the `setlocale' function. */
 #undef HAVE_SETLOCALE
 
@@ -57,9 +51,6 @@
 /* Define to 1 if you have the <string.h> header file. */
 #undef HAVE_STRING_H
 
-/* Define to 1 if you have the <sys/resource.h> header file. */
-#undef HAVE_SYS_RESOURCE_H
-
 /* Define to 1 if you have the <sys/stat.h> header file. */
 #undef HAVE_SYS_STAT_H
 
@@ -114,9 +105,6 @@
 /* Define to 1 if you have the ANSI C header files. */
 #undef STDC_HEADERS
 
-/* Define to 1 if you can safely include both <sys/time.h> and <time.h>. */
-#undef TIME_WITH_SYS_TIME
-
 /* Version number of package */
 #undef VERSION

_service:tar_scm:mpc-1.2.0.tar.gz/configure -> _service:tar_scm:mpc-1.3.1.tar.gz/configure Changed

@@ -1,8 +1,8 @@
 #! /bin/sh
 # Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.69 for mpc 1.2.0.
+# Generated by GNU Autoconf 2.69 for mpc 1.3.1.
 #
-# Report bugs to <mpc-discuss@lists.gforge.inria.fr>.
+# Report bugs to <mpc-discuss@inria.fr>.
 #
 #
 # Copyright (C) 1992-1996, 1998-2012 Free Software Foundation, Inc.
@@ -275,10 +275,10 @@
     $as_echo "$0: be upgraded to zsh 4.3.4 or later."
   else
     $as_echo "$0: Please tell bug-autoconf@gnu.org and
-$0: mpc-discuss@lists.gforge.inria.fr about your system,
-$0: including any error possibly output before this
-$0: message. Then install a modern shell, or manually run
-$0: the script under such a shell if you do have one."
+$0: mpc-discuss@inria.fr about your system, including any
+$0: error possibly output before this message. Then install
+$0: a modern shell, or manually run the script under such a
+$0: shell if you do have one."
   fi
   exit 1
 fi
@@ -590,9 +590,9 @@
 # Identity of this package.
 PACKAGE_NAME='mpc'
 PACKAGE_TARNAME='mpc'
-PACKAGE_VERSION='1.2.0'
-PACKAGE_STRING='mpc 1.2.0'
-PACKAGE_BUGREPORT='mpc-discuss@lists.gforge.inria.fr'
+PACKAGE_VERSION='1.3.1'
+PACKAGE_STRING='mpc 1.3.1'
+PACKAGE_BUGREPORT='mpc-discuss@inria.fr'
 PACKAGE_URL=''
 
 ac_unique_file="src/mpc-impl.h"
@@ -638,7 +638,6 @@
 GITVERSION
 HASGIT
 GCC_VERSION
-AS
 MPC_LDFLAGS
 MPC_LOG_H
 LIBOBJS
@@ -651,8 +650,6 @@
 DSYMUTIL
 MANIFEST_TOOL
 RANLIB
-DLLTOOL
-OBJDUMP
 LN_S
 NM
 ac_ct_DUMPBIN
@@ -660,6 +657,9 @@
 LD
 FGREP
 LIBTOOL
+OBJDUMP
+DLLTOOL
+AS
 ac_ct_AR
 AR
 am__fastdepCC_FALSE
@@ -1333,7 +1333,7 @@
   # Omit some internal or obsolete options to make the list less imposing.
   # This message is too long to be a string in the A/UX 3.1 sh.
   cat <<_ACEOF
-\`configure' configures mpc 1.2.0 to adapt to many kinds of systems.
+\`configure' configures mpc 1.3.1 to adapt to many kinds of systems.
 
 Usage: $0 OPTION... VAR=VALUE...
 
@@ -1403,7 +1403,7 @@
 
 if test -n "$ac_init_help"; then
   case $ac_init_help in
-     short | recursive ) echo "Configuration of mpc 1.2.0:";;
+     short | recursive ) echo "Configuration of mpc 1.3.1:";;
    esac
   cat <<\_ACEOF
 
@@ -1462,7 +1462,7 @@
 Use these variables to override the choices made by `configure' or to help
 it to find libraries and programs with nonstandard names/locations.
 
-Report bugs to <mpc-discuss@lists.gforge.inria.fr>.
+Report bugs to <mpc-discuss@inria.fr>.
 _ACEOF
 ac_status=$?
 fi
@@ -1525,7 +1525,7 @@
 test -n "$ac_init_help" && exit $ac_status
 if $ac_init_version; then
   cat <<\_ACEOF
-mpc configure 1.2.0
+mpc configure 1.3.1
 generated by GNU Autoconf 2.69
 
 Copyright (C) 2012 Free Software Foundation, Inc.
@@ -1870,9 +1870,9 @@
 $as_echo "$as_me: WARNING: $2:     section \"Present But Cannot Be Compiled\"" >&2;}
     { $as_echo "$as_me:${as_lineno-$LINENO}: WARNING: $2: proceeding with the compiler's result" >&5
 $as_echo "$as_me: WARNING: $2: proceeding with the compiler's result" >&2;}
-( $as_echo "## ------------------------------------------------ ##
-## Report this to mpc-discuss@lists.gforge.inria.fr ##
-## ------------------------------------------------ ##"
+( $as_echo "## ----------------------------------- ##
+## Report this to mpc-discuss@inria.fr ##
+## ----------------------------------- ##"
      ) | sed "s/^/$as_me: WARNING:     /" >&2
     ;;
 esac
@@ -1948,7 +1948,7 @@
 This file contains any messages produced by compilers while
 running configure, to aid debugging if configure makes a mistake.
 
-It was created by mpc $as_me 1.2.0, which was
+It was created by mpc $as_me 1.3.1, which was
 generated by GNU Autoconf 2.69.  Invocation command line was
 
   $ $0 $@
@@ -2815,7 +2815,7 @@
 
 # Define the identity of the package.
  PACKAGE='mpc'
- VERSION='1.2.0'
+ VERSION='1.3.1'
 
 
 cat >>confdefs.h <<_ACEOF
@@ -3170,7 +3170,7 @@
 
 # Check for CC and CFLAGS in gmp.h unless the user specified one of them
 # look for EGREP and SED here, see continued problem
-# at http://lists.gforge.inria.fr/pipermail/mpc-discuss/2012-January/001056.html
+# at https://sympa.inria.fr/sympa/arc/mpc-discuss/2012-01/msg00001.html
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking for grep that handles long lines and -e" >&5
 $as_echo_n "checking for grep that handles long lines and -e... " >&6; }
 if ${ac_cv_path_GREP+:} false; then :
@@ -5623,9 +5623,6 @@
 
 
 
-
-
-
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to recognize dependent libraries" >&5
 $as_echo_n "checking how to recognize dependent libraries... " >&6; }
 if ${lt_cv_deplibs_check_method+:} false; then :
@@ -5968,9 +5965,6 @@
 
 
 
-
-
-
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking how to associate runtime and link libraries" >&5
 $as_echo_n "checking how to associate runtime and link libraries... " >&6; }
 if ${lt_cv_sharedlib_from_linklib_cmd+:} false; then :
@@ -8212,13 +8206,311 @@
 
 
 # Set options
+enable_win32_dll=yes
 
+case $host in
+*-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-cegcc*)
+  if test -n "$ac_tool_prefix"; then
+  # Extract the first word of "${ac_tool_prefix}as", so it can be a program name with args.
+set dummy ${ac_tool_prefix}as; ac_word=$2
+{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for $ac_word" >&5
+$as_echo_n "checking for $ac_word... " >&6; }
+if ${ac_cv_prog_AS+:} false; then :
+  $as_echo_n "(cached) " >&6
+else
+  if test -n "$AS"; then
+  ac_cv_prog_AS="$AS" # Let the user override the test.
+else
+as_save_IFS=$IFS; IFS=$PATH_SEPARATOR
+for as_dir in $PATH
+do
+  IFS=$as_save_IFS
+  test -z "$as_dir" && as_dir=.
+    for ac_exec_ext in '' $ac_executable_extensions; do
+  if as_fn_executable_p "$as_dir/$ac_word$ac_exec_ext"; then
+    ac_cv_prog_AS="${ac_tool_prefix}as"
+    $as_echo "$as_me:${as_lineno-$LINENO}: found $as_dir/$ac_word$ac_exec_ext" >&5
+    break 2
+  fi
+done
+  done
+IFS=$as_save_IFS
 
+fi
+fi
+AS=$ac_cv_prog_AS
+if test -n "$AS"; then

_service:tar_scm:mpc-1.2.0.tar.gz/configure.ac -> _service:tar_scm:mpc-1.3.1.tar.gz/configure.ac Changed

@@ -1,4 +1,4 @@
-# Copyright (C) 2008, 2009, 2010, 2011, 2012, 2014, 2016, 2017, 2018, 2020 INRIA
+# Copyright (C) 2008, 2009, 2010, 2011, 2012, 2014, 2016, 2017, 2018, 2020, 2022 INRIA
 #
 # This file is part of GNU MPC.
 #
@@ -19,11 +19,11 @@
 #                                               -*- Autoconf -*-
 # Process this file with autoconf to produce a configure script.
 
-AC_PREREQ(2.61)
-AC_INIT(mpc, 1.2.0, mpc-discuss@lists.gforge.inria.fr)
+AC_PREREQ(2.69)
+AC_INIT(mpc,1.3.1,mpc-discuss@inria.fr)
 AC_CONFIG_SRCDIR(src/mpc-impl.h)
 AC_CONFIG_AUX_DIR(build-aux)
-AC_CONFIG_HEADER(config.h)
+AC_CONFIG_HEADERS(config.h)
 
 AM_INIT_AUTOMAKE
 AM_MAINTAINER_MODE
@@ -37,15 +37,15 @@
 
 # Extra arguments to configure
 AC_ARG_WITH(mpfr_include,
-            AC_HELP_STRING(--with-mpfr-include=DIR,
+            AS_HELP_STRING(--with-mpfr-include=DIR,
                             MPFR include directory),
             CPPFLAGS="-I$withval $CPPFLAGS")
 AC_ARG_WITH(mpfr_lib,
-            AC_HELP_STRING(--with-mpfr-lib=DIR,
+            AS_HELP_STRING(--with-mpfr-lib=DIR,
                             MPFR lib directory),
             LDFLAGS="-L$withval $LDFLAGS")
 AC_ARG_WITH(mpfr,
-            AC_HELP_STRING(--with-mpfr=DIR,
+            AS_HELP_STRING(--with-mpfr=DIR,
                            MPFR install directory),
             
             if test -z "$with_mpfr_include" -a -z "$with_mpfr_lib" ; then
@@ -56,15 +56,15 @@
             fi
             )
 AC_ARG_WITH(gmp_include,
-            AC_HELP_STRING(--with-gmp-include=DIR,
+            AS_HELP_STRING(--with-gmp-include=DIR,
                             GMP include directory),
             CPPFLAGS="-I$withval $CPPFLAGS")
 AC_ARG_WITH(gmp_lib,
-            AC_HELP_STRING(--with-gmp-lib=DIR,
+            AS_HELP_STRING(--with-gmp-lib=DIR,
                             GMP lib directory),
             LDFLAGS="-L$withval $LDFLAGS")
 AC_ARG_WITH(gmp,
-            AC_HELP_STRING(--with-gmp=DIR,
+            AS_HELP_STRING(--with-gmp=DIR,
                            GMP install directory),
             
             if test -z "$with_gmp_lib" -a -z "$with_gmp_include" ; then
@@ -75,7 +75,7 @@
             fi
             )
 AC_ARG_ENABLE(logging,
-             AC_HELP_STRING(--enable-logging,
+             AS_HELP_STRING(--enable-logging,
                              enable logging of function calls to stderr (default = no)),
              case $enableval in
                  yes) AS_IF(test "x$enable_shared" = "xno",
@@ -86,7 +86,7 @@
              
              )
 AC_ARG_ENABLE(valgrind-tests,
-             AC_HELP_STRING(--enable-valgrind-tests,
+             AS_HELP_STRING(--enable-valgrind-tests,
                              run checks through valgrind (default = no)),
              case $enableval in
                  yes) gl_VALGRIND_TESTS ;;
@@ -98,7 +98,7 @@
 
 # Check for CC and CFLAGS in gmp.h unless the user specified one of them
 # look for EGREP and SED here, see continued problem
-# at http://lists.gforge.inria.fr/pipermail/mpc-discuss/2012-January/001056.html
+# at https://sympa.inria.fr/sympa/arc/mpc-discuss/2012-01/msg00001.html
 AC_PROG_EGREP
 AC_PROG_SED
 if test -z "$USER_CC" && test -z "$USER_CFLAGS"; then
@@ -113,7 +113,7 @@
 m4_ifdef(AM_PROG_AR, AM_PROG_AR)
 
 # Set up LibTool
-LT_INIT
+LT_INIT(win32-dll)
 
 # Check GMP Header
 AC_MSG_CHECKING(for gmp.h)
@@ -124,20 +124,8 @@
  AC_MSG_ERROR(gmp.h cannot be found or is unusable.)
 )
 
-# Check (only in development versions) if the compiler accepts warning
-# flags and add them to CFLAGS
-# Note: don't do this if the user defined CFLAGS, since adding new flags
-# might override the user's settings, see
-# http://lists.gforge.inria.fr/pipermail/mpc-discuss/2012-May/001115.html
-if test -z "$USER_CFLAGS"; then
-   MPC_C_CHECK_WARNINGCFLAGS
-fi
-
-
 # Checks for header files.
-AC_HEADER_STDC
-AC_CHECK_HEADERS(locale.h inttypes.h stdint.h limits.h unistd.h sys/time.h sys/resource.h)
-AC_HEADER_TIME
+AC_CHECK_HEADERS(inttypes.h stdint.h sys/time.h)
 MPC_COMPLEX_H
 
 # Checks for typedefs, structures, and compiler characteristics.
@@ -149,6 +137,9 @@
 AC_CHECK_FUNCS(dup dup2,,
         AC_DEFINE(MPC_NO_STREAM_REDIRECTION,1,Do not check mpc_out_str on stdout))
 
+AC_CHECK_LIB(m, fesetround)
+# Warning: up from autoconf 2.70, the following test fails with C++
+# see https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=992981
 AC_CHECK_LIB(gmp, __gmpz_init,
              LIBS="-lgmp $LIBS",
              AC_MSG_ERROR(libgmp not found or uses a different ABI (including static vs shared).))
@@ -166,22 +157,6 @@
         AC_MSG_ERROR(libmpfr not found or uses a different ABI (including static vs shared).)
         )
 
-AC_MSG_CHECKING(for mpfr_fmma)
-LIBS="-lmpfr $LIBS"
-AC_LINK_IFELSE(
-        AC_LANG_PROGRAM(
-                #include "mpfr.h",
-                mpfr_t x; mpfr_fmma (x, x, x, x, x, 0);
-        ),
-        
-	AC_MSG_RESULT(yes)
-	AC_DEFINE(HAVE_MPFR_FMMA, 1, mpfr_fmma is present)
-	,
-        
-        AC_MSG_RESULT(no)
-	AC_DEFINE(HAVE_MPFR_FMMA, 0, mpfr_fmma	is not present)
-        )
-
 # Check for a recent GMP
 # We only guarantee that with a *functional* and recent enough GMP version,
 # MPC will compile; we do not guarantee that GMP will compile.
@@ -239,7 +214,6 @@
 
 # Configs for Windows DLLs
 AC_SUBST(MPC_LDFLAGS)
-AC_LIBTOOL_WIN32_DLL
 case $host in
   *-*-cygwin* | *-*-mingw* | *-*-pw32* | *-*-os2*)
      MPC_WINDOWS

_service:tar_scm:mpc-1.2.0.tar.gz/doc/Makefile.in -> _service:tar_scm:mpc-1.3.1.tar.gz/doc/Makefile.in Changed

@@ -1,7 +1,7 @@
-# Makefile.in generated by automake 1.16.2 from Makefile.am.
+# Makefile.in generated by automake 1.16.1 from Makefile.am.
 # @configure_input@
 
-# Copyright (C) 1994-2020 Free Software Foundation, Inc.
+# Copyright (C) 1994-2018 Free Software Foundation, Inc.
 
 # This Makefile.in is free software; the Free Software Foundation
 # gives unlimited permission to copy and/or distribute it,
@@ -89,8 +89,7 @@
 host_triplet = @host@
 subdir = doc
 ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
-am__aclocal_m4_deps = $(top_srcdir)/m4/ax_c_check_flag.m4 \
-	$(top_srcdir)/m4/ax_gcc_option.m4 \
+am__aclocal_m4_deps = $(top_srcdir)/m4/ax_gcc_option.m4 \
 	$(top_srcdir)/m4/ax_gcc_version.m4 $(top_srcdir)/m4/libtool.m4 \
 	$(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \
 	$(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \
@@ -195,7 +194,7 @@
 am__tagged_files = $(HEADERS) $(SOURCES) $(TAGS_FILES) $(LISP)
 am__DIST_COMMON = $(srcdir)/Makefile.in \
 	$(top_srcdir)/build-aux/mdate-sh \
-	$(top_srcdir)/build-aux/texinfo.tex mdate-sh texinfo.tex
+	$(top_srcdir)/build-aux/texinfo.tex
 DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
 ACLOCAL = @ACLOCAL@
 AMTAR = @AMTAR@

_service:tar_scm:mpc-1.3.1.tar.gz/doc/algorithms.bib Added

@@ -0,0 +1,145 @@
+@book {Apostol57,
+   author       = {Tom M. Apostol},
+   title        = {Mathematical Analysis --- A Modern Approach to Advanced
+                   Calculus},
+   publisher    = {Addison-Wesley},
+   address      = {Reading, Massachusetts},
+   year         = {1957}
+}
+
+@article {Cox84,
+   author       = {David A. Cox},
+   title        = {The arithmetic-geometric mean of {G}auss},
+   journal      = {L'Enseignement Mathématique},
+   year         = {1984},
+   volume       = {30},
+   number       = 2,
+   pages        = {275--330}
+}
+
+@phdthesis {Dupont06,
+   author       = {R\'egis Dupont},
+   title        = {Moyenne arithm\'etico-g\'eom\'etrique, suites de
+                   {B}orchardt et applications},
+   school       = {\'Ecole polytechnique},
+   address      = {Palaiseau},
+   type         = {Th\`ese de doctorat},
+   year         = {2006}
+}
+
+@article {Enge09,
+   author       = {Andreas Enge},
+   title        = {The complexity of class polynomial computation via
+                   floating point approximations},
+   journal      = {Mathematics of Computation},
+   year         = {2009},
+   volume       = {78},
+   number       = {266},
+   pages        = {1089–1107},
+   halinria     = {001040},
+   origurl      = {http://www.ams.org/mcom/2009-78-266/S0025-5718-08-02200-X/home.html}
+}
+
+@Article{Friedland67,
+  author = 	 {Paul Friedland},
+  title = 	 {Algorithm 312: {A}bsolute value and square root of a complex
+                  number},
+  journal = 	 cacm,
+  year = 	 1967,
+  volume =	 10,
+  number = 10,
+  pages =	 {665},
+  annote = "\url{http://portal.acm.org/citation.cfm?id=363780}"
+}
+
+@Unpublished{MPFRAlgorithms,
+  author =       {{MPFR Team}},
+  title =        {The {MPFR} {L}ibrary: {A}lgorithms {A}nd {P}roofs},
+  note =         {\url{http://www.mpfr.org/algorithms.pdf}},
+}
+
+@Article{Smith98,
+  author = 	 {David M. Smith},
+  title = 	 {Algorithm 786: {M}ultiple-Precision Complex Arithmetic and
+		  Functions},
+  journal = 	 toms,
+  year = 	 1998,
+  volume =	 34,
+  number =	 4,
+  pages =	 {359--367}
+}
+
+@article{CrTh13,
+  author = 	 {John E. Cremona and Thotsaphon Thongjunthug},
+  title = 	 {The complex {AGM}, periods of elliptic curves over {$\C$} and complex elliptic logarithms},
+  journal = "Journal of Number Theory",
+  volume = 133,
+  number = 8,
+  pages = "2813--2841",
+  year = 2013
+}
+
+@Misc{Baudin11,
+  author = 	 {Michael Baudin},
+  title = 	 {Error bounds of complex arithmetic},
+  howpublished = {\url{http://forge.scilab.org/upload/compdiv/files/complexerrorbounds_v0.2.pdf}},
+  year = 	 2011}
+
+@Article{Stewart85,
+  author = 	 {G. W. Stewart},
+  title = 	 {A Note on Complex Division},
+  journal = 	 toms,
+  year = 	 1985,
+  volume = 	 11,
+  number = 	 3,
+  pages = 	 {238--241}}
+
+@Article{Priest04,
+  author = 	 {Douglas M. Priest},
+  title = 	 {Efficient Scaling for Complex Division},
+  journal = 	 toms,
+  year = 	 2004,
+  volume = 	 30,
+  number = 	 4,
+  pages = 	 {389--401}}
+
+@book{muller:hal-01766584,
+  TITLE = {{Handbook of Floating-point Arithmetic}},
+  AUTHOR = {Muller, Jean-Michel and Brunie, Nicolas and de Dinechin, Florent and Jeannerod, Claude-Pierre and Joldes, Mioara and Lef{\`e}vre, Vincent and Melquiond, Guillaume and Revol, Nathalie and Torres, Serge},
+  URL = {https://hal.inria.fr/hal-01766584},
+  HAL_LOCAL_REFERENCE = {Rapport LAAS n{\textdegree} 18106},
+  PUBLISHER = {{Birkh{\"a}user Basel}},
+  PAGES = {1-627},
+  YEAR = {2018},
+  MONTH = Jul,
+  DOI = {10.1007/978-3-319-76526-6},
+  KEYWORDS = {arithmetic operators ; arithmetic algorithms ; numerical computing ; floating-point arithmetic ; computer arithmetic},
+  HAL_ID = {hal-01766584},
+  HAL_VERSION = {v1},
+  note = {2nd edition, which contains a chapter on complex numbers}
+}
+
+@inproceedings{jeannerod:ensl-01780265,
+  TITLE = {{On the relative error of computing complex square roots in floating-point arithmetic}},
+  AUTHOR = {Jeannerod, Claude-Pierre and Muller, Jean-Michel},
+  URL = {https://hal-ens-lyon.archives-ouvertes.fr/ensl-01780265},
+  BOOKTITLE = {{ACSSC 2017 - 51st Asilomar Conference on Signals, Systems, and Computers}},
+  ADDRESS = {Pacific Grove, United States},
+  PUBLISHER = {{IEEE}},
+  PAGES = {1-4},
+  YEAR = {2017},
+  MONTH = Oct,
+  DOI = {10.1109/ACSSC.2017.8335442},
+  PDF = {https://hal-ens-lyon.archives-ouvertes.fr/ensl-01780265/file/asilomar17.pdf},
+  HAL_ID = {ensl-01780265},
+  HAL_VERSION = {v1},
+}
+
+@Book{AbSt73,
+  author =    "Milton Abramowitz and Irene A. Stegun",
+  title =    "Handbook of Mathematical Functions",
+  publisher =    "Dover",
+  year =    "1973",
+  note = "\url{http://members.fortunecity.com/aands/toc.htm}"
+}
+

_service:tar_scm:mpc-1.3.1.tar.gz/doc/algorithms.tex Added

@@ -0,0 +1,3667 @@
+\documentclass 11pt{article}
+
+\usepackagea4paper{geometry}
+\usepackageutf8{inputenc}
+\usepackageT1{fontenc}
+\usepackage{ae}
+\usepackage{amsmath,amssymb}
+\usepackage{hyperref}
+\usepackage{comment}
+\usepackagenotref,notcite{showkeys}
+\usepackage{graphicx}
+\usepackage{tikz}
+
+\newcommand {\corr}1{{#1}}
+\newcommand {\appro}1{\widetilde {#1}}
+\newcommand {\mpc}{{\tt mpc}}
+\newcommand {\mpfr}{{\tt mpfr}}
+\newcommand {\ulp}1{#1~ulp}
+\newcommand {\Ulp}{{\operatorname {ulp}}}
+\DeclareMathOperator{\Exp}{\operatorname {Exp}}
+\newcommand {\atantwo}{\operatorname {atan2}}
+\newcommand {\asin}{\operatorname {asin}}
+\newcommand{\error}{\operatorname {error}}
+\newcommand{\relerror}{\operatorname {relerror}}
+\newcommand{\Norm}{\operatorname {N}}
+\newcommand {\round}{\operatorname {\circ}}
+\DeclareMathOperator{\pinf}{\bigtriangleup}
+\DeclareMathOperator{\minf}{\bigtriangledown}
+\DeclareMathOperator{\A}{\mathcal A}
+\newcommand {\N}{\mathbb N}
+\newcommand {\Z}{\mathbb Z}
+\newcommand {\Q}{\mathbb Q}
+\newcommand {\R}{\mathbb R}
+\newcommand {\C}{\mathbb C}
+\renewcommand {\epsilon}{\varepsilon}
+\renewcommand {\theta}{\vartheta}
+\renewcommand {\leq}{\leqslant}
+\renewcommand {\geq}{\geqslant}
+\newcommand {\AGM}{\operatorname{AGM}}
+\newcommand {\sign}{\operatorname{sign}}
+\newcommand {\Sl}{\operatorname{Sl}}
+\newcommand {\diff}{\mathrm {d}}
+
+\newtheorem{theorem}{Theorem}
+\newtheorem{lemma}theorem{Lemma}
+\newtheorem{definition}theorem{Definition}
+\newtheorem{prop}theorem{Proposition}
+\newtheorem{conj}theorem{Conjecture}
+\newenvironment{proof}{\noindent \textbf {Proof:}}{{\hspace* {\fill}$\blacksquare$}}
+\newenvironment{remark}{\noindent \textit {Remark:}}{}
+
+\newcommand {\enumi}1{(\alph {#1})}
+\renewcommand {\labelenumi}{\enumi {enumi}}
+\newcommand {\enumii}1{(\roman {#1})}
+\renewcommand {\labelenumii}{\enumii {enumii}}
+
+\title {MPC: Algorithms and Error Analysis}
+\author {Andreas Enge \and Philippe Th\'eveny \and Paul Zimmermann}
+\date {Draft; November 21, 2022}
+
+\begin {document}
+\maketitle
+\tableofcontents
+
+
+\section {Error propagation}
+
+\subsection {Introduction and notation}
+
+This section is devoted to the analysis of error propagation: Given a function
+whose input arguments already have a certain error, what is the error bound on
+the function output? The output error usually consists of two components: the
+error propagated from the input, which may be arbitrarily amplified (or, if
+one is lucky, shrunk); and an
+additional small error accounting for the rounding of the output. The results
+are needed to give a cumulated error analysis for algorithms that combine
+several elementary arithmetic operations.
+
+
+\subsubsection {Ulp calculus}
+
+\begin {definition}
+\label {def:exp}
+Let $x$ be a non-zero real number, which can be written uniquely as
+$x = m \cdot 2^e$ with $\frac{1}{2} \le |m| < 1$.
+The {\em exponent} of $x$ is
+$\Exp(x) = e = \lfloor \log_2 |x| \rfloor + 1$.
+The number is {\em representable at precision~$p$} if
+$2^p m$ is an integer.
+If $x$ is representable, there is no other representable number in the
+open interval $(x - 2^{e-p}, x + 2^{e-p})$; otherwise there are two
+representable numbers in the interval.
+We denote the rounding of $x$ to one of them by
+$\round (x) = \round_p (x)$, with rounding being to nearest, up, down,
+towards zero or away from zero if there is a choice.
+\end {definition}
+
+The real number~$0$ does not fit into this framework; it is considered
+representable at any precision, so that it is never changed by rounding.
+Conversely, notice that no non-zero number is ever rounded to~$0$.
+One could define $\Exp(0) = -\infty$, and most of the following results
+would still hold.
+
+\begin {prop}
+\label {prop:expmuldiv}
+If $x_1$ and $x_2$ are two non-zero real numbers, then
+\begin {gather*}
+\Exp (x_1) + \Exp (x_2) - 1 \leq \Exp (x_1 x_2) \leq \Exp (x_1) + \Exp (x_2),
+\\
+\Exp (x_1) - \Exp (x_2) \leq \Exp \left( \frac {x_1}{x_2} \right)
+\leq \Exp (x_1) - \Exp (x_2) + 1.
+\end {gather*}
+\end {prop}
+
+\begin {proof}
+Write $x_n = m_n 2^{\Exp (x_n)}$ and
+$x = x_1 x_2 = m 2^{\Exp x} = m_1 m_2 2^{\Exp (x_1) + \Exp (x_2)}$
+with $\frac {1}{2} \leq m_n, m < 1$.
+Then $m = m_1 m_2$ if the product is at least $\frac {1}{2}$ and
+$m = 2 m_1 m_2$ if the product is less than $\frac {1}{2}$, which
+yields the first line of inequalities.
+The other inequalities are derived in the same way from
+$\frac {1}{2} < \frac {m_1}{m_2} < 2$.
+\end {proof}
+
+
+\begin {prop}
+\label {prop:expround}
+For any non-zero real number $x$,
+\
+\Exp (x) \leq \Exp (\round (x)) \leq \Exp (x) + 1,
+\
+with equality occurring on the right if and only if
+$|x|$ has been rounded up to $|\round (x)| = 2^{\Exp (x)}$.
+\end {prop}
+
+\begin {proof}
+Letting $x = m 2^{\Exp (x)}$, we have
+$\frac {1}{2} \cdot 2^{\Exp (x)} \leq \round (x) \leq 1 \cdot 2^{\Exp (x)}$,
+since these two numbers are representable (independently of the precision).
+\end {proof}
+
+
+\begin {definition}
+\label {def:ulp}
+Let $x$ be a non-zero real number which is representable at precision~$p$.
+Its associated {\em unit in the last place} is
+$\Ulp(x) = \Ulp_p (x) = 2^{\Exp(x) - p}$, so that adding $\Ulp(x)$ to $x$
+corresponds to adding~$1$ to the integer $2^p m$.
+\end {definition}
+
+
+\subsubsection {Absolute error}
+
+In the remainder of this chapter, all complex numbers are denoted by
+the letter $z$ with subscripts and mathematical accents, decomposed in
+Cartesian coordinates as $z = x + i y$ with the same diacritics applied
+to $x$ and $y$ as to $z$. All representable real numbers are supposed
+to have the same precision~$p$. We apply the following error definition
+of real numbers separately to the two coordinates of a complex number.
+
+\begin {definition}
+\label {def:error}
+Given a real number $\corr x$ and its approximation $\appro x$,
+we define the {\em absolute error} of $\appro x$ as
+$\error (\appro x) = | \corr x - \appro x |$.
+\end {definition}
+
+Notice that in the following, the absolute error is usually expressed in terms
+of $\Ulp$, which is itself a relative measure with respect to the exponent of
+the number.
+
+Let $\corr z = f (\corr {z_1}, \ldots) = \corr x + i \corr y$ be the correct
+result of a complex function applied to the correct arguments $\corr {z_n}$.
+We assume that the $\corr {z_n}$ themselves are not known, but only
+approximate input values $\appro {z_n} = \appro {x_n} + i \appro {y_n}$;
+for instance, the $\corr {z_n}$ may be the exact results of some formul\ae,
+whereas the $\appro {z_n}$ are the outcome of the corresponding computation
+and affected by rounding errors. We suppose that error bounds
+$\error (\appro {x_n}) \leq k_{R, n} 2^{\Exp (\appro {x_n}) - p}$
+and $\error (\appro {y_n}) \leq k_{I, n} 2^{\Exp (\appro {y_n}) - p}$ for
+some $k_{R, n}$ and $k_{I, n}$ are known. (This particular notation
+becomes more comprehensible when $\appro {x_n}$ and $\appro {y_n}$ are
+representable at precision~$p$, since then the units of the error measure
+become $\Ulp (\appro {x_n})$ and $\Ulp (\appro {y_n})$, respectively;
+however, there is no need to restrict the results of this chapter to
+representable numbers.)
+Our aim is to determine the propagated error in the output value
+$\appro z = \appro x + i \appro y = f (\appro {z_1}, \ldots)$, which is given by
+\begin {equation}
+\label {eq:properror}
+\error (\appro x)
+\leq | \Re (f (\corr {z_1}, \ldots)) - \Re (f (\appro {z_1}, \ldots)) |
+\end {equation}
+and an analogous formula for $\error (\appro y)$. In general,
+we are looking for $k_R$ and $k_I$ such that
+\
+\error (\appro x) \leq k_R 2^{\Exp (\appro x) - p}
+\text { and }

_service:tar_scm:mpc-1.3.1.tar.gz/doc/iter1.pdf Added

_service:tar_scm:mpc-1.2.0.tar.gz/doc/mpc.texi -> _service:tar_scm:mpc-1.3.1.tar.gz/doc/mpc.texi Changed

@@ -2,7 +2,6 @@
 @setfilename mpc.info
 @include version.texi
 @settitle GNU MPC @value{VERSION}
-@synindex tp fn
 
 @set MINGMP 5.0.0
 @set MINMPFR 4.1.0
@@ -13,7 +12,7 @@
 This manual is for GNU MPC, a library for multiple precision complex arithmetic,
 version @value{VERSION} of @value{UPDATED-MONTH}.
 
-Copyright @copyright{} 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2016, 2018, 2020 INRIA
+Copyright @copyright{} 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010, 2011, 2012, 2013, 2016, 2018, 2020, 2022 INRIA
 
 @quotation
 Permission is granted to copy, distribute and/or modify this document
@@ -61,14 +60,16 @@
 
 @menu
 * Copying::                     GNU MPC Copying Conditions (LGPL).
-* Introduction to GNU MPC::         Brief introduction to GNU MPC.
-* Installing GNU MPC::              How to configure and compile the GNU MPC library.
+* Introduction to GNU MPC::     Brief introduction to GNU MPC.
+* Installing GNU MPC::          How to configure and compile the GNU MPC library.
 * Reporting Bugs::              How to usefully report bugs.
-* GNU MPC Basics::                  What every GNU MPC user should know.
+* GNU MPC Basics::              What every GNU MPC user should know.
 * Complex Functions::           Functions for arithmetic on complex numbers.
+* Ball Arithmetic::             Types and functions for complex balls.
 * References::
 * Concept Index::
 * Function Index::
+* Type Index::
 * GNU Free Documentation License::
 @end menu
 
@@ -138,7 +139,7 @@
 GNU MPFR (version @value{MINMPFR} or higher) on your computer.  You need a C compiler;
 GCC version 4.4 or higher is recommended, since GNU MPC may trigger a bug in previous
 versions, see the thread at
-@uref{http://lists.gforge.inria.fr/pipermail/mpc-discuss/2011-February/000823.html}.
+@uref{https://sympa.inria.fr/sympa/arc/mpc-discuss/2011-02/msg00024.html}.
 And you need a
 standard Unix @samp{make} program, plus some other standard Unix utility
 programs.
@@ -210,7 +211,7 @@
 This will make sure GNU MPC was built correctly.
 
 If you get error messages, please report them to
-@samp{mpc-discuss@@lists.gforge.inria.fr} (@xref{Reporting Bugs}, for
+@samp{mpc-discuss@@inria.fr} (@xref{Reporting Bugs}, for
 information on what to include in useful bug reports).
 
 @item
@@ -289,7 +290,7 @@
 V8.0 for AIX, version: 08.00.0000.0021, GMP 4.2.4 and GNU MPFR 2.4.1.
 
 Please report any other problems you encounter to
-@samp{mpc-discuss@@lists.gforge.inria.fr}.
+@samp{mpc-discuss@@inria.fr}.
 @xref{Reporting Bugs}.
 
 @node Reporting Bugs
@@ -319,7 +320,7 @@
 version of the library; if the bug report is poor, we will not do anything about
 it (aside of chiding you to send better bug reports).
 
-Send your bug report to: @samp{mpc-discuss@@lists.gforge.inria.fr}.
+Send your bug report to: @samp{mpc-discuss@@inria.fr}.
 
 If you think something in this manual is unclear, or downright incorrect, or if
 the language needs to be improved, please send a note to the same address.
@@ -340,14 +341,16 @@
 @section Nomenclature and Types
 
 @cindex Complex number
-@tindex @code{mpc_t}
+@tindex mpc_t
+@tindex mpc_ptr
+@tindex mpc_srcptr
 @noindent
 @dfn{Complex number} or @dfn{Complex} for short, is a pair of two
 arbitrary precision floating-point numbers (for the real and imaginary parts).
 The C data type for such objects is @code{mpc_t}.
 
 @cindex Precision
-@tindex @code{mpfr_prec_t}
+@tindex mpfr_prec_t
 @noindent
 The @dfn{Precision} is the number of bits used to represent the mantissa
 of the real and imaginary parts;
@@ -361,7 +364,7 @@
 @end ifnotinfo
 
 @cindex Rounding Mode
-@tindex @code{mpc_rnd_t}
+@tindex mpc_rnd_t
 @noindent
 The @dfn{rounding mode} specifies the way to round the result of a
 complex operation, in case the exact result can not be represented
@@ -414,7 +417,9 @@
 
 A complex rounding mode is of the form @code{MPC_RNDxy} where
 @code{x} and @code{y} are one of @code{N} (to nearest), @code{Z} (towards
-zero), @code{U} (towards plus infinity), @code{D} (towards minus infinity).
+zero), @code{U} (towards plus infinity), @code{D} (towards minus infinity),
+@code{A} (away from zero, that is, towards plus or minus infinity depending
+on the sign of the number to be rounded).
 The first letter refers to the rounding mode for the real part,
 and the second one for the imaginary part.
 For example @code{MPC_RNDZU} indicates to round the real part towards zero,
@@ -492,6 +497,7 @@
 * Basic Arithmetic::
 * Power Functions and Logarithm::
 * Trigonometric Functions::
+* Modular Functions::
 * Miscellaneous Complex Functions::
 * Advanced Functions::
 * Internals::
@@ -549,12 +555,12 @@
 case the current allocated space for the mantissa of @var{x} is sufficient.
 @end deftypefun
 
-@deftypefun mpfr_prec_t mpc_get_prec (mpc_t @var{x})
+@deftypefun mpfr_prec_t mpc_get_prec (const mpc_t @var{x})
 If the real and imaginary part of @var{x} have the same precision, it is returned,
 otherwise, 0 is returned.
 @end deftypefun
 
-@deftypefun void mpc_get_prec2 (mpfr_prec_t* @var{pr}, mpfr_prec_t* @var{pi}, mpc_t @var{x})
+@deftypefun void mpc_get_prec2 (mpfr_prec_t* @var{pr}, mpfr_prec_t* @var{pi}, const mpc_t @var{x})
 Returns the precision of the real part of @var{x} via @var{pr} and of its imaginary part
 via @var{pi}.
 @end deftypefun
@@ -576,7 +582,7 @@
 If you need assignment functions that are not in the current API, you can
 define them using the @code{MPC_SET_X_Y} macro (@pxref{Advanced Functions}).
 
-@deftypefun int mpc_set (mpc_t @var{rop}, mpc_t @var{op}, mpc_rnd_t @var{rnd})
+@deftypefun int mpc_set (mpc_t @var{rop}, const mpc_t @var{op}, mpc_rnd_t @var{rnd})
 Set the value of @var{rop} from @var{op}, rounded to the precision of @var{rop}
 with the given rounding mode @var{rnd}.
 @end deftypefun
@@ -589,10 +595,10 @@
 @deftypefunx int mpc_set_ld (mpc_t @var{rop}, long double @var{op}, mpc_rnd_t @var{rnd})
 @deftypefunx int mpc_set_dc (mpc_t @var{rop}, double _Complex @var{op}, mpc_rnd_t @var{rnd})
 @deftypefunx int mpc_set_ldc (mpc_t @var{rop}, long double _Complex @var{op}, mpc_rnd_t @var{rnd})
-@deftypefunx int mpc_set_z (mpc_t @var{rop}, mpz_t @var{op} mpc_rnd_t @var{rnd})
-@deftypefunx int mpc_set_q (mpc_t @var{rop}, mpq_t @var{op} mpc_rnd_t @var{rnd})
-@deftypefunx int mpc_set_f (mpc_t @var{rop}, mpf_t @var{op} mpc_rnd_t @var{rnd})
-@deftypefunx int mpc_set_fr (mpc_t @var{rop}, mpfr_t @var{op}, mpc_rnd_t @var{rnd})
+@deftypefunx int mpc_set_z (mpc_t @var{rop}, const mpz_t @var{op} mpc_rnd_t @var{rnd})
+@deftypefunx int mpc_set_q (mpc_t @var{rop}, const mpq_t @var{op} mpc_rnd_t @var{rnd})
+@deftypefunx int mpc_set_f (mpc_t @var{rop}, const mpf_t @var{op} mpc_rnd_t @var{rnd})
+@deftypefunx int mpc_set_fr (mpc_t @var{rop}, const mpfr_t @var{op}, mpc_rnd_t @var{rnd})
 Set the value of @var{rop} from @var{op}, rounded to the precision of
 @var{rop} with the given rounding mode @var{rnd}.
 The argument @var{op} is interpreted as real, so the imaginary part of
@@ -611,10 +617,10 @@
 @deftypefunx int mpc_set_sj_sj (mpc_t @var{rop}, intmax_t @var{op1}, intmax_t @var{op2}, mpc_rnd_t @var{rnd})
 @deftypefunx int mpc_set_d_d (mpc_t @var{rop}, double @var{op1}, double @var{op2}, mpc_rnd_t @var{rnd})
 @deftypefunx int mpc_set_ld_ld (mpc_t @var{rop}, long double @var{op1}, long double @var{op2}, mpc_rnd_t @var{rnd})
-@deftypefunx int mpc_set_z_z (mpc_t @var{rop}, mpz_t @var{op1}, mpz_t @var{op2}, mpc_rnd_t @var{rnd})
-@deftypefunx int mpc_set_q_q (mpc_t @var{rop}, mpq_t @var{op1}, mpq_t @var{op2}, mpc_rnd_t @var{rnd})
-@deftypefunx int mpc_set_f_f (mpc_t @var{rop}, mpf_t @var{op1}, mpf_t @var{op2}, mpc_rnd_t @var{rnd})
-@deftypefunx int mpc_set_fr_fr (mpc_t @var{rop}, mpfr_t @var{op1}, mpfr_t @var{op2}, mpc_rnd_t @var{rnd})
+@deftypefunx int mpc_set_z_z (mpc_t @var{rop}, const mpz_t @var{op1}, const mpz_t @var{op2}, mpc_rnd_t @var{rnd})
+@deftypefunx int mpc_set_q_q (mpc_t @var{rop}, const mpq_t @var{op1}, const mpq_t @var{op2}, mpc_rnd_t @var{rnd})
+@deftypefunx int mpc_set_f_f (mpc_t @var{rop}, const mpf_t @var{op1}, const mpf_t @var{op2}, mpc_rnd_t @var{rnd})
+@deftypefunx int mpc_set_fr_fr (mpc_t @var{rop}, const mpfr_t @var{op1}, const mpfr_t @var{op2}, mpc_rnd_t @var{rnd})
 Set the real part of @var{rop} from @var{op1}, and its imaginary part from
 @var{op2}, according to the rounding mode @var{rnd}.
 
@@ -647,7 +653,7 @@
 The following functions are available only if @code{<complex.h>}
 is included @emph{before} @file{mpc.h}.
 
-@deftypefun double _Complex mpc_get_dc (mpc_t @var{op}, mpc_rnd_t @var{rnd})
+@deftypefun double _Complex mpc_get_dc (const mpc_t @var{op}, mpc_rnd_t @var{rnd})
 @deftypefunx {long double _Complex} mpc_get_ldc (mpc_t @var{op}, mpc_rnd_t @var{rnd})
 Convert @var{op} to a C complex number, using the rounding mode @var{rnd}.
 @end deftypefun
@@ -711,7 +717,7 @@
 NaN+i*NaN.
 @end deftypefun
 
-@deftypefun {char *} mpc_get_str (int @var{b}, size_t @var{n}, mpc_t @var{op}, mpc_rnd_t @var{rnd})
+@deftypefun {char *} mpc_get_str (int @var{b}, size_t @var{n}, const mpc_t @var{op}, mpc_rnd_t @var{rnd})
 Convert @var{op} to a string containing its real and imaginary parts,
 separated by a space and enclosed in a pair of parentheses.
 The numbers are written in base @var{b} (which may vary from 2 to 36) and
@@ -776,7 +782,7 @@
 to avoid this problem.
 @end deftypefun
 
-@deftypefun size_t mpc_out_str (FILE *@var{stream}, int @var{base}, size_t @var{n_digits}, mpc_t @var{op}, mpc_rnd_t @var{rnd})
+@deftypefun size_t mpc_out_str (FILE *@var{stream}, int @var{base}, size_t @var{n_digits}, const mpc_t @var{op}, mpc_rnd_t @var{rnd})
 Output @var{op} on stdio stream @var{stream} in
 base @var{base}, rounded according to @var{rnd}, in the same format

_service:tar_scm:mpc-1.2.0.tar.gz/doc/version.texi -> _service:tar_scm:mpc-1.3.1.tar.gz/doc/version.texi Changed

_service:tar_scm:mpc-1.2.0.tar.gz/m4/libtool.m4 -> _service:tar_scm:mpc-1.3.1.tar.gz/m4/libtool.m4 Changed

@@ -2867,6 +2867,9 @@
   # before this can be enabled.
   hardcode_into_libs=yes
 
+  # Add ABI-specific directories to the system library path.
+  sys_lib_dlsearch_path_spec="/lib64 /usr/lib64 /lib /usr/lib"
+
   # Ideally, we could use ldconfig to report *all* directores which are
   # searched for libraries, however this is still not possible.  Aside from not
   # being certain /sbin/ldconfig is available, command
@@ -2875,7 +2878,7 @@
   # appending ld.so.conf contents (and includes) to the search path.
   if test -f /etc/ld.so.conf; then
     lt_ld_extra=`awk '/^include / { system(sprintf("cd /etc; cat %s 2>/dev/null", \$2)); skip = 1; } { if (!skip) print \$0; skip = 0; }' < /etc/ld.so.conf | $SED -e 's/#.*//;/^	 *hwcap	 /d;s/:,	/ /g;s/=^=*$//;s/=^= * / /g;s/"//g;/^$/d' | tr '\n' ' '`
-    sys_lib_dlsearch_path_spec="/lib /usr/lib $lt_ld_extra"
+    sys_lib_dlsearch_path_spec="$sys_lib_dlsearch_path_spec $lt_ld_extra"
   fi
 
   # We used to test for /lib/ld.so.1 and disable shared libraries on

_service:tar_scm:mpc-1.2.0.tar.gz/m4/mpc.m4 -> _service:tar_scm:mpc-1.3.1.tar.gz/m4/mpc.m4 Changed

@@ -64,53 +64,6 @@
 # SYNOPSIS
 #
 #
-# MPC_C_CHECK_FLAG(FLAG,ACCUMULATOR)
-#
-# DESCRIPTION
-#
-# Checks if the C compiler accepts the flag FLAG
-# If yes, adds it to CFLAGS.
-
-AC_DEFUN(MPC_C_CHECK_FLAG, 
-   AX_C_CHECK_FLAG($1,,,CFLAGS="$CFLAGS $1")
-)
-
-
-#
-# SYNOPSIS
-#
-#
-# MPC_C_CHECK_WARNINGFLAGS
-#
-# DESCRIPTION
-#
-# For development version only: Checks if gcc accepts warning flags.
-# Adds accepted ones to CFLAGS.
-#
-AC_DEFUN(MPC_C_CHECK_WARNINGCFLAGS, 
-  AC_REQUIRE(AC_PROG_GREP)
-  if echo $VERSION | grep -c dev >/dev/null 2>&1 ; then
-    if test "x$GCC" = "xyes" -a "x$compiler" != "xicc"; then
-      MPC_C_CHECK_FLAG(-g)
-      MPC_C_CHECK_FLAG(-std=c99)
-      MPC_C_CHECK_FLAG(-Wno-long-long)
-      MPC_C_CHECK_FLAG(-Wall)
-      MPC_C_CHECK_FLAG(-Wextra)
-      MPC_C_CHECK_FLAG(-Wdeclaration-after-statement)
-      MPC_C_CHECK_FLAG(-Wshadow)
-      MPC_C_CHECK_FLAG(-Wstrict-prototypes)
-      MPC_C_CHECK_FLAG(-Wmissing-prototypes)
-      MPC_C_CHECK_FLAG(-Wno-unused-value)
-      MPC_C_CHECK_FLAG(-Wlogical-op)
-    fi
-  fi
-)
-
-
-#
-# SYNOPSIS
-#
-#
 # MPC_GMP_CC_CFLAGS
 #
 # DESCRIPTION

_service:tar_scm:mpc-1.2.0.tar.gz/src/Makefile.am -> _service:tar_scm:mpc-1.3.1.tar.gz/src/Makefile.am Changed

@@ -1,6 +1,6 @@
 ## src/Makefile.am -- Process this file with automake to produce Makefile.in
 ##
-## Copyright (C) 2008, 2009, 2010, 2011, 2012, 2016, 2018, 2020 INRIA
+## Copyright (C) 2008, 2009, 2010, 2011, 2012, 2016, 2018, 2020, 2022 INRIA
 ##
 ## This file is part of GNU MPC.
 ##
@@ -18,12 +18,12 @@
 ## along with this program. If not, see http://www.gnu.org/licenses/ .
 
 lib_LTLIBRARIES = libmpc.la
-libmpc_la_LDFLAGS = $(MPC_LDFLAGS) -version-info 5:0:2
+libmpc_la_LDFLAGS = $(MPC_LDFLAGS) -version-info 6:1:3
 libmpc_la_SOURCES = mpc-impl.h abs.c acos.c acosh.c add.c add_fr.c         \
-  add_si.c add_ui.c arg.c asin.c asinh.c atan.c atanh.c clear.c            \
+  add_si.c add_ui.c agm.c arg.c asin.c asinh.c atan.c atanh.c clear.c      \
   cmp.c cmp_abs.c cmp_si_si.c conj.c cos.c cosh.c                          \
   div_2si.c div_2ui.c div.c div_fr.c div_ui.c				   \
-  dot.c exp.c fma.c fr_div.c fr_sub.c get_prec2.c get_prec.c		   \
+  dot.c eta.c exp.c fma.c fr_div.c fr_sub.c get_prec2.c get_prec.c	   \
   get_version.c get_x.c imag.c init2.c init3.c inp_str.c log.c log10.c     \
   mem.c mul_2si.c mul_2ui.c mul.c mul_fr.c mul_i.c mul_si.c mul_ui.c       \
   neg.c norm.c out_str.c pow.c pow_fr.c                                    \
@@ -31,6 +31,7 @@
   urandom.c set.c 							   \
   set_prec.c set_str.c set_x.c set_x_x.c sin.c sin_cos.c sinh.c sqr.c      \
   sqrt.c strtoc.c sub.c sub_fr.c sub_ui.c sum.c swap.c tan.c tanh.c        \
-  uceil_log2.c ui_div.c ui_ui_sub.c
+  uceil_log2.c ui_div.c ui_ui_sub.c \
+  radius.c balls.c
 
 libmpc_la_LIBADD = @LTLIBOBJS@

_service:tar_scm:mpc-1.2.0.tar.gz/src/Makefile.in -> _service:tar_scm:mpc-1.3.1.tar.gz/src/Makefile.in Changed

@@ -1,7 +1,7 @@
-# Makefile.in generated by automake 1.16.2 from Makefile.am.
+# Makefile.in generated by automake 1.16.1 from Makefile.am.
 # @configure_input@
 
-# Copyright (C) 1994-2020 Free Software Foundation, Inc.
+# Copyright (C) 1994-2018 Free Software Foundation, Inc.
 
 # This Makefile.in is free software; the Free Software Foundation
 # gives unlimited permission to copy and/or distribute it,
@@ -90,8 +90,7 @@
 host_triplet = @host@
 subdir = src
 ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
-am__aclocal_m4_deps = $(top_srcdir)/m4/ax_c_check_flag.m4 \
-	$(top_srcdir)/m4/ax_gcc_option.m4 \
+am__aclocal_m4_deps = $(top_srcdir)/m4/ax_gcc_option.m4 \
 	$(top_srcdir)/m4/ax_gcc_version.m4 $(top_srcdir)/m4/libtool.m4 \
 	$(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \
 	$(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \
@@ -135,18 +134,19 @@
 LTLIBRARIES = $(lib_LTLIBRARIES)
 libmpc_la_DEPENDENCIES = @LTLIBOBJS@
 am_libmpc_la_OBJECTS = abs.lo acos.lo acosh.lo add.lo add_fr.lo \
-	add_si.lo add_ui.lo arg.lo asin.lo asinh.lo atan.lo atanh.lo \
-	clear.lo cmp.lo cmp_abs.lo cmp_si_si.lo conj.lo cos.lo cosh.lo \
-	div_2si.lo div_2ui.lo div.lo div_fr.lo div_ui.lo dot.lo exp.lo \
-	fma.lo fr_div.lo fr_sub.lo get_prec2.lo get_prec.lo \
-	get_version.lo get_x.lo imag.lo init2.lo init3.lo inp_str.lo \
-	log.lo log10.lo mem.lo mul_2si.lo mul_2ui.lo mul.lo mul_fr.lo \
-	mul_i.lo mul_si.lo mul_ui.lo neg.lo norm.lo out_str.lo pow.lo \
-	pow_fr.lo pow_ld.lo pow_d.lo pow_si.lo pow_ui.lo pow_z.lo \
-	proj.lo real.lo rootofunity.lo urandom.lo set.lo set_prec.lo \
-	set_str.lo set_x.lo set_x_x.lo sin.lo sin_cos.lo sinh.lo \
-	sqr.lo sqrt.lo strtoc.lo sub.lo sub_fr.lo sub_ui.lo sum.lo \
-	swap.lo tan.lo tanh.lo uceil_log2.lo ui_div.lo ui_ui_sub.lo
+	add_si.lo add_ui.lo agm.lo arg.lo asin.lo asinh.lo atan.lo \
+	atanh.lo clear.lo cmp.lo cmp_abs.lo cmp_si_si.lo conj.lo \
+	cos.lo cosh.lo div_2si.lo div_2ui.lo div.lo div_fr.lo \
+	div_ui.lo dot.lo eta.lo exp.lo fma.lo fr_div.lo fr_sub.lo \
+	get_prec2.lo get_prec.lo get_version.lo get_x.lo imag.lo \
+	init2.lo init3.lo inp_str.lo log.lo log10.lo mem.lo mul_2si.lo \
+	mul_2ui.lo mul.lo mul_fr.lo mul_i.lo mul_si.lo mul_ui.lo \
+	neg.lo norm.lo out_str.lo pow.lo pow_fr.lo pow_ld.lo pow_d.lo \
+	pow_si.lo pow_ui.lo pow_z.lo proj.lo real.lo rootofunity.lo \
+	urandom.lo set.lo set_prec.lo set_str.lo set_x.lo set_x_x.lo \
+	sin.lo sin_cos.lo sinh.lo sqr.lo sqrt.lo strtoc.lo sub.lo \
+	sub_fr.lo sub_ui.lo sum.lo swap.lo tan.lo tanh.lo \
+	uceil_log2.lo ui_div.lo ui_ui_sub.lo radius.lo balls.lo
 libmpc_la_OBJECTS = $(am_libmpc_la_OBJECTS)
 AM_V_lt = $(am__v_lt_@AM_V@)
 am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@)
@@ -173,15 +173,16 @@
 am__depfiles_remade = $(DEPDIR)/logging.Plo ./$(DEPDIR)/abs.Plo \
 	./$(DEPDIR)/acos.Plo ./$(DEPDIR)/acosh.Plo ./$(DEPDIR)/add.Plo \
 	./$(DEPDIR)/add_fr.Plo ./$(DEPDIR)/add_si.Plo \
-	./$(DEPDIR)/add_ui.Plo ./$(DEPDIR)/arg.Plo \
+	./$(DEPDIR)/add_ui.Plo ./$(DEPDIR)/agm.Plo ./$(DEPDIR)/arg.Plo \
 	./$(DEPDIR)/asin.Plo ./$(DEPDIR)/asinh.Plo \
 	./$(DEPDIR)/atan.Plo ./$(DEPDIR)/atanh.Plo \
-	./$(DEPDIR)/clear.Plo ./$(DEPDIR)/cmp.Plo \
-	./$(DEPDIR)/cmp_abs.Plo ./$(DEPDIR)/cmp_si_si.Plo \
-	./$(DEPDIR)/conj.Plo ./$(DEPDIR)/cos.Plo ./$(DEPDIR)/cosh.Plo \
-	./$(DEPDIR)/div.Plo ./$(DEPDIR)/div_2si.Plo \
-	./$(DEPDIR)/div_2ui.Plo ./$(DEPDIR)/div_fr.Plo \
-	./$(DEPDIR)/div_ui.Plo ./$(DEPDIR)/dot.Plo ./$(DEPDIR)/exp.Plo \
+	./$(DEPDIR)/balls.Plo ./$(DEPDIR)/clear.Plo \
+	./$(DEPDIR)/cmp.Plo ./$(DEPDIR)/cmp_abs.Plo \
+	./$(DEPDIR)/cmp_si_si.Plo ./$(DEPDIR)/conj.Plo \
+	./$(DEPDIR)/cos.Plo ./$(DEPDIR)/cosh.Plo ./$(DEPDIR)/div.Plo \
+	./$(DEPDIR)/div_2si.Plo ./$(DEPDIR)/div_2ui.Plo \
+	./$(DEPDIR)/div_fr.Plo ./$(DEPDIR)/div_ui.Plo \
+	./$(DEPDIR)/dot.Plo ./$(DEPDIR)/eta.Plo ./$(DEPDIR)/exp.Plo \
 	./$(DEPDIR)/fma.Plo ./$(DEPDIR)/fr_div.Plo \
 	./$(DEPDIR)/fr_sub.Plo ./$(DEPDIR)/get_prec.Plo \
 	./$(DEPDIR)/get_prec2.Plo ./$(DEPDIR)/get_version.Plo \
@@ -197,12 +198,13 @@
 	./$(DEPDIR)/pow_d.Plo ./$(DEPDIR)/pow_fr.Plo \
 	./$(DEPDIR)/pow_ld.Plo ./$(DEPDIR)/pow_si.Plo \
 	./$(DEPDIR)/pow_ui.Plo ./$(DEPDIR)/pow_z.Plo \
-	./$(DEPDIR)/proj.Plo ./$(DEPDIR)/real.Plo \
-	./$(DEPDIR)/rootofunity.Plo ./$(DEPDIR)/set.Plo \
-	./$(DEPDIR)/set_prec.Plo ./$(DEPDIR)/set_str.Plo \
-	./$(DEPDIR)/set_x.Plo ./$(DEPDIR)/set_x_x.Plo \
-	./$(DEPDIR)/sin.Plo ./$(DEPDIR)/sin_cos.Plo \
-	./$(DEPDIR)/sinh.Plo ./$(DEPDIR)/sqr.Plo ./$(DEPDIR)/sqrt.Plo \
+	./$(DEPDIR)/proj.Plo ./$(DEPDIR)/radius.Plo \
+	./$(DEPDIR)/real.Plo ./$(DEPDIR)/rootofunity.Plo \
+	./$(DEPDIR)/set.Plo ./$(DEPDIR)/set_prec.Plo \
+	./$(DEPDIR)/set_str.Plo ./$(DEPDIR)/set_x.Plo \
+	./$(DEPDIR)/set_x_x.Plo ./$(DEPDIR)/sin.Plo \
+	./$(DEPDIR)/sin_cos.Plo ./$(DEPDIR)/sinh.Plo \
+	./$(DEPDIR)/sqr.Plo ./$(DEPDIR)/sqrt.Plo \
 	./$(DEPDIR)/strtoc.Plo ./$(DEPDIR)/sub.Plo \
 	./$(DEPDIR)/sub_fr.Plo ./$(DEPDIR)/sub_ui.Plo \
 	./$(DEPDIR)/sum.Plo ./$(DEPDIR)/swap.Plo ./$(DEPDIR)/tan.Plo \
@@ -382,12 +384,12 @@
 top_builddir = @top_builddir@
 top_srcdir = @top_srcdir@
 lib_LTLIBRARIES = libmpc.la
-libmpc_la_LDFLAGS = $(MPC_LDFLAGS) -version-info 5:0:2
+libmpc_la_LDFLAGS = $(MPC_LDFLAGS) -version-info 6:1:3
 libmpc_la_SOURCES = mpc-impl.h abs.c acos.c acosh.c add.c add_fr.c         \
-  add_si.c add_ui.c arg.c asin.c asinh.c atan.c atanh.c clear.c            \
+  add_si.c add_ui.c agm.c arg.c asin.c asinh.c atan.c atanh.c clear.c      \
   cmp.c cmp_abs.c cmp_si_si.c conj.c cos.c cosh.c                          \
   div_2si.c div_2ui.c div.c div_fr.c div_ui.c				   \
-  dot.c exp.c fma.c fr_div.c fr_sub.c get_prec2.c get_prec.c		   \
+  dot.c eta.c exp.c fma.c fr_div.c fr_sub.c get_prec2.c get_prec.c	   \
   get_version.c get_x.c imag.c init2.c init3.c inp_str.c log.c log10.c     \
   mem.c mul_2si.c mul_2ui.c mul.c mul_fr.c mul_i.c mul_si.c mul_ui.c       \
   neg.c norm.c out_str.c pow.c pow_fr.c                                    \
@@ -395,7 +397,8 @@
   urandom.c set.c 							   \
   set_prec.c set_str.c set_x.c set_x_x.c sin.c sin_cos.c sinh.c sqr.c      \
   sqrt.c strtoc.c sub.c sub_fr.c sub_ui.c sum.c swap.c tan.c tanh.c        \
-  uceil_log2.c ui_div.c ui_ui_sub.c
+  uceil_log2.c ui_div.c ui_ui_sub.c \
+  radius.c balls.c
 
 libmpc_la_LIBADD = @LTLIBOBJS@
 all: all-am
@@ -484,11 +487,13 @@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/add_fr.Plo@am__quote@ # am--include-marker
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/add_si.Plo@am__quote@ # am--include-marker
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/add_ui.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/agm.Plo@am__quote@ # am--include-marker
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/arg.Plo@am__quote@ # am--include-marker
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/asin.Plo@am__quote@ # am--include-marker
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/asinh.Plo@am__quote@ # am--include-marker
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/atan.Plo@am__quote@ # am--include-marker
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/atanh.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/balls.Plo@am__quote@ # am--include-marker
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/clear.Plo@am__quote@ # am--include-marker
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmp.Plo@am__quote@ # am--include-marker
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/cmp_abs.Plo@am__quote@ # am--include-marker
@@ -502,6 +507,7 @@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/div_fr.Plo@am__quote@ # am--include-marker
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/div_ui.Plo@am__quote@ # am--include-marker
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/dot.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/eta.Plo@am__quote@ # am--include-marker
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/exp.Plo@am__quote@ # am--include-marker
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/fma.Plo@am__quote@ # am--include-marker
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/fr_div.Plo@am__quote@ # am--include-marker
@@ -535,6 +541,7 @@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pow_ui.Plo@am__quote@ # am--include-marker
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/pow_z.Plo@am__quote@ # am--include-marker
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/proj.Plo@am__quote@ # am--include-marker
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/radius.Plo@am__quote@ # am--include-marker
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/real.Plo@am__quote@ # am--include-marker
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/rootofunity.Plo@am__quote@ # am--include-marker
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/set.Plo@am__quote@ # am--include-marker
@@ -729,11 +736,13 @@
 	-rm -f ./$(DEPDIR)/add_fr.Plo
 	-rm -f ./$(DEPDIR)/add_si.Plo
 	-rm -f ./$(DEPDIR)/add_ui.Plo
+	-rm -f ./$(DEPDIR)/agm.Plo
 	-rm -f ./$(DEPDIR)/arg.Plo
 	-rm -f ./$(DEPDIR)/asin.Plo
 	-rm -f ./$(DEPDIR)/asinh.Plo
 	-rm -f ./$(DEPDIR)/atan.Plo
 	-rm -f ./$(DEPDIR)/atanh.Plo
+	-rm -f ./$(DEPDIR)/balls.Plo
 	-rm -f ./$(DEPDIR)/clear.Plo
 	-rm -f ./$(DEPDIR)/cmp.Plo
 	-rm -f ./$(DEPDIR)/cmp_abs.Plo
@@ -747,6 +756,7 @@
 	-rm -f ./$(DEPDIR)/div_fr.Plo
 	-rm -f ./$(DEPDIR)/div_ui.Plo
 	-rm -f ./$(DEPDIR)/dot.Plo
+	-rm -f ./$(DEPDIR)/eta.Plo
 	-rm -f ./$(DEPDIR)/exp.Plo
 	-rm -f ./$(DEPDIR)/fma.Plo
 	-rm -f ./$(DEPDIR)/fr_div.Plo
@@ -780,6 +790,7 @@
 	-rm -f ./$(DEPDIR)/pow_ui.Plo
 	-rm -f ./$(DEPDIR)/pow_z.Plo
 	-rm -f ./$(DEPDIR)/proj.Plo
+	-rm -f ./$(DEPDIR)/radius.Plo
 	-rm -f ./$(DEPDIR)/real.Plo
 	-rm -f ./$(DEPDIR)/rootofunity.Plo
 	-rm -f ./$(DEPDIR)/set.Plo
@@ -857,11 +868,13 @@
 	-rm -f ./$(DEPDIR)/add_fr.Plo
 	-rm -f ./$(DEPDIR)/add_si.Plo
 	-rm -f ./$(DEPDIR)/add_ui.Plo
+	-rm -f ./$(DEPDIR)/agm.Plo
 	-rm -f ./$(DEPDIR)/arg.Plo
 	-rm -f ./$(DEPDIR)/asin.Plo
 	-rm -f ./$(DEPDIR)/asinh.Plo
 	-rm -f ./$(DEPDIR)/atan.Plo
 	-rm -f ./$(DEPDIR)/atanh.Plo
+	-rm -f ./$(DEPDIR)/balls.Plo
 	-rm -f ./$(DEPDIR)/clear.Plo
 	-rm -f ./$(DEPDIR)/cmp.Plo
 	-rm -f ./$(DEPDIR)/cmp_abs.Plo
@@ -875,6 +888,7 @@
 	-rm -f ./$(DEPDIR)/div_fr.Plo
 	-rm -f ./$(DEPDIR)/div_ui.Plo
 	-rm -f ./$(DEPDIR)/dot.Plo

_service:tar_scm:mpc-1.3.1.tar.gz/src/agm.c Added

@@ -0,0 +1,244 @@
+/* mpc_agm -- AGM of a complex number.
+
+Copyright (C) 2022 INRIA
+
+This file is part of GNU MPC.
+
+GNU MPC 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.
+
+GNU MPC 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 this program. If not, see http://www.gnu.org/licenses/ .
+*/
+
+#include "mpc-impl.h"
+
+static int
+mpc_agm_angle_zero (mpc_ptr rop, mpc_srcptr a, mpc_srcptr b, mpc_rnd_t rnd,
+   int cmp)
+   /* AGM for angle 0 between a and b, but they are neither real nor
+      purely imaginary. cmp is mpc_cmp_abs (a, b). */
+{
+   mpfr_prec_t prec;
+   int inex;
+   mpc_t agm;
+   mpfr_t a0, b0;
+
+   prec = MPC_MAX_PREC (rop);
+
+   mpc_init2 (agm, 2);
+   mpfr_init2 (a0, 2);
+   mpfr_set_ui (a0, 1, MPFR_RNDN);
+   mpfr_init2 (b0, 2);
+
+   do {
+      prec += 20;
+      mpc_set_prec (agm, prec);
+      mpfr_set_prec (b0, prec);
+
+      if (cmp >= 0)
+         mpfr_div (b0, mpc_realref (b), mpc_realref (a), MPFR_RNDZ);
+      else
+         mpfr_div (b0, mpc_realref (a), mpc_realref (b), MPFR_RNDZ);
+
+      mpfr_agm (b0, a0, b0, MPFR_RNDN);
+
+      if (cmp >= 0)
+         mpc_mul_fr (agm, a, b0, MPC_RNDNN);
+      else
+         mpc_mul_fr (agm, b, b0, MPC_RNDNN);
+
+   } while (!mpfr_can_round (mpc_realref (agm), prec - 3,
+             MPFR_RNDN, MPFR_RNDU, mpfr_get_prec (mpc_realref (rop)) + 1)
+         || !mpfr_can_round (mpc_imagref (agm), prec - 3,
+             MPFR_RNDN, MPFR_RNDU, mpfr_get_prec (mpc_imagref (rop)) + 1));
+
+   inex = mpc_set (rop, agm, rnd);
+
+   mpc_clear (agm);
+   mpfr_clear (a0);
+   mpfr_clear (b0);
+
+   return inex;
+}
+
+
+static int
+mpc_agm_general (mpc_ptr rop, mpc_srcptr a, mpc_srcptr b, mpc_rnd_t rnd)
+   /* AGM for not extremely special numbers:
+      Finite, non-zero, and a != -b; if the angle is 0, then we are neither
+      in the real nor in the purely imaginary case.
+      We follow the strategy outlined in algorithms.tex. */
+{
+   mpc_t b0, a1, an, bn, anp1, bnp1;
+   int cmp, equal, n, i;
+   mpfr_prec_t prec, N, k1, L, exp_diff, kR, kI;
+   mpfr_exp_t exp_re_a1, exp_re_b0, exp_im_b0;
+   int okR, okI, inex;
+
+   /* Determine whether to compute AGM (1, b0) with b0 = a/b or b0 = b/a. */
+   cmp = mpc_cmp_abs (a, b);
+
+   /* Compute an approximation k1 of the precision loss in the first
+      iteration. */
+   mpc_init2 (b0, 2);
+   mpc_init2 (a1, 2);
+   prec = 1;
+   do {
+      prec *= 2;
+      mpc_set_prec (b0, prec);
+      mpc_set_prec (a1, prec);
+      if (cmp >= 0)
+         mpc_div (b0, b, a, MPC_RNDZZ);
+      else
+         mpc_div (b0, a, b, MPC_RNDZZ);
+      if (mpfr_zero_p (mpc_imagref (b0))
+         && mpfr_sgn (mpc_realref (b0)) > 0) {
+         mpc_clear (b0);
+         mpc_clear (a1);
+         return mpc_agm_angle_zero (rop, a, b, rnd, cmp);
+      }
+      mpc_add_ui (a1, b0, 1, MPC_RNDNN);
+      mpc_div_2ui (a1, a1, 1, MPC_RNDNN);
+      exp_re_a1 = mpfr_get_exp (mpc_realref (a1));
+   } while (exp_re_a1 == -prec);
+   exp_re_b0 = mpfr_get_exp (mpc_realref (b0));
+   exp_im_b0 = mpfr_get_exp (mpc_imagref (b0));
+   mpc_clear (a1);
+   mpc_clear (b0);
+   k1 = MPC_MAX (3, - 2 * exp_re_a1 - 2);
+
+   /* Compute the number n of iterations and the target precision. */
+   N = MPC_MAX_PREC (rop) + 20;
+      /* 20 is an arbitrary safety margin. */
+   do {
+      /* With the notation of algorithms.tex, compute 2*L, which is
+         an integer; then correct this when taking the logarithm. */
+      if (exp_im_b0 <= -1)
+         if (exp_re_b0 <= -1)
+            L = MPC_MAX (6, - MPC_MAX (exp_re_b0, exp_im_b0) + 1);
+         else if (exp_re_a1 <= -2)
+            L = - 2 * MPC_MAX (exp_re_a1, exp_im_b0 - 1) + 3;
+         else
+            L = 6;
+      else
+         L = 6;
+      L = MPC_MAX (1, mpc_ceil_log2 (L) - 1);
+      n = L + mpc_ceil_log2 (N + 4) + 3;
+      prec = N + (n + k1 + 7 + 1) / 2;
+
+      mpc_init2 (an, prec);
+      mpc_init2 (bn, prec);
+      mpc_init2 (anp1, prec);
+      mpc_init2 (bnp1, prec);
+
+      /* Compute the argument for AGM (1, b0) at the working precision. */
+      if (cmp >= 0)
+         mpc_div (bn, b, a, MPC_RNDZZ);
+      else
+         mpc_div (bn, a, b, MPC_RNDZZ);
+      mpc_set_ui (an, 1, MPC_RNDNN);
+
+      equal = 0;
+      /* In practice, a fixed point of the AGM operation is reached before
+         the last iteration, so we may stop when an==anp1 and bn==bnp1.
+         Also in practice one observes that often one iteration earlier one
+         has an==bn, which is also tested for an early abort strategy. */
+      /* Execute the AGM iterations. */
+      for (i = 1; !equal && i <= n; i++) {
+         mpc_add (anp1, an, bn, MPC_RNDNN);
+         mpc_div_2ui (anp1, anp1, 1, MPC_RNDNN);
+         mpc_mul (bnp1, an, bn, MPC_RNDNN);
+         mpc_sqrt (bnp1, bnp1, MPC_RNDNN);
+         equal = (mpc_cmp (an, anp1) == 0 && mpc_cmp (bn, bnp1) == 0)
+                 || mpc_cmp (anp1, bnp1) == 0;
+         mpc_swap (an, anp1);
+         mpc_swap (bn, bnp1);
+      }
+
+      /* Remultiply. */
+      if (cmp >= 0)
+         mpc_mul (an, an, a, MPC_RNDNN);
+      else
+         mpc_mul (an, an, b, MPC_RNDNN);
+
+      exp_diff = mpfr_get_exp (mpc_imagref (an))
+         - mpfr_get_exp (mpc_realref (an));
+      kR = MPC_MAX (exp_diff + 1, 0);
+      kI = MPC_MAX (-exp_diff + 1, 0);
+      /* Use the trick of asking mpfr_can_round whether it can do a directed
+         rounding at precision + 1; then the whole uncertainty interval is
+         contained in the upper or the lower half of the interval between two
+         representable numbers, and mpc_set reveals the inexact value
+         regardless of the rounding direction. */
+      okR = mpfr_can_round (mpc_realref (an), N - kR,
+            MPFR_RNDN, MPFR_RNDU, mpfr_get_prec (mpc_realref (rop)) + 1);
+      okI = mpfr_can_round (mpc_imagref (an), N - kI,
+            MPFR_RNDN, MPFR_RNDU, mpfr_get_prec (mpc_imagref (rop)) + 1);
+
+      if (!okR || !okI)
+         /* Until a counterexample is found, we assume that this happens
+            only once and increase the precision only moderately. */
+         N += MPC_MAX (kR, kI);
+   } while (!okR || !okI);
+
+   inex = mpc_set (rop, an, rnd);
+
+   mpc_clear (an);
+   mpc_clear (bn);
+   mpc_clear (anp1);
+   mpc_clear (bnp1);
+
+   return inex;

_service:tar_scm:mpc-1.2.0.tar.gz/src/asin.c -> _service:tar_scm:mpc-1.3.1.tar.gz/src/asin.c Changed

@@ -1,6 +1,6 @@
 /* mpc_asin -- arcsine of a complex number.
 
-Copyright (C) 2009, 2010, 2011, 2012, 2013, 2014, 2020 INRIA
+Copyright (C) 2009, 2010, 2011, 2012, 2013, 2014, 2020, 2022 INRIA
 
 This file is part of GNU MPC.
 
@@ -19,6 +19,7 @@
 */
 
 #include <stdio.h>
+#include <limits.h> /* for ULONG_MAX */
 #include "mpc-impl.h"
 
 /* Special case op = 1 + i*y for tiny y (see algorithms.tex).
@@ -151,20 +152,22 @@
      relative error */
   ex = mpfr_get_exp (mpc_realref (s));
   /* ulp(Re(s)) = 2^(ex+1-p) */
-  if (ex+1 > e) /* divide kx by 2^(ex+1-e) */
-    while (ex+1 > e)
+  err = 0;
+  /* invariant: the error will be kx*2^err */
+  if (ex + 1 > e) /* divide kx by 2^(ex+1-e) */
+    while (ex + 1 > e)
       {
         kx = (kx + 1) / 2;
-        ex --;
+        ex--;
       }
-  else /* multiply kx by 2^(e-(ex+1)) */
-    kx <<= e - (ex+1);
-  /* now the rounding error is bounded by kx*ulp(Re(s)), add the
+  else /* multiply the error by 2^(e-(ex+1)), thus add e-(ex+1) to err */
+    err += e - (ex + 1);
+  /* now the rounding error is bounded by kx*2^err*ulp(Re(s)), add the
      mathematical error which is bounded by ulp(Re(s)): the first neglected
      term is less than 1/2*ulp(Re(s)), and each term decreases by at least
      a factor 2, since |z^2| <= 1/2. */
-  kx ++;
-  for (err = 0; kx > 2; err ++, kx = (kx + 1) / 2);
+  kx++;
+  for (; kx > 2; err++, kx = (kx + 1) / 2);
   /* can we round Re(s) with error less than 2^(EXP(Re(s))-err) ? */
   if (!mpfr_can_round (mpc_realref (s), p - err, MPFR_RNDN, MPFR_RNDZ,
                        mpfr_get_prec (mpc_realref (rop)) +
@@ -178,86 +181,111 @@
      (see algorithms.tex) */
   e = mpfr_get_exp (mpc_imagref (z));
   /* ulp(Im(s)) = 2^(ey+1-p) */
-  if (ey+1 > e) /* divide ky by 2^(ey+1-e) */
-    while (ey+1 > e)
+  if (ey + 1 > e) /* divide ky by 2^(ey+1-e) */
+    while (ey + 1 > e)
       {
         ky = (ky + 1) / 2;
-        ey --;
+        ey--;
       }
   else /* multiply ky by 2^(e-(ey+1)) */
-    ky <<= e - (ey+1);
+    ky <<= e - (ey + 1);
   /* now the rounding error is bounded by ky*ulp(Im(s)), add the
      mathematical error which is bounded by ulp(Im(s)): the first neglected
      term is less than 1/2*ulp(Im(s)), and each term decreases by at least
      a factor 2, since |z^2| <= 1/2. */
-  ky ++;
-  for (err = 0; ky > 2; err ++, ky = (ky + 1) / 2);
+  ky++;
+  for (err = 0; ky > 2; err++, ky = (ky + 1) / 2);
   /* can we round Im(s) with error less than 2^(EXP(Im(s))-err) ? */
   return mpfr_can_round (mpc_imagref (s), p - err, MPFR_RNDN, MPFR_RNDZ,
                          mpfr_get_prec (mpc_imagref (rop)) +
                          (MPC_RND_IM(rnd) == MPFR_RNDN));
 }
 
-/* Put in s an approximation of asin(z) for |Re(z)| < 1 and tiny Im(y)
-   (see algorithms.tex). Assume z = x + i*y:
-   |Re(asin(z)) - asin(x)| <= Pi*beta^2/(1-beta)
-   |Im(asin(z)) - y/sqrt(1-x^2)| <= Pi/2*beta^2/(1-beta)
-   where beta = |y|/(1-|x|).
-   We assume |x| >= 1/2 > |y| here, thus beta < 1, and the bounds
-   simplify to 16y^2.
-   Assume Re(s) and Im(s) have the same precision.
-   Return non-zero if we can get the correct result by rounding s:
-   mpc_set (rop, s, ...) */
-static int
-mpc_asin_tiny (mpc_srcptr rop, mpc_ptr s, mpc_srcptr z, mpc_rnd_t rnd)
+
+static int /* bool */
+asin_taylor1 (int *inex, mpc_ptr rop, mpc_srcptr z, mpc_rnd_t rnd)
+   /* Write z = x + i*y and assume |x| < 1/2 and |y| < 1/4, that is,
+      Exp (x) <= -1 and Exp (y) <= -2; this also implies |z| < 1.
+      The function computes the Taylor series of order 1 around x
+         asin (z) \approx asin (x) + i * y / sqrt (1 - x^2)
+      with error term bounded above by Pi/2 * beta^2 / (1 - beta)
+      where beta = |y| / (1 - |x|), see algorithms.tex.
+      If the result can be rounded in direction rnd to rop, the value is
+      stored in rop, the inexact value is stored in inex, and true is
+      returned; otherwise rop and inex are not changed, and false
+      is returned. */
 {
-  mpfr_exp_t ey, e1, e2, es;
-  mpfr_prec_t p = mpfr_get_prec (mpc_realref (s)), err;
+   mpfr_exp_t ex, ey, es, err;
+   mpfr_prec_t prec_re, prec_im, prec;
+   mpfr_srcptr x, y;
+   mpfr_t s, t;
+   int inex_re, inex_im, ok;
+
+   /* We have asin (x) ~ x,
+      |y| <= |y| / sqrt (1 - x^2) <= sqrt (4/3) * |y|,
+      beta <= 2 * |y| < 1/2, 1 / 1 - beta < 2 and the error term is bounded
+      above by 4 * Pi * |y|^2 < 13 * |y|^2 < 16 * |y|^2.
+      So to have a chance to round the imaginary part, we need roughly
+      log_2 (error term) \approx 2 * Exp (y) + 4
+      <= log_2 (ulp (y)) \approx Exp (y) - prec (imag (rop)), or
+      Exp (y) <= -prec (imag (rop)) - 4.
+      For the real part, we need
+      2 * Exp (y) + 4 <= Exp (x) - prec (real (rop)), or
+      Exp (x) >= 2 * Exp (y) + 4 + prec (real (rop)).
+      Check this first. */
+   x = mpc_realref (z);
+   y = mpc_imagref (z);
+   ex = mpfr_get_exp (x);
+   ey = mpfr_get_exp (y);
+   prec_re = mpfr_get_prec (mpc_realref (rop));
+   prec_im = mpfr_get_prec (mpc_imagref (rop));
+   if (ey > - prec_im - 4 || ex < 2 * ey + 4 + prec_re)
+      return 0;
 
-  ey = mpfr_get_exp (mpc_imagref (z));
+   /* Real part. */
+   prec = prec_re + 7;
+   mpfr_init2 (s, prec);
+   mpfr_asin (s, x, MPFR_RNDN);
+   /* The error is bounded above by 13*|y|^2 + 1/2 * 2^(Exp (s) - prec)
+      <= 2^(max (2 * Exp (y) + 5, Exp (s) - prec)). */
+   es = mpfr_get_exp (s);
+   err = MPC_MAX (2 * ey + 5, es - prec);
+   ok = mpfr_can_round (s, es - err, MPFR_RNDN, MPFR_RNDZ,
+      mpfr_get_prec (mpc_realref (rop))
+         + (MPC_RND_RE (rnd) == MPFR_RNDN));
+
+   if (ok) {
+      /* Imaginary part. */
+      prec = prec_im + 7;
+      mpfr_init2 (t, prec);
+      mpfr_mul (t, x, x, MPFR_RNDU); /* 0 < t <= 1/4, error 1 ulp */
+      mpfr_ui_sub (t, 1, t, MPFR_RNDD);
+         /* 3/4 <= t < 1, error 2 ulp, epsilon- = 0 since rounded down */
+      mpfr_sqrt (t, t, MPFR_RNDD);
+         /* error 3 ulp: propagation error stable since epsilon- = 0,
+            1 ulp for rounding; see ssec:proprealsqrt in algorithms.tex */
+      mpfr_div (t, y, t, MPFR_RNDA);
+         /* error 7 ulp: since denominator rounded down, previous error
+            multiplied by 2, 1 ulp additional rounding error */
+      ok = mpfr_can_round (t, prec - 3, MPFR_RNDA, MPFR_RNDZ,
+         mpfr_get_prec (mpc_imagref (rop))
+            + (MPC_RND_IM (rnd) == MPFR_RNDN));
+
+      if (ok) {
+         inex_re = mpfr_set (mpc_realref (rop), s, MPC_RND_RE (rnd));
+         inex_im = mpfr_set (mpc_imagref (rop), t, MPC_RND_IM (rnd));
+         *inex = MPC_INEX (inex_re, inex_im);
+      }
 
-  MPC_ASSERT(mpfr_get_exp (mpc_realref (z)) >= 0); /* |x| >= 1/2 */
-  MPC_ASSERT(ey < 0);  /* |y| < 1/2 */
+      mpfr_clear (t);
+   }
 
-  e2 = 2 * ey + 4;
-  /* for |x| >= 0.5, |asin x| >= 0.5, thus no need to compute asin(x)
-     if 16y^2 >= 1/2 ulp(1) for the target variable */
-  if (e2 >= - (mpfr_exp_t) mpfr_get_prec (mpc_realref (rop)))
-    return 0;
+   mpfr_clear (s);
 
-  /* real part */
-  mpfr_asin (mpc_realref (s), mpc_realref (z), MPFR_RNDN);
-  /* check that we can round with error < 16y^2 */
-  e1 = mpfr_get_exp (mpc_realref (s)) - p;
-  err = (e1 >= e2) ? 0 : e2 - e1;
-  if (!mpfr_can_round (mpc_realref (s), p - err, MPFR_RNDN, MPFR_RNDZ,
-                       mpfr_get_prec (mpc_realref (rop)) +
-                       (MPC_RND_RE(rnd) == MPFR_RNDN)))
-    return 0;
-
-  /* now compute the approximate imaginary part y/sqrt(1-x^2) */
-  mpfr_sqr (mpc_imagref (s), mpc_realref (z), MPFR_RNDN);
-  /* now Im(s) approximates x^2, with 1/4 <= Im(s) <= 1 and absolute error
-     less than 2^-p */
-  mpfr_ui_sub (mpc_imagref (s), 1, mpc_imagref (s), MPFR_RNDN);
-  /* now Im(s) approximates 1-x^2, with 0 <= Im(s) <= 3/4, assuming p >= 2,
-     and absolute error less than 2^(1-p) */
-  mpfr_sqrt (mpc_imagref (s), mpc_imagref (s), MPFR_RNDN); /* sqrt(1-x^2) */
-  es = mpfr_get_exp (mpc_imagref (s));
-  /* now Im(s) approximates sqrt(1-x^2), with 0 <= Im(s) <= 7/8,

_service:tar_scm:mpc-1.2.0.tar.gz/src/atan.c -> _service:tar_scm:mpc-1.3.1.tar.gz/src/atan.c Changed

@@ -1,6 +1,6 @@
 /* mpc_atan -- arctangent of a complex number.
 
-Copyright (C) 2009, 2010, 2011, 2012, 2013, 2017, 2020 INRIA
+Copyright (C) 2009, 2010, 2011, 2012, 2013, 2017, 2020, 2022 INRIA
 
 This file is part of GNU MPC.
 
@@ -140,10 +140,10 @@
         {
           /* atan(+0+iy) = +pi/2 +i*atanh(1/y), if |y| > 1
              atan(-0+iy) = -pi/2 +i*atanh(1/y), if |y| > 1 */
-          mpfr_rnd_t rnd_im, rnd_away;
+          mpfr_rnd_t rnd_im;
           mpfr_t y, z;
           mpfr_prec_t p, p_im;
-          int ok;
+          int ok = 0;
 
           rnd_im = MPC_RND_IM (rnd);
           mpfr_init (y);
@@ -167,8 +167,7 @@
               p += mpc_ceil_log2 (p) + 2;
               mpfr_set_prec (y, p);
               mpfr_set_prec (z, p);
-              rnd_away = s_im == 0 ? MPFR_RNDU : MPFR_RNDD;
-              inex_im = mpfr_ui_div (y, 1, mpc_imagref (op), rnd_away);
+              inex_im = mpfr_ui_div (y, 1, mpc_imagref (op), MPFR_RNDA);
               exp_a = mpfr_get_exp (y);
               /* FIXME: should we consider the case with unreasonably huge
                  precision prec(y)>3*exp_min, where atanh(1/Im(op)) could be
@@ -189,7 +188,7 @@
               mpfr_ui_sub (z, 1, z, MPFR_RNDZ);
 
               /* atanh cannot underflow: |atanh(x)| > |x| for |x| < 1 */
-              inex_im |= mpfr_atanh (y, y, rnd_away);
+              inex_im |= mpfr_atanh (y, y, MPFR_RNDA);
 
               /* the error is now bounded by ulp(b) + 1/z*ulp(a), thus
                  ulp(b) + 2^(exp(a) - exp(b) + 1 - exp(z)) * ulp(b) */
@@ -202,7 +201,7 @@
               /* the error is bounded by 2^err ulps */
 
               ok = inex_im == 0
-                || mpfr_can_round (y, p - err, rnd_away, MPFR_RNDZ,
+                || mpfr_can_round (y, p - err, MPFR_RNDA, MPFR_RNDZ,
                                    p_im + (rnd_im == MPFR_RNDN));
             } while (ok == 0);

_service:tar_scm:mpc-1.3.1.tar.gz/src/balls.c Added

@@ -0,0 +1,427 @@
+/* balls -- Functions for complex ball arithmetic.
+
+Copyright (C) 2018, 2020, 2021, 2022 INRIA
+
+This file is part of GNU MPC.
+
+GNU MPC 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.
+
+GNU MPC 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 this program. If not, see http://www.gnu.org/licenses/ .
+*/
+
+#include <limits.h> /* for CHAR_BIT */
+#include <stdio.h>  /* for FILE */
+#include "mpc-impl.h"
+
+void mpcb_out_str (FILE *f, mpcb_srcptr op)
+{
+   mpc_out_str (f, 10, 0, op->c, MPC_RNDNN);
+   fprintf (f, " ");
+   mpcr_out_str (f, op->r);
+   fprintf (f, "\n");
+}
+
+void
+mpcb_init (mpcb_ptr rop)
+{
+   mpc_init2 (rop->c, 2);
+   mpcr_set_inf (rop->r);
+}
+
+
+void
+mpcb_clear (mpcb_ptr rop)
+{
+   mpc_clear (rop->c);
+}
+
+
+mpfr_prec_t
+mpcb_get_prec (mpcb_srcptr op)
+{
+   return mpc_get_prec (op->c);
+}
+
+
+void
+mpcb_set_prec (mpcb_ptr rop, mpfr_prec_t prec)
+{
+   mpc_set_prec (rop->c, prec);
+   mpcr_set_inf (rop->r);
+}
+
+
+void
+mpcb_set (mpcb_ptr rop, mpcb_srcptr op)
+{
+   if (rop != op) {
+      mpc_set_prec (rop->c, mpc_get_prec (op->c));
+      mpc_set (rop->c, op->c, MPC_RNDNN);
+      mpcr_set (rop->r, op->r);
+   }
+}
+
+
+void
+mpcb_set_inf (mpcb_ptr rop)
+{
+   mpc_set_prec (rop->c, 2);
+   mpc_set_ui_ui (rop->c, 0, 0, MPC_RNDNN);
+   mpcr_set_inf (rop->r);
+}
+
+
+void
+mpcb_set_c (mpcb_ptr rop, mpc_srcptr op, mpfr_prec_t prec,
+   unsigned long int err_re, unsigned long int err_im)
+   /* Set the precision of rop to prec and assign a ball with centre op
+      to it. err_re and err_im contain potential errors in the real and
+      imaginary parts of op as multiples of a half ulp. For instance,
+      if the real part of op is exact, err_re should be set to 0;
+      if it is the result of rounding to nearest, it should be set to 1;
+      if it is the result of directed rounding, it should be set to 2.
+      The radius of the ball reflects err_re and err_im and the potential
+      additional rounding error that can occur when the precision of op
+      is higher than prec. If the real part of op is 0, then err_re
+      should be 0, since then ulp notation makes no sense, and similarly
+      for the imaginary part; otherwise the radius is set to infinity.
+      The implementation takes potential different precisions in the real
+      and imaginary parts of op into account. */
+{
+   int inex;
+   mpcr_t relerr_re, relerr_im;
+
+   mpc_set_prec (rop->c, prec);
+   inex = mpc_set (rop->c, op, MPC_RNDNN);
+
+   if (   (mpfr_zero_p (mpc_realref (op)) && err_re > 0)
+       || (mpfr_zero_p (mpc_imagref (op)) && err_im > 0)
+       || !mpc_fin_p (op))
+       mpcr_set_inf (rop->r);
+   else {
+      mpcr_set_ui64_2si64 (relerr_re, (uint64_t) err_re,
+         (int64_t) (-mpfr_get_prec (mpc_realref (op))));
+         /* prop:relerror of algorithms.tex */
+      if (MPC_INEX_RE (inex))
+         mpcr_add_rounding_error (relerr_re, prec, MPFR_RNDN);
+      mpcr_set_ui64_2si64 (relerr_im, (uint64_t) err_im,
+         (int64_t) (-mpfr_get_prec (mpc_imagref (op))));
+      if (MPC_INEX_IM (inex))
+         mpcr_add_rounding_error (relerr_im, prec, MPFR_RNDN);
+      mpcr_max (rop->r, relerr_re, relerr_im);
+         /* prop:comrelerror in algorithms.tex */
+   }
+}
+
+
+void
+mpcb_set_ui_ui (mpcb_ptr z, unsigned long int re, unsigned long int im,
+   mpfr_prec_t prec)
+   /* Set the precision of z to prec and assign a ball with centre
+      re+I*im to it. If prec is too small to hold the centre coordinates
+      without rounding, use the minimal possible precision instead. */
+{
+   prec = MPC_MAX (prec,
+      (mpfr_prec_t) (CHAR_BIT * sizeof (unsigned long int)));
+   mpc_set_prec (z->c, prec);
+   mpc_set_ui_ui (z->c, re, im, MPC_RNDNN);
+   mpcr_set_zero (z->r);
+}
+
+
+void
+mpcb_neg (mpcb_ptr z, mpcb_srcptr z1)
+{
+   mpfr_prec_t p;
+   int overlap = (z == z1);
+
+   if (!overlap) {
+      p = mpcb_get_prec (z1);
+      if (mpcb_get_prec (z) != p)
+         mpcb_set_prec (z, p);
+   }
+
+   mpc_neg (z->c, z1->c, MPC_RNDNN); /* exact */
+   mpcr_set (z->r, z1->r);
+}
+
+
+void
+mpcb_mul (mpcb_ptr z, mpcb_srcptr z1, mpcb_srcptr z2)
+{
+   mpcr_t r;
+   mpfr_prec_t p = MPC_MIN (mpcb_get_prec (z1), mpcb_get_prec (z2));
+   int overlap = (z == z1 || z == z2);
+   mpc_t zc;
+
+   if (overlap)
+      mpc_init2 (zc, p);
+   else {
+      zc 0 = z->c 0;
+      mpc_set_prec (zc, p);
+   }
+   mpc_mul (zc, z1->c, z2->c, MPC_RNDNN);
+   if (overlap)
+      mpc_clear (z->c);
+   z->c 0 = zc 0;
+
+   /* generic error of multiplication */
+   mpcr_mul (r, z1->r, z2->r);
+   mpcr_add (r, r, z1->r);
+   mpcr_add (r, r, z2->r);
+   /* error of rounding to nearest */
+   mpcr_add_rounding_error (r, p, MPFR_RNDN);
+   mpcr_set (z->r, r);
+}
+
+
+void
+mpcb_sqr (mpcb_ptr z, mpcb_srcptr z1)
+{
+   mpcr_t r, r2;
+   mpfr_prec_t p = mpcb_get_prec (z1);
+   int overlap = (z == z1);
+
+   /* Compute the error first in case there is overlap. */
+   mpcr_mul_2ui (r2, z1->r, 1);
+   mpcr_sqr (r, z1->r);
+   mpcr_add (r, r, r2);
+   mpcr_add_rounding_error (r, p, MPFR_RNDN);
+

_service:tar_scm:mpc-1.2.0.tar.gz/src/clear.c -> _service:tar_scm:mpc-1.3.1.tar.gz/src/clear.c Changed

_service:tar_scm:mpc-1.2.0.tar.gz/src/div.c -> _service:tar_scm:mpc-1.3.1.tar.gz/src/div.c Changed

_service:tar_scm:mpc-1.3.1.tar.gz/src/eta.c Added

@@ -0,0 +1,311 @@
+/* eta -- Functions for computing the Dedekind eta function
+
+Copyright (C) 2022 INRIA
+
+This file is part of GNU MPC.
+
+GNU MPC 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.
+
+GNU MPC 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 this program. If not, see http://www.gnu.org/licenses/ .
+*/
+
+#include <math.h>
+#include <limits.h> /* for CHAR_BIT */
+#include "mpc-impl.h"
+
+static void
+eta_series (mpcb_ptr eta, mpcb_srcptr q, mpfr_exp_t expq, int N)
+   /* Evaluate 2N+1 terms of the Dedekind eta function without the q^(1/24)
+      factor (where internally N is taken to be at least 1).
+      expq is an upper bound on the exponent of |q|, valid everywhere
+      inside the ball; for the error analysis to hold the function assumes
+      that expq < -1, which implies |q| < 1/4. */
+{
+   const mpfr_prec_t p = mpcb_get_prec (q);
+   mpcb_t q2, qn, q2n1, q3nm1, q3np1;
+   int M, n;
+   mpcr_t r, r2;
+
+   mpcb_init (q2);
+   mpcb_init (qn);
+   mpcb_init (q2n1);
+   mpcb_init (q3nm1);
+   mpcb_init (q3np1);
+
+   mpcb_sqr (q2, q);
+
+   /* n = 0 */
+   mpcb_set_ui_ui (eta, 1, 0, p);
+
+   /* n = 1 */
+   mpcb_set (qn, q); /* q^n */
+   mpcb_neg (q2n1, q); /* -q^(2n-1) */
+   mpcb_neg (q3nm1, q); /* +- q^((3n-1)*n/2) */
+   mpcb_neg (q3np1, q2); /* +- q^(3n+1)*n/2) */
+   mpcb_add (eta, eta, q3nm1);
+   mpcb_add (eta, eta, q3np1);
+
+   N = MPC_MAX (1, N);
+   for (n = 2; n <= N; n++) {
+      mpcb_mul (qn, qn, q);
+      mpcb_mul (q2n1, q2n1, q2);
+      mpcb_mul (q3nm1, q3np1, q2n1);
+      mpcb_mul (q3np1, q3nm1, qn);
+      mpcb_add (eta, eta, q3nm1);
+      mpcb_add (eta, eta, q3np1);
+   }
+
+   /* Compute the relative error due to the truncation of the series
+      as explained in algorithms.tex. */
+   M = (3 * (N+1) - 1) * (N+1) / 2;
+   mpcr_set_one (r);
+   mpcr_div_2ui (r, r, (unsigned long int) (- (M * expq + 1)));
+
+   /* Compose the two relative errors. */
+   mpcr_mul (r2, r, eta->r);
+   mpcr_add (eta->r, eta->r, r);
+   mpcr_add (eta->r, eta->r, r2);
+
+   mpcb_clear (q2);
+   mpcb_clear (qn);
+   mpcb_clear (q2n1);
+   mpcb_clear (q3nm1);
+   mpcb_clear (q3np1);
+}
+
+
+static void
+mpcb_eta_q24 (mpcb_ptr eta, mpcb_srcptr q24)
+   /* Assuming that q24 is a ball containing
+      q^{1/24} = exp (2 * pi * i * z / 24) for z in the fundamental domain,
+      the function computes eta (z).
+      In fact it works on a larger domain and checks that |q|=|q24^24| < 1/4
+      in the ball; otherwise or if in doubt it returns infinity. */
+{
+   mpcb_t q;
+   mpfr_exp_t expq;
+   int N;
+
+   mpcb_init (q);
+
+   mpcb_pow_ui (q, q24, 24);
+
+   /* We need an upper bound on the exponent of |q|. Writing q as having
+      the centre x+i*y and the radius r, we have
+      |q| =  sqrt (x^2+y^2) |1+\theta| with |theta| <= r
+          <= (1 + r) \sqrt 2 max (|x|, |y|)
+          <  2^{max (Exp x, Exp y) + 1}
+      assuming that r < sqrt 2 - 1, which is the case for r < 1/4
+      or Exp r < -1.
+      Then Exp (|q|) <= max (Exp x, Exp y) + 1. */
+   if (mpcr_inf_p (q->r) || mpcr_get_exp (q->r) >= -1)
+      mpcb_set_inf (eta);
+   else {
+      expq = MPC_MAX (mpfr_get_exp (mpc_realref (q->c)),
+                      mpfr_get_exp (mpc_imagref (q->c))) + 1;
+      if (expq >= -1)
+         mpcb_set_inf (eta);
+      else {
+         /* Compute an approximate N such that
+            (3*N+1)*N/2 * |expq| > prec. */
+         N = (int) sqrt (2 * mpcb_get_prec (q24) / 3.0 / (-expq)) + 1;
+         eta_series (eta, q, expq, N);
+         mpcb_mul (eta, eta, q24);
+      }
+   }
+
+   mpcb_clear (q);
+}
+
+
+static void
+q24_from_z (mpcb_ptr q24, mpc_srcptr z, unsigned long int err_re,
+   unsigned long int err_im)
+   /* Given z=x+i*y, compute q24 = exp (pi*i*z/12).
+      err_re and err_im are a priori errors (in 1/2 ulp) of x and y,
+      respectively; they can be 0 if a part is exact. In particular we
+      need err_re=0 when x=0.
+      The function requires and checks that |x|<=5/8 and y>=1/2.
+      Moreover if err_im != 0, it assumes (but cannot check, so this must be
+      assured by the caller) that y is a lower bound on the correct value.
+      The algorithm is taken from algorithms.tex.
+      The precision of q24 is computed from z with a little extra so that
+      the series has a good chance of being rounded to the precision of z. */
+{
+   const mpfr_prec_t pz = MPC_MAX_PREC (z);
+   int xzero;
+   long int Y, err_a, err_b;
+   mpfr_prec_t p, min;
+   mpfr_t pi, u, v, t, r, s;
+   mpc_t q24c;
+
+   xzero = mpfr_zero_p (mpc_realref (z));
+   if (   mpfr_cmp_d  (mpc_realref (z),  0.625) > 0
+       || mpfr_cmp_d  (mpc_realref (z), -0.625) < 0
+       || mpfr_cmp_d (mpc_imagref (z), 0.5) < 0
+       || (xzero && err_re > 0))
+       mpcb_set_inf (q24);
+   else {
+      /* Experiments seem to imply that it is enough to add 20 bits to the
+         target precision; to be on the safe side, we also add 1%. */
+      p = pz * 101 / 100 + 20;
+      /* We need 2^p >= 240 + 66 k_x = 240 + 33 err_re. */
+      if (p < (mpfr_prec_t) (CHAR_BIT * sizeof (mpfr_prec_t))) {
+         min = (240 + 33 * err_re) >> p;
+         while (min > 0) {
+            p++;
+            min >>= 1;
+         }
+      }
+
+      mpfr_init2 (pi, p);
+      mpfr_init2 (u, p);
+      mpfr_init2 (v, p);
+      mpfr_init2 (t, p);
+      mpfr_init2 (r, p);
+      mpfr_init2 (s, p);
+      mpc_init2 (q24c, p);
+
+      mpfr_const_pi (pi, MPFR_RNDD);
+      mpfr_div_ui (pi, pi, 12, MPFR_RNDD);
+      mpfr_mul (u, mpc_imagref (z), pi, MPFR_RNDD);
+      mpfr_neg (u, u, MPFR_RNDU);
+      mpfr_mul (v, mpc_realref (z), pi, MPFR_RNDN);
+      mpfr_exp (t, u, MPFR_RNDU);
+      if (xzero) {
+         mpfr_set (mpc_realref (q24c), t, MPFR_RNDN);
+         mpfr_set_ui (mpc_imagref (q24c), 0, MPFR_RNDN);
+      }
+      else {
+         /* Unfortunately we cannot round in two different directions with
+            mpfr_sin_cos. */
+         mpfr_cos (r, v, MPFR_RNDZ);
+         mpfr_sin (s, v, MPFR_RNDA);
+         mpfr_mul (mpc_realref (q24c), t, r, MPFR_RNDN);
+         mpfr_mul (mpc_imagref (q24c), t, s, MPFR_RNDN);
+      }
+      Y = mpfr_get_exp (mpc_imagref (z));
+      if (xzero) {
+         Y = (224 + 33 * err_im + 63) / 64 << Y;
+         err_a = Y + 1;

_service:tar_scm:mpc-1.2.0.tar.gz/src/fma.c -> _service:tar_scm:mpc-1.3.1.tar.gz/src/fma.c Changed

@@ -1,6 +1,6 @@
 /* mpc_fma -- Fused multiply-add of three complex numbers
 
-Copyright (C) 2011, 2012 INRIA
+Copyright (C) 2011, 2012, 2022 INRIA
 
 This file is part of GNU MPC.
 
@@ -20,30 +20,11 @@
 
 #include "mpc-impl.h"
 
-/* return a bound on the precision needed to add or subtract x and y exactly */
-static mpfr_prec_t
-bound_prec_addsub (mpfr_srcptr x, mpfr_srcptr y)
-{
-  if (!mpfr_regular_p (x))
-    return mpfr_get_prec (y);
-  else if (!mpfr_regular_p (y))
-    return mpfr_get_prec (x);
-  else /* neither x nor y are NaN, Inf or zero */
-    {
-      mpfr_exp_t ex = mpfr_get_exp (x);
-      mpfr_exp_t ey = mpfr_get_exp (y);
-      mpfr_exp_t ulpx = ex - mpfr_get_prec (x);
-      mpfr_exp_t ulpy = ey - mpfr_get_prec (y);
-      return ((ex >= ey) ? ex : ey) + 1 - ((ulpx <= ulpy) ? ulpx : ulpy);
-    }
-}
-
-/* r <- a*b+c */
 int
 mpc_fma_naive (mpc_ptr r, mpc_srcptr a, mpc_srcptr b, mpc_srcptr c, mpc_rnd_t rnd)
 {
-  mpfr_t rea_reb, rea_imb, ima_reb, ima_imb, tmp;
-  mpfr_prec_t pre12, pre13, pre23, pim12, pim13, pim23;
+  mpfr_t rea_reb, rea_imb, ima_reb, ima_imb;
+  mpfr_ptr sum 3;
   int inex_re, inex_im;
 
   mpfr_init2 (rea_reb, mpfr_get_prec (mpc_realref(a)) + mpfr_get_prec (mpc_realref(b)));
@@ -56,76 +37,20 @@
   mpfr_mul (ima_reb, mpc_imagref(a), mpc_realref(b), MPFR_RNDZ); /* exact */
   mpfr_mul (ima_imb, mpc_imagref(a), mpc_imagref(b), MPFR_RNDZ); /* exact */
 
-  /* Re(r) <- rea_reb - ima_imb + Re(c) */
-
-  pre12 = bound_prec_addsub (rea_reb, ima_imb); /* bound on exact precision for
-						   rea_reb - ima_imb */
-  pre13 = bound_prec_addsub (rea_reb, mpc_realref(c));
-  /* bound for rea_reb + Re(c) */
-  pre23 = bound_prec_addsub (ima_imb, mpc_realref(c));
-  /* bound for ima_imb - Re(c) */
-  if (pre12 <= pre13 && pre12 <= pre23) /* (rea_reb - ima_imb) + Re(c) */
-    {
-      mpfr_init2 (tmp, pre12);
-      mpfr_sub (tmp, rea_reb, ima_imb, MPFR_RNDZ); /* exact */
-      inex_re = mpfr_add (mpc_realref(r), tmp, mpc_realref(c), MPC_RND_RE(rnd));
-      /* the only possible bad overlap is between r and c, but since we are
-	 only touching the real part of both, it is ok */
-    }
-  else if (pre13 <= pre23) /* (rea_reb + Re(c)) - ima_imb */
-    {
-      mpfr_init2 (tmp, pre13);
-      mpfr_add (tmp, rea_reb, mpc_realref(c), MPFR_RNDZ); /* exact */
-      inex_re = mpfr_sub (mpc_realref(r), tmp, ima_imb, MPC_RND_RE(rnd));
-      /* the only possible bad overlap is between r and c, but since we are
-	 only touching the real part of both, it is ok */
-    }
-  else /* rea_reb + (Re(c) - ima_imb) */
-    {
-      mpfr_init2 (tmp, pre23);
-      mpfr_sub (tmp, mpc_realref(c), ima_imb, MPFR_RNDZ); /* exact */
-      inex_re = mpfr_add (mpc_realref(r), tmp, rea_reb, MPC_RND_RE(rnd));
-      /* the only possible bad overlap is between r and c, but since we are
-	 only touching the real part of both, it is ok */
-    }
-
-  /* Im(r) <- rea_imb + ima_reb + Im(c) */
-  pim12 = bound_prec_addsub (rea_imb, ima_reb); /* bound on exact precision for
-						   rea_imb + ima_reb */
-  pim13 = bound_prec_addsub (rea_imb, mpc_imagref(c));
-  /* bound for rea_imb + Im(c) */
-  pim23 = bound_prec_addsub (ima_reb, mpc_imagref(c));
-  /* bound for ima_reb + Im(c) */
-  if (pim12 <= pim13 && pim12 <= pim23) /* (rea_imb + ima_reb) + Im(c) */
-    {
-      mpfr_set_prec (tmp, pim12);
-      mpfr_add (tmp, rea_imb, ima_reb, MPFR_RNDZ); /* exact */
-      inex_im = mpfr_add (mpc_imagref(r), tmp, mpc_imagref(c), MPC_RND_IM(rnd));
-      /* the only possible bad overlap is between r and c, but since we are
-	 only touching the imaginary part of both, it is ok */
-    }
-  else if (pim13 <= pim23) /* (rea_imb + Im(c)) + ima_reb */
-    {
-      mpfr_set_prec (tmp, pim13);
-      mpfr_add (tmp, rea_imb, mpc_imagref(c), MPFR_RNDZ); /* exact */
-      inex_im = mpfr_add (mpc_imagref(r), tmp, ima_reb, MPC_RND_IM(rnd));
-      /* the only possible bad overlap is between r and c, but since we are
-	 only touching the imaginary part of both, it is ok */
-    }
-  else /* rea_imb + (Im(c) + ima_reb) */
-    {
-      mpfr_set_prec (tmp, pre23);
-      mpfr_add (tmp, mpc_imagref(c), ima_reb, MPFR_RNDZ); /* exact */
-      inex_im = mpfr_add (mpc_imagref(r), tmp, rea_imb, MPC_RND_IM(rnd));
-      /* the only possible bad overlap is between r and c, but since we are
-	 only touching the imaginary part of both, it is ok */
-    }
+  mpfr_neg (ima_imb, ima_imb, MPFR_RNDZ);
+  sum 0 = rea_reb;
+  sum 1 = ima_imb;
+  sum 2 = (mpfr_ptr) mpc_realref (c);
+  inex_re = mpfr_sum (mpc_realref (r), sum, 3, MPC_RND_RE (rnd));
+  sum 0 = rea_imb;
+  sum 1 = ima_reb;
+  sum 2 = (mpfr_ptr) mpc_imagref (c);
+  inex_im = mpfr_sum (mpc_imagref (r), sum, 3, MPC_RND_IM (rnd));
 
   mpfr_clear (rea_reb);
   mpfr_clear (rea_imb);
   mpfr_clear (ima_reb);
   mpfr_clear (ima_imb);
-  mpfr_clear (tmp);
 
   return MPC_INEX(inex_re, inex_im);
 }
@@ -187,5 +112,6 @@
       mpfr_set_prec (mpc_imagref(ab), wpim);
     }
   mpc_clear (ab);
-  return okre && okim ? inex : mpc_fma_naive (r, a, b, c, rnd);
+
+  return (okre && okim) ? inex : mpc_fma_naive (r, a, b, c, rnd);
 }

_service:tar_scm:mpc-1.2.0.tar.gz/src/get_version.c -> _service:tar_scm:mpc-1.3.1.tar.gz/src/get_version.c Changed

_service:tar_scm:mpc-1.2.0.tar.gz/src/get_x.c -> _service:tar_scm:mpc-1.3.1.tar.gz/src/get_x.c Changed

_service:tar_scm:mpc-1.2.0.tar.gz/src/init2.c -> _service:tar_scm:mpc-1.3.1.tar.gz/src/init2.c Changed

_service:tar_scm:mpc-1.2.0.tar.gz/src/init3.c -> _service:tar_scm:mpc-1.3.1.tar.gz/src/init3.c Changed

_service:tar_scm:mpc-1.2.0.tar.gz/src/logging.c -> _service:tar_scm:mpc-1.3.1.tar.gz/src/logging.c Changed

_service:tar_scm:mpc-1.2.0.tar.gz/src/mpc-impl.h -> _service:tar_scm:mpc-1.3.1.tar.gz/src/mpc-impl.h Changed

@@ -1,6 +1,6 @@
 /* mpc-impl.h -- Internal include file for mpc.
 
-Copyright (C) 2002, 2004, 2005, 2008, 2009, 2010, 2011, 2012, 2020 INRIA
+Copyright (C) 2002, 2004, 2005, 2008, 2009, 2010, 2011, 2012, 2020, 2022 INRIA
 
 This file is part of GNU MPC.
 
@@ -135,10 +135,28 @@
 #define MPFR_OUT(x)                                             \
 do {                                                            \
   printf (#x "%lu=", (unsigned long int) mpfr_get_prec (x));  \
-  mpfr_out_str (stdout, 2, 0, x, MPFR_RNDN);                     \
+  mpfr_out_str (stdout, 2, 0, x, MPFR_RNDN);                    \
   printf ("\n");                                                \
 } while (0)
 
+#define MPFR_OUT_Q(x)                                           \
+do {                                                            \
+  mpq_t q;                                                      \
+  mpq_init (q);                                                 \
+  mpfr_get_q (q, x);                                            \
+  mpq_out_str (stdout, 10, q);                                  \
+  mpq_clear (q);                                                \
+} while (0)
+
+#define MPC_OUT_PARI(x)                                         \
+do {                                                            \
+  printf (#x "=");                                              \
+  MPFR_OUT_Q (mpc_realref (x));                                 \
+  printf ("+I*(");                                              \
+  MPFR_OUT_Q (mpc_imagref (x));                                 \
+  printf (");\n");                                              \
+} while (0)
+
 
 /*
  * Constants
@@ -157,7 +175,11 @@
 extern "C" {
 #endif
 
+/* Function for mpcb. */
+__MPC_DECLSPEC void mpcb_eta_err (mpcb_ptr eta, mpc_srcptr z,
+   unsigned long int err_re, unsigned long int err_im);
 
+/* Functions for mpc. */
 __MPC_DECLSPEC int  mpc_mul_naive (mpc_ptr, mpc_srcptr, mpc_srcptr, mpc_rnd_t);
 __MPC_DECLSPEC int  mpc_mul_karatsuba (mpc_ptr, mpc_srcptr, mpc_srcptr, mpc_rnd_t);
 __MPC_DECLSPEC int  mpc_fma_naive (mpc_ptr, mpc_srcptr, mpc_srcptr, mpc_srcptr, mpc_rnd_t);

_service:tar_scm:mpc-1.2.0.tar.gz/src/mpc.h -> _service:tar_scm:mpc-1.3.1.tar.gz/src/mpc.h Changed

@@ -1,6 +1,6 @@
 /* mpc.h -- Include file for mpc.
 
-Copyright (C) 2002, 2003, 2004, 2005, 2007, 2008, 2009, 2010, 2011, 2012, 2016, 2017, 2018, 2020 INRIA
+Copyright (C) 2002, 2003, 2004, 2005, 2007, 2008, 2009, 2010, 2011, 2012, 2016, 2017, 2018, 2020, 2021, 2022 INRIA
 
 This file is part of GNU MPC.
 
@@ -21,14 +21,15 @@
 #ifndef __MPC_H
 #define __MPC_H
 
+#include <stdint.h>
 #include "gmp.h"
 #include "mpfr.h"
 
 /* Define MPC version number */
 #define MPC_VERSION_MAJOR 1
-#define MPC_VERSION_MINOR 2
-#define MPC_VERSION_PATCHLEVEL 0
-#define MPC_VERSION_STRING "1.2.0"
+#define MPC_VERSION_MINOR 3
+#define MPC_VERSION_PATCHLEVEL 1
+#define MPC_VERSION_STRING "1.3.1"
 
 /* Macros dealing with MPC VERSION */
 #define MPC_VERSION_NUM(a,b,c) (((a) << 16L) | ((b) << 8) | (c))
@@ -79,21 +80,31 @@
 #define MPC_RNDNZ MPC_RND (MPFR_RNDN,MPFR_RNDZ)
 #define MPC_RNDNU MPC_RND (MPFR_RNDN,MPFR_RNDU)
 #define MPC_RNDND MPC_RND (MPFR_RNDN,MPFR_RNDD)
+#define MPC_RNDNA MPC_RND (MPFR_RNDN,MPFR_RNDA)
 
 #define MPC_RNDZN MPC_RND (MPFR_RNDZ,MPFR_RNDN)
 #define MPC_RNDZZ MPC_RND (MPFR_RNDZ,MPFR_RNDZ)
 #define MPC_RNDZU MPC_RND (MPFR_RNDZ,MPFR_RNDU)
 #define MPC_RNDZD MPC_RND (MPFR_RNDZ,MPFR_RNDD)
+#define MPC_RNDZA MPC_RND (MPFR_RNDZ,MPFR_RNDA)
 
 #define MPC_RNDUN MPC_RND (MPFR_RNDU,MPFR_RNDN)
 #define MPC_RNDUZ MPC_RND (MPFR_RNDU,MPFR_RNDZ)
 #define MPC_RNDUU MPC_RND (MPFR_RNDU,MPFR_RNDU)
 #define MPC_RNDUD MPC_RND (MPFR_RNDU,MPFR_RNDD)
+#define MPC_RNDUA MPC_RND (MPFR_RNDU,MPFR_RNDA)
 
 #define MPC_RNDDN MPC_RND (MPFR_RNDD,MPFR_RNDN)
 #define MPC_RNDDZ MPC_RND (MPFR_RNDD,MPFR_RNDZ)
 #define MPC_RNDDU MPC_RND (MPFR_RNDD,MPFR_RNDU)
 #define MPC_RNDDD MPC_RND (MPFR_RNDD,MPFR_RNDD)
+#define MPC_RNDDA MPC_RND (MPFR_RNDD,MPFR_RNDA)
+
+#define MPC_RNDAN MPC_RND (MPFR_RNDA,MPFR_RNDN)
+#define MPC_RNDAZ MPC_RND (MPFR_RNDA,MPFR_RNDZ)
+#define MPC_RNDAU MPC_RND (MPFR_RNDA,MPFR_RNDU)
+#define MPC_RNDAD MPC_RND (MPFR_RNDA,MPFR_RNDD)
+#define MPC_RNDAA MPC_RND (MPFR_RNDA,MPFR_RNDA)
 
 
 /* Definitions of types and their semantics */
@@ -108,8 +119,28 @@
 typedef __mpc_struct *mpc_ptr;
 typedef const __mpc_struct *mpc_srcptr;
 
+typedef struct {
+   int64_t mant;
+   int64_t exp;
+}
+__mpcr_struct;
+
+typedef __mpcr_struct mpcr_t 1;
+typedef __mpcr_struct *mpcr_ptr;
+typedef const __mpcr_struct *mpcr_srcptr;
+
+typedef struct {
+  mpc_t  c;
+  mpcr_t r;
+}
+__mpcb_struct;
+
+typedef __mpcb_struct mpcb_t 1;
+typedef __mpcb_struct *mpcb_ptr;
+typedef const __mpcb_struct *mpcb_srcptr;
+
 /* Support for WINDOWS DLL, see
-   http://lists.gforge.inria.fr/pipermail/mpc-discuss/2011-November/000990.html;
+   https://sympa.inria.fr/sympa/arc/mpc-discuss/2011-11/ ;
    when building the DLL, export symbols, otherwise behave as GMP           */
 #if defined (__MPC_LIBRARY_BUILD) && __GMP_LIBGMP_DLL
 #define __MPC_DECLSPEC __GMP_DECLSPEC_EXPORT
@@ -191,6 +222,7 @@
 __MPC_DECLSPEC int  mpc_exp         (mpc_ptr, mpc_srcptr, mpc_rnd_t);
 __MPC_DECLSPEC int  mpc_log         (mpc_ptr, mpc_srcptr, mpc_rnd_t);
 __MPC_DECLSPEC int  mpc_log10       (mpc_ptr, mpc_srcptr, mpc_rnd_t);
+__MPC_DECLSPEC int  mpc_agm         (mpc_ptr, mpc_srcptr, mpc_srcptr, mpc_rnd_t);
 __MPC_DECLSPEC int  mpc_sin         (mpc_ptr, mpc_srcptr, mpc_rnd_t);
 __MPC_DECLSPEC int  mpc_cos         (mpc_ptr, mpc_srcptr, mpc_rnd_t);
 __MPC_DECLSPEC int  mpc_sin_cos     (mpc_ptr, mpc_ptr, mpc_srcptr, mpc_rnd_t, mpc_rnd_t);
@@ -237,8 +269,63 @@
 #ifdef _GMP_H_HAVE_FILE
 __MPC_DECLSPEC int mpc_inp_str    (mpc_ptr, FILE *, size_t *, int, mpc_rnd_t);
 __MPC_DECLSPEC size_t mpc_out_str (FILE *, int, size_t, mpc_srcptr, mpc_rnd_t);
+__MPC_DECLSPEC void mpcb_out_str  (FILE *f, mpcb_srcptr);
+__MPC_DECLSPEC void mpcr_out_str (FILE *f, mpcr_srcptr r);
 #endif
 
+__MPC_DECLSPEC int mpcr_inf_p (mpcr_srcptr r);
+__MPC_DECLSPEC int mpcr_zero_p (mpcr_srcptr r);
+__MPC_DECLSPEC int mpcr_lt_half_p (mpcr_srcptr r);
+__MPC_DECLSPEC int mpcr_cmp (mpcr_srcptr r, mpcr_srcptr s);
+__MPC_DECLSPEC void mpcr_set_inf (mpcr_ptr r);
+__MPC_DECLSPEC void mpcr_set_zero (mpcr_ptr r);
+__MPC_DECLSPEC void mpcr_set_one (mpcr_ptr r);
+__MPC_DECLSPEC void mpcr_set (mpcr_ptr r, mpcr_srcptr s);
+__MPC_DECLSPEC void mpcr_set_ui64_2si64 (mpcr_ptr r, uint64_t mant,
+   int64_t exp);
+__MPC_DECLSPEC void mpcr_max (mpcr_ptr r, mpcr_srcptr s, mpcr_srcptr t);
+__MPC_DECLSPEC int64_t mpcr_get_exp (mpcr_srcptr r);
+__MPC_DECLSPEC void mpcr_mul (mpcr_ptr r, mpcr_srcptr s, mpcr_srcptr t);
+__MPC_DECLSPEC void mpcr_mul_2ui (mpcr_ptr r, mpcr_srcptr s,
+   unsigned long int e);
+__MPC_DECLSPEC void mpcr_sqr (mpcr_ptr r, mpcr_srcptr s);
+__MPC_DECLSPEC void mpcr_add (mpcr_ptr r, mpcr_srcptr s, mpcr_srcptr t);
+__MPC_DECLSPEC void mpcr_sub (mpcr_ptr r, mpcr_srcptr s, mpcr_srcptr t);
+__MPC_DECLSPEC void mpcr_sub_rnd (mpcr_ptr r, mpcr_srcptr s, mpcr_srcptr t,
+   mpfr_rnd_t rnd);
+__MPC_DECLSPEC void mpcr_div (mpcr_ptr r, mpcr_srcptr s, mpcr_srcptr t);
+__MPC_DECLSPEC void mpcr_div_2ui (mpcr_ptr r, mpcr_srcptr s,
+   unsigned long int e);
+__MPC_DECLSPEC int64_t sqrt_int64 (int64_t n);
+__MPC_DECLSPEC void mpcr_sqrt (mpcr_ptr r, mpcr_srcptr s);
+__MPC_DECLSPEC void mpcr_add_rounding_error (mpcr_ptr r, mpfr_prec_t p,
+   mpfr_rnd_t rnd);
+__MPC_DECLSPEC void mpcr_c_abs_rnd (mpcr_ptr r, mpc_srcptr z,
+   mpfr_rnd_t rnd);
+
+__MPC_DECLSPEC void mpcb_init (mpcb_ptr);
+__MPC_DECLSPEC void mpcb_clear (mpcb_ptr);
+__MPC_DECLSPEC mpfr_prec_t mpcb_get_prec (mpcb_srcptr);
+__MPC_DECLSPEC void mpcb_set_prec (mpcb_ptr, mpfr_prec_t);
+__MPC_DECLSPEC void mpcb_set (mpcb_ptr, mpcb_srcptr);
+__MPC_DECLSPEC void mpcb_set_inf (mpcb_ptr);
+__MPC_DECLSPEC void mpcb_set_c (mpcb_ptr, mpc_srcptr, mpfr_prec_t,
+   unsigned long int, unsigned long int);
+__MPC_DECLSPEC void mpcb_set_ui_ui (mpcb_ptr, unsigned long int,
+   unsigned long int, mpfr_prec_t);
+__MPC_DECLSPEC void mpcb_neg (mpcb_ptr, mpcb_srcptr);
+__MPC_DECLSPEC void mpcb_mul (mpcb_ptr, mpcb_srcptr, mpcb_srcptr);
+__MPC_DECLSPEC void mpcb_sqr (mpcb_ptr, mpcb_srcptr);
+__MPC_DECLSPEC void mpcb_pow_ui (mpcb_ptr, mpcb_srcptr, unsigned long int);
+__MPC_DECLSPEC void mpcb_add (mpcb_ptr, mpcb_srcptr, mpcb_srcptr);
+__MPC_DECLSPEC void mpcb_sqrt (mpcb_ptr, mpcb_srcptr);
+__MPC_DECLSPEC void mpcb_div (mpcb_ptr, mpcb_srcptr, mpcb_srcptr);
+__MPC_DECLSPEC void mpcb_div_2ui (mpcb_ptr, mpcb_srcptr, unsigned long int);
+__MPC_DECLSPEC int mpcb_can_round (mpcb_srcptr, mpfr_prec_t, mpfr_prec_t,
+   mpc_rnd_t);
+__MPC_DECLSPEC int mpcb_round (mpc_ptr, mpcb_srcptr, mpc_rnd_t);
+__MPC_DECLSPEC int mpc_eta_fund (mpc_ptr, mpc_srcptr, mpc_rnd_t);
+
 #if defined (__cplusplus)
 }
 #endif

_service:tar_scm:mpc-1.2.0.tar.gz/src/mul.c -> _service:tar_scm:mpc-1.3.1.tar.gz/src/mul.c Changed

@@ -1,6 +1,6 @@
 /* mpc_mul -- Multiply two complex numbers
 
-Copyright (C) 2002, 2004, 2005, 2008, 2009, 2010, 2011, 2012, 2016 INRIA
+Copyright (C) 2002, 2004, 2005, 2008, 2009, 2010, 2011, 2012, 2016, 2020, 2022 INRIA
 
 This file is part of GNU MPC.
 
@@ -170,196 +170,6 @@
    return MPC_INEX (inex_re, inex_im);
 }
 
-#define MPFR_MANT(x)      ((x)->_mpfr_d)
-#define MPFR_PREC(x)      ((x)->_mpfr_prec)
-#define MPFR_EXP(x)       ((x)->_mpfr_exp)
-#define MPFR_LIMB_SIZE(x) ((MPFR_PREC (x) - 1) / GMP_NUMB_BITS + 1)
-
-#if HAVE_MPFR_FMMA == 0
-static int
-mpc_fmma (mpfr_ptr z, mpfr_srcptr a, mpfr_srcptr b, mpfr_srcptr c,
-           mpfr_srcptr d, int sign, mpfr_rnd_t rnd)
-{
-   /* Computes z = ab+cd if sign >= 0, or z = ab-cd if sign < 0.
-      Assumes that a, b, c, d are finite and non-zero; so any multiplication
-      of two of them yielding an infinity is an overflow, and a
-      multiplication yielding 0 is an underflow.
-      Assumes further that z is distinct from a, b, c, d. */
-
-   int inex;
-   mpfr_t u, v;
-   mp_size_t an, bn, cn, dn;
-
-   /* u=a*b, v=sign*c*d exactly */
-   an = MPFR_LIMB_SIZE(a);
-   bn = MPFR_LIMB_SIZE(b);
-   cn = MPFR_LIMB_SIZE(c);
-   dn = MPFR_LIMB_SIZE(d);
-   MPFR_MANT(u) = malloc ((an + bn) * sizeof (mp_limb_t));
-   MPFR_MANT(v) = malloc ((cn + dn) * sizeof (mp_limb_t));
-   if (an >= bn)
-     mpn_mul (MPFR_MANT(u), MPFR_MANT(a), an, MPFR_MANT(b), bn);
-   else
-     mpn_mul (MPFR_MANT(u), MPFR_MANT(b), bn, MPFR_MANT(a), an);
-   if ((MPFR_MANT(u)an + bn - 1 >> (GMP_NUMB_BITS - 1)) == 0)
-     {
-       mpn_lshift (MPFR_MANT(u), MPFR_MANT(u), an + bn, 1);
-       MPFR_EXP(u) = MPFR_EXP(a) + MPFR_EXP(b) - 1;
-     }
-   else
-     MPFR_EXP(u) = MPFR_EXP(a) + MPFR_EXP(b);
-   if (cn >= dn)
-     mpn_mul (MPFR_MANT(v), MPFR_MANT(c), cn, MPFR_MANT(d), dn);
-   else
-     mpn_mul (MPFR_MANT(v), MPFR_MANT(d), dn, MPFR_MANT(c), cn);
-   if ((MPFR_MANT(v)cn + dn - 1 >> (GMP_NUMB_BITS - 1)) == 0)
-     {
-       mpn_lshift (MPFR_MANT(v), MPFR_MANT(v), cn + dn, 1);
-       MPFR_EXP(v) = MPFR_EXP(c) + MPFR_EXP(d) - 1;
-     }
-   else
-     MPFR_EXP(v) = MPFR_EXP(c) + MPFR_EXP(d);
-   MPFR_PREC(u) = (an + bn) * GMP_NUMB_BITS;
-   MPFR_PREC(v) = (cn + dn) * GMP_NUMB_BITS;
-   MPFR_SIGN(u) = MPFR_SIGN(a) * MPFR_SIGN(b);
-   if (sign > 0)
-     MPFR_SIGN(v) = MPFR_SIGN(c) * MPFR_SIGN(d);
-   else
-     MPFR_SIGN(v) = -MPFR_SIGN(c) * MPFR_SIGN(d);
-
-   mpfr_check_range (u, 0, MPFR_RNDN);
-   mpfr_check_range (v, 0, MPFR_RNDN);
-
-   /* tentatively compute z as u+v; here we need z to be distinct
-      from a, b, c, d to not lose the latter */
-   inex = mpfr_add (z, u, v, rnd);
-
-   if (!mpfr_regular_p(z) || !mpfr_regular_p(u) || !mpfr_regular_p(v))
-     {
-       if (mpfr_inf_p (z)) {
-         /* replace by "correctly rounded overflow" */
-         mpfr_set_si (z, (mpfr_signbit (z) ? -1 : 1), MPFR_RNDN);
-         inex = mpfr_mul_2ui (z, z, mpfr_get_emax (), rnd);
-       }
-       else if (mpfr_zero_p (u) && !mpfr_zero_p (v)) {
-         /* exactly u underflowed, determine inexact flag */
-         inex = (mpfr_signbit (u) ? 1 : -1);
-       }
-       else if (mpfr_zero_p (v) && !mpfr_zero_p (u)) {
-         /* exactly v underflowed, determine inexact flag */
-         inex = (mpfr_signbit (v) ? 1 : -1);
-       }
-       else if (mpfr_nan_p (z) || (mpfr_zero_p (u) && mpfr_zero_p (v))) {
-      /* In the first case, u and v are infinities with opposite signs.
-         In the second case, u and v are zeroes; their sum may be 0 or the
-         least representable number, with a sign to be determined.
-         Redo the computations with mpz_t exponents */
-      mpfr_exp_t ea, eb, ec, ed;
-      mpz_t eu, ev;
-         /* cheat to work around the const qualifiers */
-
-      /* Normalise the input by shifting and keep track of the shifts in
-         the exponents of u and v */
-      ea = mpfr_get_exp (a);
-      eb = mpfr_get_exp (b);
-      ec = mpfr_get_exp (c);
-      ed = mpfr_get_exp (d);
-
-      mpfr_set_exp ((mpfr_ptr) a, (mpfr_prec_t) 0);
-      mpfr_set_exp ((mpfr_ptr) b, (mpfr_prec_t) 0);
-      mpfr_set_exp ((mpfr_ptr) c, (mpfr_prec_t) 0);
-      mpfr_set_exp ((mpfr_ptr) d, (mpfr_prec_t) 0);
-
-      mpz_init (eu);
-      mpz_init (ev);
-      mpz_set_si (eu, (long int) ea);
-      mpz_add_si (eu, eu, (long int) eb);
-      mpz_set_si (ev, (long int) ec);
-      mpz_add_si (ev, ev, (long int) ed);
-
-      /* recompute u and v and move exponents to eu and ev */
-      mpfr_mul (u, a, b, MPFR_RNDN);
-      /* exponent of u is non-positive */
-      mpz_sub_ui (eu, eu, (unsigned long int) (-mpfr_get_exp (u)));
-      mpfr_set_exp (u, (mpfr_prec_t) 0);
-      mpfr_mul (v, c, d, MPFR_RNDN);
-      if (sign < 0)
-         mpfr_neg (v, v, MPFR_RNDN);
-      mpz_sub_ui (ev, ev, (unsigned long int) (-mpfr_get_exp (v)));
-      mpfr_set_exp (v, (mpfr_prec_t) 0);
-
-      if (mpfr_nan_p (z)) {
-         mpfr_exp_t emax = mpfr_get_emax ();
-         int overflow;
-         /* We have a = ma * 2^ea with 1/2 <= |ma| < 1 and ea <= emax, and
-            analogously for b. So eu <= 2*emax, and eu > emax since we have
-            an overflow. The same holds for ev. Shift u and v by as much as
-            possible so that one of them has exponent emax and the
-            remaining exponents in eu and ev are the same. Then carry out
-            the addition. Shifting u and v prevents an underflow. */
-         if (mpz_cmp (eu, ev) >= 0) {
-            mpfr_set_exp (u, emax);
-            mpz_sub_ui (eu, eu, (long int) emax);
-            mpz_sub (ev, ev, eu);
-            mpfr_set_exp (v, (mpfr_exp_t) mpz_get_ui (ev));
-               /* remaining common exponent is now in eu */
-         }
-         else {
-            mpfr_set_exp (v, emax);
-            mpz_sub_ui (ev, ev, (long int) emax);
-            mpz_sub (eu, eu, ev);
-            mpfr_set_exp (u, (mpfr_exp_t) mpz_get_ui (eu));
-            mpz_set (eu, ev);
-               /* remaining common exponent is now also in eu */
-         }
-         inex = mpfr_add (z, u, v, rnd);
-            /* Result is finite since u and v have different signs. */
-         overflow = mpfr_mul_2ui (z, z, mpz_get_ui (eu), rnd);
-         if (overflow)
-            inex = overflow;
-      }
-      else {
-         int underflow;
-         /* Addition of two zeroes with same sign. We have a = ma * 2^ea
-            with 1/2 <= |ma| < 1 and ea >= emin and similarly for b.
-            So 2*emin < 2*emin+1 <= eu < emin < 0, and analogously for v. */
-         mpfr_exp_t emin = mpfr_get_emin ();
-         if (mpz_cmp (eu, ev) <= 0) {
-            mpfr_set_exp (u, emin);
-            mpz_add_ui (eu, eu, (unsigned long int) (-emin));
-            mpz_sub (ev, ev, eu);
-            mpfr_set_exp (v, (mpfr_exp_t) mpz_get_si (ev));
-         }
-         else {
-            mpfr_set_exp (v, emin);
-            mpz_add_ui (ev, ev, (unsigned long int) (-emin));
-            mpz_sub (eu, eu, ev);
-            mpfr_set_exp (u, (mpfr_exp_t) mpz_get_si (eu));
-            mpz_set (eu, ev);
-         }
-         inex = mpfr_add (z, u, v, rnd);
-         mpz_neg (eu, eu);
-         underflow = mpfr_div_2ui (z, z, mpz_get_ui (eu), rnd);
-         if (underflow)
-            inex = underflow;
-      }
-
-      mpz_clear (eu);
-      mpz_clear (ev);
-
-      mpfr_set_exp ((mpfr_ptr) a, ea);
-      mpfr_set_exp ((mpfr_ptr) b, eb);
-      mpfr_set_exp ((mpfr_ptr) c, ec);
-      mpfr_set_exp ((mpfr_ptr) d, ed);
-         /* works also when some of a, b, c, d are not all distinct */
-       }
-     }
-
-   free (MPFR_MANT(u));
-   free (MPFR_MANT(v));
-   return inex;

_service:tar_scm:mpc-1.2.0.tar.gz/src/pow.c -> _service:tar_scm:mpc-1.3.1.tar.gz/src/pow.c Changed

@@ -1,6 +1,6 @@
 /* mpc_pow -- Raise a complex number to the power of another complex number.
 
-Copyright (C) 2009, 2010, 2011, 2012, 2014, 2015, 2016, 2018, 2020 INRIA
+Copyright (C) 2009, 2010, 2011, 2012, 2014, 2015, 2016, 2018, 2020, 2022 INRIA
 
 This file is part of GNU MPC.
 
@@ -481,7 +481,8 @@
 int
 mpc_pow (mpc_ptr z, mpc_srcptr x, mpc_srcptr y, mpc_rnd_t rnd)
 {
-  int ret = -2, loop, x_real, x_imag, y_real, z_real = 0, z_imag = 0;
+  int ret = -2, loop, x_real, x_imag, y_real, z_real = 0, z_imag = 0,
+     ramified = 0;
   mpc_t t, u;
   mpfr_prec_t p, pr, pi, maxprec;
   int saved_underflow, saved_overflow;
@@ -640,6 +641,7 @@
       if (mpfr_cmpabs (mpc_realref(x), mpc_imagref(x)) == 0 && y_real &&
           mpfr_integer_p (mpc_realref(y)) && is_odd (mpc_realref(y), 0) == 0)
         {
+          ramified = 1;
           if (is_odd (mpc_realref(y), -1)) /* y/2 is odd */
             z_imag = 1;
           else
@@ -696,7 +698,6 @@
       if (mpfr_underflow_p () || mpfr_overflow_p ()) {
          /* under- and overflow flags are set by mpc_exp */
          mpc_set (z, u, MPC_RNDNN);
-         ret = ret_exp;
          inex_re = MPC_INEX_RE(ret_exp);
          inex_im = MPC_INEX_IM(ret_exp);
          if (mpfr_inf_p (mpc_realref (z)))
@@ -765,78 +766,94 @@
 
   if (z_real)
     {
-      /* When the result is real (see algorithm.tex for details),
+      /* When the result is real (see algorithm.tex for details) and
+         x=x1 * (1 \pm i), y a positive integer divisible by 4, then
+         Im(x^y) = 0i with a sign that cannot be determined (and is thus
+         chosen as _1). Otherwise,
          Im(x^y) =
          + sign(imag(y))*0i,               if |x| > 1
          + sign(imag(x))*sign(real(y))*0i, if |x| = 1
          - sign(imag(y))*0i,               if |x| < 1
       */
-      mpfr_t n;
-      int inex, cx1;
-      int sign_zi, sign_rex, sign_imx;
-      /* cx1 < 0 if |x| < 1
-         cx1 = 0 if |x| = 1
-         cx1 > 0 if |x| > 1
-      */
-
-      sign_rex = mpfr_signbit (mpc_realref (x));
-      sign_imx = mpfr_signbit (mpc_imagref (x));
-      mpfr_init (n);
-      inex = mpc_norm (n, x, MPFR_RNDN);
-      cx1 = mpfr_cmp_ui (n, 1);
-      if (cx1 == 0 && inex != 0)
-        cx1 = -inex;
-
-      sign_zi = (cx1 < 0 && mpfr_signbit (mpc_imagref (y)) == 0)
-        || (cx1 == 0 && sign_imx != mpfr_signbit (mpc_realref (y)))
-        || (cx1 > 0 && mpfr_signbit (mpc_imagref (y)));
-
-      /* copy RE(y) to n since if z==y we will destroy Re(y) below */
-      mpfr_set_prec (n, mpfr_get_prec (mpc_realref (y)));
-      mpfr_set (n, mpc_realref (y), MPFR_RNDN);
-      ret = mpfr_set (mpc_realref(z), mpc_realref(u), MPC_RND_RE(rnd));
-      if (y_real && (x_real || x_imag))
-        {
-          /* FIXME: with y_real we assume Im(y) is really 0, which is the case
-             for example when y comes from pow_fr, but in case Im(y) is +0 or
-             -0, we might get different results */
-          mpfr_set_ui (mpc_imagref (z), 0, MPC_RND_IM (rnd));
-          fix_sign (z, sign_rex, sign_imx, n);
-          ret = MPC_INEX(ret, 0); /* imaginary part is exact */
-        }
-      else
-        {
-          inex_im = mpfr_set_ui (mpc_imagref (z), 0, MPC_RND_IM (rnd));
-          ret = MPC_INEX (ret, inex_im);
-          /* warning: mpfr_set_ui does not set Im(z) to -0 if Im(rnd) = RNDD */
-          if (MPC_RND_IM (rnd) == MPFR_RNDD || sign_zi)
-            mpc_conj (z, z, MPC_RNDNN);
-        }
+      if (ramified)
+         ret = MPC_INEX (
+            mpfr_set (mpc_realref(z), mpc_realref(u), MPC_RND_RE(rnd)),
+            mpfr_set_ui (mpc_imagref (z), 0, MPFR_RNDN));
+      else {
+         mpfr_t n;
+         int inex, cx1;
+         int sign_zi, sign_rex, sign_imx;
+         /* cx1 < 0 if |x| < 1
+            cx1 = 0 if |x| = 1
+            cx1 > 0 if |x| > 1
+         */
+
+         sign_rex = mpfr_signbit (mpc_realref (x));
+         sign_imx = mpfr_signbit (mpc_imagref (x));
+         mpfr_init (n);
+         inex = mpc_norm (n, x, MPFR_RNDN);
+         cx1 = mpfr_cmp_ui (n, 1);
+         if (cx1 == 0 && inex != 0)
+           cx1 = -inex;
+
+         sign_zi = (cx1 < 0 && mpfr_signbit (mpc_imagref (y)) == 0)
+           || (cx1 == 0 && sign_imx != mpfr_signbit (mpc_realref (y)))
+           || (cx1 > 0 && mpfr_signbit (mpc_imagref (y)));
+
+         /* copy RE(y) to n since if z==y we will destroy Re(y) below */
+         mpfr_set_prec (n, mpfr_get_prec (mpc_realref (y)));
+         mpfr_set (n, mpc_realref (y), MPFR_RNDN);
+         ret = mpfr_set (mpc_realref(z), mpc_realref(u), MPC_RND_RE(rnd));
+         if (y_real && (x_real || x_imag))
+           {
+             /* FIXME: with y_real we assume Im(y) is really 0, which is the case
+                for example when y comes from pow_fr, but in case Im(y) is +0 or
+                -0, we might get different results */
+             mpfr_set_ui (mpc_imagref (z), 0, MPC_RND_IM (rnd));
+             fix_sign (z, sign_rex, sign_imx, n);
+             ret = MPC_INEX(ret, 0); /* imaginary part is exact */
+           }
+         else
+           {
+             inex_im = mpfr_set_ui (mpc_imagref (z), 0, MPC_RND_IM (rnd));
+             ret = MPC_INEX (ret, inex_im);
+             /* warning: mpfr_set_ui does not set Im(z) to -0 if Im(rnd) = RNDD */
+             if (MPC_RND_IM (rnd) == MPFR_RNDD || sign_zi)
+               mpc_conj (z, z, MPC_RNDNN);
+           }
 
-      mpfr_clear (n);
+         mpfr_clear (n);
+      }
     }
   else if (z_imag)
     {
-      ret = mpfr_set (mpc_imagref(z), mpc_imagref(u), MPC_RND_IM(rnd));
-      /* if z is imaginary and y real, then x cannot be real */
-      if (y_real && x_imag)
-        {
-          int sign_rex = mpfr_signbit (mpc_realref (x));
-
-          /* If z overlaps with y we set Re(z) before checking Re(y) below,
-             but in that case y=0, which was dealt with above. */
-          mpfr_set_ui (mpc_realref (z), 0, MPC_RND_RE (rnd));
-          /* Note: fix_sign only does something when y is an integer,
-             then necessarily y = 1 or 3 (mod 4), and in that case the
-             sign of Im(x) is irrelevant. */
-          fix_sign (z, sign_rex, 0, mpc_realref (y));
-          ret = MPC_INEX(0, ret);
-        }
+      if (ramified)
+         ret = MPC_INEX (
+            mpfr_set_ui (mpc_realref (z), 0, MPFR_RNDN),
+            mpfr_set (mpc_imagref(z), mpc_imagref(u), MPC_RND_IM(rnd)));
       else
-        {
-          inex_re = mpfr_set_ui (mpc_realref(z), 0, MPC_RND_RE(rnd));
-          ret = MPC_INEX(inex_re, ret);
-        }
+      {
+         ret = mpfr_set (mpc_imagref(z), mpc_imagref(u), MPC_RND_IM(rnd));
+         /* if z is imaginary and y real, then x cannot be real */
+         if (y_real && x_imag)
+           {
+             int sign_rex = mpfr_signbit (mpc_realref (x));
+
+             /* If z overlaps with y we set Re(z) before checking Re(y) below,
+                but in that case y=0, which was dealt with above. */
+             mpfr_set_ui (mpc_realref (z), 0, MPC_RND_RE (rnd));
+             /* Note: fix_sign only does something when y is an integer,
+                then necessarily y = 1 or 3 (mod 4), and in that case the
+                sign of Im(x) is irrelevant. */
+             fix_sign (z, sign_rex, 0, mpc_realref (y));
+             ret = MPC_INEX(0, ret);
+           }
+         else
+           {
+             inex_re = mpfr_set_ui (mpc_realref(z), 0, MPC_RND_RE(rnd));
+             ret = MPC_INEX(inex_re, ret);
+           }
+      }
     }
   else
     ret = mpc_set (z, u, rnd);

_service:tar_scm:mpc-1.3.1.tar.gz/src/radius.c Added

@@ -0,0 +1,721 @@
+/* radius -- Functions for radii of complex balls.
+
+Copyright (C) 2022 INRIA
+
+This file is part of GNU MPC.
+
+GNU MPC 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.
+
+GNU MPC 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 this program. If not, see http://www.gnu.org/licenses/ .
+*/
+
+#include <math.h>
+#include <inttypes.h> /* for the PRIi64 format modifier */
+#include <stdio.h>    /* for FILE */
+#include "mpc-impl.h"
+
+#define MPCR_MANT(r) ((r)->mant)
+#define MPCR_EXP(r) ((r)->exp)
+#define MPCR_MANT_MIN (((int64_t) 1) << 30)
+#define MPCR_MANT_MAX (MPCR_MANT_MIN << 1)
+
+/* The radius can take three types of values, represented as follows:
+   infinite: the mantissa is -1 and the exponent is undefined;
+   0: the mantissa and the exponent are 0;
+   positive: the mantissa is a positive integer, and the radius is
+   mantissa*2^exponent. A normalised positive radius "has 31 bits",
+   in the sense that the bits 0 to 29 are arbitrary, bit 30 is 1,
+   and bits 31 to 63 are 0; otherwise said, the mantissa lies between
+   2^30 and 2^31-1.
+   Unless stated otherwise, all functions take normalised inputs and
+   produce normalised output; they compute only upper bounds on the radii,
+   without guaranteeing that these are tight. */
+
+
+static void mpcr_add_one_ulp (mpcr_ptr r)
+   /* Add 1 to the mantissa of the normalised r and renormalise. */
+{
+   MPCR_MANT (r)++;
+   if (MPCR_MANT (r) == MPCR_MANT_MAX) {
+      MPCR_MANT (r) >>= 1;
+      MPCR_EXP (r)++;
+   }
+}
+
+
+static unsigned int leading_bit (int64_t n)
+   /* Assuming that n is a positive integer, return the position
+      (from 0 to 62) of the leading bit, that is, the k such that
+      n >= 2^k, but n < 2^(k+1). */
+{
+   unsigned int k;
+
+   if (n & (((uint64_t) 0x7fffffff) << 32))
+      if (n & (((uint64_t) 0x7fff) << 48))
+         if (n & (((uint64_t) 0x7f) << 56))
+            if (n & (((uint64_t) 0x7) << 60))
+               if (n & (((uint64_t) 0x1) << 62))
+                  k = 62;
+               else
+                  if (n & (((uint64_t) 0x1) << 61))
+                     k = 61;
+                  else
+                     k = 60;
+            else
+               if (n & (((uint64_t) 0x3) << 58))
+                  if (n & (((uint64_t) 0x1) << 59))
+                     k = 59;
+                  else
+                     k = 58;
+               else
+                  if (n & (((uint64_t) 0x1) << 57))
+                     k = 57;
+                  else
+                     k = 56;
+         else
+            if (n & (((uint64_t) 0xf) << 52))
+               if (n & (((uint64_t) 0x3) << 54))
+                  if (n & (((uint64_t) 0x1) << 55))
+                     k = 55;
+                  else
+                     k = 54;
+               else
+                  if (n & (((uint64_t) 0x1) << 53))
+                     k = 53;
+                  else
+                     k = 52;
+            else
+               if (n & (((uint64_t) 0x3) << 50))
+                  if (n & (((uint64_t) 0x1) << 51))
+                     k = 51;
+                  else
+                     k = 50;
+               else
+                  if (n & (((uint64_t) 0x1) << 49))
+                     k = 49;
+                  else
+                     k = 48;
+      else
+         if (n & (((uint64_t) 0xff) << 40))
+            if (n & (((uint64_t) 0xf) << 44))
+               if (n & (((uint64_t) 0x3) << 46))
+                  if (n & (((uint64_t) 0x1) << 47))
+                     k = 47;
+                  else
+                     k = 46;
+               else
+                  if (n & (((uint64_t) 0x1) << 45))
+                     k = 45;
+                  else
+                     k = 44;
+            else
+               if (n & (((uint64_t) 0x3) << 42))
+                  if (n & (((uint64_t) 0x1) << 43))
+                     k = 43;
+                  else
+                     k = 42;
+               else
+                  if (n & (((uint64_t) 0x1) << 41))
+                     k = 41;
+                  else
+                     k = 40;
+         else
+            if (n & (((uint64_t) 0xf) << 36))
+               if (n & (((uint64_t) 0x3) << 38))
+                  if (n & (((uint64_t) 0x1) << 39))
+                     k = 39;
+                  else
+                     k = 38;
+               else
+                  if (n & (((uint64_t) 0x1) << 37))
+                     k = 37;
+                  else
+                     k = 36;
+            else
+               if (n & (((uint64_t) 0x3) << 34))
+                  if (n & (((uint64_t) 0x1) << 35))
+                     k = 35;
+                  else
+                     k = 34;
+               else
+                  if (n & (((uint64_t) 0x1) << 33))
+                     k = 33;
+                  else
+                     k = 32;
+   else
+      if (n & (((uint64_t) 0xffff) << 16))
+         if (n & (((uint64_t) 0xff) << 24))
+            if (n & (((uint64_t) 0xf) << 28))
+               if (n & (((uint64_t) 0x3) << 30))
+                  if (n & (((uint64_t) 0x1) << 31))
+                     k = 31;
+                  else
+                     k = 30;
+               else
+                  if (n & (((uint64_t) 0x1) << 29))
+                     k = 29;
+                  else
+                     k = 28;
+            else
+               if (n & (((uint64_t) 0x3) << 26))
+                  if (n & (((uint64_t) 0x1) << 27))
+                     k = 27;
+                  else
+                     k = 26;
+               else
+                  if (n & (((uint64_t) 0x1) << 25))
+                     k = 25;
+                  else
+                     k = 24;
+         else
+            if (n & (((uint64_t) 0xf) << 20))
+               if (n & (((uint64_t) 0x3) << 22))
+                  if (n & (((uint64_t) 0x1) << 23))
+                     k = 23;
+                  else
+                     k = 22;
+               else
+                  if (n & (((uint64_t) 0x1) << 21))
+                     k = 21;
+                  else
+                     k = 20;
+            else
+               if (n & (((uint64_t) 0x3) << 18))
+                  if (n & (((uint64_t) 0x1) << 19))
+                     k = 19;
+                  else
+                     k = 18;
+               else
+                  if (n & (((uint64_t) 0x1) << 17))
+                     k = 17;

_service:tar_scm:mpc-1.2.0.tar.gz/src/set_prec.c -> _service:tar_scm:mpc-1.3.1.tar.gz/src/set_prec.c Changed

_service:tar_scm:mpc-1.2.0.tar.gz/src/set_str.c -> _service:tar_scm:mpc-1.3.1.tar.gz/src/set_str.c Changed

_service:tar_scm:mpc-1.2.0.tar.gz/src/set_x.c -> _service:tar_scm:mpc-1.3.1.tar.gz/src/set_x.c Changed

_service:tar_scm:mpc-1.2.0.tar.gz/src/set_x_x.c -> _service:tar_scm:mpc-1.3.1.tar.gz/src/set_x_x.c Changed

_service:tar_scm:mpc-1.2.0.tar.gz/src/sqrt.c -> _service:tar_scm:mpc-1.3.1.tar.gz/src/sqrt.c Changed

@@ -20,13 +20,6 @@
 
 #include "mpc-impl.h"
 
-#if MPFR_VERSION_MAJOR < 3
-#define mpfr_min_prec(x) \
-   ( ((prec + BITS_PER_MP_LIMB - 1) / BITS_PER_MP_LIMB) * BITS_PER_MP_LIMB \
-     - mpn_scan1 (x->_mpfr_d, 0))
-#endif
-
-
 int
 mpc_sqrt (mpc_ptr a, mpc_srcptr b, mpc_rnd_t rnd)
 {
@@ -184,6 +177,8 @@
       if (rnd_t == MPFR_RNDZ)
          /* force MPFR_RNDD or MPFR_RNDUP, using sign(t) = sign(y) */
          rnd_t = (im_cmp > 0 ? MPFR_RNDD : MPFR_RNDU);
+      else if (rnd_t == MPFR_RNDA)
+         rnd_t = (im_cmp > 0 ? MPFR_RNDU : MPFR_RNDD);
       prec_t = MPC_PREC_IM (a);
    }
    else {
@@ -194,12 +189,16 @@
          rnd_t = MPC_RND_RE(rnd);
          if (rnd_t == MPFR_RNDZ)
             rnd_t = MPFR_RNDD;
+         else if (rnd_t == MPFR_RNDA)
+            rnd_t = MPFR_RNDU;
       }
       else {
          rnd_w = INV_RND(MPC_RND_IM (rnd));
          rnd_t = INV_RND(MPC_RND_RE (rnd));
          if (rnd_t == MPFR_RNDZ)
             rnd_t = MPFR_RNDU;
+         else if (rnd_t == MPFR_RNDA)
+            rnd_t = MPFR_RNDD;
       }
    }
 
@@ -298,7 +297,7 @@
          /* determine ternary value, but also potentially add 1 ulp; can only
             be done now when we are in the target precision */
          if (re_cmp > 0) {
-            if (rnd_w == MPFR_RNDU) {
+            if (rnd_w == MPFR_RNDU || rnd_w == MPFR_RNDA) {
                MPFR_ADD_ONE_ULP (mpc_realref (a));
                inex_re = +1;
             }
@@ -306,7 +305,7 @@
                inex_re = -1;
          }
          else if (im_cmp > 0) {
-            if (rnd_w == MPFR_RNDU) {
+            if (rnd_w == MPFR_RNDU || rnd_w == MPFR_RNDA) {
                MPFR_ADD_ONE_ULP (mpc_imagref (a));
                inex_im = +1;
             }
@@ -314,7 +313,7 @@
                inex_im = -1;
          }
          else {
-            if (rnd_w == MPFR_RNDU) {
+            if (rnd_w == MPFR_RNDU || rnd_w == MPFR_RNDA) {
                MPFR_ADD_ONE_ULP (mpc_imagref (a));
                inex_im = -1;
             }

_service:tar_scm:mpc-1.2.0.tar.gz/src/tan.c -> _service:tar_scm:mpc-1.3.1.tar.gz/src/tan.c Changed

_service:tar_scm:mpc-1.2.0.tar.gz/tests/Makefile.am -> _service:tar_scm:mpc-1.3.1.tar.gz/tests/Makefile.am Changed

@@ -1,6 +1,6 @@
 ## tests/Makefile.am -- Process this file with automake to produce Makefile.in
 ##
-## Copyright (C) 2008, 2009, 2010, 2011, 2012, 2013, 2016, 2020 INRIA
+## Copyright (C) 2008, 2009, 2010, 2011, 2012, 2013, 2016, 2018, 2020, 2021, 2022 INRIA
 ##
 ## This file is part of GNU MPC.
 ##
@@ -35,7 +35,8 @@
   $(top_builddir)/tests/.libs/libmpc-tests.a		\
   $(top_builddir)/src/.libs/libmpc.a $(LIBS)
 
-check_PROGRAMS = tabs tacos tacosh tadd tadd_fr tadd_si tadd_ui targ	\
+check_PROGRAMS = tradius tballs teta                                    \
+  tabs tacos tacosh tadd tadd_fr tadd_si tadd_ui tagm targ              \
   tasin tasinh tatan tatanh tcmp_abs tconj tcos tcosh                   \
   tdiv tdiv_2si tdiv_2ui tdiv_fr tdiv_ui tdot texp tfma tfr_div tfr_sub \
   timag tio_str tlog tlog10						\
@@ -43,7 +44,8 @@
   tpow_d tpow_fr tpow_ld tpow_si tpow_ui tpow_z tprec tproj treal	\
   treimref trootofunity                                                 \
   tset tsin tsin_cos tsinh tsqr tsqrt tstrtoc tsub tsub_fr	        \
-  tsub_ui tsum tswap ttan ttanh tui_div tui_ui_sub tget_version exceptions
+  tsub_ui tsum tswap ttan ttanh tui_div tui_ui_sub                      \
+  tget_version texceptions tdummy
 
 check_LTLIBRARIES=libmpc-tests.la
 libmpc_tests_la_SOURCES = mpc-tests.h check_data.c clear_parameters.c	\
@@ -53,8 +55,8 @@
   setprec_parameters.c tpl_gmp.c tpl_mpc.c tpl_mpfr.c tpl_native.c
 
 DESCRIPTIONS = abs.dsc acos.dsc acosh.dsc add.dsc add_fr.dsc add_si.dsc	\
-  add_ui.dsc arg.dsc asin.dsc asinh.dsc atan.dsc atanh.dsc              \
-  cmp_abs.dsc conj.dsc	\
+  add_ui.dsc agm.dsc arg.dsc asin.dsc asinh.dsc atan.dsc atanh.dsc      \
+  cmp_abs.dsc conj.dsc	                                                \
   cos.dsc cosh.dsc div.dsc div_2si.dsc div_2ui.dsc div_fr.dsc           \
   div_ui.dsc exp.dsc fma.dsc fr_div.dsc fr_sub.dsc imag.dsc log.dsc	\
   log10.dsc mul.dsc mul_2si.dsc mul_2ui.dsc mul_fr.dsc mul_i.dsc	\
@@ -63,8 +65,8 @@
   sin.dsc sin_cos.dsc	                                                \
   sinh.dsc sqr.dsc sqrt.dsc sub.dsc sub_fr.dsc sub_ui.dsc tan.dsc	\
   tanh.dsc ui_div.dsc ui_ui_sub.dsc
-DATA_SETS = abs.dat acos.dat acosh.dat add.dat add_fr.dat arg.dat	\
-  asin.dat asinh.dat atan.dat atanh.dat                                 \
+DATA_SETS = abs.dat acos.dat acosh.dat add.dat add_fr.dat agm.dat       \
+  arg.dat asin.dat asinh.dat atan.dat atanh.dat                         \
   cmp_abs.dat conj.dat cos.dat cosh.dat	                                \
   div.dat div_fr.dat exp.dat fma.dat fr_div.dat fr_sub.dat inp_str.dat	\
   log.dat log10.dat mul.dat mul_fr.dat neg.dat norm.dat pow.dat		\

_service:tar_scm:mpc-1.2.0.tar.gz/tests/Makefile.in -> _service:tar_scm:mpc-1.3.1.tar.gz/tests/Makefile.in Changed

@@ -1,7 +1,7 @@
-# Makefile.in generated by automake 1.16.2 from Makefile.am.
+# Makefile.in generated by automake 1.16.1 from Makefile.am.
 # @configure_input@
 
-# Copyright (C) 1994-2020 Free Software Foundation, Inc.
+# Copyright (C) 1994-2018 Free Software Foundation, Inc.
 
 # This Makefile.in is free software; the Free Software Foundation
 # gives unlimited permission to copy and/or distribute it,
@@ -87,9 +87,10 @@
 POST_UNINSTALL = :
 build_triplet = @build@
 host_triplet = @host@
-check_PROGRAMS = tabs$(EXEEXT) tacos$(EXEEXT) tacosh$(EXEEXT) \
-	tadd$(EXEEXT) tadd_fr$(EXEEXT) tadd_si$(EXEEXT) \
-	tadd_ui$(EXEEXT) targ$(EXEEXT) tasin$(EXEEXT) tasinh$(EXEEXT) \
+check_PROGRAMS = tradius$(EXEEXT) tballs$(EXEEXT) teta$(EXEEXT) \
+	tabs$(EXEEXT) tacos$(EXEEXT) tacosh$(EXEEXT) tadd$(EXEEXT) \
+	tadd_fr$(EXEEXT) tadd_si$(EXEEXT) tadd_ui$(EXEEXT) \
+	tagm$(EXEEXT) targ$(EXEEXT) tasin$(EXEEXT) tasinh$(EXEEXT) \
 	tatan$(EXEEXT) tatanh$(EXEEXT) tcmp_abs$(EXEEXT) \
 	tconj$(EXEEXT) tcos$(EXEEXT) tcosh$(EXEEXT) tdiv$(EXEEXT) \
 	tdiv_2si$(EXEEXT) tdiv_2ui$(EXEEXT) tdiv_fr$(EXEEXT) \
@@ -106,11 +107,11 @@
 	tsqr$(EXEEXT) tsqrt$(EXEEXT) tstrtoc$(EXEEXT) tsub$(EXEEXT) \
 	tsub_fr$(EXEEXT) tsub_ui$(EXEEXT) tsum$(EXEEXT) tswap$(EXEEXT) \
 	ttan$(EXEEXT) ttanh$(EXEEXT) tui_div$(EXEEXT) \
-	tui_ui_sub$(EXEEXT) tget_version$(EXEEXT) exceptions$(EXEEXT)
+	tui_ui_sub$(EXEEXT) tget_version$(EXEEXT) texceptions$(EXEEXT) \
+	tdummy$(EXEEXT)
 subdir = tests
 ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
-am__aclocal_m4_deps = $(top_srcdir)/m4/ax_c_check_flag.m4 \
-	$(top_srcdir)/m4/ax_gcc_option.m4 \
+am__aclocal_m4_deps = $(top_srcdir)/m4/ax_gcc_option.m4 \
 	$(top_srcdir)/m4/ax_gcc_version.m4 $(top_srcdir)/m4/libtool.m4 \
 	$(top_srcdir)/m4/ltoptions.m4 $(top_srcdir)/m4/ltsugar.m4 \
 	$(top_srcdir)/m4/ltversion.m4 $(top_srcdir)/m4/lt~obsolete.m4 \
@@ -136,11 +137,6 @@
 am__v_lt_ = $(am__v_lt_@AM_DEFAULT_V@)
 am__v_lt_0 = --silent
 am__v_lt_1 = 
-exceptions_SOURCES = exceptions.c
-exceptions_OBJECTS = exceptions.$(OBJEXT)
-exceptions_LDADD = $(LDADD)
-exceptions_DEPENDENCIES = libmpc-tests.la \
-	$(top_builddir)/src/libmpc.la
 tabs_SOURCES = tabs.c
 tabs_OBJECTS = tabs.$(OBJEXT)
 tabs_LDADD = $(LDADD)
@@ -169,6 +165,10 @@
 tadd_ui_OBJECTS = tadd_ui.$(OBJEXT)
 tadd_ui_LDADD = $(LDADD)
 tadd_ui_DEPENDENCIES = libmpc-tests.la $(top_builddir)/src/libmpc.la
+tagm_SOURCES = tagm.c
+tagm_OBJECTS = tagm.$(OBJEXT)
+tagm_LDADD = $(LDADD)
+tagm_DEPENDENCIES = libmpc-tests.la $(top_builddir)/src/libmpc.la
 targ_SOURCES = targ.c
 targ_OBJECTS = targ.$(OBJEXT)
 targ_LDADD = $(LDADD)
@@ -189,6 +189,10 @@
 tatanh_OBJECTS = tatanh.$(OBJEXT)
 tatanh_LDADD = $(LDADD)
 tatanh_DEPENDENCIES = libmpc-tests.la $(top_builddir)/src/libmpc.la
+tballs_SOURCES = tballs.c
+tballs_OBJECTS = tballs.$(OBJEXT)
+tballs_LDADD = $(LDADD)
+tballs_DEPENDENCIES = libmpc-tests.la $(top_builddir)/src/libmpc.la
 tcmp_abs_SOURCES = tcmp_abs.c
 tcmp_abs_OBJECTS = tcmp_abs.$(OBJEXT)
 tcmp_abs_LDADD = $(LDADD)
@@ -229,6 +233,19 @@
 tdot_OBJECTS = tdot.$(OBJEXT)
 tdot_LDADD = $(LDADD)
 tdot_DEPENDENCIES = libmpc-tests.la $(top_builddir)/src/libmpc.la
+tdummy_SOURCES = tdummy.c
+tdummy_OBJECTS = tdummy.$(OBJEXT)
+tdummy_LDADD = $(LDADD)
+tdummy_DEPENDENCIES = libmpc-tests.la $(top_builddir)/src/libmpc.la
+teta_SOURCES = teta.c
+teta_OBJECTS = teta.$(OBJEXT)
+teta_LDADD = $(LDADD)
+teta_DEPENDENCIES = libmpc-tests.la $(top_builddir)/src/libmpc.la
+texceptions_SOURCES = texceptions.c
+texceptions_OBJECTS = texceptions.$(OBJEXT)
+texceptions_LDADD = $(LDADD)
+texceptions_DEPENDENCIES = libmpc-tests.la \
+	$(top_builddir)/src/libmpc.la
 texp_SOURCES = texp.c
 texp_OBJECTS = texp.$(OBJEXT)
 texp_LDADD = $(LDADD)
@@ -338,6 +355,10 @@
 tproj_OBJECTS = tproj.$(OBJEXT)
 tproj_LDADD = $(LDADD)
 tproj_DEPENDENCIES = libmpc-tests.la $(top_builddir)/src/libmpc.la
+tradius_SOURCES = tradius.c
+tradius_OBJECTS = tradius.$(OBJEXT)
+tradius_LDADD = $(LDADD)
+tradius_DEPENDENCIES = libmpc-tests.la $(top_builddir)/src/libmpc.la
 treal_SOURCES = treal.c
 treal_OBJECTS = treal.$(OBJEXT)
 treal_LDADD = $(LDADD)
@@ -435,26 +456,27 @@
 	./$(DEPDIR)/clear_parameters.Plo \
 	./$(DEPDIR)/close_datafile.Plo ./$(DEPDIR)/comparisons.Plo \
 	./$(DEPDIR)/copy_parameter.Plo ./$(DEPDIR)/double_rounding.Plo \
-	./$(DEPDIR)/exceptions.Po ./$(DEPDIR)/init_parameters.Plo \
-	./$(DEPDIR)/mpfr_flags.Plo ./$(DEPDIR)/open_datafile.Plo \
-	./$(DEPDIR)/print_parameter.Plo ./$(DEPDIR)/random.Plo \
-	./$(DEPDIR)/read_data.Plo ./$(DEPDIR)/read_description.Plo \
-	./$(DEPDIR)/read_line.Plo ./$(DEPDIR)/rounding.Plo \
-	./$(DEPDIR)/setprec_parameters.Plo ./$(DEPDIR)/tabs.Po \
-	./$(DEPDIR)/tacos.Po ./$(DEPDIR)/tacosh.Po ./$(DEPDIR)/tadd.Po \
-	./$(DEPDIR)/tadd_fr.Po ./$(DEPDIR)/tadd_si.Po \
-	./$(DEPDIR)/tadd_ui.Po ./$(DEPDIR)/targ.Po \
-	./$(DEPDIR)/tasin.Po ./$(DEPDIR)/tasinh.Po \
-	./$(DEPDIR)/tatan.Po ./$(DEPDIR)/tatanh.Po \
+	./$(DEPDIR)/init_parameters.Plo ./$(DEPDIR)/mpfr_flags.Plo \
+	./$(DEPDIR)/open_datafile.Plo ./$(DEPDIR)/print_parameter.Plo \
+	./$(DEPDIR)/random.Plo ./$(DEPDIR)/read_data.Plo \
+	./$(DEPDIR)/read_description.Plo ./$(DEPDIR)/read_line.Plo \
+	./$(DEPDIR)/rounding.Plo ./$(DEPDIR)/setprec_parameters.Plo \
+	./$(DEPDIR)/tabs.Po ./$(DEPDIR)/tacos.Po ./$(DEPDIR)/tacosh.Po \
+	./$(DEPDIR)/tadd.Po ./$(DEPDIR)/tadd_fr.Po \
+	./$(DEPDIR)/tadd_si.Po ./$(DEPDIR)/tadd_ui.Po \
+	./$(DEPDIR)/tagm.Po ./$(DEPDIR)/targ.Po ./$(DEPDIR)/tasin.Po \
+	./$(DEPDIR)/tasinh.Po ./$(DEPDIR)/tatan.Po \
+	./$(DEPDIR)/tatanh.Po ./$(DEPDIR)/tballs.Po \
 	./$(DEPDIR)/tcmp_abs.Po ./$(DEPDIR)/tconj.Po \
 	./$(DEPDIR)/tcos.Po ./$(DEPDIR)/tcosh.Po ./$(DEPDIR)/tdiv.Po \
 	./$(DEPDIR)/tdiv_2si.Po ./$(DEPDIR)/tdiv_2ui.Po \
 	./$(DEPDIR)/tdiv_fr.Po ./$(DEPDIR)/tdiv_ui.Po \
-	./$(DEPDIR)/tdot.Po ./$(DEPDIR)/texp.Po ./$(DEPDIR)/tfma.Po \
-	./$(DEPDIR)/tfr_div.Po ./$(DEPDIR)/tfr_sub.Po \
-	./$(DEPDIR)/tget_version.Po ./$(DEPDIR)/timag.Po \
-	./$(DEPDIR)/tio_str.Po ./$(DEPDIR)/tlog.Po \
-	./$(DEPDIR)/tlog10.Po ./$(DEPDIR)/tmul.Po \
+	./$(DEPDIR)/tdot.Po ./$(DEPDIR)/tdummy.Po ./$(DEPDIR)/teta.Po \
+	./$(DEPDIR)/texceptions.Po ./$(DEPDIR)/texp.Po \
+	./$(DEPDIR)/tfma.Po ./$(DEPDIR)/tfr_div.Po \
+	./$(DEPDIR)/tfr_sub.Po ./$(DEPDIR)/tget_version.Po \
+	./$(DEPDIR)/timag.Po ./$(DEPDIR)/tio_str.Po \
+	./$(DEPDIR)/tlog.Po ./$(DEPDIR)/tlog10.Po ./$(DEPDIR)/tmul.Po \
 	./$(DEPDIR)/tmul_2si.Po ./$(DEPDIR)/tmul_2ui.Po \
 	./$(DEPDIR)/tmul_fr.Po ./$(DEPDIR)/tmul_i.Po \
 	./$(DEPDIR)/tmul_si.Po ./$(DEPDIR)/tmul_ui.Po \
@@ -465,11 +487,11 @@
 	./$(DEPDIR)/tpow_fr.Po ./$(DEPDIR)/tpow_ld.Po \
 	./$(DEPDIR)/tpow_si.Po ./$(DEPDIR)/tpow_ui.Po \
 	./$(DEPDIR)/tpow_z.Po ./$(DEPDIR)/tprec.Po \
-	./$(DEPDIR)/tproj.Po ./$(DEPDIR)/treal.Po \
-	./$(DEPDIR)/treimref.Po ./$(DEPDIR)/trootofunity.Po \
-	./$(DEPDIR)/tset.Po ./$(DEPDIR)/tsin.Po \
-	./$(DEPDIR)/tsin_cos.Po ./$(DEPDIR)/tsinh.Po \
-	./$(DEPDIR)/tsqr.Po ./$(DEPDIR)/tsqrt.Po \
+	./$(DEPDIR)/tproj.Po ./$(DEPDIR)/tradius.Po \
+	./$(DEPDIR)/treal.Po ./$(DEPDIR)/treimref.Po \
+	./$(DEPDIR)/trootofunity.Po ./$(DEPDIR)/tset.Po \
+	./$(DEPDIR)/tsin.Po ./$(DEPDIR)/tsin_cos.Po \
+	./$(DEPDIR)/tsinh.Po ./$(DEPDIR)/tsqr.Po ./$(DEPDIR)/tsqrt.Po \
 	./$(DEPDIR)/tstrtoc.Po ./$(DEPDIR)/tsub.Po \
 	./$(DEPDIR)/tsub_fr.Po ./$(DEPDIR)/tsub_ui.Po \
 	./$(DEPDIR)/tsum.Po ./$(DEPDIR)/tswap.Po ./$(DEPDIR)/ttan.Po \
@@ -494,28 +516,30 @@
 am__v_CCLD_ = $(am__v_CCLD_@AM_DEFAULT_V@)
 am__v_CCLD_0 = @echo "  CCLD    " $@;
 am__v_CCLD_1 = 
-SOURCES = $(libmpc_tests_la_SOURCES) exceptions.c tabs.c tacos.c \
-	tacosh.c tadd.c tadd_fr.c tadd_si.c tadd_ui.c targ.c tasin.c \
-	tasinh.c tatan.c tatanh.c tcmp_abs.c tconj.c tcos.c tcosh.c \
-	tdiv.c tdiv_2si.c tdiv_2ui.c tdiv_fr.c tdiv_ui.c tdot.c texp.c \
-	tfma.c tfr_div.c tfr_sub.c tget_version.c timag.c tio_str.c \
-	tlog.c tlog10.c tmul.c tmul_2si.c tmul_2ui.c tmul_fr.c \
-	tmul_i.c tmul_si.c tmul_ui.c tneg.c tnorm.c tpow.c tpow_d.c \
-	tpow_fr.c tpow_ld.c tpow_si.c tpow_ui.c tpow_z.c tprec.c \
-	tproj.c treal.c treimref.c trootofunity.c tset.c tsin.c \
-	tsin_cos.c tsinh.c tsqr.c tsqrt.c tstrtoc.c tsub.c tsub_fr.c \
-	tsub_ui.c tsum.c tswap.c ttan.c ttanh.c tui_div.c tui_ui_sub.c
-DIST_SOURCES = $(libmpc_tests_la_SOURCES) exceptions.c tabs.c tacos.c \
-	tacosh.c tadd.c tadd_fr.c tadd_si.c tadd_ui.c targ.c tasin.c \
-	tasinh.c tatan.c tatanh.c tcmp_abs.c tconj.c tcos.c tcosh.c \
-	tdiv.c tdiv_2si.c tdiv_2ui.c tdiv_fr.c tdiv_ui.c tdot.c texp.c \
-	tfma.c tfr_div.c tfr_sub.c tget_version.c timag.c tio_str.c \
-	tlog.c tlog10.c tmul.c tmul_2si.c tmul_2ui.c tmul_fr.c \
-	tmul_i.c tmul_si.c tmul_ui.c tneg.c tnorm.c tpow.c tpow_d.c \
-	tpow_fr.c tpow_ld.c tpow_si.c tpow_ui.c tpow_z.c tprec.c \
-	tproj.c treal.c treimref.c trootofunity.c tset.c tsin.c \
-	tsin_cos.c tsinh.c tsqr.c tsqrt.c tstrtoc.c tsub.c tsub_fr.c \
-	tsub_ui.c tsum.c tswap.c ttan.c ttanh.c tui_div.c tui_ui_sub.c
+SOURCES = $(libmpc_tests_la_SOURCES) tabs.c tacos.c tacosh.c tadd.c \
+	tadd_fr.c tadd_si.c tadd_ui.c tagm.c targ.c tasin.c tasinh.c \
+	tatan.c tatanh.c tballs.c tcmp_abs.c tconj.c tcos.c tcosh.c \
+	tdiv.c tdiv_2si.c tdiv_2ui.c tdiv_fr.c tdiv_ui.c tdot.c \
+	tdummy.c teta.c texceptions.c texp.c tfma.c tfr_div.c \
+	tfr_sub.c tget_version.c timag.c tio_str.c tlog.c tlog10.c \
+	tmul.c tmul_2si.c tmul_2ui.c tmul_fr.c tmul_i.c tmul_si.c \
+	tmul_ui.c tneg.c tnorm.c tpow.c tpow_d.c tpow_fr.c tpow_ld.c \
+	tpow_si.c tpow_ui.c tpow_z.c tprec.c tproj.c tradius.c treal.c \

_service:tar_scm:mpc-1.3.1.tar.gz/tests/README.dev Added

@@ -0,0 +1,185 @@
+This file describe the framework for testing MPC functions.
+===========================================================
+
+Functionality
+-------------
+The test suite usually perform 3 kinds of tests for a given function:
+
+1. it verifies that the result returned by the function matches with
+precomputed data written in a '.dat' file,
+
+2. it checks that the function computes coherent results in low and high
+precision,
+
+3. optionally, it performs additional checks specific to the function under
+test.
+
+The test suite provides support for the first two items. This ensures that all
+function tests using the framework execute a set of verifications in a
+systematic way.
+
+
+How to add a test for a new function?
+-------------------------------------
+
+1. The test framework does support only functions with exactly one output
+parameter. An ad hoc solution must be used for functions with other
+prototypes. For an adaptation to a function with two output parameters, see
+tsin_cos.c file.
+
+If you want to use the system checking against data sets or the random tests,
+you will need to describe the function prototype in a file (procedure detailed
+in 2.) and to define several macros (detailed in 3.). Then, you can call the
+data_check_template() function for checking against a data set (see 4.) or the
+tgeneric_template() function for random values (see 5.).
+
+In both cases, the 'mpc-test.h' header file must be included.
+
+
+2. First write a description of the function interface describing, in this
+order, the name of the function, the return value, the set of input
+parameters, and the set of output parameters.
+
+For instance, the description file of the mpc_add function (excerpt of
+add.dsc) is displayed below:
+
+# Description file of the function
+NAME:
+    mpc_add
+RETURN:
+    mpc_inex
+OUTPUT:
+    mpc_ptr
+INPUT:
+    mpc_srcptr
+    mpc_srcptr
+    mpc_rnd_t
+
+The integer value returned by MPC functions is usually the inexact flag. In
+that case, the return value type must be denoted as 'mpc_inex'. Other types
+are generally the C type that appears in the function prototype.
+
+The easiest way is to adapt a description file of a function with the same
+prototype.
+
+
+3. Second, define at least the MPC_FUNCTION_CALL macro.
+
+Because the framework is common to all MPC function (or so), the
+data_check_template() and the tgeneric_template() functions are written in a
+generic manner. Both function are defined in its own file that the user must
+include. They call the function under test through several macros
+defined by the user before the inclusion of the corresponding file.
+
+The definition of each macro specifies the name of the function under test and
+the parameters in use along with their type.
+
+Four macros can be of interest:
+
+In all cases, the macro MPC_FUNCTION_CALL must
+ MPC_FUNCTION_CALL: mandatory, it describes a simple call to the function,
+
+ MPC_FUNCTION_CALL_SYMMETRIC: optional, it describes a function call with a
+switch of two parameters, it is useful for automatically checking the
+consistency of symmetric functions, i. e. f(a,b) == f(b,a),
+
+ MPC_FUNCTION_CALL_REUSE_OP1
+ MPC_FUNCTION_CALL_REUSE_OP2
+ MPC_FUNCTION_CALL_REUSE_OP3
+ the last three macros can be used to check that the result is not affected by
+the reuse of an input variable as output parameter
+
+Here is how these macros are defined for the mpc_add function:
+#define MPC_FUNCTION_CALL                                               \
+  P0.mpc_inex = mpc_add (P1.mpc, P2.mpc, P3.mpc, P4.mpc_rnd)
+#define MPC_FUNCTION_CALL_SYMMETRIC                                     \
+  P0.mpc_inex = mpc_add (P1.mpc, P3.mpc, P2.mpc, P4.mpc_rnd)
+#define MPC_FUNCTION_CALL_REUSE_OP1                                     \
+  P0.mpc_inex = mpc_add (P1.mpc, P1.mpc, P3.mpc, P4.mpc_rnd)
+#define MPC_FUNCTION_CALL_REUSE_OP2                                     \
+  P0.mpc_inex = mpc_add (P1.mpc, P2.mpc, P1.mpc, P4.mpc_rnd)
+
+
+4. For precomputed values.
+
+The test framework can check the result of the function on given parameters
+against a reference value written in a file.
+
+The file "data_check.tpl" must be included after the definition of
+MPC_FUNCTION_CALL macros and the data_check_template() function can be used in
+the code.
+
+The first parameter of data_check_template() is the name of the description
+file of the function and the second is the name of the data file.
+As an example, here is the function call for testing mpc_add():
+  data_check_template ("add.dsc", "add.dat");
+
+The data file contains a sequence of input and output values in the order
+given by the function prototype. So, output values are usually first, as it is
+the case for most MPC functions.
+
+Here is an excerpt of 'add.dat' (the data set for mpc_add()):
+# special values (following ISO C99 standard)
+0 0 53 -inf 53 -inf    53 -inf 53 -inf 53 -inf 53 -inf N Z
+# pure real argument
++ 0 53  0x10000000000001p-52  53 -0    53 +1 53 -0 53 0x10000000000001p-105 53 -0 N N
+
+The ternary value associated with an mpfr_t result is described as:
+"?" it should not be checked
+"+" if the computed result is greater than the exact mathematical result
+"0" if the computed result is exactly the mathematical result
+"-" if the computed result is less than the exact mathematical result
+
+The mpc_inex value is a pair of ternary values.
+
+The values for mpfr_t and mpc_t parameters come along with their
+precision. Use prefixes "0b" for values in base two, "0x" for values in base
+sixteen, no prefix for value in base ten.  In all bases, "nan" is NaN, "inf"
+is infinity; the sign of infinity and zero is checked if it is specified in
+the data file, otherwise it is ignored.
+
+The MPFR rounding mode is denoted by
+"N" for rounding to nearest
+"Z" for rounding towards zero
+"U" for rounding towards plus infinity
+"D" for rounding towards minus infinity
+
+The MPC rounding mode is a pair of MPFR rounding mode.
+
+Thus, the following line from 'add.dat'
+0 0 53 -inf 53 -inf    53 -inf 53 -inf 53 -inf 53 -inf N Z
+indicates that
+(-inf +i * -inf) + (-inf +i * -inf)
+should be exactly
+-inf +i * -inf
+in 53-bit precision with rounding to nearest for the real part
+and rounding toward minus infinity for the imaginary part.
+
+The line
++ 0 53  0x10000000000001p-52  53 -0    53 +1 53 -0 53 0x10000000000001p-105 53 -0 N N
+indicates that
+(+1 +i * -0) + (0x10000000000001p-105 +i * -0)
+is 
+0x10000000000001p-52 +i * -0
+in 53-bit precision when rounding both part to nearest, the real part is
+actually an overestimation of the exact result (ternary value: +), while the
+imaginary part is exact.
+
+
+5. Test with random values
+
+The framework also provides generic tests with random values.
+
+The file "tgeneric.tpl" must be included after the definition of
+MPC_FUNCTION_CALL macros and the tgeneric_template() function can be used in
+the code.
+
+The first parameter of tgeneric_template() is the description file of the
+function under test. The second and third parameter are the minimum and
+maximum precision for input and output parameters. The fourth is the iteration
+step in the precision range. The last parameter is the maximum
+exponent. Usually, the range of random parameter has to be restricted for a
+reasonable testing time.
+
+As an example, here is the function call for testing mpc_add():
+  tgeneric_template ("add.dsc", 2, 1024, 7, 128);

_service:tar_scm:mpc-1.3.1.tar.gz/tests/agm.dat Added

@@ -0,0 +1,48 @@
+# Data file for mpc_agm
+#
+# Copyright (C) 2022 INRIA
+#
+# This file is part of GNU MPC.
+#
+# GNU MPC 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
+#o ption) any later version.
+#
+# GNU MPC 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 this program. If not, see http://www.gnu.org/licenses/ .
+#
+# The line format respects the parameter order in the function prototype as
+# follows:
+#
+# INEX_RE  INEX_IM  PREC_ROP_RE  ROP_RE  PREC_ROP_IM  ROP_IM  PREC_OP1_RE  OP1_RE  PREC_OP1_IM  OP1_IM  PREC_OP2_RE  OP2_RE  PREC_OP2_IM  OP2_IM  RND_RE  RND_IM
+#
+# See add.dat for more details.
+
+# special cases of 0
+0 0 53 0 53 0  53 -1 53 0  53 1 53 0 U D
+0 0 53 0 53 0  53  0 53 0  53 1 53 1 U D
+0 0 53 0 53 0  53  1 53 0  53 0 53 0 U D
+
+# a=2^100 is real and b=-2^100+1 is close to -a, so that there is
+# cancellation in the first step
++ + 1000 6.13343501065248469040220876057575735521422156659277284015370489065354785004941290892259011656852869912332814488649060620003153660129464591260581455777223198535415374247749106843365161158273510545819077989996849040655334209063638548567093807595920704639335161071221606819684075137748005838679614506936700e26 1000 2.78770347601954771576648332450140186390805588069947753721317890662882377009087432360024540561493332099222362713441719824215798470248682830506492225727606531299471177716509129100229573037698818619139314654444682343585665232750491711201076271867938956241318886378833024121607108490397434698394730099523728e28  200 1267650600228229401496703205376 53 0  200 -1267650600228229401496703205375 53 0 N N
+
+# a=2^100 is real and b=2^100+I is close to a, which causes a loss in the
+# error analysis when switching from a relative error to an absolute error
+# (in ulp) for the imaginary part.
+- + 1000 1.26765060022822940149670320537600000000000000000000000000000004930380657631323783823303533017413935457540219431393779814242309902707311989671728406142043830190405473381225698819654858454795973826194101850808953117443181105327393024632455534713154899279762797670267110875302148050274073504013709877973442e30 1000 4.99999999999999999999999999999999999999999999999999999999999980553077256683932165174799831937111748155461972746352709059016440615656003447359234530134921721757968337357997118603089092837261590319325008176491178329196315059130298011554852301129700508936432021390368960886831534563942526561512902959629403e-1  200 1267650600228229401496703205376 53 0 200 1267650600228229401496703205376 53 1 N N
+# similar case for the real part when b is close to -a
++ + 1000 1.08467876592530886754246811029279356966981636533356136322144733028435886515931858750854237361072769893252665854960527081478235500456780213233344279303704706567669269542103227306403258182872546435486314875088697205523310058229087222631501223687780345556279062417814851470906262487893004445615660926562691e-2 1000 2.78905293895036173379978221446297250405753957415552085947732729471277330502161158283898862494994763003064685588768219963518185298464700472486122950691817734185737320652838329171863564571063685685782635224759876773001459257327047419614690899573835904762076822885023105374294261695197351950136206550502212e28  200 1267650600228229401496703205376 53 0 200 -1267650600228229401496703205376 53 1 N N
+
+# Non-trivial example with an angle pi
+- + 1000 1.73445281498669753232856248343970177809463913976908704246943226531366943181635177029314525135639219796336367868027485122390166753512240063464119645217760215308428521377134601470801777085207181315839747680069598739038938895527870204815473213761883712470377131465129627672808480329626971055399178573237530e0 1000 -7.02268113524478075006321405810247223230827765511578159358705685084648706076496079901548878047371750259623565862936612153628319914882054169762337559071422073790380764162955947410387987517205983880807663678020872942112760649464128028437895895107347428874323595807150644530530843707101528138966376736841785e0  20 1 20 2 20 -10 20 -20 N N
+
+# Non-trivial example with an angle 0
+- - 1000 4.25040709493227486172816431837313486679846786419019285967014766222375531274090378452528546078761717904588171358976686523664106901878258668543430057143043997188667013456002687950950378230536772481087956970495220412257232297324589475076978359364065270281502572385189827930845694706585008531069979410829173e0 1000 8.50081418986454972345632863674626973359693572838038571934029532444751062548180756905057092157523435809176342717953373047328213803756517337086860114286087994377334026912005375901900756461073544962175913940990440824514464594649178950153956718728130540563005144770379655861691389413170017062139958821658346e0  20 1 20 2 20 10 20 20 N N
+

_service:tar_scm:mpc-1.3.1.tar.gz/tests/agm.dsc Added

_service:tar_scm:mpc-1.2.0.tar.gz/tests/asin.dat -> _service:tar_scm:mpc-1.3.1.tar.gz/tests/asin.dat Changed

_service:tar_scm:mpc-1.2.0.tar.gz/tests/asinh.dat -> _service:tar_scm:mpc-1.3.1.tar.gz/tests/asinh.dat Changed

_service:tar_scm:mpc-1.2.0.tar.gz/tests/atan.dat -> _service:tar_scm:mpc-1.3.1.tar.gz/tests/atan.dat Changed

_service:tar_scm:mpc-1.2.0.tar.gz/tests/check_data.c -> _service:tar_scm:mpc-1.3.1.tar.gz/tests/check_data.c Changed

_service:tar_scm:mpc-1.2.0.tar.gz/tests/fma.dat -> _service:tar_scm:mpc-1.3.1.tar.gz/tests/fma.dat Changed

_service:tar_scm:mpc-1.2.0.tar.gz/tests/mpc-tests.h -> _service:tar_scm:mpc-1.3.1.tar.gz/tests/mpc-tests.h Changed

_service:tar_scm:mpc-1.2.0.tar.gz/tests/mul.dat -> _service:tar_scm:mpc-1.3.1.tar.gz/tests/mul.dat Changed

@@ -1,6 +1,6 @@
 # Data file for mpc_mul
 #
-# Copyright (C) 2008, 2010, 2011, 2012 INRIA
+# Copyright (C) 2008, 2010, 2011, 2012, 2022 INRIA
 #
 # This file is part of GNU MPC.
 #
@@ -157,11 +157,13 @@
 + 0 100 +inf 100 +0    100 0x1@125000750 100 0x1@125000750  100 0x1@225000750 100 -0x1@225000750 N N
 # the same with directed rounding
 - + 10 -inf 10 +inf 10 0x1@125000750 10 0x3@125000750  10 0x1@225000750 10 0x2@225000750 D U
+- + 10 -inf 10 +inf 10 0x1@125000750 10 0x3@125000750  10 0x1@225000750 10 0x2@225000750 A A
 # the following test assumes the maximum MPFR exponent is 1073741821
 # and the minimum exponent is -1073741821
 + - 10 -0b1.111111111e1073741820 10 0b1.111111111e1073741820  10 0x1@125000750 10 0x3@125000750  10 0x1@225000750 10 0x2@225000750 U D
 + - 10 -0   10 +0    10 0x1@-125000750 10 0x3@-125000750  10 0x1@-225000750 10 0x2@-225000750 U D
 - + 10 -0b1e-1073741822   10 0b1e-1073741822    10 0x1@-125000750 10 0x3@-125000750  10 0x1@-225000750 10 0x2@-225000750 D U
+- + 10 -0b1e-1073741822   10 0b1e-1073741822    10 0x1@-125000750 10 0x3@-125000750  10 0x1@-225000750 10 0x2@-225000750 A A
 # starting with Karatsuba
 - + 10000 -inf 100 +inf  100 0x1@125000750 100 0x3@125000750  100 0x1@225000750 100 0x2@225000750 N N
 - + 10000 -inf 100 +inf  100 0x1@225000750 100 0x2@225000750  100 0x1@125000750 100 0x3@125000750 N N
@@ -182,3 +184,6 @@
 
 + 0 2 1 2 0x2p-536870913 2 1 2 0x1p-536870913 2 1 2 0x1p-536870913 N N
 0 - 2 0 2 1 2 0x1p-536870913 2 1 2 1 2 0x1p-536870913 N N
+
+# error in sign of 0 with exact Karatsuba found on 2022-11-30
+0 0 1473 -50 1473 +0  20 1 20 2 20 -10 20 20 N N

_service:tar_scm:mpc-1.2.0.tar.gz/tests/pow_fr.dat -> _service:tar_scm:mpc-1.3.1.tar.gz/tests/pow_fr.dat Changed

_service:tar_scm:mpc-1.2.0.tar.gz/tests/print_parameter.c -> _service:tar_scm:mpc-1.3.1.tar.gz/tests/print_parameter.c Changed

@@ -21,24 +21,28 @@
 #include "mpc-tests.h"
 
 static const char *mpfr_rnd_mode  =
-  { "MPFR_RNDN", "MPFR_RNDZ", "MPFR_RNDU", "MPFR_RNDD" };
+  { "MPFR_RNDN", "MPFR_RNDZ", "MPFR_RNDU", "MPFR_RNDD", "MPFR_RNDA" };
 const char *mpc_rnd_mode =
-  { "MPC_RNDNN", "MPC_RNDZN", "MPC_RNDUN", "MPC_RNDDN",
+  { "MPC_RNDNN", "MPC_RNDZN", "MPC_RNDUN", "MPC_RNDDN", "MPC_RNDAN",
     "undefined", "undefined", "undefined", "undefined", "undefined",
     "undefined", "undefined", "undefined", "undefined", "undefined",
-    "undefined", "undefined",
-    "MPC_RNDNZ", "MPC_RNDZZ", "MPC_RNDUZ", "MPC_RNDDZ",
+    "undefined",
+    "MPC_RNDNZ", "MPC_RNDZZ", "MPC_RNDUZ", "MPC_RNDDZ", "MPC_RNDAZ",
     "undefined", "undefined", "undefined", "undefined", "undefined",
     "undefined", "undefined", "undefined", "undefined", "undefined",
-    "undefined", "undefined",
-    "MPC_RNDNU", "MPC_RNDZU", "MPC_RNDUU", "MPC_RNDDU",
+    "undefined",
+    "MPC_RNDNU", "MPC_RNDZU", "MPC_RNDUU", "MPC_RNDDU", "MPC_RNDAU",
     "undefined", "undefined", "undefined", "undefined", "undefined",
     "undefined", "undefined", "undefined", "undefined", "undefined",
-    "undefined", "undefined",
-    "MPC_RNDND", "MPC_RNDZD", "MPC_RNDUD", "MPC_RNDDD",
+    "undefined",
+    "MPC_RNDND", "MPC_RNDZD", "MPC_RNDUD", "MPC_RNDDD", "MPC_RNDAD",
     "undefined", "undefined", "undefined", "undefined", "undefined",
     "undefined", "undefined", "undefined", "undefined", "undefined",
-    "undefined", "undefined",
+    "undefined",
+    "MPC_RNDNA", "MPC_RNDZA", "MPC_RNDUA", "MPC_RNDDA", "MPC_RNDAA",
+    "undefined", "undefined", "undefined", "undefined", "undefined",
+    "undefined", "undefined", "undefined", "undefined", "undefined",
+    "undefined"
   };
   /* needed in tio_str.c and tstrtoc.c, so not static */

_service:tar_scm:mpc-1.2.0.tar.gz/tests/read_data.c -> _service:tar_scm:mpc-1.3.1.tar.gz/tests/read_data.c Changed

_service:tar_scm:mpc-1.2.0.tar.gz/tests/rounding.c -> _service:tar_scm:mpc-1.3.1.tar.gz/tests/rounding.c Changed

_service:tar_scm:mpc-1.2.0.tar.gz/tests/sqrt.dat -> _service:tar_scm:mpc-1.3.1.tar.gz/tests/sqrt.dat Changed

@@ -1,6 +1,6 @@
 # Data file for mpc_sqrt.
 #
-# Copyright (C) 2008, 2010 INRIA
+# Copyright (C) 2008, 2010, 2022 INRIA
 #
 # This file is part of GNU MPC.
 #
@@ -79,19 +79,24 @@
 + 0 53  0x16a09e667f3bcdp-52 53                    +0    53  2 17 +0 N N
 0 + 53                    +0 53  0x16a09e667f3bcdp-52    54 -2 16 +0 Z N
 + 0 53  0x16a09e667f3bcdp-52 53                    -0    55  2 15 -0 U N
++ 0 53  0x16a09e667f3bcdp-52 53                    -0    55  2 15 -0 A N
 0 - 53                    +0 53 -0x16a09e667f3bcdp-52    56 -2 14 -0 D N
 - 0 53  0x5a827999fcef30p-54 53                    +0    57  2 13 +0 Z Z
 0 - 53                    +0 53  0x5a827999fcef30p-54    58 -2 12 +0 U Z
 - 0 53  0x5a827999fcef30p-54 53                    -0    59  2 11 -0 D Z
 0 + 53                    +0 53 -0x5a827999fcef30p-54    60 -2 10 -0 N Z
 + 0 53  0x16a09e667f3bcdp-52 53                    +0    61  2  9 +0 U U
++ 0 53  0x16a09e667f3bcdp-52 53                    +0    61  2  9 +0 A A
 0 + 53                    +0 53  0x16a09e667f3bcdp-52    62 -2  8 +0 D U
+0 + 53                    +0 53  0x16a09e667f3bcdp-52    62 -2  8 +0 A A
 + 0 53  0x16a09e667f3bcdp-52 53                    -0    63  2  7 -0 N U
++ 0 53  0x16a09e667f3bcdp-52 53                    -0    63  2  7 -0 N A
 0 + 53                    +0 53 -0x5a827999fcef30p-54    64 -2  6 -0 Z U
 - 0 53  0x5a827999fcef30p-54 53                    +0    65  2  5 +0 D D
 0 - 53                    +0 53  0x5a827999fcef30p-54    66 -2  4 +0 N D
 - 0 53  0x5a827999fcef30p-54 53                    -0    67  2  3 -0 Z D
 0 - 53                    +0 53 -0x16a09e667f3bcdp-52    68 -2  2 -0 U D
+0 - 53                    +0 53 -0x16a09e667f3bcdp-52    68 -2  2 -0 A A
 
 # purely imaginary argument
 # sqrt(+/-0 +i*y) = sqrt(y/2) * (1 +i), when y >0
@@ -99,19 +104,25 @@
 + + 53 0x16a09e667f3bcdp-52 53  0x16a09e667f3bcdp-52    53 +0 53  4 N N
 - + 53 0x5a827999fcef30p-54 53  0x16a09e667f3bcdp-52    51 -0 54  4 Z N
 + - 53 0x16a09e667f3bcdp-52 53 -0x16a09e667f3bcdp-52    49 +0 55 -4 U N
++ - 53 0x16a09e667f3bcdp-52 53 -0x16a09e667f3bcdp-52    49 +0 55 -4 A N
 - - 53 0x5a827999fcef30p-54 53 -0x16a09e667f3bcdp-52    47 -0 56 -4 D N
 - - 53 0x5a827999fcef30p-54 53  0x5a827999fcef30p-54    45 +0 57  4 Z Z
 + - 53 0x16a09e667f3bcdp-52 53  0x5a827999fcef30p-54    43 -0 58  4 U Z
++ - 53 0x16a09e667f3bcdp-52 53  0x5a827999fcef30p-54    43 -0 58  4 A Z
 - + 53 0x5a827999fcef30p-54 53 -0x5a827999fcef30p-54    41 +0 59 -4 D Z
 + + 53 0x16a09e667f3bcdp-52 53 -0x5a827999fcef30p-54    39 -0 60 -4 N Z
 + + 53 0x16a09e667f3bcdp-52 53  0x16a09e667f3bcdp-52    37 +0 61  4 U U
++ + 53 0x16a09e667f3bcdp-52 53  0x16a09e667f3bcdp-52    37 +0 61  4 A A
 - + 53 0x5a827999fcef30p-54 53  0x16a09e667f3bcdp-52    35 -0 62  4 D U
+- + 53 0x5a827999fcef30p-54 53  0x16a09e667f3bcdp-52    35 -0 62  4 D A
 + + 53 0x16a09e667f3bcdp-52 53 -0x5a827999fcef30p-54    33 +0 63 -4 N U
 - + 53 0x5a827999fcef30p-54 53 -0x5a827999fcef30p-54    31 -0 64 -4 Z U
 - - 53 0x5a827999fcef30p-54 53  0x5a827999fcef30p-54    29 +0 65  4 D D
 + - 53 0x16a09e667f3bcdp-52 53  0x5a827999fcef30p-54    27 -0 66  4 N D
 - - 53 0x5a827999fcef30p-54 53 -0x16a09e667f3bcdp-52    25 +0 67 -4 Z D
+- - 53 0x5a827999fcef30p-54 53 -0x16a09e667f3bcdp-52    25 +0 67 -4 Z A
 + - 53 0x16a09e667f3bcdp-52 53 -0x16a09e667f3bcdp-52    23 -0 68 -4 U D
++ - 53 0x16a09e667f3bcdp-52 53 -0x16a09e667f3bcdp-52    23 -0 68 -4 A A
 
 # z=(-1.95050937e+25,-2.65087379e-39)
 + - 24 0x7.2fb038p-164 24 -0x1.011258p32 24 -0x1.0225d4p64 24 -0xe.6ec760p-132 N N
@@ -133,12 +144,15 @@
 - - 375 1 375 -0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef6p-202281177 375 1 375 -0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef6p-202281176 N N
 + + 375 0x1.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000004 375  -0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef5fffffffffffffffffffffffffffffffffffffffffffep-202281177 375 1 375 -0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef6p-202281176 U U
 - - 375 1 375 -0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef6p-202281177 375 1 375 -0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef6p-202281176 D D
+- - 375 1 375 -0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef6p-202281177 375 1 375 -0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef6p-202281176 D A
 - + 375 1 375  -0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef5fffffffffffffffffffffffffffffffffffffffffffep-202281177 375 1 375 -0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef6p-202281176 Z Z
 + - 375 0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef6p-202281177 375 1 375 -1 375 0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef6p-202281176 N N
 + + 375 0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef6p-202281177 375 0x1.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000004 375 -1 375 0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef6p-202281176 U U
++ + 375 0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef6p-202281177 375 0x1.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000004 375 -1 375 0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef6p-202281176 A A
 - - 375 0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef5fffffffffffffffffffffffffffffffffffffffffffep-202281177 375 1 375 -1 375 0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef6p-202281176 D D
 - - 375 0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef5fffffffffffffffffffffffffffffffffffffffffffep-202281177 375 1 375 -1 375 0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef6p-202281176 Z Z
 + + 375 0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef6p-202281177 375 -1 375 -1 375 -0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef6p-202281176 N N
 + + 375 0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef6p-202281177 375 -1 375 -1 375 -0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef6p-202281176 U U
-- - 375 0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef5fffffffffffffffffffffffffffffffffffffffffffep-202281177 375 -0x1.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000004 375 -1 375 -0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef6p-202281176 D D
++ + 375 0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef6p-202281177 375 -1 375 -1 375 -0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef6p-202281176 A Z
+- - 375 0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef5fffffffffffffffffffffffffffffffffffffffffffep-202281177 375 -0x1.0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000004 375 -1 375 -0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef6p-202281176 Z A
 - + 375 0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef5fffffffffffffffffffffffffffffffffffffffffffep-202281177 375 -1 375 -1 375 -0xf.8a8aae3080b3dd665e316d262fd54c1ca22a83dc9acb92ef6p-202281176 Z Z

_service:tar_scm:mpc-1.3.1.tar.gz/tests/tagm.c Added

@@ -0,0 +1,45 @@
+/* tagm -- test file for mpc_agm.
+
+Copyright (C) 2022 INRIA
+
+This file is part of GNU MPC.
+
+GNU MPC 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.
+
+GNU MPC 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 this program. If not, see http://www.gnu.org/licenses/ .
+*/
+
+#include "mpc-tests.h"
+
+#define MPC_FUNCTION_CALL                                               \
+  P0.mpc_inex = mpc_agm (P1.mpc, P2.mpc, P3.mpc, P4.mpc_rnd)
+#define MPC_FUNCTION_CALL_SYMMETRIC                                     \
+  P0.mpc_inex = mpc_agm (P1.mpc, P3.mpc, P2.mpc, P4.mpc_rnd)
+#define MPC_FUNCTION_CALL_REUSE_OP1                                     \
+  P0.mpc_inex = mpc_agm (P1.mpc, P1.mpc, P3.mpc, P4.mpc_rnd)
+#define MPC_FUNCTION_CALL_REUSE_OP2                                     \
+  P0.mpc_inex = mpc_agm (P1.mpc, P2.mpc, P1.mpc, P4.mpc_rnd)
+#include "data_check.tpl"
+#include "tgeneric.tpl"
+
+
+int
+main (void)
+{
+   test_start ();
+
+   data_check_template ("agm.dsc", "agm.dat");
+   tgeneric_template ("agm.dsc", 2, 4096, 41, 1024);
+
+   return 0;
+}
+

_service:tar_scm:mpc-1.3.1.tar.gz/tests/tballs.c Added

@@ -0,0 +1,216 @@
+/* tballs -- test file for complex ball arithmetic.
+
+Copyright (C) 2018, 2020, 2021, 2022 INRIA
+
+This file is part of GNU MPC.
+
+GNU MPC 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.
+
+GNU MPC 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 this program. If not, see http://www.gnu.org/licenses/ .
+*/
+
+#include "mpc-tests.h"
+#include "mpc-impl.h"
+   /* For the alternative AGM implementation, we need all the power of
+      this include file. */
+
+static int
+mpc_mpcb_agm (mpc_ptr rop, mpc_srcptr opa, mpc_srcptr opb, mpc_rnd_t rnd)
+   /* Alternative implementation of mpc_agm that uses complex balls. */
+{
+   mpfr_prec_t prec;
+   mpc_t b0, diff;
+   mpcb_t a, b, an, bn, anp1, bnp1, res;
+   mpfr_exp_t exp_an, exp_diff;
+   mpcr_t rab;
+   int cmp, equal, re_zero, im_zero, ok, inex;
+
+   if (!mpc_fin_p (opa) || !mpc_fin_p (opb)
+       || mpc_zero_p (opa) || mpc_zero_p (opb)
+       || mpc_cmp (opa, opb) == 0
+       || (   mpfr_sgn (mpc_realref (opa)) == -mpfr_sgn (mpc_realref (opb))
+           && mpfr_sgn (mpc_imagref (opa)) == -mpfr_sgn (mpc_imagref (opb))
+           && mpfr_cmpabs (mpc_realref (opa), mpc_realref (opb)) == 0
+           && mpfr_cmpabs (mpc_imagref (opa), mpc_imagref (opb)) == 0)
+       || (   mpfr_zero_p (mpc_imagref (opa))
+           && mpfr_zero_p (mpc_imagref (opb))
+           && mpfr_sgn (mpc_realref (opa)) == mpfr_sgn (mpc_realref (opb)))
+       || (   mpfr_zero_p (mpc_realref (opa))
+           && mpfr_zero_p (mpc_realref (opb))
+           && mpfr_sgn (mpc_imagref (opa)) == mpfr_sgn (mpc_imagref (opb))))
+      /* Special cases that are handled separately by mpc_agm; there is
+         no need to rewrite them. */
+      return mpc_agm (rop, opa, opb, rnd);
+
+   /* Exclude the case of angle 0, also handled separately by mpc_agm. */
+   mpc_init2 (b0, 2);
+   mpc_div (b0, opb, opa, MPC_RNDZZ);
+   if (mpfr_zero_p (mpc_imagref (b0)) && mpfr_sgn (mpc_realref (b0)) > 0) {
+      mpc_clear (b0);
+      return mpc_agm (rop, opa, opb, rnd);
+   }
+   mpc_clear (b0);
+
+   cmp = mpc_cmp_abs (opa, opb);
+
+   mpcb_init (a);
+   mpcb_init (b);
+   mpcb_init (an);
+   mpcb_init (bn);
+   mpcb_init (anp1);
+   mpcb_init (bnp1);
+   mpcb_init (res);
+   prec = MPC_MAX (MPC_MAX (MPC_MAX_PREC (opa), MPC_MAX_PREC (opb)),
+      MPC_MAX_PREC (rop) + 20);
+      /* So copying opa and opb will be exact, and there is a small safety
+         margin for the result. */
+   do {
+      mpcb_set_prec (a, prec);
+      mpcb_set_prec (b, prec);
+      mpcb_set_prec (an, prec);
+      mpcb_set_prec (bn, prec);
+      mpcb_set_prec (anp1, prec);
+      mpcb_set_prec (bnp1, prec);
+      mpcb_set_prec (res, prec);
+      /* TODO: Think about the mpcb_set variants; mpcb_set_c, for instance,
+         modifies the precision. It is probably better to add a precision
+         parameter to mpcb_init and potentially round with mpcb_set_xxx. */
+      mpc_set (a->c, opa, MPC_RNDNN); /* exact */
+      mpcr_set_zero (a->r);
+      mpc_set (b->c, opb, MPC_RNDNN);
+      mpcr_set_zero (b->r);
+      mpc_set_ui_ui (an->c, 1, 0, MPC_RNDNN);
+      mpcr_set_zero (an->r);
+      if (cmp >= 0)
+         mpcb_div (bn, b, a);
+      else
+         mpcb_div (bn, a, b);
+
+      /* Iterate until there is a fixed point or (often one iteration
+         earlier) the arithmetic and the geometric mean coincide. */
+      do {
+         mpcb_add (anp1, an, bn);
+         mpcb_div_2ui (anp1, anp1, 1);
+         mpcb_mul (bnp1, an, bn);
+         mpcb_sqrt (bnp1, bnp1);
+            /* Be aware of the branch cut! The current function does
+               what is needed here. */
+         equal = mpc_cmp (an->c, bn->c) == 0
+                 || (   mpc_cmp (an->c, anp1->c) == 0
+                     && mpc_cmp (bn->c, bnp1->c) == 0);
+         mpcb_set (an, anp1);
+         mpcb_set (bn, bnp1);
+      } while (!equal);
+
+      /* Check whether we can conclude, see the error analysis in
+         algorithms.tex. */
+      if (mpcr_inf_p (anp1->r))
+         ok = 0;
+      else {
+         mpc_init2 (diff, prec);
+         mpc_sub (diff, an->c, bn->c, MPC_RNDZZ);
+            /* FIXME: We would need to round away, but this is not yet
+               implemented. */
+         re_zero = mpfr_zero_p (mpc_realref (diff));
+         if (!re_zero)
+            MPFR_ADD_ONE_ULP (mpc_realref (diff));
+         im_zero = mpfr_zero_p (mpc_imagref (diff));
+         if (!im_zero)
+            MPFR_ADD_ONE_ULP (mpc_imagref (diff));
+
+         mpcb_set (res, anp1);
+
+         if (re_zero && im_zero)
+            mpcr_set_zero (rab);
+         else {
+            exp_an = MPC_MIN (mpfr_get_exp (mpc_realref (an->c)),
+                              mpfr_get_exp (mpc_imagref (an->c))) - 1;
+            if (re_zero)
+               exp_diff = mpfr_get_exp (mpc_imagref (diff)) + 1;
+            else if (im_zero)
+               exp_diff = mpfr_get_exp (mpc_realref (diff)) + 1;
+            else
+               exp_diff = MPC_MAX (mpfr_get_exp (mpc_realref (diff)),
+                                   mpfr_get_exp (mpc_imagref (diff)) + 1);
+            mpcr_set_one (rab);
+            (rab->exp) += (exp_diff - exp_an);
+               /* TODO: Should be done by an mpcr function. */
+         }
+         mpcr_add (rab, rab, an->r);
+         (rab->exp)++;
+         mpcr_add (res->r, rab, bn->r);
+            /* r = 2 * (rab + an->r) + bn->r */
+         if (cmp >= 0)
+            mpcb_mul (res, res, a);
+         else
+            mpcb_mul (res, res, b);
+         ok = mpcb_can_round (res, MPC_PREC_RE (rop), MPC_PREC_IM (rop),
+            rnd);
+
+         mpc_clear (diff);
+      }
+
+      if (!ok)
+         prec += prec + mpcr_get_exp (res->r);
+   } while (!ok);
+
+   inex = mpcb_round (rop, res, rnd);
+
+   mpcb_clear (a);
+   mpcb_clear (b);
+   mpcb_clear (an);
+   mpcb_clear (bn);
+   mpcb_clear (anp1);
+   mpcb_clear (bnp1);
+   mpcb_clear (res);
+
+   return inex;
+}
+
+
+static int
+test_agm (void)
+{
+   mpfr_prec_t prec;
+   mpc_t a, b, agm1, agm2;
+   mpc_rnd_t rnd = MPC_RNDDU;
+   int inex, inexb, ok;
+
+   prec = 1000;
+
+   mpc_init2 (a, prec);
+   mpc_init2 (b, prec);
+   mpc_set_si_si (a, 100, 0, MPC_RNDNN);
+   mpc_set_si_si (b, 0, 100, MPC_RNDNN);
+   mpc_init2 (agm1, prec);
+   mpc_init2 (agm2, prec);
+
+   inex = mpc_agm (agm1, a, b, rnd);
+   inexb = mpc_mpcb_agm (agm2, a, b, rnd);
+

_service:tar_scm:mpc-1.3.1.tar.gz/tests/tdummy.c Added

_service:tar_scm:mpc-1.3.1.tar.gz/tests/teta.c Added

@@ -0,0 +1,149 @@
+/* teta -- test file for the Dedekind eta function.
+
+Copyright (C) 2022 INRIA
+
+This file is part of GNU MPC.
+
+GNU MPC 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.
+
+GNU MPC 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 this program. If not, see http://www.gnu.org/licenses/ .
+*/
+
+#include <math.h>
+#include "mpc-tests.h"
+
+static void
+mpcb_j_err (mpcb_ptr j, mpc_srcptr z, unsigned long int err_re,
+   unsigned long int err_im)
+   /* Compute the j-function in z; err_re and err_im have the same meaning
+      as in mpcb_eta_err. */
+{
+   const mpfr_prec_t p = mpc_get_prec (z);
+   mpc_t z2;
+   mpcb_t eta, eta2, sixteen;
+
+   mpc_init2 (z2, p);
+   mpcb_init (eta);
+   mpcb_init (eta2);
+   mpcb_init (sixteen);
+
+   /* Compute f1 (z) = eta (z/2) / eta (z). */
+   mpcb_eta_err (eta, z, err_re, err_im);
+   mpc_div_2ui (z2, z, 1, MPC_RNDNN);
+   mpcb_eta_err (eta2, z2, err_re, err_im);
+   mpcb_div (eta, eta2, eta);
+
+   /* Compute gamma2 = (f1^24 + 16) / f1^8. */
+   mpcb_set_ui_ui (sixteen, 16, 0, p);
+   mpcb_pow_ui (eta, eta, 8);
+   mpcb_pow_ui (eta2, eta, 3);
+   mpcb_add (eta2, eta2, sixteen);
+   mpcb_div (eta2, eta2, eta);
+
+   /* Compute j = gamma2^3. */
+   mpcb_pow_ui (j, eta2, 3);
+
+   mpc_clear (z2);
+   mpcb_clear (eta);
+   mpcb_clear (eta2);
+   mpcb_clear (sixteen);
+}
+
+
+static int
+test_eta (void)
+{
+   const mpfr_prec_t p = 300;
+   mpc_t z, eta;
+   mpcb_t j;
+   mpfr_t fuzz;
+   mpz_t re_z, tmp;
+   long int re, im;
+   int ok;
+   
+   mpc_init2 (z, p);
+   mpc_init2 (eta, p);
+   mpcb_init (j);
+   mpfr_init2 (fuzz, 2*p);
+
+   mpfr_set_si (mpc_realref (z), -1, MPFR_RNDN);
+   mpfr_set_ui (mpc_imagref (z), 163, MPFR_RNDD);
+   mpfr_sqrt (mpc_imagref (z), mpc_imagref (z), MPFR_RNDD);
+   mpc_div_2ui (z, z, 1, MPC_RNDNN);
+
+   /* Check whether mpc_eta_fund avoids an infinite loop. */
+   mpc_eta_fund (eta, z, MPC_RNDNN);
+
+   /* The error is bounded by 1/2 ulp in the real and 3 ulp in the
+      imaginary part, see algorithms.tex. */
+   mpcb_j_err (j, z, 1, 6);
+
+   /* Check whether j ((-1+sqrt(-163))/2) equals -262537412640768000.
+      Rounding is impossible since the result is exact, and the imaginary
+      part is 0; for a quick and dirty check, add the non-representable
+      number 0.1 + 1.1 I and use the precisions that just work. */
+   mpfr_set_ui (fuzz, 1, MPFR_RNDN);
+   mpfr_div_ui (fuzz, fuzz, 10, MPFR_RNDN);
+   mpfr_add (mpc_realref (j->c), mpc_realref (j->c), fuzz, MPFR_RNDN);
+   mpfr_add (mpc_imagref (j->c), mpc_imagref (j->c), fuzz, MPFR_RNDN);
+   mpfr_add_ui (mpc_imagref (j->c), mpc_imagref (j->c), 1, MPFR_RNDN);
+   ok = mpcb_can_round (j, 291, 234, MPC_RNDNN);
+   mpcb_round (z, j, MPC_RNDNN);
+   mpz_init (re_z);
+   mpz_init_set_str (tmp, "-262537412640768000", 10);
+   mpfr_get_z (re_z, mpc_realref (z), MPFR_RNDN);
+   im = mpfr_get_si (mpc_imagref (z), MPFR_RNDN);
+   ok &= (!mpz_cmp (re_z, tmp) && im == 1);
+   if (!ok) {
+      printf ("Error for -163:\n");
+      MPC_OUT (z);
+      mpz_out_str (stdout, 10, re_z);
+      printf ("\n");
+   }
+   mpz_clear (tmp);
+   mpz_clear (re_z);
+
+   /* Check whether mpc_eta_fund (I) avoids an infinite loop. */
+   mpc_set_ui_ui (z, 0, 1, MPC_RNDNN);
+   mpc_eta_fund (eta, z, MPC_RNDNN);
+
+   /* Check whether j (I) equals 1728. */
+   mpcb_j_err (j, z, 0, 0);
+   mpfr_add (mpc_realref (j->c), mpc_realref (j->c), fuzz, MPFR_RNDN);
+   mpfr_add (mpc_imagref (j->c), mpc_imagref (j->c), fuzz, MPFR_RNDN);
+   mpfr_add_ui (mpc_imagref (j->c), mpc_imagref (j->c), 1, MPFR_RNDN);
+   ok &= mpcb_can_round (j, 292, 282, MPC_RNDNN);
+   mpcb_round (z, j, MPC_RNDNN);
+   re = mpfr_get_si (mpc_realref (z), MPFR_RNDN);
+   im = mpfr_get_si (mpc_imagref (z), MPFR_RNDN);
+   ok &= (re == 1728 && im == 1);
+   if (!ok) {
+      printf ("Error for -4:\n");
+      MPC_OUT (z);
+      printf ("%li\n", re);
+   }
+
+   mpc_clear (eta);
+   mpc_clear (z);
+   mpcb_clear (j);
+   mpfr_clear (fuzz);
+
+   return !ok;
+}
+
+
+int
+main (void)
+{
+   return test_eta ();
+}
+

_service:tar_scm:mpc-1.3.1.tar.gz/tests/texceptions.c Added

@@ -0,0 +1,156 @@
+/* exceptions -- test file for exceptions
+
+Copyright (C) 2015, 2022 INRIA
+
+This file is part of GNU MPC.
+
+GNU MPC 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.
+
+GNU MPC 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 this program. If not, see http://www.gnu.org/licenses/ .
+*/
+
+#include "mpc-tests.h"
+
+/* Return non-zero if 'rnd' rounds towards zero, for a number of sign 'sgn' */
+#define MPC_IS_LIKE_RNDZ(rnd, sgn) \
+  ((rnd==MPFR_RNDZ) || (sgn<0 && rnd==MPFR_RNDU) || (sgn>0 && rnd==MPFR_RNDD))
+
+#define MPFR_SGN(x) (mpfr_signbit (x) ? -1 : 1)
+
+static void
+foo (int f(mpc_ptr, mpc_srcptr, mpc_rnd_t), const char *s)
+{
+  mpc_t z, t;
+  mpfr_rnd_t rnd_re, rnd_im;
+  mpc_rnd_t rnd;
+#define N 5
+  mpfr_exp_t exyN2 = {{200, 800}, {800, 200}, {-50, 50}, {-10, 1000},
+                          {0, 1000}};
+  int n, inex, inex_re, inex_im, sgn;
+
+  mpc_init2 (z, MPFR_PREC_MIN);
+  mpc_init2 (t, MPFR_PREC_MIN);
+  for (n = 0; n < N; n++)
+    for (sgn = 0; sgn < 4; sgn++)
+    {
+      if (exyn0)
+        mpfr_set_ui_2exp (mpc_realref (z), 1, exyn0, MPFR_RNDN);
+      else
+        mpfr_set_ui (mpc_realref (z), 0, MPFR_RNDN);
+      if (sgn & 1)
+        mpfr_neg (mpc_realref (z), mpc_realref (z), MPFR_RNDN);
+      if (exyn1)
+        mpfr_set_ui_2exp (mpc_imagref (z), 1, exyn1, MPFR_RNDN);
+      else
+        mpfr_set_ui (mpc_imagref (z), 0, MPFR_RNDN);
+      if (sgn & 2)
+        mpfr_neg (mpc_imagref (z), mpc_imagref (z), MPFR_RNDN);
+
+      inex = f (t, z, MPC_RNDZZ);
+      inex_re = MPC_INEX_RE(inex);
+      inex_im = MPC_INEX_IM(inex);
+
+      if (inex_re != 0 && mpfr_inf_p (mpc_realref (t)))
+        {
+          fprintf (stderr, "Error, wrong real part with rounding towards zero\n");
+          fprintf (stderr, "f = %s\n", s);
+          fprintf (stderr, "z=");
+          mpc_out_str (stderr, 2, 0, z, MPC_RNDNN);
+          fprintf (stderr, "\nt=");
+          mpc_out_str (stderr, 2, 0, t, MPC_RNDNN);
+          fprintf (stderr, "\n");
+          exit (1);
+        }
+
+      if (inex_im != 0 && mpfr_inf_p (mpc_imagref (t)))
+        {
+          fprintf (stderr, "Error, wrong imag part with rounding towards zero\n");
+          fprintf (stderr, "f = %s\n", s);
+          fprintf (stderr, "z=");
+          mpc_out_str (stderr, 2, 0, z, MPC_RNDNN);
+          fprintf (stderr, "\nt=");
+          mpc_out_str (stderr, 2, 0, t, MPC_RNDNN);
+          fprintf (stderr, "\n");
+          exit (1);
+        }
+
+      rnd_re = mpfr_signbit (mpc_realref (t)) == 0 ? MPFR_RNDU : MPFR_RNDD;
+      rnd_im = mpfr_signbit (mpc_imagref (t)) == 0 ? MPFR_RNDU : MPFR_RNDD;
+      rnd = MPC_RND(rnd_re,rnd_im); /* round away */
+
+      inex = f (t, z, rnd);
+      inex_re = MPC_INEX_RE(inex);
+      inex_im = MPC_INEX_IM(inex);
+
+      if (inex_re != 0 && mpfr_zero_p (mpc_realref (t)))
+        {
+          fprintf (stderr, "Error, wrong real part with rounding away from zero\n");
+          fprintf (stderr, "f = %s\n", s);
+          fprintf (stderr, "z=");
+          mpc_out_str (stderr, 2, 0, z, MPC_RNDNN);
+          fprintf (stderr, "\nt=");
+          mpc_out_str (stderr, 2, 0, t, MPC_RNDNN);
+          fprintf (stderr, "\n");
+          fprintf (stderr, "rnd=%s\n", mpfr_print_rnd_mode (rnd_re));
+          exit (1);
+        }
+
+      if (inex_im != 0 && mpfr_zero_p (mpc_imagref (t)))
+        {
+          fprintf (stderr, "Error, wrong imag part with rounding away from zero\n");
+          fprintf (stderr, "f = %s\n", s);
+          fprintf (stderr, "z=");
+          mpc_out_str (stderr, 2, 0, z, MPC_RNDNN);
+          fprintf (stderr, "\nt=");
+          mpc_out_str (stderr, 2, 0, t, MPC_RNDNN);
+          fprintf (stderr, "\n");
+          fprintf (stderr, "rnd=%s\n", mpfr_print_rnd_mode (rnd_im));
+          exit (1);
+        }
+    }
+
+  mpc_clear (z);
+  mpc_clear (t);
+}
+
+int
+main (void)
+{
+  test_start ();
+
+  foo (mpc_sqr, "sqr");
+  foo (mpc_conj, "conj");
+  foo (mpc_neg, "neg");
+  foo (mpc_sqrt, "sqrt");
+  foo (mpc_set, "set");
+  foo (mpc_proj, "proj");
+  foo (mpc_exp, "exp");
+  foo (mpc_exp, "exp");
+  foo (mpc_log, "log");
+  foo (mpc_log10, "log10");
+  foo (mpc_sin, "sin");
+  foo (mpc_cos, "cos");
+  foo (mpc_tan, "tan");
+  foo (mpc_sinh, "sinh");
+  foo (mpc_cosh, "cosh");
+  foo (mpc_tanh, "tanh");
+  foo (mpc_asin, "asin");
+  foo (mpc_acos, "acos");
+  foo (mpc_atan, "atan");
+  foo (mpc_asinh, "asinh");
+  foo (mpc_acosh, "acosh");
+  foo (mpc_atanh, "atanh");
+
+  test_end ();
+
+  return 0;
+}

_service:tar_scm:mpc-1.2.0.tar.gz/tests/tmul.c -> _service:tar_scm:mpc-1.3.1.tar.gz/tests/tmul.c Changed

@@ -218,6 +218,36 @@
 #include "data_check.tpl"
 #include "tgeneric.tpl"
 
+static void
+bug20221130 (void)
+{
+  mpc_t b, c_conj, res, ref;
+  mpfr_prec_t prec;
+  mpc_init2 (b, 20);
+  mpc_init2 (c_conj, 20);
+  mpc_init2 (res, 2);
+  mpc_init2 (ref, 5);
+  mpc_set_str (b, "(0x1p+0 0x2p+0)", 16, MPC_RNDNN);
+  mpc_set_str (c_conj, "(-0xap+0 0x1.4p+4)", 16, MPC_RNDNN);
+  mpc_set_str (ref, "(-0x3.2p+4 0x0p+0)", 16, MPC_RNDNN);
+  for (prec = 5; prec <= 2000; prec++)
+  {
+    mpc_set_prec (res, prec);
+    mpc_mul (res, b, c_conj, MPC_RNDZZ);
+    if (mpc_cmp (res, ref) != 0 || mpfr_signbit (mpc_imagref (res)))
+    {
+      printf ("Error in bug20221130 for prec=%lu\n", prec);
+      mpfr_printf ("expected (%Ra %Ra)\n", mpc_realref (ref), mpc_imagref (ref));
+      mpfr_printf ("got      (%Ra %Ra)\n", mpc_realref (res), mpc_imagref (res));
+      exit (1);
+    }
+  }
+  mpc_clear (b);
+  mpc_clear (c_conj);
+  mpc_clear (res);
+  mpc_clear (ref);
+}
+
 int
 main (void)
 {
@@ -228,6 +258,7 @@
 #endif
 
   bug20200206 ();
+  bug20221130 ();
   check_regular ();
 
   data_check_template ("mul.dsc", "mul.dat");

_service:tar_scm:mpc-1.2.0.tar.gz/tests/tpl_mpfr.c -> _service:tar_scm:mpc-1.3.1.tar.gz/tests/tpl_mpfr.c Changed

@@ -1,6 +1,6 @@
 /* tpl_mpfr.c --  Helper functions for mpfr data.
 
-Copyright (C) 2012, 2013 INRIA
+Copyright (C) 2012, 2013, 2022 INRIA
 
 This file is part of GNU MPC.
 
@@ -56,7 +56,7 @@
       exit (1);
    }
    ungetc (datafile_context->nextchar, datafile_context->fd);
-   if (mpfr_inp_str (x, datafile_context->fd, 0, GMP_RNDN) == 0) {
+   if (mpfr_inp_str (x, datafile_context->fd, 0, MPFR_RNDN) == 0) {
       printf ("Error: Impossible to read mpfr mantissa "
               "in file '%s' line %lu\n",
               datafile_context->pathname, datafile_context->line_number);
@@ -89,16 +89,19 @@
   switch (datafile_context->nextchar)
     {
     case 'n': case 'N':
-      *rnd = GMP_RNDN;
+      *rnd = MPFR_RNDN;
       break;
     case 'z': case 'Z':
-      *rnd = GMP_RNDZ;
+      *rnd = MPFR_RNDZ;
       break;
     case 'u': case 'U':
-      *rnd = GMP_RNDU;
+      *rnd = MPFR_RNDU;
       break;
     case 'd': case 'D':
-      *rnd = GMP_RNDD;
+      *rnd = MPFR_RNDD;
+      break;
+    case 'a': case 'A':
+      *rnd = MPFR_RNDA;
       break;
     default:
       printf ("Error: Unexpected rounding mode '%c' in file '%s' line %lu\n",
@@ -154,5 +157,5 @@
   /* source and destination are assumed to be of the same precision , so the
      copy is exact (no rounding) */
   MPC_ASSERT(mpfr_get_prec (dest) == mpfr_get_prec (src));
-  mpfr_set (dest, src, GMP_RNDN);
+  mpfr_set (dest, src, MPFR_RNDN);
 }

_service:tar_scm:mpc-1.2.0.tar.gz/tests/tpow_si.c -> _service:tar_scm:mpc-1.3.1.tar.gz/tests/tpow_si.c Changed

@@ -29,7 +29,7 @@
   mpc_t x, y, z, t;
   long n;
   int i, inex_pow, inex_pow_si;
-  mpc_rnd_t rnd;
+  mpc_rnd_t rnd1, rnd2, rnd;
 
   mpc_init3 (y, sizeof (unsigned long) * CHAR_BIT, MPFR_PREC_MIN);
   for (p = MPFR_PREC_MIN; p <= pmax; p++)
@@ -41,15 +41,17 @@
         mpc_urandom (x, rands);
         n = (signed long) gmp_urandomb_ui (rands, nbits);
         mpc_set_si (y, n, MPC_RNDNN);
-        for (rnd = 0; rnd < 16; rnd ++)
+        for (rnd1 = 0; rnd1 < 4; rnd1 ++)
+          for (rnd2 = 0; rnd2 < 4; rnd2 ++)
           {
+            rnd = MPC_RND (rnd1, rnd2);
             inex_pow = mpc_pow (z, x, y, rnd);
             inex_pow_si = mpc_pow_si (t, x, n, rnd);
             if (mpc_cmp (z, t) != 0)
               {
                 printf ("mpc_pow and mpc_pow_si differ for x=");
                 mpc_out_str (stdout, 10, 0, x, MPC_RNDNN);
-                printf (" n=%li\n", n);
+                printf (" n=%li p=%lu rnd=%d\n", n, p, rnd);
                 printf ("mpc_pow gives ");
                 mpc_out_str (stdout, 10, 0, z, MPC_RNDNN);
                 printf ("\nmpc_pow_si gives ");
@@ -60,8 +62,8 @@
             if (inex_pow != inex_pow_si)
               {
                 printf ("mpc_pow and mpc_pow_si give different flags for x=");
-                mpc_out_str (stdout, 10, 0, x, MPC_RNDNN);
-                printf (" n=%li\n", n);
+                mpc_out_str (stdout, 16, 0, x, MPC_RNDNN);
+                printf (" n=%li p=%lu rnd=%d\n", n, p, rnd);
                 printf ("mpc_pow gives %d\n", inex_pow);
                 printf ("mpc_pow_si gives %d\n", inex_pow_si);
                 exit (1);

_service:tar_scm:mpc-1.2.0.tar.gz/tests/tpow_ui.c -> _service:tar_scm:mpc-1.3.1.tar.gz/tests/tpow_ui.c Changed

@@ -28,7 +28,7 @@
   mpc_t x, y, z, t;
   unsigned long n;
   int i, inex_pow, inex_pow_ui;
-  mpc_rnd_t rnd;
+  mpc_rnd_t rnd1, rnd2, rnd;
 
   mpc_init3 (y, sizeof (unsigned long) * CHAR_BIT, MPFR_PREC_MIN);
   for (p = MPFR_PREC_MIN; p <= pmax; p++)
@@ -40,27 +40,29 @@
         mpc_urandom (x, rands);
         n = gmp_urandomb_ui (rands, nbits); /* 0 <= n < 2^nbits */
         mpc_set_ui (y, n, MPC_RNDNN);
-        for (rnd = 0; rnd < 16; rnd ++)
+        for (rnd1 = 0; rnd1 < 4; rnd1 ++)
+          for (rnd2 = 0; rnd2 < 4; rnd2 ++)
           {
+            rnd = MPC_RND (rnd1, rnd2);
             inex_pow = mpc_pow (z, x, y, rnd);
             inex_pow_ui = mpc_pow_ui (t, x, n, rnd);
             if (mpc_cmp (z, t) != 0)
               {
                 printf ("mpc_pow and mpc_pow_ui differ for x=");
-                mpc_out_str (stdout, 10, 0, x, MPC_RNDNN);
-                printf (" n=%lu\n", n);
+                mpc_out_str (stdout, 16, 0, x, MPC_RNDNN);
+                printf (" n=%li p=%lu rnd=%d\n", n, p, rnd);
                 printf ("mpc_pow gives ");
-                mpc_out_str (stdout, 10, 0, z, MPC_RNDNN);
+                mpc_out_str (stdout, 16, 0, z, MPC_RNDNN);
                 printf ("\nmpc_pow_ui gives ");
-                mpc_out_str (stdout, 10, 0, t, MPC_RNDNN);
+                mpc_out_str (stdout, 16, 0, t, MPC_RNDNN);
                 printf ("\n");
                 exit (1);
               }
             if (inex_pow != inex_pow_ui)
               {
                 printf ("mpc_pow and mpc_pow_ui give different flags for x=");
-                mpc_out_str (stdout, 10, 0, x, MPC_RNDNN);
-                printf (" n=%lu\n", n);
+                mpc_out_str (stdout, 16, 0, x, MPC_RNDNN);
+                printf (" n=%li p=%lu rnd=%d\n", n, p, rnd);
                 printf ("mpc_pow gives %d\n", inex_pow);
                 printf ("mpc_pow_ui gives %d\n", inex_pow_ui);
                 exit (1);

_service:tar_scm:mpc-1.3.1.tar.gz/tests/tradius.c Added

@@ -0,0 +1,51 @@
+/* tradius -- test file for arithmetic of complex ball radii.
+
+Copyright (C) 2022 INRIA
+
+This file is part of GNU MPC.
+
+GNU MPC 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.
+
+GNU MPC 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 this program. If not, see http://www.gnu.org/licenses/ .
+*/
+
+#include "mpc-tests.h"
+
+static int
+test_sqrt (void)
+{
+   int64_t n, N, s;
+
+   n = ((int64_t) 1) << 30;
+   /* The following commented line checks all possible inputs n to
+      sqrt_int64 in about 4 minutes on a laptop. */
+    /* for (n = ((int64_t) 1) << 30; n < ((int64_t) 4) << 30; n++) */
+   for (n = ((int64_t) 1) << 30; n < ((int64_t) 65) << 24; n++)
+   {
+      N = n << 30;
+      s = sqrt_int64 (n);
+      if (s * s < N || (s-1) * (s-1) >= N) {
+         printf ("n %" PRIi64 ", N %" PRIi64 ", s %" PRIi64 "\n", n, N, s);
+         return 1;
+      }
+   }
+
+   return 0;
+}
+
+
+int
+main (void)
+{
+   return test_sqrt ();
+}
+

_service:tar_scm:mpc-1.2.0.tar.gz/tests/tset.c -> _service:tar_scm:mpc-1.3.1.tar.gz/tests/tset.c Changed

@@ -1,6 +1,6 @@
 /* tset -- Test file for mpc_set_x and mpc_set_x_x functions.
 
-Copyright (C) 2009, 2010, 2011, 2012 INRIA
+Copyright (C) 2009, 2010, 2011, 2012, 2022 INRIA
 
 This file is part of GNU MPC.
 
@@ -19,6 +19,7 @@
 */
 
 #include "config.h"
+#include <locale.h>
 #include <limits.h> /* for LONG_MAX */
 
 #ifdef HAVE_INTTYPES_H
@@ -33,17 +34,13 @@
 # include <complex.h>
 #endif
 
-#ifdef HAVE_LOCALE_H
-#include <locale.h>
-#endif
-
 #include "mpc-tests.h"
 
 #define PRINT_ERROR(function_name, precision, a)                \
   do {                                                          \
-    printf ("Error in "function_name" for prec = %lu\n",        \
+    printf ("Error in " function_name " for prec = %lu\n",      \
             (unsigned long int) precision);                     \
-    MPC_OUT(a);                                                     \
+    MPC_OUT(a);                                                 \
     exit (1);                                                   \
   } while (0)

_service:tar_scm:mpc-1.2.0.tar.gz/tools/Makefile.in -> _service:tar_scm:mpc-1.3.1.tar.gz/tools/Makefile.in Changed

_service:tar_scm:mpc-1.2.0.tar.gz/tools/bench/Makefile.in -> _service:tar_scm:mpc-1.3.1.tar.gz/tools/bench/Makefile.in Changed

_service:tar_scm:mpc-1.3.1.tar.gz/tools/coverage Added

@@ -0,0 +1,122 @@
+# Copyright (C) 2005, 2007, 2012 INRIA
+#
+# This file is part of GNU MPC.
+#
+# GNU MPC 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.
+#
+# GNU MPC 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 this program. If not, see http://www.gnu.org/licenses/ .
+
+#!/bin/bash
+
+# to compute the coverage of mpc-x.y.z, just copy this script
+# into mpc-x.y.z/tools and run it
+
+# Set up the right directoy
+cd $(dirname $0)/..
+
+# First Build MPC in /tmp/
+echo "Erasing previous /tmp/ompc-gcov"
+rm -rf /tmp/ompc-gcov
+mkdir /tmp/ompc-gcov || exit 1
+
+echo "Copying MPC sources to /tmp/ompc-gcov"
+cp -r . /tmp/ompc-gcov || exit 1
+cd /tmp/ompc-gcov || exit 1
+
+echo "Remove previous coverage information."
+rm -f $(find . -name '*.gc*')
+
+echo "Reconfiguring MPC"
+autoreconf -fi || exit 1
+
+echo "Building MPC"
+./configure --disable-shared --enable-static \
+  CFLAGS="--coverage -g"  || exit 1
+make clean  || exit 1
+make all -j4 || exit 1
+
+# Note: we want to compute the coverage even in case of failure of some tests.
+make check
+
+# Check version of gcov:
+# 3.3 outputs like this:
+#  100.00% of 36 lines executed in function mpc_add
+#  100.00% of 36 lines executed in file add.c
+#  Creating add.c.gcov.
+# It doesn't support gcov *.c
+#
+# gcov (GCC) 3.4 outputs like this:
+#  Function `mpc_add'
+#  Lines executed:100.00% of 36
+#
+#  File `add.c'
+#  Lines executed:100.00% of 36
+#  add.c:creating `add.c.gcov'
+# It supports gcov *.c
+
+# Setup the parser depending on gcov
+version=$(gcov --version | head -1 | cut -f2 -d')')
+version=$(( $(echo "$version" | cut -f1 -d'.')*100 + $(echo "$version" | cut -f1 -d'.')*10 ))
+if test "$version" -ge 340 ; then
+ echo "#!/bin/bash
+while true ; do
+ if read x ; then
+ case \$x in
+   Function*)
+     read y
+     case \$y in
+      *100.00*)
+       ;;
+      *)
+       echo \$x \$y
+       ;;
+     esac
+     ;;
+ esac
+ else
+   exit 0
+ fi
+done
+" > coverage.subscript
+else
+ echo "#!/bin/bash
+while true ; do
+ if read x ; then
+ case \$x in
+   100.00*)
+     ;;
+   *function*)
+     echo \$x
+     ;;
+ esac
+ else
+   exit 0
+ fi
+done
+" > coverage.subscript
+fi
+
+# Do "gcov" for all files and parse the output
+cd src
+for i in $(find . -name '*.c')
+do
+    gcov -f $i -o $(dirname $i) 2> /dev/null || exit 1
+done | bash ../coverage.subscript | grep -v '__gmp' > ../coverage.mpc
+
+rm -f coverage.subscript coverage-tmp || exit 1
+
+cd -
+lcov --rc lcov_branch_coverage=1 --capture --directory . --output-file all.info || exit 1
+genhtml --branch-coverage -o coverage all.info || exit 1
+
+echo "Coverage summary saved in file    /tmp/ompc-gcov/coverage.mpc"
+echo "Detailed coverage is available at /tmp/ompc-gcov/coverage/index.html"

_service:tar_scm:mpc-1.2.0.tar.gz/tools/mpcheck/Makefile.in -> _service:tar_scm:mpc-1.3.1.tar.gz/tools/mpcheck/Makefile.in Changed

_service:tar_scm:mpc-1.3.1.tar.gz/tools/mpcheck/mpcheck-common.c Added

@@ -0,0 +1,202 @@
+/* shared routines for mpcheck-xxx
+
+Copyright (C) 2020 INRIA
+
+This file is part of GNU MPC.
+
+GNU MPC 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.
+
+GNU MPC 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 this program. If not, see http://www.gnu.org/licenses/ .
+*/
+
+#include <limits.h>
+#include <sys/types.h>
+#include <sys/resource.h>
+
+unsigned long Max_err_re = 0, Max_err_im = 0;
+unsigned long Max_err = 0; /* for real-valued functions like abs */
+int recheck = 0;
+
+/* y is the reference value computed by MPC */
+static unsigned long
+ulp_error (mpfr_t x, mpfr_t y)
+{
+  mpfr_t z;
+  mpfr_prec_t p = mpfr_get_prec (y);
+  unsigned long n, special = 0;
+  mpfr_exp_t e;
+
+  if (mpfr_cmp (x, y) == 0)
+    return 0;
+
+  assert (!mpfr_nan_p (x));
+  assert (!mpfr_nan_p (y));
+  
+  if (mpfr_inf_p (x) || mpfr_inf_p (y))
+    {
+      if (mpfr_number_p (x) && mpfr_inf_p (y))
+        {
+          /* only MPFR returns Inf: we replace y by the maximal
+             floating-point number */
+          if (mpfr_sgn (y) > 0) /* +Inf */
+            mpfr_nextbelow (y);
+          else
+            mpfr_nextabove (y);
+          special = 1;
+        }
+      else 
+        {
+          /* only glibc returns Inf */
+          if (mpfr_sgn (x) > 0) /* +Inf */
+            mpfr_nextbelow (x);
+          else
+            mpfr_nextabove (x);
+          special = 2;
+        }
+    }
+
+  mpfr_init2 (z, p);
+  mpfr_sub (z, x, y, MPFR_RNDN);
+  mpfr_abs (z, z, MPFR_RNDN);
+  /* divide by ulp(y) = 2^(EXP(y) - p) */
+  if (!mpfr_zero_p (y))
+    {
+      /* avoid underflow and take into account subnormals:
+         smallest number is 2^(emin-1) */
+      if (mpfr_get_exp (y) < emin - 1 + p)
+        e = emin - 1;
+      else
+        e = mpfr_get_exp (y) - p;
+    }
+  else
+    e = emin - 1; /* we consider ulp(0) = 2^(emin-1) */
+  mpfr_div_2si (z, z, e, MPFR_RNDN);
+  n = mpfr_get_ui (z, MPFR_RNDZ);
+  mpfr_clear (z);
+  if (special == 1) /* restore original y */
+    {
+      if (mpfr_sgn (y) > 0)
+        mpfr_nextabove (y);
+      else
+        mpfr_nextbelow (y);
+    }
+  if (special == 2) /* restore original x */
+    {
+      if (mpfr_sgn (x) > 0)
+        mpfr_nextabove (x);
+      else
+        mpfr_nextbelow (x);
+    }
+  if (special == 0)
+    return n;
+  else
+    return (n < ULONG_MAX) ? n + 1 : n;
+}
+
+static void
+mpcheck_random (mpc_t z)
+{
+  unsigned long erange;
+  
+  mpc_urandom (z, state);
+
+  /* set sign and exponent of the real part */
+  mpz_set_ui (expz, 2 * (emax - emin + 1));
+  mpz_urandomm (expz, state, expz);
+  erange = mpz_get_ui (expz);
+  /* bit 0 of erange gives the sign */
+  if (erange & 1)
+    mpfr_neg (mpc_realref (z), mpc_realref (z), MPFR_RNDN);
+  mpfr_set_exp (mpc_realref (z), emin + (erange >> 1));
+  /* make sure the numbers are representable in IEEE format */
+  mpfr_subnormalize (mpc_realref (z), 0, MPFR_RNDN);
+
+  /* set sign and exponent of the imaginary part */
+  mpz_set_ui (expz, 2 * (emax - emin + 1));
+  mpz_urandomm (expz, state, expz);
+  erange = mpz_get_ui (expz);
+  /* bit 0 of erange gives the sign */
+  if (erange & 1)
+    mpfr_neg (mpc_imagref (z), mpc_imagref (z), MPFR_RNDN);
+  mpfr_set_exp (mpc_imagref (z), emin + (erange >> 1));
+  /* make sure the numbers are representable in IEEE format */
+  mpfr_subnormalize (mpc_imagref (z), 0, MPFR_RNDN);
+}
+
+/* y is the reference value computed with MPC:
+ * return 0 if x and y are equal (including both NaN or Inf)
+ * return 1 if x and y disagree (neither NaN nor Inf)
+ * return 2 if x is NaN but not y
+ * return 4 if x and y are infinities of different signs
+ */
+static int
+mpcheck_mpfr_cmp (mpfr_t x, mpfr_t y)
+{
+  if (mpfr_number_p (x)  && mpfr_number_p (y))
+    return mpfr_cmp (x, y);
+  /* now either x or y is NaN or Inf */
+  if (mpfr_nan_p (x) || mpfr_nan_p (y))
+    {
+      if (mpfr_nan_p (x) && mpfr_nan_p (y))
+        return 0;
+      if (mpfr_nan_p (x))
+        return 2;
+      fprintf (stderr, "Error, NaN and not NaN\n");
+      exit (1);
+    }
+  /* now either x or y is Inf */
+  if (mpfr_inf_p (x) && mpfr_inf_p (y))
+    {
+      if (mpfr_sgn (x) * mpfr_sgn (y) > 0)
+        return 0;
+      return 4;
+    }
+  return 1; /* Inf and non-Inf: differ, will be treated by ulp_error */
+}
+
+/* y is the reference value computed with MPC */
+static int
+mpcheck_mpc_cmp (mpc_t x, mpc_t y)
+{
+  return mpcheck_mpfr_cmp (mpc_realref (x), mpc_realref (y)) |
+         mpcheck_mpfr_cmp (mpc_imagref (x), mpc_imagref (y));
+}
+
+static void
+report_maximal_errors (void)
+{
+  printf ("Maximal errors: %lu (real), %lu (imag), %lu (abs/arg)\n",
+          Max_err_re, Max_err_im, Max_err);
+}
+
+/* return non-zero if both a and b are NaN, or if both are not NaN
+   and are equal */
+static int
+mpfr_agree (mpfr_t a, mpfr_t b, int inex)
+{
+  if (mpfr_nan_p (a) || mpfr_nan_p (b))
+    return mpfr_nan_p (a) && mpfr_nan_p (b);
+  else
+    /* in the case of even rounding, we can't tell for sure */
+    return mpfr_equal_p (a, b) || inex == 2 || inex == -2;
+}
+
+#if 0
+static int
+cputime (void)
+{
+  struct rusage rus;
+
+  getrusage (0, &rus);

_service:tar_scm:mpc-1.3.1.tar.gz/tools/mpcheck/mpcheck-template1.c Added

@@ -0,0 +1,155 @@
+/* template for complex -> complex function, for example acos
+
+Copyright (C) 2020 INRIA
+
+This file is part of GNU MPC.
+
+GNU MPC 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.
+
+GNU MPC 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 this program. If not, see http://www.gnu.org/licenses/ .
+*/
+
+#define CAT1(X,Y) X ## Y
+#define CAT2(X,Y) CAT1(X,Y)
+#define STRINGIFY(x) #x
+#define TOSTRING(x) STRINGIFY(x)
+
+#define FUN CAT2(test_,FOO)
+#define CHECK CAT2(check_,FOO)
+#define MPC_FOO CAT2(mpc_,FOO)
+#define CFOO CAT2(CAT2(c,FOO),SUFFIX)
+#define BAR TOSTRING(FOO)
+
+#define EXTRA 20
+
+/* routine to double-check result from MPC with more precision and without
+   reduced exponent range */
+static void
+CHECK (mpc_t x, mpc_t z)
+{
+  mpfr_exp_t saved_emin = mpfr_get_emin ();
+  mpfr_exp_t saved_emax = mpfr_get_emax ();
+  mpfr_prec_t p = mpfr_get_prec (mpc_realref (x)), pp = p + EXTRA;
+  mpc_t t;
+  int ok, inex_re, inex_im;
+
+  /* enlarge exponent range to the largest possible */
+  mpfr_set_emin (mpfr_get_emin_min ());
+  mpfr_set_emax (mpfr_get_emax_max ());
+
+  mpc_init2 (t, pp);
+  MPC_FOO (t, x, MPC_RNDNN);
+  inex_re = mpfr_prec_round (mpc_realref (t), p, MPFR_RNDN);
+  inex_im = mpfr_prec_round (mpc_imagref (t), p, MPFR_RNDN);
+  /* restore exponent range */
+  mpfr_set_emin (saved_emin);
+  mpfr_set_emax (saved_emax);
+  inex_re = mpfr_check_range (mpc_realref (t), inex_re, MPFR_RNDN);
+  inex_re = mpfr_subnormalize (mpc_realref (t), inex_re, MPFR_RNDN);
+  inex_im = mpfr_check_range (mpc_imagref (t), inex_im, MPFR_RNDN);
+  inex_im = mpfr_subnormalize (mpc_imagref (t), inex_im, MPFR_RNDN);
+
+  /* check real parts agree */
+  ok = mpfr_agree (mpc_realref (z), mpc_realref (t), inex_re)
+    && mpfr_agree (mpc_imagref (z), mpc_imagref (t), inex_im);
+
+  if (!ok)
+    {
+      mpfr_printf ("Potential bug in mpc_%s for x=(%Re,%Re)\n", BAR,
+                   mpc_realref (x), mpc_imagref (x));
+      mpfr_printf ("   mpc_%s to precision %lu gives (%Re,%Re)\n", BAR, p,
+                   mpc_realref (z), mpc_imagref (z));
+      mpfr_printf ("   mpc_%s to precision %lu gives (%Re,%Re)\n", BAR, pp,
+                   mpc_realref (t), mpc_imagref (t));
+      exit (1);
+    }
+
+  mpc_clear (t);
+}
+
+static void
+FUN (mpfr_prec_t p, unsigned long n)
+{
+  unsigned long i = 0;
+  mpc_t x, z, t;
+  TYPE complex xx, zz;
+  int inex, cmp;
+  unsigned long errors = 0, max_err_re = 0, max_err_im = 0;
+  /* allow reduced exponent range */
+#if defined(FOO_EMIN) || defined(FOO_EMAX)
+  mpfr_exp_t saved_emin = emin, saved_emax = emax;
+  emin = FOO_EMIN;
+  emax = FOO_EMAX;
+#endif
+
+  if (verbose > 0)
+    printf ("Testing function %s\n", BAR);
+
+  gmp_randseed_ui (state, seed);
+
+  mpc_init2 (x, p);
+  mpc_init2 (z, p);
+  mpc_init2 (t, p);
+  for (i = 0; i < n; i++)
+    {
+      mpcheck_random (x);
+      inex = MPC_FOO (z, x, MPC_RNDNN);
+      mpfr_subnormalize (mpc_realref (z), MPC_INEX_RE(inex), MPFR_RNDN);
+      mpfr_subnormalize (mpc_imagref (z), MPC_INEX_IM(inex), MPFR_RNDN);
+      xx = mpc_get_type (x, MPC_RNDNN);
+      zz = CFOO (xx);
+      mpc_set_type (t, zz, MPFR_RNDN);
+      cmp = mpcheck_mpc_cmp (t, z);
+      if (cmp != 0)
+        {
+          unsigned long err_re = ulp_error (mpc_realref (t), mpc_realref (z));
+          unsigned long err_im = ulp_error (mpc_imagref (t), mpc_imagref (z));
+          if (verbose > 0 && (err_re > max_err_re || err_im > max_err_im))
+            {
+              mpfr_printf ("   mpc_%s and c%s differ by (%lu,%lu) ulp(s)\n      for x=(%Re,%Re)\n",
+                           BAR, BAR, err_re, err_im,
+                           mpc_realref (x), mpc_imagref (x));
+              mpfr_printf ("   mpc_%s gives (%Re,%Re)\n", BAR,
+                           mpc_realref (z), mpc_imagref (z));
+              mpfr_printf ("      c%s gives (%Re,%Re)\n", BAR,
+                           mpc_realref (t), mpc_imagref (t));
+            }
+          if (recheck)
+            CHECK (x, z);
+          errors ++;
+          if (err_re > max_err_re)
+            {
+              max_err_re = err_re;
+              if (max_err_re > Max_err_re)
+                Max_err_re = max_err_re;
+            }
+          if (err_im > max_err_im)
+            {
+              max_err_im = err_im;
+              if (max_err_im > Max_err_im)
+                Max_err_im = max_err_im;
+            }
+        }
+    }
+  mpc_clear (x);
+  mpc_clear (z);
+  mpc_clear (t);
+  printf ("Errors for %s: %lu/%lu (max %lu,%lu) seed %lu\n", BAR,
+          errors, n, max_err_re, max_err_im, seed);
+#if defined(FOO_EMIN) || defined(FOO_EMAX)
+  emin = saved_emin;
+  emax = saved_emax;
+#endif
+}
+
+#undef FOO
+#undef CFOO

_service:tar_scm:mpc-1.3.1.tar.gz/tools/mpcheck/mpcheck-template2.c Added

@@ -0,0 +1,130 @@
+/* template for complex -> real function, for example abs
+
+Copyright (C) 2020 INRIA
+
+This file is part of GNU MPC.
+
+GNU MPC 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.
+
+GNU MPC 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 this program. If not, see http://www.gnu.org/licenses/ .
+*/
+
+#define CAT1(X,Y) X ## Y
+#define CAT2(X,Y) CAT1(X,Y)
+#define STRINGIFY(x) #x
+#define TOSTRING(x) STRINGIFY(x)
+
+#define FUN CAT2(test_,FOO)
+#define CHECK CAT2(check_,FOO)
+#define MPC_FOO CAT2(mpc_,FOO)
+#define CFOO CAT2(CAT2(c,FOO),SUFFIX)
+#define BAR TOSTRING(FOO)
+
+#define EXTRA 20
+
+/* routine to double-check result from MPC with more precision and without
+   reduced exponent range */
+static void
+CHECK (mpc_t x, mpfr_t z)
+{
+  mpfr_exp_t saved_emin = mpfr_get_emin ();
+  mpfr_exp_t saved_emax = mpfr_get_emax ();
+  mpfr_prec_t p = mpfr_get_prec (mpc_realref (x)), pp = p + EXTRA;
+  mpfr_t t;
+  int inex, ok;
+
+  /* enlarge exponent range to the largest possible */
+  mpfr_set_emin (mpfr_get_emin_min ());
+  mpfr_set_emax (mpfr_get_emax_max ());
+
+  mpfr_init2 (t, pp);
+  MPC_FOO (t, x, MPFR_RNDN);
+  inex = mpfr_prec_round (t, p, MPFR_RNDN);
+  /* restore exponent range */
+  mpfr_set_emin (saved_emin);
+  mpfr_set_emax (saved_emax);
+  inex = mpfr_check_range (t, inex, MPFR_RNDN);
+  inex = mpfr_subnormalize (t, inex, MPFR_RNDN);
+
+  /* check real parts agree */
+  ok = mpfr_agree (z, t, inex);
+
+  if (!ok)
+    {
+      mpfr_printf ("Potential bug in mpc_%s for x=(%Re,%Re)\n", BAR,
+                   mpc_realref (x), mpc_imagref (x));
+      mpfr_printf ("   mpc_%s to precision %lu gives %Re\n", BAR, p, z);
+      mpfr_printf ("   mpc_%s to precision %lu gives %Re\n", BAR, pp, t);
+      exit (1);
+    }
+
+  mpfr_clear (t);
+}
+
+static void
+FUN (mpfr_prec_t p, unsigned long n)
+{
+  unsigned long i = 0;
+  mpc_t x;
+  mpfr_t z, t;
+  TYPE complex xx;
+  TYPE zz;
+  int inex;
+  unsigned long errors = 0, max_err = 0;
+
+  if (verbose > 0)
+    printf ("Testing function %s\n", BAR);
+
+  gmp_randseed_ui (state, seed);
+
+  mpc_init2 (x, p);
+  mpfr_init2 (z, p);
+  mpfr_init2 (t, p);
+  for (i = 0; i < n; i++)
+    {
+      mpcheck_random (x);
+      inex = MPC_FOO (z, x, MPC_RNDNN);
+      mpfr_subnormalize (z, inex, MPFR_RNDN);
+      xx = mpc_get_type (x, MPC_RNDNN);
+      zz = CFOO (xx);
+      mpfr_set_type (t, zz, MPFR_RNDN);
+      if (mpcheck_mpfr_cmp (t, z) != 0)
+        {
+          unsigned long err = ulp_error (t, z);
+          if (verbose > 0 && err > max_err)
+            {
+              mpfr_printf ("   mpc_%s and c%s differ by %lu ulp(s)\n      for x=(%Re,%Re)\n",
+                           BAR, BAR, err,
+                           mpc_realref (x), mpc_imagref (x));
+              mpfr_printf ("   mpc_%s gives %Re\n", BAR, z);
+              mpfr_printf ("      c%s gives %Re\n", BAR, t);
+            }
+          if (recheck)
+            CHECK (x, z);
+          errors++;
+          if (err > max_err)
+            {
+              max_err = err;
+              if (max_err > Max_err)
+                Max_err = max_err;
+            }
+        }
+    }
+  mpc_clear (x);
+  mpfr_clear (z);
+  mpfr_clear (t);
+  printf ("Errors for %s: %lu/%lu (max %lu) seed %lu\n",
+          BAR, errors, n, max_err, seed);
+}
+
+#undef FOO
+#undef CFOO

_service:tar_scm:mpc-1.3.1.tar.gz/tools/mpcheck/mpcheck-template3.c Added

@@ -0,0 +1,172 @@
+/* template for (complex,complex) -> complex function, for example add
+
+Copyright (C) 2020 INRIA
+
+This file is part of GNU MPC.
+
+GNU MPC 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.
+
+GNU MPC 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 this program. If not, see http://www.gnu.org/licenses/ .
+*/
+
+#define CAT1(X,Y) X ## Y
+#define CAT2(X,Y) CAT1(X,Y)
+#define STRINGIFY(x) #x
+#define TOSTRING(x) STRINGIFY(x)
+
+#define FUN CAT2(test_,FOO)
+#define CHECK CAT2(check_,FOO)
+#define MPC_FOO CAT2(mpc_,FOO)
+#ifndef CFOO
+#define CFOO CAT2(CAT2(c,FOO),SUFFIX)
+#endif
+#define BAR TOSTRING(FOO)
+
+#define EXTRA 20
+
+/* routine to double-check result from MPC with more precision and without
+   reduced exponent range */
+static void
+CHECK (mpc_t x, mpc_t y, mpc_t z)
+{
+  mpfr_exp_t saved_emin = mpfr_get_emin ();
+  mpfr_exp_t saved_emax = mpfr_get_emax ();
+  mpfr_prec_t p = mpfr_get_prec (mpc_realref (x)), pp = p + EXTRA;
+  mpc_t t;
+  int ok, inex_re, inex_im;
+
+  /* enlarge exponent range to the largest possible */
+  mpfr_set_emin (mpfr_get_emin_min ());
+  mpfr_set_emax (mpfr_get_emax_max ());
+
+  mpc_init2 (t, pp);
+  MPC_FOO (t, x, y, MPC_RNDNN);
+  inex_re = mpfr_prec_round (mpc_realref (t), p, MPFR_RNDN);
+  inex_im = mpfr_prec_round (mpc_imagref (t), p, MPFR_RNDN);
+  /* restore exponent range */
+  mpfr_set_emin (saved_emin);
+  mpfr_set_emax (saved_emax);
+  inex_re = mpfr_check_range (mpc_realref (t), inex_re, MPFR_RNDN);
+  inex_re = mpfr_subnormalize (mpc_realref (t), inex_re, MPFR_RNDN);
+  inex_im = mpfr_check_range (mpc_imagref (t), inex_im, MPFR_RNDN);
+  inex_im = mpfr_subnormalize (mpc_imagref (t), inex_im, MPFR_RNDN);
+
+  /* check real parts agree */
+  ok = mpfr_agree (mpc_realref (z), mpc_realref (t), inex_re)
+    && mpfr_agree (mpc_imagref (z), mpc_imagref (t), inex_im);
+
+  if (!ok)
+    {
+      mpfr_printf ("Potential bug in mpc_%s for\n", BAR);
+      mpfr_printf ("   x=(%Re,%Re)\n", mpc_realref (x), mpc_imagref (x));
+      mpfr_printf ("   y=(%Re,%Re)\n", mpc_realref (y), mpc_imagref (y));
+      mpfr_printf ("   mpc_%s to precision %lu gives (%Re,%Re)\n", BAR, p,
+                   mpc_realref (z), mpc_imagref (z));
+      mpfr_printf ("   mpc_%s to precision %lu gives (%Re,%Re)\n", BAR, pp,
+                   mpc_realref (t), mpc_imagref (t));
+      exit (1);
+    }
+
+  mpc_clear (t);
+}
+
+static void
+FUN (mpfr_prec_t p, unsigned long n)
+{
+  unsigned long i = 0;
+  mpc_t x, y, z, t;
+  TYPE complex xx, yy, zz;
+  int inex;
+  unsigned long errors = 0, max_err_re = 0, max_err_im = 0;
+  unsigned long special_errors = 0;
+  int cmp;
+
+  if (verbose > 0)
+    printf ("Testing function %s\n", BAR);
+
+  gmp_randseed_ui (state, seed);
+
+  mpc_init2 (x, p);
+  mpc_init2 (y, p);
+  mpc_init2 (z, p);
+  mpc_init2 (t, p);
+  for (i = 0; i < n; i++)
+    {
+      mpcheck_random (x);
+      mpcheck_random (y);
+      inex = MPC_FOO (z, x, y, MPC_RNDNN);
+      mpfr_subnormalize (mpc_realref (z), MPC_INEX_RE(inex), MPFR_RNDN);
+      mpfr_subnormalize (mpc_imagref (z), MPC_INEX_IM(inex), MPFR_RNDN);
+      xx = mpc_get_type (x, MPC_RNDNN);
+      yy = mpc_get_dc (y, MPC_RNDNN);
+      zz = CFOO(xx, yy);
+      mpc_set_type (t, zz, MPFR_RNDN);
+      cmp = mpcheck_mpc_cmp (t, z);
+      if (cmp > 1) /* NaN or Inf */
+        {
+          if (verbose > 1 || (verbose == 1 && special_errors == 0))
+            {
+              printf ("   mpc_%s and c%s differ\n", BAR, BAR);
+              mpfr_printf ("      for x=(%Re,%Re)\n          y=(%Re,%Re)\n",
+                           mpc_realref (x), mpc_imagref (x),
+                           mpc_realref (y), mpc_imagref (y));
+              mpfr_printf ("   mpc_%s gives (%Re,%Re)\n", BAR,
+                           mpc_realref (z), mpc_imagref (z));
+              mpfr_printf ("      c%s gives (%Re,%Re)\n", BAR,
+                           mpc_realref (t), mpc_imagref (t));
+              special_errors ++;
+            }
+          errors ++;
+        }
+      else if (cmp != 0)
+        {
+          unsigned long err_re = ulp_error (mpc_realref (t), mpc_realref (z));
+          unsigned long err_im = ulp_error (mpc_imagref (t), mpc_imagref (z));
+          if (verbose > 0 && (err_re > max_err_re || err_im > max_err_im))
+            {
+              printf ("   mpc_%s and c%s differ by (%lu,%lu) ulp(s)\n",
+                      BAR, BAR, err_re, err_im);
+              mpfr_printf ("      for x=(%Re,%Re)\n          y=(%Re,%Re)\n",
+                           mpc_realref (x), mpc_imagref (x),
+                           mpc_realref (y), mpc_imagref (y));
+              mpfr_printf ("   mpc_%s gives (%Re,%Re)\n", BAR,
+                           mpc_realref (z), mpc_imagref (z));
+              mpfr_printf ("      c%s gives (%Re,%Re)\n", BAR,
+                           mpc_realref (t), mpc_imagref (t));
+            }
+          errors ++;
+          if (err_re > max_err_re)
+            {
+              max_err_re = err_re;
+              if (max_err_re > Max_err_re)
+                Max_err_re = max_err_re;
+            }
+          if (err_im > max_err_im)
+            {
+              max_err_im = err_im;
+              if (max_err_im > Max_err_im)
+                Max_err_im = max_err_im;
+            }
+        }
+      if (recheck && cmp != 0)
+        CHECK (x, y, z);
+    }
+  mpc_clear (x);
+  mpc_clear (y);
+  mpc_clear (z);
+  mpc_clear (t);
+  printf ("Errors for %s: %lu/%lu (max %lu,%lu) seed %lu\n", BAR, errors, n,
+          max_err_re, max_err_im, seed);
+}
+
+#undef FOO
+#undef CFOO

Changes of Revision 2