From: patthoyts <patthoyts>
Date: Tue, 14 Oct 2003 20:37:54 +0000 (+0000)
Subject: Fix CONSTness for Tcl version < 8.4
X-Git-Tag: root-dev-2~7
X-Git-Url: http://test.brassandglass.co.uk/gitweb?a=commitdiff_plain;h=cf95ad12ea8db00313fd4c1ef3125f34af4f04e9;p=tcludp

Fix CONSTness for Tcl version < 8.4
---

diff --git a/ChangeLog b/ChangeLog
index 7aad749..c20b037 100644
--- 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 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)) {