[Sumover-dev] [svn commit] r4181 - tcl-8.0/trunk/generic

[sumover-dev at cs.ucl.ac.uk]

Author: soohyunc
Date: Mon Jun 23 02:48:36 2008
New Revision: 4181

Modified:
   tcl-8.0/trunk/generic/tcl.h
   tcl-8.0/trunk/generic/tclIOUtil.c
   tcl-8.0/trunk/generic/tclVar.c

Log:
fixed warning messages:
"warning: deprecated conversion from string constant to ‘char*’"


Modified: tcl-8.0/trunk/generic/tcl.h
==============================================================================
--- tcl-8.0/trunk/generic/tcl.h	(original)
+++ tcl-8.0/trunk/generic/tcl.h	Mon Jun 23 02:48:36 2008
@@ -1384,7 +1384,7 @@
     			    Tcl_Interp *interp, int argc, char **argv,
 			    int flags));
 EXTERN Tcl_Channel	Tcl_OpenFileChannel _ANSI_ARGS_((Tcl_Interp *interp,
-        		    char *fileName, char *modeString,
+        		    const char *fileName, const char *modeString,
                             int permissions));
 EXTERN Tcl_Channel	Tcl_OpenTcpClient _ANSI_ARGS_((Tcl_Interp *interp,
 			    int port, char *address, char *myaddr,
@@ -1480,7 +1480,7 @@
 			    char *bytes, int length));
 EXTERN void		Tcl_SetTimer _ANSI_ARGS_((Tcl_Time *timePtr));
 EXTERN char *		Tcl_SetVar _ANSI_ARGS_((Tcl_Interp *interp,
-			    char *varName, char *newValue, int flags));
+			    const char *varName, const char *newValue, int flags));
 EXTERN char *		Tcl_SetVar2 _ANSI_ARGS_((Tcl_Interp *interp,
 			    char *part1, char *part2, char *newValue,
 			    int flags));

Modified: tcl-8.0/trunk/generic/tclIOUtil.c
==============================================================================
--- tcl-8.0/trunk/generic/tclIOUtil.c	(original)
+++ tcl-8.0/trunk/generic/tclIOUtil.c	Mon Jun 23 02:48:36 2008
@@ -548,8 +548,8 @@
 Tcl_OpenFileChannel(interp, fileName, modeString, permissions)
     Tcl_Interp *interp;                 /* Interpreter for error reporting;
                                          * can be NULL. */
-    char *fileName;                     /* Name of file to open. */
-    char *modeString;                   /* A list of POSIX open modes or
+    const char *fileName;                     /* Name of file to open. */
+    const char *modeString;                   /* A list of POSIX open modes or
                                          * a string such as "rw". */
     int permissions;                    /* If the open involves creating a
                                          * file, with what modes to create

Modified: tcl-8.0/trunk/generic/tclVar.c
==============================================================================
--- tcl-8.0/trunk/generic/tclVar.c	(original)
+++ tcl-8.0/trunk/generic/tclVar.c	Mon Jun 23 02:48:36 2008
@@ -1024,8 +1024,8 @@
 Tcl_SetVar(interp, varName, newValue, flags)
     Tcl_Interp *interp;		/* Command interpreter in which varName is
 				 * to be looked up. */
-    char *varName;		/* Name of a variable in interp. */
-    char *newValue;		/* New value for varName. */
+    const char *varName;		/* Name of a variable in interp. */
+    const char *newValue;		/* New value for varName. */
     int flags;			/* Various flags that tell how to set value:
 				 * any of TCL_GLOBAL_ONLY,
 				 * TCL_NAMESPACE_ONLY, TCL_APPEND_VALUE,