jepler/linuxcnc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

pickconfig.tcl: no recursion in minimal_tree

Browse source 
avoid background error reports like:
   "::tcl::Bgerror {too many nested evaluations (infinite loop?)}
    {-code 1 -level 0 -errorstack {INNER {invokeStk1 treeclose
    ...
    error in background error handler:
    too many nested evaluations (infinite loop?)"

for trees with many nodes

Ref: https://forum.linuxcnc.org/49-basic-configuration/37241-tcl-errors-from-config-selector#143282
This commit is contained in:
Dewey Garrett 2019-08-27 18:07:06 -07:00
parent ae888f9c29
commit 06ac1139b7
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
tcl/bin/pickconfig.tcl
View file

@ -557,7 +557,7 @@ proc minimal_tree {node} {
set p [$::tree parent $node] set p [$::tree parent $node]
foreach c [$::tree nodes $p] { foreach c [$::tree nodes $p] {
if {"$c" == "$node"} continue if {"$c" == "$node"} continue
$::tree closetree $c $::tree closetree $c 0 ;# 0 ==> no recurse
} }
minimal_tree $p ;#recursion minimal_tree $p ;#recursion
} ;# minimal_tree } ;# minimal_tree