Discussion :

[Fabrice ROUXEL 1]

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Neitsa]

Bonjour,

Code Delphi :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 (on pourrait peut être testé EFLAG si ce que je propose ne résout pas le problème... à voir par la suite).

[Fabrice ROUXEL 1]

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.

Merci.



Cordialement.