diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-06-20 13:26:17 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-06-20 13:26:17 (GMT) |
| commit | aca79fe51d9c823d6d6e5ece3fbb1a69baa40a57 (patch) | |
| tree | 735dcc397b119efb99b00d657e6b0309d712bfda /win | |
| parent | 3cd5ae270a08e203946ae54346560d0ca1fca1b7 (diff) | |
| download | tcl-aca79fe51d9c823d6d6e5ece3fbb1a69baa40a57.zip tcl-aca79fe51d9c823d6d6e5ece3fbb1a69baa40a57.tar.gz tcl-aca79fe51d9c823d6d6e5ece3fbb1a69baa40a57.tar.bz2 | |
remove some unused code
Diffstat (limited to 'win')
| -rw-r--r-- | win/tclWinReg.c | 20 |
1 files changed, 8 insertions, 12 deletions
diff --git a/win/tclWinReg.c b/win/tclWinReg.c index 0b93f3a..6f99fe1 100644 --- a/win/tclWinReg.c +++ b/win/tclWinReg.c @@ -534,15 +534,6 @@ GetKeyNames( return TCL_ERROR; } - if (result != ERROR_SUCCESS) { - Tcl_SetObjResult(interp, Tcl_NewObj()); - Tcl_AppendResult(interp, "unable to query key \"", - Tcl_GetString(keyNameObj), "\": ", NULL); - AppendSystemError(interp, result); - RegCloseKey(key); - return TCL_ERROR; - } - /* Enumerate the subkeys */ resultPtr = Tcl_NewObj(); @@ -1147,9 +1138,6 @@ RecursiveDeleteKey( if (result != ERROR_SUCCESS) { return result; } - if (result != ERROR_SUCCESS) { - return result; - } Tcl_DStringInit(&subkey); Tcl_DStringSetLength(&subkey, @@ -1496,3 +1484,11 @@ ConvertDWORD( localType = (*((char*)(&order)) == 1) ? REG_DWORD : REG_DWORD_BIG_ENDIAN; return (type != localType) ? (DWORD)SWAPLONG(value) : value; } + +/* + * Local Variables: + * mode: c + * c-basic-offset: 4 + * fill-column: 78 + * End: + */ |