Posted to tcl by schelte at Thu Aug 28 09:21:10 GMT 2014view raw

  1. set int [interp create]
  2. $int eval {
  3. package require Itcl
  4. itcl::class One {}
  5. itcl::class Two {}
  6. }
  7. interp delete $int
  8.  
  9.  
  10. alloc: invalid block: 0x24ef530: 30 2
  11.