Fix CONSTness for Tcl version < 8.4

diff --git a/ChangeLog b/ChangeLog
index 7aad7493d1f05cf4656d862134a38b995e8c9ac6..c20b03772ad9f79a3eed2dd168fd8fc2c74bf007 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2003-10-14  Pat Thoyts  <patthoyts@users.sourceforge.net>
+
+       * generic/udp_tcl.c: Fix CONSTness for Tcl < 8.4
+
 2003-06-13  Pat Thoyts  <patthoyts@users.sourceforge.net>
 
        * generic/udp_tcl.c: Cleaned up some -Wall warnings under unix.

diff --git a/generic/udp_tcl.c b/generic/udp_tcl.c
index aa0443f62445e83741bcf43ad209510c74d9bd42..98987678e0bef33fd04bca40b71a482b3f2e53ac 100644 (file)
--- 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)) {