Posted to tcl by evilotto at Wed Jun 05 21:10:49 GMT 2013view raw

  1. $ tclsh8.6
  2. % set a 1
  3. 1
  4. % set a 1
  5. 1
  6. % set a 1
  7. 1
  8. % set a 1
  9. 1
  10. % set a 1
  11. 1
  12. % set a 1
  13. 1
  14. % ::tcl::unsupported::representation $a
  15. value is a int with a refcount of 14, object pointer at 0x8081120, internal representation 0x1:(nil), string representation "1"
  16. % history clear
  17. % ::tcl::unsupported::representation $a
  18. value is a int with a refcount of 8, object pointer at 0x8081120, internal representation 0x1:(nil), string representation "1"
  19. %