Cita:
Empezado por dec
Hola,
Pues no. Parece que no puede hacerse al modo de C.
PD. Lo que no significa tampoco mucho, puesto que creo que en Delphi se hace como se hace para optimizar los bucles "For". No se permite incrementar o decrementar la variable "contador" del bucle, pero, estoy seguro de que tiene que haber un motivo para ello.  |
He estado jugando un poco y mas o menos creo que he llegado a la explicación del supuesto motivo por el cual no se puede alterar la variable contador, veamos:
En un bucle FOR, traducido a ensamblador, básicamente se compone de asignar un valor bien a un registro o a una posición de memoria, y entrar en un bucle, incrementando dicho valor hasta llegar al tope. Cuando se llega a este tope, se sale del bucle.
El "problema" es que la instrucción FOR traducida, siempre que compara el valor lo hace de este modo:
cmp xxxxxxxx
jnz dirección
Que traducido al cristiano vendría a ser si el valor xxxxx no es cero, repite.
No se si se me entiende...
Bueno, pues ante ese pequeño problema, lo siguiente que he probado, ha sido traducir un FOR a asm, pero esta vez con incremento, y en vez de utilizar registros para guardar el contador, utiliza he utilizado una variable.
Lo que al final vendría a ser esto.....
Código Delphi
[-]
procedure TForm1.ForStepASM;
Var I : integer;
procedure accion;
begin
Memo1.Lines.Add( intToStr(I));
End;
Begin
asm
mov [i], 0; //VALOR INICIAL
@@NEXT:
push ebp;
call accion; // EJECUTAMOS ACCION
pop ecx;
add [i],2; // INCREMENTO
cmp [i],50; //NUMERO DE ITERACCIONES
jbe @@NEXT; // SIGUIENTE ITERACION SI ES EL CASO (Saltar si es inferior o igual)
End;
End;
Evidentemente he tenido que crear un procedimiento externo al asm para realizar las "operaciones" enmarcadas dentro del bucle FOR, que no es otra cosa que ir metiendo dentro de un MEMO los valores de
I
Explico con etiquetas, como inicializar el primer valor de
I, el incremento, en este caso
2, y el número de veces que ha de ejecutarse el bucle.
Es un poquillo complicado, pero en todo caso POSIBLE....