diff options
| author | dgp <dgp@users.sourceforge.net> | 2001-09-24 21:10:32 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2001-09-24 21:10:32 (GMT) |
| commit | 85efd4f6340d3db40be6608dc383cf19efb4fecf (patch) | |
| tree | 9fe3b099b7850769ca7b1bbf5be9ee6bcc10f7a4 /generic/tclIntDecls.h | |
| parent | bb93c0bc5c4d8116d1c04051c5f999615b5f06ff (diff) | |
| download | tcl-85efd4f6340d3db40be6608dc383cf19efb4fecf.zip tcl-85efd4f6340d3db40be6608dc383cf19efb4fecf.tar.gz tcl-85efd4f6340d3db40be6608dc383cf19efb4fecf.tar.bz2 | |
* Updated APIs in
generic/tclUtil.c according to the guidelines of TIP 27.
[Patch 464553]
Diffstat (limited to 'generic/tclIntDecls.h')
| -rw-r--r-- | generic/tclIntDecls.h | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index 47e08ad..a89c8bc 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.26 2001/08/30 08:53:14 vincentdarley Exp $ + * RCS: @(#) $Id: tclIntDecls.h,v 1.27 2001/09/24 21:10:32 dgp Exp $ */ #ifndef _TCLINTDECLS @@ -214,7 +214,8 @@ EXTERN Var * TclLookupVar _ANSI_ARGS_((Tcl_Interp * interp, Var ** arrayPtrPtr)); /* Slot 59 is reserved */ /* 60 */ -EXTERN int TclNeedSpace _ANSI_ARGS_((char * start, char * end)); +EXTERN int TclNeedSpace _ANSI_ARGS_((CONST char * start, + CONST char * end)); /* 61 */ EXTERN Tcl_Obj * TclNewProcBodyObj _ANSI_ARGS_((Proc * procPtr)); /* 62 */ @@ -429,7 +430,7 @@ EXTERN char * TclGetEnv _ANSI_ARGS_((CONST char * name, Tcl_DString * valuePtr)); /* Slot 139 is reserved */ /* 140 */ -EXTERN int TclLooksLikeInt _ANSI_ARGS_((char * bytes, +EXTERN int TclLooksLikeInt _ANSI_ARGS_((CONST char * bytes, int length)); /* 141 */ EXTERN char * TclpGetCwd _ANSI_ARGS_((Tcl_Interp * interp, @@ -569,7 +570,7 @@ typedef struct TclIntStubs { void *reserved57; Var * (*tclLookupVar) _ANSI_ARGS_((Tcl_Interp * interp, char * part1, char * part2, int flags, char * msg, int createPart1, int createPart2, Var ** arrayPtrPtr)); /* 58 */ void *reserved59; - int (*tclNeedSpace) _ANSI_ARGS_((char * start, char * end)); /* 60 */ + int (*tclNeedSpace) _ANSI_ARGS_((CONST char * start, CONST char * end)); /* 60 */ Tcl_Obj * (*tclNewProcBodyObj) _ANSI_ARGS_((Proc * procPtr)); /* 61 */ int (*tclObjCommandComplete) _ANSI_ARGS_((Tcl_Obj * cmdPtr)); /* 62 */ int (*tclObjInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 63 */ @@ -665,7 +666,7 @@ typedef struct TclIntStubs { void *reserved137; char * (*tclGetEnv) _ANSI_ARGS_((CONST char * name, Tcl_DString * valuePtr)); /* 138 */ void *reserved139; - int (*tclLooksLikeInt) _ANSI_ARGS_((char * bytes, int length)); /* 140 */ + int (*tclLooksLikeInt) _ANSI_ARGS_((CONST char * bytes, int length)); /* 140 */ char * (*tclpGetCwd) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_DString * cwdPtr)); /* 141 */ int (*tclSetByteCodeFromAny) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * objPtr, CompileHookProc * hookProc, ClientData clientData)); /* 142 */ int (*tclAddLiteralObj) _ANSI_ARGS_((struct CompileEnv * envPtr, Tcl_Obj * objPtr, LiteralEntry ** litPtrPtr)); /* 143 */ |