diff options
| author | davygrvy@pobox.com <davygrvy> | 2004-01-09 20:55:26 (GMT) |
|---|---|---|
| committer | davygrvy@pobox.com <davygrvy> | 2004-01-09 20:55:26 (GMT) |
| commit | efdb5843e441fb88005edecb8cd9404924d02009 (patch) | |
| tree | 948fe5bd8d8b80528bdc44ea629b59c8b644b7f0 /generic/tcl.h | |
| parent | 0d04006221d46f59a4aa7f998c9c76cb8d95c097 (diff) | |
| download | tcl-efdb5843e441fb88005edecb8cd9404924d02009.zip tcl-efdb5843e441fb88005edecb8cd9404924d02009.tar.gz tcl-efdb5843e441fb88005edecb8cd9404924d02009.tar.bz2 | |
Renamed and deprecated #defines moved to within the #ifndef TCL_NO_DEPRECATED
block. This alows us to build Tcl to check for deprecated functions in use, such
as panic() and Tcl_Ckalloc(). By request from DKF.
Diffstat (limited to 'generic/tcl.h')
| -rw-r--r-- | generic/tcl.h | 34 |
1 files changed, 18 insertions, 16 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 238a2c7..83ad1bd 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -13,7 +13,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.h,v 1.169 2003/12/23 02:39:08 davygrvy Exp $ + * RCS: @(#) $Id: tcl.h,v 1.170 2004/01/09 20:55:26 davygrvy Exp $ */ #ifndef _TCL @@ -2239,28 +2239,30 @@ typedef struct Tcl_Config { } Tcl_Config; -/* - * Deprecated Tcl procedures: - */ #ifndef TCL_NO_DEPRECATED + + /* + * Deprecated Tcl procedures: + */ + # define Tcl_EvalObj(interp,objPtr) \ Tcl_EvalObjEx((interp),(objPtr),0) # define Tcl_GlobalEvalObj(interp,objPtr) \ Tcl_EvalObjEx((interp),(objPtr),TCL_EVAL_GLOBAL) -#endif + /* + * These function have been renamed. The old names are deprecated, but + * we define these macros for backwards compatibilty. + */ -/* - * These function have been renamed. The old names are deprecated, but we - * define these macros for backwards compatibilty. - */ -#define Tcl_Ckalloc Tcl_Alloc -#define Tcl_Ckfree Tcl_Free -#define Tcl_Ckrealloc Tcl_Realloc -#define Tcl_Return Tcl_SetResult -#define Tcl_TildeSubst Tcl_TranslateFileName -#define panic Tcl_Panic -#define panicVA Tcl_PanicVA +# define Tcl_Ckalloc Tcl_Alloc +# define Tcl_Ckfree Tcl_Free +# define Tcl_Ckrealloc Tcl_Realloc +# define Tcl_Return Tcl_SetResult +# define Tcl_TildeSubst Tcl_TranslateFileName +# define panic Tcl_Panic +# define panicVA Tcl_PanicVA +#endif /* |