Tcl Source Code

Check-in [909dcc2cf0]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:[010f4162ef] First step of fix on stammering errorstack. errorstack fixed. errorinfo revision still under consideration.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | bug-010f4162ef
Files: files | file ages | folders
SHA1: 909dcc2cf0958048cfb5f8e8f9cecc78ddf844ba
User & Date: dgp 2013-09-02 17:59:42
Context
2013-09-02
18:47
Add test and improve errorInfo. Closed-Leaf check-in: 2d4eff472e user: dgp tags: bug-010f4162ef
17:59
[010f4162ef] First step of fix on stammering errorstack. errorstack fixed. errorinfo revision still... check-in: 909dcc2cf0 user: dgp tags: bug-010f4162ef
14:01
typo check-in: a5ab971f3d user: jan.nijtmans tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclBasic.c.

4675
4676
4677
4678
4679
4680
4681



4682
4683
4684
4685
4686
4687
4688
....
4721
4722
4723
4724
4725
4726
4727



4728
4729
4730
4731
4732
4733
4734
	traceCode = TclCheckExecutionTraces(interp, command, length,
		cmdPtr, TCL_OK, TCL_TRACE_ENTER_EXEC, objc, objv);
    }
    newEpoch = cmdPtr->cmdEpoch;
    TclCleanupCommandMacro(cmdPtr);

    if (traceCode != TCL_OK) {



	return traceCode;
    }
    if (cmdEpoch != newEpoch) {
	*cmdPtrPtr = NULL;
    }
    return TCL_OK;
}
................................................................................
     * Prevent that by resetting the cmdPtr field and dealing right here with
     * cmdPtr->refCount.
     */

    TclCleanupCommandMacro(cmdPtr);

    if (traceCode != TCL_OK) {



	return traceCode;
    }
    return result;
}

static inline Command *
TEOV_LookupCmdFromObj(






>
>
>







 







>
>
>







4675
4676
4677
4678
4679
4680
4681
4682
4683
4684
4685
4686
4687
4688
4689
4690
4691
....
4724
4725
4726
4727
4728
4729
4730
4731
4732
4733
4734
4735
4736
4737
4738
4739
4740
	traceCode = TclCheckExecutionTraces(interp, command, length,
		cmdPtr, TCL_OK, TCL_TRACE_ENTER_EXEC, objc, objv);
    }
    newEpoch = cmdPtr->cmdEpoch;
    TclCleanupCommandMacro(cmdPtr);

    if (traceCode != TCL_OK) {
	if (traceCode == TCL_ERROR) {
	    iPtr->flags |= ERR_ALREADY_LOGGED;
	}
	return traceCode;
    }
    if (cmdEpoch != newEpoch) {
	*cmdPtrPtr = NULL;
    }
    return TCL_OK;
}
................................................................................
     * Prevent that by resetting the cmdPtr field and dealing right here with
     * cmdPtr->refCount.
     */

    TclCleanupCommandMacro(cmdPtr);

    if (traceCode != TCL_OK) {
	if (traceCode == TCL_ERROR) {
	    iPtr->flags |= ERR_ALREADY_LOGGED;
	}
	return traceCode;
    }
    return result;
}

static inline Command *
TEOV_LookupCmdFromObj(