aboutsummaryrefslogtreecommitdiffstatshomepage
path: root/linden/indra/libgcrypt/libgcrypt-1.2.2/mpi/hppa/mpih-add1.S
diff options
context:
space:
mode:
Diffstat (limited to 'linden/indra/libgcrypt/libgcrypt-1.2.2/mpi/hppa/mpih-add1.S')
-rw-r--r--[-rwxr-xr-x]linden/indra/libgcrypt/libgcrypt-1.2.2/mpi/hppa/mpih-add1.S140
1 files changed, 70 insertions, 70 deletions
diff --git a/linden/indra/libgcrypt/libgcrypt-1.2.2/mpi/hppa/mpih-add1.S b/linden/indra/libgcrypt/libgcrypt-1.2.2/mpi/hppa/mpih-add1.S
index f521de0..3bc0e5e 100755..100644
--- a/linden/indra/libgcrypt/libgcrypt-1.2.2/mpi/hppa/mpih-add1.S
+++ b/linden/indra/libgcrypt/libgcrypt-1.2.2/mpi/hppa/mpih-add1.S
@@ -1,70 +1,70 @@
1/* hppa add_n -- Add two limb vectors of the same length > 0 and store 1/* hppa add_n -- Add two limb vectors of the same length > 0 and store
2 * sum in a third limb vector. 2 * sum in a third limb vector.
3 * 3 *
4 * Copyright (C) 1992, 1994, 1998, 4 * Copyright (C) 1992, 1994, 1998,
5 * 2001, 2002 Fee Software Foundation, Inc. 5 * 2001, 2002 Fee Software Foundation, Inc.
6 * 6 *
7 * This file is part of Libgcrypt. 7 * This file is part of Libgcrypt.
8 * 8 *
9 * Libgcrypt is free software; you can redistribute it and/or modify 9 * Libgcrypt is free software; you can redistribute it and/or modify
10 * it under the terms of the GNU Lesser General Public License as 10 * it under the terms of the GNU Lesser General Public License as
11 * published by the Free Software Foundation; either version 2.1 of 11 * published by the Free Software Foundation; either version 2.1 of
12 * the License, or (at your option) any later version. 12 * the License, or (at your option) any later version.
13 * 13 *
14 * Libgcrypt is distributed in the hope that it will be useful, 14 * Libgcrypt is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of 15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 * GNU Lesser General Public License for more details. 17 * GNU Lesser General Public License for more details.
18 * 18 *
19 * You should have received a copy of the GNU Lesser General Public 19 * You should have received a copy of the GNU Lesser General Public
20 * License along with this program; if not, write to the Free Software 20 * License along with this program; if not, write to the Free Software
21 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA 21 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
22 * 22 *
23 * Note: This code is heavily based on the GNU MP Library. 23 * Note: This code is heavily based on the GNU MP Library.
24 * Actually it's the same code with only minor changes in the 24 * Actually it's the same code with only minor changes in the
25 * way the data is stored; this is to support the abstraction 25 * way the data is stored; this is to support the abstraction
26 * of an optional secure memory allocation which may be used 26 * of an optional secure memory allocation which may be used
27 * to avoid revealing of sensitive data due to paging etc. 27 * to avoid revealing of sensitive data due to paging etc.
28 */ 28 */
29 29
30 30
31 31
32/******************* 32/*******************
33 * mpi_limb_t 33 * mpi_limb_t
34 * _gcry_mpih_add_n( mpi_ptr_t res_ptr, (gr26) 34 * _gcry_mpih_add_n( mpi_ptr_t res_ptr, (gr26)
35 * mpi_ptr_t s1_ptr, (gr25) 35 * mpi_ptr_t s1_ptr, (gr25)
36 * mpi_ptr_t s2_ptr, (gr24) 36 * mpi_ptr_t s2_ptr, (gr24)
37 * mpi_size_t size) (gr23) 37 * mpi_size_t size) (gr23)
38 * 38 *
39 * One might want to unroll this as for other processors, but it turns 39 * One might want to unroll this as for other processors, but it turns
40 * out that the data cache contention after a store makes such 40 * out that the data cache contention after a store makes such
41 * unrolling useless. We can't come under 5 cycles/limb anyway. 41 * unrolling useless. We can't come under 5 cycles/limb anyway.
42 */ 42 */
43 43
44 .code 44 .code
45 .export _gcry_mpih_add_n 45 .export _gcry_mpih_add_n
46 .label _gcry_mpih_add_n 46 .label _gcry_mpih_add_n
47 .proc 47 .proc
48 .callinfo frame=0,no_calls 48 .callinfo frame=0,no_calls
49 .entry 49 .entry
50 50
51 ldws,ma 4(0,%r25),%r20 51 ldws,ma 4(0,%r25),%r20
52 ldws,ma 4(0,%r24),%r19 52 ldws,ma 4(0,%r24),%r19
53 53
54 addib,= -1,%r23,L$end ; check for (SIZE == 1) 54 addib,= -1,%r23,L$end ; check for (SIZE == 1)
55 add %r20,%r19,%r28 ; add first limbs ignoring cy 55 add %r20,%r19,%r28 ; add first limbs ignoring cy
56 56
57 .label L$loop 57 .label L$loop
58 ldws,ma 4(0,%r25),%r20 58 ldws,ma 4(0,%r25),%r20
59 ldws,ma 4(0,%r24),%r19 59 ldws,ma 4(0,%r24),%r19
60 stws,ma %r28,4(0,%r26) 60 stws,ma %r28,4(0,%r26)
61 addib,<> -1,%r23,L$loop 61 addib,<> -1,%r23,L$loop
62 addc %r20,%r19,%r28 62 addc %r20,%r19,%r28
63 63
64 .label L$end 64 .label L$end
65 stws %r28,0(0,%r26) 65 stws %r28,0(0,%r26)
66 bv 0(%r2) 66 bv 0(%r2)
67 addc %r0,%r0,%r28 67 addc %r0,%r0,%r28
68 68
69 .exit 69 .exit
70 .procend 70 .procend