Discussion :

[tifaout]

Bonjour tout le monde :
je suis débutante en tcl, je veux faire une comparaison entre le contenu de quelques cases memoire (décrites en VHDL) et des valeurs que je donne moi-même. J'ai procédé comme suit :

Code :

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

1
2
3
4
if {examine -hexadecimal /testbench/...../mem($var) != "00001111"}  {
                                    puts $chan "error"
			} else {
				    puts $chan "no error"}

Quand je lance le script,il me renvoie cette erreur :

# ** Error: syntax error in expression "examine -hexadecimal /testbench/hc11ram_1/ram/mem($var) != $...": variable references require preceding $

Quelqu'un peut m'expliquer comment faire cette vérification SVP ?
Je vous suis reconnaissante de bien vouloir m'aider !!
Merci.

[Invité]

Bonjour,

En admettant que la procédure qui compare s'appelle examine, dans un test, tu dois l'appeler dans des crochets pour remplacer ces crochets et leur contenu par le résultat de cette procédure, la syntaxe sera donc :

Code :

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

if {[examine -hexadecimal /testbench/...../mem($var) ...]}  { ...

Attention : dans ce cas, la procédure examine doit impérativement retourner un booléen (1, 0, true ou false).


La deuxième possibilité, ta procédure examine recueille des données que tu souhaites comparer avec la valeur 00001111, dans ce cas la syntaxe sera :

Code :

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

if {[examine -hexadecimal /testbench/...../mem($var)] != "00001111"}  { ...

Tu noteras la fermeture du crochet avant le test de comparaison.

Là encore, les crochets et ce qu'ils contiennent seront remplacés par le résultat de la procédure, avant d'être comparé à ta valeur de test. Dans ce cas, il n'est donc pas impératif de retourner un booléen.

--
David Zolli

[tifaout]

Je vous remercie énormément de votre réponse , et désolée de ne pas l'avoir fait avant.
En fait, comme cela était très urgent pour moi et j'avais aucune réponse avant la votre,j'ai changé carrément la procédure de comparaison.
J'ai enregistré une copie de la mémoire dans un fichier txt, et puis je le parcours en faisant une comparaison avec les résultats que je veux...
Voilà un bout de mon programme j'espère que cela sera utile pour d'autres personnes !

mem save -format hexadecimal -outfile cible.txt -start 4355 -end 4394 /testbench/hc11ram_1/ram/mem
.
.
.
set st1 [open cible.txt r]
for {set line 1} {$line < 5} {incr line} {
gets $st1 value1
.
.
.
if {$line == 4} {
if {$value1 =="............."} {
incr line
................}

Encore une fois merci de votre réponse David !