Blame src/pow_si.c

Packit Service 2e9770
/* mpc_pow_si -- Raise a complex number to an integer power.
Packit Service 2e9770
Packit Service 2e9770
Copyright (C) 2009, 2010 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 "mpc-impl.h"
Packit Service 2e9770
Packit Service 2e9770
int
Packit Service 2e9770
mpc_pow_si (mpc_ptr z, mpc_srcptr x, long y, mpc_rnd_t rnd)
Packit Service 2e9770
{
Packit Service 2e9770
   if (y >= 0)
Packit Service 2e9770
     return mpc_pow_usi (z, x, (unsigned long) y, 1, rnd);
Packit Service 2e9770
   else
Packit Service 2e9770
     return mpc_pow_usi (z, x, (unsigned long) (-y), -1, rnd);
Packit Service 2e9770
}