Changes On Branch 3963c3db7f302cc9
Not logged in

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

Changes In Branch dgp-defer-string-rep Excluding Merge-Ins

This is equivalent to a diff from 93531a5a13 to 3963c3db7f

2015-11-05
01:48
merge trunk; partial while hunting for a merge bug - updated to 2015-05-18 check-in: 26f9bf8072 user: msofer tags: mig-optimize
2015-05-19
20:34
Simplify code generation for a list of literals. Generates slightly simpler bytecode too. check-in: 1a292c2874 user: dkf tags: trunk
20:29
Tidier version. Closed-Leaf check-in: 3963c3db7f user: dkf tags: dgp-defer-string-rep
19:22
Don't cause string rep generation in [list <lit> <lit> ... <lit>] bytecode. Candidate for merge to t... check-in: a3d89bfa32 user: dgp tags: dgp-defer-string-rep
2015-05-18
14:44
merge trunk Leaf check-in: 91c27597c9 user: dgp tags: bug-3608714
08:20
[11250a236d] Made the documentation of non-greediness overrides more obvious. check-in: 93531a5a13 user: dkf tags: trunk
07:51
[c11a51c482] Stop race condition with -accept config option, and allow overriding of it via -headers... check-in: ab0370691f user: dkf tags: trunk

Changes to generic/tclCompCmdsGR.c.
1206
1207
1208
1209
1210
1211
1212
1213
1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1230
1231
1232
1233
	    Tcl_DecrRefCount(objPtr);
	    Tcl_DecrRefCount(listObj);
	    listObj = NULL;
	}
	valueTokenPtr = TokenAfter(valueTokenPtr);
    }
    if (listObj != NULL) {
	int len;
	const char *bytes = Tcl_GetStringFromObj(listObj, &len);

	PushLiteral(envPtr, bytes, len);
	Tcl_DecrRefCount(listObj);
	if (len > 0) {
	    /*
	     * Force list interpretation!
	     */

	    TclEmitOpcode(	INST_DUP,		envPtr);
	    TclEmitOpcode(	INST_LIST_LENGTH,	envPtr);
	    TclEmitOpcode(	INST_POP,		envPtr);
	}
	return TCL_OK;
    }

    /*
     * Push the all values onto the stack.
     */








<
<
|
<
<
<
<
<
<
<
<
<
<
<







1206
1207
1208
1209
1210
1211
1212


1213











1214
1215
1216
1217
1218
1219
1220
	    Tcl_DecrRefCount(objPtr);
	    Tcl_DecrRefCount(listObj);
	    listObj = NULL;
	}
	valueTokenPtr = TokenAfter(valueTokenPtr);
    }
    if (listObj != NULL) {


	TclEmitPush(TclAddLiteralObj(envPtr, listObj, NULL), envPtr);











	return TCL_OK;
    }

    /*
     * Push the all values onto the stack.
     */