SecBSD/ports
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

SecBSD's official ports repository

Browse source
This commit is contained in:
purplerain 2023-08-16 22:26:55 +00:00
commit 2c0afcbbf3
Signed by: purplerain
GPG key ID: F42C07F07E2E35B7
64331 changed files with 5339189 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

38
databases/db/v3/patches/patch-tcl_tcl_txn_c Normal file
View file

@ -0,0 +1,38 @@
--- tcl/tcl_txn.c.orig Fri Apr 21 20:18:58 2000
+++ tcl/tcl_txn.c Thu Oct 28 12:28:53 2010
@@ -90,7 +90,7 @@ tcl_TxnCheckpoint(interp, objc, objv, envp)
i = 2;
while (i < objc) {
if (Tcl_GetIndexFromObj(interp, objv[i],
- txnckpopts, "option", TCL_EXACT, &optindex) != TCL_OK) {
+ (CONST84 char **)txnckpopts, "option", TCL_EXACT, &optindex) != TCL_OK) {
return (IS_HELP(objv[i]));
}
i++;
@@ -163,7 +163,7 @@ tcl_Txn(interp, objc, objv, envp, envip)
i = 2;
while (i < objc) {
if (Tcl_GetIndexFromObj(interp, objv[i],
- txnopts, "option", TCL_EXACT, &optindex) != TCL_OK) {
+ (CONST84 char **)txnopts, "option", TCL_EXACT, &optindex) != TCL_OK) {
return(IS_HELP(objv[i]));
}
i++;
@@ -371,7 +371,7 @@ txn_Cmd(clientData, interp, objc, objv)
* defined above.
*/
if (Tcl_GetIndexFromObj(interp,
- objv[1], txncmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
+ objv[1], (CONST84 char **)txncmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
return (IS_HELP(objv[1]));
res = NULL;
@@ -451,7 +451,7 @@ tcl_TxnCommit(interp, objc, objv, txnp, txnip)
return (TCL_ERROR);
}
if (objc == 3) {
- if (Tcl_GetIndexFromObj(interp, objv[2], commitopt,
+ if (Tcl_GetIndexFromObj(interp, objv[2], (CONST84 char **)commitopt,
"option", TCL_EXACT, &optindex) != TCL_OK)
return (IS_HELP(objv[2]));
switch ((enum commitopt)optindex) {