[Delphi][ASM] aide sur JE

bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

procedure Sup; begin ShowMessage('SUP'); end;   procedure Inf; begin ShowMessage('INF'); end;   procedure compare(Val1, Val2: Integer); begin asm mov eax, val1 cmp eax, val2 jl @Label1 call sup @Label1: call Inf end; end;

---

Je souhaite appeler inf si val1 < val2 sinon appeler sup.
Actuellement la procedure inf est toujours executée.


Merci.

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure compare(Val1, Val2: Integer); begin asm mov eax, val1 cmp eax, val2 jl @Label1 call sup @Label1: call Inf end; end;

---

C'est bizarre, je ne vois apparemment rien qui cloche... (à part la différence entre l'argument "Val1" dans la signature de la fonction et dans le corps de celle ci "val1", mais peut être que Delphi n'est pas sensible à la casse...)

Je ne connais pas Delphi, mais c'est un peut être un problème de type de passage d'argument (par valeur ou par référence ?)

Dans le cas où le passage ce fait par référence, pil vaudrais mieux tenter quelque chose comme cela :

Code:

---

1 2 3 4 5 6 7

mov eax, val1 mov ebx, val2   cmp eax, ebx   jl @Label1

---

P.S : Dans le cas ou "sup" devrait être appelé, tu fera attention car ton code appellerais aussi "inf" :

Code:

---

1 2 3 4

jl @Label1 call sup ; appelle sup @Label1: call Inf ; continue sur inf

---

Tu peux remédier à cela en mettant un label de sortie par exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure compare(Val1, Val2: Integer); begin asm mov eax, val1 mov ebx, val2   cmp eax, ebx   jl @inf call sup jmp @exit ; vers la sortie, n'appelle pas "inf" @inf: call inf   @exit: end; end;

---

J'espère que cela résoudra le problème, sinon ... je sèche :roll: (on pourrait peut être testé EFLAG si ce que je propose ne résout pas le problème... à voir par la suite). :D

Bonjour,

Oui le problème est résolu avec la dernière proposition et en particulier l'instruction jmp @exit ;

C'est effectivement cela qu'il me manquait.:ccool:

Merci.



Cordialement.