Me he encontrado con un problema a la hora he reemplazar el rtlmovememory en una cierta funccion. En otras si me funciona correctamente, creo que es porque trato de mover 8bytes. (El resto fueron 4)
Código:
Private Sub RTL(ByVal dest As Long, ByVal src As Long, ByVal lLen As Long)
Dim i As Long
For i = CLng("0") To lLen - CLng("1")
bvHack(dest + i - lHackDelta) = bvHack(src + i - lHackDelta)
Next i
End Sub
Este es el que trato reemplazar.
Código:
RtlMoveMemory c(i), b(i * 8), 8
Código:
RTL varptr(c(i)), varptr(b(i * 8)), 8
Código:
RTL c(i), b(i * 8), 8
Saludos y gracias de antemano.