diff options
author | hobbs <hobbs@noemail.net> | 2002-01-29 02:04:35 (GMT) |
---|---|---|
committer | hobbs <hobbs@noemail.net> | 2002-01-29 02:04:35 (GMT) |
commit | d09f4170bbdbe1b2fe68c4b0b77dc3d276458317 (patch) | |
tree | 1acd5f53c3200767c38a7c066e6100368d5f9126 | |
parent | 73d754be6af01d34db443f31625fe5d9820f3ef9 (diff) | |
download | tcl-d09f4170bbdbe1b2fe68c4b0b77dc3d276458317.zip tcl-d09f4170bbdbe1b2fe68c4b0b77dc3d276458317.tar.gz tcl-d09f4170bbdbe1b2fe68c4b0b77dc3d276458317.tar.bz2 |
* win/tclWinReg.c (OpenSubKey): corrected bug introduced in
CONSTification that dropped pointer reference.
FossilOrigin-Name: ad0f1a3f397ba7cf078126491dc3dc09eb2d734f
-rw-r--r-- | win/tclWinReg.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/win/tclWinReg.c b/win/tclWinReg.c index 84c31ea..58de87d 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.15 2002/01/25 21:36:10 dgp Exp $ + * RCS: @(#) $Id: tclWinReg.c,v 1.16 2002/01/29 02:04:35 hobbs Exp $ */ #include <tclPort.h> @@ -173,8 +173,8 @@ static int GetValueNames(Tcl_Interp *interp, Tcl_Obj *keyNameObj, Tcl_Obj *patternObj); static int OpenKey(Tcl_Interp *interp, Tcl_Obj *keyNameObj, REGSAM mode, int flags, HKEY *keyPtr); -static DWORD OpenSubKey(char *hostName, HKEY rootKey, - char *keyName, REGSAM mode, int flags, +static DWORD OpenSubKey(CONST char *hostName, HKEY rootKey, + CONST char *keyName, REGSAM mode, int flags, HKEY *keyPtr); static int ParseKeyName(Tcl_Interp *interp, char *name, char **hostNamePtr, HKEY *rootKeyPtr, @@ -952,7 +952,7 @@ OpenSubKey( { DWORD result; Tcl_DString buf; - CONST TCHAR *nativeHost, nativeKey; + CONST TCHAR *nativeHost, *nativeKey; /* * Attempt to open the root key on a remote host if necessary. |