30 lines
1.1 KiB
Plaintext
30 lines
1.1 KiB
Plaintext
--- tcl/tcl_log.c.orig 2004-01-08 23:28:53.000000000 +0100
|
|
+++ tcl/tcl_log.c 2004-01-08 23:29:18.000000000 +0100
|
|
@@ -57,7 +57,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) {
|
|
@@ -272,7 +272,7 @@ tcl_LogGet(interp, objc, objv, envp)
|
|
i = 2;
|
|
while (i < objc) {
|
|
if (Tcl_GetIndexFromObj(interp, objv[i],
|
|
- loggetopts, "option", TCL_EXACT, &optindex) != TCL_OK)
|
|
+ (CONST84 char **)loggetopts, "option", TCL_EXACT, &optindex) != TCL_OK)
|
|
return(IS_HELP(objv[i]));
|
|
i++;
|
|
switch ((enum loggetopts)optindex) {
|
|
@@ -394,7 +394,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) {
|