summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog6
-rw-r--r--win/tclWinDde.c2
2 files changed, 7 insertions, 1 deletions
diff --git a/ChangeLog b/ChangeLog
index 8391aeb..fb2e9c4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2011-08-22 Andreas Kupries <andreask@activestate.com>
+
+ * 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 <nijtmans@users.sf.net>
* generic/tclUniData.c: [Bug 3393714] overflow in toupper delta
diff --git a/win/tclWinDde.c b/win/tclWinDde.c
index d180878..0d5f7d7 100644
--- a/win/tclWinDde.c
+++ b/win/tclWinDde.c
@@ -1254,8 +1254,8 @@ Tcl_DdeObjCmd(
break;
}
case DDE_POKE: {
- itemString = Tcl_GetStringFromObj(objv[firstArg + 2], &length);
BYTE *dataString;
+ itemString = Tcl_GetStringFromObj(objv[firstArg + 2], &length);
if (length == 0) {
Tcl_SetStringObj(Tcl_GetObjResult(interp),
"cannot have a null item", -1);