40 lines
1.6 KiB
Plaintext
40 lines
1.6 KiB
Plaintext
$OpenBSD: patch-tcl_tcl_log_c,v 1.2 2004/01/14 19:50:15 sturm Exp $
|
|
--- tcl/tcl_log.c.orig 2003-04-24 18:25:54.000000000 +0200
|
|
+++ tcl/tcl_log.c 2004-01-10 11:21:10.000000000 +0100
|
|
@@ -61,7 +61,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) {
|
|
@@ -311,7 +311,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) {
|
|
@@ -455,7 +455,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) {
|
|
@@ -529,7 +529,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) {
|