[v4 beta1] Macro et condition!

[nico]

J'ai un problème avec ce code, je pense que PB ne devrait pas me renvoyer d'erreur!

Là, ça ne marche pas, j'ai une erreur malgré le test de condition:

Code : Tout sélectionner

variable.l=%0110101

Macro Bit(valeur,Numero_du_bit)
  masque=1
  If Numero_du_bit 
    test=valeur & (masque << Numero_du_bit)  ;(1 à 7)
    Else
    test=valeur & masque
  EndIf 
EndMacro 

bit(variable,0)
Debug test

alors que logiquement si je fais le travail de la macro; ça devrait me donner ça:

Code : Tout sélectionner

  Numero_du_bit=0
  
  variable.l=%0110101
  valeur=  variable
  
  masque=1
  If Numero_du_bit 
    test=valeur & (masque << Numero_du_bit)  ;(1 à 7)
    Else
    test=valeur & masque
  EndIf 
  
  Debug test

[lionel_om]

Oué c'est bizard...

[Dräc]

Ce n’est pas vraiment une erreur, c’est a cause de l’optimisation du code par Pure.

Dans ton exemple, PB peut substituer directement le pseudo variable Numero_du_bit par la constante 0 avant compilation ce qui lui pose problème par la suite avec l’opérateur <<.

Le code suivant, par contre, fonctionne correctement.

Code : Tout sélectionner

variable.l=%0110101

Macro Bit(valeur, Numero_du_bit=1)
  masque=1
  If Numero_du_bit
    test=valeur & (masque << Numero_du_bit)  ;(1 à 7)
    Else
    test=valeur & masque
  EndIf
EndMacro

a = 0
bit(variable,a)
Debug test

[Fred]

Y'a quand meme un truc bizarre, je vais regarder.

[nico]

Même si y a un truc qui va pas, c'est drolement bien vu Dräc!

[LeCyb]

Il est vachement prudent le compilateur, au cas où un "If 0" arriverait à passer en force il te prévient que tu peux pas faire le décalage

[nico]

C'est pas si évident de faire une macro, question d'habitude sans doute, mais le problème c'est que le compilateur ne t'indique pas la ligne qui pose problème dans la macro, il reste sur la ligne d'appel de la macro; alors je patoge pas mal.

T'as bien un message d'erreur mais ce n'est pas très clair, du moins pour moi!

genre: "cette commande ne peut pas porté ce même nom car cette une commande de pure :if "

évidemment le if que j'ai mis n'est pas une commande mais bien un if..!!!