Differences From Artifact [fd1debc0a5]:

• File generic/tclCompExpr.c — part of check-in [2549977bc4] at 2018-12-26 15:04:16 on branch trunk — Many internal int -> size_t increases, so string lengths > 2Gb can be handled correctly in many more places. (user: jan.nijtmans size: 83498) [more...]

To Artifact [543a7979d5]:

• File generic/tclCompExpr.c — part of check-in [0c0ff65606] at 2019-01-24 20:10:25 on branch trunk — Another round of int -> size_t modifications, so strings > 2Gb are handled correctly on 64-bit platforms. (user: jan.nijtmans size: 83500) [more...]

2474
2475
2476
2477
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490

		    /*
		     * Don't generate a string rep, but if we have one
		     * already, then use it to share via the literal table.
		     */

		    if (TclHasStringRep(objPtr)) {
			Tcl_Obj *tableValue;
			int numBytes;
			const char *bytes
				= Tcl_GetStringFromObj(objPtr, &numBytes);

			index = TclRegisterLiteral(envPtr, bytes, numBytes, 0);
			tableValue = TclFetchLiteral(envPtr, index);
			if ((tableValue->typePtr == NULL) &&
				(objPtr->typePtr != NULL)) {
			    /*
			     * Same intrep surgery as for OT_LITERAL.

|

|

2474
2475
2476
2477
2478
2479
2480
2481
2482
2483
2484
2485
2486
2487
2488
2489
2490

		    /*
		     * Don't generate a string rep, but if we have one
		     * already, then use it to share via the literal table.
		     */

		    if (TclHasStringRep(objPtr)) {
			Tcl_Obj *tableValue;
			size_t numBytes;
			const char *bytes
				= TclGetStringFromObj(objPtr, &numBytes);

			index = TclRegisterLiteral(envPtr, bytes, numBytes, 0);
			tableValue = TclFetchLiteral(envPtr, index);
			if ((tableValue->typePtr == NULL) &&
				(objPtr->typePtr != NULL)) {
			    /*
			     * Same intrep surgery as for OT_LITERAL.