Blame mpc-0.9/src/cmp.c

Packit Service 2e9770
/* mpc_cmp -- Compare two complex numbers.
Packit Service 2e9770
Packit Service 2e9770
Copyright (C) INRIA, 2002, 2009, 2010
Packit Service 2e9770
Packit Service 2e9770
This file is part of the MPC Library.
Packit Service 2e9770
Packit Service 2e9770
The MPC Library is free software; you can redistribute it and/or modify
Packit Service 2e9770
it under the terms of the GNU Lesser General Public License as published by
Packit Service 2e9770
the Free Software Foundation; either version 2.1 of the License, or (at your
Packit Service 2e9770
option) any later version.
Packit Service 2e9770
Packit Service 2e9770
The MPC Library is distributed in the hope that it will be useful, but
Packit Service 2e9770
WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
Packit Service 2e9770
or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
Packit Service 2e9770
License for more details.
Packit Service 2e9770
Packit Service 2e9770
You should have received a copy of the GNU Lesser General Public License
Packit Service 2e9770
along with the MPC Library; see the file COPYING.LIB.  If not, write to
Packit Service 2e9770
the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
Packit Service 2e9770
MA 02111-1307, USA. */
Packit Service 2e9770
Packit Service 2e9770
#include "mpc-impl.h"
Packit Service 2e9770
Packit Service 2e9770
/* return 0 iff a = b */
Packit Service 2e9770
int
Packit Service 2e9770
mpc_cmp (mpc_srcptr a, mpc_srcptr b)
Packit Service 2e9770
{
Packit Service 2e9770
  int cmp_re, cmp_im;
Packit Service 2e9770
Packit Service 2e9770
  cmp_re = mpfr_cmp (MPC_RE(a), MPC_RE(b));
Packit Service 2e9770
  cmp_im = mpfr_cmp (MPC_IM(a), MPC_IM(b));
Packit Service 2e9770
Packit Service 2e9770
  return MPC_INEX(cmp_re, cmp_im);
Packit Service 2e9770
}