![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Uso de ASM en 64 bits
Hola que tal a todos, vengo con otra duda, tengo este código en mi código de Delphi de 32bits, pero ahora que estoy compilando en 64bits con Delphi XE5, me da errores, me preguntaba si alguno de ustedes podría ayudarme con esto.
Muchas gracias ![]() Código:
function FastCpySSE(const D:Pointer; const S:Pointer; const count:dword):integer; var dwNumElements, dwNumPacks:DWORD; begin dwNumElements := count div sizeof(integer); // not really using it, just for debuging. it keeps number of looping. // it also means number of packed data. 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: // calculate offset mov ebx,count sub ebx,ecx // copy source's content to 128 bits registers movdqa xmm1,[esi+ebx] // copy 128 bits registers to destination movdqa [edi+ebx],xmm1; @@bodya: // we've done "1 packed == 4 * sizeof(int)" already. sub ecx,16; jmp @@begina @@end: // cleanup popa; end; result := 0;; end; |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Instalar componentes de 32 bits en una PC de win7 a 64 bits | uper | Windows | 10 | 29-01-2016 18:08:30 |
compilar programas 32 bits con lazarus 64 bits | anubis | Lazarus, FreePascal, Kylix, etc. | 3 | 30-10-2013 18:08:44 |
Pasar varible de 16 bits a dos de 8 bits | bactering | C++ Builder | 7 | 04-11-2010 04:44:33 |
Como ejecutar aplicativos dbExpress de 32 bits en 64 bits | rolandoj | Conexión con bases de datos | 0 | 30-07-2010 19:39:07 |
Aplicaciones de 32 bits en Windows de 64 bits | Gabo | Debates | 9 | 25-09-2008 20:49:32 |
![]() |
|