Return to lshift.s CVS log

Up to [local] / OpenXM_contrib / gmp / mpn / pa64

Annotation of OpenXM_contrib/gmp/mpn/pa64/lshift.s, Revision 1.1

1.1     ! maekawa     1: ; HP-PA 2.0 __gmpn_lshift --
        !             2:
        !             3: ; Copyright (C) 1997, 2000 Free Software Foundation, Inc.
        !             4:
        !             5: ; This file is part of the GNU MP Library.
        !             6:
        !             7: ; The GNU MP Library is free software; you can redistribute it and/or modify
        !             8: ; it under the terms of the GNU Lesser General Public License as published by
        !             9: ; the Free Software Foundation; either version 2.1 of the License, or (at your
        !            10: ; option) any later version.
        !            11:
        !            12: ; The GNU MP Library is distributed in the hope that it will be useful, but
        !            13: ; WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
        !            14: ; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
        !            15: ; License for more details.
        !            16:
        !            17: ; You should have received a copy of the GNU Lesser General Public License
        !            18: ; along with the GNU MP Library; see the file COPYING.LIB.  If not, write to
        !            19: ; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
        !            20: ; MA 02111-1307, USA.
        !            21:
        !            22:
        !            23: ; INPUT PARAMETERS
        !            24: ; res_ptr      gr26
        !            25: ; s1_ptr       gr25
        !            26: ; size         gr24
        !            27: ; cnt          gr23
        !            28:
        !            29: ; This runs at 1.5 cycles/limb on PA8000.
        !            30:
        !            31:        .level  2.0n
        !            32:        .code
        !            33:        .export __gmpn_lshift,entry
        !            34: __gmpn_lshift
        !            35:        .proc
        !            36:        .callinfo frame=0,args_saved
        !            37:        .entry
        !            38:
        !            39:        shladd          %r24,3,%r25,%r25
        !            40:        shladd          %r24,3,%r26,%r26
        !            41:        subi            64,%r23,%r23
        !            42:        mtsar           %r23
        !            43:        ldd             -8(%r25),%r21
        !            44:        addib,=         -1,%r24,L$end
        !            45:        shrpd           %r0,%r21,%sar,%r29      ; compute carry out limb
        !            46:        depw,z          %r24,31,3,%r28          ; r28 = (size & 7)
        !            47:        sub             %r0,%r24,%r22
        !            48:        depw,z          %r22,28,3,%r22          ; r22 = 8 * (-size & 7)
        !            49:        add             %r25,%r22,%r25          ; offset s1_ptr
        !            50:        blr             %r28,%r0                ; branch into jump table
        !            51:        add             %r26,%r22,%r26          ; offset res_ptr
        !            52:        b               L$0
        !            53:        nop
        !            54:        b               L$1
        !            55:        copy            %r21,%r20
        !            56:        b               L$2
        !            57:        nop
        !            58:        b               L$3
        !            59:        copy            %r21,%r20
        !            60:        b               L$4
        !            61:        nop
        !            62:        b               L$5
        !            63:        copy            %r21,%r20
        !            64:        b               L$6
        !            65:        nop
        !            66:        b               L$7
        !            67:        copy            %r21,%r20
        !            68:
        !            69: L$loop
        !            70: L$0    ldd             -16(%r25),%r20
        !            71:        shrpd           %r21,%r20,%sar,%r21
        !            72:        std             %r21,-8(%r26)
        !            73: L$7    ldd             -24(%r25),%r21
        !            74:        shrpd           %r20,%r21,%sar,%r20
        !            75:        std             %r20,-16(%r26)
        !            76: L$6    ldd             -32(%r25),%r20
        !            77:        shrpd           %r21,%r20,%sar,%r21
        !            78:        std             %r21,-24(%r26)
        !            79: L$5    ldd             -40(%r25),%r21
        !            80:        shrpd           %r20,%r21,%sar,%r20
        !            81:        std             %r20,-32(%r26)
        !            82: L$4    ldd             -48(%r25),%r20
        !            83:        shrpd           %r21,%r20,%sar,%r21
        !            84:        std             %r21,-40(%r26)
        !            85: L$3    ldd             -56(%r25),%r21
        !            86:        shrpd           %r20,%r21,%sar,%r20
        !            87:        std             %r20,-48(%r26)
        !            88: L$2    ldd             -64(%r25),%r20
        !            89:        shrpd           %r21,%r20,%sar,%r21
        !            90:        std             %r21,-56(%r26)
        !            91: L$1    ldd             -72(%r25),%r21
        !            92:        ldo             -64(%r25),%r25
        !            93:        shrpd           %r20,%r21,%sar,%r20
        !            94:        std             %r20,-64(%r26)
        !            95:        addib,>         -8,%r24,L$loop
        !            96:        ldo             -64(%r26),%r26
        !            97:
        !            98: L$end  shrpd           %r21,%r0,%sar,%r21
        !            99:        std             %r21,-8(%r26)
        !           100:        bve             (%r2)
        !           101:        .exit
        !           102:        extrd,u         %r29,31,32,%r28
        !           103:        .procend