Attachment "tkconst.patch" to
ticket [580433ffff]
added by
dgp
2002-07-16 08:06:01.
Index: generic/tkConsole.c
===================================================================
RCS file: /cvsroot/tktoolkit/tk/generic/tkConsole.c,v
retrieving revision 1.17
diff -u -r1.17 tkConsole.c
--- generic/tkConsole.c 12 Apr 2002 06:51:50 -0000 1.17
+++ generic/tkConsole.c 16 Jul 2002 01:04:02 -0000
@@ -13,6 +13,7 @@
* RCS: @(#) $Id: tkConsole.c,v 1.17 2002/04/12 06:51:50 hobbs Exp $
*/
+#define USE_COMPAT_CONST
#include "tk.h"
#include <string.h>
@@ -58,7 +59,7 @@
static int ConsoleInput _ANSI_ARGS_((ClientData instanceData,
char *buf, int toRead, int *errorCode));
static int ConsoleOutput _ANSI_ARGS_((ClientData instanceData,
- CONST char *buf, int toWrite, int *errorCode));
+ char *buf, int toWrite, int *errorCode));
static int ConsoleClose _ANSI_ARGS_((ClientData instanceData,
Tcl_Interp *interp));
static void ConsoleWatch _ANSI_ARGS_((ClientData instanceData,
@@ -405,7 +406,7 @@
static int
ConsoleOutput(instanceData, buf, toWrite, errorCode)
ClientData instanceData; /* Indicates which device to use. */
- CONST char *buf; /* The data buffer. */
+ char *buf; /* The data buffer. */
int toWrite; /* How many bytes to write? */
int *errorCode; /* Where to store error code. */
{
Index: generic/tkInt.decls
===================================================================
RCS file: /cvsroot/tktoolkit/tk/generic/tkInt.decls,v
retrieving revision 1.28
diff -u -r1.28 tkInt.decls
--- generic/tkInt.decls 18 Jun 2002 23:51:46 -0000 1.28
+++ generic/tkInt.decls 16 Jul 2002 01:04:02 -0000
@@ -178,7 +178,7 @@
}
declare 33 generic {
- CONST char * TkGetDefaultScreenName (Tcl_Interp *interp, \
+ CONST84_RETURN char * TkGetDefaultScreenName (Tcl_Interp *interp, \
CONST char *screenName)
}
Index: generic/tkScrollbar.c
===================================================================
RCS file: /cvsroot/tktoolkit/tk/generic/tkScrollbar.c,v
retrieving revision 1.5
diff -u -r1.5 tkScrollbar.c
--- generic/tkScrollbar.c 22 Nov 2000 01:49:38 -0000 1.5
+++ generic/tkScrollbar.c 16 Jul 2002 01:04:02 -0000
@@ -15,6 +15,7 @@
* RCS: @(#) $Id: tkScrollbar.c,v 1.5 2000/11/22 01:49:38 ericm Exp $
*/
+#define USE_COMPAT_CONST
#include "tkPort.h"
#include "tkScrollbar.h"
#include "default.h"
Index: generic/tkTest.c
===================================================================
RCS file: /cvsroot/tktoolkit/tk/generic/tkTest.c,v
retrieving revision 1.18
diff -u -r1.18 tkTest.c
--- generic/tkTest.c 15 Jul 2002 16:56:32 -0000 1.18
+++ generic/tkTest.c 16 Jul 2002 01:04:02 -0000
@@ -16,6 +16,7 @@
* RCS: @(#) $Id: tkTest.c,v 1.18 2002/07/15 16:56:32 dgp Exp $
*/
+#define USE_COMPAT_CONST
#include "tkInt.h"
#include "tkPort.h"
#include "tkText.h"
@@ -628,7 +629,7 @@
int objc; /* Number of arguments. */
Tcl_Obj *CONST objv[]; /* Argument objects. */
{
- static CONST char *options[] = {"alltypes", "chain1", "chain2",
+ static char *options[] = {"alltypes", "chain1", "chain2",
"configerror", "delete", "info", "internal", "new",
"notenoughparams", "twowindows", (char *) NULL};
enum {
@@ -1351,7 +1352,7 @@
Tcl_Obj *CONST objv[]; /* Argument objects. */
{
int result = TCL_OK;
- static CONST char *options[] = {
+ static char *options[] = {
"cget", "configure", "csave", (char *) NULL
};
enum {
@@ -1537,7 +1538,7 @@
int objc; /* Number of arguments. */
Tcl_Obj *CONST objv[]; /* Argument objects. */
{
- static CONST char *options[] = {"counts", "subfonts", (char *) NULL};
+ static char *options[] = {"counts", "subfonts", (char *) NULL};
enum option {COUNTS, SUBFONTS};
int index;
Tk_Window tkwin;
Index: generic/tkText.c
===================================================================
RCS file: /cvsroot/tktoolkit/tk/generic/tkText.c,v
retrieving revision 1.28
diff -u -r1.28 tkText.c
--- generic/tkText.c 22 Jun 2002 08:21:51 -0000 1.28
+++ generic/tkText.c 16 Jul 2002 01:04:02 -0000
@@ -17,6 +17,7 @@
* RCS: @(#) $Id: tkText.c,v 1.28 2002/06/22 08:21:51 hobbs Exp $
*/
+#define USE_COMPAT_CONST
#include "default.h"
#include "tkPort.h"
#include "tkInt.h"
@@ -802,7 +803,7 @@
} else if ((c == 'i') && (strncmp(argv[1], "insert", length) == 0)
&& (length >= 3)) {
int i, j, numTags;
- CONST char **tagNames;
+ char **tagNames;
TkTextTag **oldTagArrayPtr;
if (argc < 4) {
@@ -2225,7 +2226,7 @@
i = p - startOfLine;
thisLength = patLength;
} else {
- CONST char *start, *end;
+ char *start, *end;
int match;
match = Tcl_RegExpExec(interp, regexp,
@@ -2386,7 +2387,7 @@
* the text manual entry for details. */
{
int argc, i, count, c;
- CONST char **argv;
+ char **argv;
TkTextTabArray *tabArrayPtr;
TkTextTab *tabPtr;
Tcl_UniChar ch;
@@ -2719,7 +2720,7 @@
Tcl_AppendElement(interp, buffer);
return TCL_OK;
} else {
- CONST char *argv[4];
+ char *argv[4];
char *list;
int result;
argv[0] = key;
Index: generic/tkWindow.c
===================================================================
RCS file: /cvsroot/tktoolkit/tk/generic/tkWindow.c,v
retrieving revision 1.50
diff -u -r1.50 tkWindow.c
--- generic/tkWindow.c 19 Jun 2002 19:37:54 -0000 1.50
+++ generic/tkWindow.c 16 Jul 2002 01:04:02 -0000
@@ -15,6 +15,7 @@
* RCS: @(#) $Id: tkWindow.c,v 1.50 2002/06/19 19:37:54 mdejong Exp $
*/
+#define USE_COMPAT_CONST
#include "tkPort.h"
#include "tkInt.h"
@@ -2795,7 +2796,7 @@
{
char *p;
int argc, code;
- CONST char **argv;
+ char **argv;
char *args[20];
CONST char *argString = NULL;
Tcl_DString class;
Index: unix/tkUnixSend.c
===================================================================
RCS file: /cvsroot/tktoolkit/tk/unix/tkUnixSend.c,v
retrieving revision 1.8
diff -u -r1.8 tkUnixSend.c
--- unix/tkUnixSend.c 19 Jun 2002 19:37:55 -0000 1.8
+++ unix/tkUnixSend.c 16 Jul 2002 01:04:03 -0000
@@ -15,6 +15,7 @@
* RCS: @(#) $Id: tkUnixSend.c,v 1.8 2002/06/19 19:37:55 mdejong Exp $
*/
+#define USE_COMPAT_CONST
#include "tkPort.h"
#include "tkInt.h"
#include "tkUnixInt.h"
@@ -603,7 +604,7 @@
Atom actualType;
char *property;
Tk_ErrorHandler handler;
- CONST char **argv;
+ char **argv;
property = NULL;