diff options
author | nijtmans <nijtmans@noemail.net> | 2008-12-19 09:33:15 (GMT) |
---|---|---|
committer | nijtmans <nijtmans@noemail.net> | 2008-12-19 09:33:15 (GMT) |
commit | 0c05261ecff7b5612b1b04907f30f64650af0012 (patch) | |
tree | d0e0145be9103e6fd2370b867ebdc86c0439f8f7 /generic/tclIntDecls.h | |
parent | 23f797d2ea053ef3c5e074b4c6fd8a16e1336c4b (diff) | |
download | tcl-0c05261ecff7b5612b1b04907f30f64650af0012.zip tcl-0c05261ecff7b5612b1b04907f30f64650af0012.tar.gz tcl-0c05261ecff7b5612b1b04907f30f64650af0012.tar.bz2 |
CONSTify TclGetLoadedPackages second param
FossilOrigin-Name: fa03a357a1ba470dc5457a62dfce688956d18d53
Diffstat (limited to 'generic/tclIntDecls.h')
-rw-r--r-- | generic/tclIntDecls.h | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index b4adc16..1057bda 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIntDecls.h,v 1.129 2008/12/18 06:40:02 nijtmans Exp $ + * RCS: @(#) $Id: tclIntDecls.h,v 1.130 2008/12/19 09:33:16 nijtmans Exp $ */ #ifndef _TCLINTDECLS @@ -217,7 +217,7 @@ EXTERN int TclGetIntForIndex (Tcl_Interp * interp, #define TclGetLoadedPackages_TCL_DECLARED /* 37 */ EXTERN int TclGetLoadedPackages (Tcl_Interp * interp, - char * targetName); + const char * targetName); #endif #ifndef TclGetNamespaceForQualName_TCL_DECLARED #define TclGetNamespaceForQualName_TCL_DECLARED @@ -1140,7 +1140,7 @@ typedef struct TclIntStubs { int (*tclGetIntForIndex) (Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr); /* 34 */ void *reserved35; void *reserved36; - int (*tclGetLoadedPackages) (Tcl_Interp * interp, char * targetName); /* 37 */ + int (*tclGetLoadedPackages) (Tcl_Interp * interp, const char * targetName); /* 37 */ int (*tclGetNamespaceForQualName) (Tcl_Interp * interp, const char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, const char ** simpleNamePtr); /* 38 */ TclObjCmdProcType (*tclGetObjInterpProc) (void); /* 39 */ int (*tclGetOpenMode) (Tcl_Interp * interp, const char * str, int * seekFlagPtr); /* 40 */ |