Si, muchas gracias, se me había pasado lo del NativeInt :P Pero ya esta implementado
Ahora tengo otra duda (ya se que soy algo latosa en esto), pero me acabo de encontrar parte de código ensamblador, pero a lo que eh leido, ya no es compatible con XE5, existe alguna forma de lograr esta compatibilidad?
(Aquí dejo el código en cuestion)
Código Delphi
[-]function FastCpySSE(const D:Pointer; const S:Pointer; const count:dword):integer;
var dwNumElements, dwNumPacksWORD;
begin
dwNumElements := count div sizeof(integer);
dwNumPacks := dwNumElements div (128 div (sizeof(integer)*8));
asm
// remember for cleanup
pusha;
@@begin:
// init counter to SizeInBytes
mov ecx,count
// get destination pointer
mov edi,D
// get source pointer
mov esi,S
@@begina:
// check if counter is 0, yes end loop.
cmp ecx,0
jz @@end
@@body:
mov ebx,count
sub ebx,ecx
movdqa xmm1,[esi+ebx]
movdqa [edi+ebx],xmm1;
@@bodya:
sub ecx,16;
jmp @@begina
@@end:
popa;
end;
result := 0;;
end;
Gracias por toda su ayuda y de nuevo una disculpa por las molestias