diff options
| author | dgp <dgp@users.sourceforge.net> | 2002-01-26 01:10:08 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2002-01-26 01:10:08 (GMT) |
| commit | 107d41756017e763fb66994fb0ba6072b20a7d2b (patch) | |
| tree | e98bf2d4819a5270b97f764736441c86b9eb51e3 /win/tclWinInit.c | |
| parent | 727dc02ba3e05c4df81068bc3fd0ac3a8c98328b (diff) | |
| download | tcl-107d41756017e763fb66994fb0ba6072b20a7d2b.zip tcl-107d41756017e763fb66994fb0ba6072b20a7d2b.tar.gz tcl-107d41756017e763fb66994fb0ba6072b20a7d2b.tar.bz2 | |
* Sought out and eliminated instances of CONST-casting that are no
longer needed after the TIP 27 effort.
Diffstat (limited to 'win/tclWinInit.c')
| -rw-r--r-- | win/tclWinInit.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/win/tclWinInit.c b/win/tclWinInit.c index 771081b..bf71fe7 100644 --- a/win/tclWinInit.c +++ b/win/tclWinInit.c @@ -7,7 +7,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclWinInit.c,v 1.32 2002/01/25 20:40:56 dgp Exp $ + * RCS: @(#) $Id: tclWinInit.c,v 1.33 2002/01/26 01:10:08 dgp Exp $ */ #include "tclWinInt.h" @@ -335,7 +335,7 @@ AppendEnvironment( Tcl_Obj *objPtr; char *str; Tcl_DString ds; - char **pathv; + CONST char **pathv; /* * The "L" preceeding the TCL_LIBRARY string is used to tell VC++ @@ -370,7 +370,7 @@ AppendEnvironment( * version string. */ - pathv[pathc - 1] = (char *) (lib + 4); + pathv[pathc - 1] = (lib + 4); Tcl_DStringInit(&ds); str = Tcl_JoinPath(pathc, pathv, &ds); objPtr = Tcl_NewStringObj(str, Tcl_DStringLength(&ds)); |