aboutsummaryrefslogtreecommitdiffstats
path: root/mpi
diff options
context:
space:
mode:
Diffstat (limited to 'mpi')
-rw-r--r--mpi/ChangeLog5
-rw-r--r--mpi/hppa/mpih-add1.S8
-rw-r--r--mpi/hppa/mpih-lshift.S14
-rw-r--r--mpi/hppa/mpih-rshift.S14
-rw-r--r--mpi/hppa/mpih-sub1.S8
-rw-r--r--mpi/hppa/udiv-qrnnd.S10
-rw-r--r--mpi/hppa1.1/mpih-mul1.S10
-rw-r--r--mpi/hppa1.1/mpih-mul2.S10
-rw-r--r--mpi/hppa1.1/mpih-mul3.S10
-rw-r--r--mpi/hppa1.1/udiv-qrnnd.S10
-rw-r--r--mpi/longlong.h2
-rw-r--r--mpi/pa7100/mpih-lshift.S22
-rw-r--r--mpi/pa7100/mpih-rshift.S22
13 files changed, 92 insertions, 53 deletions
diff --git a/mpi/ChangeLog b/mpi/ChangeLog
index cb4b97fdc..e6076fe89 100644
--- a/mpi/ChangeLog
+++ b/mpi/ChangeLog
@@ -1,3 +1,8 @@
+2001-05-27 Werner Koch <[email protected]>
+
+ * hppa/, hppa1.1/, pa7100/ : Use .label command instead of labels
+ because there syntax changed. By Matthew Wilcox.
+
2001-05-06 Werner Koch <[email protected]>
* longlong.h: Fixes for ARM by Phil Blundell.
diff --git a/mpi/hppa/mpih-add1.S b/mpi/hppa/mpih-add1.S
index 95ce6c08d..7a2a2c2cb 100644
--- a/mpi/hppa/mpih-add1.S
+++ b/mpi/hppa/mpih-add1.S
@@ -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
diff --git a/mpi/hppa/mpih-lshift.S b/mpi/hppa/mpih-lshift.S
index 90161bb28..6a8b2c4ce 100644
--- a/mpi/hppa/mpih-lshift.S
+++ b/mpi/hppa/mpih-lshift.S
@@ -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)
diff --git a/mpi/hppa/mpih-rshift.S b/mpi/hppa/mpih-rshift.S
index 77f8a478d..b1e6a6795 100644
--- a/mpi/hppa/mpih-rshift.S
+++ b/mpi/hppa/mpih-rshift.S
@@ -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)
diff --git a/mpi/hppa/mpih-sub1.S b/mpi/hppa/mpih-sub1.S
index 822ff4172..870009e95 100644
--- a/mpi/hppa/mpih-sub1.S
+++ b/mpi/hppa/mpih-sub1.S
@@ -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
diff --git a/mpi/hppa/udiv-qrnnd.S b/mpi/hppa/udiv-qrnnd.S
index 275f30b4e..c8a52412b 100644
--- a/mpi/hppa/udiv-qrnnd.S
+++ b/mpi/hppa/udiv-qrnnd.S
@@ -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)
diff --git a/mpi/hppa1.1/mpih-mul1.S b/mpi/hppa1.1/mpih-mul1.S
index 3d61b5ce2..ac9baced4 100644
--- a/mpi/hppa1.1/mpih-mul1.S
+++ b/mpi/hppa1.1/mpih-mul1.S
@@ -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
diff --git a/mpi/hppa1.1/mpih-mul2.S b/mpi/hppa1.1/mpih-mul2.S
index 75cd40d8c..c73397e3e 100644
--- a/mpi/hppa1.1/mpih-mul2.S
+++ b/mpi/hppa1.1/mpih-mul2.S
@@ -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)
diff --git a/mpi/hppa1.1/mpih-mul3.S b/mpi/hppa1.1/mpih-mul3.S
index 2a69c7393..f9ccb1b57 100644
--- a/mpi/hppa1.1/mpih-mul3.S
+++ b/mpi/hppa1.1/mpih-mul3.S
@@ -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)
diff --git a/mpi/hppa1.1/udiv-qrnnd.S b/mpi/hppa1.1/udiv-qrnnd.S
index a9b902be7..a1643d707 100644
--- a/mpi/hppa1.1/udiv-qrnnd.S
+++ b/mpi/hppa1.1/udiv-qrnnd.S
@@ -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
diff --git a/mpi/longlong.h b/mpi/longlong.h
index c5c27b06c..84020773d 100644
--- a/mpi/longlong.h
+++ b/mpi/longlong.h
@@ -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
diff --git a/mpi/pa7100/mpih-lshift.S b/mpi/pa7100/mpih-lshift.S
index d7b00be9b..76368fe78 100644
--- a/mpi/pa7100/mpih-lshift.S
+++ b/mpi/pa7100/mpih-lshift.S
@@ -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)
diff --git a/mpi/pa7100/mpih-rshift.S b/mpi/pa7100/mpih-rshift.S
index 187933595..3bada7ce9 100644
--- a/mpi/pa7100/mpih-rshift.S
+++ b/mpi/pa7100/mpih-rshift.S
@@ -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)
generated by cgit v1.2.3 (git 2.25.1) at 2025-06-18 05:07:43 +0000