1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
|
{ %cpu=i386 }
{ %opt=-Cg- }
{ Source provided for Free Pascal Bug Report 3577 }
{ Submitted by "Simon Kissel" on 2005-01-19 }
{ e-mail: scamp@untergrund.net }
{$mode delphi}
procedure IntCopy16;
asm
MOV EAX,[ESI]
MOV [EDI],EAX
MOV EAX,[ESI+4]
MOV [EDI+4],EAX
MOV EAX,[ESI+8]
MOV [EDI+8],EAX
MOV EAX,[ESI+12]
MOV [EDI+12],EAX
MOV EAX,[ESI+16]
MOV [EDI+16],EAX
MOV EAX,[ESI+20]
MOV [EDI+20],EAX
MOV EAX,[ESI+24]
MOV [EDI+24],EAX
MOV EAX,[ESI+28]
MOV [EDI+28],EAX
MOV EAX,[ESI+32]
MOV [EDI+32],EAX
MOV EAX,[ESI+36]
MOV [EDI+36],EAX
MOV EAX,[ESI+40]
MOV [EDI+40],EAX
MOV EAX,[ESI+44]
MOV [EDI+44],EAX
MOV EAX,[ESI+48]
MOV [EDI+48],EAX
MOV EAX,[ESI+52]
MOV [EDI+52],EAX
MOV EAX,[ESI+56]
MOV [EDI+56],EAX
MOV EAX,[ESI+60]
MOV [EDI+60],EAX
end;
procedure Q_CopyMem(Source, Dest: Pointer; L: Cardinal);
asm
PUSH EDI
PUSH ESI
MOV EDI,EDX
MOV EDX,ECX
MOV ESI,EAX
TEST EDI,3
JNE @@cl
SHR ECX,2
AND EDX,3
CMP ECX,16
JBE @@cw0
@@lp0: CALL IntCopy16
ADD ESI,64
SUB ECX,16
ADD EDI,64
CMP ECX,16
JA @@lp0
@@cw0: JMP DWORD PTR @@wV[ECX*4]
@@cl: MOV EAX,EDI
MOV EDX,3
SUB ECX,4
JB @@bc
AND EAX,3
ADD ECX,EAX
JMP DWORD PTR @@lV[EAX*4-4]
@@bc: JMP DWORD PTR @@tV[ECX*4+16]
@@lV: DD @@l1, @@l2, @@l3
@@l1: AND EDX,ECX
MOV AL,[ESI]
MOV [EDI],AL
MOV AL,[ESI+1]
MOV [EDI+1],AL
MOV AL,[ESI+2]
SHR ECX,2
MOV [EDI+2],AL
ADD ESI,3
ADD EDI,3
CMP ECX,16
JBE @@cw1
@@lp1: CALL IntCopy16
ADD ESI,64
SUB ECX,16
ADD EDI,64
CMP ECX,16
JA @@lp1
@@cw1: JMP DWORD PTR @@wV[ECX*4]
@@l2: AND EDX,ECX
MOV AL,[ESI]
MOV [EDI],AL
MOV AL,[ESI+1]
SHR ECX,2
MOV [EDI+1],AL
ADD ESI,2
ADD EDI,2
CMP ECX,16
JBE @@cw2
@@lp2: CALL IntCopy16
ADD ESI,64
SUB ECX,16
ADD EDI,64
CMP ECX,16
JA @@lp2
@@cw2: JMP DWORD PTR @@wV[ECX*4]
@@l3: AND EDX,ECX
MOV AL,[ESI]
MOV [EDI],AL
INC ESI
SHR ECX,2
INC EDI
CMP ECX,16
JBE @@cw3
@@lp3: CALL IntCopy16
ADD ESI,64
SUB ECX,16
ADD EDI,64
CMP ECX,16
JA @@lp3
@@cw3: JMP DWORD PTR @@wV[ECX*4]
@@wV: DD @@w0, @@w1, @@w2, @@w3
DD @@w4, @@w5, @@w6, @@w7
DD @@w8, @@w9, @@w10, @@w11
DD @@w12, @@w13, @@w14, @@w15
DD @@w16
@@w16: MOV EAX,[ESI+ECX*4-64]
MOV [EDI+ECX*4-64],EAX
@@w15: MOV EAX,[ESI+ECX*4-60]
MOV [EDI+ECX*4-60],EAX
@@w14: MOV EAX,[ESI+ECX*4-56]
MOV [EDI+ECX*4-56],EAX
@@w13: MOV EAX,[ESI+ECX*4-52]
MOV [EDI+ECX*4-52],EAX
@@w12: MOV EAX,[ESI+ECX*4-48]
MOV [EDI+ECX*4-48],EAX
@@w11: MOV EAX,[ESI+ECX*4-44]
MOV [EDI+ECX*4-44],EAX
@@w10: MOV EAX,[ESI+ECX*4-40]
MOV [EDI+ECX*4-40],EAX
@@w9: MOV EAX,[ESI+ECX*4-36]
MOV [EDI+ECX*4-36],EAX
@@w8: MOV EAX,[ESI+ECX*4-32]
MOV [EDI+ECX*4-32],EAX
@@w7: MOV EAX,[ESI+ECX*4-28]
MOV [EDI+ECX*4-28],EAX
@@w6: MOV EAX,[ESI+ECX*4-24]
MOV [EDI+ECX*4-24],EAX
@@w5: MOV EAX,[ESI+ECX*4-20]
MOV [EDI+ECX*4-20],EAX
@@w4: MOV EAX,[ESI+ECX*4-16]
MOV [EDI+ECX*4-16],EAX
@@w3: MOV EAX,[ESI+ECX*4-12]
MOV [EDI+ECX*4-12],EAX
@@w2: MOV EAX,[ESI+ECX*4-8]
MOV [EDI+ECX*4-8],EAX
@@w1: MOV EAX,[ESI+ECX*4-4]
MOV [EDI+ECX*4-4],EAX
SHL ECX,2
ADD ESI,ECX
ADD EDI,ECX
@@w0: JMP DWORD PTR @@tV[EDX*4]
@@tV: DD @@t0, @@t1, @@t2, @@t3
@@t3: MOV AL,[ESI+2]
MOV [EDI+2],AL
@@t2: MOV AL,[ESI+1]
MOV [EDI+1],AL
@@t1: MOV AL,[ESI]
MOV [EDI],AL
@@t0: POP ESI
POP EDI
end;
begin
end.
|