Differences From Artifact [7d48412a0b]:

• File generic/tclHistory.c — part of check-in [4d5b476573] at 2012-04-18 18:42:54 on branch dgp-remove-string-result — Experimental branch where the interp->result field and related are removed and all simplifications that makes possible are done. Seems this can at best be a Tcl 9 reform. (user: dgp size: 5722)

To Artifact [807016e0da]:

• File generic/tclHistory.c — part of check-in [a9865171d6] at 2012-04-19 12:41:06 on branch dgp-remove-string-result — Clean version of changes; ifdef-free (user: dkf size: 5564) [more...]

70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92

	 * Call Tcl_RecordAndEvalObj to do the actual work.
	 */

	cmdPtr = Tcl_NewStringObj(cmd, length);
	Tcl_IncrRefCount(cmdPtr);
	result = Tcl_RecordAndEvalObj(interp, cmdPtr, flags);

#if 0
	/*
	 * Move the interpreter's object result to the string result, then
	 * reset the object result.
	 */

	(void) Tcl_GetStringResult(interp);
#endif

	/*
	 * Discard the Tcl object created to hold the command.
	 */

	Tcl_DecrRefCount(cmdPtr);
    } else {
	/*

<
<
<
<
<
<
<
<
<

70
71
72
73
74
75
76









77
78
79
80
81
82
83

	 * Call Tcl_RecordAndEvalObj to do the actual work.
	 */

	cmdPtr = Tcl_NewStringObj(cmd, length);
	Tcl_IncrRefCount(cmdPtr);
	result = Tcl_RecordAndEvalObj(interp, cmdPtr, flags);










	/*
	 * Discard the Tcl object created to hold the command.
	 */

	Tcl_DecrRefCount(cmdPtr);
    } else {
	/*