xref: /dflybsd-src/contrib/gmp/mpz/cmpabs_ui.c (revision d365564473a20a528d07c59cad8ee2f4bea5546f)
14b6a78b7SSimon Schubert /* mpz_cmpabs_ui.c -- Compare a mpz_t a with an mp_limb_t b.  Return positive,
24b6a78b7SSimon Schubert   zero, or negative based on if a > b, a == b, or a < b.
34b6a78b7SSimon Schubert 
44b6a78b7SSimon Schubert Copyright 1991, 1993, 1994, 1995, 1997, 2000, 2001, 2002 Free Software
54b6a78b7SSimon Schubert Foundation, Inc.
64b6a78b7SSimon Schubert 
74b6a78b7SSimon Schubert This file is part of the GNU MP Library.
84b6a78b7SSimon Schubert 
94b6a78b7SSimon Schubert The GNU MP Library is free software; you can redistribute it and/or modify
104b6a78b7SSimon Schubert it under the terms of the GNU Lesser General Public License as published by
114b6a78b7SSimon Schubert the Free Software Foundation; either version 3 of the License, or (at your
124b6a78b7SSimon Schubert option) any later version.
134b6a78b7SSimon Schubert 
144b6a78b7SSimon Schubert The GNU MP Library is distributed in the hope that it will be useful, but
154b6a78b7SSimon Schubert WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
164b6a78b7SSimon Schubert or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
174b6a78b7SSimon Schubert License for more details.
184b6a78b7SSimon Schubert 
194b6a78b7SSimon Schubert You should have received a copy of the GNU Lesser General Public License
204b6a78b7SSimon Schubert along with the GNU MP Library.  If not, see http://www.gnu.org/licenses/.  */
214b6a78b7SSimon Schubert 
224b6a78b7SSimon Schubert #include "gmp.h"
234b6a78b7SSimon Schubert #include "gmp-impl.h"
244b6a78b7SSimon Schubert 
254b6a78b7SSimon Schubert int
mpz_cmpabs_ui(mpz_srcptr u,unsigned long int v_digit)26*d2d4b659SJohn Marino mpz_cmpabs_ui (mpz_srcptr u, unsigned long int v_digit) __GMP_NOTHROW
274b6a78b7SSimon Schubert {
284b6a78b7SSimon Schubert   mp_ptr up;
294b6a78b7SSimon Schubert   mp_size_t un;
304b6a78b7SSimon Schubert   mp_limb_t ul;
314b6a78b7SSimon Schubert 
324b6a78b7SSimon Schubert   up = PTR(u);
334b6a78b7SSimon Schubert   un = SIZ(u);
344b6a78b7SSimon Schubert 
354b6a78b7SSimon Schubert   if (un == 0)
364b6a78b7SSimon Schubert     return -(v_digit != 0);
374b6a78b7SSimon Schubert 
384b6a78b7SSimon Schubert   un = ABS (un);
394b6a78b7SSimon Schubert 
404b6a78b7SSimon Schubert   if (un == 1)
414b6a78b7SSimon Schubert     {
424b6a78b7SSimon Schubert       ul = up[0];
434b6a78b7SSimon Schubert       if (ul > v_digit)
444b6a78b7SSimon Schubert 	return 1;
454b6a78b7SSimon Schubert       if (ul < v_digit)
464b6a78b7SSimon Schubert 	return -1;
474b6a78b7SSimon Schubert       return 0;
484b6a78b7SSimon Schubert     }
494b6a78b7SSimon Schubert 
504b6a78b7SSimon Schubert #if GMP_NAIL_BITS != 0
514b6a78b7SSimon Schubert   if (v_digit > GMP_NUMB_MAX)
524b6a78b7SSimon Schubert     {
534b6a78b7SSimon Schubert       if (un == 2)
544b6a78b7SSimon Schubert 	{
554b6a78b7SSimon Schubert 	  ul = up[0] + (up[1] << GMP_NUMB_BITS);
564b6a78b7SSimon Schubert 
574b6a78b7SSimon Schubert 	  if (ul > v_digit)
584b6a78b7SSimon Schubert 	    return 1;
594b6a78b7SSimon Schubert 	  if (ul < v_digit)
604b6a78b7SSimon Schubert 	    return -1;
614b6a78b7SSimon Schubert 	  return 0;
624b6a78b7SSimon Schubert 	}
634b6a78b7SSimon Schubert     }
644b6a78b7SSimon Schubert #endif
654b6a78b7SSimon Schubert 
664b6a78b7SSimon Schubert   return 1;
674b6a78b7SSimon Schubert }
68