glibc/sysdeps/alpha/udiv_qrnnd.S

152 lines
2.7 KiB
ArmAsm
Raw Normal View History

1995-02-18 04:13:09 +08:00
# Alpha 21064 __udiv_qrnnd
1996-03-02 02:43:45 +08:00
# Copyright (C) 1992, 1994, 1995 Free Software Foundation, Inc.
1995-02-18 04:13:09 +08:00
# This file is part of the GNU MP Library.
# The GNU MP Library is free software; you can redistribute it and/or modify
# it under the terms of the GNU Library General Public License as published by
# the Free Software Foundation; either version 2 of the License, or (at your
# option) any later version.
# The GNU MP Library 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 Library General Public
# License for more details.
# You should have received a copy of the GNU Library General Public License
# along with the GNU MP Library; see the file COPYING.LIB. If not, write to
1996-05-08 05:04:45 +08:00
# the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
# MA 02111-1307, USA.
1995-02-18 04:13:09 +08:00
#include <sysdep.h>
1995-02-18 04:13:09 +08:00
.set noreorder
.set noat
.text
LEAF(__udiv_qrnnd, 0)
1995-02-18 04:13:09 +08:00
.prologue 0
#define cnt $2
#define tmp $3
#define rem_ptr $16
#define n1 $17
#define n0 $18
#define d $19
#define qb $20
ldiq cnt,16
1996-03-02 02:43:45 +08:00
blt d,.Largedivisor
1995-02-18 04:13:09 +08:00
1996-03-02 02:43:45 +08:00
.Loop1: cmplt n0,0,tmp
1995-02-18 04:13:09 +08:00
addq n1,n1,n1
bis n1,tmp,n1
addq n0,n0,n0
cmpule d,n1,qb
subq n1,d,tmp
cmovne qb,tmp,n1
bis n0,qb,n0
cmplt n0,0,tmp
addq n1,n1,n1
bis n1,tmp,n1
addq n0,n0,n0
cmpule d,n1,qb
subq n1,d,tmp
cmovne qb,tmp,n1
bis n0,qb,n0
cmplt n0,0,tmp
addq n1,n1,n1
bis n1,tmp,n1
addq n0,n0,n0
cmpule d,n1,qb
subq n1,d,tmp
cmovne qb,tmp,n1
bis n0,qb,n0
cmplt n0,0,tmp
addq n1,n1,n1
bis n1,tmp,n1
addq n0,n0,n0
cmpule d,n1,qb
subq n1,d,tmp
cmovne qb,tmp,n1
bis n0,qb,n0
subq cnt,1,cnt
1996-03-02 02:43:45 +08:00
bgt cnt,.Loop1
1995-02-18 04:13:09 +08:00
stq n1,0(rem_ptr)
bis $31,n0,$0
ret $31,($26),1
1996-03-02 02:43:45 +08:00
.Largedivisor:
1995-02-18 04:13:09 +08:00
and n0,1,$4
srl n0,1,n0
sll n1,63,tmp
or tmp,n0,n0
srl n1,1,n1
and d,1,$6
srl d,1,$5
addq $5,$6,$5
1996-03-02 02:43:45 +08:00
.Loop2: cmplt n0,0,tmp
1995-02-18 04:13:09 +08:00
addq n1,n1,n1
bis n1,tmp,n1
addq n0,n0,n0
cmpule $5,n1,qb
subq n1,$5,tmp
cmovne qb,tmp,n1
bis n0,qb,n0
cmplt n0,0,tmp
addq n1,n1,n1
bis n1,tmp,n1
addq n0,n0,n0
cmpule $5,n1,qb
subq n1,$5,tmp
cmovne qb,tmp,n1
bis n0,qb,n0
cmplt n0,0,tmp
addq n1,n1,n1
bis n1,tmp,n1
addq n0,n0,n0
cmpule $5,n1,qb
subq n1,$5,tmp
cmovne qb,tmp,n1
bis n0,qb,n0
cmplt n0,0,tmp
addq n1,n1,n1
bis n1,tmp,n1
addq n0,n0,n0
cmpule $5,n1,qb
subq n1,$5,tmp
cmovne qb,tmp,n1
bis n0,qb,n0
subq cnt,1,cnt
1996-03-02 02:43:45 +08:00
bgt cnt,.Loop2
1995-02-18 04:13:09 +08:00
addq n1,n1,n1
addq $4,n1,n1
1996-03-02 02:43:45 +08:00
bne $6,.LOdd
1995-02-18 04:13:09 +08:00
stq n1,0(rem_ptr)
bis $31,n0,$0
ret $31,($26),1
1996-03-02 02:43:45 +08:00
.LOdd:
1995-10-14 10:29:43 +08:00
/* q' in n0. r' in n1 */
1995-02-18 04:13:09 +08:00
addq n1,n0,n1
cmpult n1,n0,tmp # tmp := carry from addq
1996-03-02 02:43:45 +08:00
beq tmp,.LLp6
1995-02-18 04:13:09 +08:00
addq n0,1,n0
subq n1,d,n1
1996-03-02 02:43:45 +08:00
.LLp6: cmpult n1,d,tmp
bne tmp,.LLp7
1995-02-18 04:13:09 +08:00
addq n0,1,n0
subq n1,d,n1
1996-03-02 02:43:45 +08:00
.LLp7:
1995-02-18 04:13:09 +08:00
stq n1,0(rem_ptr)
bis $31,n0,$0
ret $31,($26),1
.end __udiv_qrnnd