[BACK]Return to cmp.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib / gmp / mpn / generic

Diff for /OpenXM_contrib/gmp/mpn/generic/Attic/cmp.c between version 1.1.1.2 and 1.1.1.3

version 1.1.1.2, 2000/09/09 14:12:24 version 1.1.1.3, 2003/08/25 16:06:20
Line 1 
Line 1 
 /* mpn_cmp -- Compare two low-level natural-number integers.  /* mpn_cmp -- Compare two low-level natural-number integers.
   
 Copyright (C) 1991, 1993, 1994, 1996 Free Software Foundation, Inc.  Copyright 1991, 1993, 1994, 1996, 2000, 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_mpn_cmp 1
   
 #include "gmp.h"  #include "gmp.h"
 #include "gmp-impl.h"  #include "gmp-impl.h"
   
 /* Compare OP1_PTR/OP1_SIZE with OP2_PTR/OP2_SIZE.  
    There are no restrictions on the relative sizes of  
    the two arguments.  
    Return 1 if OP1 > OP2, 0 if they are equal, and -1 if OP1 < OP2.  */  
   
 int  
 #if __STDC__  
 mpn_cmp (mp_srcptr op1_ptr, mp_srcptr op2_ptr, mp_size_t size)  
 #else  
 mpn_cmp (op1_ptr, op2_ptr, size)  
      mp_srcptr op1_ptr;  
      mp_srcptr op2_ptr;  
      mp_size_t size;  
 #endif  
 {  
   mp_size_t i;  
   mp_limb_t op1_word, op2_word;  
   
   for (i = size - 1; i >= 0; i--)  
     {  
       op1_word = op1_ptr[i];  
       op2_word = op2_ptr[i];  
       if (op1_word != op2_word)  
         goto diff;  
     }  
   return 0;  
  diff:  
   /* This can *not* be simplified to  
         op2_word - op2_word  
      since that expression might give signed overflow.  */  
   return (op1_word > op2_word) ? 1 : -1;  
 }  
Legend:
Removed from v.1.1.1.2  
changed lines
  Added in v.1.1.1.3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>