![]() ![]() | ![]() |
version 1.1.1.1, 2000/01/10 15:35:22 | version 1.1.1.3, 2003/08/25 16:06:34 | ||
---|---|---|---|
|
|
||
/* mpf_init() -- Make a new multiple precision number with value 0. | /* mpf_init() -- Make a new multiple precision number with value 0. | ||
Copyright (C) 1993, 1994, 1995 Free Software Foundation, Inc. | Copyright 1993, 1994, 1995, 2000, 2001 Free Software Foundation, Inc. | ||
This file is part of the GNU MP Library. | This file is part of the GNU MP Library. | ||
The GNU MP Library is free software; you can redistribute it and/or modify | 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 | it under the terms of the GNU Lesser General Public License as published by | ||
the Free Software Foundation; either version 2 of the License, or (at your | the Free Software Foundation; either version 2.1 of the License, or (at your | ||
option) any later version. | option) any later version. | ||
The GNU MP Library is distributed in the hope that it will be useful, but | 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 | WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY | ||
or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public | or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public | ||
License for more details. | License for more details. | ||
You should have received a copy of the GNU Library General Public License | You should have received a copy of the GNU Lesser General Public License | ||
along with the GNU MP Library; see the file COPYING.LIB. If not, write to | 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, | the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, | ||
MA 02111-1307, USA. */ | MA 02111-1307, USA. */ | ||
|
|
||
#include "gmp-impl.h" | #include "gmp-impl.h" | ||
void | void | ||
#if __STDC__ | |||
mpf_init (mpf_ptr r) | mpf_init (mpf_ptr r) | ||
#else | |||
mpf_init (r) | |||
mpf_ptr r; | |||
#endif | |||
{ | { | ||
mp_size_t prec = __gmp_default_fp_limb_precision; | mp_size_t prec = __gmp_default_fp_limb_precision; | ||
r->_mp_d = (mp_ptr) (*_mp_allocate_func) ((prec + 1) * BYTES_PER_MP_LIMB); | r->_mp_d = (mp_ptr) (*__gmp_allocate_func) ((prec + 1) * BYTES_PER_MP_LIMB); | ||
r->_mp_prec = prec; | r->_mp_prec = prec; | ||
r->_mp_size = 0; | r->_mp_size = 0; | ||
r->_mp_exp = 0; | r->_mp_exp = 0; |