diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-10-07 00:55:36 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-10-07 00:55:36 (GMT) |
| commit | 99a527a1b1f6151cd6df730f129c14e905fef80e (patch) | |
| tree | 604ba671b6f956933272db1cf905ab8dda406fb5 /win/tclWinReg.c | |
| parent | 9e1d3cb84aaf7f54ecfa095f78c193fe5f1c514d (diff) | |
| download | tcl-99a527a1b1f6151cd6df730f129c14e905fef80e.zip tcl-99a527a1b1f6151cd6df730f129c14e905fef80e.tar.gz tcl-99a527a1b1f6151cd6df730f129c14e905fef80e.tar.bz2 | |
corrected botched logic in GetValueNames
Diffstat (limited to 'win/tclWinReg.c')
| -rw-r--r-- | win/tclWinReg.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/win/tclWinReg.c b/win/tclWinReg.c index 9b6aec3..5347cbe 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.31 2004/10/07 00:14:21 dgp Exp $ + * RCS: @(#) $Id: tclWinReg.c,v 1.32 2004/10/07 00:55:36 dgp Exp $ */ #include "tclInt.h" @@ -595,9 +595,9 @@ GetKeyNames( HKEY key; DWORD index; char buffer[MAX_PATH+1], *pattern, *name; + Tcl_Obj *resultPtr; int result = TCL_OK; Tcl_DString ds; - Tcl_Obj *resultPtr; /* * Attempt to open the key for enumeration. @@ -870,6 +870,7 @@ GetValueNames( Tcl_Obj *patternObj) /* Optional match pattern. */ { HKEY key; + Tcl_Obj *resultPtr; DWORD index, size, maxSize, result; Tcl_DString buffer, ds; char *pattern, *name; @@ -900,7 +901,7 @@ GetValueNames( } maxSize++; - + resultPtr = Tcl_NewObj(); Tcl_DStringInit(&buffer); Tcl_DStringSetLength(&buffer, (int) ((regWinProcs->useWide) ? maxSize*2 : maxSize)); @@ -923,7 +924,6 @@ GetValueNames( while ((*regWinProcs->regEnumValueProc)(key, index, Tcl_DStringValue(&buffer), &size, NULL, NULL, NULL, NULL) == ERROR_SUCCESS) { - Tcl_Obj *resultPtr = Tcl_NewObj(); if (regWinProcs->useWide) { size *= 2; @@ -939,12 +939,12 @@ GetValueNames( break; } } - Tcl_SetObjResult(interp, resultPtr); Tcl_DStringFree(&ds); index++; size = maxSize; } + Tcl_SetObjResult(interp, resultPtr); Tcl_DStringFree(&buffer); done: |