OLD | NEW |
| (Empty) |
1 # VAX __gmpn_add_n -- Add two limb vectors of the same length > 0 and store | |
2 # sum in a third limb vector. | |
3 | |
4 # Copyright 1999, 2000 Free Software Foundation, Inc. | |
5 | |
6 # This file is part of the GNU MP Library. | |
7 | |
8 # The GNU MP Library is free software; you can redistribute it and/or modify | |
9 # it under the terms of the GNU Lesser General Public License as published by | |
10 # the Free Software Foundation; either version 3 of the License, or (at your | |
11 # option) any later version. | |
12 | |
13 # The GNU MP Library is distributed in the hope that it will be useful, but | |
14 # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY | |
15 # or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public | |
16 # License for more details. | |
17 | |
18 # You should have received a copy of the GNU Lesser General Public License | |
19 # along with the GNU MP Library. If not, see http://www.gnu.org/licenses/. | |
20 | |
21 | |
22 # INPUT PARAMETERS | |
23 # res_ptr (sp + 4) | |
24 # s1_ptr (sp + 8) | |
25 # s2_ptr (sp + 12) | |
26 # size (sp + 16) | |
27 | |
28 .text | |
29 .align 1 | |
30 .globl ___gmpn_add_n | |
31 ___gmpn_add_n: | |
32 .word 0x0 | |
33 movl 16(ap),r0 | |
34 movl 12(ap),r1 | |
35 movl 8(ap),r2 | |
36 movl 4(ap),r3 | |
37 mnegl r0,r5 | |
38 addl2 $3,r0 | |
39 ashl $-2,r0,r0 # unroll loop count | |
40 bicl2 $-4,r5 # mask out low 2 bits | |
41 movaq (r5)[r5],r5 # 9x | |
42 jmp Loop(r5) | |
43 | |
44 Loop: movl (r2)+,r4 | |
45 adwc (r1)+,r4 | |
46 movl r4,(r3)+ | |
47 movl (r2)+,r4 | |
48 adwc (r1)+,r4 | |
49 movl r4,(r3)+ | |
50 movl (r2)+,r4 | |
51 adwc (r1)+,r4 | |
52 movl r4,(r3)+ | |
53 movl (r2)+,r4 | |
54 adwc (r1)+,r4 | |
55 movl r4,(r3)+ | |
56 sobgtr r0,Loop | |
57 | |
58 adwc r0,r0 | |
59 ret | |
OLD | NEW |