[thirdparty/gcc.git] / libgcc / config / alpha / qrnnd.S

 # Alpha 21064 __udiv_qrnnd
 # Copyright (C) 1992-2019 Free Software Foundation, Inc.

 # This file is part of GCC.

 # The GNU MP Library 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 3 of the License, or (at your
 # option) any later version.

 # This file 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.

 # Under Section 7 of GPL version 3, you are granted additional
 # permissions described in the GCC Runtime Library Exception, version
 # 3.1, as published by the Free Software Foundation.

 # You should have received a copy of the GNU General Public License and
 # a copy of the GCC Runtime Library Exception along with this program;
 # see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
 # <http://www.gnu.org/licenses/>.

#ifdef __ELF__
.section .note.GNU-stack,""
#endif

        .set noreorder
        .set noat

	.text

	.globl __udiv_qrnnd
	.ent __udiv_qrnnd
#ifdef __VMS__
__udiv_qrnnd..en:
	.frame $29,0,$26,0
	.prologue
#else
__udiv_qrnnd:
	.frame $30,0,$26,0
	.prologue 0
#endif

#define cnt	$2
#define tmp	$3
#define rem_ptr	$16
#define n1	$17
#define n0	$18
#define d	$19
#define qb	$20
#define AT	$at

	ldiq	cnt,16
	blt	d,$largedivisor

$loop1:	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
	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
	bgt	cnt,$loop1
	stq	n1,0(rem_ptr)
	bis	$31,n0,$0
	ret	$31,($26),1

$largedivisor:
	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

$loop2:	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
	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
	bgt	cnt,$loop2

	addq	n1,n1,n1
	addq	$4,n1,n1
	bne	$6,$Odd
	stq	n1,0(rem_ptr)
	bis	$31,n0,$0
	ret	$31,($26),1

$Odd:
	/* q' in n0. r' in n1 */
	addq	n1,n0,n1

	cmpult	n1,n0,tmp	# tmp := carry from addq
	subq	n1,d,AT
	addq	n0,tmp,n0
	cmovne	tmp,AT,n1

	cmpult	n1,d,tmp
	addq	n0,1,AT
	cmoveq	tmp,AT,n0
	subq	n1,d,AT
	cmoveq	tmp,AT,n1

	stq	n1,0(rem_ptr)
	bis	$31,n0,$0
	ret	$31,($26),1

#ifdef __VMS__
	.link
	.align 3
__udiv_qrnnd:
	.pdesc	__udiv_qrnnd..en,null
#endif
	.end	__udiv_qrnnd
Commit	Line	Data
6da9c622	1	# Alpha 21064 __udiv_qrnnd
a5544970	2	# Copyright (C) 1992-2019 Free Software Foundation, Inc.
6da9c622 RK	3
	4	# This file is part of GCC.
	5
	6	# The GNU MP Library is free software; you can redistribute it and/or modify
	7	# it under the terms of the GNU General Public License as published by
748086b7	8	# the Free Software Foundation; either version 3 of the License, or (at your
6da9c622 RK	9	# option) any later version.
6da9c622 RK	10
6da9c622 RK	11	# This file is distributed in the hope that it will be useful, but
	12	# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
	13	# or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public
	14	# License for more details.
	15
748086b7 JJ	16	# Under Section 7 of GPL version 3, you are granted additional
	17	# permissions described in the GCC Runtime Library Exception, version
	18	# 3.1, as published by the Free Software Foundation.
	19
	20	# You should have received a copy of the GNU General Public License and
	21	# a copy of the GCC Runtime Library Exception along with this program;
	22	# see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
	23	# <http://www.gnu.org/licenses/>.
6da9c622	24
3ac7c0f2 RH	25	#ifdef __ELF__
	26	.section .note.GNU-stack,""
	27	#endif
	28
6da9c622 RK	29	.set noreorder
	30	.set noat
	31
	32	.text
	33
	34	.globl __udiv_qrnnd
	35	.ent __udiv_qrnnd
f2a176dc TG	36	#ifdef __VMS__
	37	__udiv_qrnnd..en:
	38	.frame $29,0,$26,0
	39	.prologue
	40	#else
6da9c622 RK	41	__udiv_qrnnd:
	42	.frame $30,0,$26,0
	43	.prologue 0
f2a176dc	44	#endif
6da9c622 RK	45
	46	#define cnt $2
	47	#define tmp $3
	48	#define rem_ptr $16
	49	#define n1 $17
	50	#define n0 $18
	51	#define d $19
	52	#define qb $20
	53	#define AT $at
	54
	55	ldiq cnt,16
	56	blt d,$largedivisor
	57
	58	$loop1: cmplt n0,0,tmp
	59	addq n1,n1,n1
	60	bis n1,tmp,n1
	61	addq n0,n0,n0
	62	cmpule d,n1,qb
	63	subq n1,d,tmp
	64	cmovne qb,tmp,n1
	65	bis n0,qb,n0
	66	cmplt n0,0,tmp
	67	addq n1,n1,n1
	68	bis n1,tmp,n1
	69	addq n0,n0,n0
	70	cmpule d,n1,qb
	71	subq n1,d,tmp
	72	cmovne qb,tmp,n1
	73	bis n0,qb,n0
	74	cmplt n0,0,tmp
	75	addq n1,n1,n1
	76	bis n1,tmp,n1
	77	addq n0,n0,n0
	78	cmpule d,n1,qb
	79	subq n1,d,tmp
	80	cmovne qb,tmp,n1
	81	bis n0,qb,n0
	82	cmplt n0,0,tmp
	83	addq n1,n1,n1
	84	bis n1,tmp,n1
	85	addq n0,n0,n0
	86	cmpule d,n1,qb
	87	subq n1,d,tmp
	88	cmovne qb,tmp,n1
	89	bis n0,qb,n0
	90	subq cnt,1,cnt
	91	bgt cnt,$loop1
	92	stq n1,0(rem_ptr)
	93	bis $31,n0,$0
	94	ret $31,($26),1
	95
	96	$largedivisor:
	97	and n0,1,$4
	98
	99	srl n0,1,n0
	100	sll n1,63,tmp
	101	or tmp,n0,n0
	102	srl n1,1,n1
	103
	104	and d,1,$6
	105	srl d,1,$5
	106	addq $5,$6,$5
	107
	108	$loop2: cmplt n0,0,tmp
109	addq n1,n1,n1
110	bis n1,tmp,n1
111	addq n0,n0,n0
112	cmpule $5,n1,qb
113	subq n1,$5,tmp
114	cmovne qb,tmp,n1
115	bis n0,qb,n0
116	cmplt n0,0,tmp
117	addq n1,n1,n1
118	bis n1,tmp,n1
119	addq n0,n0,n0
120	cmpule $5,n1,qb
121	subq n1,$5,tmp
122	cmovne qb,tmp,n1
123	bis n0,qb,n0
124	cmplt n0,0,tmp
125	addq n1,n1,n1
126	bis n1,tmp,n1
127	addq n0,n0,n0
128	cmpule $5,n1,qb
129	subq n1,$5,tmp
130	cmovne qb,tmp,n1
131	bis n0,qb,n0
132	cmplt n0,0,tmp
133	addq n1,n1,n1
134	bis n1,tmp,n1
135	addq n0,n0,n0
136	cmpule $5,n1,qb
137	subq n1,$5,tmp
138	cmovne qb,tmp,n1
139	bis n0,qb,n0
140	subq cnt,1,cnt
141	bgt cnt,$loop2
142
143	addq n1,n1,n1
144	addq $4,n1,n1
145	bne $6,$Odd
146	stq n1,0(rem_ptr)
147	bis $31,n0,$0
148	ret $31,($26),1
149
150	$Odd:
151	/* q' in n0. r' in n1 */
152	addq n1,n0,n1
153
154	cmpult n1,n0,tmp # tmp := carry from addq
155	subq n1,d,AT
156	addq n0,tmp,n0
157	cmovne tmp,AT,n1
158
159	cmpult n1,d,tmp
160	addq n0,1,AT
161	cmoveq tmp,AT,n0
162	subq n1,d,AT
163	cmoveq tmp,AT,n1
164
165	stq n1,0(rem_ptr)
166	bis $31,n0,$0
167	ret $31,($26),1
168
f2a176dc TG	169	#ifdef __VMS__
	170	.link
	171	.align 3
	172	__udiv_qrnnd:
	173	.pdesc __udiv_qrnnd..en,null
	174	#endif
6da9c622	175	.end __udiv_qrnnd