Posted to tcl by dgp at Tue Oct 05 19:12:00 GMT 2010view raw

  1. Index: generic/tclCompile.c
  2. ===================================================================
  3. RCS file: /cvsroot/tcl/tcl/generic/tclCompile.c,v
  4. retrieving revision 1.188
  5. diff -u -r1.188 tclCompile.c
  6. --- generic/tclCompile.c 27 Sep 2010 19:42:38 -0000 1.188
  7. +++ generic/tclCompile.c 5 Oct 2010 19:04:45 -0000
  8. @@ -715,11 +715,11 @@
  9. register ByteCode *codePtr = objPtr->internalRep.otherValuePtr;
  10.  
  11. codePtr->refCount--;
  12. + objPtr->typePtr = NULL;
  13. + objPtr->internalRep.otherValuePtr = NULL;
  14. if (codePtr->refCount <= 0) {
  15. TclCleanupByteCode(codePtr);
  16. }
  17. - objPtr->typePtr = NULL;
  18. - objPtr->internalRep.otherValuePtr = NULL;
  19. }
  20.  
  21.  
  22. /*
  23. @@ -1863,7 +1863,11 @@
  24. */
  25.  
  26. if (envPtr->codeNext == entryCodeNext) {
  27. +#if 0
  28. TclEmitPush(TclAddLiteralObj(envPtr, Tcl_NewObj(), NULL), envPtr);
  29. +#else
  30. + TclEmitPush(TclRegisterNewLiteral(envPtr, "", 0), envPtr);
  31. +#endif
  32. }
  33.  
  34. envPtr->numSrcBytes = p - script;
  35.