Page Menu
Home
GnuPG
Search
Configure Global Search
Log In
Files
F18826590
mpih-rshift.S
No One
Temporary
Actions
View File
Edit File
Delete File
View Transforms
Subscribe
Mute Notifications
Award Token
Size
2 KB
Subscribers
None
mpih-rshift.S
View Options
/*
hppa
rshift
*
optimized
for
the
PA7100
,
where
it
runs
at
3.25
cycles
/
limb
*
*
Copyright
(
C
)
1992
,
1994
,
1998
,
*
2001
,
2002
Free
Software
Foundation
,
Inc.
*
*
This
file
is
part
of
Libgcrypt.
*
*
Libgcrypt
is
free
software
;
you
can
redistribute
it
and
/
or
modify
*
it
under
the
terms
of
the
GNU
Lesser
General
Public
License
as
*
published
by
the
Free
Software
Foundation
;
either
version
2.1
of
*
the
License
,
or
(
at
your
option
)
any
later
version.
*
*
Libgcrypt
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
Lesser
General
Public
License
for
more
details.
*
*
You
should
have
received
a
copy
of
the
GNU
Lesser
General
Public
*
License
along
with
this
program
;
if
not
,
write
to
the
Free
Software
*
Foundation
,
Inc.
,
59
Temple
Place
-
Suite
330
,
Boston
,
MA
02111-1307
,
USA
*/
/*******************
*
mpi_limb_t
*
_
gcry_mpih_rshift
(
mpi_ptr_t
wp
,
(
gr26
)
*
mpi_ptr_t
up
,
(
gr25
)
*
mpi_size_t
usize
,
(
gr24
)
*
unsigned
cnt
)
(
gr23
)
*/
.code
.export
_
gcry_mpih_rshift
.label
_
gcry_mpih_rshift
.proc
.callinfo
frame
=
64
,
no_calls
.entry
ldws
,
ma
4
(
0
,
%r25),%
r22
mtsar
%r23
addib,= -1,%
r24
,
L
$
r004
vshd
%r22,%
r0
,
%r28 ; compute carry out limb
ldws,ma 4(0,%
r25
),
%r29
addib,<= -5,%
r24
,
L
$
rrest
vshd
%r29,%
r22
,
%r20
.label L$roop
ldws,ma 4(0,%
r25
),
%r22
stws,ma %
r20
,
4
(
0
,
%r26)
vshd %
r22
,
%r29,%
r20
ldws
,
ma
4
(
0
,
%r25),%
r29
stws
,
ma
%r20,4(0,%
r26
)
vshd
%r29,%
r22
,
%r20
ldws,ma 4(0,%
r25
),
%r22
stws,ma %
r20
,
4
(
0
,
%r26)
vshd %
r22
,
%r29,%
r20
ldws
,
ma
4
(
0
,
%r25),%
r29
stws
,
ma
%r20,4(0,%
r26
)
addib
,
>
-4
,
%r24,L$roop
vshd %
r29
,
%r22,%
r20
.label
L
$
rrest
addib
,
=
4
,
%r24,L$rend1
nop
.label L$eroop
ldws,ma 4(0,%
r25
),
%r22
stws,ma %
r20
,
4
(
0
,
%r26)
addib,<= -1,%
r24
,
L
$
rend2
vshd
%r22,%
r29
,
%r20
ldws,ma 4(0,%
r25
),
%r29
stws,ma %
r20
,
4
(
0
,
%r26)
addib,> -1,%
r24
,
L
$
eroop
vshd
%r29,%
r22
,
%r20
.label L$rend1
stws,ma %
r20
,
4
(
0
,
%r26)
vshd %
r0
,
%r29,%
r20
bv
0
(
%r2)
stw %
r20
,
0
(
0
,
%r26)
.label L$rend2
stws,ma %
r20
,
4
(
0
,
%r26)
.label L$r004
vshd %
r0
,
%r22,%
r20
bv
0
(
%r2)
stw %
r20
,
0
(
0
,
%
r26
)
.exit
.procend
File Metadata
Details
Attached
Mime Type
text/plain
Expires
Mon, Dec 23, 5:29 PM (2 h, 5 m)
Storage Engine
local-disk
Storage Format
Raw Data
Storage Handle
66/ef/4e202e004e796416c349ed59ca35
Attached To
rC libgcrypt
Event Timeline
Log In to Comment