Tcl Source Code

Check-in [e2dcd81b28]
Login
Bounty program for improvements to Tcl and certain Tcl packages.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Remove assertion that is not true in some circumstances (--enable-dtrace).
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:e2dcd81b28fd958e28e12fafc8e9537315ded5b1
User & Date: dgp 2013-08-22 16:13:29
Context
2013-08-22
20:21
Make Dispatch() the single point for calling a Tcl_ObjCmdProc, and attach the DTRACE machinery there... check-in: cf9917a942 user: dgp tags: trunk
16:13
Remove assertion that is not true in some circumstances (--enable-dtrace). check-in: e2dcd81b28 user: dgp tags: trunk
13:01
More coroutine tests. check-in: acc67cbb48 user: dgp tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclExecute.c.

8794
8795
8796
8797
8798
8799
8800
8801
8802
8803
8804
8805
8806
8807
8808
8809
    if (cfPtr->cmd == NULL) {

	cfPtr->cmd = GetSrcInfoForPc(
		(unsigned char *) cfPtr->data.tebc.pc, codePtr,
		&cfPtr->len, NULL, NULL);
    }

    assert(cfPtr->cmd != NULL);
    {
	/*
	 * We now have the command. We can get the srcOffset back and from
	 * there find the list of word locations for this command.
	 */

	ExtCmdLoc *eclPtr;
	ECL *locPtr = NULL;







|
<







8794
8795
8796
8797
8798
8799
8800
8801

8802
8803
8804
8805
8806
8807
8808
    if (cfPtr->cmd == NULL) {

	cfPtr->cmd = GetSrcInfoForPc(
		(unsigned char *) cfPtr->data.tebc.pc, codePtr,
		&cfPtr->len, NULL, NULL);
    }

    if (cfPtr->cmd != NULL) {

	/*
	 * We now have the command. We can get the srcOffset back and from
	 * there find the list of word locations for this command.
	 */

	ExtCmdLoc *eclPtr;
	ECL *locPtr = NULL;