diff options
Diffstat (limited to 'mpi/hppa1.1')
| -rw-r--r-- | mpi/hppa1.1/mpih-mul1.S | 10 | ||||
| -rw-r--r-- | mpi/hppa1.1/mpih-mul2.S | 10 | ||||
| -rw-r--r-- | mpi/hppa1.1/mpih-mul3.S | 10 | ||||
| -rw-r--r-- | mpi/hppa1.1/udiv-qrnnd.S | 10 |
4 files changed, 24 insertions, 16 deletions
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 |