diff options
| author | dgp <dgp@users.sourceforge.net> | 2001-09-27 00:19:57 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2001-09-27 00:19:57 (GMT) |
| commit | 073702fdd13f3a1c8c129b1fc0ac838f01b4d11b (patch) | |
| tree | 11719d8041bc71444822ebd3d7e40e25c1c4323e /generic | |
| parent | a6c26a069d4a7aa7cd5420cabb2a7614de09f299 (diff) | |
| download | tcl-073702fdd13f3a1c8c129b1fc0ac838f01b4d11b.zip tcl-073702fdd13f3a1c8c129b1fc0ac838f01b4d11b.tar.gz tcl-073702fdd13f3a1c8c129b1fc0ac838f01b4d11b.tar.bz2 | |
* Vince Darley reports the 2001-09-24 TIP 27 changes left the win
directory CONST poisoned. These changes should fix that.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tcl.decls | 4 | ||||
| -rw-r--r-- | generic/tclDecls.h | 6 | ||||
| -rw-r--r-- | generic/tclFileName.c | 4 |
3 files changed, 7 insertions, 7 deletions
diff --git a/generic/tcl.decls b/generic/tcl.decls index d80e3fa..62cc523 100644 --- a/generic/tcl.decls +++ b/generic/tcl.decls @@ -10,7 +10,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tcl.decls,v 1.60 2001/09/25 16:23:55 dgp Exp $ +# RCS: @(#) $Id: tcl.decls,v 1.61 2001/09/27 00:19:57 dgp Exp $ library tcl @@ -605,7 +605,7 @@ declare 167 unix { # Obsolete. Should now use Tcl_FSGetPathType which is objectified # and therefore usually faster. declare 168 generic { - Tcl_PathType Tcl_GetPathType(char *path) + Tcl_PathType Tcl_GetPathType(CONST char *path) } declare 169 generic { int Tcl_Gets(Tcl_Channel chan, Tcl_DString *dsPtr) diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 5138a50..fe42b3b 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclDecls.h,v 1.60 2001/09/25 16:23:55 dgp Exp $ + * RCS: @(#) $Id: tclDecls.h,v 1.61 2001/09/27 00:19:57 dgp Exp $ */ #ifndef _TCLDECLS @@ -551,7 +551,7 @@ EXTERN int Tcl_GetOpenFile _ANSI_ARGS_((Tcl_Interp * interp, ClientData * filePtr)); #endif /* UNIX */ /* 168 */ -EXTERN Tcl_PathType Tcl_GetPathType _ANSI_ARGS_((char * path)); +EXTERN Tcl_PathType Tcl_GetPathType _ANSI_ARGS_((CONST char * path)); /* 169 */ EXTERN int Tcl_Gets _ANSI_ARGS_((Tcl_Channel chan, Tcl_DString * dsPtr)); @@ -1716,7 +1716,7 @@ typedef struct TclStubs { #ifdef MAC_TCL void *reserved167; #endif /* MAC_TCL */ - Tcl_PathType (*tcl_GetPathType) _ANSI_ARGS_((char * path)); /* 168 */ + Tcl_PathType (*tcl_GetPathType) _ANSI_ARGS_((CONST char * path)); /* 168 */ int (*tcl_Gets) _ANSI_ARGS_((Tcl_Channel chan, Tcl_DString * dsPtr)); /* 169 */ int (*tcl_GetsObj) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj * objPtr)); /* 170 */ int (*tcl_GetServiceMode) _ANSI_ARGS_((void)); /* 171 */ diff --git a/generic/tclFileName.c b/generic/tclFileName.c index 3eb9a17..4c2a580 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclFileName.c,v 1.20 2001/09/04 18:06:34 vincentdarley Exp $ + * RCS: @(#) $Id: tclFileName.c,v 1.21 2001/09/27 00:19:57 dgp Exp $ */ #include "tclInt.h" @@ -272,7 +272,7 @@ ExtractWinRoot(path, resultPtr, offset, typePtr) Tcl_PathType Tcl_GetPathType(path) - char *path; + CONST char *path; { Tcl_PathType type; Tcl_Obj *tempObj = Tcl_NewStringObj(path,-1); |