* mpn/pa32/hppa1_1/pa7100/add_n.asm,

	mpn/pa32/hppa1_1/pa7100/addmul_1.asm,
	mpn/pa32/hppa1_1/pa7100/lshift.asm,
	mpn/pa32/hppa1_1/pa7100/rshift.asm,
	mpn/pa32/hppa1_1/pa7100/sub_n.asm,
	mpn/pa32/hppa1_1/pa7100/submul_1.asm: Use LDEF for labels.

6 files changed, 42 insertions, 38 deletions

diff --git a/mpn/pa32/hppa1_1/pa7100/add_n.asm b/mpn/pa32/hppa1_1/pa7100/add_n.asm
index e515456b6..ba96d09a5 100644
--- a/mpn/pa32/hppa1_1/pa7100/add_n.asm
+++ b/mpn/pa32/hppa1_1/pa7100/add_n.asm
@@ -2,7 +2,8 @@ dnl  HP-PA mpn_add_n -- Add two limb vectors of the same length > 0 and store
 dnl  sum in a third limb vector.  Optimized for the PA7100, where is runs at
 dnl  4.25 cycles/limb.
 
-dnl  Copyright 1992, 1994, 2000, 2001, 2002 Free Software Foundation, Inc.
+dnl  Copyright 1992, 1994, 2000, 2001, 2002, 2003 Free Software Foundation,
+dnl  Inc.
 
 dnl  This file is part of the GNU MP Library.
 
@@ -37,7 +38,7 @@ PROLOGUE(mpn_add_n)
 	addib,<=	-5,%r23,L(rest)
 	 add		%r20,%r19,%r28	C add first limbs ignoring cy
 
-	.label	L(loop)
+LDEF(loop)
 	ldws,ma		4(0,%r25),%r20
 	ldws,ma		4(0,%r24),%r19
 	stws,ma		%r28,4(0,%r26)
@@ -56,18 +57,18 @@ PROLOGUE(mpn_add_n)
 	addib,>		-4,%r23,L(loop)
 	addc		%r20,%r19,%r28
 
-	.label	L(rest)
+LDEF(rest)
 	addib,=		4,%r23,L(end)
 	nop
 
-	.label	L(eloop)
+LDEF(eloop)
 	ldws,ma		4(0,%r25),%r20
 	ldws,ma		4(0,%r24),%r19
 	stws,ma		%r28,4(0,%r26)
 	addib,>		-1,%r23,L(eloop)
 	addc		%r20,%r19,%r28
 
-	.label	L(end)
+LDEF(end)
 	stws		%r28,0(0,%r26)
 	bv		0(%r2)
 	 addc		%r0,%r0,%r28
diff --git a/mpn/pa32/hppa1_1/pa7100/addmul_1.asm b/mpn/pa32/hppa1_1/pa7100/addmul_1.asm
index f4074a32a..95109707c 100644
--- a/mpn/pa32/hppa1_1/pa7100/addmul_1.asm
+++ b/mpn/pa32/hppa1_1/pa7100/addmul_1.asm
@@ -1,7 +1,7 @@
 dnl  HP-PA 7100/7200 mpn_addmul_1 -- Multiply a limb vector with a limb and
 dnl  add the result to a second limb vector.
 
-dnl  Copyright 1995, 2000, 2001, 2002 Free Software Foundation, Inc.
+dnl  Copyright 1995, 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
 
 dnl  This file is part of the GNU MP Library.
 
@@ -72,7 +72,7 @@ C	.callinfo	frame=128,no_calls
 	stws,ma	 s0,4(res_ptr)
 
 C start software pipeline ----------------------------------------------------
-	.label	L(0)
+LDEF(0)
 	fldds,ma 8(s1_ptr),%fr4
 	fldds,ma 8(s1_ptr),%fr8
 
@@ -103,7 +103,7 @@ C start software pipeline ----------------------------------------------------
 	addib,<	 -4,size_param,L(end)
 	addc	 %r0,hi3,cylimb			C propagate carry into cylimb
 C main loop ------------------------------------------------------------------
-	.label	L(loop)
+LDEF(loop)
 	fldds,ma 8(s1_ptr),%fr4
 	fldds,ma 8(s1_ptr),%fr8
 
@@ -146,7 +146,7 @@ C main loop ------------------------------------------------------------------
 	addib,>= -4,size_param,L(loop)
 	addc	 %r0,hi3,cylimb			C propagate carry into cylimb
 C finish software pipeline ---------------------------------------------------
-	.label	L(end)
+LDEF(end)
 	ldws	 0(res_ptr),s0
 	ldws	 4(res_ptr),s1
 	ldws	 8(res_ptr),s2
@@ -168,10 +168,10 @@ C restore callee-saves registers ---------------------------------------------
 	ldw	-84(%r30),%r6
 	ldw	-80(%r30),%r7
 
-	.label	L(few_limbs)
+LDEF(few_limbs)
 	addib,=,n 4,size_param,L(ret)
 
-	.label	L(loop2)
+LDEF(loop2)
 	fldws,ma 4(s1_ptr),%fr4
 	ldws	 0(res_ptr),s0
 	xmpyu	 %fr4,%fr31R,%fr5
@@ -185,7 +185,7 @@ C restore callee-saves registers ---------------------------------------------
 	addib,<> -1,size_param,L(loop2)
 	nop
 
-	.label	L(ret)
+LDEF(ret)
 	addc	 %r0,cylimb,cylimb
 	bv	 0(%r2)
 	ldo	 -128(%r30),%r30
diff --git a/mpn/pa32/hppa1_1/pa7100/lshift.asm b/mpn/pa32/hppa1_1/pa7100/lshift.asm
index 336b0daaa..93a7aafd7 100644
--- a/mpn/pa32/hppa1_1/pa7100/lshift.asm
+++ b/mpn/pa32/hppa1_1/pa7100/lshift.asm
@@ -1,7 +1,8 @@
 dnl  HP-PA  mpn_lshift -- Shift a number left.
 dnl  Optimized for the PA7100, where is runs at 3.25 cycles/limb.
 
-dnl  Copyright 1992, 1994, 2000, 2001, 2002 Free Software Foundation, Inc.
+dnl  Copyright 1992, 1994, 2000, 2001, 2002, 2003 Free Software Foundation,
+dnl  Inc.
 
 dnl  This file is part of the GNU MP Library.
 
@@ -41,7 +42,7 @@ PROLOGUE(mpn_lshift)
 	addib,<=	-5,%r24,L(rest)
 	vshd		%r22,%r29,%r20
 
-	.label	L(loop)
+LDEF(loop)
 	ldws,mb		-4(0,%r25),%r22
 	stws,mb		%r20,-4(0,%r26)
 	vshd		%r29,%r22,%r20
@@ -56,11 +57,11 @@ PROLOGUE(mpn_lshift)
 	addib,>		-4,%r24,L(loop)
 	vshd		%r22,%r29,%r20
 
-	.label	L(rest)
+LDEF(rest)
 	addib,=		4,%r24,L(end1)
 	nop
 
-	.label	L(eloop)
+LDEF(eloop)
 	ldws,mb		-4(0,%r25),%r22
 	stws,mb		%r20,-4(0,%r26)
 	addib,<=	-1,%r24,L(end2)
@@ -70,16 +71,16 @@ PROLOGUE(mpn_lshift)
 	addib,>		-1,%r24,L(eloop)
 	vshd		%r22,%r29,%r20
 
-	.label	L(end1)
+LDEF(end1)
 	stws,mb		%r20,-4(0,%r26)
 	vshd		%r29,%r0,%r20
 	bv		0(%r2)
 	stw		%r20,-4(0,%r26)
 
-	.label	L(end2)
+LDEF(end2)
 	stws,mb		%r20,-4(0,%r26)
 
-	.label	L(0004)
+LDEF(0004)
 	vshd		%r22,%r0,%r20
 	bv		0(%r2)
 	stw		%r20,-4(0,%r26)
diff --git a/mpn/pa32/hppa1_1/pa7100/rshift.asm b/mpn/pa32/hppa1_1/pa7100/rshift.asm
index 17ac0eecb..680f54fd7 100644
--- a/mpn/pa32/hppa1_1/pa7100/rshift.asm
+++ b/mpn/pa32/hppa1_1/pa7100/rshift.asm
@@ -1,7 +1,8 @@
 dnl  HP-PA  mpn_rshift -- Shift a number right.
 dnl  Optimized for the PA7100, where is runs at 3.25 cycles/limb.
 
-dnl  Copyright 1992, 1994, 2000, 2001, 2002 Free Software Foundation, Inc.
+dnl  Copyright 1992, 1994, 2000, 2001, 2002, 2003 Free Software Foundation,
+dnl  Inc.
 
 dnl  This file is part of the GNU MP Library.
 
@@ -38,7 +39,7 @@ PROLOGUE(mpn_rshift)
 	addib,<=	-5,%r24,L(rest)
 	vshd		%r29,%r22,%r20
 
-	.label	L(loop)
+LDEF(loop)
 	ldws,ma		4(0,%r25),%r22
 	stws,ma		%r20,4(0,%r26)
 	vshd		%r22,%r29,%r20
@@ -53,11 +54,11 @@ PROLOGUE(mpn_rshift)
 	addib,>		-4,%r24,L(loop)
 	vshd		%r29,%r22,%r20
 
-	.label	L(rest)
+LDEF(rest)
 	addib,=		4,%r24,L(end1)
 	nop
 
-	.label	L(eloop)
+LDEF(eloop)
 	ldws,ma		4(0,%r25),%r22
 	stws,ma		%r20,4(0,%r26)
 	addib,<=	-1,%r24,L(end2)
@@ -67,16 +68,16 @@ PROLOGUE(mpn_rshift)
 	addib,>		-1,%r24,L(eloop)
 	vshd		%r29,%r22,%r20
 
-	.label	L(end1)
+LDEF(end1)
 	stws,ma		%r20,4(0,%r26)
 	vshd		%r0,%r29,%r20
 	bv		0(%r2)
 	stw		%r20,0(0,%r26)
 
-	.label	L(end2)
+LDEF(end2)
 	stws,ma		%r20,4(0,%r26)
 
-	.label	L(0004)
+LDEF(0004)
 	vshd		%r0,%r22,%r20
 	bv		0(%r2)
 	stw		%r20,0(0,%r26)
diff --git a/mpn/pa32/hppa1_1/pa7100/sub_n.asm b/mpn/pa32/hppa1_1/pa7100/sub_n.asm
index 14073cf19..584267ef6 100644
--- a/mpn/pa32/hppa1_1/pa7100/sub_n.asm
+++ b/mpn/pa32/hppa1_1/pa7100/sub_n.asm
@@ -2,7 +2,8 @@ dnl  HP-PA mpn_sub_n -- Subtract two limb vectors of the same length > 0 and
 dnl  store difference in a third limb vector.  Optimized for the PA7100, where
 dnl  is runs at 4.25 cycles/limb.
 
-dnl  Copyright 1992, 1994, 2000, 2001, 2002 Free Software Foundation, Inc.
+dnl  Copyright 1992, 1994, 2000, 2001, 2002, 2003 Free Software Foundation,
+dnl  Inc.
 
 dnl  This file is part of the GNU MP Library.
 
@@ -37,7 +38,7 @@ PROLOGUE(mpn_sub_n)
 	addib,<=	-5,%r23,L(rest)
 	 sub		%r20,%r19,%r28	C subtract first limbs ignoring cy
 
-	.label	L(loop)
+LDEF(loop)
 	ldws,ma		4(0,%r25),%r20
 	ldws,ma		4(0,%r24),%r19
 	stws,ma		%r28,4(0,%r26)
@@ -56,18 +57,18 @@ PROLOGUE(mpn_sub_n)
 	addib,>		-4,%r23,L(loop)
 	subb		%r20,%r19,%r28
 
-	.label	L(rest)
+LDEF(rest)
 	addib,=		4,%r23,L(end)
 	nop
 
-	.label	L(eloop)
+LDEF(eloop)
 	ldws,ma		4(0,%r25),%r20
 	ldws,ma		4(0,%r24),%r19
 	stws,ma		%r28,4(0,%r26)
 	addib,>		-1,%r23,L(eloop)
 	subb		%r20,%r19,%r28
 
-	.label	L(end)
+LDEF(end)
 	stws		%r28,0(0,%r26)
 	addc		%r0,%r0,%r28
 	bv		0(%r2)
diff --git a/mpn/pa32/hppa1_1/pa7100/submul_1.asm b/mpn/pa32/hppa1_1/pa7100/submul_1.asm
index 463ccfce9..22f70c1b6 100644
--- a/mpn/pa32/hppa1_1/pa7100/submul_1.asm
+++ b/mpn/pa32/hppa1_1/pa7100/submul_1.asm
@@ -1,7 +1,7 @@
 dnl  HP-PA 7100/7200 mpn_submul_1 -- Multiply a limb vector with a limb and
 dnl  subtract the result from a second limb vector.
 
-dnl  Copyright 1995, 2000, 2001, 2002 Free Software Foundation, Inc.
+dnl  Copyright 1995, 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
 
 dnl  This file is part of the GNU MP Library.
 
@@ -73,7 +73,7 @@ C	.callinfo	frame=128,no_calls
 	stws,ma	 s0,4(res_ptr)
 
 C start software pipeline ----------------------------------------------------
-	.label	L(0)
+LDEF(0)
 	fldds,ma 8(s1_ptr),%fr4
 	fldds,ma 8(s1_ptr),%fr8
 
@@ -104,7 +104,7 @@ C start software pipeline ----------------------------------------------------
 	addib,<	 -4,size_param,L(end)
 	addc	 %r0,hi3,cylimb			C propagate carry into cylimb
 C main loop ------------------------------------------------------------------
-	.label	L(loop)
+LDEF(loop)
 	fldds,ma 8(s1_ptr),%fr4
 	fldds,ma 8(s1_ptr),%fr8
 
@@ -149,7 +149,7 @@ C main loop ------------------------------------------------------------------
 	addib,>= -4,size_param,L(loop)
 	addc	 %r0,hi3,cylimb			C propagate carry into cylimb
 C finish software pipeline ---------------------------------------------------
-	.label	L(end)
+LDEF(end)
 	ldws	 0(res_ptr),s0
 	ldws	 4(res_ptr),s1
 	ldws	 8(res_ptr),s2
@@ -173,10 +173,10 @@ C restore callee-saves registers ---------------------------------------------
 	ldw	-84(%r30),%r6
 	ldw	-80(%r30),%r7
 
-	.label	L(few_limbs)
+LDEF(few_limbs)
 	addib,=,n 4,size_param,L(ret)
 
-	.label	L(loop2)
+LDEF(loop2)
 	fldws,ma 4(s1_ptr),%fr4
 	ldws	 0(res_ptr),s0
 	xmpyu	 %fr4,%fr31R,%fr5
@@ -191,7 +191,7 @@ C restore callee-saves registers ---------------------------------------------
 	addib,<> -1,size_param,L(loop2)
 	nop
 
-	.label	L(ret)
+LDEF(ret)
 	addc	 %r0,cylimb,cylimb
 	bv	 0(%r2)
 	ldo	 -128(%r30),%r30