[BACK]Return to sub_ui.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib / gmp / mpz

Diff for /OpenXM_contrib/gmp/mpz/Attic/sub_ui.c between version 1.1.1.2 and 1.1.1.3

version 1.1.1.2, 2000/09/09 14:12:58 version 1.1.1.3, 2003/08/25 16:06:34
Line 1 
Line 1 
 /* mpz_sub_ui -- Subtract an unsigned one-word integer from an MP_INT.  /* mpz_sub_ui -- Subtract an mpz_t and an unsigned one-word integer.
   
 Copyright (C) 1991, 1993, 1994, 1996, 1999 Free Software Foundation, Inc.  Copyright 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. */
   
 #include "gmp.h"  
 #include "gmp-impl.h"  
   
 void  #define OPERATION_sub_ui
 #if __STDC__  #include "aors_ui.h"
 mpz_sub_ui (mpz_ptr w, mpz_srcptr u, unsigned long int v)  
 #else  
 mpz_sub_ui (w, u, v)  
      mpz_ptr w;  
      mpz_srcptr u;  
      unsigned long int v;  
 #endif  
 {  
   mp_srcptr up;  
   mp_ptr wp;  
   mp_size_t usize, wsize;  
   mp_size_t abs_usize;  
   
   usize = u->_mp_size;  
   abs_usize = ABS (usize);  
   
   /* If not space for W (and possible carry), increase space.  */  
   wsize = abs_usize + 1;  
   if (w->_mp_alloc < wsize)  
     _mpz_realloc (w, wsize);  
   
   /* These must be after realloc (U may be the same as W).  */  
   up = u->_mp_d;  
   wp = w->_mp_d;  
   
   if (abs_usize == 0)  
     {  
       wp[0] = v;  
       w->_mp_size = -(v != 0);  
       return;  
     }  
   
   if (usize < 0)  
     {  
       mp_limb_t cy;  
       cy = mpn_add_1 (wp, up, abs_usize, (mp_limb_t) v);  
       wp[abs_usize] = cy;  
       wsize = -(abs_usize + cy);  
     }  
   else  
     {  
       /* The signs are different.  Need exact comparison to determine  
          which operand to subtract from which.  */  
       if (abs_usize == 1 && up[0] < v)  
         {  
           wp[0] = v - up[0];  
           wsize = -1;  
         }  
       else  
         {  
           mpn_sub_1 (wp, up, abs_usize, (mp_limb_t) v);  
           /* Size can decrease with at most one limb.  */  
           wsize = abs_usize - (wp[abs_usize - 1] == 0);  
         }  
     }  
   
   w->_mp_size = wsize;  
 }  
Legend:
Removed from v.1.1.1.2  
changed lines
  Added in v.1.1.1.3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>