1;! HP-PA __mpn_rshift --
2
3;! Copyright (C) 1992-2022 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. If not, see
19;! <https://www.gnu.org/licenses/>.
20
21
22;! INPUT PARAMETERS
23;! res_ptr gr26
24;! s_ptr gr25
25;! size gr24
26;! cnt gr23
27
28 .text
29 .export __mpn_rshift
30__mpn_rshift:
31 .proc
32 .callinfo frame=64,no_calls
33 .entry
34
35 ldws,ma 4(%r25),%r22
36 mtsar %r23
37 addib,= -1,%r24,L$0004
38 vshd %r22,%r0,%r28 ;! compute carry out limb
39 ldws,ma 4(%r25),%r29
40 addib,= -1,%r24,L$0002
41 vshd %r29,%r22,%r20
42
43L$loop: ldws,ma 4(%r25),%r22
44 stws,ma %r20,4(%r26)
45 addib,= -1,%r24,L$0003
46 vshd %r22,%r29,%r20
47 ldws,ma 4(%r25),%r29
48 stws,ma %r20,4(%r26)
49 addib,<> -1,%r24,L$loop
50 vshd %r29,%r22,%r20
51
52L$0002: stws,ma %r20,4(%r26)
53 vshd %r0,%r29,%r20
54 bv 0(%r2)
55 stw %r20,0(%r26)
56L$0003: stws,ma %r20,4(%r26)
57L$0004: vshd %r0,%r22,%r20
58 bv 0(%r2)
59 stw %r20,0(%r26)
60
61 .exit
62 .procend
63

source code of glibc/sysdeps/hppa/rshift.S