diff options
| author | Werner Koch <[email protected]> | 1998-11-27 11:42:49 +0000 |
|---|---|---|
| committer | Werner Koch <[email protected]> | 1998-11-27 11:42:49 +0000 |
| commit | a7d13c0d80dafb2530531defa9ba993a92148f3c (patch) | |
| tree | b71a9f392b69fe05ee033b3d12628d49c4149125 /mpi/powerpc32/mpih-rshift.S | |
| parent | *** empty log message *** (diff) | |
| download | gnupg-a7d13c0d80dafb2530531defa9ba993a92148f3c.tar.gz gnupg-a7d13c0d80dafb2530531defa9ba993a92148f3c.zip | |
See ChangeLog: Fri Nov 27 12:39:29 CET 1998 Werner Koch
Diffstat (limited to '')
| -rw-r--r-- | mpi/powerpc32/mpih-rshift.S | 63 |
1 files changed, 63 insertions, 0 deletions
diff --git a/mpi/powerpc32/mpih-rshift.S b/mpi/powerpc32/mpih-rshift.S index 9d7075914..0dc54f26c 100644 --- a/mpi/powerpc32/mpih-rshift.S +++ b/mpi/powerpc32/mpih-rshift.S @@ -20,6 +20,12 @@ */ +#include "sysdep.h" +#include "asm-syntax.h" + + +#ifndef USE_PPC_PATCHES + /******************* * mpi_limb_t * mpihelp_rshift( mpi_ptr_t wp, (r3) @@ -66,3 +72,60 @@ Lend2: srw 0,10,6 stw 0,4(7) blr +#else +/* Shift a limb right, low level routine. + Copyright (C) 1995, 1997 Free Software Foundation, Inc. + This file is part of the GNU C Library. + + The GNU C Library is free software; you can redistribute it and/or + modify it under the terms of the GNU Library General Public License as + published by the Free Software Foundation; either version 2 of the + License, or (at your option) any later version. + + The GNU C Library is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + Library General Public License for more details. + + You should have received a copy of the GNU Library General Public + License along with the GNU C Library; see the file COPYING.LIB. If not, + write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, + Boston, MA 02111-1307, USA. */ + + +/* INPUT PARAMETERS + res_ptr r3 + s1_ptr r4 + size r5 + cnt r6 */ + +ENTRY(_mpihelp_rshift) + mtctr 5 # copy size into CTR + addi 7,3,-4 # move adjusted res_ptr to free return reg + subfic 8,6,32 + lwz 11,0(4) # load first s1 limb + slw 3,11,8 # compute function return value + bdz 1f + +0: lwzu 10,4(4) + srw 9,11,6 + slw 12,10,8 + or 9,9,12 + stwu 9,4(7) + bdz 2f + lwzu 11,4(4) + srw 9,10,6 + slw 12,11,8 + or 9,9,12 + stwu 9,4(7) + bdnz 0b + +1: srw 0,11,6 + stw 0,4(7) + blr + +2: srw 0,10,6 + stw 0,4(7) + blr +END(_mpihelp_rshift) +#endif |