|
Packit |
5c3484 |
dnl SPARC v7 __udiv_qrnnd division support, used from longlong.h.
|
|
Packit |
5c3484 |
dnl This is for v7 CPUs without a floating-point unit.
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
dnl Copyright 1993, 1994, 1996, 2000 Free Software Foundation, Inc.
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
dnl This file is part of the GNU MP Library.
|
|
Packit |
5c3484 |
dnl
|
|
Packit |
5c3484 |
dnl The GNU MP Library is free software; you can redistribute it and/or modify
|
|
Packit |
5c3484 |
dnl it under the terms of either:
|
|
Packit |
5c3484 |
dnl
|
|
Packit |
5c3484 |
dnl * the GNU Lesser General Public License as published by the Free
|
|
Packit |
5c3484 |
dnl Software Foundation; either version 3 of the License, or (at your
|
|
Packit |
5c3484 |
dnl option) any later version.
|
|
Packit |
5c3484 |
dnl
|
|
Packit |
5c3484 |
dnl or
|
|
Packit |
5c3484 |
dnl
|
|
Packit |
5c3484 |
dnl * the GNU General Public License as published by the Free Software
|
|
Packit |
5c3484 |
dnl Foundation; either version 2 of the License, or (at your option) any
|
|
Packit |
5c3484 |
dnl later version.
|
|
Packit |
5c3484 |
dnl
|
|
Packit |
5c3484 |
dnl or both in parallel, as here.
|
|
Packit |
5c3484 |
dnl
|
|
Packit |
5c3484 |
dnl The GNU MP Library is distributed in the hope that it will be useful, but
|
|
Packit |
5c3484 |
dnl WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
|
|
Packit |
5c3484 |
dnl or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
Packit |
5c3484 |
dnl for more details.
|
|
Packit |
5c3484 |
dnl
|
|
Packit |
5c3484 |
dnl You should have received copies of the GNU General Public License and the
|
|
Packit |
5c3484 |
dnl GNU Lesser General Public License along with the GNU MP Library. If not,
|
|
Packit |
5c3484 |
dnl see https://www.gnu.org/licenses/.
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
include(`../config.m4')
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
C INPUT PARAMETERS
|
|
Packit |
5c3484 |
C rem_ptr o0
|
|
Packit |
5c3484 |
C n1 o1
|
|
Packit |
5c3484 |
C n0 o2
|
|
Packit |
5c3484 |
C d o3
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
ASM_START()
|
|
Packit |
5c3484 |
PROLOGUE(mpn_udiv_qrnnd)
|
|
Packit |
5c3484 |
tst %o3
|
|
Packit |
5c3484 |
bneg L(largedivisor)
|
|
Packit |
5c3484 |
mov 8,%g1
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
b L(p1)
|
|
Packit |
5c3484 |
addxcc %o2,%o2,%o2
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
L(plop):
|
|
Packit |
5c3484 |
bcc L(n1)
|
|
Packit |
5c3484 |
addxcc %o2,%o2,%o2
|
|
Packit |
5c3484 |
L(p1): addx %o1,%o1,%o1
|
|
Packit |
5c3484 |
subcc %o1,%o3,%o4
|
|
Packit |
5c3484 |
bcc L(n2)
|
|
Packit |
5c3484 |
addxcc %o2,%o2,%o2
|
|
Packit |
5c3484 |
L(p2): addx %o1,%o1,%o1
|
|
Packit |
5c3484 |
subcc %o1,%o3,%o4
|
|
Packit |
5c3484 |
bcc L(n3)
|
|
Packit |
5c3484 |
addxcc %o2,%o2,%o2
|
|
Packit |
5c3484 |
L(p3): addx %o1,%o1,%o1
|
|
Packit |
5c3484 |
subcc %o1,%o3,%o4
|
|
Packit |
5c3484 |
bcc L(n4)
|
|
Packit |
5c3484 |
addxcc %o2,%o2,%o2
|
|
Packit |
5c3484 |
L(p4): addx %o1,%o1,%o1
|
|
Packit |
5c3484 |
addcc %g1,-1,%g1
|
|
Packit |
5c3484 |
bne L(plop)
|
|
Packit |
5c3484 |
subcc %o1,%o3,%o4
|
|
Packit |
5c3484 |
bcc L(n5)
|
|
Packit |
5c3484 |
addxcc %o2,%o2,%o2
|
|
Packit |
5c3484 |
L(p5): st %o1,[%o0]
|
|
Packit |
5c3484 |
retl
|
|
Packit |
5c3484 |
xnor %g0,%o2,%o0
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
L(nlop):
|
|
Packit |
5c3484 |
bcc L(p1)
|
|
Packit |
5c3484 |
addxcc %o2,%o2,%o2
|
|
Packit |
5c3484 |
L(n1): addx %o4,%o4,%o4
|
|
Packit |
5c3484 |
subcc %o4,%o3,%o1
|
|
Packit |
5c3484 |
bcc L(p2)
|
|
Packit |
5c3484 |
addxcc %o2,%o2,%o2
|
|
Packit |
5c3484 |
L(n2): addx %o4,%o4,%o4
|
|
Packit |
5c3484 |
subcc %o4,%o3,%o1
|
|
Packit |
5c3484 |
bcc L(p3)
|
|
Packit |
5c3484 |
addxcc %o2,%o2,%o2
|
|
Packit |
5c3484 |
L(n3): addx %o4,%o4,%o4
|
|
Packit |
5c3484 |
subcc %o4,%o3,%o1
|
|
Packit |
5c3484 |
bcc L(p4)
|
|
Packit |
5c3484 |
addxcc %o2,%o2,%o2
|
|
Packit |
5c3484 |
L(n4): addx %o4,%o4,%o4
|
|
Packit |
5c3484 |
addcc %g1,-1,%g1
|
|
Packit |
5c3484 |
bne L(nlop)
|
|
Packit |
5c3484 |
subcc %o4,%o3,%o1
|
|
Packit |
5c3484 |
bcc L(p5)
|
|
Packit |
5c3484 |
addxcc %o2,%o2,%o2
|
|
Packit |
5c3484 |
L(n5): st %o4,[%o0]
|
|
Packit |
5c3484 |
retl
|
|
Packit |
5c3484 |
xnor %g0,%o2,%o0
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
L(largedivisor):
|
|
Packit |
5c3484 |
and %o2,1,%o5 C %o5 = n0 & 1
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
srl %o2,1,%o2
|
|
Packit |
5c3484 |
sll %o1,31,%g2
|
|
Packit |
5c3484 |
or %g2,%o2,%o2 C %o2 = lo(n1n0 >> 1)
|
|
Packit |
5c3484 |
srl %o1,1,%o1 C %o1 = hi(n1n0 >> 1)
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
and %o3,1,%g2
|
|
Packit |
5c3484 |
srl %o3,1,%g3 C %g3 = floor(d / 2)
|
|
Packit |
5c3484 |
add %g3,%g2,%g3 C %g3 = ceil(d / 2)
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
b L(Lp1)
|
|
Packit |
5c3484 |
addxcc %o2,%o2,%o2
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
L(Lplop):
|
|
Packit |
5c3484 |
bcc L(Ln1)
|
|
Packit |
5c3484 |
addxcc %o2,%o2,%o2
|
|
Packit |
5c3484 |
L(Lp1): addx %o1,%o1,%o1
|
|
Packit |
5c3484 |
subcc %o1,%g3,%o4
|
|
Packit |
5c3484 |
bcc L(Ln2)
|
|
Packit |
5c3484 |
addxcc %o2,%o2,%o2
|
|
Packit |
5c3484 |
L(Lp2): addx %o1,%o1,%o1
|
|
Packit |
5c3484 |
subcc %o1,%g3,%o4
|
|
Packit |
5c3484 |
bcc L(Ln3)
|
|
Packit |
5c3484 |
addxcc %o2,%o2,%o2
|
|
Packit |
5c3484 |
L(Lp3): addx %o1,%o1,%o1
|
|
Packit |
5c3484 |
subcc %o1,%g3,%o4
|
|
Packit |
5c3484 |
bcc L(Ln4)
|
|
Packit |
5c3484 |
addxcc %o2,%o2,%o2
|
|
Packit |
5c3484 |
L(Lp4): addx %o1,%o1,%o1
|
|
Packit |
5c3484 |
addcc %g1,-1,%g1
|
|
Packit |
5c3484 |
bne L(Lplop)
|
|
Packit |
5c3484 |
subcc %o1,%g3,%o4
|
|
Packit |
5c3484 |
bcc L(Ln5)
|
|
Packit |
5c3484 |
addxcc %o2,%o2,%o2
|
|
Packit |
5c3484 |
L(Lp5): add %o1,%o1,%o1 C << 1
|
|
Packit |
5c3484 |
tst %g2
|
|
Packit |
5c3484 |
bne L(oddp)
|
|
Packit |
5c3484 |
add %o5,%o1,%o1
|
|
Packit |
5c3484 |
st %o1,[%o0]
|
|
Packit |
5c3484 |
retl
|
|
Packit |
5c3484 |
xnor %g0,%o2,%o0
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
L(Lnlop):
|
|
Packit |
5c3484 |
bcc L(Lp1)
|
|
Packit |
5c3484 |
addxcc %o2,%o2,%o2
|
|
Packit |
5c3484 |
L(Ln1): addx %o4,%o4,%o4
|
|
Packit |
5c3484 |
subcc %o4,%g3,%o1
|
|
Packit |
5c3484 |
bcc L(Lp2)
|
|
Packit |
5c3484 |
addxcc %o2,%o2,%o2
|
|
Packit |
5c3484 |
L(Ln2): addx %o4,%o4,%o4
|
|
Packit |
5c3484 |
subcc %o4,%g3,%o1
|
|
Packit |
5c3484 |
bcc L(Lp3)
|
|
Packit |
5c3484 |
addxcc %o2,%o2,%o2
|
|
Packit |
5c3484 |
L(Ln3): addx %o4,%o4,%o4
|
|
Packit |
5c3484 |
subcc %o4,%g3,%o1
|
|
Packit |
5c3484 |
bcc L(Lp4)
|
|
Packit |
5c3484 |
addxcc %o2,%o2,%o2
|
|
Packit |
5c3484 |
L(Ln4): addx %o4,%o4,%o4
|
|
Packit |
5c3484 |
addcc %g1,-1,%g1
|
|
Packit |
5c3484 |
bne L(Lnlop)
|
|
Packit |
5c3484 |
subcc %o4,%g3,%o1
|
|
Packit |
5c3484 |
bcc L(Lp5)
|
|
Packit |
5c3484 |
addxcc %o2,%o2,%o2
|
|
Packit |
5c3484 |
L(Ln5): add %o4,%o4,%o4 C << 1
|
|
Packit |
5c3484 |
tst %g2
|
|
Packit |
5c3484 |
bne L(oddn)
|
|
Packit |
5c3484 |
add %o5,%o4,%o4
|
|
Packit |
5c3484 |
st %o4,[%o0]
|
|
Packit |
5c3484 |
retl
|
|
Packit |
5c3484 |
xnor %g0,%o2,%o0
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
L(oddp):
|
|
Packit |
5c3484 |
xnor %g0,%o2,%o2
|
|
Packit |
5c3484 |
C q' in %o2. r' in %o1
|
|
Packit |
5c3484 |
addcc %o1,%o2,%o1
|
|
Packit |
5c3484 |
bcc L(Lp6)
|
|
Packit |
5c3484 |
addx %o2,0,%o2
|
|
Packit |
5c3484 |
sub %o1,%o3,%o1
|
|
Packit |
5c3484 |
L(Lp6): subcc %o1,%o3,%g0
|
|
Packit |
5c3484 |
bcs L(Lp7)
|
|
Packit |
5c3484 |
subx %o2,-1,%o2
|
|
Packit |
5c3484 |
sub %o1,%o3,%o1
|
|
Packit |
5c3484 |
L(Lp7): st %o1,[%o0]
|
|
Packit |
5c3484 |
retl
|
|
Packit |
5c3484 |
mov %o2,%o0
|
|
Packit |
5c3484 |
|
|
Packit |
5c3484 |
L(oddn):
|
|
Packit |
5c3484 |
xnor %g0,%o2,%o2
|
|
Packit |
5c3484 |
C q' in %o2. r' in %o4
|
|
Packit |
5c3484 |
addcc %o4,%o2,%o4
|
|
Packit |
5c3484 |
bcc L(Ln6)
|
|
Packit |
5c3484 |
addx %o2,0,%o2
|
|
Packit |
5c3484 |
sub %o4,%o3,%o4
|
|
Packit |
5c3484 |
L(Ln6): subcc %o4,%o3,%g0
|
|
Packit |
5c3484 |
bcs L(Ln7)
|
|
Packit |
5c3484 |
subx %o2,-1,%o2
|
|
Packit |
5c3484 |
sub %o4,%o3,%o4
|
|
Packit |
5c3484 |
L(Ln7): st %o4,[%o0]
|
|
Packit |
5c3484 |
retl
|
|
Packit |
5c3484 |
mov %o2,%o0
|
|
Packit |
5c3484 |
EPILOGUE(mpn_udiv_qrnnd)
|