- eliminate some unnessary type casts

- some internal const decorations
- spacing

1 files changed, 10 insertions, 10 deletions

diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 0cd1196..b1a8d35 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -16,7 +16,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclBasic.c,v 1.384 2009/01/28 16:28:32 dkf Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.385 2009/02/03 23:34:33 nijtmans Exp $
  */
 
 #include "tclInt.h"
@@ -4141,7 +4141,7 @@ TclNREvalObjv(
     }
 
     if (TCL_DTRACE_CMD_ARGS_ENABLED()) {
-	char *a[10];
+	const char *a[10];
 	int i = 0;
 
 	while (i < 10) {
@@ -4460,7 +4460,7 @@ TEOV_Error(
 {
     Interp *iPtr = (Interp *) interp;
     Tcl_Obj *listPtr;
-    char *cmdString;
+    const char *cmdString;
     int cmdLen;
     int objc = PTR2INT(data[0]);
     Tcl_Obj **objv = data[1];
@@ -4590,7 +4590,7 @@ TEOV_RunEnterTraces(
     int traceCode = TCL_OK;
     int cmdEpoch = cmdPtr->cmdEpoch;
     int newEpoch;
-    char *command;
+    const char *command;
     int length;
     Tcl_Obj *commandPtr;
 
@@ -4648,7 +4648,7 @@ TEOV_RunLeaveTraces(
     int result)
 {
     Interp *iPtr = (Interp *) interp;
-    char *command;
+    const char *command;
     int length, objc;
     Tcl_Obj **objv;
     int traceCode = PTR2INT(data[0]);
@@ -5862,7 +5862,7 @@ TclNREvalObjEx(
 	 * in the bytecode compiler.
 	 */
 
-	char *script;
+	const char *script;
 	int numSrcBytes;
 
 	Tcl_IncrRefCount(objPtr);
@@ -5953,7 +5953,7 @@ TEOEx_ByteCodeCallback(
 	    result = TclUpdateReturnInfo(iPtr);
 	}
 	if ((result != TCL_OK) && (result != TCL_ERROR) && !allowExceptions) {
-	    char *script;
+	    const char *script;
 	    int numSrcBytes;
 
 	    ProcessUnexpectedResult(interp, result);
@@ -6363,7 +6363,7 @@ TclObjInvoke(
 {
     register Interp *iPtr = (Interp *) interp;
     Tcl_HashTable *hTblPtr;	/* Table of hidden commands. */
-    char *cmdName;		/* Name of the command from objv[0]. */
+    const char *cmdName;	/* Name of the command from objv[0]. */
     Tcl_HashEntry *hPtr = NULL;
     Command *cmdPtr;
     int result;
@@ -7844,7 +7844,7 @@ Tcl_NRCallObjProc(
     TEOV_callback *rootPtr = TOP_CB(interp);
 
     if (TCL_DTRACE_CMD_ARGS_ENABLED()) {
-	char *a[10];
+	const char *a[10];
 	int i = 0;
 
 	while (i < 10) {
@@ -8399,7 +8399,7 @@ TclNRCoroutineObjCmd(
     Tcl_Obj *cmdObjPtr;
     CallFrame *framePtr, **framePtrPtr;
     TEOV_callback *rootPtr = TOP_CB(interp);
-    char *fullName;
+    const char *fullName;
     const char *procName;
     Namespace *nsPtr, *altNsPtr, *cxtNsPtr;
     Tcl_DString ds;