1/* mpf_set_si() -- Assign a float from a signed int. 2 3Copyright 1993, 1994, 1995, 2000, 2001, 2002, 2004 Free Software Foundation, 4Inc. 5 6This file is part of the GNU MP Library. 7 8The GNU MP Library is free software; you can redistribute it and/or modify 9it under the terms of the GNU Lesser General Public License as published by 10the Free Software Foundation; either version 3 of the License, or (at your 11option) any later version. 12 13The GNU MP Library is distributed in the hope that it will be useful, but 14WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY 15or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public 16License for more details. 17 18You should have received a copy of the GNU Lesser General Public License 19along with the GNU MP Library. If not, see http://www.gnu.org/licenses/. */ 20 21#include "gmp.h" 22#include "gmp-impl.h" 23 24void 25mpf_set_si (mpf_ptr dest, long val) 26{ 27 mp_size_t size; 28 mp_limb_t vl; 29 30 vl = (mp_limb_t) (unsigned long int) (val >= 0 ? val : -val); 31 32 dest->_mp_d[0] = vl & GMP_NUMB_MASK; 33 size = vl != 0; 34 35#if BITS_PER_ULONG > GMP_NUMB_BITS 36 vl >>= GMP_NUMB_BITS; 37 dest->_mp_d[1] = vl; 38 size += (vl != 0); 39#endif 40 41 dest->_mp_exp = size; 42 dest->_mp_size = val >= 0 ? size : -size; 43} 44