Home | History | Annotate | Line # | Download | only in vax 
      1 /* Copyright (C) 2009-2024 Free Software Foundation, Inc.
      2    This file is part of GCC.
      3    Contributed by Maciej W. Rozycki <macro (at) linux-mips.org>.
      4 
      5    This file is free software; you can redistribute it and/or modify it
      6    under the terms of the GNU General Public License as published by the
      7    Free Software Foundation; either version 3, or (at your option) any
      8    later version.
      9 
     10    This file is distributed in the hope that it will be useful, but
     11    WITHOUT ANY WARRANTY; without even the implied warranty of
     12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
     13    General Public License for more details.
     14 
     15    Under Section 7 of GPL version 3, you are granted additional
     16    permissions described in the GCC Runtime Library Exception, version
     17    3.1, as published by the Free Software Foundation.
     18 
     19    You should have received a copy of the GNU General Public License and
     20    a copy of the GCC Runtime Library Exception along with this program;
     21    see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see
     22    <http://www.gnu.org/licenses/>.  */
     23 
     24 #ifdef L_udivsi3
     25 	.text
     26 	.globl	__udivsi3
     27 	.type	__udivsi3, @function
     28 __udivsi3:
     29 	.word	0
     30 	movl	8(%ap), %r1
     31 	blss	0f			/* Check bit #31 of divisor.  */
     32 	movl	4(%ap), %r2
     33 	blss	1f			/* Check bit #31 of dividend.  */
     34 
     35 	/* Both zero, do a standard division.  */
     36 
     37 	divl3	%r1, %r2, %r0
     38 	ret
     39 
     40 	/* MSB of divisor set, only 1 or 0 may result.  */
     41 0:
     42 	decl	%r1
     43 	clrl	%r0
     44 	cmpl	%r1, 4(%ap)
     45 	adwc	$0, %r0
     46 	ret
     47 
     48 	/* MSB of dividend set, do an extended division.  */
     49 1:
     50 	clrl	%r3
     51 	ediv	%r1, %r2, %r0, %r3
     52 	ret
     53 	.size	__udivsi3, . - __udivsi3
     54 	.previous
     55 #endif
     56 
     57 #ifdef L_umodsi3
     58 	.text
     59 	.globl	__umodsi3
     60 	.type	__umodsi3, @function
     61 __umodsi3:
     62 	.word	0
     63 	movl	8(%ap), %r1
     64 	blss	0f			/* Check bit #31 of divisor.  */
     65 	movl	4(%ap), %r2
     66 	blss	1f			/* Check bit #31 of dividend.  */
     67 
     68 	/* Both zero, do a standard division.  */
     69 
     70 	divl3	%r1, %r2, %r0
     71 	mull2	%r0, %r1
     72 	subl3	%r1, %r2, %r0
     73 	ret
     74 
     75 	/* MSB of divisor set, subtract the divisor at most once.  */
     76 0:
     77 	movl	4(%ap), %r2
     78 	clrl	%r0
     79 	cmpl	%r2, %r1
     80 	sbwc	$0, %r0
     81 	bicl2	%r0, %r1
     82 	subl3	%r1, %r2, %r0
     83 	ret
     84 
     85 	/* MSB of dividend set, do an extended division.  */
     86 1:
     87 	clrl	%r3
     88 	ediv	%r1, %r2, %r3, %r0
     89 	ret
     90 	.size	__umodsi3, . - __umodsi3
     91 	.previous
     92 #endif
     93