diff options
| -rw-r--r-- | ChangeLog | 6 | ||||
| -rw-r--r-- | win/tclWinDde.c | 2 |
2 files changed, 7 insertions, 1 deletions
@@ -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); |