=================================================================== RCS file: /home/cvs/OpenXM_contrib/gmp/mpf/Attic/mul_ui.c,v retrieving revision 1.1.1.2 retrieving revision 1.1.1.3 diff -u -p -r1.1.1.2 -r1.1.1.3 --- OpenXM_contrib/gmp/mpf/Attic/mul_ui.c 2000/09/09 14:13:12 1.1.1.2 +++ OpenXM_contrib/gmp/mpf/Attic/mul_ui.c 2003/08/25 16:06:35 1.1.1.3 @@ -1,6 +1,6 @@ /* mpf_mul_ui -- Multiply a float and an unsigned integer. -Copyright (C) 1993, 1994, 1996 Free Software Foundation, Inc. +Copyright 1993, 1994, 1996, 2001 Free Software Foundation, Inc. This file is part of the GNU MP Library. @@ -23,26 +23,25 @@ MA 02111-1307, USA. */ #include "gmp-impl.h" void -#if __STDC__ mpf_mul_ui (mpf_ptr r, mpf_srcptr u, unsigned long int v) -#else -mpf_mul_ui (r, u, v) - mpf_ptr r; - mpf_srcptr u; - unsigned long int v; -#endif { mp_srcptr up; mp_size_t usize; mp_size_t size; - mp_size_t prec = r->_mp_prec; + mp_size_t prec; mp_limb_t cy_limb; mp_ptr rp; usize = u->_mp_size; - size = ABS (usize); + if (usize == 0 || v == 0) + { + r->_mp_size = 0; + r->_mp_exp = 0; + return; + } - rp = r->_mp_d; + size = ABS (usize); + prec = r->_mp_prec; up = u->_mp_d; if (size > prec) { @@ -57,18 +56,11 @@ mpf_mul_ui (r, u, v) up++, size--; #endif - if (size == 0 || v == 0) - { - r->_mp_size = 0; - r->_mp_exp = 0; /* ??? */ - } - else - { - cy_limb = mpn_mul_1 (rp, up, size, (mp_limb_t) v); - rp[size] = cy_limb; - cy_limb = cy_limb != 0; - r->_mp_exp = u->_mp_exp + cy_limb; - size += cy_limb; - r->_mp_size = usize >= 0 ? size : -size; - } + rp = r->_mp_d; + cy_limb = mpn_mul_1 (rp, up, size, (mp_limb_t) v); + rp[size] = cy_limb; + cy_limb = cy_limb != 0; + r->_mp_exp = u->_mp_exp + cy_limb; + size += cy_limb; + r->_mp_size = usize >= 0 ? size : -size; }