IBUTILS PATCH SHOULD BE REMOVED: ibutils patch f3cf1f7c15ca24598fdf68b9ba71788b386b2f14 introduces syntax errors into ibdiagpath

Commit Message

Michael Heinz Feb. 17, 2011, 9:35 p.m. UTC

None

Patch

diff --git a/ibdiag/src/ibdebug.tcl b/ibdiag/src/ibdebug.tcl
index 2f2c0af..b25bc8a 100644
--- a/ibdiag/src/ibdebug.tcl
+++ b/ibdiag/src/ibdebug.tcl
@@ -161,7 +161,7 @@  proc InitializeIBDIAG {} {
     global G argv argv0 InfoArgv INFO_LST MASK

     ### InitializeIBDIAG - Set general vars
-    set G(var:version.num)          1.5.5
+    set G(var:version.num)          1.5.6
     set G(var:tool.name)            [file rootname [file tail $argv0]]
     set G(var:start.clock.seconds)  [clock seconds]
     set G(var:desc.local.dev)       "The Local Device"
@@ -3903,7 +3903,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} {
@@ -3936,8 +3936,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