openbsd-ports/databases/db/v4/patches/patch-tcl_tcl_log_c
steven f90f47a0f2 update to 4.6.21
with lots of testing by sthen@
2007-10-26 14:06:02 +00:00

40 lines
1.6 KiB
Plaintext

$OpenBSD: patch-tcl_tcl_log_c,v 1.3 2007/10/26 14:06:02 steven Exp $
--- tcl/tcl_log.c.orig Thu May 17 17:15:54 2007
+++ tcl/tcl_log.c Sat Sep 15 12:39:57 2007
@@ -52,7 +52,7 @@ tcl_LogArchive(interp, objc, objv, envp)
i = 2;
while (i < objc) {
if (Tcl_GetIndexFromObj(interp, objv[i],
- archopts, "option", TCL_EXACT, &optindex) != TCL_OK)
+ (CONST84 char **)archopts, "option", TCL_EXACT, &optindex) != TCL_OK)
return (IS_HELP(objv[i]));
i++;
switch ((enum archopts)optindex) {
@@ -302,7 +302,7 @@ tcl_LogPut(interp, objc, objv, envp)
*/
if (objc == 4) {
if (Tcl_GetIndexFromObj(interp, objv[2],
- logputopts, "option", TCL_EXACT, &optindex) != TCL_OK) {
+ (CONST84 char **)logputopts, "option", TCL_EXACT, &optindex) != TCL_OK) {
return (IS_HELP(objv[2]));
}
switch ((enum logputopts)optindex) {
@@ -454,7 +454,7 @@ logc_Cmd(clientData, interp, objc, objv)
* Get the command name index from the object based on the berkdbcmds
* defined above.
*/
- if (Tcl_GetIndexFromObj(interp, objv[1], logccmds, "command",
+ if (Tcl_GetIndexFromObj(interp, objv[1], (CONST84 char **)logccmds, "command",
TCL_EXACT, &cmdindex) != TCL_OK)
return (IS_HELP(objv[1]));
switch ((enum logccmds)cmdindex) {
@@ -545,7 +545,7 @@ tcl_LogcGet(interp, objc, objv, logc)
i = 2;
while (i < objc) {
if (Tcl_GetIndexFromObj(interp, objv[i],
- logcgetopts, "option", TCL_EXACT, &optindex) != TCL_OK)
+ (CONST84 char **)logcgetopts, "option", TCL_EXACT, &optindex) != TCL_OK)
return (IS_HELP(objv[i]));
i++;
switch ((enum logcgetopts)optindex) {