diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2010-04-02 19:27:44 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2010-04-02 19:27:44 (GMT) |
| commit | 859e9838d18c82b7c6fbcc1c9af736f6be73aecb (patch) | |
| tree | e967dcedf70a1e2fa6a28855348039731bd16cd3 /win/tclWinReg.c | |
| parent | eea8077922683bcbf1bfa11eaf8f26e5c95c0b49 (diff) | |
| download | tcl-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/tclWinReg.c')
| -rw-r--r-- | win/tclWinReg.c | 16 |
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; |