summaryrefslogtreecommitdiffstats
path: root/win
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-05-08 09:26:53 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-05-08 09:26:53 (GMT)
commita55cf4a7e5aa5b506929c232ed2a3c8402a41852 (patch)
tree3f2b0908268023c30e1adb924e17a6436a2f4d1e /win
parent8622e716bb6d347375ac273af7b73c6f7952f223 (diff)
downloadtcl-a55cf4a7e5aa5b506929c232ed2a3c8402a41852.zip
tcl-a55cf4a7e5aa5b506929c232ed2a3c8402a41852.tar.gz
tcl-a55cf4a7e5aa5b506929c232ed2a3c8402a41852.tar.bz2
another bug: [dde eval -async -binary] didn't work
Diffstat (limited to 'win')
-rw-r--r--win/tclWinDde.c5
1 files changed, 3 insertions, 2 deletions
diff --git a/win/tclWinDde.c b/win/tclWinDde.c
index 83c2aa3..11e713b 100644
--- a/win/tclWinDde.c
+++ b/win/tclWinDde.c
@@ -1253,9 +1253,9 @@ DdeObjCmd(
} else if (objc >= 6 && objc <= 7) {
firstArg = objc - 3;
for (i = 2; i < firstArg; i++) {
- if (Tcl_GetIndexFromObj(interp, objv[2], ddeExecOptions,
+ if (Tcl_GetIndexFromObj(interp, objv[i], ddeExecOptions,
"option", 0, &argIndex) != TCL_OK) {
- return TCL_ERROR;
+ goto wrongDdeExecuteArgs;
}
if (argIndex == DDE_EXEC_ASYNC) {
async = 1;
@@ -1266,6 +1266,7 @@ DdeObjCmd(
break;
}
/* otherwise... */
+ wrongDdeExecuteArgs:
Tcl_WrongNumArgs(interp, 2, objv,
"?-async? ?-binary? serviceName topicName value");
return TCL_ERROR;