xref: /dflybsd-src/contrib/gmp/mpn/generic/add_n.c (revision 86d7f5d305c6adaa56ff4582ece9859d73106103)
186d7f5d3SJohn Marino /* mpn_add_n -- Add equal length limb vectors.
286d7f5d3SJohn Marino 
386d7f5d3SJohn Marino Copyright 1992, 1993, 1994, 1996, 2000, 2002, 2009 Free Software Foundation,
486d7f5d3SJohn Marino Inc.
586d7f5d3SJohn Marino 
686d7f5d3SJohn Marino This file is part of the GNU MP Library.
786d7f5d3SJohn Marino 
886d7f5d3SJohn Marino The GNU MP Library is free software; you can redistribute it and/or modify
986d7f5d3SJohn Marino it under the terms of the GNU Lesser General Public License as published by
1086d7f5d3SJohn Marino the Free Software Foundation; either version 3 of the License, or (at your
1186d7f5d3SJohn Marino option) any later version.
1286d7f5d3SJohn Marino 
1386d7f5d3SJohn Marino The GNU MP Library is distributed in the hope that it will be useful, but
1486d7f5d3SJohn Marino WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
1586d7f5d3SJohn Marino or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
1686d7f5d3SJohn Marino License for more details.
1786d7f5d3SJohn Marino 
1886d7f5d3SJohn Marino You should have received a copy of the GNU Lesser General Public License
1986d7f5d3SJohn Marino along with the GNU MP Library.  If not, see http://www.gnu.org/licenses/.  */
2086d7f5d3SJohn Marino 
2186d7f5d3SJohn Marino #include "gmp.h"
2286d7f5d3SJohn Marino #include "gmp-impl.h"
2386d7f5d3SJohn Marino 
2486d7f5d3SJohn Marino 
2586d7f5d3SJohn Marino #if GMP_NAIL_BITS == 0
2686d7f5d3SJohn Marino 
2786d7f5d3SJohn Marino mp_limb_t
mpn_add_n(mp_ptr rp,mp_srcptr up,mp_srcptr vp,mp_size_t n)2886d7f5d3SJohn Marino mpn_add_n (mp_ptr rp, mp_srcptr up, mp_srcptr vp, mp_size_t n)
2986d7f5d3SJohn Marino {
3086d7f5d3SJohn Marino   mp_limb_t ul, vl, sl, rl, cy, cy1, cy2;
3186d7f5d3SJohn Marino 
3286d7f5d3SJohn Marino   ASSERT (n >= 1);
3386d7f5d3SJohn Marino   ASSERT (MPN_SAME_OR_INCR_P (rp, up, n));
3486d7f5d3SJohn Marino   ASSERT (MPN_SAME_OR_INCR_P (rp, vp, n));
3586d7f5d3SJohn Marino 
3686d7f5d3SJohn Marino   cy = 0;
3786d7f5d3SJohn Marino   do
3886d7f5d3SJohn Marino     {
3986d7f5d3SJohn Marino       ul = *up++;
4086d7f5d3SJohn Marino       vl = *vp++;
4186d7f5d3SJohn Marino       sl = ul + vl;
4286d7f5d3SJohn Marino       cy1 = sl < ul;
4386d7f5d3SJohn Marino       rl = sl + cy;
4486d7f5d3SJohn Marino       cy2 = rl < sl;
4586d7f5d3SJohn Marino       cy = cy1 | cy2;
4686d7f5d3SJohn Marino       *rp++ = rl;
4786d7f5d3SJohn Marino     }
4886d7f5d3SJohn Marino   while (--n != 0);
4986d7f5d3SJohn Marino 
5086d7f5d3SJohn Marino   return cy;
5186d7f5d3SJohn Marino }
5286d7f5d3SJohn Marino 
5386d7f5d3SJohn Marino #endif
5486d7f5d3SJohn Marino 
5586d7f5d3SJohn Marino #if GMP_NAIL_BITS >= 1
5686d7f5d3SJohn Marino 
5786d7f5d3SJohn Marino mp_limb_t
mpn_add_n(mp_ptr rp,mp_srcptr up,mp_srcptr vp,mp_size_t n)5886d7f5d3SJohn Marino mpn_add_n (mp_ptr rp, mp_srcptr up, mp_srcptr vp, mp_size_t n)
5986d7f5d3SJohn Marino {
6086d7f5d3SJohn Marino   mp_limb_t ul, vl, rl, cy;
6186d7f5d3SJohn Marino 
6286d7f5d3SJohn Marino   ASSERT (n >= 1);
6386d7f5d3SJohn Marino   ASSERT (MPN_SAME_OR_INCR_P (rp, up, n));
6486d7f5d3SJohn Marino   ASSERT (MPN_SAME_OR_INCR_P (rp, vp, n));
6586d7f5d3SJohn Marino 
6686d7f5d3SJohn Marino   cy = 0;
6786d7f5d3SJohn Marino   do
6886d7f5d3SJohn Marino     {
6986d7f5d3SJohn Marino       ul = *up++;
7086d7f5d3SJohn Marino       vl = *vp++;
7186d7f5d3SJohn Marino       rl = ul + vl + cy;
7286d7f5d3SJohn Marino       cy = rl >> GMP_NUMB_BITS;
7386d7f5d3SJohn Marino       *rp++ = rl & GMP_NUMB_MASK;
7486d7f5d3SJohn Marino     }
7586d7f5d3SJohn Marino   while (--n != 0);
7686d7f5d3SJohn Marino 
7786d7f5d3SJohn Marino   return cy;
7886d7f5d3SJohn Marino }
7986d7f5d3SJohn Marino 
8086d7f5d3SJohn Marino #endif
81