Tcl Source Code

Check-in [84b4842396]
Login

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

Overview
Comment:Fixed use of C99 features breaking the build with MSVC6. The problem was introduced with checkin [e9a08358f4].
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-4-branch
Files: files | file ages | folders
SHA1: 84b484239608cb0a847bcfd5ea80b264e8341a53
User & Date: andreask 2011-08-22 16:28:43
Original Comment: Fixed use of C99 features breaking the build with MSVC6.
Context
2011-08-30
07:32
Make SHLIB_LD_LIBS='${LIBS}' the default and et to "" on per-platform necessary basis. Add Haiku sup... check-in: 7585009c0c user: jan.nijtmans tags: core-8-4-branch
2011-08-22
20:35
merge-mark check-in: 134a7332a8 user: jan.nijtmans tags: core-8-5-branch
16:28
Fixed use of C99 features breaking the build with MSVC6. The problem was introduced with checkin [e9... check-in: 84b4842396 user: andreask tags: core-8-4-branch
2011-08-18
12:23
remove some debugging stuff check-in: 135a5e9af6 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-08-18  Jan Nijtmans  <[email protected]>

	* generic/tclUniData.c: [Bug 3393714] overflow in toupper delta
	* tools/uniParse.tcl
	* tests/utf.test

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







1
2
3
4
5
6
7
8
9
10
11
12
13
2011-08-22  Andreas Kupries  <[email protected]>

	* win/tclWinDde.c (Tcl_DdeObjCmd): Fixed use of the C99 feature
	(Variable declaration within statement block) rejected by
	MSVC6. Moved the declaration to the beginning of the block.

2011-08-18  Jan Nijtmans  <[email protected]>

	* generic/tclUniData.c: [Bug 3393714] overflow in toupper delta
	* tools/uniParse.tcl
	* tests/utf.test

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

Changes to win/tclWinDde.c.

1250
1251
1252
1253
1254
1255
1256
1257
1258

1259
1260
1261
1262
1263
1264
1265
		    result = TCL_ERROR;
		}
	    }

	    break;
	}
	case DDE_POKE: {
	    itemString = Tcl_GetStringFromObj(objv[firstArg + 2], &length);
	    BYTE *dataString;

	    if (length == 0) {
		Tcl_SetStringObj(Tcl_GetObjResult(interp),
			"cannot have a null item", -1);
		goto errorNoResult;
	    }
	    dataString = (BYTE *) Tcl_GetStringFromObj(objv[firstArg + 3], &length);
	    







<

>







1250
1251
1252
1253
1254
1255
1256

1257
1258
1259
1260
1261
1262
1263
1264
1265
		    result = TCL_ERROR;
		}
	    }

	    break;
	}
	case DDE_POKE: {

	    BYTE *dataString;
	    itemString = Tcl_GetStringFromObj(objv[firstArg + 2], &length);
	    if (length == 0) {
		Tcl_SetStringObj(Tcl_GetObjResult(interp),
			"cannot have a null item", -1);
		goto errorNoResult;
	    }
	    dataString = (BYTE *) Tcl_GetStringFromObj(objv[firstArg + 3], &length);