This is an automated email from the ASF dual-hosted git repository.
mxmanghi pushed a commit to branch quattuor
in repository https://gitbox.apache.org/repos/asf/tcl-rivet.git
The following commit(s) were added to refs/heads/quattuor by this push:
new 9fdc41b replaced CONST84 with CONST86 which is supported by Tcl 8.7
9fdc41b is described below
commit 9fdc41bec0f79b844c427b12887995f4b0f9745a
Author: Massimo Manghi <mxman...@apache.org>
AuthorDate: Mon Jan 9 15:41:50 2023 +0100
replaced CONST84 with CONST86 which is supported by Tcl 8.7
---
ChangeLog | 4 ++++
src/mod_rivet_ng/TclWebapache.c | 2 +-
src/mod_rivet_ng/rivetChannel.c | 4 ++--
src/mod_rivet_ng/rivetCore.c | 10 +++++-----
4 files changed, 12 insertions(+), 8 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index dc04620..e058337 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2023-01-09 Massimo Manghi <mxman...@apache.org>
+ * src/mod_rivet_ng/TclWebaapache.c: replaced CONST84 with CONST86 which
is supported by Tcl 8.7
+ * src/mod_rivet_ng/rivet[Channel|Core].c:
+
2022-11-29 Massimo Manghi <mxman...@apache.org>
* src/: thoroughly removed trailing spaces from C code
diff --git a/src/mod_rivet_ng/TclWebapache.c b/src/mod_rivet_ng/TclWebapache.c
index b01a137..6cb3522 100644
--- a/src/mod_rivet_ng/TclWebapache.c
+++ b/src/mod_rivet_ng/TclWebapache.c
@@ -207,7 +207,7 @@ TclWeb_PrintHeaders(TclWebRequest *req)
/* Print nice HTML formatted errors */
int
-TclWeb_PrintError(CONST84 char *errstr, int htmlflag, TclWebRequest *req)
+TclWeb_PrintError(CONST86 char *errstr, int htmlflag, TclWebRequest *req)
{
TclWeb_SetHeaderType(DEFAULT_HEADER_TYPE, req);
TclWeb_PrintHeaders(req);
diff --git a/src/mod_rivet_ng/rivetChannel.c b/src/mod_rivet_ng/rivetChannel.c
index 8b55236..0b3b854 100644
--- a/src/mod_rivet_ng/rivetChannel.c
+++ b/src/mod_rivet_ng/rivetChannel.c
@@ -49,7 +49,7 @@ inputproc(ClientData instancedata, char *buf, int toRead, int
*errorCodePtr)
Channel that we create to divert stdout to. */
static int
-outputproc(ClientData instancedata, CONST84 char *buf, int toWrite, int
*errorCodePtr)
+outputproc(ClientData instancedata, CONST86 char *buf, int toWrite, int
*errorCodePtr)
{
apr_threadkey_t* rivet_thread_key = (apr_threadkey_t*) instancedata;
rivet_thread_private* private;
@@ -74,7 +74,7 @@ closeproc(ClientData instancedata, Tcl_Interp *interp)
static int
setoptionproc(ClientData instancedata, Tcl_Interp *interp,
- CONST84 char *optionname, CONST84 char *value)
+ CONST86 char *optionname, CONST86 char *value)
{
return TCL_OK;
}
diff --git a/src/mod_rivet_ng/rivetCore.c b/src/mod_rivet_ng/rivetCore.c
index 5df441f..c2c5266 100644
--- a/src/mod_rivet_ng/rivetCore.c
+++ b/src/mod_rivet_ng/rivetCore.c
@@ -887,7 +887,7 @@ TCL_CMD_HEADER( Rivet_ApacheTable )
apr_table_t *table = NULL;
int subcommandindex;
- static CONST84 char *SubCommand[] = {
+ static CONST86 char *SubCommand[] = {
"get",
"set",
"exists",
@@ -908,7 +908,7 @@ TCL_CMD_HEADER( Rivet_ApacheTable )
SUB_CLEAR
};
- static CONST84 char *tableNames[] = {
+ static CONST86 char *tableNames[] = {
"notes",
"headers_in",
"headers_out",
@@ -1133,7 +1133,7 @@ TCL_CMD_HEADER( Rivet_Upload )
* of an upload
*/
- static CONST84 char *SubCommand[] = {
+ static CONST86 char *SubCommand[] = {
"channel",
"save",
"data",
@@ -1158,7 +1158,7 @@ TCL_CMD_HEADER( Rivet_Upload )
NAMES
};
- static CONST84 int cmds_objc[] = { 3,4,3,3,3,3,3,3,2 };
+ static CONST86 int cmds_objc[] = { 3,4,3,3,3,3,3,3,2 };
int expected_objc;
rivet_thread_private* private;
@@ -1778,7 +1778,7 @@ TCL_CMD_HEADER( Rivet_LogErrorCmd )
int loglevelindex;
int apLogLevel = 0;
- static CONST84 char *logLevel[] = {
+ static CONST86 char *logLevel[] = {
"emerg",
"alert",
"crit",
---------------------------------------------------------------------
To unsubscribe, e-mail: commits-unsubscr...@tcl.apache.org
For additional commands, e-mail: commits-h...@tcl.apache.org
