Problem with recursive loop and crash building a branch diagram with a svn repository

2013-12-20
2013-12-20
  • From tkcvs-8.2.3
    I have problems with a complex svn repository going into loops and crashing when building a branch diagram until I added this fix. It seem to work well now. I have not tested it with cvs.

    branch_diagram.tcl
    diff
    896,899c896,902
    <               lappend brevs $r2
    <               foreach {lx y2 lbw rh lly} [DrawBranch $x2 $y2 $revision $r2] {
    <                 lappend bxys $lx $lbw $rh $lly
    <                 break
    ---
    >              if {$revision != $r2} {
    >                 lappend brevs $r2
    >                 foreach {lx y2 lbw rh lly} [DrawBranch $x2 $y2 $revision $r2] {
    >                   lappend bxys $lx $lbw $rh $lly
    >                   break
    >                 }
    >                 set x2 [expr {$lx + $lbw + $curr(spcx)}]
    901d903
    <               set x2 [expr {$lx + $lbw + $curr(spcx)}]