Tcl Source Code

Check-in [e4201224a2]
Login

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

Overview
Comment:Plug the memory leak. Greater ambitions to improve this routine are proving more difficult than expected.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: e4201224a2b09864c28586c86b52c4e64d76dce4
User & Date: dgp 2013-05-28 14:29:01
Context
2013-05-28
19:21
Use the routines that provide "basic compile" instead of reinventing them. check-in: d578a3c006 user: dgp tags: trunk
14:29
Plug the memory leak. Greater ambitions to improve this routine are proving more difficult than exp... check-in: e4201224a2 user: dgp tags: trunk
14:04
Missed bits of dup code elimination. check-in: e636794bc5 user: dgp tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclCompCmds.c.

281
282
283
284
285
286
287

288
289
290
291
292
293
294
	TclEmitInt4(		0,				envPtr);
	goto done;
    }

    PushVarNameWord(interp, varTokenPtr, envPtr, TCL_NO_ELEMENT,
	    &localIndex, &simpleVarName, &isScalar, 1);
    if (!isScalar) {

	return TCL_ERROR;
    }
    /*
     * Special case: literal empty value argument is just an "ensure array"
     * operation.
     */








>







281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
	TclEmitInt4(		0,				envPtr);
	goto done;
    }

    PushVarNameWord(interp, varTokenPtr, envPtr, TCL_NO_ELEMENT,
	    &localIndex, &simpleVarName, &isScalar, 1);
    if (!isScalar) {
	Tcl_DecrRefCount(literalObj);
	return TCL_ERROR;
    }
    /*
     * Special case: literal empty value argument is just an "ensure array"
     * operation.
     */