12 lines
412 B
Plaintext
12 lines
412 B
Plaintext
--- tcl/tcl_util.c.orig Thu May 17 17:15:54 2007
|
|
+++ tcl/tcl_util.c Sat Sep 15 12:39:57 2007
|
|
@@ -43,7 +43,7 @@ bdb_RandCommand(interp, objc, objv)
|
|
* in the 'berkdb' command.
|
|
*/
|
|
if (Tcl_GetIndexFromObj(interp,
|
|
- objv[1], rcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
|
|
+ objv[1], (CONST84 char **)rcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
|
|
return (IS_HELP(objv[1]));
|
|
|
|
res = NULL;
|