summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorhobbs <hobbs>2002-01-29 02:04:35 (GMT)
committerhobbs <hobbs>2002-01-29 02:04:35 (GMT)
commitabcf644d14a23f2521b411ba8df13307368d65cf (patch)
tree1acd5f53c3200767c38a7c066e6100368d5f9126
parent9c523003d5532b24b42b3f84ce6c09f1fdfd122a (diff)
downloadtcl-abcf644d14a23f2521b411ba8df13307368d65cf.zip
tcl-abcf644d14a23f2521b411ba8df13307368d65cf.tar.gz
tcl-abcf644d14a23f2521b411ba8df13307368d65cf.tar.bz2
* win/tclWinReg.c (OpenSubKey): corrected bug introduced in
CONSTification that dropped pointer reference.
-rw-r--r--win/tclWinReg.c8
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.