diff options
author | dgp <dgp@noemail.net> | 2001-09-25 16:23:55 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2001-09-25 16:23:55 (GMT) |
commit | a9f5a92ffe1bc816f2a36bd81da01686fb06f056 (patch) | |
tree | f40b58c1e7b96d42ea434c52d0a455b5f0b98fe5 /generic/tclIntDecls.h | |
parent | d4842d40e8e059e494fa262c52fdec6c51968feb (diff) | |
download | tcl-a9f5a92ffe1bc816f2a36bd81da01686fb06f056.zip tcl-a9f5a92ffe1bc816f2a36bd81da01686fb06f056.tar.gz tcl-a9f5a92ffe1bc816f2a36bd81da01686fb06f056.tar.bz2 |
* Updated APIs in generic/tclGet.c
according to the guidelines of TIP 27. [Patch 464674]
FossilOrigin-Name: 7f1745dad6149cd3035dd4d802654d93c4b822a1
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 a89c8bc..dd0ab62 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.27 2001/09/24 21:10:32 dgp Exp $ + * RCS: @(#) $Id: tclIntDecls.h,v 1.28 2001/09/25 16:23:56 dgp Exp $ */ #ifndef _TCLINTDECLS @@ -140,7 +140,7 @@ EXTERN Tcl_Obj * TclGetIndexedScalar _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, int flags)); /* 36 */ EXTERN int TclGetLong _ANSI_ARGS_((Tcl_Interp * interp, - char * str, long * longPtr)); + CONST char * str, long * longPtr)); /* 37 */ EXTERN int TclGetLoadedPackages _ANSI_ARGS_(( Tcl_Interp * interp, char * targetName)); @@ -546,7 +546,7 @@ typedef struct TclIntStubs { TclCmdProcType (*tclGetInterpProc) _ANSI_ARGS_((void)); /* 33 */ int (*tclGetIntForIndex) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, int endValue, int * indexPtr)); /* 34 */ Tcl_Obj * (*tclGetIndexedScalar) _ANSI_ARGS_((Tcl_Interp * interp, int localIndex, int flags)); /* 35 */ - int (*tclGetLong) _ANSI_ARGS_((Tcl_Interp * interp, char * str, long * longPtr)); /* 36 */ + int (*tclGetLong) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, long * longPtr)); /* 36 */ int (*tclGetLoadedPackages) _ANSI_ARGS_((Tcl_Interp * interp, char * targetName)); /* 37 */ int (*tclGetNamespaceForQualName) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * qualName, Namespace * cxtNsPtr, int flags, Namespace ** nsPtrPtr, Namespace ** altNsPtrPtr, Namespace ** actualCxtPtrPtr, CONST char ** simpleNamePtr)); /* 38 */ TclObjCmdProcType (*tclGetObjInterpProc) _ANSI_ARGS_((void)); /* 39 */ |