From e3e8c5c3056213c1e08e0c51f96274755d7b3b46 Mon Sep 17 00:00:00 2001 From: Kevin Ryde Date: Wed, 10 Jul 2002 01:59:31 +0200 Subject: * mpn/pa32/*.asm: Use LDEF. --- mpn/pa32/add_n.asm | 4 ++-- mpn/pa32/hppa1_1/addmul_1.asm | 6 +++--- mpn/pa32/hppa1_1/mul_1.asm | 6 +++--- mpn/pa32/hppa1_1/sqr_diagonal.asm | 4 ++-- mpn/pa32/hppa1_1/submul_1.asm | 6 +++--- mpn/pa32/hppa1_1/udiv.asm | 4 ++-- mpn/pa32/hppa2_0/add_n.asm | 16 ++++++++-------- mpn/pa32/hppa2_0/sqr_diagonal.asm | 12 ++++++------ mpn/pa32/hppa2_0/sub_n.asm | 16 ++++++++-------- mpn/pa32/lshift.asm | 8 ++++---- mpn/pa32/rshift.asm | 8 ++++---- mpn/pa32/sub_n.asm | 4 ++-- mpn/pa32/udiv.asm | 6 +++--- 13 files changed, 50 insertions(+), 50 deletions(-) (limited to 'mpn') diff --git a/mpn/pa32/add_n.asm b/mpn/pa32/add_n.asm index 9b201c445..57200878d 100644 --- a/mpn/pa32/add_n.asm +++ b/mpn/pa32/add_n.asm @@ -40,14 +40,14 @@ PROLOGUE(mpn_add_n) addib,= -1,%r23,L(end) C check for (SIZE == 1) 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) addib,<> -1,%r23,L(loop) 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/addmul_1.asm b/mpn/pa32/hppa1_1/addmul_1.asm index 40fefe505..db203c1fc 100644 --- a/mpn/pa32/hppa1_1/addmul_1.asm +++ b/mpn/pa32/hppa1_1/addmul_1.asm @@ -57,7 +57,7 @@ C .callinfo frame=64,no_calls ldw -12(%r30),%r1 C Main loop - .label L(loop) +LDEF(loop) ldws 0(%r26),%r29 fldws,ma 4(%r25),%fr5 add %r29,%r19,%r19 @@ -70,7 +70,7 @@ C Main loop addib,<> -1,%r24,L(loop) ldw -12(%r30),%r1 - .label L(end) +LDEF(end) ldw 0(%r26),%r29 add %r29,%r19,%r19 stws,ma %r19,4(%r26) @@ -84,7 +84,7 @@ C Main loop bv 0(%r2) ldo -64(%r30),%r30 - .label L(just_one_limb) +LDEF(just_one_limb) xmpyu %fr4,%fr5,%fr6 ldw 0(%r26),%r29 fstds %fr6,-16(%r30) diff --git a/mpn/pa32/hppa1_1/mul_1.asm b/mpn/pa32/hppa1_1/mul_1.asm index 0b680963c..bd401fd3a 100644 --- a/mpn/pa32/hppa1_1/mul_1.asm +++ b/mpn/pa32/hppa1_1/mul_1.asm @@ -65,7 +65,7 @@ C .callinfo frame=64,no_calls ldw -12(%r30),%r1 C Main loop - .label L(loop) +LDEF(loop) fldws,ma 4(%r25),%fr5 stws,ma %r19,4(%r26) addc %r28,%r1,%r19 @@ -75,7 +75,7 @@ C Main loop addib,<> -1,%r24,L(loop) ldw -12(%r30),%r1 - .label L(end) +LDEF(end) stws,ma %r19,4(%r26) addc %r28,%r1,%r19 ldw -16(%r30),%r28 @@ -84,7 +84,7 @@ C Main loop bv 0(%r2) ldo -64(%r30),%r30 - .label L(just_one_limb) +LDEF(just_one_limb) xmpyu %fr4,%fr5,%fr6 fstds %fr6,-16(%r30) ldw -16(%r30),%r28 diff --git a/mpn/pa32/hppa1_1/sqr_diagonal.asm b/mpn/pa32/hppa1_1/sqr_diagonal.asm index 53e4254b7..34a69a04d 100644 --- a/mpn/pa32/hppa1_1/sqr_diagonal.asm +++ b/mpn/pa32/hppa1_1/sqr_diagonal.asm @@ -37,14 +37,14 @@ PROLOGUE(mpn_sqr_diagonal) addib,= -1,n,L(exit) xmpyu %fr4r,%fr4r,%fr5 - .label L(loop) +LDEF(loop) fldws,ma 4(up),%fr4r fstws %fr5r,-4(rp) fstws,ma %fr5l,8(rp) addib,<> -1,n,L(loop) xmpyu %fr4r,%fr4r,%fr5 - .label L(exit) +LDEF(exit) fstws %fr5r,-4(rp) bv 0(%r2) fstws %fr5l,0(rp) diff --git a/mpn/pa32/hppa1_1/submul_1.asm b/mpn/pa32/hppa1_1/submul_1.asm index b3747ba3b..14ac66289 100644 --- a/mpn/pa32/hppa1_1/submul_1.asm +++ b/mpn/pa32/hppa1_1/submul_1.asm @@ -62,7 +62,7 @@ C .callinfo frame=64,no_calls ldw -12(%r30),%r1 C Main loop - .label L(loop) +LDEF(loop) ldws 0(%r26),%r29 fldws,ma 4(%r25),%fr5 sub %r29,%r19,%r22 @@ -76,7 +76,7 @@ C Main loop addib,<> -1,%r24,L(loop) ldw -12(%r30),%r1 - .label L(end) +LDEF(end) ldw 0(%r26),%r29 sub %r29,%r19,%r22 add %r22,%r19,%r0 @@ -92,7 +92,7 @@ C Main loop bv 0(%r2) ldo -64(%r30),%r30 - .label L(just_one_limb) +LDEF(just_one_limb) xmpyu %fr4,%fr5,%fr6 ldw 0(%r26),%r29 fstds %fr6,-16(%r30) diff --git a/mpn/pa32/hppa1_1/udiv.asm b/mpn/pa32/hppa1_1/udiv.asm index 0fb302e53..091af4bc8 100644 --- a/mpn/pa32/hppa1_1/udiv.asm +++ b/mpn/pa32/hppa1_1/udiv.asm @@ -66,7 +66,7 @@ ifdef(`PIC', fldds 0(0,%r31),%fr4 fadd,dbl %fr4,%fr5,%fr5 - .label L(1) +LDEF(1) fcpy,sgl %fr0,%fr6L fldws -12(0,%r30),%fr6R fcnvxf,dbl,dbl %fr6,%fr4 @@ -88,7 +88,7 @@ ifdef(`PIC', add %r22,%r23,%r22 ldo -1(%r28),%r28 - .label L(2) +LDEF(2) bv 0(%r2) stws %r22,0(0,%r26) .exit diff --git a/mpn/pa32/hppa2_0/add_n.asm b/mpn/pa32/hppa2_0/add_n.asm index fc0f14356..816532639 100644 --- a/mpn/pa32/hppa2_0/add_n.asm +++ b/mpn/pa32/hppa2_0/add_n.asm @@ -41,49 +41,49 @@ PROLOGUE(mpn_add_n) blr %r28,%r0 C branch into loop add %r0,%r0,%r0 C reset carry - .label L(loop) +LDEF(loop) ldw 0(%r25),%r20 ldw 0(%r24),%r31 addc %r20,%r31,%r20 stw %r20,0(%r26) - .label L(7) +LDEF(7) ldw 4(%r25),%r21 ldw 4(%r24),%r19 addc %r21,%r19,%r21 stw %r21,4(%r26) - .label L(6) +LDEF(6) ldw 8(%r25),%r20 ldw 8(%r24),%r31 addc %r20,%r31,%r20 stw %r20,8(%r26) - .label L(5) +LDEF(5) ldw 12(%r25),%r21 ldw 12(%r24),%r19 addc %r21,%r19,%r21 stw %r21,12(%r26) - .label L(4) +LDEF(4) ldw 16(%r25),%r20 ldw 16(%r24),%r31 addc %r20,%r31,%r20 stw %r20,16(%r26) - .label L(3) +LDEF(3) ldw 20(%r25),%r21 ldw 20(%r24),%r19 addc %r21,%r19,%r21 stw %r21,20(%r26) - .label L(2) +LDEF(2) ldw 24(%r25),%r20 ldw 24(%r24),%r31 addc %r20,%r31,%r20 stw %r20,24(%r26) - .label L(1) +LDEF(1) ldw 28(%r25),%r21 ldo 32(%r25),%r25 ldw 28(%r24),%r19 diff --git a/mpn/pa32/hppa2_0/sqr_diagonal.asm b/mpn/pa32/hppa2_0/sqr_diagonal.asm index 463aa45f4..c27855ba8 100644 --- a/mpn/pa32/hppa2_0/sqr_diagonal.asm +++ b/mpn/pa32/hppa2_0/sqr_diagonal.asm @@ -45,7 +45,7 @@ PROLOGUE(mpn_sqr_diagonal) xmpyu %fr6r,%fr6r,%fr7 - .label L(loop) +LDEF(loop) fldws,ma 4(up),%fr6r fstws %fr5r,-4(rp) fstws,ma %fr5l,8(rp) @@ -57,7 +57,7 @@ PROLOGUE(mpn_sqr_diagonal) addib,<> -1,n,L(loop) xmpyu %fr6r,%fr6r,%fr7 - .label L(exito) +LDEF(exito) fstws %fr5r,-4(rp) fstws %fr5l,0(rp) xmpyu %fr4r,%fr4r,%fr5 @@ -67,7 +67,7 @@ PROLOGUE(mpn_sqr_diagonal) bv 0(%r2) fstws %fr5l,4(rp) - .label L(exite) +LDEF(exite) fstws %fr7r,-4(rp) fstws %fr7l,0(rp) xmpyu %fr6r,%fr6r,%fr7 @@ -77,13 +77,13 @@ PROLOGUE(mpn_sqr_diagonal) bv 0(%r2) fstws %fr7l,4(rp) - .label L(end1) +LDEF(end1) xmpyu %fr4r,%fr4r,%fr5 fstws %fr5r,-4(rp) bv 0(%r2) fstws,ma %fr5l,8(rp) - .label L(end2) +LDEF(end2) xmpyu %fr6r,%fr6r,%fr7 fstws %fr5r,-4(rp) fstws %fr5l,0(rp) @@ -91,7 +91,7 @@ PROLOGUE(mpn_sqr_diagonal) bv 0(%r2) fstws %fr7l,8(rp) - .label L(end3) +LDEF(end3) fstws %fr5r,-4(rp) fstws %fr5l,0(rp) xmpyu %fr4r,%fr4r,%fr5 diff --git a/mpn/pa32/hppa2_0/sub_n.asm b/mpn/pa32/hppa2_0/sub_n.asm index d6b930dee..fc4b00f47 100644 --- a/mpn/pa32/hppa2_0/sub_n.asm +++ b/mpn/pa32/hppa2_0/sub_n.asm @@ -40,49 +40,49 @@ PROLOGUE(mpn_sub_n) blr %r28,%r0 C branch into loop sub %r26,%r22,%r26 C offset res_ptr and set carry - .label L(loop) +LDEF(loop) ldw 0(%r25),%r20 ldw 0(%r24),%r31 subb %r20,%r31,%r20 stw %r20,0(%r26) - .label L(7) +LDEF(7) ldw 4(%r25),%r21 ldw 4(%r24),%r19 subb %r21,%r19,%r21 stw %r21,4(%r26) - .label L(6) +LDEF(6) ldw 8(%r25),%r20 ldw 8(%r24),%r31 subb %r20,%r31,%r20 stw %r20,8(%r26) - .label L(5) +LDEF(5) ldw 12(%r25),%r21 ldw 12(%r24),%r19 subb %r21,%r19,%r21 stw %r21,12(%r26) - .label L(4) +LDEF(4) ldw 16(%r25),%r20 ldw 16(%r24),%r31 subb %r20,%r31,%r20 stw %r20,16(%r26) - .label L(3) +LDEF(3) ldw 20(%r25),%r21 ldw 20(%r24),%r19 subb %r21,%r19,%r21 stw %r21,20(%r26) - .label L(2) +LDEF(2) ldw 24(%r25),%r20 ldw 24(%r24),%r31 subb %r20,%r31,%r20 stw %r20,24(%r26) - .label L(1) +LDEF(1) ldw 28(%r25),%r21 ldo 32(%r25),%r25 ldw 28(%r24),%r19 diff --git a/mpn/pa32/lshift.asm b/mpn/pa32/lshift.asm index 393f4dc0c..ec1b9202c 100644 --- a/mpn/pa32/lshift.asm +++ b/mpn/pa32/lshift.asm @@ -40,7 +40,7 @@ PROLOGUE(mpn_lshift) addib,= -1,%r24,L(0002) vshd %r22,%r29,%r20 - .label L(loop) +LDEF(loop) ldws,mb -4(0,%r25),%r22 stws,mb %r20,-4(0,%r26) addib,= -1,%r24,L(0003) @@ -50,16 +50,16 @@ PROLOGUE(mpn_lshift) addib,<> -1,%r24,L(loop) vshd %r22,%r29,%r20 - .label L(0002) +LDEF(0002) stws,mb %r20,-4(0,%r26) vshd %r29,%r0,%r20 bv 0(%r2) stw %r20,-4(0,%r26) - .label L(0003) +LDEF(0003) 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/rshift.asm b/mpn/pa32/rshift.asm index f4efdab42..e453f0b41 100644 --- a/mpn/pa32/rshift.asm +++ b/mpn/pa32/rshift.asm @@ -37,7 +37,7 @@ PROLOGUE(mpn_rshift) addib,= -1,%r24,L(0002) vshd %r29,%r22,%r20 - .label L(loop) +LDEF(loop) ldws,ma 4(0,%r25),%r22 stws,ma %r20,4(0,%r26) addib,= -1,%r24,L(0003) @@ -47,16 +47,16 @@ PROLOGUE(mpn_rshift) addib,<> -1,%r24,L(loop) vshd %r29,%r22,%r20 - .label L(0002) +LDEF(0002) stws,ma %r20,4(0,%r26) vshd %r0,%r29,%r20 bv 0(%r2) stw %r20,0(0,%r26) - .label L(0003) +LDEF(0003) 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/sub_n.asm b/mpn/pa32/sub_n.asm index 33a15e468..0909a15a3 100644 --- a/mpn/pa32/sub_n.asm +++ b/mpn/pa32/sub_n.asm @@ -40,14 +40,14 @@ PROLOGUE(mpn_sub_n) addib,= -1,%r23,L(end) C check for (SIZE == 1) 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) addib,<> -1,%r23,L(loop) 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/udiv.asm b/mpn/pa32/udiv.asm index ff4c8a47e..10c2ba954 100644 --- a/mpn/pa32/udiv.asm +++ b/mpn/pa32/udiv.asm @@ -107,7 +107,7 @@ PROLOGUE(mpn_udiv_qrnnd) bv 0(%r2) addc %r28,%r28,%r28 - .label L(largedivisor) +LDEF(largedivisor) extru %r24,31,1,%r19 C r19 = n0 & 1 bb,< %r23,31,L(odd) extru %r23,30,31,%r22 C r22 = d >> 1 @@ -186,7 +186,7 @@ PROLOGUE(mpn_udiv_qrnnd) bv 0(%r2) addc %r24,%r24,%r28 - .label L(odd) +LDEF(odd) addib,sv,n 1,%r22,L(FFFFFFFF) C r22 = (d / 2 + 1) shd %r25,%r24,1,%r24 C r24 = new n0 extru %r25,30,31,%r25 C r25 = new n1 @@ -272,7 +272,7 @@ C We have computed (n1,,n0) / (d + 1), q' = r28, r' = r25 C This is just a special case of the code above. C We come here when d == 0xFFFFFFFF - .label L(FFFFFFFF) +LDEF(FFFFFFFF) add,uv %r25,%r24,%r24 sub,<< %r24,%r23,%r0 ldo 1(%r24),%r24 -- cgit v1.2.1