summaryrefslogtreecommitdiffstats
path: root/gnu/lib/libgmp/mpq/div.c
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/lib/libgmp/mpq/div.c')
-rw-r--r--gnu/lib/libgmp/mpq/div.c93
1 files changed, 0 insertions, 93 deletions
diff --git a/gnu/lib/libgmp/mpq/div.c b/gnu/lib/libgmp/mpq/div.c
deleted file mode 100644
index cd1f3881..0000000
--- a/gnu/lib/libgmp/mpq/div.c
+++ /dev/null
@@ -1,93 +0,0 @@
-/* mpq_div -- divide two rational numbers.
-
-Copyright (C) 1991, 1994, 1995, 1996 Free Software Foundation, Inc.
-
-This file is part of the GNU MP Library.
-
-The GNU MP Library is free software; you can redistribute it and/or modify
-it under the terms of the GNU Library General Public License as published by
-the Free Software Foundation; either version 2 of the License, or (at your
-option) any later version.
-
-The GNU MP Library is distributed in the hope that it will be useful, but
-WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public
-License for more details.
-
-You should have received a copy of the GNU Library General Public License
-along with the GNU MP 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. */
-
-#include "gmp.h"
-#include "gmp-impl.h"
-
-void
-#if __STDC__
-mpq_div (mpq_ptr quot, mpq_srcptr op1, mpq_srcptr op2)
-#else
-mpq_div (quot, op1, op2)
- mpq_ptr quot;
- mpq_srcptr op1;
- mpq_srcptr op2;
-#endif
-{
- mpz_t gcd1, gcd2;
- mpz_t tmp1, tmp2;
- mpz_t numtmp;
-
- mpz_init (gcd1);
- mpz_init (gcd2);
- mpz_init (tmp1);
- mpz_init (tmp2);
- mpz_init (numtmp);
-
- /* QUOT might be identical to either operand, so don't store the
- result there until we are finished with the input operands. We
- dare to overwrite the numerator of QUOT when we are finished
- with the numerators of OP1 and OP2. */
-
- mpz_gcd (gcd1, &(op1->_mp_num), &(op2->_mp_num));
- mpz_gcd (gcd2, &(op2->_mp_den), &(op1->_mp_den));
-
- if (gcd1->_mp_size > 1 || gcd1->_mp_d[0] != 1)
- mpz_divexact (tmp1, &(op1->_mp_num), gcd1);
- else
- mpz_set (tmp1, &(op1->_mp_num));
-
- if (gcd2->_mp_size > 1 || gcd2->_mp_d[0] != 1)
- mpz_divexact (tmp2, &(op2->_mp_den), gcd2);
- else
- mpz_set (tmp2, &(op2->_mp_den));
-
- mpz_mul (numtmp, tmp1, tmp2);
-
- if (gcd1->_mp_size > 1 || gcd1->_mp_d[0] != 1)
- mpz_divexact (tmp1, &(op2->_mp_num), gcd1);
- else
- mpz_set (tmp1, &(op2->_mp_num));
-
- if (gcd2->_mp_size > 1 || gcd2->_mp_d[0] != 1)
- mpz_divexact (tmp2, &(op1->_mp_den), gcd2);
- else
- mpz_set (tmp2, &(op1->_mp_den));
-
- mpz_mul (&(quot->_mp_den), tmp1, tmp2);
-
- /* We needed to go via NUMTMP to take care of QUOT being the same
- as either input operands. Now move NUMTMP to QUOT->_mp_num. */
- mpz_set (&(quot->_mp_num), numtmp);
-
- /* Keep the denominator positive. */
- if (quot->_mp_den._mp_size < 0)
- {
- quot->_mp_den._mp_size = -quot->_mp_den._mp_size;
- quot->_mp_num._mp_size = -quot->_mp_num._mp_size;
- }
-
- mpz_clear (numtmp);
- mpz_clear (tmp2);
- mpz_clear (tmp1);
- mpz_clear (gcd2);
- mpz_clear (gcd1);
-}
OpenPOWER on IntegriCloud