Hello,

 

can anybody tell me why the following script leaks memory intensively?

 

 

package require Itcl

 

while { 1 } {

 

      ::itcl::class LeakClass {

            proc leakProc {} {

                  set n 1

            }

      }

 

      LeakClass::leakProc

 

      ::itcl::delete class "LeakClass"

}

 

 

There is no leak, if I remove the call of the procedure or the set n 1 line.

I know, this is a stupid algorithm but I have to do a similar one.