summaryrefslogtreecommitdiffstats
path: root/win
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2010-04-02 19:27:44 (GMT)
committerKevin B Kenny <kennykb@acm.org>2010-04-02 19:27:44 (GMT)
commit859e9838d18c82b7c6fbcc1c9af736f6be73aecb (patch)
treee967dcedf70a1e2fa6a28855348039731bd16cd3 /win
parenteea8077922683bcbf1bfa11eaf8f26e5c95c0b49 (diff)
downloadtcl-859e9838d18c82b7c6fbcc1c9af736f6be73aecb.zip
tcl-859e9838d18c82b7c6fbcc1c9af736f6be73aecb.tar.gz
tcl-859e9838d18c82b7c6fbcc1c9af736f6be73aecb.tar.bz2
* library/reg/pkgIndex.tcl: [TIP #362]: Fixed first round of
* tests/registry.test: bugs resulting from the recent commits * win/tclWinReg.c: of changes in support of the referenced TIP.
Diffstat (limited to 'win')
-rw-r--r--win/tclWinReg.c16
1 files changed, 8 insertions, 8 deletions
diff --git a/win/tclWinReg.c b/win/tclWinReg.c
index d7eeae6..a2d9085 100644
--- a/win/tclWinReg.c
+++ b/win/tclWinReg.c
@@ -11,7 +11,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclWinReg.c,v 1.52 2010/03/30 12:38:30 dkf Exp $
+ * RCS: @(#) $Id: tclWinReg.c,v 1.53 2010/04/02 19:27:44 kennykb Exp $
*/
#undef STATIC_BUILD
@@ -409,13 +409,13 @@ RegistryObjCmd(
if (argc == 1) {
return DeleteKey(interp, objv[n], mode);
} else if (argc == 2) {
- return DeleteValue(interp, objv[n], objv[++n], mode);
+ return DeleteValue(interp, objv[n], objv[n+1], mode);
}
errString = "keyName ?valueName?";
break;
case GetIdx: /* get */
if (argc == 2) {
- return GetValue(interp, objv[n], objv[++n], mode);
+ return GetValue(interp, objv[n], objv[n+1], mode);
}
errString = "keyName valueName";
break;
@@ -423,7 +423,7 @@ RegistryObjCmd(
if (argc == 1) {
return GetKeyNames(interp, objv[n], NULL, mode);
} else if (argc == 2) {
- return GetKeyNames(interp, objv[n], objv[++n], mode);
+ return GetKeyNames(interp, objv[n], objv[n+1], mode);
}
errString = "keyName ?pattern?";
break;
@@ -442,17 +442,17 @@ RegistryObjCmd(
RegCloseKey(key);
return TCL_OK;
} else if (argc == 3) {
- return SetValue(interp, objv[n], objv[++n], objv[++n], NULL,
+ return SetValue(interp, objv[n], objv[n+1], objv[n+2], NULL,
mode);
} else if (argc == 4) {
- return SetValue(interp, objv[n], objv[++n], objv[++n], objv[++n],
+ return SetValue(interp, objv[n], objv[n+1], objv[n+2], objv[n+3],
mode);
}
errString = "keyName ?valueName data ?type??";
break;
case TypeIdx: /* type */
if (argc == 2) {
- return GetType(interp, objv[n], objv[++n], mode);
+ return GetType(interp, objv[n], objv[n+1], mode);
}
errString = "keyName valueName";
break;
@@ -460,7 +460,7 @@ RegistryObjCmd(
if (argc == 1) {
return GetValueNames(interp, objv[n], NULL, mode);
} else if (argc == 2) {
- return GetValueNames(interp, objv[n], objv[++n], mode);
+ return GetValueNames(interp, objv[n], objv[n+1], mode);
}
errString = "keyName ?pattern?";
break;