$OpenBSD: patch-tcl_tcl_dbcursor_c,v 1.3 2007/10/26 14:06:02 steven Exp $ --- tcl/tcl_dbcursor.c.orig Thu May 17 17:15:54 2007 +++ tcl/tcl_dbcursor.c Sat Sep 15 12:39:57 2007 @@ -81,7 +81,7 @@ dbc_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], dbccmds, "command", + if (Tcl_GetIndexFromObj(interp, objv[1], (CONST84 char **)dbccmds, "command", TCL_EXACT, &cmdindex) != TCL_OK) return (IS_HELP(objv[1])); switch ((enum dbccmds)cmdindex) { @@ -197,7 +197,7 @@ tcl_DbcPut(interp, objc, objv, dbc) */ i = 2; while (i < (objc - 1)) { - if (Tcl_GetIndexFromObj(interp, objv[i], dbcutopts, "option", + if (Tcl_GetIndexFromObj(interp, objv[i], (CONST84 char **)dbcutopts, "option", TCL_EXACT, &optindex) != TCL_OK) { /* * Reset the result so we don't get @@ -469,7 +469,7 @@ tcl_DbcGet(interp, objc, objv, dbc, ispget) */ i = 2; while (i < objc) { - if (Tcl_GetIndexFromObj(interp, objv[i], dbcgetopts, + if (Tcl_GetIndexFromObj(interp, objv[i], (CONST84 char **)dbcgetopts, "option", TCL_EXACT, &optindex) != TCL_OK) { /* * Reset the result so we don't get @@ -895,7 +895,7 @@ tcl_DbcDup(interp, objc, objv, dbc) */ i = 2; while (i < objc) { - if (Tcl_GetIndexFromObj(interp, objv[i], dbcdupopts, + if (Tcl_GetIndexFromObj(interp, objv[i], (CONST84 char **)dbcdupopts, "option", TCL_EXACT, &optindex) != TCL_OK) { /* * Reset the result so we don't get