diff options
| author | andreask <andreask> | 2011-08-22 16:28:43 (GMT) |
|---|---|---|
| committer | andreask <andreask> | 2011-08-22 16:28:43 (GMT) |
| commit | ff32c67b535db3697155309336ff0a0c5f1d291a (patch) | |
| tree | c3632cbd441b75ee331d9c640fb7d423321a6fa5 | |
| parent | 4c45aaf2e70545e8e395a5f75a2fab8bb079b2d2 (diff) | |
| download | tcl-ff32c67b535db3697155309336ff0a0c5f1d291a.zip tcl-ff32c67b535db3697155309336ff0a0c5f1d291a.tar.gz tcl-ff32c67b535db3697155309336ff0a0c5f1d291a.tar.bz2 | |
Fixed use of C99 features breaking the build with MSVC6. The problem was introduced with checkin [e9a08358f4].
| -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); |