diff options
Diffstat (limited to 'mpi/hppa1.1/mpih-mul1.S')
-rw-r--r-- | mpi/hppa1.1/mpih-mul1.S | 21 |
1 files changed, 12 insertions, 9 deletions
diff --git a/mpi/hppa1.1/mpih-mul1.S b/mpi/hppa1.1/mpih-mul1.S index 1f737747..ac9baced 100644 --- a/mpi/hppa1.1/mpih-mul1.S +++ b/mpi/hppa1.1/mpih-mul1.S @@ -1,16 +1,17 @@ /* hppa1.1 mul_1 -- Multiply a limb vector with a limb and store * the result in a second limb vector. - * Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc. - * Copyright (C) 1998 Free Software Foundation, Inc. * - * This file is part of GNUPG. + * Copyright (C) 1992, 1993, 1994, 1998, + * 2001 Free Software Foundation, Inc. * - * GNUPG is free software; you can redistribute it and/or modify + * This file is part of GnuPG. + * + * GnuPG is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * - * GNUPG is distributed in the hope that it will be useful, + * GnuPG is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. @@ -58,7 +59,7 @@ .code .export mpihelp_mul_1 -mpihelp_mul_1 + .label mpihelp_mul_1 .proc .callinfo frame=64,no_calls .entry @@ -81,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 @@ -90,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) @@ -98,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 |