Blame src/ui_div.c

Packit Service 2e9770
/* mpc_ui_div -- Divide an unsigned long int by a complex number.
Packit Service 2e9770
Packit Service 2e9770
Copyright (C) 2002, 2009 INRIA
Packit Service 2e9770
Packit Service 2e9770
This file is part of GNU MPC.
Packit Service 2e9770
Packit Service 2e9770
GNU MPC is free software; you can redistribute it and/or modify it under
Packit Service 2e9770
the terms of the GNU Lesser General Public License as published by the
Packit Service 2e9770
Free Software Foundation; either version 3 of the License, or (at your
Packit Service 2e9770
option) any later version.
Packit Service 2e9770
Packit Service 2e9770
GNU MPC is distributed in the hope that it will be useful, but WITHOUT ANY
Packit Service 2e9770
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
Packit Service 2e9770
FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for
Packit Service 2e9770
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 this program. If not, see http://www.gnu.org/licenses/ .
Packit Service 2e9770
*/
Packit Service 2e9770
Packit Service 2e9770
#include <limits.h>
Packit Service 2e9770
#include "mpc-impl.h"
Packit Service 2e9770
Packit Service 2e9770
int
Packit Service 2e9770
mpc_ui_div (mpc_ptr a, unsigned long int b, mpc_srcptr c, mpc_rnd_t rnd)
Packit Service 2e9770
{
Packit Service 2e9770
  int inex;
Packit Service 2e9770
  mpc_t bb;
Packit Service 2e9770
Packit Service 2e9770
  mpc_init2 (bb, sizeof(unsigned long int) * CHAR_BIT);
Packit Service 2e9770
  mpc_set_ui (bb, b, rnd); /* exact */
Packit Service 2e9770
  inex = mpc_div (a, bb, c, rnd);
Packit Service 2e9770
  mpc_clear (bb);
Packit Service 2e9770
Packit Service 2e9770
  return inex;
Packit Service 2e9770
}