Re: filling big array of double

> I'm testing on a P4 3Ghz and this is my code:

I think on P4 this procedure must be shortest and fastest

procedure FillDouble(var Dest; Count: integer; Value: double);
asm
lea eax, [eax+8*edx]
neg edx
jge @ret
mov ecx, [ebp+8]
mov ebp, [ebp+12]
@loop:
mov [eax+8*edx], ecx
mov [eax+8*edx+4], ebp
add edx, 1
jl @loop
@ret:
end;

--
regards
Aleksandr


.