mirror of
git://git.gnupg.org/gnupg.git
synced 2025-07-03 22:56:33 +02:00
just released another snapshot
This commit is contained in:
Werner Koch
parent
ca284c1000
commit
e354b518d3
46 changed files with 1033 additions and 5130 deletions
|
|
@ -1,3 +1,8 @@
|
|||
2001-05-27 Werner Koch <wk@gnupg.org>
|
||||
|
||||
* hppa/, hppa1.1/, pa7100/ : Use .label command instead of labels
|
||||
because there syntax changed. By Matthew Wilcox.
|
||||
|
||||
2001-05-06 Werner Koch <wk@gnupg.org>
|
||||
|
||||
* longlong.h: Fixes for ARM by Phil Blundell.
|
||||
|
|
|
|||
|
|
@ -45,7 +45,7 @@
|
|||
|
||||
.code
|
||||
.export mpihelp_add_n
|
||||
mpihelp_add_n
|
||||
.label mpihelp_add_n
|
||||
.proc
|
||||
.callinfo frame=0,no_calls
|
||||
.entry
|
||||
|
|
@ -56,13 +56,15 @@ mpihelp_add_n
|
|||
addib,= -1,%r23,L$end ; check for (SIZE == 1)
|
||||
add %r20,%r19,%r28 ; add first limbs ignoring cy
|
||||
|
||||
L$loop ldws,ma 4(0,%r25),%r20
|
||||
.label L$loop
|
||||
ldws,ma 4(0,%r25),%r20
|
||||
ldws,ma 4(0,%r24),%r19
|
||||
stws,ma %r28,4(0,%r26)
|
||||
addib,<> -1,%r23,L$loop
|
||||
addc %r20,%r19,%r28
|
||||
|
||||
L$end stws %r28,0(0,%r26)
|
||||
.label L$end
|
||||
stws %r28,0(0,%r26)
|
||||
bv 0(%r2)
|
||||
addc %r0,%r0,%r28
|
||||
|
||||
|
|
|
|||
|
|
@ -32,7 +32,7 @@
|
|||
|
||||
.code
|
||||
.export mpihelp_lshift
|
||||
mpihelp_lshift
|
||||
.label mpihelp_lshift
|
||||
.proc
|
||||
.callinfo frame=64,no_calls
|
||||
.entry
|
||||
|
|
@ -48,7 +48,8 @@ mpihelp_lshift
|
|||
addib,= -1,%r24,L$0002
|
||||
vshd %r22,%r29,%r20
|
||||
|
||||
L$loop ldws,mb -4(0,%r25),%r22
|
||||
.label L$loop
|
||||
ldws,mb -4(0,%r25),%r22
|
||||
stws,mb %r20,-4(0,%r26)
|
||||
addib,= -1,%r24,L$0003
|
||||
vshd %r29,%r22,%r20
|
||||
|
|
@ -57,12 +58,15 @@ L$loop ldws,mb -4(0,%r25),%r22
|
|||
addib,<> -1,%r24,L$loop
|
||||
vshd %r22,%r29,%r20
|
||||
|
||||
L$0002 stws,mb %r20,-4(0,%r26)
|
||||
.label L$0002
|
||||
stws,mb %r20,-4(0,%r26)
|
||||
vshd %r29,%r0,%r20
|
||||
bv 0(%r2)
|
||||
stw %r20,-4(0,%r26)
|
||||
L$0003 stws,mb %r20,-4(0,%r26)
|
||||
L$0004 vshd %r22,%r0,%r20
|
||||
.label L$0003
|
||||
stws,mb %r20,-4(0,%r26)
|
||||
.label L$0004
|
||||
vshd %r22,%r0,%r20
|
||||
bv 0(%r2)
|
||||
stw %r20,-4(0,%r26)
|
||||
|
||||
|
|
|
|||
|
|
@ -33,7 +33,7 @@
|
|||
|
||||
.code
|
||||
.export mpihelp_rshift
|
||||
mpihelp_rshift
|
||||
.label mpihelp_rshift
|
||||
.proc
|
||||
.callinfo frame=64,no_calls
|
||||
.entry
|
||||
|
|
@ -46,7 +46,8 @@ mpihelp_rshift
|
|||
addib,= -1,%r24,L$r002
|
||||
vshd %r29,%r22,%r20
|
||||
|
||||
L$roop ldws,ma 4(0,%r25),%r22
|
||||
.label L$roop
|
||||
ldws,ma 4(0,%r25),%r22
|
||||
stws,ma %r20,4(0,%r26)
|
||||
addib,= -1,%r24,L$r003
|
||||
vshd %r22,%r29,%r20
|
||||
|
|
@ -55,12 +56,15 @@ L$roop ldws,ma 4(0,%r25),%r22
|
|||
addib,<> -1,%r24,L$roop
|
||||
vshd %r29,%r22,%r20
|
||||
|
||||
L$r002 stws,ma %r20,4(0,%r26)
|
||||
.label L$r002
|
||||
stws,ma %r20,4(0,%r26)
|
||||
vshd %r0,%r29,%r20
|
||||
bv 0(%r2)
|
||||
stw %r20,0(0,%r26)
|
||||
L$r003 stws,ma %r20,4(0,%r26)
|
||||
L$r004 vshd %r0,%r22,%r20
|
||||
.label L$r003
|
||||
stws,ma %r20,4(0,%r26)
|
||||
.label L$r004
|
||||
vshd %r0,%r22,%r20
|
||||
bv 0(%r2)
|
||||
stw %r20,0(0,%r26)
|
||||
|
||||
|
|
|
|||
|
|
@ -49,7 +49,7 @@
|
|||
|
||||
.code
|
||||
.export mpihelp_sub_n
|
||||
mpihelp_sub_n
|
||||
.label mpihelp_sub_n
|
||||
.proc
|
||||
.callinfo frame=0,no_calls
|
||||
.entry
|
||||
|
|
@ -60,13 +60,15 @@ mpihelp_sub_n
|
|||
addib,= -1,%r23,L$end ; check for (SIZE == 1)
|
||||
sub %r20,%r19,%r28 ; subtract first limbs ignoring cy
|
||||
|
||||
L$loop ldws,ma 4(0,%r25),%r20
|
||||
.label L$loop
|
||||
ldws,ma 4(0,%r25),%r20
|
||||
ldws,ma 4(0,%r24),%r19
|
||||
stws,ma %r28,4(0,%r26)
|
||||
addib,<> -1,%r23,L$loop
|
||||
subb %r20,%r19,%r28
|
||||
|
||||
L$end stws %r28,0(0,%r26)
|
||||
.label L$end
|
||||
stws %r28,0(0,%r26)
|
||||
addc %r0,%r0,%r28
|
||||
bv 0(%r2)
|
||||
subi 1,%r28,%r28
|
||||
|
|
|
|||
|
|
@ -43,7 +43,7 @@
|
|||
|
||||
.code
|
||||
.export __udiv_qrnnd
|
||||
__udiv_qrnnd
|
||||
.label __udiv_qrnnd
|
||||
.proc
|
||||
.callinfo frame=0,no_calls
|
||||
.entry
|
||||
|
|
@ -121,7 +121,7 @@ __udiv_qrnnd
|
|||
bv 0(%r2)
|
||||
addc %r28,%r28,%r28
|
||||
|
||||
L$largedivisor
|
||||
.label L$largedivisor
|
||||
extru %r24,31,1,%r19 ; r19 = n0 & 1
|
||||
bb,< %r23,31,L$odd
|
||||
extru %r23,30,31,%r22 ; r22 = d >> 1
|
||||
|
|
@ -200,7 +200,8 @@ L$largedivisor
|
|||
bv 0(%r2)
|
||||
addc %r24,%r24,%r28
|
||||
|
||||
L$odd addib,sv,n 1,%r22,L$FF.. ; r22 = (d / 2 + 1)
|
||||
.label L$odd
|
||||
addib,sv,n 1,%r22,L$FF.. ; r22 = (d / 2 + 1)
|
||||
shd %r25,%r24,1,%r24 ; r24 = new n0
|
||||
extru %r25,30,31,%r25 ; r25 = new n1
|
||||
sub %r0,%r22,%r21
|
||||
|
|
@ -285,7 +286,8 @@ L$odd addib,sv,n 1,%r22,L$FF.. ; r22 = (d / 2 + 1)
|
|||
|
||||
; This is just a special case of the code above.
|
||||
; We come here when d == 0xFFFFFFFF
|
||||
L$FF.. add,uv %r25,%r24,%r24
|
||||
.label L$FF..
|
||||
add,uv %r25,%r24,%r24
|
||||
sub,<< %r24,%r23,%r0
|
||||
ldo 1(%r24),%r24
|
||||
stws %r24,0(0,%r26)
|
||||
|
|
|
|||
|
|
@ -59,7 +59,7 @@
|
|||
|
||||
.code
|
||||
.export mpihelp_mul_1
|
||||
mpihelp_mul_1
|
||||
.label mpihelp_mul_1
|
||||
.proc
|
||||
.callinfo frame=64,no_calls
|
||||
.entry
|
||||
|
|
@ -82,7 +82,8 @@ mpihelp_mul_1
|
|||
ldw -12(%r30),%r1
|
||||
|
||||
; Main loop
|
||||
L$loop fldws,ma 4(%r25),%fr5
|
||||
.label L$loop
|
||||
fldws,ma 4(%r25),%fr5
|
||||
stws,ma %r19,4(%r26)
|
||||
addc %r28,%r1,%r19
|
||||
xmpyu %fr4,%fr5,%fr6
|
||||
|
|
@ -91,7 +92,8 @@ L$loop fldws,ma 4(%r25),%fr5
|
|||
addib,<> -1,%r24,L$loop
|
||||
ldw -12(%r30),%r1
|
||||
|
||||
L$end stws,ma %r19,4(%r26)
|
||||
.label L$end
|
||||
stws,ma %r19,4(%r26)
|
||||
addc %r28,%r1,%r19
|
||||
ldw -16(%r30),%r28
|
||||
stws,ma %r19,4(%r26)
|
||||
|
|
@ -99,7 +101,7 @@ L$end stws,ma %r19,4(%r26)
|
|||
bv 0(%r2)
|
||||
ldo -64(%r30),%r30
|
||||
|
||||
L$just_one_limb
|
||||
.label L$just_one_limb
|
||||
xmpyu %fr4,%fr5,%fr6
|
||||
fstds %fr6,-16(%r30)
|
||||
ldw -16(%r30),%r28
|
||||
|
|
|
|||
|
|
@ -49,7 +49,7 @@
|
|||
|
||||
.code
|
||||
.export mpihelp_addmul_1
|
||||
mpihelp_addmul_1
|
||||
.label mpihelp_addmul_1
|
||||
.proc
|
||||
.callinfo frame=64,no_calls
|
||||
.entry
|
||||
|
|
@ -72,7 +72,8 @@ mpihelp_addmul_1
|
|||
ldw -12(%r30),%r1
|
||||
|
||||
; Main loop
|
||||
L$loop ldws 0(%r26),%r29
|
||||
.label L$loop
|
||||
ldws 0(%r26),%r29
|
||||
fldws,ma 4(%r25),%fr5
|
||||
add %r29,%r19,%r19
|
||||
stws,ma %r19,4(%r26)
|
||||
|
|
@ -84,7 +85,8 @@ L$loop ldws 0(%r26),%r29
|
|||
addib,<> -1,%r24,L$loop
|
||||
ldw -12(%r30),%r1
|
||||
|
||||
L$end ldw 0(%r26),%r29
|
||||
.label L$end
|
||||
ldw 0(%r26),%r29
|
||||
add %r29,%r19,%r19
|
||||
stws,ma %r19,4(%r26)
|
||||
addc %r28,%r1,%r19
|
||||
|
|
@ -97,7 +99,7 @@ L$end ldw 0(%r26),%r29
|
|||
bv 0(%r2)
|
||||
ldo -64(%r30),%r30
|
||||
|
||||
L$just_one_limb
|
||||
.label L$just_one_limb
|
||||
xmpyu %fr4,%fr5,%fr6
|
||||
ldw 0(%r26),%r29
|
||||
fstds %fr6,-16(%r30)
|
||||
|
|
|
|||
|
|
@ -56,7 +56,7 @@
|
|||
|
||||
.code
|
||||
.export mpihelp_submul_1
|
||||
mpihelp_submul_1
|
||||
.label mpihelp_submul_1
|
||||
.proc
|
||||
.callinfo frame=64,no_calls
|
||||
.entry
|
||||
|
|
@ -79,7 +79,8 @@ mpihelp_submul_1
|
|||
ldw -12(%r30),%r1
|
||||
|
||||
; Main loop
|
||||
L$loop ldws 0(%r26),%r29
|
||||
.label L$loop
|
||||
ldws 0(%r26),%r29
|
||||
fldws,ma 4(%r25),%fr5
|
||||
sub %r29,%r19,%r22
|
||||
add %r22,%r19,%r0
|
||||
|
|
@ -92,7 +93,8 @@ L$loop ldws 0(%r26),%r29
|
|||
addib,<> -1,%r24,L$loop
|
||||
ldw -12(%r30),%r1
|
||||
|
||||
L$end ldw 0(%r26),%r29
|
||||
.label L$end
|
||||
ldw 0(%r26),%r29
|
||||
sub %r29,%r19,%r22
|
||||
add %r22,%r19,%r0
|
||||
stws,ma %r22,4(%r26)
|
||||
|
|
@ -107,7 +109,7 @@ L$end ldw 0(%r26),%r29
|
|||
bv 0(%r2)
|
||||
ldo -64(%r30),%r30
|
||||
|
||||
L$just_one_limb
|
||||
.label L$just_one_limb
|
||||
xmpyu %fr4,%fr5,%fr6
|
||||
ldw 0(%r26),%r29
|
||||
fstds %fr6,-16(%r30)
|
||||
|
|
|
|||
|
|
@ -39,10 +39,11 @@
|
|||
*/
|
||||
|
||||
.code
|
||||
L$0000 .word 0x43f00000
|
||||
.label L$0000
|
||||
.word 0x43f00000
|
||||
.word 0x0
|
||||
.export __udiv_qrnnd
|
||||
__udiv_qrnnd
|
||||
.label __udiv_qrnnd
|
||||
.proc
|
||||
.callinfo frame=64,no_calls
|
||||
.entry
|
||||
|
|
@ -58,7 +59,7 @@ __udiv_qrnnd
|
|||
fcnvxf,dbl,dbl %fr5,%fr5
|
||||
fldds 0(0,%r19),%fr4
|
||||
fadd,dbl %fr4,%fr5,%fr5
|
||||
L$1
|
||||
.label L$1
|
||||
fcpy,sgl %fr0,%fr6L
|
||||
fldws -12(0,%r30),%fr6R
|
||||
fcnvxf,dbl,dbl %fr6,%fr4
|
||||
|
|
@ -79,7 +80,8 @@ L$1
|
|||
|
||||
add %r22,%r23,%r22
|
||||
ldo -1(%r28),%r28
|
||||
L$2 bv 0(%r2)
|
||||
.label L$2
|
||||
bv 0(%r2)
|
||||
stws %r22,0(0,%r26)
|
||||
|
||||
.exit
|
||||
|
|
|
|||
|
|
@ -2,7 +2,7 @@
|
|||
Note: I added some stuff for use with gnupg
|
||||
|
||||
Copyright (C) 1991, 1992, 1993, 1994, 1996, 1998,
|
||||
2000 Free Software Foundation, Inc.
|
||||
2000, 2001 Free Software Foundation, Inc.
|
||||
|
||||
This file is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU Library General Public License as published by
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
/* hppa lshift
|
||||
* optimized for the PA7100, where is runs at 3.25 cycles/limb
|
||||
* optimized for the PA7100, where it runs at 3.25 cycles/limb
|
||||
*
|
||||
* Copyright (C) 1992, 1994, 1998,
|
||||
* 2001 Free Software Foundation, Inc.
|
||||
|
|
@ -33,7 +33,7 @@
|
|||
|
||||
.code
|
||||
.export mpihelp_lshift
|
||||
mpihelp_lshift
|
||||
.label mpihelp_lshift
|
||||
.proc
|
||||
.callinfo frame=64,no_calls
|
||||
.entry
|
||||
|
|
@ -49,7 +49,8 @@ mpihelp_lshift
|
|||
addib,<= -5,%r24,L$rest
|
||||
vshd %r22,%r29,%r20
|
||||
|
||||
L$loop ldws,mb -4(0,%r25),%r22
|
||||
.label L$loop
|
||||
ldws,mb -4(0,%r25),%r22
|
||||
stws,mb %r20,-4(0,%r26)
|
||||
vshd %r29,%r22,%r20
|
||||
ldws,mb -4(0,%r25),%r29
|
||||
|
|
@ -63,9 +64,11 @@ L$loop ldws,mb -4(0,%r25),%r22
|
|||
addib,> -4,%r24,L$loop
|
||||
vshd %r22,%r29,%r20
|
||||
|
||||
L$rest addib,= 4,%r24,L$end1
|
||||
.label L$rest
|
||||
addib,= 4,%r24,L$end1
|
||||
nop
|
||||
L$eloop ldws,mb -4(0,%r25),%r22
|
||||
.label L$eloop
|
||||
ldws,mb -4(0,%r25),%r22
|
||||
stws,mb %r20,-4(0,%r26)
|
||||
addib,<= -1,%r24,L$end2
|
||||
vshd %r29,%r22,%r20
|
||||
|
|
@ -74,12 +77,15 @@ L$eloop ldws,mb -4(0,%r25),%r22
|
|||
addib,> -1,%r24,L$eloop
|
||||
vshd %r22,%r29,%r20
|
||||
|
||||
L$end1 stws,mb %r20,-4(0,%r26)
|
||||
.label L$end1
|
||||
stws,mb %r20,-4(0,%r26)
|
||||
vshd %r29,%r0,%r20
|
||||
bv 0(%r2)
|
||||
stw %r20,-4(0,%r26)
|
||||
L$end2 stws,mb %r20,-4(0,%r26)
|
||||
L$0004 vshd %r22,%r0,%r20
|
||||
.label L$end2
|
||||
stws,mb %r20,-4(0,%r26)
|
||||
.label L$0004
|
||||
vshd %r22,%r0,%r20
|
||||
bv 0(%r2)
|
||||
stw %r20,-4(0,%r26)
|
||||
|
||||
|
|
|
|||
|
|
@ -1,5 +1,5 @@
|
|||
/* hppa rshift
|
||||
* optimized for the PA7100, where is runs at 3.25 cycles/limb
|
||||
* optimized for the PA7100, where it runs at 3.25 cycles/limb
|
||||
*
|
||||
* Copyright (C) 1992, 1994, 1998,
|
||||
* 2001 Free Software Foundation, Inc.
|
||||
|
|
@ -33,7 +33,7 @@
|
|||
|
||||
.code
|
||||
.export mpihelp_rshift
|
||||
mpihelp_rshift
|
||||
.label mpihelp_rshift
|
||||
.proc
|
||||
.callinfo frame=64,no_calls
|
||||
.entry
|
||||
|
|
@ -46,7 +46,8 @@ mpihelp_rshift
|
|||
addib,<= -5,%r24,L$rrest
|
||||
vshd %r29,%r22,%r20
|
||||
|
||||
L$roop ldws,ma 4(0,%r25),%r22
|
||||
.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
|
||||
|
|
@ -60,9 +61,11 @@ L$roop ldws,ma 4(0,%r25),%r22
|
|||
addib,> -4,%r24,L$roop
|
||||
vshd %r29,%r22,%r20
|
||||
|
||||
L$rrest addib,= 4,%r24,L$rend1
|
||||
.label L$rrest
|
||||
addib,= 4,%r24,L$rend1
|
||||
nop
|
||||
L$eroop ldws,ma 4(0,%r25),%r22
|
||||
.label L$eroop
|
||||
ldws,ma 4(0,%r25),%r22
|
||||
stws,ma %r20,4(0,%r26)
|
||||
addib,<= -1,%r24,L$rend2
|
||||
vshd %r22,%r29,%r20
|
||||
|
|
@ -71,12 +74,15 @@ L$eroop ldws,ma 4(0,%r25),%r22
|
|||
addib,> -1,%r24,L$eroop
|
||||
vshd %r29,%r22,%r20
|
||||
|
||||
L$rend1 stws,ma %r20,4(0,%r26)
|
||||
.label L$rend1
|
||||
stws,ma %r20,4(0,%r26)
|
||||
vshd %r0,%r29,%r20
|
||||
bv 0(%r2)
|
||||
stw %r20,0(0,%r26)
|
||||
L$rend2 stws,ma %r20,4(0,%r26)
|
||||
L$r004 vshd %r0,%r22,%r20
|
||||
.label L$rend2
|
||||
stws,ma %r20,4(0,%r26)
|
||||
.label L$r004
|
||||
vshd %r0,%r22,%r20
|
||||
bv 0(%r2)
|
||||
stw %r20,0(0,%r26)
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue