Return to level0_sparcv8_micro.S CVS log

Up to [local] / OpenXM_contrib / pari-2.2 / src / kernel / sparcv8

Annotation of OpenXM_contrib/pari-2.2/src/kernel/sparcv8/level0_sparcv8_micro.S, Revision 1.1.1.1

1.1       noro        1: /* $Id: level0_sparcv8_micro.S,v 1.2 2000/11/03 21:00:27 karim Exp $
                      2:
                      3: Copyright (C) 2000  The PARI group.
                      4:
                      5: This file is part of the PARI/GP package.
                      6:
                      7: PARI/GP is free software; you can redistribute it and/or modify it under the
                      8: terms of the GNU General Public License as published by the Free Software
                      9: Foundation. It is distributed in the hope that it will be useful, but WITHOUT
                     10: ANY WARRANTY WHATSOEVER.
                     11:
                     12: Check the License for details. You should have received a copy of it, along
                     13: with the package; see the file 'COPYING'. If not, write to the Free Software
                     14: Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
                     15:
                     16: /* This file defines some "level 0" kernel functions for SPARC V8 */
                     17: /* These are optimised for MicroSparc                             */
                     18: /* The following symbols are defined in this file :               */
                     19: /* divll bfffo (& tabshi)                                         */
                     20: /*   But divll has to use hiremainder, so it is different when    */
                     21: /*   hiremainder is inline or not                                 */
                     22: /*   If libpari.so is compiled with gcc, you should compile all   */
                     23: /*   files with gcc                                               */
                     24:
                     25: #if defined(NO_UNDERSCORE) || defined(linux)
                     26: #  define C(entrypoint) entrypoint
                     27: #elif defined(sun) || defined(NeXT)
                     28: #  ifdef __STDC__
                     29: #    define C(entrypoint) _##entrypoint
                     30: #  else
                     31: #    define C(entrypoint) _/**/entrypoint
                     32: #  endif
                     33: #endif
                     34: #if defined(sun) || defined(linux)
                     35: #  define GLOBL .global
                     36: #elif defined(NeXT)
                     37: #  define GLOBL .globl
                     38: #endif
                     39:
                     40: #if   defined(sun) || defined(linux)
                     41:        .seg    "data"
                     42:        .align  4
                     43: C(tabshi): .word       4,3,2,2,1,1,1,1,0,0,0,0,0,0,0,0
                     44:
                     45:        .seg "text"
                     46: #elif defined(NeXT)
                     47: .data
                     48:        .align  3
                     49: C(tabshi):
                     50:        .long 4
                     51:        .long 3
                     52:        .long 2
                     53:        .long 2
                     54:        .long 1
                     55:        .long 1
                     56:        .long 1
                     57:        .long 1
                     58:        .long 0
                     59:        .long 0
                     60:        .long 0
                     61:        .long 0
                     62:        .long 0
                     63:        .long 0
                     64:        .long 0
                     65:        .long 0
                     66:
                     67: .text
                     68:        .align 2
                     69: #endif
                     70:        GLOBL   C(bfffo),C(divll)
                     71:
                     72: C(bfffo): sethi        %hi(0xffff0000),%o1
                     73:        andcc   %o1,%o0,%g0
                     74:        bnz,a   1f
                     75:        clr     %o2
                     76:        sll     %o0,16,%o0
                     77:        mov     16,%o2
                     78: 1:     sethi   %hi(0xff000000),%o1
                     79:        andcc   %o1,%o0,%g0
                     80:        bnz     2f
                     81:        sethi   %hi(0xf0000000),%o1
                     82:        sll     %o0,8,%o0
                     83:        add     %o2,8,%o2
                     84: 2:     andcc   %o1,%o0,%g0
                     85:        bnz,a   3f
                     86:        srl     %o0,28,%o0
                     87:        add     %o2,4,%o2
                     88:        srl     %o0,24,%o0
                     89: 3:     set     C(tabshi),%o3
                     90:        sll     %o0,2,%o0
                     91:        ld      [%o3+%o0],%o1
                     92:        retl
                     93:        add     %o2,%o1,%o0
                     94:
                     95: #ifdef __GNUC__
                     96: C(divll):       wr      %g5,%g0,%y
                     97: #else /* ! __GNUC__ */
                     98: C(divll): sethi        %hi(C(hiremainder)),%o4
                     99:        ld      [%o4+%lo(C(hiremainder))],%o2
                    100:        wr      %o2,%g0,%y
                    101: #endif
                    102:        mov     %o0,%o3
                    103:        nop
                    104:        nop
                    105:        udivcc  %o0,%o1,%o0
                    106:        bvc     1f
                    107:        umul    %o0,%o1,%o5
                    108:        mov     0x2f,%o0
                    109:        call    C(pari_err),1
                    110:        nop
                    111: #ifdef __GNUC__
                    112: 1:     retl
                    113:        sub   %o3,%o5,%g5
                    114: #else /* ! __GNUC__ */
                    115: 1:     subcc   %o3,%o5,%o2
                    116:        retl
                    117:        st      %o2,[%o4+%lo(C(hiremainder))]
                    118: #endif