Mystérieux bug du compiloRésolu

Question

Salut &#224; tous! Je vous pr&#233;sente un bout de code d'un bug que j'ai pu reproduire (&#231;a m'a pris du temps avant de le trouver). Mon probl&#232;me c'est qu'a l'execution sous l'IDE VB6 tout marche parfaitement, mais une fois compil&#233; (mode optimisation de la rapidit&#233; d'execution)... c'est autre chose. Comment trouver un bug qui n'apparait qu'a la compilation alors que tout se passe bien lors du d&#233;bogage sous l'IDE ? A vrai dire j'ai mis la journ&#233;e a trouver d'ou venait le probl&#232;me donc si vous avez des id&#233;es (a savoir que j'avais quand m&#234;me Numega Smartcheck sous la main que je conseil d'ailleurs &#224; tous le monde). 

Voici le bout de code myst&#232;re que j'ai pu reproduire:

Dim ClassLenght As Long
classlenght = -2147483599 'J'ai mise cette valeur car c'est celle qui apparait lors du bug
classlenght = classlenght - &H80000000

Essayer le d'abord sous l'IDE en debugage puis directement en executable apr&#232;s compilation (mode optimisation de la rapidit&#233;).
Le message suivant apparait: D&#233;passement de capacit&#233;.
Je d&#233;sassemble pour comprendre en me disant qu'en optimisant VB &#224; peut &#234;tre mal fait son travail en n'utilisant pas des instructions assembleurs. M&#234;me pas! Le compilateur a carrement interpr&#233;t&#233; le code VB comme &#233;rron&#233; et le code pointe directement sur un message d'erreur.

Bizarrement &#231;a &#231;a passe:
Dim ClassLenght
 As Long

classlenght = -2147483599 - &H80000000

Si quelqu'un &#224; la solution &#224; ce probl&#232;me, ou une explication du pourquoi de la chose je suis interess&#233;.

@ Bient&#244;t pour de nouvelles aventures au coeurs de VB6! 

Sylvain

Warning
Admin Codes-Sources.com
http://www.decompiler-vb.net/

Gobillot · Accepted Answer

Salut,

le nombre MsgBox &H80000000 est un peu particulier car il n'a pas d'&#233;quivallent en valeur positive.





MsgBox &H80000000 et MsgBox -(&H80000000) 

donnent la m&#234;me chose, le moins n'est pas pris en compte.



par contre MsgBox 0 - &H80000000 provoque un OverFlow.



une autre valeur diff&#233;rente MsgBox &H80000001 ne provoque plus l'erreur.



d'autre part:

  Dim 
ClassLenght As Double

  classlenght = classlenght - &H80000000

ne provoque plus l'erreur  !!!!!



et aussi:

  Dim 
ClassLenght As Long

  classlenght = classlenght - CDbl(&H80000000)

ne provoque plus l'erreur  !!!!!



l'optimization Remove Integer OverFlow Cheks:

supprime l'erreur (chez moi en tous cas)



conclusions:

   - le calcul se fait diff&#233;remment en IDE et apr&#232;s la compile

   - l'erreur provient de cette valeur &H80000000

   - j'ai l'impression que dans le calcul, 

     c'est la valeur positive qui est d'abord calcul&#233;e 

     et comme &#231;a tient pas dans un Long --> erreur

     par contre &#231;a passe dans un Double.


Daniel

cs_Warning · Answer

Une solution dans ce cas tr&#232;s particulier:
classlenght = classlenght And &h7EEEEEEE


Warning
Admin Codes-Sources.com
http://www.decompiler-vb.net/

cs_Warning · Answer

Salut Gobillot et merci pour ton intervention. Effectivement &h80000000 est un nombre particulier car il affecte directement le signe. Malgr&#232;s tout c'est dommage que le debogeur ne se comporte pas comme l'exe.
L'utilisation de CDbl est limit&#233; si l'on veux un code optimis&#233; tout comme l'utilisation de Val() que m'a conseill&#233; Jack que je remercie &#233;galement pour son aide.

Bonne soir&#233;e & bon coding


Warning
Admin Codes-Sources.com
http://www.decompiler-vb.net/

Gobillot · Answer

si c'est pour enlever le signe, celle l&#224; est valable:

    ClassLenght = -2147483599

    ClassLenght = ClassLenght And &H7FFFFFFF

    MsgBox ClassLenght

    

celle l&#224; ne passera pas si ClassLenght est >= 0

    ClassLenght = -2147483599

    ClassLenght = &H7FFFFFFF + ClassLenght + 1

    MsgBox ClassLenght

    

et celle ci ne pas &#224; la compile:

    ClassLenght = -2147483599

    ClassLenght = &H7FFFFFFF - Not ClassLenght

    MsgBox ClassLenght



Daniel

cs_Warning · Answer

Ouups oui t'a raison je voulais mettre classlenght = classlenght And &h7FFFFFFF et non pas classlenght = classlenght And &h7EEEEEEE.

Merci 


Warning
Admin Codes-Sources.com
http://www.decompiler-vb.net/

Mystérieux bug du compilo

5 réponses

Discussions similaires