Posted to tcl by apw at Sat Oct 04 16:11:18 GMT 2008view raw

  1. doing the 2 little changes in the test makes the chain test failing no longer
  2.  
  3.  
  4. --- chain.test.org 2008-10-04 18:07:03.000000000 +0200
  5. +++ chain.test 2008-10-04 18:06:15.000000000 +0200
  6. @@ -26,6 +26,7 @@
  7. test chain-1.1 {define simple classes with inheritance} {
  8. itcl::class test_chain_a {
  9. constructor {args} {
  10. +#
  11. eval chain $args
  12. } {
  13. global ::test_chain_status
  14. @@ -44,6 +45,7 @@
  15. }
  16. itcl::class test_chain_b {
  17. constructor {args} {
  18. +#
  19. eval chain $args
  20. } {
  21. global ::test_chain_status
  22.  
  23.  
  24. this difference makes the problem disappear. I have compiled Tcl HEAD and itcl 3.4 with -DPURIFY and running that with valgrind gives no message