Annotation of OpenXM_contrib/gmp/mpn/sparc32/udiv_fp.S, Revision 1.1
1.1 ! maekawa 1: ! SPARC v7 __udiv_qrnnd division support, used from longlong.h.
! 2: ! This is for v7 CPUs with a floating-point unit.
! 3:
! 4: ! Copyright (C) 1993, 1994, 1996 Free Software Foundation, Inc.
! 5:
! 6: ! This file is part of the GNU MP Library.
! 7:
! 8: ! The GNU MP Library is free software; you can redistribute it and/or modify
! 9: ! it under the terms of the GNU Library General Public License as published by
! 10: ! the Free Software Foundation; either version 2 of the License, or (at your
! 11: ! option) any later version.
! 12:
! 13: ! The GNU MP Library is distributed in the hope that it will be useful, but
! 14: ! WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
! 15: ! or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public
! 16: ! License for more details.
! 17:
! 18: ! You should have received a copy of the GNU Library General Public License
! 19: ! along with the GNU MP Library; see the file COPYING.LIB. If not, write to
! 20: ! the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
! 21: ! MA 02111-1307, USA.
! 22:
! 23:
! 24: ! INPUT PARAMETERS
! 25: ! rem_ptr i0
! 26: ! n1 i1
! 27: ! n0 i2
! 28: ! d i3
! 29:
! 30: #include "sysdep.h"
! 31: #undef ret /* Kludge for glibc */
! 32:
! 33: .text
! 34: .align 8
! 35: LC0: .double 0r4294967296
! 36: LC1: .double 0r2147483648
! 37:
! 38: .align 4
! 39: .global C_SYMBOL_NAME(__udiv_qrnnd)
! 40: C_SYMBOL_NAME(__udiv_qrnnd):
! 41: !#PROLOGUE# 0
! 42: save %sp,-104,%sp
! 43: !#PROLOGUE# 1
! 44: st %i1,[%fp-8]
! 45: ld [%fp-8],%f10
! 46: sethi %hi(LC0),%o7
! 47: fitod %f10,%f4
! 48: ldd [%o7+%lo(LC0)],%f8
! 49: cmp %i1,0
! 50: bge L248
! 51: mov %i0,%i5
! 52: faddd %f4,%f8,%f4
! 53: L248:
! 54: st %i2,[%fp-8]
! 55: ld [%fp-8],%f10
! 56: fmuld %f4,%f8,%f6
! 57: cmp %i2,0
! 58: bge L249
! 59: fitod %f10,%f2
! 60: faddd %f2,%f8,%f2
! 61: L249:
! 62: st %i3,[%fp-8]
! 63: faddd %f6,%f2,%f2
! 64: ld [%fp-8],%f10
! 65: cmp %i3,0
! 66: bge L250
! 67: fitod %f10,%f4
! 68: faddd %f4,%f8,%f4
! 69: L250:
! 70: fdivd %f2,%f4,%f2
! 71: sethi %hi(LC1),%o7
! 72: ldd [%o7+%lo(LC1)],%f4
! 73: fcmped %f2,%f4
! 74: nop
! 75: fbge,a L251
! 76: fsubd %f2,%f4,%f2
! 77: fdtoi %f2,%f2
! 78: st %f2,[%fp-8]
! 79: b L252
! 80: ld [%fp-8],%i4
! 81: L251:
! 82: fdtoi %f2,%f2
! 83: st %f2,[%fp-8]
! 84: ld [%fp-8],%i4
! 85: sethi %hi(-2147483648),%g2
! 86: xor %i4,%g2,%i4
! 87: L252:
! 88: wr %g0,%i4,%y
! 89: sra %i3,31,%g2
! 90: and %i4,%g2,%g2
! 91: andcc %g0,0,%g1
! 92: mulscc %g1,%i3,%g1
! 93: mulscc %g1,%i3,%g1
! 94: mulscc %g1,%i3,%g1
! 95: mulscc %g1,%i3,%g1
! 96: mulscc %g1,%i3,%g1
! 97: mulscc %g1,%i3,%g1
! 98: mulscc %g1,%i3,%g1
! 99: mulscc %g1,%i3,%g1
! 100: mulscc %g1,%i3,%g1
! 101: mulscc %g1,%i3,%g1
! 102: mulscc %g1,%i3,%g1
! 103: mulscc %g1,%i3,%g1
! 104: mulscc %g1,%i3,%g1
! 105: mulscc %g1,%i3,%g1
! 106: mulscc %g1,%i3,%g1
! 107: mulscc %g1,%i3,%g1
! 108: mulscc %g1,%i3,%g1
! 109: mulscc %g1,%i3,%g1
! 110: mulscc %g1,%i3,%g1
! 111: mulscc %g1,%i3,%g1
! 112: mulscc %g1,%i3,%g1
! 113: mulscc %g1,%i3,%g1
! 114: mulscc %g1,%i3,%g1
! 115: mulscc %g1,%i3,%g1
! 116: mulscc %g1,%i3,%g1
! 117: mulscc %g1,%i3,%g1
! 118: mulscc %g1,%i3,%g1
! 119: mulscc %g1,%i3,%g1
! 120: mulscc %g1,%i3,%g1
! 121: mulscc %g1,%i3,%g1
! 122: mulscc %g1,%i3,%g1
! 123: mulscc %g1,%i3,%g1
! 124: mulscc %g1,0,%g1
! 125: add %g1,%g2,%i0
! 126: rd %y,%g3
! 127: subcc %i2,%g3,%o7
! 128: subxcc %i1,%i0,%g0
! 129: be L253
! 130: cmp %o7,%i3
! 131:
! 132: add %i4,-1,%i0
! 133: add %o7,%i3,%o7
! 134: st %o7,[%i5]
! 135: ret
! 136: restore
! 137: L253:
! 138: blu L246
! 139: mov %i4,%i0
! 140: add %i4,1,%i0
! 141: sub %o7,%i3,%o7
! 142: L246:
! 143: st %o7,[%i5]
! 144: ret
! 145: restore
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to udiv_fp.S CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gmp / mpn / sparc32