1;! HP-PA __mpn_lshift --
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_lshift
30__mpn_lshift:
31 .proc
32 .callinfo frame=64,no_calls
33 .entry
34
35 sh2add %r24,%r25,%r25
36 sh2add %r24,%r26,%r26
37 ldws,mb -4(%r25),%r22
38 subi 32,%r23,%r1
39 mtsar %r1
40 addib,= -1,%r24,L$0004
41 vshd %r0,%r22,%r28 ;! compute carry out limb
42 ldws,mb -4(%r25),%r29
43 addib,= -1,%r24,L$0002
44 vshd %r22,%r29,%r20
45
46L$loop: ldws,mb -4(%r25),%r22
47 stws,mb %r20,-4(%r26)
48 addib,= -1,%r24,L$0003
49 vshd %r29,%r22,%r20
50 ldws,mb -4(%r25),%r29
51 stws,mb %r20,-4(%r26)
52 addib,<> -1,%r24,L$loop
53 vshd %r22,%r29,%r20
54
55L$0002: stws,mb %r20,-4(%r26)
56 vshd %r29,%r0,%r20
57 bv 0(%r2)
58 stw %r20,-4(%r26)
59L$0003: stws,mb %r20,-4(%r26)
60L$0004: vshd %r22,%r0,%r20
61 bv 0(%r2)
62 stw %r20,-4(%r26)
63
64 .exit
65 .procend
66

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