sysdeps/sparc/sparc64/sub_n.S

   1 /* SPARC v9 __mpn_sub_n -- Subtract two limb vectors of the same length > 0
   2    and store difference in a third limb vector.
   3
   4    Copyright (C) 1995, 1996, 1997 Free Software Foundation, Inc.
   5
   6    This file is part of the GNU MP Library.
   7
   8    The GNU MP Library is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU Library General Public License as published by
  10    the Free Software Foundation; either version 2 of the License, or (at your
  11    option) any later version.
  12
  13    The GNU MP Library is distributed in the hope that it will be useful, but
  14    WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  15    or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Library General Public
  16    License for more details.
  17
  18    You should have received a copy of the GNU Library General Public License
  19    along with the GNU MP Library; see the file COPYING.LIB.  If not, write to
  20    the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
  21    MA 02111-1307, USA.  */
  22
  23 #include <sysdep.h>
  24
  25 /* INPUT PARAMETERS
  26    res_ptr      %o0
  27    s1_ptr       %o1
  28    s2_ptr       %o2
  29    size         %o3  */
  30
  31 ENTRY(__mpn_sub_n)
  32
  33         sub %g0,%o3,%g3
  34         sllx %o3,3,%g1
  35         add %o1,%g1,%o1                 ! make s1_ptr point at end
  36         add %o2,%g1,%o2                 ! make s2_ptr point at end
  37         add %o0,%g1,%o0                 ! make res_ptr point at end
  38         mov 0,%o4                       ! clear carry variable
  39         sllx %g3,3,%o5                  ! compute initial address index
  40
  41 1:      ldx [%o2+%o5],%g1               ! load s2 limb
  42         add %g3,1,%g3                   ! increment loop count
  43         ldx [%o1+%o5],%g2               ! load s1 limb
  44         addcc %g1,%o4,%g1               ! add s2 limb and carry variable
  45         movcc %xcc,0,%o4                ! if carry-out, o4 was 1; clear it
  46         subcc %g2,%g1,%g1               ! subtract s1 limb from sum
  47         stx %g1,[%o0+%o5]               ! store result
  48         add %o5,8,%o5                   ! increment address index
  49         brnz,pt %g3,1b
  50          movcs %xcc,1,%o4               ! if s1 subtract gave carry, record it
  51
  52         retl
  53          mov %o4,%o0
  54
  55 END(__mpn_sub_n)