diff options
Diffstat (limited to 'gmp/mpn/m68k/rshift.asm')
-rw-r--r-- | gmp/mpn/m68k/rshift.asm | 52 |
1 files changed, 21 insertions, 31 deletions
diff --git a/gmp/mpn/m68k/rshift.asm b/gmp/mpn/m68k/rshift.asm index 21b5f89f48..1bf58ac310 100644 --- a/gmp/mpn/m68k/rshift.asm +++ b/gmp/mpn/m68k/rshift.asm @@ -1,32 +1,22 @@ dnl mc68020 mpn_rshift -- mpn right shift. -dnl Copyright 1996, 1999-2003 Free Software Foundation, Inc. - -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 modify -dnl it under the terms of either: +dnl Copyright 1996, 1999, 2000, 2001, 2002, 2003 Free Software Foundation, +dnl Inc. dnl -dnl * the GNU Lesser General Public License as published by the Free -dnl Software Foundation; either version 3 of the License, or (at your -dnl option) any later version. -dnl -dnl or -dnl -dnl * the GNU General Public License as published by the Free Software -dnl Foundation; either version 2 of the License, or (at your option) any -dnl later version. +dnl This file is part of the GNU MP Library. dnl -dnl or both in parallel, as here. +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, but -dnl WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -dnl or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -dnl for more details. +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 copies of the GNU General Public License and the -dnl GNU Lesser General Public License along with the GNU MP Library. If not, -dnl see https://www.gnu.org/licenses/. +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') @@ -89,7 +79,7 @@ ifelse(scale_available_p,1,` cmpl s_ptr, a2 bls L(Lspecial) C jump if s_ptr >= res_ptr + s_size -L(Lnormal): +L(Lnormal:) moveql #32, d5 subl cnt, d5 movel M(s_ptr,+), d2 @@ -104,14 +94,14 @@ L(Lnormal): bcs L(L1) subql #1, s_size -L(Loop): +L(Loop:) movel M(s_ptr,+), d2 movel d2, d3 lsll d5, d3 orl d3, d1 movel d1, M(res_ptr,+) lsrl cnt, d2 -L(L1): +L(L1:) movel M(s_ptr,+), d1 movel d1, d3 lsll d5, d3 @@ -123,7 +113,7 @@ L(L1): subl #0x10000, s_size bcc L(Loop) -L(Lend): +L(Lend:) movel d1, M(res_ptr) C store most significant limb C Restore used registers from stack frame. @@ -134,7 +124,7 @@ C We loop from most significant end of the arrays, which is only permissable C if the source and destination don't overlap, since the function is C documented to work for overlapping source and destination. -L(Lspecial): +L(Lspecial:) 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 @@ -151,11 +141,11 @@ ifelse(scale_available_p,1,` bcc L(LL1) subql #1, s_size -L(LLoop): +L(LLoop:) movel M(-,s_ptr), d2 roxrl #1, d2 movel d2, M(-,res_ptr) -L(LL1): +L(LL1:) movel M(-,s_ptr), d2 roxrl #1, d2 movel d2, M(-,res_ptr) @@ -167,7 +157,7 @@ L(LL1): addl d0, d0 C restore cy bra L(LLoop) -L(LLend): +L(LLend:) C Restore used registers from stack frame. moveml M(sp,+), d2-d6/a2 rts |