Differences From Artifact [da9da3ec83]:

• File generic/tclProc.c — part of check-in [ce1aa70a2e] at 2016-04-07 14:54:39 on branch core-8-6-branch — Tidy up the last commit. (user: dgp size: 79900) [more...]

To Artifact [cc85e89745]:

• File generic/tclProc.c — part of check-in [fa57c51bbb] at 2016-05-24 19:28:50 on branch dgp-ensemble-rewrite — Appears that the TclInitRewriteEnsemble() routine was created with an intent to refactor, but never actually got used. Work on continuing that effort. (user: dgp size: 79941)

1781
1782
1783
1784
1785
1786
1787


1788
1789
1790
1791
1792
1793
1794

		(Tcl_Obj **)(iPtr->varFramePtr->objv + l + 1));
    }
#endif /* USE_DTRACE */

    /*
     * Invoke the commands in the procedure's body.
     */



    procPtr->refCount++;
    codePtr = procPtr->bodyPtr->internalRep.twoPtrValue.ptr1;

    TclNRAddCallback(interp, InterpProcNR2, procNameObj, errorProc,
	    NULL, NULL);
    return TclNRExecuteByteCode(interp, codePtr);

>
>

1781
1782
1783
1784
1785
1786
1787
1788
1789
1790
1791
1792
1793
1794
1795
1796

		(Tcl_Obj **)(iPtr->varFramePtr->objv + l + 1));
    }
#endif /* USE_DTRACE */

    /*
     * Invoke the commands in the procedure's body.
     */

    TclResetRewriteEnsemble(interp, 1);

    procPtr->refCount++;
    codePtr = procPtr->bodyPtr->internalRep.twoPtrValue.ptr1;

    TclNRAddCallback(interp, InterpProcNR2, procNameObj, errorProc,
	    NULL, NULL);
    return TclNRExecuteByteCode(interp, codePtr);