← Back to branch summary

~ubuntu-branches/ubuntu/wily/luatex/wily

« back to all changes in this revision

Viewing changes to source/libs/zlib/zlib-1.2.3/contrib/masmx64/inffasx64.asm

  • Committer: Bazaar Package Importer
  • Author(s): Norbert Preining
  • Date: 2010-04-29 00:47:19 UTC
  • mfrom: (1.1.10 upstream)
  • Revision ID: james.westby@ubuntu.com-20100429004719-o42etkqe90n97b9e
Tags: 0.60.1-1
* new upstream release, adapt build-script patch
* disable patch: upstream-epstopdf_cc_no_xpdf_patching, included upstream
* disable patch: libpoppler-0.12, not needed anymore

Show diffs side-by-side

added added

removed removed

Lines of Context:
source/libs/zlib/zlib-1.2.3/contrib/masmx64/inffasx64.asm
 
1
; inffasx64.asm is a hand tuned assembler version of inffast.c - fast decoding
 
2
; version for AMD64 on Windows using Microsoft C compiler
 
3
;
 
4
; inffasx64.asm is automatically convert from AMD64 portion of inffas86.c
 
5
; inffasx64.asm is called by inffas8664.c, which contain more info.
 
6
 
 
7
 
 
8
; to compile this file, I use option
 
9
;   ml64.exe /Flinffasx64 /c /Zi inffasx64.asm
 
10
;   with Microsoft Macro Assembler (x64) for AMD64
 
11
;
 
12
;   ml64.exe is given with Visual Studio 2005, Windows 2003 server DDK
 
13
;
 
14
;   (you can get Windows 2003 server DDK with ml64 and cl.exe for AMD64 from 
 
15
;      http://www.microsoft.com/whdc/devtools/ddk/default.mspx for low price)
 
16
;
 
17
 
 
18
.code
 
19
inffas8664fnc PROC
 
20
 
 
21
; see http://weblogs.asp.net/oldnewthing/archive/2004/01/14/58579.aspx and
 
22
; http://msdn.microsoft.com/library/en-us/kmarch/hh/kmarch/64bitAMD_8e951dd2-ee77-4728-8702-55ce4b5dd24a.xml.asp
 
23
;
 
24
; All registers must be preserved across the call, except for
 
25
;   rax, rcx, rdx, r8, r-9, r10, and r11, which are scratch.
 
26
 
 
27
 
 
28
        mov [rsp-8],rsi
 
29
        mov [rsp-16],rdi
 
30
        mov [rsp-24],r12
 
31
        mov [rsp-32],r13
 
32
        mov [rsp-40],r14
 
33
        mov [rsp-48],r15
 
34
        mov [rsp-56],rbx
 
35
 
 
36
        mov rax,rcx
 
37
 
 
38
        mov     [rax+8], rbp       ; /* save regs rbp and rsp */
 
39
        mov     [rax], rsp
 
40
 
 
41
        mov     rsp, rax          ; /* make rsp point to &ar */
 
42
 
 
43
        mov     rsi, [rsp+16]      ; /* rsi  = in */
 
44
        mov     rdi, [rsp+32]      ; /* rdi  = out */
 
45
        mov     r9, [rsp+24]       ; /* r9   = last */
 
46
        mov     r10, [rsp+48]      ; /* r10  = end */
 
47
        mov     rbp, [rsp+64]      ; /* rbp  = lcode */
 
48
        mov     r11, [rsp+72]      ; /* r11  = dcode */
 
49
        mov     rdx, [rsp+80]      ; /* rdx  = hold */
 
50
        mov     ebx, [rsp+88]      ; /* ebx  = bits */
 
51
        mov     r12d, [rsp+100]    ; /* r12d = lmask */
 
52
        mov     r13d, [rsp+104]    ; /* r13d = dmask */
 
53
                                          ; /* r14d = len */
 
54
                                          ; /* r15d = dist */
 
55
 
 
56
 
 
57
        cld
 
58
        cmp     r10, rdi
 
59
        je      L_one_time           ; /* if only one decode left */
 
60
        cmp     r9, rsi
 
61
 
 
62
    jne L_do_loop
 
63
 
 
64
 
 
65
L_one_time:
 
66
        mov     r8, r12           ; /* r8 = lmask */
 
67
        cmp     bl, 32
 
68
        ja      L_get_length_code_one_time
 
69
 
 
70
        lodsd                         ; /* eax = *(uint *)in++ */
 
71
        mov     cl, bl            ; /* cl = bits, needs it for shifting */
 
72
        add     bl, 32             ; /* bits += 32 */
 
73
        shl     rax, cl
 
74
        or      rdx, rax          ; /* hold |= *((uint *)in)++ << bits */
 
75
        jmp     L_get_length_code_one_time
 
76
 
 
77
ALIGN 4
 
78
L_while_test:
 
79
        cmp     r10, rdi
 
80
        jbe     L_break_loop
 
81
        cmp     r9, rsi
 
82
        jbe     L_break_loop
 
83
 
 
84
L_do_loop:
 
85
        mov     r8, r12           ; /* r8 = lmask */
 
86
        cmp     bl, 32
 
87
        ja      L_get_length_code    ; /* if (32 < bits) */
 
88
 
 
89
        lodsd                         ; /* eax = *(uint *)in++ */
 
90
        mov     cl, bl            ; /* cl = bits, needs it for shifting */
 
91
        add     bl, 32             ; /* bits += 32 */
 
92
        shl     rax, cl
 
93
        or      rdx, rax          ; /* hold |= *((uint *)in)++ << bits */
 
94
 
 
95
L_get_length_code:
 
96
        and     r8, rdx            ; /* r8 &= hold */
 
97
        mov     eax, [rbp+r8*4]  ; /* eax = lcode[hold & lmask] */
 
98
 
 
99
        mov     cl, ah            ; /* cl = this.bits */
 
100
        sub     bl, ah            ; /* bits -= this.bits */
 
101
        shr     rdx, cl           ; /* hold >>= this.bits */
 
102
 
 
103
        test    al, al
 
104
        jnz     L_test_for_length_base ; /* if (op != 0) 45.7% */
 
105
 
 
106
        mov     r8, r12            ; /* r8 = lmask */
 
107
        shr     eax, 16            ; /* output this.val char */
 
108
        stosb
 
109
 
 
110
L_get_length_code_one_time:
 
111
        and     r8, rdx            ; /* r8 &= hold */
 
112
        mov     eax, [rbp+r8*4] ; /* eax = lcode[hold & lmask] */
 
113
 
 
114
L_dolen:
 
115
        mov     cl, ah            ; /* cl = this.bits */
 
116
        sub     bl, ah            ; /* bits -= this.bits */
 
117
        shr     rdx, cl           ; /* hold >>= this.bits */
 
118
 
 
119
        test    al, al
 
120
        jnz     L_test_for_length_base ; /* if (op != 0) 45.7% */
 
121
 
 
122
        shr     eax, 16            ; /* output this.val char */
 
123
        stosb
 
124
        jmp     L_while_test
 
125
 
 
126
ALIGN 4
 
127
L_test_for_length_base:
 
128
        mov     r14d, eax         ; /* len = this */
 
129
        shr     r14d, 16           ; /* len = this.val */
 
130
        mov     cl, al
 
131
 
 
132
        test    al, 16
 
133
        jz      L_test_for_second_level_length ; /* if ((op & 16) == 0) 8% */
 
134
        and     cl, 15             ; /* op &= 15 */
 
135
        jz      L_decode_distance    ; /* if (!op) */
 
136
 
 
137
L_add_bits_to_len:
 
138
        sub     bl, cl
 
139
        xor     eax, eax
 
140
        inc     eax
 
141
        shl     eax, cl
 
142
        dec     eax
 
143
        and     eax, edx          ; /* eax &= hold */
 
144
        shr     rdx, cl
 
145
        add     r14d, eax         ; /* len += hold & mask[op] */
 
146
 
 
147
L_decode_distance:
 
148
        mov     r8, r13           ; /* r8 = dmask */
 
149
        cmp     bl, 32
 
150
        ja      L_get_distance_code  ; /* if (32 < bits) */
 
151
 
 
152
        lodsd                         ; /* eax = *(uint *)in++ */
 
153
        mov     cl, bl            ; /* cl = bits, needs it for shifting */
 
154
        add     bl, 32             ; /* bits += 32 */
 
155
        shl     rax, cl
 
156
        or      rdx, rax          ; /* hold |= *((uint *)in)++ << bits */
 
157
 
 
158
L_get_distance_code:
 
159
        and     r8, rdx           ; /* r8 &= hold */
 
160
        mov     eax, [r11+r8*4] ; /* eax = dcode[hold & dmask] */
 
161
 
 
162
L_dodist:
 
163
        mov     r15d, eax         ; /* dist = this */
 
164
        shr     r15d, 16           ; /* dist = this.val */
 
165
        mov     cl, ah
 
166
        sub     bl, ah            ; /* bits -= this.bits */
 
167
        shr     rdx, cl           ; /* hold >>= this.bits */
 
168
        mov     cl, al            ; /* cl = this.op */
 
169
 
 
170
        test    al, 16             ; /* if ((op & 16) == 0) */
 
171
        jz      L_test_for_second_level_dist
 
172
        and     cl, 15             ; /* op &= 15 */
 
173
        jz      L_check_dist_one
 
174
 
 
175
L_add_bits_to_dist:
 
176
        sub     bl, cl
 
177
        xor     eax, eax
 
178
        inc     eax
 
179
        shl     eax, cl
 
180
        dec     eax                 ; /* (1 << op) - 1 */
 
181
        and     eax, edx          ; /* eax &= hold */
 
182
        shr     rdx, cl
 
183
        add     r15d, eax         ; /* dist += hold & ((1 << op) - 1) */
 
184
 
 
185
L_check_window:
 
186
        mov     r8, rsi           ; /* save in so from can use it's reg */
 
187
        mov     rax, rdi
 
188
        sub     rax, [rsp+40]      ; /* nbytes = out - beg */
 
189
 
 
190
        cmp     eax, r15d
 
191
        jb      L_clip_window        ; /* if (dist > nbytes) 4.2% */
 
192
 
 
193
        mov     ecx, r14d         ; /* ecx = len */
 
194
        mov     rsi, rdi
 
195
        sub     rsi, r15          ; /* from = out - dist */
 
196
 
 
197
        sar     ecx, 1
 
198
        jnc     L_copy_two           ; /* if len % 2 == 0 */
 
199
 
 
200
        rep     movsw
 
201
        mov     al, [rsi]
 
202
        mov     [rdi], al
 
203
        inc     rdi
 
204
 
 
205
        mov     rsi, r8           ; /* move in back to %rsi, toss from */
 
206
        jmp     L_while_test
 
207
 
 
208
L_copy_two:
 
209
        rep     movsw
 
210
        mov     rsi, r8           ; /* move in back to %rsi, toss from */
 
211
        jmp     L_while_test
 
212
 
 
213
ALIGN 4
 
214
L_check_dist_one:
 
215
        cmp     r15d, 1            ; /* if dist 1, is a memset */
 
216
        jne     L_check_window
 
217
        cmp     [rsp+40], rdi      ; /* if out == beg, outside window */
 
218
        je      L_check_window
 
219
 
 
220
        mov     ecx, r14d         ; /* ecx = len */
 
221
        mov     al, [rdi-1]
 
222
        mov     ah, al
 
223
 
 
224
        sar     ecx, 1
 
225
        jnc     L_set_two
 
226
        mov     [rdi], al
 
227
        inc     rdi
 
228
 
 
229
L_set_two:
 
230
        rep     stosw
 
231
        jmp     L_while_test
 
232
 
 
233
ALIGN 4
 
234
L_test_for_second_level_length:
 
235
        test    al, 64
 
236
        jnz     L_test_for_end_of_block ; /* if ((op & 64) != 0) */
 
237
 
 
238
        xor     eax, eax
 
239
        inc     eax
 
240
        shl     eax, cl
 
241
        dec     eax
 
242
        and     eax, edx         ; /* eax &= hold */
 
243
        add     eax, r14d        ; /* eax += len */
 
244
        mov     eax, [rbp+rax*4] ; /* eax = lcode[val+(hold&mask[op])]*/
 
245
        jmp     L_dolen
 
246
 
 
247
ALIGN 4
 
248
L_test_for_second_level_dist:
 
249
        test    al, 64
 
250
        jnz     L_invalid_distance_code ; /* if ((op & 64) != 0) */
 
251
 
 
252
        xor     eax, eax
 
253
        inc     eax
 
254
        shl     eax, cl
 
255
        dec     eax
 
256
        and     eax, edx         ; /* eax &= hold */
 
257
        add     eax, r15d        ; /* eax += dist */
 
258
        mov     eax, [r11+rax*4] ; /* eax = dcode[val+(hold&mask[op])]*/
 
259
        jmp     L_dodist
 
260
 
 
261
ALIGN 4
 
262
L_clip_window:
 
263
        mov     ecx, eax         ; /* ecx = nbytes */
 
264
        mov     eax, [rsp+92]     ; /* eax = wsize, prepare for dist cmp */
 
265
        neg     ecx                ; /* nbytes = -nbytes */
 
266
 
 
267
        cmp     eax, r15d
 
268
        jb      L_invalid_distance_too_far ; /* if (dist > wsize) */
 
269
 
 
270
        add     ecx, r15d         ; /* nbytes = dist - nbytes */
 
271
        cmp     dword ptr [rsp+96], 0
 
272
        jne     L_wrap_around_window ; /* if (write != 0) */
 
273
 
 
274
        mov     rsi, [rsp+56]     ; /* from  = window */
 
275
        sub     eax, ecx         ; /* eax  -= nbytes */
 
276
        add     rsi, rax         ; /* from += wsize - nbytes */
 
277
 
 
278
        mov     eax, r14d        ; /* eax = len */
 
279
        cmp     r14d, ecx
 
280
        jbe     L_do_copy           ; /* if (nbytes >= len) */
 
281
 
 
282
        sub     eax, ecx         ; /* eax -= nbytes */
 
283
        rep     movsb
 
284
        mov     rsi, rdi
 
285
        sub     rsi, r15         ; /* from = &out[ -dist ] */
 
286
        jmp     L_do_copy
 
287
 
 
288
ALIGN 4
 
289
L_wrap_around_window:
 
290
        mov     eax, [rsp+96]     ; /* eax = write */
 
291
        cmp     ecx, eax
 
292
        jbe     L_contiguous_in_window ; /* if (write >= nbytes) */
 
293
 
 
294
        mov     esi, [rsp+92]     ; /* from  = wsize */
 
295
        add     rsi, [rsp+56]     ; /* from += window */
 
296
        add     rsi, rax         ; /* from += write */
 
297
        sub     rsi, rcx         ; /* from -= nbytes */
 
298
        sub     ecx, eax         ; /* nbytes -= write */
 
299
 
 
300
        mov     eax, r14d        ; /* eax = len */
 
301
        cmp     eax, ecx
 
302
        jbe     L_do_copy           ; /* if (nbytes >= len) */
 
303
 
 
304
        sub     eax, ecx         ; /* len -= nbytes */
 
305
        rep     movsb
 
306
        mov     rsi, [rsp+56]     ; /* from = window */
 
307
        mov     ecx, [rsp+96]     ; /* nbytes = write */
 
308
        cmp     eax, ecx
 
309
        jbe     L_do_copy           ; /* if (nbytes >= len) */
 
310
 
 
311
        sub     eax, ecx         ; /* len -= nbytes */
 
312
        rep     movsb
 
313
        mov     rsi, rdi
 
314
        sub     rsi, r15         ; /* from = out - dist */
 
315
        jmp     L_do_copy
 
316
 
 
317
ALIGN 4
 
318
L_contiguous_in_window:
 
319
        mov     rsi, [rsp+56]     ; /* rsi = window */
 
320
        add     rsi, rax
 
321
        sub     rsi, rcx         ; /* from += write - nbytes */
 
322
 
 
323
        mov     eax, r14d        ; /* eax = len */
 
324
        cmp     eax, ecx
 
325
        jbe     L_do_copy           ; /* if (nbytes >= len) */
 
326
 
 
327
        sub     eax, ecx         ; /* len -= nbytes */
 
328
        rep     movsb
 
329
        mov     rsi, rdi
 
330
        sub     rsi, r15         ; /* from = out - dist */
 
331
        jmp     L_do_copy           ; /* if (nbytes >= len) */
 
332
 
 
333
ALIGN 4
 
334
L_do_copy:
 
335
        mov     ecx, eax         ; /* ecx = len */
 
336
        rep     movsb
 
337
 
 
338
        mov     rsi, r8          ; /* move in back to %esi, toss from */
 
339
        jmp     L_while_test
 
340
 
 
341
L_test_for_end_of_block:
 
342
        test    al, 32
 
343
        jz      L_invalid_literal_length_code
 
344
        mov     dword ptr [rsp+116], 1
 
345
        jmp     L_break_loop_with_status
 
346
 
 
347
L_invalid_literal_length_code:
 
348
        mov     dword ptr [rsp+116], 2
 
349
        jmp     L_break_loop_with_status
 
350
 
 
351
L_invalid_distance_code:
 
352
        mov     dword ptr [rsp+116], 3
 
353
        jmp     L_break_loop_with_status
 
354
 
 
355
L_invalid_distance_too_far:
 
356
        mov     dword ptr [rsp+116], 4
 
357
        jmp     L_break_loop_with_status
 
358
 
 
359
L_break_loop:
 
360
        mov     dword ptr [rsp+116], 0
 
361
 
 
362
L_break_loop_with_status:
 
363
; /* put in, out, bits, and hold back into ar and pop esp */
 
364
        mov     [rsp+16], rsi     ; /* in */
 
365
        mov     [rsp+32], rdi     ; /* out */
 
366
        mov     [rsp+88], ebx     ; /* bits */
 
367
        mov     [rsp+80], rdx     ; /* hold */
 
368
 
 
369
        mov     rax, [rsp]       ; /* restore rbp and rsp */
 
370
        mov     rbp, [rsp+8]
 
371
        mov     rsp, rax
 
372
 
 
373
 
 
374
 
 
375
        mov rsi,[rsp-8]
 
376
        mov rdi,[rsp-16]
 
377
        mov r12,[rsp-24]
 
378
        mov r13,[rsp-32]
 
379
        mov r14,[rsp-40]
 
380
        mov r15,[rsp-48]
 
381
        mov rbx,[rsp-56]
 
382
        
 
383
    ret 0
 
384
;          :
 
385
;          : "m" (ar)
 
386
;          : "memory", "%rax", "%rbx", "%rcx", "%rdx", "%rsi", "%rdi",
 
387
;            "%r8", "%r9", "%r10", "%r11", "%r12", "%r13", "%r14", "%r15"
 
388
;    );
 
389
 
 
390
inffas8664fnc   ENDP
 
391
;_TEXT  ENDS
 
392
END