Return to udiv.S CVS log

Up to [local] / OpenXM / src / kan96xx / gmp-2.0.2 / mpn / sparc32 / v8 / supersparc

Annotation of OpenXM/src/kan96xx/gmp-2.0.2/mpn/sparc32/v8/supersparc/udiv.S, Revision 1.1.1.1

1.1       maekawa     1: ! SuperSPARC __udiv_qrnnd division support, used from longlong.h.
                      2: ! This is for SuperSPARC only, to compensate for its semi-functional
                      3: ! udiv instruction.
                      4:
                      5: ! Copyright (C) 1993, 1994, 1996 Free Software Foundation, Inc.
                      6:
                      7: ! This file is part of the GNU MP Library.
                      8:
                      9: ! The GNU MP Library is free software; you can redistribute it and/or modify
                     10: ! it under the terms of the GNU Library General Public License as published by
                     11: ! the Free Software Foundation; either version 2 of the License, or (at your
                     12: ! option) any later version.
                     13:
                     14: ! The GNU MP Library is distributed in the hope that it will be useful, but
                     15: ! WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
                     16: ! or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Library General Public
                     17: ! License for more details.
                     18:
                     19: ! You should have received a copy of the GNU Library General Public License
                     20: ! along with the GNU MP Library; see the file COPYING.LIB.  If not, write to
                     21: ! the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
                     22: ! MA 02111-1307, USA.
                     23:
                     24:
                     25: ! INPUT PARAMETERS
                     26: ! rem_ptr      i0
                     27: ! n1           i1
                     28: ! n0           i2
                     29: ! d            i3
                     30:
                     31: #include "sysdep.h"
                     32: #undef ret     /* Kludge for glibc */
                     33:
                     34:        .text
                     35:        .align  8
                     36: LC0:   .double 0r4294967296
                     37: LC1:   .double 0r2147483648
                     38:
                     39:        .align  4
                     40:        .global C_SYMBOL_NAME(__udiv_qrnnd)
                     41: C_SYMBOL_NAME(__udiv_qrnnd):
                     42:        !#PROLOGUE# 0
                     43:        save    %sp,-104,%sp
                     44:        !#PROLOGUE# 1
                     45:        st      %i1,[%fp-8]
                     46:        ld      [%fp-8],%f10
                     47:        sethi   %hi(LC0),%o7
                     48:        fitod   %f10,%f4
                     49:        ldd     [%o7+%lo(LC0)],%f8
                     50:        cmp     %i1,0
                     51:        bge     L248
                     52:        mov     %i0,%i5
                     53:        faddd   %f4,%f8,%f4
                     54: L248:
                     55:        st      %i2,[%fp-8]
                     56:        ld      [%fp-8],%f10
                     57:        fmuld   %f4,%f8,%f6
                     58:        cmp     %i2,0
                     59:        bge     L249
                     60:        fitod   %f10,%f2
                     61:        faddd   %f2,%f8,%f2
                     62: L249:
                     63:        st      %i3,[%fp-8]
                     64:        faddd   %f6,%f2,%f2
                     65:        ld      [%fp-8],%f10
                     66:        cmp     %i3,0
                     67:        bge     L250
                     68:        fitod   %f10,%f4
                     69:        faddd   %f4,%f8,%f4
                     70: L250:
                     71:        fdivd   %f2,%f4,%f2
                     72:        sethi   %hi(LC1),%o7
                     73:        ldd     [%o7+%lo(LC1)],%f4
                     74:        fcmped  %f2,%f4
                     75:        nop
                     76:        fbge,a  L251
                     77:        fsubd   %f2,%f4,%f2
                     78:        fdtoi   %f2,%f2
                     79:        st      %f2,[%fp-8]
                     80:        b       L252
                     81:        ld      [%fp-8],%i4
                     82: L251:
                     83:        fdtoi   %f2,%f2
                     84:        st      %f2,[%fp-8]
                     85:        ld      [%fp-8],%i4
                     86:        sethi   %hi(-2147483648),%g2
                     87:        xor     %i4,%g2,%i4
                     88: L252:
                     89:        umul    %i3,%i4,%g3
                     90:        rd      %y,%i0
                     91:        subcc   %i2,%g3,%o7
                     92:        subxcc  %i1,%i0,%g0
                     93:        be      L253
                     94:        cmp     %o7,%i3
                     95:
                     96:        add     %i4,-1,%i0
                     97:        add     %o7,%i3,%o7
                     98:        st      %o7,[%i5]
                     99:        ret
                    100:        restore
                    101: L253:
                    102:        blu     L246
                    103:        mov     %i4,%i0
                    104:        add     %i4,1,%i0
                    105:        sub     %o7,%i3,%o7
                    106: L246:
                    107:        st      %o7,[%i5]
                    108:        ret
                    109:        restore