[ewg] [PATCH] ibdiagpath: Properly index VlArbTable during QoS test
John Jolly
jjolly at novell.com
Tue Sep 14 08:34:47 PDT 2010
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Description: ibdiagpath: Properly index VlArbTable during QoS test
Symptom: Error 'invalid bareword "vl_entry"' during "QoS on
Path Check"
Problem: The 'dump' command within the smVlArbTableMad command
appends '-vl_entry' to the beginning of the array.
The ibdebug.tcl script does not properly handle this
extra element at the beginning of the array.
Solution: Offset the index value by one when referencing the
array.
Problem-ID: 629166
- ---
ibdiag/src/ibdebug.tcl | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
Index: ibutils-1.2/ibdiag/src/ibdebug.tcl
===================================================================
- --- ibutils-1.2.orig/ibdiag/src/ibdebug.tcl
+++ ibutils-1.2/ibdiag/src/ibdebug.tcl
@@ -3744,7 +3744,7 @@ proc CheckPathQoS {paths} {
foreach {tbl numEntries values} $lowHighCtrl {
set overRangeVLs {}
for {set i 0} {$i < $numEntries} {incr i} {
- - set entry [lindex $values $i]
+ set entry [lindex $values $i+1]
set vl [expr [lindex $entry 0]]
set weight [lindex $entry 1]
if {$vl >= $opVLs} {
@@ -3777,8 +3777,8 @@ proc CheckPathQoS {paths} {
for {set i 0} {$i < 8} {incr i} {
set sl0 [expr 2*$i]
set sl1 [expr 2*$i + 1]
- - set vl0 [expr ([lindex $SL2VL $i] & 0xf0) >> 4]
- - set vl1 [expr [lindex $SL2VL $i] & 0xf]
+ set vl0 [expr ([lindex $SL2VL $i+1] & 0xf0) >> 4]
+ set vl1 [expr [lindex $SL2VL $i+1] & 0xf]
if {($vl0 >= $opVLs) || ($vl0 == 15)} {
set BLOCKED_SL($sl0) 1
lappend outOfRangeVLsSLs $sl0
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v2.0.9 (GNU/Linux)
Comment: Using GnuPG with SUSE - http://enigmail.mozdev.org
iEYEARECAAYFAkyPlhcACgkQdLWlL2z7PiXXqgCfTJ+oB4yfF0lpMpFGKFHS4oht
F+4AoKVxYi2Ppr28sISxfq8RMrxhSSx0
=mJi9
-----END PGP SIGNATURE-----
More information about the ewg
mailing list