summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2012-06-20 13:26:17 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2012-06-20 13:26:17 (GMT)
commitaf21439b8bdd0c25c86c7da8c35b704514557dcc (patch)
tree735dcc397b119efb99b00d657e6b0309d712bfda
parentc1b361063c982bbd7cc02b0c26c524cc414379e6 (diff)
downloadtcl-af21439b8bdd0c25c86c7da8c35b704514557dcc.zip
tcl-af21439b8bdd0c25c86c7da8c35b704514557dcc.tar.gz
tcl-af21439b8bdd0c25c86c7da8c35b704514557dcc.tar.bz2
remove some unused codebug_3362446
-rw-r--r--win/tclWinReg.c20
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:
+ */