1 ;
! HP-PA __mpn_rshift
--
3 ;
! Copyright
(C
) 1992, 1994 Free Software Foundation
, Inc.
5 ;
! This file is part of the GNU MP Library.
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.
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.
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, see
19 ;
! <http
://www.gnu.org
/licenses
/>.
32 .callinfo frame=64,no_calls
37 addib
,= -1,%r24,L$
0004
38 vshd
%r22,%r0,%r28 ;
! compute carry out limb
40 addib
,= -1,%r24,L$
0002
43 L$loop
: ldws
,ma
4(%r25),%r22
45 addib
,= -1,%r24,L$
0003
49 addib
,<> -1,%r24,L$loop
52 L$
0002: stws
,ma
%r20,4(%r26)
56 L$
0003: stws
,ma
%r20,4(%r26)
57 L$
0004: vshd
%r0,%r22,%r20