![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to lshift.s CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gmp / mpn / alpha / ev5|
Return to lshift.s CVS log | Up to [local] / OpenXM_contrib / gmp / mpn / alpha / ev5 |
1.1 maekawa 1: # Alpha EV5 __mpn_lshift --
2:
3: # Copyright (C) 1994, 1995 Free Software Foundation, Inc.
4:
5: # This file is part of the GNU MP Library.
6:
7: # The GNU MP Library is free software; you can redistribute it and/or modify
8: # it under the terms of the GNU Library General Public License as published by
9: # the Free Software Foundation; either version 2 of the License, or (at your
10: # option) any later version.
11:
12: # The GNU MP Library is distributed in the hope that it will be useful, but
13: # WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
14: # or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public
15: # License for more details.
16:
17: # You should have received a copy of the GNU Library General Public License
18: # along with the GNU MP Library; see the file COPYING.LIB. If not, write to
19: # the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
20: # MA 02111-1307, USA.
21:
22:
23: # INPUT PARAMETERS
24: # res_ptr r16
25: # s1_ptr r17
26: # size r18
27: # cnt r19
28:
29: # This code runs at 3.25 cycles/limb on the EV5.
30:
31: .set noreorder
32: .set noat
33: .text
34: .align 3
35: .globl __mpn_lshift
36: .ent __mpn_lshift
37: __mpn_lshift:
38: .frame $30,0,$26,0
39:
40: s8addq $18,$17,$17 # make r17 point at end of s1
41: ldq $4,-8($17) # load first limb
42: subq $31,$19,$20
43: s8addq $18,$16,$16 # make r16 point at end of RES
44: subq $18,1,$18
45: and $18,4-1,$28 # number of limbs in first loop
46: srl $4,$20,$0 # compute function result
47:
48: beq $28,.L0
49: subq $18,$28,$18
50:
51: .align 3
52: .Loop0: ldq $3,-16($17)
53: subq $16,8,$16
54: sll $4,$19,$5
55: subq $17,8,$17
56: subq $28,1,$28
57: srl $3,$20,$6
58: or $3,$3,$4
59: or $5,$6,$8
60: stq $8,0($16)
61: bne $28,.Loop0
62:
63: .L0: sll $4,$19,$24
64: beq $18,.Lend
65: # warm up phase 1
66: ldq $1,-16($17)
67: subq $18,4,$18
68: ldq $2,-24($17)
69: ldq $3,-32($17)
70: ldq $4,-40($17)
71: beq $18,.Lend1
72: # warm up phase 2
73: srl $1,$20,$7
74: sll $1,$19,$21
75: srl $2,$20,$8
76: ldq $1,-48($17)
77: sll $2,$19,$22
78: ldq $2,-56($17)
79: srl $3,$20,$5
80: or $7,$24,$7
81: sll $3,$19,$23
82: or $8,$21,$8
83: srl $4,$20,$6
84: ldq $3,-64($17)
85: sll $4,$19,$24
86: ldq $4,-72($17)
87: subq $18,4,$18
88: beq $18,.Lend2
89: .align 4
90: # main loop
91: .Loop: stq $7,-8($16)
92: or $5,$22,$5
93: stq $8,-16($16)
94: or $6,$23,$6
95:
96: srl $1,$20,$7
97: subq $18,4,$18
98: sll $1,$19,$21
99: unop # ldq $31,-96($17)
100:
101: srl $2,$20,$8
102: ldq $1,-80($17)
103: sll $2,$19,$22
104: ldq $2,-88($17)
105:
106: stq $5,-24($16)
107: or $7,$24,$7
108: stq $6,-32($16)
109: or $8,$21,$8
110:
111: srl $3,$20,$5
112: unop # ldq $31,-96($17)
113: sll $3,$19,$23
114: subq $16,32,$16
115:
116: srl $4,$20,$6
117: ldq $3,-96($17)
118: sll $4,$19,$24
119: ldq $4,-104($17)
120:
121: subq $17,32,$17
122: bne $18,.Loop
123: # cool down phase 2/1
124: .Lend2: stq $7,-8($16)
125: or $5,$22,$5
126: stq $8,-16($16)
127: or $6,$23,$6
128: srl $1,$20,$7
129: sll $1,$19,$21
130: srl $2,$20,$8
131: sll $2,$19,$22
132: stq $5,-24($16)
133: or $7,$24,$7
134: stq $6,-32($16)
135: or $8,$21,$8
136: srl $3,$20,$5
137: sll $3,$19,$23
138: srl $4,$20,$6
139: sll $4,$19,$24
140: # cool down phase 2/2
141: stq $7,-40($16)
142: or $5,$22,$5
143: stq $8,-48($16)
144: or $6,$23,$6
145: stq $5,-56($16)
146: stq $6,-64($16)
147: # cool down phase 2/3
148: stq $24,-72($16)
149: ret $31,($26),1
150:
151: # cool down phase 1/1
152: .Lend1: srl $1,$20,$7
153: sll $1,$19,$21
154: srl $2,$20,$8
155: sll $2,$19,$22
156: srl $3,$20,$5
157: or $7,$24,$7
158: sll $3,$19,$23
159: or $8,$21,$8
160: srl $4,$20,$6
161: sll $4,$19,$24
162: # cool down phase 1/2
163: stq $7,-8($16)
164: or $5,$22,$5
165: stq $8,-16($16)
166: or $6,$23,$6
167: stq $5,-24($16)
168: stq $6,-32($16)
169: stq $24,-40($16)
170: ret $31,($26),1
171:
172: .Lend: stq $24,-8($16)
173: ret $31,($26),1
174: .end __mpn_lshift