58 lines
2.2 KiB
Plaintext
58 lines
2.2 KiB
Plaintext
$OpenBSD: patch-tcl_tcl_lock_c,v 1.2 2004/01/14 19:50:15 sturm Exp $
|
|
--- tcl/tcl_lock.c.orig 2003-11-28 16:42:52.000000000 +0100
|
|
+++ tcl/tcl_lock.c 2004-01-10 11:21:10.000000000 +0100
|
|
@@ -75,7 +75,7 @@ tcl_LockDetect(interp, objc, objv, envp)
|
|
i = 2;
|
|
while (i < objc) {
|
|
if (Tcl_GetIndexFromObj(interp, objv[i],
|
|
- ldopts, "option", TCL_EXACT, &optindex) != TCL_OK)
|
|
+ (CONST84 char **)ldopts, "option", TCL_EXACT, &optindex) != TCL_OK)
|
|
return (IS_HELP(objv[i]));
|
|
i++;
|
|
switch ((enum ldopts)optindex) {
|
|
@@ -184,7 +184,7 @@ tcl_LockGet(interp, objc, objv, envp)
|
|
flag = 0;
|
|
if (objc == 6) {
|
|
if (Tcl_GetIndexFromObj(interp, objv[(objc - 4)],
|
|
- lgopts, "option", TCL_EXACT, &optindex) != TCL_OK)
|
|
+ (CONST84 char **)lgopts, "option", TCL_EXACT, &optindex) != TCL_OK)
|
|
return (IS_HELP(objv[(objc - 4)]));
|
|
switch ((enum lgopts)optindex) {
|
|
case LGNOWAIT:
|
|
@@ -354,7 +354,7 @@ lock_Cmd(clientData, interp, objc, objv)
|
|
* defined above.
|
|
*/
|
|
if (Tcl_GetIndexFromObj(interp,
|
|
- objv[1], lkcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
|
|
+ objv[1], (CONST84 char **)lkcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
|
|
return (IS_HELP(objv[1]));
|
|
|
|
switch ((enum lkcmds)cmdindex) {
|
|
@@ -425,7 +425,7 @@ tcl_LockVec(interp, objc, objv, envp)
|
|
* If -nowait is given, it MUST be first arg.
|
|
*/
|
|
if (Tcl_GetIndexFromObj(interp, objv[2],
|
|
- lvopts, "option", TCL_EXACT, &optindex) == TCL_OK) {
|
|
+ (CONST84 char **)lvopts, "option", TCL_EXACT, &optindex) == TCL_OK) {
|
|
switch ((enum lvopts)optindex) {
|
|
case LVNOWAIT:
|
|
flag |= DB_LOCK_NOWAIT;
|
|
@@ -470,7 +470,7 @@ tcl_LockVec(interp, objc, objv, envp)
|
|
* the return list.
|
|
*/
|
|
if (Tcl_GetIndexFromObj(interp, myobjv[0],
|
|
- lkops, "option", TCL_EXACT, &optindex) != TCL_OK) {
|
|
+ (CONST84 char **)lkops, "option", TCL_EXACT, &optindex) != TCL_OK) {
|
|
result = IS_HELP(myobjv[0]);
|
|
goto error;
|
|
}
|
|
@@ -619,7 +619,7 @@ _LockMode(interp, obj, mode)
|
|
};
|
|
int optindex;
|
|
|
|
- if (Tcl_GetIndexFromObj(interp, obj, lkmode, "option",
|
|
+ if (Tcl_GetIndexFromObj(interp, obj, (CONST84 char **)lkmode, "option",
|
|
TCL_EXACT, &optindex) != TCL_OK)
|
|
return (IS_HELP(obj));
|
|
switch ((enum lkmode)optindex) {
|