![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to sub_n.asm CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gmp / mpn / ia64|
Return to sub_n.asm CVS log | Up to [local] / OpenXM_contrib / gmp / mpn / ia64 |
1.1 ohara 1: dnl IA-64 mpn_sub_n -- Subtract two limb vectors of the same length > 0 and
2: dnl store difference in a third limb vector.
3:
4: dnl Copyright 2000, 2001, 2002 Free Software Foundation, Inc.
5:
6: dnl This file is part of the GNU MP Library.
7:
8: dnl The GNU MP Library is free software; you can redistribute it and/or modify
9: dnl it under the terms of the GNU Lesser General Public License as published
10: dnl by the Free Software Foundation; either version 2.1 of the License, or (at
11: dnl your option) any later version.
12:
13: dnl The GNU MP Library is distributed in the hope that it will be useful, but
14: dnl WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
15: dnl or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
16: dnl License for more details.
17:
18: dnl You should have received a copy of the GNU Lesser General Public License
19: dnl along with the GNU MP Library; see the file COPYING.LIB. If not, write to
20: dnl the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
21: dnl MA 02111-1307, USA.
22:
23: include(`../config.m4')
24:
25: C INPUT PARAMETERS
26: C rp = r32
27: C up = r33
28: C vp = r34
29: C n = r35
30:
31: C cycles/limb
32: C Itanium: 6
33: C Itanium 2: ?
34:
35:
36: ASM_START()
37: PROLOGUE(mpn_sub_n)
38: .prologue
39: ifdef(`HAVE_ABI_32',
40: ` addp4 r32 = 0, r32
41: addp4 r33 = 0, r33
42: addp4 r34 = 0, r34
43: sxt4 r35 = r35
44: ;;
45: ')
46: { .mib; cmp.eq p6, p7 = 1, r35
47: add r35 = -2, r35
48: nop.b 0
49: } { .mib; cmp.ne p8, p9 = r0, r0
50: .save ar.lc, r2
51: mov r2 = ar.lc
52: .body
53: nop.b 0 ;;
54: } { .mib; ld8 r16 = [r33], 8
55: mov ar.lc = r35
56: nop.b 0
57: } { .mib; ld8 r17 = [r34], 8
58: nop.i 0
59: (p6) br.dptk .Lend ;;
60: }
61: .align 32
62: .Loop:
63: .pred.rel "mutex",p8,p9
64: { .mii; mov r20 = r16
65: (p8) sub r19 = r16, r17, 1
66: (p9) sub r19 = r16, r17 ;;
67: } { .mfi; ld8 r16 = [r33], 8
68: nop.f 0
69: (p8) cmp.leu p6, p7 = r20, r19
70: } { .mfi; ld8 r17 = [r34], 8
71: nop.f 0
72: (p9) cmp.ltu p6, p7 = r20, r19
73: } { .mbb; st8 [r32] = r19, 8
74: nop.b 0
75: br.cloop.dptk .Loopm ;;
76: }
77: .pred.rel "mutex",p6,p7
78: { .mfi; (p6) sub r19 = r16, r17, 1
79: nop.f 0
80: (p7) sub r19 = r16, r17 ;;
81: } { .mii; st8 [r32] = r19
82: (p6) cmp.leu p8, p9 = r16, r19
83: (p7) cmp.ltu p8, p9 = r16, r19 ;;
84: }
85: .pred.rel "mutex",p8,p9
86: { .mfi; (p8) mov r8 = 1
87: nop.f 0
88: (p9) mov r8 = 0
89: }
90: mov ar.lc = r2
91: br.ret.sptk.many b0
92: .Loopm:
93: .pred.rel "mutex",p6,p7
94: { .mii; mov r20 = r16
95: (p6) sub r19 = r16, r17, 1
96: (p7) sub r19 = r16, r17 ;;
97: } { .mfi; ld8 r16 = [r33], 8
98: nop.f 0
99: (p6) cmp.leu p8, p9 = r20, r19
100: } { .mfi; ld8 r17 = [r34], 8
101: nop.f 0
102: (p7) cmp.ltu p8, p9 = r20, r19
103: } { .mbb; st8 [r32] = r19, 8
104: nop.b 0
105: br.cloop.dptk .Loop ;;
106: }
107: .Lend:
108: .pred.rel "mutex",p8,p9
109: { .mfi; (p8) sub r19 = r16, r17, 1
110: nop.f 0
111: (p9) sub r19 = r16, r17 ;;
112: } { .mii; st8 [r32] = r19
113: (p8) cmp.leu p6, p7 = r16, r19
114: (p9) cmp.ltu p6, p7 = r16, r19 ;;
115: }
116: .pred.rel "mutex",p6,p7
117: { .mfi; (p6) mov r8 = 1
118: nop.f 0
119: (p7) mov r8 = 0
120: }
121: mov ar.lc = r2
122: br.ret.sptk.many b0
123: EPILOGUE(mpn_sub_n)
124: ASM_END()