Return to level0.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.S, Revision 1.1.1.1

1.1       noro        1: /* $Id: level0.S,v 1.2 2000/11/03 21:00:26 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: /* With gcc, those symbols are inline and defined in level0.h     */
                     18: /* overflow hiremainder                                           */
                     19: /* addll addllx subll subllx shiftl shiftlr mulll addmul          */
                     20:
                     21: #ifndef __GNUC__
                     22: #if defined(NO_UNDERSCORE) || defined(linux)
                     23: #  define C(entrypoint) entrypoint
                     24: #elif defined(sun) || defined(NeXT)
                     25: #  ifdef __STDC__
                     26: #    define C(entrypoint) _##entrypoint
                     27: #  else
                     28: #    define C(entrypoint) _/**/entrypoint
                     29: #  endif
                     30: #endif
                     31: #if defined(sun) || defined(linux)
                     32: #  define GLOBL .global
                     33: #elif defined(NeXT)
                     34: #  define GLOBL .globl
                     35: #endif
                     36:
                     37: #if   defined(sun) || defined(linux)
                     38:        .seg "text"
                     39: #elif defined(NeXT)
                     40: .text
                     41:        .align 2
                     42: #endif
                     43:        GLOBL   C(addll),C(subll),C(addllx),C(subllx)
                     44:        GLOBL   C(shiftl),C(shiftlr),C(shiftl2),C(shiftlr1),C(shiftlr2)
                     45:        GLOBL   C(mulll),C(overflow),C(hiremainder),C(addmul)
                     46:
                     47: C(addll): sethi        %hi(C(overflow)),%o3
                     48:        addcc   %o0,%o1,%o0
                     49:        addx    %g0,%g0,%o2
                     50:        retl
                     51:        st      %o2,[%o3+%lo(C(overflow))]
                     52: C(subll): sethi        %hi(C(overflow)),%o3
                     53:        subcc   %o0,%o1,%o0
                     54:        addx    %g0,%g0,%o2
                     55:        retl
                     56:        st      %o2,[%o3+%lo(C(overflow))]
                     57: C(addllx): sethi       %hi(C(overflow)),%o3
                     58:        ld      [%o3+%lo(C(overflow))],%o2
                     59:        subcc   %g0,%o2,%g0
                     60:        addxcc  %o0,%o1,%o0
                     61:        addx    %g0,%g0,%o2
                     62:        retl
                     63:        st      %o2,[%o3+%lo(C(overflow))]
                     64: C(subllx): sethi       %hi(C(overflow)),%o3
                     65:        ld      [%o3+%lo(C(overflow))],%o2
                     66:        subcc   %g0,%o2,%g0
                     67:        subxcc  %o0,%o1,%o0
                     68:        addx    %g0,%g0,%o2
                     69:        retl
                     70:        st      %o2,[%o3+%lo(C(overflow))]
                     71: C(shiftl): sethi       %hi(C(hiremainder)),%o3
                     72:        neg     %o1,%o4
                     73:        srl     %o0,%o4,%o2
                     74:        st      %o2,[%o3+%lo(C(hiremainder))]
                     75:        retl
                     76:        sll     %o0,%o1,%o0
                     77: C(shiftl2): sethi      %hi(C(hiremainder)),%o3
                     78:        srl     %o0,%o2,%o4
                     79:        st      %o4,[%o3+%lo(C(hiremainder))]
                     80:        retl
                     81:        sll     %o0,%o1,%o0
                     82: C(shiftlr): sethi %hi(C(hiremainder)),%o3
                     83:        neg     %o1,%o4
                     84:        sll     %o0,%o4,%o2
                     85:        st      %o2,[%o3+%lo(C(hiremainder))]
                     86:        retl
                     87:        srl     %o0,%o1,%o0
                     88: C(shiftlr1): sethi %hi(C(hiremainder)),%o3
                     89:        sll     %o0,31,%o2
                     90:        st      %o2,[%o3+%lo(C(hiremainder))]
                     91:        retl
                     92:        srl     %o0,1,%o0
                     93: C(shiftlr2): sethi %hi(C(hiremainder)),%o3
                     94:        sll     %o0,%o2,%o4
                     95:        st      %o4,[%o3+%lo(C(hiremainder))]
                     96:        retl
                     97:        srl     %o0,%o1,%o0
                     98:
                     99: C(mulll): umul %o0,%o1,%o0
                    100:        sethi   %hi(C(hiremainder)),%o3
                    101:        rd      %y,%o2
                    102:        retl
                    103:        st      %o2,[%o3+%lo(C(hiremainder))]
                    104:
                    105: C(addmul): umul        %o0,%o1,%o0
                    106:        sethi   %hi(C(hiremainder)),%o3
                    107:        ld      [%o3+%lo(C(hiremainder))],%o2
                    108:        rd      %y,%o4
                    109:        addcc   %o0,%o2,%o0
                    110:        addx    %g0,%o4,%o4
                    111:        retl
                    112:        st      %o4,[%o3+%lo(C(hiremainder))]
                    113:
                    114: #if   defined(sun) || defined(linux)
                    115:        .seg    "bss"
                    116:        .align  4
                    117: C(hiremainder): .skip  4
                    118: C(overflow): .skip  4
                    119: #elif defined(NeXT)
                    120:        .comm C(overflow),8
                    121:        .comm C(hiremainder),8
                    122: #endif
                    123: #endif /* !defined(__GNUC__) */