Blame


1 a25e7f2f 2004-04-21 devnull .text
2 a25e7f2f 2004-04-21 devnull
3 a25e7f2f 2004-04-21 devnull .p2align 2,0x90
4 54b59fd1 2006-04-21 devnull #ifdef __Darwin__
5 54b59fd1 2006-04-21 devnull .globl __sha1block
6 54b59fd1 2006-04-21 devnull __sha1block:
7 54b59fd1 2006-04-21 devnull #else
8 a25e7f2f 2004-04-21 devnull .globl _sha1block
9 a25e7f2f 2004-04-21 devnull _sha1block:
10 54b59fd1 2006-04-21 devnull #endif
11 a25e7f2f 2004-04-21 devnull
12 a25e7f2f 2004-04-21 devnull /* x = (wp[off-f] ^ wp[off-8] ^ wp[off-14] ^ wp[off-16]) <<< 1;
13 a25e7f2f 2004-04-21 devnull * wp[off] = x;
14 a25e7f2f 2004-04-21 devnull * x += A <<< 5;
15 a25e7f2f 2004-04-21 devnull * E += 0xca62c1d6 + x;
16 a25e7f2f 2004-04-21 devnull * x = FN(B,C,D);
17 a25e7f2f 2004-04-21 devnull * E += x;
18 a25e7f2f 2004-04-21 devnull * B >>> 2
19 a25e7f2f 2004-04-21 devnull */
20 a25e7f2f 2004-04-21 devnull #define BSWAPDI BYTE $0x0f; BYTE $0xcf;
21 a25e7f2f 2004-04-21 devnull
22 a25e7f2f 2004-04-21 devnull #define BODY(off,FN,V,A,B,C,D,E)\
23 a25e7f2f 2004-04-21 devnull movl (off-64)(%ebp), %edi;\
24 a25e7f2f 2004-04-21 devnull xorl (off-56)(%ebp), %edi;\
25 a25e7f2f 2004-04-21 devnull xorl (off-32)(%ebp), %edi;\
26 a25e7f2f 2004-04-21 devnull xorl (off-12)(%ebp), %edi;\
27 a25e7f2f 2004-04-21 devnull roll $1, %edi;\
28 a25e7f2f 2004-04-21 devnull movl %edi, off(%ebp);\
29 a25e7f2f 2004-04-21 devnull leal V(%edi, E, 1), E;\
30 a25e7f2f 2004-04-21 devnull movl A, %edi;\
31 a25e7f2f 2004-04-21 devnull roll $5, %edi;\
32 a25e7f2f 2004-04-21 devnull addl %edi, E;\
33 a25e7f2f 2004-04-21 devnull FN(B,C,D)\
34 a25e7f2f 2004-04-21 devnull addl %edi, E;\
35 a25e7f2f 2004-04-21 devnull rorl $2, B;\
36 a25e7f2f 2004-04-21 devnull
37 a25e7f2f 2004-04-21 devnull #define BODY0(off,FN,V,A,B,C,D,E)\
38 a25e7f2f 2004-04-21 devnull movl off(%ebx), %edi;\
39 a25e7f2f 2004-04-21 devnull bswap %edi;\
40 a25e7f2f 2004-04-21 devnull movl %edi, off(%ebp);\
41 a25e7f2f 2004-04-21 devnull leal V(%edi,E,1), E;\
42 a25e7f2f 2004-04-21 devnull movl A, %edi;\
43 a25e7f2f 2004-04-21 devnull roll $5,%edi;\
44 a25e7f2f 2004-04-21 devnull addl %edi,E;\
45 a25e7f2f 2004-04-21 devnull FN(B,C,D)\
46 a25e7f2f 2004-04-21 devnull addl %edi,E;\
47 a25e7f2f 2004-04-21 devnull rorl $2,B;\
48 a25e7f2f 2004-04-21 devnull
49 a25e7f2f 2004-04-21 devnull /*
50 a25e7f2f 2004-04-21 devnull * fn1 = (((C^D)&B)^D);
51 a25e7f2f 2004-04-21 devnull */
52 a25e7f2f 2004-04-21 devnull #define FN1(B,C,D)\
53 a25e7f2f 2004-04-21 devnull movl C, %edi;\
54 a25e7f2f 2004-04-21 devnull xorl D, %edi;\
55 a25e7f2f 2004-04-21 devnull andl B, %edi;\
56 a25e7f2f 2004-04-21 devnull xorl D, %edi;\
57 a25e7f2f 2004-04-21 devnull
58 a25e7f2f 2004-04-21 devnull /*
59 a25e7f2f 2004-04-21 devnull * fn24 = B ^ C ^ D
60 a25e7f2f 2004-04-21 devnull */
61 a25e7f2f 2004-04-21 devnull #define FN24(B,C,D)\
62 a25e7f2f 2004-04-21 devnull movl B, %edi;\
63 a25e7f2f 2004-04-21 devnull xorl C, %edi;\
64 a25e7f2f 2004-04-21 devnull xorl D, %edi;\
65 a25e7f2f 2004-04-21 devnull
66 a25e7f2f 2004-04-21 devnull /*
67 a25e7f2f 2004-04-21 devnull * fn3 = ((B ^ C) & (D ^= B)) ^ B
68 a25e7f2f 2004-04-21 devnull * D ^= B to restore D
69 a25e7f2f 2004-04-21 devnull */
70 a25e7f2f 2004-04-21 devnull #define FN3(B,C,D)\
71 a25e7f2f 2004-04-21 devnull movl B, %edi;\
72 a25e7f2f 2004-04-21 devnull xorl C, %edi;\
73 a25e7f2f 2004-04-21 devnull xorl B, D;\
74 a25e7f2f 2004-04-21 devnull andl D, %edi;\
75 a25e7f2f 2004-04-21 devnull xorl B, %edi;\
76 a25e7f2f 2004-04-21 devnull xorl B, D;\
77 a25e7f2f 2004-04-21 devnull
78 a25e7f2f 2004-04-21 devnull /*
79 a25e7f2f 2004-04-21 devnull * stack offsets
80 a25e7f2f 2004-04-21 devnull * void sha1block(uchar *DATA, int LEN, ulong *STATE)
81 a25e7f2f 2004-04-21 devnull */
82 2f05c0e8 2004-05-09 devnull #define STACKSIZE (48+80*4)
83 2f05c0e8 2004-05-09 devnull #define DATA (STACKSIZE+8)
84 2f05c0e8 2004-05-09 devnull #define LEN (STACKSIZE+12)
85 2f05c0e8 2004-05-09 devnull #define STATE (STACKSIZE+16)
86 a25e7f2f 2004-04-21 devnull
87 a25e7f2f 2004-04-21 devnull /*
88 a25e7f2f 2004-04-21 devnull * stack offsets for locals
89 a25e7f2f 2004-04-21 devnull * ulong w[80];
90 a25e7f2f 2004-04-21 devnull * uchar *edata;
91 a25e7f2f 2004-04-21 devnull * ulong *w15, *w40, *w60, *w80;
92 a25e7f2f 2004-04-21 devnull * register local
93 a25e7f2f 2004-04-21 devnull * ulong *wp = %ebp
94 a25e7f2f 2004-04-21 devnull * ulong a = eax, b = ebx, c = ecx, d = edx, e = esi
95 a25e7f2f 2004-04-21 devnull * ulong tmp = edi
96 a25e7f2f 2004-04-21 devnull */
97 2f05c0e8 2004-05-09 devnull #define WARRAY (STACKSIZE-4-(80*4))
98 2f05c0e8 2004-05-09 devnull #define TMP1 (STACKSIZE-8-(80*4))
99 2f05c0e8 2004-05-09 devnull #define TMP2 (STACKSIZE-12-(80*4))
100 2f05c0e8 2004-05-09 devnull #define W15 (STACKSIZE-16-(80*4))
101 2f05c0e8 2004-05-09 devnull #define W40 (STACKSIZE-20-(80*4))
102 2f05c0e8 2004-05-09 devnull #define W60 (STACKSIZE-24-(80*4))
103 2f05c0e8 2004-05-09 devnull #define W80 (STACKSIZE-28-(80*4))
104 2f05c0e8 2004-05-09 devnull #define EDATA (STACKSIZE-32-(80*4))
105 2f05c0e8 2004-05-09 devnull #define OLDEBX (STACKSIZE-36-(80*4))
106 2f05c0e8 2004-05-09 devnull #define OLDESI (STACKSIZE-40-(80*4))
107 2f05c0e8 2004-05-09 devnull #define OLDEDI (STACKSIZE-44-(80*4))
108 a25e7f2f 2004-04-21 devnull
109 a25e7f2f 2004-04-21 devnull /* Prelude */
110 a25e7f2f 2004-04-21 devnull pushl %ebp
111 2f05c0e8 2004-05-09 devnull subl $(STACKSIZE), %esp
112 2f05c0e8 2004-05-09 devnull
113 a25e7f2f 2004-04-21 devnull mov %ebx, OLDEBX(%esp)
114 a25e7f2f 2004-04-21 devnull mov %esi, OLDESI(%esp)
115 a25e7f2f 2004-04-21 devnull mov %edi, OLDEDI(%esp)
116 a25e7f2f 2004-04-21 devnull
117 a25e7f2f 2004-04-21 devnull movl DATA(%esp), %eax
118 a25e7f2f 2004-04-21 devnull addl LEN(%esp), %eax
119 a25e7f2f 2004-04-21 devnull movl %eax, EDATA(%esp)
120 a25e7f2f 2004-04-21 devnull
121 a25e7f2f 2004-04-21 devnull leal (WARRAY+15*4)(%esp), %edi /* aw15 */
122 a25e7f2f 2004-04-21 devnull movl %edi, W15(%esp)
123 a25e7f2f 2004-04-21 devnull leal (WARRAY+40*4)(%esp), %edx /* aw40 */
124 a25e7f2f 2004-04-21 devnull movl %edx, W40(%esp)
125 a25e7f2f 2004-04-21 devnull leal (WARRAY+60*4)(%esp), %ecx /* aw60 */
126 a25e7f2f 2004-04-21 devnull movl %ecx, W60(%esp)
127 a25e7f2f 2004-04-21 devnull leal (WARRAY+80*4)(%esp), %edi /* aw80 */
128 a25e7f2f 2004-04-21 devnull movl %edi, W80(%esp)
129 a25e7f2f 2004-04-21 devnull
130 6a4599d7 2005-05-12 devnull 0:
131 a25e7f2f 2004-04-21 devnull leal WARRAY(%esp), %ebp /* warray */
132 a25e7f2f 2004-04-21 devnull
133 a25e7f2f 2004-04-21 devnull movl STATE(%esp), %edi /* state */
134 a25e7f2f 2004-04-21 devnull movl (%edi),%eax
135 a25e7f2f 2004-04-21 devnull movl 4(%edi),%ebx
136 a25e7f2f 2004-04-21 devnull movl %ebx, TMP1(%esp) /* tmp1 */
137 a25e7f2f 2004-04-21 devnull movl 8(%edi), %ecx
138 a25e7f2f 2004-04-21 devnull movl 12(%edi), %edx
139 a25e7f2f 2004-04-21 devnull movl 16(%edi), %esi
140 a25e7f2f 2004-04-21 devnull
141 a25e7f2f 2004-04-21 devnull movl DATA(%esp), %ebx /* data */
142 a25e7f2f 2004-04-21 devnull
143 6a4599d7 2005-05-12 devnull 1:
144 a25e7f2f 2004-04-21 devnull BODY0(0,FN1,0x5a827999,%eax,TMP1(%esp),%ecx,%edx,%esi)
145 a25e7f2f 2004-04-21 devnull movl %esi,TMP2(%esp)
146 a25e7f2f 2004-04-21 devnull BODY0(4,FN1,0x5a827999,%esi,%eax,TMP1(%esp),%ecx,%edx)
147 a25e7f2f 2004-04-21 devnull movl TMP1(%esp),%esi
148 a25e7f2f 2004-04-21 devnull BODY0(8,FN1,0x5a827999,%edx,TMP2(%esp),%eax,%esi,%ecx)
149 a25e7f2f 2004-04-21 devnull BODY0(12,FN1,0x5a827999,%ecx,%edx,TMP2(%esp),%eax,%esi)
150 a25e7f2f 2004-04-21 devnull movl %esi,TMP1(%esp)
151 a25e7f2f 2004-04-21 devnull BODY0(16,FN1,0x5a827999,%esi,%ecx,%edx,TMP2(%esp),%eax)
152 a25e7f2f 2004-04-21 devnull movl TMP2(%esp),%esi
153 a25e7f2f 2004-04-21 devnull
154 a25e7f2f 2004-04-21 devnull addl $20, %ebx
155 a25e7f2f 2004-04-21 devnull addl $20, %ebp
156 a25e7f2f 2004-04-21 devnull cmpl W15(%esp), %ebp /* w15 */
157 6a4599d7 2005-05-12 devnull jb 1b
158 a25e7f2f 2004-04-21 devnull
159 a25e7f2f 2004-04-21 devnull BODY0(0,FN1,0x5a827999,%eax,TMP1(%esp),%ecx,%edx,%esi)
160 a25e7f2f 2004-04-21 devnull addl $4, %ebx
161 a25e7f2f 2004-04-21 devnull MOVL %ebx, DATA(%esp) /* data */
162 a25e7f2f 2004-04-21 devnull MOVL TMP1(%esp),%ebx
163 a25e7f2f 2004-04-21 devnull
164 a25e7f2f 2004-04-21 devnull BODY(4,FN1,0x5a827999,%esi,%eax,%ebx,%ecx,%edx)
165 a25e7f2f 2004-04-21 devnull BODY(8,FN1,0x5a827999,%edx,%esi,%eax,%ebx,%ecx)
166 a25e7f2f 2004-04-21 devnull BODY(12,FN1,0x5a827999,%ecx,%edx,%esi,%eax,%ebx)
167 a25e7f2f 2004-04-21 devnull BODY(16,FN1,0x5a827999,%ebx,%ecx,%edx,%esi,%eax)
168 a25e7f2f 2004-04-21 devnull
169 a25e7f2f 2004-04-21 devnull addl $20, %ebp
170 a25e7f2f 2004-04-21 devnull
171 6a4599d7 2005-05-12 devnull 2:
172 a25e7f2f 2004-04-21 devnull BODY(0,FN24,0x6ed9eba1,%eax,%ebx,%ecx,%edx,%esi)
173 a25e7f2f 2004-04-21 devnull BODY(4,FN24,0x6ed9eba1,%esi,%eax,%ebx,%ecx,%edx)
174 a25e7f2f 2004-04-21 devnull BODY(8,FN24,0x6ed9eba1,%edx,%esi,%eax,%ebx,%ecx)
175 a25e7f2f 2004-04-21 devnull BODY(12,FN24,0x6ed9eba1,%ecx,%edx,%esi,%eax,%ebx)
176 a25e7f2f 2004-04-21 devnull BODY(16,FN24,0x6ed9eba1,%ebx,%ecx,%edx,%esi,%eax)
177 a25e7f2f 2004-04-21 devnull
178 a25e7f2f 2004-04-21 devnull addl $20,%ebp
179 a25e7f2f 2004-04-21 devnull cmpl W40(%esp), %ebp
180 6a4599d7 2005-05-12 devnull jb 2b
181 a25e7f2f 2004-04-21 devnull
182 6a4599d7 2005-05-12 devnull 3:
183 a25e7f2f 2004-04-21 devnull BODY(0,FN3,0x8f1bbcdc,%eax,%ebx,%ecx,%edx,%esi)
184 a25e7f2f 2004-04-21 devnull BODY(4,FN3,0x8f1bbcdc,%esi,%eax,%ebx,%ecx,%edx)
185 a25e7f2f 2004-04-21 devnull BODY(8,FN3,0x8f1bbcdc,%edx,%esi,%eax,%ebx,%ecx)
186 a25e7f2f 2004-04-21 devnull BODY(12,FN3,0x8f1bbcdc,%ecx,%edx,%esi,%eax,%ebx)
187 a25e7f2f 2004-04-21 devnull BODY(16,FN3,0x8f1bbcdc,%ebx,%ecx,%edx,%esi,%eax)
188 a25e7f2f 2004-04-21 devnull
189 a25e7f2f 2004-04-21 devnull addl $20, %ebp
190 a25e7f2f 2004-04-21 devnull cmpl W60(%esp), %ebp /* w60 */
191 6a4599d7 2005-05-12 devnull jb 3b
192 a25e7f2f 2004-04-21 devnull
193 6a4599d7 2005-05-12 devnull 4:
194 a25e7f2f 2004-04-21 devnull BODY(0,FN24,0xca62c1d6,%eax,%ebx,%ecx,%edx,%esi)
195 a25e7f2f 2004-04-21 devnull BODY(4,FN24,0xca62c1d6,%esi,%eax,%ebx,%ecx,%edx)
196 a25e7f2f 2004-04-21 devnull BODY(8,FN24,0xca62c1d6,%edx,%esi,%eax,%ebx,%ecx)
197 a25e7f2f 2004-04-21 devnull BODY(12,FN24,0xca62c1d6,%ecx,%edx,%esi,%eax,%ebx)
198 a25e7f2f 2004-04-21 devnull BODY(16,FN24,0xca62c1d6,%ebx,%ecx,%edx,%esi,%eax)
199 a25e7f2f 2004-04-21 devnull
200 a25e7f2f 2004-04-21 devnull addl $20, %ebp
201 a25e7f2f 2004-04-21 devnull cmpl W80(%esp), %ebp /* w80 */
202 6a4599d7 2005-05-12 devnull jb 4b
203 a25e7f2f 2004-04-21 devnull
204 a25e7f2f 2004-04-21 devnull movl STATE(%esp), %edi /* state */
205 a25e7f2f 2004-04-21 devnull addl %eax, 0(%edi)
206 a25e7f2f 2004-04-21 devnull addl %ebx, 4(%edi)
207 a25e7f2f 2004-04-21 devnull addl %ecx, 8(%edi)
208 a25e7f2f 2004-04-21 devnull addl %edx, 12(%edi)
209 a25e7f2f 2004-04-21 devnull addl %esi, 16(%edi)
210 a25e7f2f 2004-04-21 devnull
211 a25e7f2f 2004-04-21 devnull movl EDATA(%esp), %edi /* edata */
212 a25e7f2f 2004-04-21 devnull cmpl %edi, DATA(%esp) /* data */
213 6a4599d7 2005-05-12 devnull jb 0b
214 a25e7f2f 2004-04-21 devnull
215 a25e7f2f 2004-04-21 devnull /* Postlude */
216 a25e7f2f 2004-04-21 devnull mov OLDEBX(%esp), %ebx
217 a25e7f2f 2004-04-21 devnull mov OLDESI(%esp), %esi
218 a25e7f2f 2004-04-21 devnull mov OLDEDI(%esp), %edi
219 2f05c0e8 2004-05-09 devnull addl $(STACKSIZE), %esp
220 2f05c0e8 2004-05-09 devnull popl %ebp
221 a25e7f2f 2004-04-21 devnull ret