From cf95ad12ea8db00313fd4c1ef3125f34af4f04e9 Mon Sep 17 00:00:00 2001 From: patthoyts Date: Tue, 14 Oct 2003 20:37:54 +0000 Subject: [PATCH] Fix CONSTness for Tcl version < 8.4 --- ChangeLog | 4 ++++ generic/udp_tcl.c | 6 +++--- 2 files changed, 7 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index 7aad749..c20b037 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2003-10-14 Pat Thoyts + + * generic/udp_tcl.c: Fix CONSTness for Tcl < 8.4 + 2003-06-13 Pat Thoyts * generic/udp_tcl.c: Cleaned up some -Wall warnings under unix. diff --git a/generic/udp_tcl.c b/generic/udp_tcl.c index aa0443f..9898767 100644 --- a/generic/udp_tcl.c +++ b/generic/udp_tcl.c @@ -1090,7 +1090,7 @@ udpGetOption(ClientData instanceData, Tcl_Interp *interp, CONST84 char *optionName, Tcl_DString *optionValue) { UdpState *statePtr = (UdpState *)instanceData; - const char * options = "myport remote peer mcastadd mcastdrop"; + CONST84 char * options = "myport remote peer mcastadd mcastdrop"; int r = TCL_OK; if (optionName == NULL) { @@ -1158,10 +1158,10 @@ udpGetOption(ClientData instanceData, Tcl_Interp *interp, */ static int udpSetOption(ClientData instanceData, Tcl_Interp *interp, - CONST char *optionName, CONST char *newValue) + CONST84 char *optionName, CONST84 char *newValue) { UdpState *statePtr = (UdpState *)instanceData; - const char * options = "remote mcastadd mcastdrop"; + CONST84 char * options = "remote mcastadd mcastdrop"; int r = TCL_OK; if (!strcmp("-remote", optionName)) { -- 2.23.0