Tcl Source Code

Check-in [f886387b13]
Login

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

Overview
Comment:PushLiteral() is no longer happy with a length argument of -1.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | dgp-refactor
Files: files | file ages | folders
SHA3-256: f886387b13c9426b87a4b19c5e85fc121c94b57ba70a5f9d9fa260471e837cf9
User & Date: dgp 2018-11-16 03:51:20.262
Context
2018-11-16
04:10
silence compiler warnings check-in: 6364870a14 user: dgp tags: dgp-refactor
03:51
PushLiteral() is no longer happy with a length argument of -1. check-in: f886387b13 user: dgp tags: dgp-refactor
03:03
Revise code that assumed you could pass any negative string length, not only -1. check-in: 57b63a61eb user: dgp tags: dgp-refactor
Changes
Unified Diff Ignore Whitespace Patch
Changes to generic/tclCompCmdsSZ.c.
4031
4032
4033
4034
4035
4036
4037
4038
4039
4040
4041
4042
4043
4044
4045

    /* TODO: Consider support for compiling expanded args. */
    for (words=1 ; words<parsePtr->numWords ; words++) {
	tokenPtr = TokenAfter(tokenPtr);
	CompileWord(envPtr, tokenPtr, interp, words);
    }
    if (parsePtr->numWords <= 2) {
	PushLiteral(envPtr, identity, -1);
	words++;
    }
    if (words > 3) {
	/*
	 * Reverse order of arguments to get precise agreement with [expr] in
	 * calcuations, including roundoff errors.
	 */







|







4031
4032
4033
4034
4035
4036
4037
4038
4039
4040
4041
4042
4043
4044
4045

    /* TODO: Consider support for compiling expanded args. */
    for (words=1 ; words<parsePtr->numWords ; words++) {
	tokenPtr = TokenAfter(tokenPtr);
	CompileWord(envPtr, tokenPtr, interp, words);
    }
    if (parsePtr->numWords <= 2) {
	PushLiteral(envPtr, identity, strlen(identity));
	words++;
    }
    if (words > 3) {
	/*
	 * Reverse order of arguments to get precise agreement with [expr] in
	 * calcuations, including roundoff errors.
	 */