Posted to tcl by GPS at Sat Nov 17 14:09:36 GMT 2007view raw

  1. Index: tclProc.c
  2. ===================================================================
  3. RCS file: /cvsroot/tcl/tcl/generic/tclProc.c,v
  4. retrieving revision 1.138
  5. diff -u -r1.138 tclProc.c
  6. --- tclProc.c 12 Nov 2007 22:12:07 -0000 1.138
  7. +++ tclProc.c 17 Nov 2007 14:08:50 -0000
  8. @@ -704,7 +704,7 @@
  9. * Figure out which frame to use, and return it to the caller.
  10. */
  11.  
  12. - for (framePtr = iPtr->varFramePtr; framePtr != NULL;
  13. + for (framePtr = iPtr->framePtr; framePtr != NULL;
  14. framePtr = framePtr->callerVarPtr) {
  15. if (framePtr->level == level) {
  16. break;
  17. @@ -829,7 +829,7 @@
  18. * Figure out which frame to use, and return it to the caller.
  19. */
  20.  
  21. - for (framePtr = iPtr->varFramePtr; framePtr != NULL;
  22. + for (framePtr = iPtr->framePtr; framePtr != NULL;
  23. framePtr = framePtr->callerVarPtr) {
  24. if (framePtr->level == level) {
  25. break;
  26.