Re: filling big array of double



One more ;-)

procedure FillDouble(var Dest; Count: integer; Value: double); register;
asm
neg edx
jge @ret
shl edx, 3
sub eax, edx
movq mm0, [ebp+8]
test edx, 8
jz @loop
movq [eax+edx], mm0
add edx, 8
jge @ret
@loop:
movq [eax+edx], mm0
movq [eax+edx+8], mm0
add edx, 16
jl @loop
@ret:
emms
end;


.



Relevant Pages