| Index: gcc/gmp/mpn/m68k/lshift.asm
|
| diff --git a/gcc/gmp/mpn/m68k/lshift.asm b/gcc/gmp/mpn/m68k/lshift.asm
|
| deleted file mode 100644
|
| index 9d7a5ed0f6ef3e82ddc1038c79ed7696a0434549..0000000000000000000000000000000000000000
|
| --- a/gcc/gmp/mpn/m68k/lshift.asm
|
| +++ /dev/null
|
| @@ -1,165 +0,0 @@
|
| -dnl mc68020 mpn_lshift -- mpn left shift.
|
| -
|
| -dnl Copyright 1996, 1999, 2000, 2001, 2002, 2003 Free Software Foundation,
|
| -dnl Inc.
|
| -dnl
|
| -dnl This file is part of the GNU MP Library.
|
| -dnl
|
| -dnl The GNU MP Library is free software; you can redistribute it and/or
|
| -dnl modify it under the terms of the GNU Lesser General Public License as
|
| -dnl published by the Free Software Foundation; either version 3 of the
|
| -dnl License, or (at your option) any later version.
|
| -dnl
|
| -dnl The GNU MP Library is distributed in the hope that it will be useful,
|
| -dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
|
| -dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
| -dnl Lesser General Public License for more details.
|
| -dnl
|
| -dnl You should have received a copy of the GNU Lesser General Public License
|
| -dnl along with the GNU MP Library. If not, see http://www.gnu.org/licenses/.
|
| -
|
| -include(`../config.m4')
|
| -
|
| -
|
| -C cycles/limb
|
| -C shift==1 shift>1
|
| -C 68040: 5 12
|
| -
|
| -
|
| -C mp_limb_t mpn_lshift (mp_ptr res_ptr, mp_srcptr s_ptr, mp_size_t s_size,
|
| -C unsigned cnt);
|
| -C
|
| -C The "cnt" parameter is either 16 bits or 32 bits depending on
|
| -C SIZEOF_UNSIGNED (see ABI notes in mpn/m68k/README). The value is of
|
| -C course only 1 to 31. When loaded as 16 bits there's garbage in the upper
|
| -C half, hence the use of cmpw. The shift instructions take the their count
|
| -C modulo 64, so the upper part doesn't matter to them either.
|
| -C
|
| -
|
| -C INPUT PARAMETERS
|
| -C res_ptr (sp + 4)
|
| -C s_ptr (sp + 8)
|
| -C s_size (sp + 12)
|
| -C cnt (sp + 16)
|
| -
|
| -define(res_ptr, `a1')
|
| -define(s_ptr, `a0')
|
| -define(s_size, `d6')
|
| -define(cnt, `d4')
|
| -
|
| -ifdef(`SIZEOF_UNSIGNED',,
|
| -`m4_error(`SIZEOF_UNSIGNED not defined, should be in config.m4
|
| -')')
|
| -
|
| -PROLOGUE(mpn_lshift)
|
| -C Save used registers on the stack.
|
| - moveml d2-d6/a2, M(-,sp)
|
| -
|
| -C Copy the arguments to registers.
|
| - movel M(sp,28), res_ptr
|
| - movel M(sp,32), s_ptr
|
| - movel M(sp,36), s_size
|
| -ifelse(SIZEOF_UNSIGNED,2,
|
| -` movew M(sp,40), cnt',
|
| -` movel M(sp,40), cnt')
|
| -
|
| - moveql #1, d5
|
| - cmpw d5, cnt
|
| - bne L(Lnormal)
|
| - cmpl s_ptr, res_ptr
|
| - bls L(Lspecial) C jump if s_ptr >= res_ptr
|
| -
|
| -ifelse(scale_available_p,1,`
|
| - lea M(s_ptr,s_size,l,4), a2
|
| -',`
|
| - movel s_size, d0
|
| - asll #2, d0
|
| - lea M(s_ptr,d0,l), a2
|
| -')
|
| - cmpl res_ptr, a2
|
| - bls L(Lspecial) C jump if res_ptr >= s_ptr + s_size
|
| -
|
| -L(Lnormal):
|
| - moveql #32, d5
|
| - subl cnt, d5
|
| -
|
| -ifelse(scale_available_p,1,`
|
| - lea M(s_ptr,s_size,l,4), s_ptr
|
| - lea M(res_ptr,s_size,l,4), res_ptr
|
| -',`
|
| - movel s_size, d0
|
| - asll #2, d0
|
| - addl d0, s_ptr
|
| - addl d0, res_ptr
|
| -')
|
| - movel M(-,s_ptr), d2
|
| - movel d2, d0
|
| - lsrl d5, d0 C compute carry limb
|
| -
|
| - lsll cnt, d2
|
| - movel d2, d1
|
| - subql #1, s_size
|
| - beq L(Lend)
|
| - lsrl #1, s_size
|
| - bcs L(L1)
|
| - subql #1, s_size
|
| -
|
| -L(Loop:)
|
| - movel M(-,s_ptr), d2
|
| - movel d2, d3
|
| - lsrl d5, d3
|
| - orl d3, d1
|
| - movel d1, M(-,res_ptr)
|
| - lsll cnt, d2
|
| -L(L1:)
|
| - movel M(-,s_ptr), d1
|
| - movel d1, d3
|
| - lsrl d5, d3
|
| - orl d3, d2
|
| - movel d2, M(-,res_ptr)
|
| - lsll cnt, d1
|
| -
|
| - dbf s_size, L(Loop)
|
| - subl #0x10000, s_size
|
| - bcc L(Loop)
|
| -
|
| -L(Lend:)
|
| - movel d1, M(-,res_ptr) C store least significant limb
|
| -
|
| -C Restore used registers from stack frame.
|
| - moveml M(sp,+), d2-d6/a2
|
| - rts
|
| -
|
| -C We loop from least significant end of the arrays, which is only
|
| -C permissable if the source and destination don't overlap, since the
|
| -C function is documented to work for overlapping source and destination.
|
| -
|
| -L(Lspecial):
|
| - clrl d0 C initialize carry
|
| - eorw #1, s_size
|
| - lsrl #1, s_size
|
| - bcc L(LL1)
|
| - subql #1, s_size
|
| -
|
| -L(LLoop):
|
| - movel M(s_ptr,+), d2
|
| - addxl d2, d2
|
| - movel d2, M(res_ptr,+)
|
| -L(LL1):
|
| - movel M(s_ptr,+), d2
|
| - addxl d2, d2
|
| - movel d2, M(res_ptr,+)
|
| -
|
| - dbf s_size, L(LLoop)
|
| - addxl d0, d0 C save cy in lsb
|
| - subl #0x10000, s_size
|
| - bcs L(LLend)
|
| - lsrl #1, d0 C restore cy
|
| - bra L(LLoop)
|
| -
|
| -L(LLend):
|
| -C Restore used registers from stack frame.
|
| - moveml M(sp,+), d2-d6/a2
|
| - rts
|
| -
|
| -EPILOGUE(mpn_lshift)
|
|
|