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

83
databases/db/v3/patches/patch-tcl_tcl_compat_c Normal file
View file

@ -0,0 +1,83 @@
--- tcl/tcl_compat.c.orig Mon May 22 20:36:50 2000
+++ tcl/tcl_compat.c Thu Oct 28 12:28:52 2010
@@ -74,7 +74,7 @@ bdb_HCommand(interp, objc, objv)
* in the 'berkdb' command.
*/
if (Tcl_GetIndexFromObj(interp,
- objv[1], hcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
+ objv[1], (CONST84 char **)hcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
return (IS_HELP(objv[1]));
res = NULL;
@@ -105,7 +105,7 @@ bdb_HCommand(interp, objc, objv)
item.key = Tcl_GetStringFromObj(objv[2], NULL);
item.data = Tcl_GetStringFromObj(objv[3], NULL);
action = 0;
- if (Tcl_GetIndexFromObj(interp, objv[4], srchacts,
+ if (Tcl_GetIndexFromObj(interp, objv[4], (CONST84 char **)srchacts,
"action", TCL_EXACT, &actindex) != TCL_OK)
return (IS_HELP(objv[4]));
switch ((enum srchacts)actindex) {
@@ -201,7 +201,7 @@ bdb_NdbmOpen(interp, objc, objv, dbpp)
*/
i = 2;
while (i < objc) {
- if (Tcl_GetIndexFromObj(interp, objv[i], ndbopen, "option",
+ if (Tcl_GetIndexFromObj(interp, objv[i], (CONST84 char **)ndbopen, "option",
TCL_EXACT, &optindex) != TCL_OK) {
arg = Tcl_GetStringFromObj(objv[i], NULL);
if (arg[0] == '-') {
@@ -345,7 +345,7 @@ bdb_DbmCommand(interp, objc, objv, flag, dbm)
* in the 'berkdb' command.
*/
if (Tcl_GetIndexFromObj(interp,
- objv[1], dbmcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
+ objv[1], (CONST84 char **)dbmcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
return (IS_HELP(objv[1]));
switch ((enum dbmcmds)cmdindex) {
@@ -433,7 +433,7 @@ bdb_DbmCommand(interp, objc, objv, flag, dbm)
if (flag == DBTCL_DBM)
ret = store(key, data);
else if (flag == DBTCL_NDBM) {
- if (Tcl_GetIndexFromObj(interp, objv[4], stflag,
+ if (Tcl_GetIndexFromObj(interp, objv[4], (CONST84 char **)stflag,
"flag", TCL_EXACT, &stindex) != TCL_OK)
return (IS_HELP(objv[4]));
switch ((enum stflag)stindex) {
@@ -606,7 +606,7 @@ ndbm_Cmd(clientData, interp, objc, objv)
* defined above.
*/
if (Tcl_GetIndexFromObj(interp,
- objv[1], ndbcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
+ objv[1], (CONST84 char **)ndbcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
return (IS_HELP(objv[1]));
res = NULL;
@@ -675,7 +675,7 @@ ndbm_Cmd(clientData, interp, objc, objv)
_debug_check();
ret = dbm_error(dbp);
Tcl_SetErrno(ret);
- Tcl_SetResult(interp, Tcl_PosixError(interp), TCL_STATIC);
+ Tcl_SetResult(interp, (char *)Tcl_PosixError(interp), TCL_STATIC);
break;
case NDBRDONLY:
/*
@@ -733,7 +733,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;
@@ -965,7 +965,7 @@ mutex_Cmd(clientData, interp, objc, objv)
* defined above.
*/
if (Tcl_GetIndexFromObj(interp,
- objv[1], mxcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
+ objv[1], (CONST84 char **)mxcmds, "command", TCL_EXACT, &cmdindex) != TCL_OK)
return (IS_HELP(objv[1]));
res = NULL;