164 lines
		
	
	
		
			3.2 KiB
		
	
	
	
		
			ArmAsm
		
	
	
	
	
	
			
		
		
	
	
			164 lines
		
	
	
		
			3.2 KiB
		
	
	
	
		
			ArmAsm
		
	
	
	
	
	
|  # Alpha 21064 __udiv_qrnnd
 | |
|  # Copyright (C) 1992, 1994, 1995, 2000 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 2 of the License, or (at your
 | |
|  # option) any later version.
 | |
| 
 | |
|  # In addition to the permissions in the GNU General Public License, the
 | |
|  # Free Software Foundation gives you unlimited permission to link the
 | |
|  # compiled version of this file with other programs, and to distribute
 | |
|  # those programs without any restriction coming from the use of this
 | |
|  # file.  (The General Public License restrictions do apply in other
 | |
|  # respects; for example, they cover modification of the file, and
 | |
|  # distribution when not linked into another program.)
 | |
| 
 | |
|  # 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.
 | |
| 
 | |
|  # You should have received a copy of the GNU General Public License
 | |
|  # along with GCC; see the file COPYING.  If not, write to the 
 | |
|  # Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
 | |
|  # MA 02111-1307, USA.
 | |
| 
 | |
|         .set noreorder
 | |
|         .set noat
 | |
| 
 | |
| 	.text
 | |
| 
 | |
| 	.globl __udiv_qrnnd
 | |
| 	.ent __udiv_qrnnd
 | |
| __udiv_qrnnd:
 | |
| 	.frame $30,0,$26,0
 | |
| 	.prologue 0
 | |
| 
 | |
| #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
 | |
| 
 | |
| 	.end	__udiv_qrnnd
 |