xref: /dflybsd-src/contrib/gmp/mpf/set.c (revision 86d7f5d305c6adaa56ff4582ece9859d73106103)
186d7f5d3SJohn Marino /* mpf_set -- Assign a float from another float.
286d7f5d3SJohn Marino 
386d7f5d3SJohn Marino Copyright 1993, 1994, 1995, 2001, 2004 Free Software Foundation, Inc.
486d7f5d3SJohn Marino 
586d7f5d3SJohn Marino This file is part of the GNU MP Library.
686d7f5d3SJohn Marino 
786d7f5d3SJohn Marino The GNU MP Library is free software; you can redistribute it and/or modify
886d7f5d3SJohn Marino it under the terms of the GNU Lesser General Public License as published by
986d7f5d3SJohn Marino the Free Software Foundation; either version 3 of the License, or (at your
1086d7f5d3SJohn Marino option) any later version.
1186d7f5d3SJohn Marino 
1286d7f5d3SJohn Marino The GNU MP Library is distributed in the hope that it will be useful, but
1386d7f5d3SJohn Marino WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
1486d7f5d3SJohn Marino or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
1586d7f5d3SJohn Marino License for more details.
1686d7f5d3SJohn Marino 
1786d7f5d3SJohn Marino You should have received a copy of the GNU Lesser General Public License
1886d7f5d3SJohn Marino along with the GNU MP Library.  If not, see http://www.gnu.org/licenses/.  */
1986d7f5d3SJohn Marino 
2086d7f5d3SJohn Marino #include "gmp.h"
2186d7f5d3SJohn Marino #include "gmp-impl.h"
2286d7f5d3SJohn Marino 
2386d7f5d3SJohn Marino void
mpf_set(mpf_ptr r,mpf_srcptr u)2486d7f5d3SJohn Marino mpf_set (mpf_ptr r, mpf_srcptr u)
2586d7f5d3SJohn Marino {
2686d7f5d3SJohn Marino   mp_ptr rp, up;
2786d7f5d3SJohn Marino   mp_size_t size, asize;
2886d7f5d3SJohn Marino   mp_size_t prec;
2986d7f5d3SJohn Marino 
3086d7f5d3SJohn Marino   prec = r->_mp_prec + 1;		/* lie not to lose precision in assignment */
3186d7f5d3SJohn Marino   size = u->_mp_size;
3286d7f5d3SJohn Marino   asize = ABS (size);
3386d7f5d3SJohn Marino   rp = r->_mp_d;
3486d7f5d3SJohn Marino   up = u->_mp_d;
3586d7f5d3SJohn Marino 
3686d7f5d3SJohn Marino   if (asize > prec)
3786d7f5d3SJohn Marino     {
3886d7f5d3SJohn Marino       up += asize - prec;
3986d7f5d3SJohn Marino       asize = prec;
4086d7f5d3SJohn Marino     }
4186d7f5d3SJohn Marino 
4286d7f5d3SJohn Marino   r->_mp_exp = u->_mp_exp;
4386d7f5d3SJohn Marino   r->_mp_size = size >= 0 ? asize : -asize;
4486d7f5d3SJohn Marino   MPN_COPY_INCR (rp, up, asize);
4586d7f5d3SJohn Marino }
46