mirror of
https://github.com/adulau/aha.git
synced 2024-12-29 12:16:20 +00:00
259 lines
5.3 KiB
ArmAsm
259 lines
5.3 KiB
ArmAsm
|
/* Copyright (C) 1989, 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
|
||
|
|
||
|
This file is part of GNU CC.
|
||
|
|
||
|
GNU CC is free software; you can redistribute it and/or modify
|
||
|
it under the terms of the GNU General Public License as published by
|
||
|
the Free Software Foundation; either version 2, or (at your option)
|
||
|
any later version.
|
||
|
|
||
|
GNU CC is distributed in the hope that it will be useful,
|
||
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
|
GNU General Public License for more details.
|
||
|
|
||
|
You should have received a copy of the GNU General Public License
|
||
|
along with GNU CC; see the file COPYING. If not, write to
|
||
|
the Free Software Foundation, 59 Temple Place - Suite 330,
|
||
|
Boston, MA 02111-1307, USA. */
|
||
|
|
||
|
.text
|
||
|
.align 4
|
||
|
.globl __udivdi3
|
||
|
__udivdi3:
|
||
|
save %sp,-104,%sp
|
||
|
mov %i3,%o3
|
||
|
cmp %i2,0
|
||
|
bne .LL40
|
||
|
mov %i1,%i3
|
||
|
cmp %o3,%i0
|
||
|
bleu .LL41
|
||
|
mov %i3,%o1
|
||
|
! Inlined udiv_qrnnd
|
||
|
mov 32,%g1
|
||
|
subcc %i0,%o3,%g0
|
||
|
1: bcs 5f
|
||
|
addxcc %o1,%o1,%o1 ! shift n1n0 and a q-bit in lsb
|
||
|
sub %i0,%o3,%i0 ! this kills msb of n
|
||
|
addx %i0,%i0,%i0 ! so this cannot give carry
|
||
|
subcc %g1,1,%g1
|
||
|
2: bne 1b
|
||
|
subcc %i0,%o3,%g0
|
||
|
bcs 3f
|
||
|
addxcc %o1,%o1,%o1 ! shift n1n0 and a q-bit in lsb
|
||
|
b 3f
|
||
|
sub %i0,%o3,%i0 ! this kills msb of n
|
||
|
4: sub %i0,%o3,%i0
|
||
|
5: addxcc %i0,%i0,%i0
|
||
|
bcc 2b
|
||
|
subcc %g1,1,%g1
|
||
|
! Got carry from n. Subtract next step to cancel this carry.
|
||
|
bne 4b
|
||
|
addcc %o1,%o1,%o1 ! shift n1n0 and a 0-bit in lsb
|
||
|
sub %i0,%o3,%i0
|
||
|
3: xnor %o1,0,%o1
|
||
|
! End of inline udiv_qrnnd
|
||
|
b .LL45
|
||
|
mov 0,%o2
|
||
|
.LL41:
|
||
|
cmp %o3,0
|
||
|
bne .LL77
|
||
|
mov %i0,%o2
|
||
|
mov 1,%o0
|
||
|
call .udiv,0
|
||
|
mov 0,%o1
|
||
|
mov %o0,%o3
|
||
|
mov %i0,%o2
|
||
|
.LL77:
|
||
|
mov 0,%o4
|
||
|
! Inlined udiv_qrnnd
|
||
|
mov 32,%g1
|
||
|
subcc %o4,%o3,%g0
|
||
|
1: bcs 5f
|
||
|
addxcc %o2,%o2,%o2 ! shift n1n0 and a q-bit in lsb
|
||
|
sub %o4,%o3,%o4 ! this kills msb of n
|
||
|
addx %o4,%o4,%o4 ! so this cannot give carry
|
||
|
subcc %g1,1,%g1
|
||
|
2: bne 1b
|
||
|
subcc %o4,%o3,%g0
|
||
|
bcs 3f
|
||
|
addxcc %o2,%o2,%o2 ! shift n1n0 and a q-bit in lsb
|
||
|
b 3f
|
||
|
sub %o4,%o3,%o4 ! this kills msb of n
|
||
|
4: sub %o4,%o3,%o4
|
||
|
5: addxcc %o4,%o4,%o4
|
||
|
bcc 2b
|
||
|
subcc %g1,1,%g1
|
||
|
! Got carry from n. Subtract next step to cancel this carry.
|
||
|
bne 4b
|
||
|
addcc %o2,%o2,%o2 ! shift n1n0 and a 0-bit in lsb
|
||
|
sub %o4,%o3,%o4
|
||
|
3: xnor %o2,0,%o2
|
||
|
! End of inline udiv_qrnnd
|
||
|
mov %o4,%i0
|
||
|
mov %i3,%o1
|
||
|
! Inlined udiv_qrnnd
|
||
|
mov 32,%g1
|
||
|
subcc %i0,%o3,%g0
|
||
|
1: bcs 5f
|
||
|
addxcc %o1,%o1,%o1 ! shift n1n0 and a q-bit in lsb
|
||
|
sub %i0,%o3,%i0 ! this kills msb of n
|
||
|
addx %i0,%i0,%i0 ! so this cannot give carry
|
||
|
subcc %g1,1,%g1
|
||
|
2: bne 1b
|
||
|
subcc %i0,%o3,%g0
|
||
|
bcs 3f
|
||
|
addxcc %o1,%o1,%o1 ! shift n1n0 and a q-bit in lsb
|
||
|
b 3f
|
||
|
sub %i0,%o3,%i0 ! this kills msb of n
|
||
|
4: sub %i0,%o3,%i0
|
||
|
5: addxcc %i0,%i0,%i0
|
||
|
bcc 2b
|
||
|
subcc %g1,1,%g1
|
||
|
! Got carry from n. Subtract next step to cancel this carry.
|
||
|
bne 4b
|
||
|
addcc %o1,%o1,%o1 ! shift n1n0 and a 0-bit in lsb
|
||
|
sub %i0,%o3,%i0
|
||
|
3: xnor %o1,0,%o1
|
||
|
! End of inline udiv_qrnnd
|
||
|
b .LL78
|
||
|
mov %o1,%l1
|
||
|
.LL40:
|
||
|
cmp %i2,%i0
|
||
|
bleu .LL46
|
||
|
sethi %hi(65535),%o0
|
||
|
b .LL73
|
||
|
mov 0,%o1
|
||
|
.LL46:
|
||
|
or %o0,%lo(65535),%o0
|
||
|
cmp %i2,%o0
|
||
|
bgu .LL53
|
||
|
mov %i2,%o1
|
||
|
cmp %i2,256
|
||
|
addx %g0,-1,%o0
|
||
|
b .LL59
|
||
|
and %o0,8,%o2
|
||
|
.LL53:
|
||
|
sethi %hi(16777215),%o0
|
||
|
or %o0,%lo(16777215),%o0
|
||
|
cmp %o1,%o0
|
||
|
bgu .LL59
|
||
|
mov 24,%o2
|
||
|
mov 16,%o2
|
||
|
.LL59:
|
||
|
srl %o1,%o2,%o1
|
||
|
sethi %hi(__clz_tab),%o0
|
||
|
or %o0,%lo(__clz_tab),%o0
|
||
|
ldub [%o1+%o0],%o0
|
||
|
add %o0,%o2,%o0
|
||
|
mov 32,%o1
|
||
|
subcc %o1,%o0,%o2
|
||
|
bne,a .LL67
|
||
|
mov 32,%o0
|
||
|
cmp %i0,%i2
|
||
|
bgu .LL69
|
||
|
cmp %i3,%o3
|
||
|
blu .LL73
|
||
|
mov 0,%o1
|
||
|
.LL69:
|
||
|
b .LL73
|
||
|
mov 1,%o1
|
||
|
.LL67:
|
||
|
sub %o0,%o2,%o0
|
||
|
sll %i2,%o2,%i2
|
||
|
srl %o3,%o0,%o1
|
||
|
or %i2,%o1,%i2
|
||
|
sll %o3,%o2,%o3
|
||
|
srl %i0,%o0,%o1
|
||
|
sll %i0,%o2,%i0
|
||
|
srl %i3,%o0,%o0
|
||
|
or %i0,%o0,%i0
|
||
|
sll %i3,%o2,%i3
|
||
|
mov %i0,%o5
|
||
|
mov %o1,%o4
|
||
|
! Inlined udiv_qrnnd
|
||
|
mov 32,%g1
|
||
|
subcc %o4,%i2,%g0
|
||
|
1: bcs 5f
|
||
|
addxcc %o5,%o5,%o5 ! shift n1n0 and a q-bit in lsb
|
||
|
sub %o4,%i2,%o4 ! this kills msb of n
|
||
|
addx %o4,%o4,%o4 ! so this cannot give carry
|
||
|
subcc %g1,1,%g1
|
||
|
2: bne 1b
|
||
|
subcc %o4,%i2,%g0
|
||
|
bcs 3f
|
||
|
addxcc %o5,%o5,%o5 ! shift n1n0 and a q-bit in lsb
|
||
|
b 3f
|
||
|
sub %o4,%i2,%o4 ! this kills msb of n
|
||
|
4: sub %o4,%i2,%o4
|
||
|
5: addxcc %o4,%o4,%o4
|
||
|
bcc 2b
|
||
|
subcc %g1,1,%g1
|
||
|
! Got carry from n. Subtract next step to cancel this carry.
|
||
|
bne 4b
|
||
|
addcc %o5,%o5,%o5 ! shift n1n0 and a 0-bit in lsb
|
||
|
sub %o4,%i2,%o4
|
||
|
3: xnor %o5,0,%o5
|
||
|
! End of inline udiv_qrnnd
|
||
|
mov %o4,%i0
|
||
|
mov %o5,%o1
|
||
|
! Inlined umul_ppmm
|
||
|
wr %g0,%o1,%y ! SPARC has 0-3 delay insn after a wr
|
||
|
sra %o3,31,%g2 ! Do not move this insn
|
||
|
and %o1,%g2,%g2 ! Do not move this insn
|
||
|
andcc %g0,0,%g1 ! Do not move this insn
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,%o3,%g1
|
||
|
mulscc %g1,0,%g1
|
||
|
add %g1,%g2,%o0
|
||
|
rd %y,%o2
|
||
|
cmp %o0,%i0
|
||
|
bgu,a .LL73
|
||
|
add %o1,-1,%o1
|
||
|
bne,a .LL45
|
||
|
mov 0,%o2
|
||
|
cmp %o2,%i3
|
||
|
bleu .LL45
|
||
|
mov 0,%o2
|
||
|
add %o1,-1,%o1
|
||
|
.LL73:
|
||
|
mov 0,%o2
|
||
|
.LL45:
|
||
|
mov %o1,%l1
|
||
|
.LL78:
|
||
|
mov %o2,%l0
|
||
|
mov %l0,%i0
|
||
|
mov %l1,%i1
|
||
|
ret
|
||
|
restore
|