Re: filling big array of double

Eric Grange wrote:
unfortunally I'm not able to do the same thing with an array of "double". Any help would be greatly appreciated. 


Untested too ;)

procedure FillDwordASM(var dest; count: integer; const value: Double);
asm
   test  edx, edx
   jz    @@End
   fld   qword ptr [ebp+8]
@@Loop:
   fst   qword ptr [eax]
   lea   eax, eax+8
   dec   edx
   jnz   @@Loop
   ffree st(0)
@@End:
end;


It is 2 times slower
Thank you anyway :)

Henri
.

Relevant Pages