Differences From Artifact [1388129da9]:

• File generic/tclIOUtil.c — part of check-in [a3ee6b3635] at 2012-11-19 10:20:33 on branch tcl_nosize — Merge novem. <p>Introduce TCL_SIZE_T type. Not complete yet. (user: jan.nijtmans size: 133065) [more...]

To Artifact [c2b420ceaa]:

• File generic/tclIOUtil.c — part of check-in [d2181b6ae0] at 2012-11-19 12:17:50 on branch tcl_nosize — Merge trunk <p>Adapt Tcl_Tell and Tcl_Seek to use the new type (user: jan.nijtmans size: 133051) [more...]

2254
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268

	    return NULL;
	}

	/*
	 * Apply appropriate flags parsed out above.
	 */

	if (seekFlag && Tcl_Seek(retVal, (Tcl_WideInt) 0, SEEK_END)
		< (Tcl_WideInt) 0) {
	    if (interp != NULL) {
		Tcl_SetObjResult(interp, Tcl_ObjPrintf(
			"could not seek to end of file while opening \"%s\": %s",
			Tcl_GetString(pathPtr), Tcl_PosixError(interp)));
	    }
	    Tcl_Close(NULL, retVal);

|

2254
2255
2256
2257
2258
2259
2260
2261
2262
2263
2264
2265
2266
2267
2268

	    return NULL;
	}

	/*
	 * Apply appropriate flags parsed out above.
	 */

	if (seekFlag && Tcl_Seek(retVal, 0, SEEK_END)
		< (Tcl_WideInt) 0) {
	    if (interp != NULL) {
		Tcl_SetObjResult(interp, Tcl_ObjPrintf(
			"could not seek to end of file while opening \"%s\": %s",
			Tcl_GetString(pathPtr), Tcl_PosixError(interp)));
	    }
	    Tcl_Close(NULL, retVal);