Tcl Source Code

Check-in [e7289d1266]
Login

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

Overview
Comment:Ensure that any reference to temporary index tables is squelched immediately rather than hanging around to trip us up in the future.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-4-branch
Files: files | file ages | folders
SHA1: e7289d12661027dc67a8aa95066e782a78a83bc5
User & Date: dkf 2011-03-24 09:40:31
Context
2011-03-25
13:13
Remove Tclp(Local|Gm)time_unix forwarders, the same can be done directly Some void -> VOID transitio... check-in: 288986ffb1 user: jan.nijtmans tags: core-8-4-branch
2011-03-24
09:45
Ensure that any reference to temporary index tables is squelched immediately rather than hanging aro... check-in: 3971651ab7 user: dkf tags: core-8-5-branch
09:40
Ensure that any reference to temporary index tables is squelched immediately rather than hanging aro... check-in: e7289d1266 user: dkf tags: core-8-4-branch
2011-03-22
10:37
The -debug:full option is not supported when using the modern versions of link.exe included with MSV... check-in: 5b793153df user: jan.nijtmans tags: core-8-4-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to ChangeLog.







1
2
3
4
5
6
7






2011-03-16  Jan Nijtmans  <[email protected]>

	* unix/configure, unix/tcl.m4: SHLIB_LD_LIBS='${LIBS}' for OSF1-V*.
	Add /usr/lib64 to set of auto-search dirs. [Bug 1230554]
	(SC_PATH_X): Correct syntax error when xincludes not found.
	Backported from Tcl 8.5
	* generic/tclCkalloc.c: [Bug #3197864] pointer truncation on Win64
>
>
>
>
>
>







1
2
3
4
5
6
7
8
9
10
11
12
13
2011-03-24  Donal K. Fellows  <[email protected]>

	* generic/tclFCmd.c (TclFileAttrsCmd): Ensure that any reference to
	temporary index tables is squelched immediately rather than hanging
	around to trip us up in the future.

2011-03-16  Jan Nijtmans  <[email protected]>

	* unix/configure, unix/tcl.m4: SHLIB_LD_LIBS='${LIBS}' for OSF1-V*.
	Add /usr/lib64 to set of auto-search dirs. [Bug 1230554]
	(SC_PATH_X): Correct syntax error when xincludes not found.
	Backported from Tcl 8.5
	* generic/tclCkalloc.c: [Bug #3197864] pointer truncation on Win64

Changes to generic/tclFCmd.c.

981
982
983
984
985
986
987





988
989
990
991
992
993
994
			     " in this filesystem.", (char *) NULL);
	    goto end;
	}

	if (Tcl_GetIndexFromObj(interp, objv[0], attributeStrings,
		"option", 0, &index) != TCL_OK) {
	    goto end;





	}
	if (Tcl_FSFileAttrsGet(interp, index, filePtr,
		&objPtr) != TCL_OK) {
	    goto end;
	}
	Tcl_SetObjResult(interp, objPtr);
    } else {







>
>
>
>
>







981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
			     " in this filesystem.", (char *) NULL);
	    goto end;
	}

	if (Tcl_GetIndexFromObj(interp, objv[0], attributeStrings,
		"option", 0, &index) != TCL_OK) {
	    goto end;
	}
	if (numObjStrings != -1 && objv[0]->typePtr != NULL
		&& objv[0]->typePtr->freeIntRepProc != NULL) {
	    objv[0]->typePtr->freeIntRepProc(objv[0]);
	    objv[0]->typePtr = NULL;
	}
	if (Tcl_FSFileAttrsGet(interp, index, filePtr,
		&objPtr) != TCL_OK) {
	    goto end;
	}
	Tcl_SetObjResult(interp, objPtr);
    } else {
1006
1007
1008
1009
1010
1011
1012





1013
1014
1015
1016
1017
1018
1019
	}

    	for (i = 0; i < objc ; i += 2) {
    	    if (Tcl_GetIndexFromObj(interp, objv[i], attributeStrings,
		    "option", 0, &index) != TCL_OK) {
		goto end;
    	    }





	    if (i + 1 == objc) {
		Tcl_AppendResult(interp, "value for \"",
			Tcl_GetString(objv[i]), "\" missing",
			(char *) NULL);
		goto end;
	    }
    	    if (Tcl_FSFileAttrsSet(interp, index, filePtr,







>
>
>
>
>







1011
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025
1026
1027
1028
1029
	}

    	for (i = 0; i < objc ; i += 2) {
    	    if (Tcl_GetIndexFromObj(interp, objv[i], attributeStrings,
		    "option", 0, &index) != TCL_OK) {
		goto end;
    	    }
	    if (numObjStrings != -1 && objv[i]->typePtr != NULL
		    && objv[i]->typePtr->freeIntRepProc != NULL) {
		objv[i]->typePtr->freeIntRepProc(objv[i]);
		objv[i]->typePtr = NULL;
	    }
	    if (i + 1 == objc) {
		Tcl_AppendResult(interp, "value for \"",
			Tcl_GetString(objv[i]), "\" missing",
			(char *) NULL);
		goto end;
	    }
    	    if (Tcl_FSFileAttrsSet(interp, index, filePtr,