Historique des versions

Les branches d'un Select Case sortaient vides

Quand le compilateur transformait un Select Case en table de branchement, les sept branches apparaissaient vides et la valeur finale était perdue. Elles affichent maintenant leur contenu, chaînes de caractères comprises.

If ComponentType() > 6 Then
ElseIf ComponentType() = 0 Then
Else
End If

GetFilename = (? & ?)

If ComponentType() = 0 Then
    s = (FormName & ".frm")
ElseIf ComponentType() = 1 Then
    s = (FormName & ".ctl")
' … les sept branches

Des appels de méthode disparaissaient sans laisser de trace

Lorsqu'un objet était rangé dans une variable de module, l'appel qui suivait était parfois abandonné en silence : onze instructions retrouvées sur nos binaires de référence, dont des appels d'affichage de fenêtre.

If Method = 0 Then
    OHash.Insert key(i), rec(i)
ElseIf Method = 1 Then
    ' (rien)
Else
    ' (rien)
End If

If Method = 0 Then
    OHash.Insert key(i), rec(i)
ElseIf Method = 1 Then
    AHash.Insert key(i), rec(i)
Else
    Collect.Insert key(i), rec(i)
End If

La valeur d'une seule branche était affichée pour toutes

Quand plusieurs branches d'un test donnaient des valeurs différentes à la même variable, le produit affichait parfois celle d'une seule branche, valable pour tous les chemins. Rien ne le signalait.

If aExport Then
ElseIf nom Like "*.ocx" Then
Else
End If

s = "Type=Exe" & "Startup=" & …

If aExport = 0 Then
    s = ("Type=Exe" & vbCrLf)
ElseIf nom Like "*.ocx" Then
    s = ("Type=OleDll" & vbCrLf)
Else
    s = ("Type=Control" & vbCrLf)
End If

Libérer une variable objet affichait une valeur inventée

Un simple Set X = Nothing pouvait ressortir avec une expression qui n'avait de sens dans aucun programme. Vingt-trois procédures de terminaison vérifiées : plus aucune.

Set node = (Me And 1)
Set hash = eax
Set p0   = arg_8

Set node = Nothing
Set hash = Nothing
Set p0   = Nothing

Des appels désignaient la mauvaise méthode

Dans une même classe, un appel pouvait porter le nom d'une autre méthode, un défaut invisible à la lecture puisque le nom affiché existe bel et bien. Le membre appelé est désormais identifié par sa position réelle plutôt que par son ordre de déclaration.

chrono.Elapsed
table.Find taille, …
r = table.Delete(clé)

chrono.Reset
table.Init taille, …
r = table.Find(clé)

Une méthode sans retour était affichée comme si elle en avait un

Collection.Add et Err.Raise ne renvoient rien. Leur résultat interne était pris pour une valeur et affecté à une variable : douze affectations fausses en moins.

• Contrôles tiers : TreeView, ListView et leurs semblables. Leurs propriétés et méthodes portent leur nom, y compris pour les objets qu'elles renvoient.
• Interfaces standard Windows : nommées au lieu d'être affichées sous forme d'identifiant.
• Variables WithEvents privées : leur type est retrouvé, ce qui rend leurs gestionnaires d'événements lisibles.
• Dans un UserControl : les contrôles posés dessus s'écrivent comme dans la source, sans préfixe indu.

Le marqueur ? signale une valeur que le produit n'a pas pu établir avec certitude. Nous préférons l'afficher plutôt que d'inventer, mais moins il y en a, mieux c'est. Sur nos binaires de référence, leur nombre a baissé d'environ un tiers depuis la version précédente. Les causes traitées : adresses de champs perdues au milieu d'une boucle, éléments de tableau calculés, arguments passés par registre, valeurs partagées entre plusieurs branches d'un test.

• Les variables de module sont déclarées. Sans leur ligne de déclaration, Visual Basic 6 lisait un accès de tableau comme l'appel d'une fonction inexistante et refusait le fichier entier.
• Les tableaux locaux à taille fixe aussi, avec leurs bornes réelles lues dans le binaire.
• Les procédures à nombre d'arguments variable sont reconnues comme telles.
• Les paramètres relayés conservent leur nature de tableau à travers plusieurs niveaux d'appel.
• Une interface au nom masqué n'est plus écrite telle quelle : VB6 refuse tout identifiant commençant par un souligné.