summaryrefslogtreecommitdiff
path: root/mpi/hppa1.1
diff options
context:
space:
mode:
authorWerner Koch <wk@gnupg.org>2001-05-28 21:12:27 +0000
committerWerner Koch <wk@gnupg.org>2001-05-28 21:12:27 +0000
commit08e3fbb986bed2f39cc5dca806faca9654c3a6df (patch)
tree8ff245903939d951c51b2c49b312074b91e94536 /mpi/hppa1.1
parent7e68abda362fce76e91631973d062fd7c8ff5e4e (diff)
downloadlibgcrypt-08e3fbb986bed2f39cc5dca806faca9654c3a6df.tar.gz
Merged back some changes fron gnupg. Fixed doc building.
Diffstat (limited to 'mpi/hppa1.1')
-rw-r--r--mpi/hppa1.1/mpih-mul1.S21
-rw-r--r--mpi/hppa1.1/mpih-mul2.S21
-rw-r--r--mpi/hppa1.1/mpih-mul3.S21
-rw-r--r--mpi/hppa1.1/udiv-qrnnd.S20
4 files changed, 47 insertions, 36 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
diff --git a/mpi/hppa1.1/mpih-mul2.S b/mpi/hppa1.1/mpih-mul2.S
index 89c02595..c73397e3 100644
--- a/mpi/hppa1.1/mpih-mul2.S
+++ b/mpi/hppa1.1/mpih-mul2.S
@@ -1,16 +1,17 @@
/* hppa1.1 addmul_1 -- Multiply a limb vector with a limb and add
* the result to 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.
@@ -48,7 +49,7 @@
.code
.export mpihelp_addmul_1
-mpihelp_addmul_1
+ .label mpihelp_addmul_1
.proc
.callinfo frame=64,no_calls
.entry
@@ -71,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)
@@ -83,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
@@ -96,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 80868a3e..f9ccb1b5 100644
--- a/mpi/hppa1.1/mpih-mul3.S
+++ b/mpi/hppa1.1/mpih-mul3.S
@@ -1,16 +1,17 @@
/* hppa1.1 submul_1 -- Multiply a limb vector with a limb and add
* the result to 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.
@@ -55,7 +56,7 @@
.code
.export mpihelp_submul_1
-mpihelp_submul_1
+ .label mpihelp_submul_1
.proc
.callinfo frame=64,no_calls
.entry
@@ -78,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
@@ -91,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)
@@ -106,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 b48eee49..a1643d70 100644
--- a/mpi/hppa1.1/udiv-qrnnd.S
+++ b/mpi/hppa1.1/udiv-qrnnd.S
@@ -1,17 +1,17 @@
/* HP-PA __udiv_qrnnd division support, used from longlong.h.
* This version runs fast on PA 7000 and later.
*
- * Copyright (C) 1993, 1994 Free Software Foundation, Inc.
- * Copyright (C) 1998 Free Software Foundation, Inc.
+ * Copyright (C) 1993, 1994, 1998,
+ * 2001 Free Software Foundation, Inc.
*
- * This file is part of GNUPG.
+ * This file is part of GnuPG.
*
- * GNUPG is free software; you can redistribute it and/or modify
+ * 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.
@@ -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