version 1.1.1.2, 2000/09/09 14:12:53 |
version 1.1.1.3, 2003/08/25 16:06:33 |
|
|
/* mpz_getlimbn(integer,n) -- Return the N:th limb from INTEGER. |
/* mpz_getlimbn(integer,n) -- Return the N:th limb from INTEGER. |
|
|
Copyright (C) 1993, 1994, 1995, 1996 Free Software Foundation, Inc. |
Copyright 1993, 1994, 1995, 1996, 2001 Free Software Foundation, Inc. |
|
|
This file is part of the GNU MP Library. |
This file is part of the GNU MP Library. |
|
|
Line 19 along with the GNU MP Library; see the file COPYING.LI |
|
Line 19 along with the GNU MP Library; see the file COPYING.LI |
|
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. */ |
|
|
|
#define __GMP_FORCE_mpz_getlimbn 1 |
|
|
#include "gmp.h" |
#include "gmp.h" |
#include "gmp-impl.h" |
#include "gmp-impl.h" |
|
|
mp_limb_t |
|
#if __STDC__ |
|
mpz_getlimbn (mpz_srcptr integer, mp_size_t n) |
|
#else |
|
mpz_getlimbn (integer, n) |
|
mpz_srcptr integer; |
|
mp_size_t n; |
|
#endif |
|
{ |
|
if (ABS (integer->_mp_size) <= n || n < 0) |
|
return 0; |
|
else |
|
return integer->_mp_d[n]; |
|
} |
|